Script Function: Q440
From Ultima Online: The Second Age
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); }