Difference between revisions of "Script Function: Q4TP"

From Ultima Online: The Second Age
Jump to: navigation, search
(Created page with " <span style="color:#0000FF">function</span> <span style="color:#0000FF">int</span> Q4TP(<span style="color:#0000FF">obj</span> this, <span style="color:#0000FF">obj</span> s...")
 
 
Line 1: Line 1:
 +
  <span style="color:#0000FF">function</span> <span style="color:#0000FF">int</span> Q4TP(<span style="color:#0000FF">obj</span> this, <span style="color:#0000FF">obj</span> speaker, <span style="color:#0000FF">string</span> arg)
 +
  {
 +
    <span style="color:#0000FF">list</span> args;
 +
    [[Engine Function:_split|<span style="color:#FF0000;font-weight:bold">split</span>]](args, arg);
 +
    <span style="color:#0000FF">int</span> Q4QI = 0x00;
 +
    <span style="color:#0000FF">string</span> Q618;
 +
    <span style="color:#0000FF">list</span> Q5II;
 +
    <span style="color:#0000FF">int</span> Q699;
 +
    for(<span style="color:#0000FF">int</span> i = 0x00; i < [[Engine Function:_numInList|<span style="color:#FF0000;font-weight:bold">numInList</span>]](args); i++)
 +
    {
 +
      Q618 = args[i];
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"where"</span>)
 +
      {
 +
        Q4QI = 0x01;
 +
        <span style="color:#0000FF">if</span> (0x00)
 +
        {
 +
          [[Engine Function:_bark|<span style="color:#FF0000;font-weight:bold">bark</span>]](this, <span style="color:#800000">"Being asked where something is."</span>);
 +
        }
 +
        Q699 = i;
 +
      }
 +
    }
 +
    <span style="color:#0000FF">if</span> (!Q4QI)
 +
    {
 +
      <span style="color:#0000FF">return</span> (0x01);
 +
    }
 +
    ;
 +
    <span style="color:#0000FF">string</span> Q5QL = <span style="color:#800000">"nothing"</span>;
 +
    <span style="color:#0000FF">int</span> Q4TS = 0x00;
 +
    Q4QI = 0x00;
 +
    <span style="color:#0000FF">int</span> Q5J5 = 0x01;
 +
    for(i = Q699; i < [[Engine Function:_numInList|<span style="color:#FF0000;font-weight:bold">numInList</span>]](args); i++)
 +
    {
 +
      Q618 = args[i];
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"shrine"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"shrine"</span>;
 +
        Q4TS = 0x01;
 +
        Q5J5 = 0x00;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"britain"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"city_britain"</span>;
 +
        Q618 = <span style="color:#800000">"city of Britain"</span>;
 +
        Q4TS = 0x01;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"buccaneer"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"city_bucden"</span>;
 +
        Q618 = <span style="color:#800000">"island known as Buccaneer's Den"</span>;
 +
        Q4TS = 0x01;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"jhelom"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"city_jhelom"</span>;
 +
        Q618 = <span style="color:#800000">"city of Jhelom"</span>;
 +
        Q4TS = 0x01;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"magincia"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"city_magincia"</span>;
 +
        Q618 = <span style="color:#800000">"city of Magincia"</span>;
 +
        Q4TS = 0x01;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"vesper"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"city_vesper"</span>;
 +
        Q618 = <span style="color:#800000">"lovely city of Vesper"</span>;
 +
        Q4TS = 0x01;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"minoc"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"city_minoc"</span>;
 +
        Q618 = <span style="color:#800000">"rustic town of Minoc"</span>;
 +
        Q4TS = 0x01;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"moonglow"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"city_moonglow"</span>;
 +
        Q618 = <span style="color:#800000">"magical city of Moonglow"</span>;
 +
        Q4TS = 0x01;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"nujel"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"city_nujelm"</span>;
 +
        Q618 = <span style="color:#800000">"city of Nujel'm"</span>;
 +
        Q4TS = 0x01;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"ocllo"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"city_ocllo"</span>;
 +
        Q618 = <span style="color:#800000">"strange land called Ocllo"</span>;
 +
        Q4TS = 0x01;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"serpent"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"city_serphold"</span>;
 +
        Q618 = <span style="color:#800000">"fortress called Serpent's Hold"</span>;
 +
        Q4TS = 0x01;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"skara"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"city_skara"</span>;
 +
        Q618 = <span style="color:#800000">"town of Skara Brae"</span>;
 +
        Q4TS = 0x01;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"trinsic"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"city_trinsic"</span>;
 +
        Q618 = <span style="color:#800000">"walled city of Trinsic"</span>;
 +
        Q4TS = 0x01;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"yew"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"city_yew"</span>;
 +
        Q618 = <span style="color:#800000">"city of Yew"</span>;
 +
        Q4TS = 0x01;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"cove"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"city_cove"</span>;
 +
        Q618 = <span style="color:#800000">"township of Cove"</span>;
 +
        Q4TS = 0x01;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"abbey"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"abbey"</span>;
 +
        Q618 = <span style="color:#800000">"Empath Abbey"</span>;
 +
        Q4TS = 0x01;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"alchemist"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"alchemist"</span>;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"animal"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"animaltrainer"</span>;
 +
        Q618 = <span style="color:#800000">"animal trainer"</span>;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> ((Q618 == <span style="color:#800000">"armorer"</span>) || (Q618 == <span style="color:#800000">"armourer"</span>))
 +
      {
 +
        Q5QL = <span style="color:#800000">"armorer"</span>;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> ((Q618 == <span style="color:#800000">"artisans"</span>) || (Q618 == <span style="color:#800000">"artisan"</span>))
 +
      {
 +
        Q5QL = <span style="color:#800000">"artisansguild"</span>;
 +
        Q618 = <span style="color:#800000">"artisans guild"</span>;
 +
        Q4TS = 0x01;
 +
        <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"artisans"</span>)
 +
        {
 +
          Q5J5 = 0x00;
 +
        }
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> ((Q618 == <span style="color:#800000">"baker"</span>) || (Q618 == <span style="color:#800000">"bakery"</span>))
 +
      {
 +
        Q5QL = <span style="color:#800000">"baker"</span>;
 +
        <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"bakery"</span>)
 +
        {
 +
          Q5J5 = 0x00;
 +
        }
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"bank"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"bank"</span>;
 +
        Q4TS = 0x01;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> ((Q618 == <span style="color:#800000">"bard"</span>) || (Q618 == <span style="color:#800000">"bards"</span>))
 +
      {
 +
        Q5QL = <span style="color:#800000">"bard"</span>;
 +
        <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"bards"</span>)
 +
        {
 +
          Q5J5 = 0x00;
 +
        }
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> ((Q618 == <span style="color:#800000">"bath"</span>) || (Q618 == <span style="color:#800000">"baths"</span>))
 +
      {
 +
        Q5QL = <span style="color:#800000">"bath"</span>;
 +
        <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"baths"</span>)
 +
        {
 +
          Q5J5 = 0x00;
 +
        }
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"beekeeper"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"beekeeper"</span>;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> ((Q618 == <span style="color:#800000">"smith"</span>) || (Q618 == <span style="color:#800000">"blacksmith"</span>))
 +
      {
 +
        Q5QL = <span style="color:#800000">"blacksmith"</span>;
 +
        Q4QI = 0x01;
 +
        Q5J5 = 0x00;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"blackthorn"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"blackthornkeep"</span>;
 +
        Q618 == <span style="color:#800000">"Blackthorn's keep"</span>;
 +
        Q4TS = 0x01;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> ((Q618 == <span style="color:#800000">"bowyer"</span>) || (Q618 == <span style="color:#800000">"fletcher"</span>))
 +
      {
 +
        Q5QL = <span style="color:#800000">"bowyer"</span>;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"butcher"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"butcher"</span>;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"carpenter"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"carpenter"</span>;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"casino"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"casino"</span>;
 +
        Q4QI = 0x01;
 +
        Q5J5 = 0x00;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"cemetery"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"cemetery"</span>;
 +
        Q5J5 = 0x00;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"clothier"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"clothier"</span>;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"cobbler"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"cobbler"</span>;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"court"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"court"</span>;
 +
        Q4QI = 0x01;
 +
        Q4TS = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"customs"</span>)
 +
      {
 +
        Q5QL == <span style="color:#800000">"customs"</span>;
 +
        Q4QI = 0x01;
 +
        Q5J5 = 0x00;
 +
      }
 +
      <span style="color:#0000FF">if</span> ((Q618 == <span style="color:#800000">"docks"</span>) || (Q618 == <span style="color:#800000">"dock"</span>))
 +
      {
 +
        Q5QL = <span style="color:#800000">"docks"</span>;
 +
        Q4QI = 0x01;
 +
        <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"docks"</span>)
 +
        {
 +
          Q5J5 = 0x00;
 +
        }
 +
        Q4TS = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> ((Q618 == <span style="color:#800000">"duel"</span>) || (Q618 == <span style="color:#800000">"pit"</span>))
 +
      {
 +
        Q5QL = <span style="color:#800000">"duelpit"</span>;
 +
        Q618 == <span style="color:#800000">"dueling pit"</span>;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"farm"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"farm"</span>;
 +
        Q4TS = 0x01;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"fish"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"fishery"</span>;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"glassblower"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"glassblower"</span>;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> ((Q618 == <span style="color:#800000">"gypsy"</span>) || (Q618 == <span style="color:#800000">"gypsies"</span>))
 +
      {
 +
        Q5QL = <span style="color:#800000">"gypsy"</span>;
 +
        <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"gypsies"</span>)
 +
        {
 +
          Q5J5 = 0x00;
 +
        }
 +
        Q4TS = 0x01;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"healer"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"healer"</span>;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"herbalist"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"herbalist"</span>;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> ((Q618 == <span style="color:#800000">"inn"</span>) || (Q618 == <span style="color:#800000">"hostel"</span>))
 +
      {
 +
        Q5QL = <span style="color:#800000">"inn"</span>;
 +
        Q4TS = 0x01;
 +
        Q4QI = 0x01;
 +
        Q5J5 = 0x00;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"jail"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"jail"</span>;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"jeweler"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"jeweler"</span>;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"castle"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"lbcastle"</span>;
 +
        Q4TS = 0x01;
 +
        Q5J5 = 0x00;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"library"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"library"</span>;
 +
        Q4QI = 0x01;
 +
        Q5J5 = 0x00;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"lighthouse"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"lighthouse"</span>;
 +
        Q4TS = 0x01;
 +
        Q5J5 = 0x00;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> ((Q618 == <span style="color:#800000">"magic"</span>) || (Q618 == <span style="color:#800000">"mage"</span>))
 +
      {
 +
        Q5QL = <span style="color:#800000">"magic"</span>;
 +
        Q4QI = 0x01;
 +
        Q618 = <span style="color:#800000">"mage"</span>;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"merchant"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"merchant"</span>;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"mill"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"mill"</span>;
 +
        Q4QI = 0x01;
 +
        Q5J5 = 0x00;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"observatory"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"observatory"</span>;
 +
        Q5J5 = 0x00;
 +
        Q4TS = 0x01;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"painter"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"painter"</span>;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"paladin"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"paladin"</span>;
 +
        Q4TS = 0x01;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"provisioner"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"provisioner"</span>;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"shipwright"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"shipwright"</span>;
 +
        Q4TS = 0x01;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> ((Q618 == <span style="color:#800000">"stable"</span>) || (Q618 == <span style="color:#800000">"stables"</span>))
 +
      {
 +
        Q5QL = <span style="color:#800000">"stable"</span>;
 +
        <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"stables"</span>)
 +
        {
 +
          Q5J5 = 0x00;
 +
        }
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"tanner"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"tanner"</span>;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> ((Q618 == <span style="color:#800000">"tavern"</span>) || ((Q618 == <span style="color:#800000">"pub"</span>) || (Q618 == <span style="color:#800000">"bar"</span>)))
 +
      {
 +
        Q5QL = <span style="color:#800000">"tavern"</span>;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"temple"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"temple"</span>;
 +
        Q4QI = 0x01;
 +
        Q5J5 = 0x00;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"theater"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"theater"</span>;
 +
        Q4QI = 0x01;
 +
        Q5J5 = 0x00;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"tinker"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"tinker"</span>;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> ((Q618 == <span style="color:#800000">"vet"</span>) || (Q618 == <span style="color:#800000">"veterinarian"</span>))
 +
      {
 +
        Q5QL = <span style="color:#800000">"vet"</span>;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> ((Q618 == <span style="color:#800000">"weapons"</span>) || (Q618 == <span style="color:#800000">"weaponeer"</span>))
 +
      {
 +
        Q5QL = <span style="color:#800000">"weaponry"</span>;
 +
        Q4QI = 0x01;
 +
        <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"weapons"</span>)
 +
        {
 +
          Q5J5 = 0x00;
 +
        }
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"trainer"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"weapontrainer"</span>;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"woodworker"</span>)
 +
      {
 +
        Q5QL = <span style="color:#800000">"woodworker"</span>;
 +
        Q4TS = 0x01;
 +
        Q4QI = 0x01;
 +
      }
 +
      <span style="color:#0000FF">if</span> (Q618 == <span style="color:#800000">"guild"</span>)
 +
      {
 +
        <span style="color:#0000FF">string</span> Q5QO;
 +
        <span style="color:#0000FF">string</span> Q4QT;
 +
        Q4TS = 0x01;
 +
        for(<span style="color:#0000FF">int</span> Q518 = 0x00; Q518 < [[Engine Function:_numInList|<span style="color:#FF0000;font-weight:bold">numInList</span>]](args); Q518++)
 +
        {
 +
          Q5QO = args[Q518];
 +
          <span style="color:#0000FF">if</span> (Q5QO == <span style="color:#800000">"bard"</span>)
 +
          {
 +
            Q4QT = <span style="color:#800000">"bardic guild"</span>;
 +
            Q5QL = <span style="color:#800000">"bardguild"</span>;
 +
            Q4QI = 0x01;
 +
          }
 +
          <span style="color:#0000FF">if</span> ((Q5QO == <span style="color:#800000">"fighter"</span>) || (Q5QO == <span style="color:#800000">"warrior"</span>))
 +
          {
 +
            Q4QT = <span style="color:#800000">"warrior's guild"</span>;
 +
            Q5QL = <span style="color:#800000">"fighterguild"</span>;
 +
            Q4QI = 0x01;
 +
          }
 +
          <span style="color:#0000FF">if</span> (Q5QO == <span style="color:#800000">"healer"</span>)
 +
          {
 +
            Q4QT = <span style="color:#800000">"healer's guild"</span>;
 +
            Q5QL = <span style="color:#800000">"healer"</span>;
 +
            Q4QI = 0x01;
 +
          }
 +
          <span style="color:#0000FF">if</span> (Q5QO == <span style="color:#800000">"merchant"</span>)
 +
          {
 +
            Q4QT = <span style="color:#800000">"merchant's guild"</span>;
 +
            Q5QL = <span style="color:#800000">"merchantguild"</span>;
 +
            Q4QI = 0x01;
 +
          }
 +
          <span style="color:#0000FF">if</span> (Q5QO == <span style="color:#800000">"miner"</span>)
 +
          {
 +
            Q4QT = <span style="color:#800000">"miner's guild"</span>;
 +
            Q5QL = <span style="color:#800000">"minerguild"</span>;
 +
            Q4QI = 0x01;
 +
          }
 +
          <span style="color:#0000FF">if</span> (Q5QO == <span style="color:#800000">"ranger"</span>)
 +
          {
 +
            Q4QT = <span style="color:#800000">"ranger's guild"</span>;
 +
            Q5QL = <span style="color:#800000">"rangerguild"</span>;
 +
            Q4QI = 0x01;
 +
          }
 +
          <span style="color:#0000FF">if</span> (Q5QO == <span style="color:#800000">"tailor"</span>)
 +
          {
 +
            Q4QT = <span style="color:#800000">"tailor's guild"</span>;
 +
            Q5QL = <span style="color:#800000">"tailorguild"</span>;
 +
            Q4QI = 0x01;
 +
          }
 +
          <span style="color:#0000FF">if</span> (Q5QO == <span style="color:#800000">"tinker"</span>)
 +
          {
 +
            Q4QT = <span style="color:#800000">"tinker's guild"</span>;
 +
            Q5QL = <span style="color:#800000">"tinkerguild"</span>;
 +
            Q4QI = 0x01;
 +
          }
 +
        }
 +
      }
 +
    }
 +
    <span style="color:#0000FF">if</span> (!Q4QI)
 +
    {
 +
      <span style="color:#0000FF">if</span> (0x00)
 +
      {
 +
        [[Engine Function:_bark|<span style="color:#FF0000;font-weight:bold">bark</span>]](this, <span style="color:#800000">"Asked direction to nowhere I recognize."</span>);
 +
      }
 +
      <span style="color:#0000FF">return</span> (0x01);
 +
    }
 +
    <span style="color:#0000FF">string</span> Q601;
 +
    <span style="color:#0000FF">loc</span> Q5ZU;
 +
    <span style="color:#0000FF">loc</span> Q4VS = [[Engine Function:_getLocation|<span style="color:#FF0000;font-weight:bold">getLocation</span>]](this);
 +
    Q4QI = [[Engine Function:_findClosestArea|<span style="color:#FF0000;font-weight:bold">findClosestArea</span>]](Q601, Q5ZU, Q5QL, Q4VS, Q4TS);
 +
    <span style="color:#0000FF">if</span> (Q601 == <span style="color:#800000">""</span>)
 +
    {
 +
      <span style="color:#0000FF">if</span> (Q4QT == <span style="color:#800000">""</span>)
 +
      {
 +
        <span style="color:#0000FF">if</span> (Q5J5 == 0x00)
 +
        {
 +
          Q601 = Q618 + <span style="color:#800000">"s"</span>;
 +
        }
 +
        <span style="color:#0000FF">else</span>
 +
        {
 +
          Q601 = Q618;
 +
        }
 +
      }
 +
      <span style="color:#0000FF">else</span>
 +
      {
 +
        Q601 = Q4QT;
 +
      }
 +
    }
 +
    [[Engine Function:_split|<span style="color:#FF0000;font-weight:bold">split</span>]](args, Q601);
 +
    Q5QO = args[0x00];
 +
    <span style="color:#0000FF">if</span> (Q5QO == <span style="color:#800000">"the"</span>)
 +
    {
 +
      Q618 = <span style="color:#800000">""</span>;
 +
    }
 +
    <span style="color:#0000FF">else</span>
 +
    {
 +
      Q618 = <span style="color:#800000">"the "</span>;
 +
    }
 +
    <span style="color:#0000FF">string</span> Q5N7 = <span style="color:#800000">"Thou seekest "</span> + Q618 + Q601 + <span style="color:#800000">"?"</span>;
 +
    [[Engine Function:_bark|<span style="color:#FF0000;font-weight:bold">bark</span>]](this, Q5N7);
 +
    [[Script_Function:_Q4J9|<span style="color:#2B91AF">Q4J9</span>]](this);
 +
    <span style="color:#0000FF">if</span> (!Q4QI)
 +
    {
 +
      [[Engine Function:_bark|<span style="color:#FF0000;font-weight:bold">bark</span>]](this, <span style="color:#800000">"I know not where to find that."</span>);
 +
      <span style="color:#0000FF">return</span> (0x00);
 +
    }
 +
    <span style="color:#0000FF">string</span> Q602 = [[Engine Function:_getDirection|<span style="color:#FF0000;font-weight:bold">getDirection</span>]](Q4VS, Q5ZU);
 +
    <span style="color:#0000FF">string</span> Q603 = [[Engine Function:_getDistance|<span style="color:#FF0000;font-weight:bold">getDistance</span>]](Q4VS, Q5ZU);
 +
    Q5N7 = <span style="color:#800000">"'Tis "</span> + Q603 + <span style="color:#800000">" "</span> + Q602 + <span style="color:#800000">" from here."</span>;
 +
    <span style="color:#0000FF">if</span> (Q603 == <span style="color:#800000">"right here"</span>)
 +
    {
 +
      Q5N7 = <span style="color:#800000">"But 'tis "</span> + Q603 + <span style="color:#800000">"! Look thee "</span> + Q602 + <span style="color:#800000">"."</span>;
 +
    }
 +
    [[Engine Function:_bark|<span style="color:#FF0000;font-weight:bold">bark</span>]](this, Q5N7);
 +
    <span style="color:#0000FF">return</span> (0x00);
 +
  }
 +
 
   <span style="color:#0000FF">function</span> <span style="color:#0000FF">int</span> Q4TP(<span style="color:#0000FF">obj</span> this, <span style="color:#0000FF">obj</span> speaker, <span style="color:#0000FF">string</span> arg)
 
   <span style="color:#0000FF">function</span> <span style="color:#0000FF">int</span> Q4TP(<span style="color:#0000FF">obj</span> this, <span style="color:#0000FF">obj</span> speaker, <span style="color:#0000FF">string</span> arg)
 
   {
 
   {

Latest revision as of 15:41, 12 October 2018

 function int Q4TP(obj this, obj speaker, string arg)
 {
   list args;
   split(args, arg);
   int Q4QI = 0x00;
   string Q618;
   list Q5II;
   int Q699;
   for(int i = 0x00; i < numInList(args); i++)
   {
     Q618 = args[i];
     if (Q618 == "where")
     {
       Q4QI = 0x01;
       if (0x00)
       {
         bark(this, "Being asked where something is.");
       }
       Q699 = i;
     }
   }
   if (!Q4QI)
   {
     return (0x01);
   }
   ;
   string Q5QL = "nothing";
   int Q4TS = 0x00;
   Q4QI = 0x00;
   int Q5J5 = 0x01;
   for(i = Q699; i < numInList(args); i++)
   {
     Q618 = args[i];
     if (Q618 == "shrine")
     {
       Q5QL = "shrine";
       Q4TS = 0x01;
       Q5J5 = 0x00;
       Q4QI = 0x01;
     }
     if (Q618 == "britain")
     {
       Q5QL = "city_britain";
       Q618 = "city of Britain";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "buccaneer")
     {
       Q5QL = "city_bucden";
       Q618 = "island known as Buccaneer's Den";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "jhelom")
     {
       Q5QL = "city_jhelom";
       Q618 = "city of Jhelom";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "magincia")
     {
       Q5QL = "city_magincia";
       Q618 = "city of Magincia";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "vesper")
     {
       Q5QL = "city_vesper";
       Q618 = "lovely city of Vesper";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "minoc")
     {
       Q5QL = "city_minoc";
       Q618 = "rustic town of Minoc";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "moonglow")
     {
       Q5QL = "city_moonglow";
       Q618 = "magical city of Moonglow";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "nujel")
     {
       Q5QL = "city_nujelm";
       Q618 = "city of Nujel'm";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "ocllo")
     {
       Q5QL = "city_ocllo";
       Q618 = "strange land called Ocllo";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "serpent")
     {
       Q5QL = "city_serphold";
       Q618 = "fortress called Serpent's Hold";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "skara")
     {
       Q5QL = "city_skara";
       Q618 = "town of Skara Brae";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "trinsic")
     {
       Q5QL = "city_trinsic";
       Q618 = "walled city of Trinsic";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "yew")
     {
       Q5QL = "city_yew";
       Q618 = "city of Yew";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "cove")
     {
       Q5QL = "city_cove";
       Q618 = "township of Cove";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "abbey")
     {
       Q5QL = "abbey";
       Q618 = "Empath Abbey";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "alchemist")
     {
       Q5QL = "alchemist";
       Q4QI = 0x01;
     }
     if (Q618 == "animal")
     {
       Q5QL = "animaltrainer";
       Q618 = "animal trainer";
       Q4QI = 0x01;
     }
     if ((Q618 == "armorer") || (Q618 == "armourer"))
     {
       Q5QL = "armorer";
       Q4QI = 0x01;
     }
     if ((Q618 == "artisans") || (Q618 == "artisan"))
     {
       Q5QL = "artisansguild";
       Q618 = "artisans guild";
       Q4TS = 0x01;
       if (Q618 == "artisans")
       {
         Q5J5 = 0x00;
       }
       Q4QI = 0x01;
     }
     if ((Q618 == "baker") || (Q618 == "bakery"))
     {
       Q5QL = "baker";
       if (Q618 == "bakery")
       {
         Q5J5 = 0x00;
       }
       Q4QI = 0x01;
     }
     if (Q618 == "bank")
     {
       Q5QL = "bank";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if ((Q618 == "bard") || (Q618 == "bards"))
     {
       Q5QL = "bard";
       if (Q618 == "bards")
       {
         Q5J5 = 0x00;
       }
       Q4QI = 0x01;
     }
     if ((Q618 == "bath") || (Q618 == "baths"))
     {
       Q5QL = "bath";
       if (Q618 == "baths")
       {
         Q5J5 = 0x00;
       }
       Q4QI = 0x01;
     }
     if (Q618 == "beekeeper")
     {
       Q5QL = "beekeeper";
       Q4QI = 0x01;
     }
     if ((Q618 == "smith") || (Q618 == "blacksmith"))
     {
       Q5QL = "blacksmith";
       Q4QI = 0x01;
       Q5J5 = 0x00;
     }
     if (Q618 == "blackthorn")
     {
       Q5QL = "blackthornkeep";
       Q618 == "Blackthorn's keep";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if ((Q618 == "bowyer") || (Q618 == "fletcher"))
     {
       Q5QL = "bowyer";
       Q4QI = 0x01;
     }
     if (Q618 == "butcher")
     {
       Q5QL = "butcher";
       Q4QI = 0x01;
     }
     if (Q618 == "carpenter")
     {
       Q5QL = "carpenter";
       Q4QI = 0x01;
     }
     if (Q618 == "casino")
     {
       Q5QL = "casino";
       Q4QI = 0x01;
       Q5J5 = 0x00;
     }
     if (Q618 == "cemetery")
     {
       Q5QL = "cemetery";
       Q5J5 = 0x00;
       Q4QI = 0x01;
     }
     if (Q618 == "clothier")
     {
       Q5QL = "clothier";
       Q4QI = 0x01;
     }
     if (Q618 == "cobbler")
     {
       Q5QL = "cobbler";
       Q4QI = 0x01;
     }
     if (Q618 == "court")
     {
       Q5QL = "court";
       Q4QI = 0x01;
       Q4TS = 0x01;
     }
     if (Q618 == "customs")
     {
       Q5QL == "customs";
       Q4QI = 0x01;
       Q5J5 = 0x00;
     }
     if ((Q618 == "docks") || (Q618 == "dock"))
     {
       Q5QL = "docks";
       Q4QI = 0x01;
       if (Q618 == "docks")
       {
         Q5J5 = 0x00;
       }
       Q4TS = 0x01;
     }
     if ((Q618 == "duel") || (Q618 == "pit"))
     {
       Q5QL = "duelpit";
       Q618 == "dueling pit";
       Q4QI = 0x01;
     }
     if (Q618 == "farm")
     {
       Q5QL = "farm";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "fish")
     {
       Q5QL = "fishery";
       Q4QI = 0x01;
     }
     if (Q618 == "glassblower")
     {
       Q5QL = "glassblower";
       Q4QI = 0x01;
     }
     if ((Q618 == "gypsy") || (Q618 == "gypsies"))
     {
       Q5QL = "gypsy";
       if (Q618 == "gypsies")
       {
         Q5J5 = 0x00;
       }
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "healer")
     {
       Q5QL = "healer";
       Q4QI = 0x01;
     }
     if (Q618 == "herbalist")
     {
       Q5QL = "herbalist";
       Q4QI = 0x01;
     }
     if ((Q618 == "inn") || (Q618 == "hostel"))
     {
       Q5QL = "inn";
       Q4TS = 0x01;
       Q4QI = 0x01;
       Q5J5 = 0x00;
     }
     if (Q618 == "jail")
     {
       Q5QL = "jail";
       Q4QI = 0x01;
     }
     if (Q618 == "jeweler")
     {
       Q5QL = "jeweler";
       Q4QI = 0x01;
     }
     if (Q618 == "castle")
     {
       Q5QL = "lbcastle";
       Q4TS = 0x01;
       Q5J5 = 0x00;
       Q4QI = 0x01;
     }
     if (Q618 == "library")
     {
       Q5QL = "library";
       Q4QI = 0x01;
       Q5J5 = 0x00;
     }
     if (Q618 == "lighthouse")
     {
       Q5QL = "lighthouse";
       Q4TS = 0x01;
       Q5J5 = 0x00;
       Q4QI = 0x01;
     }
     if ((Q618 == "magic") || (Q618 == "mage"))
     {
       Q5QL = "magic";
       Q4QI = 0x01;
       Q618 = "mage";
     }
     if (Q618 == "merchant")
     {
       Q5QL = "merchant";
       Q4QI = 0x01;
     }
     if (Q618 == "mill")
     {
       Q5QL = "mill";
       Q4QI = 0x01;
       Q5J5 = 0x00;
     }
     if (Q618 == "observatory")
     {
       Q5QL = "observatory";
       Q5J5 = 0x00;
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "painter")
     {
       Q5QL = "painter";
       Q4QI = 0x01;
     }
     if (Q618 == "paladin")
     {
       Q5QL = "paladin";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "provisioner")
     {
       Q5QL = "provisioner";
       Q4QI = 0x01;
     }
     if (Q618 == "shipwright")
     {
       Q5QL = "shipwright";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if ((Q618 == "stable") || (Q618 == "stables"))
     {
       Q5QL = "stable";
       if (Q618 == "stables")
       {
         Q5J5 = 0x00;
       }
       Q4QI = 0x01;
     }
     if (Q618 == "tanner")
     {
       Q5QL = "tanner";
       Q4QI = 0x01;
     }
     if ((Q618 == "tavern") || ((Q618 == "pub") || (Q618 == "bar")))
     {
       Q5QL = "tavern";
       Q4QI = 0x01;
     }
     if (Q618 == "temple")
     {
       Q5QL = "temple";
       Q4QI = 0x01;
       Q5J5 = 0x00;
     }
     if (Q618 == "theater")
     {
       Q5QL = "theater";
       Q4QI = 0x01;
       Q5J5 = 0x00;
     }
     if (Q618 == "tinker")
     {
       Q5QL = "tinker";
       Q4QI = 0x01;
     }
     if ((Q618 == "vet") || (Q618 == "veterinarian"))
     {
       Q5QL = "vet";
       Q4QI = 0x01;
     }
     if ((Q618 == "weapons") || (Q618 == "weaponeer"))
     {
       Q5QL = "weaponry";
       Q4QI = 0x01;
       if (Q618 == "weapons")
       {
         Q5J5 = 0x00;
       }
     }
     if (Q618 == "trainer")
     {
       Q5QL = "weapontrainer";
       Q4QI = 0x01;
     }
     if (Q618 == "woodworker")
     {
       Q5QL = "woodworker";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "guild")
     {
       string Q5QO;
       string Q4QT;
       Q4TS = 0x01;
       for(int Q518 = 0x00; Q518 < numInList(args); Q518++)
       {
         Q5QO = args[Q518];
         if (Q5QO == "bard")
         {
           Q4QT = "bardic guild";
           Q5QL = "bardguild";
           Q4QI = 0x01;
         }
         if ((Q5QO == "fighter") || (Q5QO == "warrior"))
         {
           Q4QT = "warrior's guild";
           Q5QL = "fighterguild";
           Q4QI = 0x01;
         }
         if (Q5QO == "healer")
         {
           Q4QT = "healer's guild";
           Q5QL = "healer";
           Q4QI = 0x01;
         }
         if (Q5QO == "merchant")
         {
           Q4QT = "merchant's guild";
           Q5QL = "merchantguild";
           Q4QI = 0x01;
         }
         if (Q5QO == "miner")
         {
           Q4QT = "miner's guild";
           Q5QL = "minerguild";
           Q4QI = 0x01;
         }
         if (Q5QO == "ranger")
         {
           Q4QT = "ranger's guild";
           Q5QL = "rangerguild";
           Q4QI = 0x01;
         }
         if (Q5QO == "tailor")
         {
           Q4QT = "tailor's guild";
           Q5QL = "tailorguild";
           Q4QI = 0x01;
         }
         if (Q5QO == "tinker")
         {
           Q4QT = "tinker's guild";
           Q5QL = "tinkerguild";
           Q4QI = 0x01;
         }
       }
     }
   }
   if (!Q4QI)
   {
     if (0x00)
     {
       bark(this, "Asked direction to nowhere I recognize.");
     }
     return (0x01);
   }
   string Q601;
   loc Q5ZU;
   loc Q4VS = getLocation(this);
   Q4QI = findClosestArea(Q601, Q5ZU, Q5QL, Q4VS, Q4TS);
   if (Q601 == "")
   {
     if (Q4QT == "")
     {
       if (Q5J5 == 0x00)
       {
         Q601 = Q618 + "s";
       }
       else
       {
         Q601 = Q618;
       }
     }
     else
     {
       Q601 = Q4QT;
     }
   }
   split(args, Q601);
   Q5QO = args[0x00];
   if (Q5QO == "the")
   {
     Q618 = "";
   }
   else
   {
     Q618 = "the ";
   }
   string Q5N7 = "Thou seekest " + Q618 + Q601 + "?";
   bark(this, Q5N7);
   Q4J9(this);
   if (!Q4QI)
   {
     bark(this, "I know not where to find that.");
     return (0x00);
   }
   string Q602 = getDirection(Q4VS, Q5ZU);
   string Q603 = getDistance(Q4VS, Q5ZU);
   Q5N7 = "'Tis " + Q603 + " " + Q602 + " from here.";
   if (Q603 == "right here")
   {
     Q5N7 = "But 'tis " + Q603 + "! Look thee " + Q602 + ".";
   }
   bark(this, Q5N7);
   return (0x00);
 }

 function int Q4TP(obj this, obj speaker, string arg)
 {
   list args;
   split(args, arg);
   int Q4QI = 0x00;
   string Q618;
   list Q5II;
   int Q699;
   for(int i = 0x00; i < numInList(args); i++)
   {
     Q618 = args[i];
     if (Q618 == "where")
     {
       Q4QI = 0x01;
       if (0x00)
       {
         bark(this, "Being asked where something is.");
       }
       Q699 = i;
     }
   }
   if (!Q4QI)
   {
     return (0x01);
   }
   ;
   string Q5QL = "nothing";
   int Q4TS = 0x00;
   Q4QI = 0x00;
   int Q5J5 = 0x01;
   for(i = Q699; i < numInList(args); i++)
   {
     Q618 = args[i];
     if (Q618 == "shrine")
     {
       Q5QL = "shrine";
       Q4TS = 0x01;
       Q5J5 = 0x00;
       Q4QI = 0x01;
     }
     if (Q618 == "britain")
     {
       Q5QL = "city_britain";
       Q618 = "city of Britain";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "buccaneer")
     {
       Q5QL = "city_bucden";
       Q618 = "island known as Buccaneer's Den";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "jhelom")
     {
       Q5QL = "city_jhelom";
       Q618 = "city of Jhelom";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "magincia")
     {
       Q5QL = "city_magincia";
       Q618 = "city of Magincia";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "vesper")
     {
       Q5QL = "city_vesper";
       Q618 = "lovely city of Vesper";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "minoc")
     {
       Q5QL = "city_minoc";
       Q618 = "rustic town of Minoc";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "moonglow")
     {
       Q5QL = "city_moonglow";
       Q618 = "magical city of Moonglow";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "nujel")
     {
       Q5QL = "city_nujelm";
       Q618 = "city of Nujel'm";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "ocllo")
     {
       Q5QL = "city_ocllo";
       Q618 = "strange land called Ocllo";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "serpent")
     {
       Q5QL = "city_serphold";
       Q618 = "fortress called Serpent's Hold";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "skara")
     {
       Q5QL = "city_skara";
       Q618 = "town of Skara Brae";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "trinsic")
     {
       Q5QL = "city_trinsic";
       Q618 = "walled city of Trinsic";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "yew")
     {
       Q5QL = "city_yew";
       Q618 = "city of Yew";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "cove")
     {
       Q5QL = "city_cove";
       Q618 = "township of Cove";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "abbey")
     {
       Q5QL = "abbey";
       Q618 = "Empath Abbey";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "alchemist")
     {
       Q5QL = "alchemist";
       Q4QI = 0x01;
     }
     if (Q618 == "animal")
     {
       Q5QL = "animaltrainer";
       Q618 = "animal trainer";
       Q4QI = 0x01;
     }
     if ((Q618 == "armorer") || (Q618 == "armourer"))
     {
       Q5QL = "armorer";
       Q4QI = 0x01;
     }
     if ((Q618 == "artisans") || (Q618 == "artisan"))
     {
       Q5QL = "artisansguild";
       Q618 = "artisans guild";
       Q4TS = 0x01;
       if (Q618 == "artisans")
       {
         Q5J5 = 0x00;
       }
       Q4QI = 0x01;
     }
     if ((Q618 == "baker") || (Q618 == "bakery"))
     {
       Q5QL = "baker";
       if (Q618 == "bakery")
       {
         Q5J5 = 0x00;
       }
       Q4QI = 0x01;
     }
     if (Q618 == "bank")
     {
       Q5QL = "bank";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if ((Q618 == "bard") || (Q618 == "bards"))
     {
       Q5QL = "bard";
       if (Q618 == "bards")
       {
         Q5J5 = 0x00;
       }
       Q4QI = 0x01;
     }
     if ((Q618 == "bath") || (Q618 == "baths"))
     {
       Q5QL = "bath";
       if (Q618 == "baths")
       {
         Q5J5 = 0x00;
       }
       Q4QI = 0x01;
     }
     if (Q618 == "beekeeper")
     {
       Q5QL = "beekeeper";
       Q4QI = 0x01;
     }
     if ((Q618 == "smith") || (Q618 == "blacksmith"))
     {
       Q5QL = "blacksmith";
       Q4QI = 0x01;
       Q5J5 = 0x00;
     }
     if (Q618 == "blackthorn")
     {
       Q5QL = "blackthornkeep";
       Q618 == "Blackthorn's keep";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if ((Q618 == "bowyer") || (Q618 == "fletcher"))
     {
       Q5QL = "bowyer";
       Q4QI = 0x01;
     }
     if (Q618 == "butcher")
     {
       Q5QL = "butcher";
       Q4QI = 0x01;
     }
     if (Q618 == "carpenter")
     {
       Q5QL = "carpenter";
       Q4QI = 0x01;
     }
     if (Q618 == "casino")
     {
       Q5QL = "casino";
       Q4QI = 0x01;
       Q5J5 = 0x00;
     }
     if (Q618 == "cemetery")
     {
       Q5QL = "cemetery";
       Q5J5 = 0x00;
       Q4QI = 0x01;
     }
     if (Q618 == "clothier")
     {
       Q5QL = "clothier";
       Q4QI = 0x01;
     }
     if (Q618 == "cobbler")
     {
       Q5QL = "cobbler";
       Q4QI = 0x01;
     }
     if (Q618 == "court")
     {
       Q5QL = "court";
       Q4QI = 0x01;
       Q4TS = 0x01;
     }
     if (Q618 == "customs")
     {
       Q5QL == "customs";
       Q4QI = 0x01;
       Q5J5 = 0x00;
     }
     if ((Q618 == "docks") || (Q618 == "dock"))
     {
       Q5QL = "docks";
       Q4QI = 0x01;
       if (Q618 == "docks")
       {
         Q5J5 = 0x00;
       }
       Q4TS = 0x01;
     }
     if ((Q618 == "duel") || (Q618 == "pit"))
     {
       Q5QL = "duelpit";
       Q618 == "dueling pit";
       Q4QI = 0x01;
     }
     if (Q618 == "farm")
     {
       Q5QL = "farm";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "fish")
     {
       Q5QL = "fishery";
       Q4QI = 0x01;
     }
     if (Q618 == "glassblower")
     {
       Q5QL = "glassblower";
       Q4QI = 0x01;
     }
     if ((Q618 == "gypsy") || (Q618 == "gypsies"))
     {
       Q5QL = "gypsy";
       if (Q618 == "gypsies")
       {
         Q5J5 = 0x00;
       }
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "healer")
     {
       Q5QL = "healer";
       Q4QI = 0x01;
     }
     if (Q618 == "herbalist")
     {
       Q5QL = "herbalist";
       Q4QI = 0x01;
     }
     if ((Q618 == "inn") || (Q618 == "hostel"))
     {
       Q5QL = "inn";
       Q4TS = 0x01;
       Q4QI = 0x01;
       Q5J5 = 0x00;
     }
     if (Q618 == "jail")
     {
       Q5QL = "jail";
       Q4QI = 0x01;
     }
     if (Q618 == "jeweler")
     {
       Q5QL = "jeweler";
       Q4QI = 0x01;
     }
     if (Q618 == "castle")
     {
       Q5QL = "lbcastle";
       Q4TS = 0x01;
       Q5J5 = 0x00;
       Q4QI = 0x01;
     }
     if (Q618 == "library")
     {
       Q5QL = "library";
       Q4QI = 0x01;
       Q5J5 = 0x00;
     }
     if (Q618 == "lighthouse")
     {
       Q5QL = "lighthouse";
       Q4TS = 0x01;
       Q5J5 = 0x00;
       Q4QI = 0x01;
     }
     if ((Q618 == "magic") || (Q618 == "mage"))
     {
       Q5QL = "magic";
       Q4QI = 0x01;
       Q618 = "mage";
     }
     if (Q618 == "merchant")
     {
       Q5QL = "merchant";
       Q4QI = 0x01;
     }
     if (Q618 == "mill")
     {
       Q5QL = "mill";
       Q4QI = 0x01;
       Q5J5 = 0x00;
     }
     if (Q618 == "observatory")
     {
       Q5QL = "observatory";
       Q5J5 = 0x00;
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "painter")
     {
       Q5QL = "painter";
       Q4QI = 0x01;
     }
     if (Q618 == "paladin")
     {
       Q5QL = "paladin";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "provisioner")
     {
       Q5QL = "provisioner";
       Q4QI = 0x01;
     }
     if (Q618 == "shipwright")
     {
       Q5QL = "shipwright";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if ((Q618 == "stable") || (Q618 == "stables"))
     {
       Q5QL = "stable";
       if (Q618 == "stables")
       {
         Q5J5 = 0x00;
       }
       Q4QI = 0x01;
     }
     if (Q618 == "tanner")
     {
       Q5QL = "tanner";
       Q4QI = 0x01;
     }
     if ((Q618 == "tavern") || ((Q618 == "pub") || (Q618 == "bar")))
     {
       Q5QL = "tavern";
       Q4QI = 0x01;
     }
     if (Q618 == "temple")
     {
       Q5QL = "temple";
       Q4QI = 0x01;
       Q5J5 = 0x00;
     }
     if (Q618 == "theater")
     {
       Q5QL = "theater";
       Q4QI = 0x01;
       Q5J5 = 0x00;
     }
     if (Q618 == "tinker")
     {
       Q5QL = "tinker";
       Q4QI = 0x01;
     }
     if ((Q618 == "vet") || (Q618 == "veterinarian"))
     {
       Q5QL = "vet";
       Q4QI = 0x01;
     }
     if ((Q618 == "weapons") || (Q618 == "weaponeer"))
     {
       Q5QL = "weaponry";
       Q4QI = 0x01;
       if (Q618 == "weapons")
       {
         Q5J5 = 0x00;
       }
     }
     if (Q618 == "trainer")
     {
       Q5QL = "weapontrainer";
       Q4QI = 0x01;
     }
     if (Q618 == "woodworker")
     {
       Q5QL = "woodworker";
       Q4TS = 0x01;
       Q4QI = 0x01;
     }
     if (Q618 == "guild")
     {
       string Q5QO;
       string Q4QT;
       Q4TS = 0x01;
       for(int Q518 = 0x00; Q518 < numInList(args); Q518++)
       {
         Q5QO = args[Q518];
         if (Q5QO == "bard")
         {
           Q4QT = "bardic guild";
           Q5QL = "bardguild";
           Q4QI = 0x01;
         }
         if ((Q5QO == "fighter") || (Q5QO == "warrior"))
         {
           Q4QT = "warrior's guild";
           Q5QL = "fighterguild";
           Q4QI = 0x01;
         }
         if (Q5QO == "healer")
         {
           Q4QT = "healer's guild";
           Q5QL = "healer";
           Q4QI = 0x01;
         }
         if (Q5QO == "merchant")
         {
           Q4QT = "merchant's guild";
           Q5QL = "merchantguild";
           Q4QI = 0x01;
         }
         if (Q5QO == "miner")
         {
           Q4QT = "miner's guild";
           Q5QL = "minerguild";
           Q4QI = 0x01;
         }
         if (Q5QO == "ranger")
         {
           Q4QT = "ranger's guild";
           Q5QL = "rangerguild";
           Q4QI = 0x01;
         }
         if (Q5QO == "tailor")
         {
           Q4QT = "tailor's guild";
           Q5QL = "tailorguild";
           Q4QI = 0x01;
         }
         if (Q5QO == "tinker")
         {
           Q4QT = "tinker's guild";
           Q5QL = "tinkerguild";
           Q4QI = 0x01;
         }
       }
     }
   }
   if (!Q4QI)
   {
     if (0x00)
     {
       bark(this, "Asked direction to nowhere I recognize.");
     }
     return (0x01);
   }
   string Q601;
   loc Q5ZU;
   loc Q4VS = getLocation(this);
   Q4QI = findClosestArea(Q601, Q5ZU, Q5QL, Q4VS, Q4TS);
   if (Q601 == "")
   {
     if (Q4QT == "")
     {
       if (Q5J5 == 0x00)
       {
         Q601 = Q618 + "s";
       }
       else
       {
         Q601 = Q618;
       }
     }
     else
     {
       Q601 = Q4QT;
     }
   }
   split(args, Q601);
   Q5QO = args[0x00];
   if (Q5QO == "the")
   {
     Q618 = "";
   }
   else
   {
     Q618 = "the ";
   }
   string Q5N7 = "Thou seekest " + Q618 + Q601 + "?";
   bark(this, Q5N7);
   Q4J9(this);
   if (!Q4QI)
   {
     bark(this, "I know not where to find that.");
     return (0x00);
   }
   string Q602 = getDirection(Q4VS, Q5ZU);
   string Q603 = getDistance(Q4VS, Q5ZU);
   Q5N7 = "'Tis " + Q603 + " " + Q602 + " from here.";
   if (Q603 == "right here")
   {
     Q5N7 = "But 'tis " + Q603 + "! Look thee " + Q602 + ".";
   }
   bark(this, Q5N7);
   return (0x00);
 }
Retrieved from "http://wiki.uot2a.com/index.php?title=Script_Function:_Q4TP&oldid=2492"