Script Function: Q440

From Ultima Online: The Second Age
Jump to: navigation, search
 function obj Q440(obj ship, loc where)
 {
   list Q5G9;
   getObjectsOnMulti(Q5G9, ship);
   if (numInList(Q5G9) > 0x00)
   {
     return (NULL());
   }
   obj Q62K = createGlobalObjectAt(0x0EFA, where);
   if (Q62K == NULL())
   {
     return (NULL());
   }
   setType(Q62K, 0x14F2);
   setStatus(Q62K, 0x80, 0x01);
   int Q5SR = 0x00;
   if (hasObjVar(ship, "myshiptype"))
   {
     Q5SR = getObjVar(ship, "myshiptype");
     setObjVar(Q62K, "myshiptype", Q5SR);
   }
   if (hasObjVar(ship, "mymultiname"))
   {
     string Q57O = getObjVar(ship, "mymultiname");
     setObjVar(Q62K, "mymultiname", Q57O);
   }
   Q43Y(Q62K, ship, where);
   setObjVar(Q62K, "claimloc", where);
   setObjVar(Q62K, "shipobj", ship);
   attachScript(Q62K, "shipclaim");
   int Q52Q = putObjContainer(ship, Q62K);
   return (Q62K);
 }
 function obj Q440(obj ship, loc where)
 {
   list Q5G9;
   getObjectsOnMulti(Q5G9, ship);
   if (numInList(Q5G9) > 0x00)
   {
     return (NULL());
   }
   obj shiphold = NULL();
   if (hasObjVar(ship, "myshiphold"))
   {
     shiphold = getObjVar(ship, "myshiphold");
   }
   if (shiphold != NULL())
   {
     list Q4E4;
     getContents(Q4E4, shiphold);
     int Q5EQ = numInList(Q4E4);
     if (Q5EQ > 0x00)
     {
       return (NULL());
     }
   }
   obj Q62K = createGlobalObjectAt(0x0E76, where);
   if (Q62K == NULL())
   {
     return (NULL());
   }
   setType(Q62K, 0x14F2);
   setStatus(Q62K, 0x80, 0x01);
   int Q5SR = 0x00;
   if (hasObjVar(ship, "myshiptype"))
   {
     Q5SR = getObjVar(ship, "myshiptype");
     setObjVar(Q62K, "myshiptype", Q5SR);
   }
   if (hasObjVar(ship, "mymultiname"))
   {
     string Q57O = getObjVar(ship, "mymultiname");
     setObjVar(Q62K, "mymultiname", Q57O);
   }
   Q43Y(Q62K, ship, where);
   setObjVar(Q62K, "claimloc", where);
   setObjVar(Q62K, "shipobj", ship);
   attachScript(Q62K, "shipclaim");
   int Q52Q = putObjContainer(ship, Q62K);
   return (Q62K);
 }