Script: Harbormaster - Revision history

Grimoric: Created page with " inherits multistuff; function int Q5SK(
2018-10-05T20:30:12Z

Created page with " <span style="color:#0000FF">inherits</span> multistuff; <span style="color:#0000FF">function</span> <span style="color:#0000FF">int</span> Q5SK(<span style="color:#0000..."

New page
<span style="color:#0000FF">inherits</span> [[Script:_Multistuff|multistuff]];

<span style="color:#0000FF">function</span> <span style="color:#0000FF">int</span> Q5SK(<span style="color:#0000FF">obj</span> house, <span style="color:#0000FF">obj</span> Q5HY)
{
<span style="color:#0000FF">obj</span> Q5AB = [[Engine Function:_NULL|<span style="color:#FF0000;font-weight:bold">NULL</span>]]();
<span style="color:#0000FF">if</span> ([[Engine Function:_hasObjListVar|<span style="color:#FF0000;font-weight:bold">hasObjListVar</span>]](house, <span style="color:#800000">"myhousedoors"</span>))
{
<span style="color:#0000FF">list</span> doors;
[[Engine Function:_getObjListVar|<span style="color:#FF0000;font-weight:bold">getObjListVar</span>]](doors, house, <span style="color:#800000">"myhousedoors"</span>);
<span style="color:#0000FF">if</span> ([[Engine Function:_numInList|<span style="color:#FF0000;font-weight:bold">numInList</span>]](doors) > 0x00)
{
Q5AB = doors[0x00];
}
}
<span style="color:#0000FF">else</span>
{
<span style="color:#0000FF">if</span> ([[Engine Function:_hasObjVar|<span style="color:#FF0000;font-weight:bold">hasObjVar</span>]](house, <span style="color:#800000">"myhousedoor"</span>))
{
Q5AB = [[Engine Function:_getObjVar|<span style="color:#FF0000;font-weight:bold">getObjVar</span>]](house, <span style="color:#800000">"myhousedoor"</span>);
}
}
<span style="color:#0000FF">if</span> (Q5AB == [[Engine Function:_NULL|<span style="color:#FF0000;font-weight:bold">NULL</span>]]())
{
<span style="color:#0000FF">return</span> (0x00);
}
<span style="color:#0000FF">obj</span> Q5NC = [[Engine Function:_mobileHasObjWithListObjOfObj|<span style="color:#FF0000;font-weight:bold">mobileHasObjWithListObjOfObj</span>]](Q5HY, <span style="color:#800000">"whatIUnlock"</span>, Q5AB);
<span style="color:#0000FF">if</span> (Q5NC == [[Engine Function:_NULL|<span style="color:#FF0000;font-weight:bold">NULL</span>]]())
{
<span style="color:#0000FF">return</span> (0x00);
}
<span style="color:#0000FF">return</span> (0x01);
}

<span style="color:#0000FF">function</span> <span style="color:#0000FF">void</span> Q43Y(<span style="color:#0000FF">obj</span> Q62K, <span style="color:#0000FF">obj</span> ship, <span style="color:#0000FF">loc</span> where)
{
<span style="color:#0000FF">string</span> desc = <span style="color:#800000">"a ship claim ticket"</span>;
<span style="color:#0000FF">loc</span> Q5M7;
<span style="color:#0000FF">string</span> Q47A;
<span style="color:#0000FF">int</span> Q5NC = [[Engine Function:_getLocalizedDesc|<span style="color:#FF0000;font-weight:bold">getLocalizedDesc</span>]](Q47A, Q5M7, where, where);
<span style="color:#0000FF">if</span> (Q5NC)
{
<span style="color:#0000FF">concat</span>(desc, <span style="color:#800000">" from "</span>);
<span style="color:#0000FF">concat</span>(desc, Q47A);
}
<span style="color:#0000FF">if</span> ([[Script_Function:_Q58R|<span style="color:#2B91AF">Q58R</span>]](ship))
{
<span style="color:#0000FF">concat</span>(desc, <span style="color:#800000">" for the "</span>);
<span style="color:#0000FF">concat</span>(desc, [[Script_Function:_Q58N|<span style="color:#2B91AF">Q58N</span>]](ship));
}
[[Engine Function:_setObjVar|<span style="color:#FF0000;font-weight:bold">setObjVar</span>]](Q62K, <span style="color:#800000">"lookAtText"</span>, desc);
<span style="color:#0000FF">return</span> ();
}

<span style="color:#0000FF">function</span> <span style="color:#0000FF">obj</span> Q440(<span style="color:#0000FF">obj</span> ship, <span style="color:#0000FF">loc</span> where)
{
<span style="color:#0000FF">list</span> Q5G9;
[[Engine Function:_getObjectsOnMulti|<span style="color:#FF0000;font-weight:bold">getObjectsOnMulti</span>]](Q5G9, ship);
<span style="color:#0000FF">if</span> ([[Engine Function:_numInList|<span style="color:#FF0000;font-weight:bold">numInList</span>]](Q5G9) > 0x00)
{
<span style="color:#0000FF">return</span> ([[Engine Function:_NULL|<span style="color:#FF0000;font-weight:bold">NULL</span>]]());
}
<span style="color:#0000FF">obj</span> shiphold = [[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>]](ship, <span style="color:#800000">"myshiphold"</span>))
{
shiphold = [[Engine Function:_getObjVar|<span style="color:#FF0000;font-weight:bold">getObjVar</span>]](ship, <span style="color:#800000">"myshiphold"</span>);
}
<span style="color:#0000FF">if</span> (shiphold != [[Engine Function:_NULL|<span style="color:#FF0000;font-weight:bold">NULL</span>]]())
{
<span style="color:#0000FF">list</span> Q4E4;
[[Engine Function:_getContents|<span style="color:#FF0000;font-weight:bold">getContents</span>]](Q4E4, shiphold);
<span style="color:#0000FF">int</span> Q5EQ = [[Engine Function:_numInList|<span style="color:#FF0000;font-weight:bold">numInList</span>]](Q4E4);
<span style="color:#0000FF">if</span> (Q5EQ > 0x00)
{
<span style="color:#0000FF">return</span> ([[Engine Function:_NULL|<span style="color:#FF0000;font-weight:bold">NULL</span>]]());
}
}
<span style="color:#0000FF">obj</span> Q62K = [[Engine Function:_createGlobalObjectAt|<span style="color:#FF0000;font-weight:bold">createGlobalObjectAt</span>]](0x0E76, where);
<span style="color:#0000FF">if</span> (Q62K == [[Engine Function:_NULL|<span style="color:#FF0000;font-weight:bold">NULL</span>]]())
{
<span style="color:#0000FF">return</span> ([[Engine Function:_NULL|<span style="color:#FF0000;font-weight:bold">NULL</span>]]());
}
[[Engine Function:_setType|<span style="color:#FF0000;font-weight:bold">setType</span>]](Q62K, 0x14F2);
[[Engine Function:_setStatus|<span style="color:#FF0000;font-weight:bold">setStatus</span>]](Q62K, 0x80, 0x01);
<span style="color:#0000FF">int</span> Q5SR = 0x00;
<span style="color:#0000FF">if</span> ([[Engine Function:_hasObjVar|<span style="color:#FF0000;font-weight:bold">hasObjVar</span>]](ship, <span style="color:#800000">"myshiptype"</span>))
{
Q5SR = [[Engine Function:_getObjVar|<span style="color:#FF0000;font-weight:bold">getObjVar</span>]](ship, <span style="color:#800000">"myshiptype"</span>);
[[Engine Function:_setObjVar|<span style="color:#FF0000;font-weight:bold">setObjVar</span>]](Q62K, <span style="color:#800000">"myshiptype"</span>, Q5SR);
}
<span style="color:#0000FF">if</span> ([[Engine Function:_hasObjVar|<span style="color:#FF0000;font-weight:bold">hasObjVar</span>]](ship, <span style="color:#800000">"mymultiname"</span>))
{
<span style="color:#0000FF">string</span> Q57O = [[Engine Function:_getObjVar|<span style="color:#FF0000;font-weight:bold">getObjVar</span>]](ship, <span style="color:#800000">"mymultiname"</span>);
[[Engine Function:_setObjVar|<span style="color:#FF0000;font-weight:bold">setObjVar</span>]](Q62K, <span style="color:#800000">"mymultiname"</span>, Q57O);
}
[[Script_Function:_Q43Y|<span style="color:#2B91AF">Q43Y</span>]](Q62K, ship, where);
[[Engine Function:_setObjVar|<span style="color:#FF0000;font-weight:bold">setObjVar</span>]](Q62K, <span style="color:#800000">"claimloc"</span>, where);
[[Engine Function:_setObjVar|<span style="color:#FF0000;font-weight:bold">setObjVar</span>]](Q62K, <span style="color:#800000">"shipobj"</span>, ship);
[[Engine Function:_attachScript|<span style="color:#FF0000;font-weight:bold">attachScript</span>]](Q62K, <span style="color:#800000">"shipclaim"</span>);
<span style="color:#0000FF">int</span> Q52Q = [[Engine Function:_putObjContainer|<span style="color:#FF0000;font-weight:bold">putObjContainer</span>]](ship, Q62K);
<span style="color:#0000FF">return</span> (Q62K);
}

<span style="color:#0000FF">function</span> <span style="color:#0000FF">void</span> Q425(<span style="color:#0000FF">obj</span> user, <span style="color:#0000FF">obj</span> Q4XN)
{
<span style="color:#0000FF">if</span> ([[Engine Function:_amtGoldInBank|<span style="color:#FF0000;font-weight:bold">amtGoldInBank</span>]](user) < 0x19)
{
[[Engine Function:_barkTo|<span style="color:#FF0000;font-weight:bold">barkTo</span>]](this, user, <span style="color:#800000">"Thou dost not have 25 gold in thy bank account."</span>);
<span style="color:#0000FF">return</span> ();
}
[[Engine Function:_barkTo|<span style="color:#FF0000;font-weight:bold">barkTo</span>]](Q4XN, user, <span style="color:#800000">"I charge 25 gold for docking thy ship. What ship do you want to dock?"</span>);
[[Engine Function:_targetObj|<span style="color:#FF0000;font-weight:bold">targetObj</span>]](user, Q4XN);
<span style="color:#0000FF">return</span> ();
}

<span style="color:#0000FF">trigger</span> speech(<span style="color:#800000">"*"</span>)
{
<span style="color:#0000FF">list</span> Q69B;
[[Engine Function:_split|<span style="color:#FF0000;font-weight:bold">split</span>]](Q69B, arg);
<span style="color:#0000FF">if</span> ([[Engine Function:_isInList|<span style="color:#FF0000;font-weight:bold">isInList</span>]](Q69B, <span style="color:#800000">"dock"</span>))
{
[[Script_Function:_Q425|<span style="color:#2B91AF">Q425</span>]](speaker, this);
<span style="color:#0000FF">return</span> (0x00);
}
<span style="color:#0000FF">else</span>
{
<span style="color:#0000FF">if</span> ([[Engine Function:_isInList|<span style="color:#FF0000;font-weight:bold">isInList</span>]](Q69B, <span style="color:#800000">"job"</span>))
{
[[Engine Function:_bark|<span style="color:#FF0000;font-weight:bold">bark</span>]](this, <span style="color:#800000">"I am a harbormaster. I dock ships for a fee."</span>);
<span style="color:#0000FF">return</span> (0x00);
}
}
<span style="color:#0000FF">return</span> (0x01);
}

<span style="color:#0000FF">trigger</span> targetobj
{
<span style="color:#0000FF">if</span> (usedon == [[Engine Function:_NULL|<span style="color:#FF0000;font-weight:bold">NULL</span>]]())
{
<span style="color:#0000FF">return</span> (0x00);
}
<span style="color:#0000FF">if</span> ([[Engine Function:_amtGoldInBank|<span style="color:#FF0000;font-weight:bold">amtGoldInBank</span>]](user) < 0x19)
{
[[Engine Function:_barkTo|<span style="color:#FF0000;font-weight:bold">barkTo</span>]](this, user, <span style="color:#800000">"Thou dost not have 25 gold in thy bank account."</span>);
<span style="color:#0000FF">return</span> (0x00);
}
<span style="color:#0000FF">if</span> (![[Engine Function:_isValid|<span style="color:#FF0000;font-weight:bold">isValid</span>]](usedon))
{
<span style="color:#0000FF">return</span> (0x00);
}
<span style="color:#0000FF">if</span> ([[Engine Function:_getDistanceInTiles|<span style="color:#FF0000;font-weight:bold">getDistanceInTiles</span>]]([[Engine Function:_getLocation|<span style="color:#FF0000;font-weight:bold">getLocation</span>]](this), [[Engine Function:_getLocation|<span style="color:#FF0000;font-weight:bold">getLocation</span>]](usedon)) > 0x64)
{
[[Engine Function:_barkTo|<span style="color:#FF0000;font-weight:bold">barkTo</span>]](this, user, <span style="color:#800000">"That is too far away."</span>);
<span style="color:#0000FF">return</span> (0x00);
}
<span style="color:#0000FF">if</span> ([[Engine Function:_isMultiComp|<span style="color:#FF0000;font-weight:bold">isMultiComp</span>]](usedon) && ([[Engine Function:_hasObjVar|<span style="color:#FF0000;font-weight:bold">hasObjVar</span>]]([[Engine Function:_getMultiSlaveId|<span style="color:#FF0000;font-weight:bold">getMultiSlaveId</span>]](usedon), <span style="color:#800000">"myshiptype"</span>)))
{
<span style="color:#0000FF">obj</span> ship = [[Engine Function:_getMultiSlaveId|<span style="color:#FF0000;font-weight:bold">getMultiSlaveId</span>]](usedon);
<span style="color:#0000FF">if</span> ([[Script_Function:_Q5SK|<span style="color:#2B91AF">Q5SK</span>]](ship, user))
{
<span style="color:#0000FF">obj</span> Q62K = [[Script_Function:_Q440|<span style="color:#2B91AF">Q440</span>]](ship, [[Engine Function:_getLocation|<span style="color:#FF0000;font-weight:bold">getLocation</span>]](this));
<span style="color:#0000FF">if</span> (Q62K == [[Engine Function:_NULL|<span style="color:#FF0000;font-weight:bold">NULL</span>]]())
{
[[Engine Function:_barkTo|<span style="color:#FF0000;font-weight:bold">barkTo</span>]](this, user, <span style="color:#800000">"I could not dock the ship."</span>);
[[Engine Function:_barkTo|<span style="color:#FF0000;font-weight:bold">barkTo</span>]](this, user, <span style="color:#800000">"Make sure the deck is clear and the hold is empty."</span>);
}
<span style="color:#0000FF">else</span>
{
<span style="color:#0000FF">int</span> Q527 = [[Engine Function:_withdrawAndDestroy|<span style="color:#FF0000;font-weight:bold">withdrawAndDestroy</span>]](user, 0x19);
<span style="color:#0000FF">int</span> Q528 = [[Engine Function:_toMobile|<span style="color:#FF0000;font-weight:bold">toMobile</span>]](Q62K, user);
[[Engine Function:_barkTo|<span style="color:#FF0000;font-weight:bold">barkTo</span>]](this, user, <span style="color:#800000">"Here is your claim ticket. I suggest you store it in your safety deposit box for safety."</span>);
}
}
<span style="color:#0000FF">else</span>
{
[[Engine Function:_barkTo|<span style="color:#FF0000;font-weight:bold">barkTo</span>]](this, user, <span style="color:#800000">"You must have the key to the ship you wish to dock."</span>);
}
}
<span style="color:#0000FF">else</span>
{
[[Engine Function:_barkTo|<span style="color:#FF0000;font-weight:bold">barkTo</span>]](this, user, <span style="color:#800000">"That is not a ship!"</span>);
}
<span style="color:#0000FF">return</span> (0x00);
}