Script Function: Q4ER

 function void Q4ER()
 {
   Q512 = 0x00;
   obj Q4F0;
   list Q5NK;
   int Q55R;
   int Q55Q;
   int Q4Q1;
   obj Q47G = getBackpack(Q62D);
   string name;
   string Q5M0 = "it";
   if (Q55O)
   {
     Q55O = 0x00;
     Q4F0 = createNoResObjectAt(Q5C5, getLocation(Q62D));
     transferResources(Q4F0, Q5UC, Q55S, "metal");
     name = getName(Q4F0);
     switch (Q5C5)
     {
     case 0x1053
     case 0x105D
     case 0x0F9E
     case 0x0FBC
       Q5M0 = "them";
       break;
     default
       break;
     }
     Q5IH(Q62D, Q4F0, "You create " + name + " and put " + Q5M0);
     Q4Q1 = getResource(Q55R, Q5UC, "metal", 0x03, 0x02);
   }
   else
   {
     Q4F0 = createNoResObjectAt(Q5C5, getLocation(Q62D));
     transferResources(Q4F0, Q5UC, Q55S, "wood");
     name = getName(Q4F0);
     Q5IH(Q62D, Q4F0, "You create " + name + " and put it");
     Q4Q1 = getResource(Q55R, Q5UC, "wood", 0x03, 0x02);
   }
   if (hasObjVar(this, "inUse"))
   {
     removeObjVar(this, "inUse");
   }
   if (Q55R < 0x01)
   {
     deleteObject(Q5UC);
   }
   if (Q46J(Q62D, this))
   {
     deleteObject(this);
   }
   return ();
 }