Grimoric at 08:02, 19 October 2018

2018-10-19T08:02:19Z

Grimoric: Created page with "inherits housestuff; function void Q4WV(
2018-10-05T20:23:10Z

Created page with "inherits housestuff; function void Q4WV(inherits [[Script:_Housestuff|housestuff]];

function void Q4WV(obj Q5AO, loc Q5CV)
{
return ();
}

function obj Q4WU(obj Q4H5, obj user, loc place)
{
int Q65M;
if (![[Engine Function:_isHousingOkay|isHousingOkay]](place, 0x01))
{
[[Engine Function:_barkTo|barkTo]](user, user, "Housing can not be created in this area.");
return ([[Engine Function:_NULL|NULL]]());
}
if (![[Engine Function:_hasObjVar|hasObjVar]](Q4H5, "myhousetype"))
{
Q65M = 0x00;
}
else
{
Q65M = [[getobjvar_int|getobjvar_int]](Q4H5, "myhousetype");
}
loc Q5CV = [[Script_Function:_Q4X1|Q4X1]](Q65M, place);
Q5NG = (0x00 - 0x07);
obj Q5AO = [[Script_Function:_Q4X5|Q4X5]](Q65M, Q5CV);
if (Q5AO == [[Engine Function:_NULL|NULL]]())
{
string Q58D = [[Script_Function:_Q592|Q592]](Q5NG, "house", "valid terrain");
[[Engine Function:_barkTo|barkTo]](user, user, Q58D);
return (Q5AO);
}
[[Script_Function:_Q4WV|Q4WV]](Q5AO, Q5CV);
[[Engine Function:_setObjVar|setObjVar]](Q5AO, "mydeed", Q4H5);
return (Q5AO);
}

function int Q4WT(obj user, obj Q5AO, obj Q5AB, obj Q5AP, int bank)
{
loc Q575 = [[Engine Function:_getLocation|getLocation]](user);
loc Q4VS = [[Engine Function:_getLocation|getLocation]](Q5AB);
[[Engine Function:_moveDir|moveDir]](Q4VS, 0x04);
list Q51X = 0x100E, 0x100F, 0x1010, 0x1013;
int num = [[Engine Function:_random|random]](0x00, ([[Engine Function:_numInList|numInList]](Q51X) - 0x01));
int Q51W = Q51X[num];
obj key = [[Engine Function:_NULL|NULL]]();
obj Q47G = [[Engine Function:_NULL|NULL]]();
if (bank)
{
[[Engine Function:_fixBank|fixBank]](user);
Q47G = [[Engine Function:_getItemAtSlot|getItemAtSlot]](user, 0x1D);
if (Q47G == [[Engine Function:_NULL|NULL]]())
{
Q47G = [[Engine Function:_getBackpack|getBackpack]](user);
bank = 0x00;
}
}
else
{
Q47G = [[Engine Function:_getBackpack|getBackpack]](user);
}
if (Q47G == [[Engine Function:_NULL|NULL]]())
{
key = [[Engine Function:_createGlobalObjectAt|createGlobalObjectAt]](Q51W, Q575);
[[Engine Function:_barkTo|barkTo]](user, user, "A house key is now at my feet.");
}
else
{
key = [[Engine Function:_createGlobalObjectIn|createGlobalObjectIn]](Q51W, Q47G);
if (bank)
{
[[Engine Function:_barkTo|barkTo]](user, user, "A house key is now in my safety deposit box.");
}
else
{
[[Engine Function:_barkTo|barkTo]](user, user, "A house key is now in my backpack.");
}
}
if (key == [[Engine Function:_NULL|NULL]]())
{
[[Engine Function:_bark|bark]](user, "Ack, a key could not be created!");
[[Engine Function:_deleteObject|deleteObject]](Q5AO);
return (0x00);
}
[[Engine Function:_attachScript|attachScript]](key, "key");
list Q5Z5;
if ([[Engine Function:_hasObjVar|hasObjVar]](Q5AO, "myhousedoors"))
{
[[Engine Function:_getObjListVar|getObjListVar]](Q5Z5, Q5AO, "myhousedoors");
}
int Q55T = [[Engine Function:_numInList|numInList]](Q5Z5);
for(int Q4EJ = 0x00; Q4EJ < Q55T; Q4EJ++)
{
Q5AB = Q5Z5[Q4EJ];
[[Script_Function:_Q45B|Q45B]](Q5AB, key);
}
if (Q5AP != [[Engine Function:_NULL|NULL]]())
{
[[Script_Function:_Q45B|Q45B]](Q5AP, key);
}
[[Engine Function:_attachScript|attachScript]](key, "housekey");
return (0x01);
}

function int Q4WZ(obj Q5AO, obj Q4H5, obj user)
{
[[Engine Function:_transferAllResources|transferAllResources]](Q5AO, Q4H5);
[[Script_Function:_Q59B|Q59B]](Q5AO);
obj Q5AB = [[Engine Function:_NULL|NULL]]();
if ([[Engine Function:_hasObjVar|hasObjVar]](Q5AO, "myhousedoor"))
{
Q5AB = [[getobjvar_obj|getobjvar_obj]](Q5AO, "myhousedoor");
}
obj Q5AP = [[Engine Function:_NULL|NULL]]();
if ([[Engine Function:_hasObjVar|hasObjVar]](Q5AO, "myhousesign"))
{
Q5AP = [[getobjvar_obj|getobjvar_obj]](Q5AO, "myhousesign");
}
string Q4F8 = [[Engine Function:_getName|getName]](user);
if (Q5AP != [[Engine Function:_NULL|NULL]]())
{
[[Engine Function:_setObjVar|setObjVar]](Q5AP, "creatorId", user);
[[Engine Function:_setObjVar|setObjVar]](Q5AP, "creatorName", Q4F8);
}
else
{
[[Engine Function:_setObjVar|setObjVar]](Q5AO, "creatorId", user);
[[Engine Function:_setObjVar|setObjVar]](Q5AO, "creatorName", Q4F8);
}
int Q5NC = [[Script_Function:_Q4WT|Q4WT]](user, Q5AO, Q5AB, Q5AP, 0x00);
Q5NC = [[Script_Function:_Q4WT|Q4WT]](user, Q5AO, Q5AB, Q5AP, 0x01);
if (Q5AO != [[Engine Function:_NULL|NULL]]())
{
[[Engine Function:_deleteObject|deleteObject]](Q4H5);
}
return (0x01);
}

trigger targetloc
{
if (![[Engine Function:_isInMap|isInMap]](place))
{
return (0x00);
}
if (![[Script_Function:_Q58Z|Q58Z]](user, this))
{
return (0x00);
}
obj Q5AO = [[Script_Function:_Q4WU|Q4WU]](this, user, place);
if (Q5AO != [[Engine Function:_NULL|NULL]]())
{
int Q5ND = [[Script_Function:_Q4WZ|Q4WZ]](Q5AO, this, user);
}
return (0x01);
}

trigger use
{
if (![[Script_Function:_Q58Z|Q58Z]](user, this))
{
return (0x00);
}
int Q65M;
if (![[Engine Function:_hasObjVar|hasObjVar]](this, "myhousetype"))
{
Q65M = 0x00;
}
else
{
Q65M = [[getobjvar_int|getobjvar_int]](this, "myhousetype");
}
loc Q63N;
loc Q48Y;
int Q4XN = [[Script_Function:_Q4WW|Q4WW]](Q65M, 0x00);
int Q69W = 0x00;
if ([[Engine Function:_getMultiExtents|getMultiExtents]](Q4XN, Q63N, Q48Y))
{
Q69W = [[Engine Function:_getY|getY]](Q48Y);
}
[[Engine Function:_barkTo|barkTo]](user, user, "Where do you wish to build the house?");
[[Engine Function:_targetlocmulti|targetlocmulti]](user, this, Q4XN, 0x00, Q69W, 0x00);
return (0x01);
}

trigger creation
{
int Q5AU = 0x00;
if (![[Engine Function:_hasObjVar|hasObjVar]](this, "myhousetype"))
{
[[Engine Function:_setObjVar|setObjVar]](this, "myhousetype", Q5AU);
}
else
{
Q5AU = [[getobjvar_int|getobjvar_int]](this, "myhousetype");
}
[[Engine Function:_setObjVar|setObjVar]](this, "mybasevalue", [[Script_Function:_Q4WX|Q4WX]](Q5AU));
return (0x01);
}

trigger canbuy
{
if (![[Engine Function:_getCompileFlag|getCompileFlag]](0x02))
{
return (0x01);
}
if (![[Script_Function:_Q590|Q590]](buyer, this))
{
return (0x00);
}
return (0x01);
}

@@ Line 20: / Line 20: @@
     <span style="color:#0000FF">else</span>
+    {
-      Q65M = [[getobjvar_int|<span style="color:#FF0000;font-weight:bold">getobjvar_int</span>]](Q4H5, <span style="color:#800000">"myhousetype"</span>);
+      Q65M = [[Engine Function:_getobjvar_int|<span style="color:#FF0000;font-weight:bold">getobjvar_int</span>]](Q4H5, <span style="color:#800000">"myhousetype"</span>);
+    }
     <span style="color:#0000FF">loc</span> Q5CV = [[Script_Function:_Q4X1|<span style="color:#2B91AF">Q4X1</span>]](Q65M, place);
@@ Line 110: / Line 110: @@
     <span style="color:#0000FF">if</span> ([[Engine Function:_hasObjVar|<span style="color:#FF0000;font-weight:bold">hasObjVar</span>]](Q5AO, <span style="color:#800000">"myhousedoor"</span>))
+    {
-      Q5AB = [[getobjvar_obj|<span style="color:#FF0000;font-weight:bold">getobjvar_obj</span>]](Q5AO, <span style="color:#800000">"myhousedoor"</span>);
+      Q5AB = [[Engine Function:_getobjvar_obj|<span style="color:#FF0000;font-weight:bold">getobjvar_obj</span>]](Q5AO, <span style="color:#800000">"myhousedoor"</span>);
+    }
     <span style="color:#0000FF">obj</span> Q5AP = [[Engine Function:_NULL|<span style="color:#FF0000;font-weight:bold">NULL</span>]]();
     <span style="color:#0000FF">if</span> ([[Engine Function:_hasObjVar|<span style="color:#FF0000;font-weight:bold">hasObjVar</span>]](Q5AO, <span style="color:#800000">"myhousesign"</span>))
+    {
-      Q5AP = [[getobjvar_obj|<span style="color:#FF0000;font-weight:bold">getobjvar_obj</span>]](Q5AO, <span style="color:#800000">"myhousesign"</span>);
+      Q5AP = [[Engine Function:_getobjvar_obj|<span style="color:#FF0000;font-weight:bold">getobjvar_obj</span>]](Q5AO, <span style="color:#800000">"myhousesign"</span>);
+    }
     <span style="color:#0000FF">string</span> Q4F8 = [[Engine Function:_getName|<span style="color:#FF0000;font-weight:bold">getName</span>]](user);
@@ Line 168: / Line 168: @@
     <span style="color:#0000FF">else</span>
+    {
-      Q65M = [[getobjvar_int|<span style="color:#FF0000;font-weight:bold">getobjvar_int</span>]](this, <span style="color:#800000">"myhousetype"</span>);
+      Q65M = [[Engine Function:_getobjvar_int|<span style="color:#FF0000;font-weight:bold">getobjvar_int</span>]](this, <span style="color:#800000">"myhousetype"</span>);
+    }
     <span style="color:#0000FF">loc</span> Q63N;
@@ Line 192: / Line 192: @@
     <span style="color:#0000FF">else</span>
+    {
-      Q5AU = [[getobjvar_int|<span style="color:#FF0000;font-weight:bold">getobjvar_int</span>]](this, <span style="color:#800000">"myhousetype"</span>);
+      Q5AU = [[Engine Function:_getobjvar_int|<span style="color:#FF0000;font-weight:bold">getobjvar_int</span>]](this, <span style="color:#800000">"myhousetype"</span>);
+    }
     [[Engine Function:_setObjVar|<span style="color:#FF0000;font-weight:bold">setObjVar</span>]](this, <span style="color:#800000">"mybasevalue"</span>, [[Script_Function:_Q4WX|<span style="color:#2B91AF">Q4WX</span>]](Q5AU));

Script: Housedeed - Revision history

Grimoric at 08:02, 19 October 2018