#include "nw_i0_tool"
void main()
{
object oClicker;
oClicker = GetLastUsedBy();


    if((GetLocalInt(OBJECT_SELF, "ONCE") == 0))
    {

        if (HasItem(oClicker, "RazingTorch"))
            {
            SetLocalInt(OBJECT_SELF, "ONCE", 1);
            location lLocation = GetLocation(OBJECT_SELF);
            CreateObject(OBJECT_TYPE_PLACEABLE, "supplyfire", lLocation);
            CreateObject(OBJECT_TYPE_PLACEABLE, "supplysmoke", lLocation);
            object oItemToTake1;
            oItemToTake1 = GetItemPossessedBy(oClicker, "RazingTorch");
            DestroyObject(oItemToTake1);
			SetLocalInt (GetModule(), "palsforwagon", GetLocalInt(GetModule(), "palsforwagon") - 1);
            }
    }
	
}