Script: Vended - Revision history

Grimoric at 08:42, 21 October 2018

2018-10-21T08:42:08Z

Grimoric at 07:33, 19 October 2018

2018-10-19T07:33:29Z

Grimoric: Created page with " inherits globals; function obj Q4TJ() {
2018-10-05T06:09:55Z

Created page with " inherits globals; function obj Q4TJ() { inherits [[Script:_Globals|globals]];

function obj Q4TJ()
{
obj Q63O = [[Engine Function:_getTopmostContainer|getTopmostContainer]](this);
if (Q63O == [[Engine Function:_NULL|NULL]]())
{
return ([[Engine Function:_NULL|NULL]]());
}
if (![[Engine Function:_hasScript|hasScript]](Q63O, "vendor"))
{
return ([[Engine Function:_NULL|NULL]]());
}
return (Q63O);
}

function void cleanup()
{
if ([[Engine Function:_isContainer|isContainer]](this))
{
list Q4E4;
[[Engine Function:_getContents|getContents]](Q4E4, this);
while([[Engine Function:_numInList|numInList]](Q4E4))
{
list args;
[[Engine Function:_message|message]](Q4E4[0x00], "cleanup", args);
[[Engine Function:_removeItem|removeItem]](Q4E4, 0x00);
}
}
[[Engine Function:_removeObjVar|removeObjVar]](this, "vendedOwner");
[[Engine Function:_removeObjVar|removeObjVar]](this, "vendedPrice");
[[Engine Function:_removeObjVar|removeObjVar]](this, "description");
[[Engine Function:_detachScript|detachScript]](this, "vended");
return ();
}

function obj Q4SD()
{
if ([[Engine Function:_hasObjVar|hasObjVar]](this, "vendedOwner"))
{
return ([[Engine Function:_getObjVar|getObjVar]](this, "vendedOwner"));
}
return ([[Engine Function:_getObjVar|getObjVar]]([[Script_Function:_Q4TJ|Q4TJ]](), "owner"));
}

function int Q4SH()
{
if (![[Engine Function:_hasObjVar|hasObjVar]](this, "vendedPrice"))
{
return (0x00 - 0x01);
}
return ([[Engine Function:_getObjVar|getObjVar]](this, "vendedPrice"));
}

function int Q4YS(obj b)
{
switch ([[Engine Function:_getObjType|getObjType]](b))
{
case 0x0FEF
case 0x0FF0
case 0x0FF1
case 0x0FF2
return (0x01);
break;
default
return (0x00);
break;
}
return (0x00);
}

function int Q4Z0(obj t)
{
if ([[Engine Function:_hasObjVar|hasObjVar]](t, "isLocked"))
{
[[Engine Function:_barkTo|barkTo]]([[Script_Function:_Q4SD|Q4SD]](), [[Script_Function:_Q4SD|Q4SD]](), "Locked items may not be made not-for-sale.");
return (0x01);
}
if ([[Engine Function:_isContainer|isContainer]](t))
{
if (![[Engine Function:_isRealContainer|isRealContainer]](t))
{
switch ([[Engine Function:_getObjType|getObjType]](t))
{
case 0x0EFA
case 0x0E3B
break;
default
return (0x01);
}
}
else
{
list Q4E4;
[[Engine Function:_getContents|getContents]](Q4E4, t);
for(int i = [[Engine Function:_numInList|numInList]](Q4E4); i; i--)
{
if ((![[Engine Function:_hasScript|hasScript]](Q4E4[0x00], "vended")) || ((![[Engine Function:_hasObjVar|hasObjVar]](Q4E4[0x00], "vendedPrice"))))
{
if (![[Script_Function:_Q4Z0|Q4Z0]](Q4E4[0x00]))
{
[[Engine Function:_barkTo|barkTo]]([[Script_Function:_Q4SD|Q4SD]](), [[Script_Function:_Q4SD|Q4SD]](), "To be not for sale, all contents of a container must be for sale.");
return (0x00);
}
}
[[Engine Function:_removeItem|removeItem]](Q4E4, 0x00);
}
}
return (0x01);
}
if ([[Script_Function:_Q4YS|Q4YS]](t))
{
return (0x01);
}
obj Q47J = [[Engine Function:_containedBy|containedBy]](t);
if (![[Engine Function:_isValid|isValid]](Q47J))
{
[[Engine Function:_bark|bark]]([[Script_Function:_Q4SD|Q4SD]](), "It's not in a container.");
return (0x00);
}
if ([[Engine Function:_hasObjVar|hasObjVar]](Q47J, "vendedPrice"))
{
return (0x01);
}
[[Engine Function:_barkTo|barkTo]]([[Script_Function:_Q4SD|Q4SD]](), [[Script_Function:_Q4SD|Q4SD]](), "Only the following items may be made not-for-sale: books, containers, keyrings, and items in a for-sale container.");
return (0x00);
}

function void checkStatus()
{
if ([[Engine Function:_isContainer|isContainer]](this))
{
list Q4E4;
[[Engine Function:_getContents|getContents]](Q4E4, this);
while([[Engine Function:_numInList|numInList]](Q4E4))
{
list args;
if (![[Engine Function:_hasScript|hasScript]](Q4E4[0x00], "vended"))
{
[[Engine Function:_attachScript|attachScript]](Q4E4[0x00], "vended");
}
[[Engine Function:_message|message]](Q4E4[0x00], "checkStatus", args);
[[Engine Function:_removeItem|removeItem]](Q4E4, 0x00);
}
}
if ([[Script_Function:_Q4SH|Q4SH]]() < 0x00)
{
if (![[Script_Function:_Q4Z0|Q4Z0]](this))
{
[[Engine Function:_setObjVar|setObjVar]](this, "vendedPrice", [[Engine Function:_getValue|getValue]](this));
}
}
return ();
}

trigger textentry(0x1A)
{
if (sender != [[Script_Function:_Q4SD|Q4SD]]())
{
return (0x00);
}
if (![[Engine Function:_isFreelyViewable|isFreelyViewable]](this, sender))
{
return (0x00);
}
if (button == 0x00)
{
if ([[Engine Function:_hasObjVar|hasObjVar]](this, "vendedPrice"))
{
[[Engine Function:_removeObjVar|removeObjVar]](this, "vendedPrice");
}
[[Engine Function:_scriptTrig|scriptTrig]](this, 0x1C, [[Script_Function:_Q4SD|Q4SD]]());
return (0x00);
}
int price = text;
if (price < 0x00)
{
[[Engine Function:_systemMessage|systemMessage]]([[Script_Function:_Q4SD|Q4SD]](), "Only containers can be set to 'not for sale.'");
}
if (price > 0x000F4240)
{
price = 0x000F4240;
}
string Q5WX = price;
string Q5G1 = text;
[[Engine Function:_removePrefix|removePrefix]](text, Q5WX);
if (Q5G1 == text)
{
if ([[Script_Function:_Q4Z0|Q4Z0]](this))
{
price = 0x00 - 0x01;
}
else
{
return (0x00);
}
}
[[Engine Function:_removePrefix|removePrefix]](text, " ");
[[Engine Function:_removePrefix|removePrefix]](text, " ");
[[Engine Function:_removePrefix|removePrefix]](text, ",");
[[Engine Function:_removePrefix|removePrefix]](text, " ");
[[Engine Function:_removePrefix|removePrefix]](text, " ");
if (text == "")
{
[[Engine Function:_removeObjVar|removeObjVar]](this, "description");
}
else
{
[[Engine Function:_setObjVar|setObjVar]](this, "description", text);
}
if (price < 0x00)
{
if ([[Engine Function:_hasObjVar|hasObjVar]](this, "vendedPrice"))
{
[[Engine Function:_removeObjVar|removeObjVar]](this, "vendedPrice");
}
}
else
{
[[Engine Function:_setObjVar|setObjVar]](this, "vendedPrice", price);
}
[[Engine Function:_scriptTrig|scriptTrig]](this, 0x1C, [[Script_Function:_Q4SD|Q4SD]]());
return (0x00);
}

trigger wasgotten
{
if ([[Engine Function:_isEditing|isEditing]](getter))
{
return (0x01);
}
if ([[Script_Function:_Q4SH|Q4SH]]() == 0x00)
{
return (0x01);
}
if (getter != [[Script_Function:_Q4SD|Q4SD]]())
{
[[Engine Function:_systemMessage|systemMessage]](getter, "To purchase items, say 'vendor buy'.");
return (0x00);
}
return (0x01);
}

trigger wasdropped
{
if ([[Script_Function:_Q4TJ|Q4TJ]]() == [[Engine Function:_NULL|NULL]]())
{
[[Engine Function:_setDefaultReturn|setDefaultReturn]](0x01);
[[cleanup|cleanup]]();
}
return (0x01);
}

trigger creation
{
if ([[Engine Function:_containedBy|containedBy]](this) != [[Engine Function:_NULL|NULL]]())
{
if ([[Engine Function:_hasScript|hasScript]]([[Engine Function:_containedBy|containedBy]](this), "vendor"))
{
return (0x00);
}
}
[[Engine Function:_systemMessage|systemMessage]]([[Script_Function:_Q4SD|Q4SD]](), "Type in a price and description for " + [[Engine Function:_getName|getName]](this) + ": (ESC=Not for sale)");
[[Engine Function:_textEntry|textEntry]](this, [[Script_Function:_Q4SD|Q4SD]](), 0x1A, 0x00, "Type in a price for " + [[Engine Function:_getName|getName]](this) + ".");
return (0x00);
}

trigger message("checkStatus")
{
[[checkStatus|checkStatus]]();
return (0x00);
}

trigger lookedat
{
string Q5KK = [[Script_Function:_Q4SH|Q4SH]]();
if ([[Script_Function:_Q4SH|Q4SH]]() == 0x00)
{
Q5KK = "FREE!";
}
if ([[Script_Function:_Q4SH|Q4SH]]() < 0x00)
{
Q5KK = "Not for sale.";
if (![[Script_Function:_Q4Z0|Q4Z0]](this))
{
[[Engine Function:_setObjVar|setObjVar]](this, "vendedPrice", [[Engine Function:_getValue|getValue]](this));
Q5KK = [[Script_Function:_Q4SH|Q4SH]]();
}
}
string desc = "";
if ([[Engine Function:_hasObjVar|hasObjVar]](this, "description"))
{
desc = [[Engine Function:_getObjVar|getObjVar]](this, "description");
desc = desc + ". ";
}
[[Engine Function:_barkTo|barkTo]](this, looker, desc + "Cost:" + Q5KK);
return (0x01);
}

trigger give
{
if (giver != [[Script_Function:_Q4SD|Q4SD]]())
{
[[Engine Function:_barkTo|barkTo]]([[Script_Function:_Q4TJ|Q4TJ]](), giver, "I can only accept items from the shop owner.");
return (0x00);
}
[[Engine Function:_setObjVar|setObjVar]](givenobj, "vendedOwner", giver);
[[Engine Function:_attachScript|attachScript]](givenobj, "vended");
return (0x01);
}

trigger message("cleanup")
{
[[cleanup|cleanup]]();
return (0x00);
}

trigger message("purchase")
{
obj user = args[0x00];
int Q4Q1;
if (user == [[Script_Function:_Q4SD|Q4SD]]())
{
[[Engine Function:_systemMessage|systemMessage]](user, "You take the item.");
Q4Q1 = [[Engine Function:_putObjContainer|putObjContainer]](this, [[Engine Function:_getBackpack|getBackpack]](user));
[[cleanup|cleanup]]();
return (0x00);
}
obj vendor = [[Script_Function:_Q4TJ|Q4TJ]]();
int price = [[Script_Function:_Q4SH|Q4SH]]();
if (price < 0x00)
{
[[Engine Function:_systemMessage|systemMessage]](user, "This item is not for sale.");
return (0x00);
}
if (price == 0x00)
{
[[Engine Function:_systemMessage|systemMessage]](user, "You take " + [[Engine Function:_getName|getName]](this) + ".");
Q4Q1 = [[Engine Function:_putObjContainer|putObjContainer]](this, [[Engine Function:_getBackpack|getBackpack]](user));
[[cleanup|cleanup]]();
return (0x00);
}
obj gold = [[Engine Function:_NULL|NULL]]();
if (price > 0x00)
{
if (price <= [[Engine Function:_getMoney|getMoney]](user))
{
gold = [[Engine Function:_transferGenericToContainer|transferGenericToContainer]](vendor, user, 0x0EED, price);
[[Engine Function:_systemMessage|systemMessage]](user, "You purchase " + [[Engine Function:_getName|getName]](this) + ".");
}
else
{
if (price <= [[Engine Function:_amtGoldInBank|amtGoldInBank]](user))
{
Q4Q1 = [[Engine Function:_withdrawFromBank|withdrawFromBank]](user, price);
gold = [[Engine Function:_transferGenericToContainer|transferGenericToContainer]](vendor, user, 0x0EED, price);
[[Engine Function:_systemMessage|systemMessage]](user, "You purchase " + [[Engine Function:_getName|getName]](this) + " with the gold in your bank account.");
}
else
{
[[Engine Function:_systemMessage|systemMessage]](user, "You cannot afford this item.");
return (0x00);
}
}
}
list goldOwnerList;
list goldQuantityList;
if ([[Engine Function:_hasObjListVar|hasObjListVar]](vendor, "goldOwnerList"))
{
[[Engine Function:_getObjListVar|getObjListVar]](goldOwnerList, vendor, "goldOwnerList");
[[Engine Function:_getObjListVar|getObjListVar]](goldQuantityList, vendor, "goldQuantityList");
}
for(int i = 0x00; 0x01; i++)
{
if (i >= [[Engine Function:_numInList|numInList]](goldOwnerList))
{
[[Engine Function:_append|append]](goldOwnerList, [[Script_Function:_Q4SD|Q4SD]]());
[[Engine Function:_append|append]](goldQuantityList, price);
break;
}
obj Q4FL = goldOwnerList[i];
if ([[Script_Function:_Q4SD|Q4SD]]() == Q4FL)
{
int Q5WE = goldQuantityList[i];
[[Engine Function:_setItem|setItem]](goldQuantityList, Q5WE + price, i);
break;
}
}
[[Engine Function:_setObjVar|setObjVar]](vendor, "goldOwnerList", goldOwnerList);
[[Engine Function:_setObjVar|setObjVar]](vendor, "goldQuantityList", goldQuantityList);
Q4Q1 = [[Engine Function:_putObjContainer|putObjContainer]](this, [[Engine Function:_getBackpack|getBackpack]](user));
[[cleanup|cleanup]]();
return (0x00);
}

trigger objectloaded
{
if ([[Engine Function:_hasObjVar|hasObjVar]](this, "owner"))
{
if (![[Engine Function:_hasScript|hasScript]](this, "magicitem"))
{
[[Engine Function:_removeObjVar|removeObjVar]](this, "owner");
}
}
[[Engine Function:_setObjVar|setObjVar]](this, "vendedOwner", [[Script_Function:_Q4SD|Q4SD]]());
if ([[Engine Function:_hasObjVar|hasObjVar]](this, "price"))
{
int price = [[Engine Function:_getObjVar|getObjVar]](this, "price");
[[Engine Function:_setObjVar|setObjVar]](this, "vendedPrice", price);
[[Engine Function:_removeObjVar|removeObjVar]](this, "price");
}
if ([[Script_Function:_Q4TJ|Q4TJ]]() == [[Engine Function:_NULL|NULL]]())
{
[[cleanup|cleanup]]();
return (0x01);
}
return (0x01);
}

@@ Line 268: / Line 268: @@
   <span style="color:#0000FF">trigger</span> message(<span style="color:#800000">"checkStatus"</span>)
+  {
-    [[checkStatus|<span style="color:#2B91AF">checkStatus</span>]]();
+    [[Script_Function:_checkStatus|<span style="color:#2B91AF">checkStatus</span>]]();
     <span style="color:#0000FF">return</span> (0x00);
+  }

@@ Line 247: / Line 247: @@
+    {
       [[Engine Function:_setDefaultReturn|<span style="color:#FF0000;font-weight:bold">setDefaultReturn</span>]](0x01);
-      [[cleanup|<span style="color:#2B91AF">cleanup</span>]]();
+      [[Script_Function:_Cleanup|<span style="color:#2B91AF">cleanup</span>]]();
+    }
     <span style="color:#0000FF">return</span> (0x01);
@@ Line 312: / Line 312: @@
   <span style="color:#0000FF">trigger</span> message(<span style="color:#800000">"cleanup"</span>)
+  {
-    [[cleanup|<span style="color:#2B91AF">cleanup</span>]]();
+    [[Script_Function:_Cleanup|<span style="color:#2B91AF">cleanup</span>]]();
     <span style="color:#0000FF">return</span> (0x00);
+  }
@@ Line 324: / Line 324: @@
       [[Engine Function:_systemMessage|<span style="color:#FF0000;font-weight:bold">systemMessage</span>]](user, <span style="color:#800000">"You take the item."</span>);
       Q4Q1 = [[Engine Function:_putObjContainer|<span style="color:#FF0000;font-weight:bold">putObjContainer</span>]](this, [[Engine Function:_getBackpack|<span style="color:#FF0000;font-weight:bold">getBackpack</span>]](user));
-      [[cleanup|<span style="color:#2B91AF">cleanup</span>]]();
+      [[Script_Function:_Cleanup|<span style="color:#2B91AF">cleanup</span>]]();
       <span style="color:#0000FF">return</span> (0x00);
+    }
@@ Line 338: / Line 338: @@
       [[Engine Function:_systemMessage|<span style="color:#FF0000;font-weight:bold">systemMessage</span>]](user, <span style="color:#800000">"You take "</span> + [[Engine Function:_getName|<span style="color:#FF0000;font-weight:bold">getName</span>]](this) + <span style="color:#800000">"."</span>);
       Q4Q1 = [[Engine Function:_putObjContainer|<span style="color:#FF0000;font-weight:bold">putObjContainer</span>]](this, [[Engine Function:_getBackpack|<span style="color:#FF0000;font-weight:bold">getBackpack</span>]](user));
-      [[cleanup|<span style="color:#2B91AF">cleanup</span>]]();
+      [[Script_Function:_Cleanup|<span style="color:#2B91AF">cleanup</span>]]();
       <span style="color:#0000FF">return</span> (0x00);
+    }
@@ Line 390: / Line 390: @@
     [[Engine Function:_setObjVar|<span style="color:#FF0000;font-weight:bold">setObjVar</span>]](vendor, <span style="color:#800000">"goldQuantityList"</span>, goldQuantityList);
     Q4Q1 = [[Engine Function:_putObjContainer|<span style="color:#FF0000;font-weight:bold">putObjContainer</span>]](this, [[Engine Function:_getBackpack|<span style="color:#FF0000;font-weight:bold">getBackpack</span>]](user));
-    [[cleanup|<span style="color:#2B91AF">cleanup</span>]]();
+    [[Script_Function:_Cleanup|<span style="color:#2B91AF">cleanup</span>]]();
     <span style="color:#0000FF">return</span> (0x00);
+  }
@@ Line 412: / Line 412: @@
     <span style="color:#0000FF">if</span> ([[Script_Function:_Q4TJ|<span style="color:#2B91AF">Q4TJ</span>]]() == [[Engine Function:_NULL|<span style="color:#FF0000;font-weight:bold">NULL</span>]]())
+    {
-      [[cleanup|<span style="color:#2B91AF">cleanup</span>]]();
+      [[Script_Function:_Cleanup|<span style="color:#2B91AF">cleanup</span>]]();
       <span style="color:#0000FF">return</span> (0x01);
+    }
     <span style="color:#0000FF">return</span> (0x01);
+  }