Grimoric at 06:15, 19 October 2018

2018-10-19T06:15:14Z

Grimoric: Created page with " inherits globals; forward void Q5VI(
2018-10-05T12:47:35Z

Created page with " inherits globals; forward void Q5VI(inherits [[Script:_Globals|globals]];

forward void [[Script_Function:_Q5VI|Q5VI]](obj , obj );
forward void [[Script_Function:_Q668|Q668]](obj , obj );

function void Q5N6()
{
obj Q5C1 = [[Engine Function:_createGlobalNPCAtSpecificLoc|createGlobalNPCAtSpecificLoc]]([[Engine Function:_getTemplate|getTemplate]](this), [[Engine Function:_getLocation|getLocation]](this));
if (![[Engine Function:_isValid|isValid]](Q5C1))
{
return ();
}
[[Engine Function:_copyAllObjVars|copyAllObjVars]](Q5C1, this);
list Q4E4;
[[Engine Function:_getContents|getContents]](Q4E4, this);
debugMessage("Items found:" + [[Engine Function:_numInList|numInList]](Q4E4));
for(int i = [[Engine Function:_numInList|numInList]](Q4E4) - 0x01; i >= 0x00; i--)
{
debugMessage([[Engine Function:_getName|getName]](Q4E4[0x00]) + "(" + i + ")");
int Q4Q1;
if ([[Engine Function:_isMobile|isMobile]](Q4E4[0x00]))
{
Q4Q1 = [[Engine Function:_putMobContainer|putMobContainer]](Q4E4[0x00], Q5C1);
}
else
{
Q4Q1 = [[Engine Function:_putObjContainer|putObjContainer]](Q4E4[0x00], Q5C1);
}
[[Engine Function:_removeItem|removeItem]](Q4E4, 0x00);
}
return ();
}

function int Q4UX(int Q52T)
{
debugMessage("Armageddon! (Stables)");
if (Q52T < 0x02)
{
return (0x01);
}
[[Script_Function:_Q5N6|Q5N6]]();
return (0x01);
}

trigger message("armageddon")
{
return ([[Script_Function:_Q4UX|Q4UX]](args[0x00]));
}

trigger message("stablescleanup")
{
[[Engine Function:_deleteObject|deleteObject]](this);
return (0x01);
}

function int Q42T(obj Q61K, string Q5FM, obj Q4NJ)
{
if (![[Engine Function:_hasObjListVar|hasObjListVar]](Q61K, Q5FM))
{
return (0x00);
}
list Q4Q1;
[[Engine Function:_getObjListVar|getObjListVar]](Q4Q1, Q61K, Q5FM);
return ([[Engine Function:_isInList|isInList]](Q4Q1, Q4NJ));
}

trigger speech("*")
{
if ([[Engine Function:_hasObjListVar|hasObjListVar]](speaker, "petsStoredInStables"))
{
[[Engine Function:_removeObjVar|removeObjVar]](speaker, "petsStoredInStables");
}
list Q69B;
[[Engine Function:_split|split]](Q69B, arg);
if ([[Engine Function:_isInList|isInList]](Q69B, "stable"))
{
[[Script_Function:_Q5VI|Q5VI]](this, speaker);
return (0x00);
}
if ([[Engine Function:_isInList|isInList]](Q69B, "claim"))
{
[[Script_Function:_Q668|Q668]](this, speaker);
return (0x00);
}
return (0x01);
}

function void Q5VI(obj this, obj speaker)
{
if ([[Engine Function:_getMoney|getMoney]](speaker) < 0x1E)
{
if ([[Engine Function:_amtGoldInBank|amtGoldInBank]](speaker) < 0x1E)
{
[[Engine Function:_bark|bark]](this, "Thou dost not have 30 gold, not even in thy bank account.");
return ();
}
}
list Q5I2;
[[Engine Function:_getContents|getContents]](Q5I2, this);
if ([[Engine Function:_numInList|numInList]](Q5I2) > 0x64)
{
[[Engine Function:_bark|bark]](this, "I am sorry, my stables are full.");
return ();
}
[[Engine Function:_bark|bark]](this, "I charge 30 gold per pet for a real week's stable time. I will withdraw it from thy bank account. Which animal wouldst thou like to stable here?");
[[Engine Function:_setObjVar|setObjVar]](this, "petStablerAsker", speaker);
[[Engine Function:_targetObj|targetObj]](speaker, this);
return ();
}

function void Q668(obj this, obj speaker)
{
int Q4Q1;
list Q5I2;
[[Engine Function:_getContents|getContents]](Q5I2, this);
if ([[Engine Function:_numInList|numInList]](Q5I2) < 0x01)
{
[[Engine Function:_bark|bark]](this, "But I have no animals stabled with me at the moment!");
return ();
}
obj Q5H7;
list Q48U;
obj Q59H;
string Q58D;
for(int i = 0x00; i < [[Engine Function:_numInList|numInList]](Q5I2); i++)
{
Q59H = Q5I2[i];
if ([[Script_Function:_Q42T|Q42T]](Q59H, "myBoss", speaker))
{
Q58D = Q58D + "I have thy pet, " + [[Engine Function:_getName|getName]](Q59H) + "... let me fetch it. ";
Q4Q1 = [[teleport|teleport]](Q59H, [[Engine Function:_getLocation|getLocation]](speaker));
[[Engine Function:_removeObjVar|removeObjVar]](Q59H, "isInStables");
[[Engine Function:_detachScript|detachScript]](Q59H, "petzap");
if (!Q4Q1)
{
Q58D = Q58D + "I am sorry to inform thee that... well... it died. ";
[[Engine Function:_deleteObject|deleteObject]](Q59H);
}
}
}
[[Engine Function:_bark|bark]](this, Q58D);
return ();
}

trigger targetobj
{
if (usedon == [[Engine Function:_NULL|NULL]]())
{
return (0x00);
}
if ([[Engine Function:_isHuman|isHuman]](usedon))
{
[[Engine Function:_bark|bark]](this, "HA HA HA! Sorry, I am not an inn.");
return (0x00);
}
if ([[Engine Function:_hasScript|hasScript]](usedon, "destcrea"))
{
[[Engine Function:_bark|bark]](this, "I can not stable summoned creatures.");
return (0x00);
}
if (![[Engine Function:_hasObjVar|hasObjVar]](usedon, "myLoyalty"))
{
[[Engine Function:_bark|bark]](this, "That's not tame to anyone!");
return (0x00);
}
if (![[Engine Function:_hasObjListVar|hasObjListVar]](usedon, "myBoss"))
{
[[Engine Function:_bark|bark]](this, "That's not tame to anyone!");
return (0x00);
}
if (![[Script_Function:_Q42T|Q42T]](usedon, "myBoss", user))
{
[[Engine Function:_bark|bark]](this, "That's not your pet!");
return (0x00);
}
if ([[Engine Function:_getMoney|getMoney]](user) < 0x1E)
{
if (![[Engine Function:_withdrawAndDestroy|withdrawAndDestroy]](user, 0x1E))
{
[[Engine Function:_bark|bark]](this, "But thou hast not the funds in thy bank account!");
return (0x00);
}
}
else
{
[[Engine Function:_destroyGeneric|destroyGeneric]](user, 0x0EED, 0x1E);
}
int Q4Q1 = [[Engine Function:_putMobContainer|putMobContainer]](usedon, this);
if (!Q4Q1)
{
[[Engine Function:_bark|bark]](this, "I am sorry, but my stables are full.");
return (0x00);
}
[[Engine Function:_attachScript|attachScript]](usedon, "petzap");
[[Engine Function:_setObjVar|setObjVar]](user, "lastStablemasterUsed", this);
[[Engine Function:_setObjVar|setObjVar]](usedon, "isInStables", 0x01);
[[Engine Function:_bark|bark]](this, "Very well, thy pet is stabled. Thou mayst recover it by saying 'claim' to me. In one real world week, I shall sell it off if it is not claimed!");
return (0x00);
}

@@ Line 129: / Line 129: @@
+      {
         Q58D = Q58D + <span style="color:#800000">"I have thy pet, "</span> + [[Engine Function:_getName|<span style="color:#FF0000;font-weight:bold">getName</span>]](Q59H) + <span style="color:#800000">"... let me fetch it. "</span>;
-        Q4Q1 = [[teleport|<span style="color:#FF0000;font-weight:bold">teleport</span>]](Q59H, [[Engine Function:_getLocation|<span style="color:#FF0000;font-weight:bold">getLocation</span>]](speaker));
+        Q4Q1 = [[Engine Function:_teleport|<span style="color:#FF0000;font-weight:bold">teleport</span>]](Q59H, [[Engine Function:_getLocation|<span style="color:#FF0000;font-weight:bold">getLocation</span>]](speaker));
         [[Engine Function:_removeObjVar|<span style="color:#FF0000;font-weight:bold">removeObjVar</span>]](Q59H, <span style="color:#800000">"isInStables"</span>);
         [[Engine Function:_detachScript|<span style="color:#FF0000;font-weight:bold">detachScript</span>]](Q59H, <span style="color:#800000">"petzap"</span>);