Auto walk paths for tintin++

Scripts and support for your favorite MUD client.
elarir
Sojourner
Posts: 7
Joined: Tue Oct 09, 2007 4:11 pm

Auto walk paths for tintin++

Postby elarir » Tue Oct 09, 2007 4:34 pm

Found this code on the tintin++ site and modified it to work on toril. Load it up and type travel <direction> and you will walk along long 2 way paths until you hit a junction or a dead end. Enjoy!!!

Code: Select all

#var travel 0

#function {fixnew}
{
     #if {"&0" == "-N"}  {#var result north};
     #if {"&0" == "-E"}  {#var result east};
     #if {"&0" == "-S"}  {#var result south};
     #if {"&0" == "-W"}  {#var result west};
     #if {"&0" == "-U"}  {#var result up};
     #if {"&0" == "-D"}  {#var result down}
}

#function {revdir}
{
     #if {"&0" == "north"} {#var result -S};
     #if {"&0" == "east"}  {#var result -W};
     #if {"&0" == "south"} {#var result -N};
     #if {"&0" == "west"}  {#var result -E};
     #if {"&0" == "up"}    {#var result -D};
     #if {"&0" == "down"}  {#var result -U}
}

#function {longdir}
{
     #if {"&0" == "n"} {#var result north};
     #if {"&0" == "e"} {#var result east};
     #if {"&0" == "s"} {#var result south};
     #if {"&0" == "w"} {#var result west};
     #if {"&0" == "u"} {#var result up};
     #if {"&0" == "d"} {#var result down}
}

#function {shortdir}
{
     #if {"&0" == "north"} {#var result n};
     #if {"&0" == "east"}  {#var result e};
     #if {"&0" == "south"} {#var result s};
     #if {"&0" == "west"}  {#var result w};
     #if {"&0" == "up"}    {#var result u};
     #if {"&0" == "down"}  {#var result d}
}

#function {finddir}
{
     #if {"&0" == "&1"}
     {
          #var result &2
     }
     {
          #var result &1
     }
}

#alias {travel}
{
     #if {$travel}
     {
          #var travel 0;
          #showme <118>You stop traveling.
     }
     {
          #var travel 1;
          #var lastdir @longdir{%0};
          #var lastdir @revdir{$lastdir};
          #showme <128>You travel %0.;
          %0
     }
}

#act {Exits: %0}
{
     #if {$travel}
     {
          #if {"%0" != "* *"}
          {
               #var travel 0;
               #showme <118>You stop traveling due to a dead end.
          };

          #if {"%0" == "* * *"}
          {
               #var travel 0;
               #showme <118>You stop traveling to pick up directions.
          };

          #if {$travel}
          {
               #var newdir @finddir{$lastdir %0};
               #var newdir @fixnew{$newdir};
               #showme <118>You travel $newdir.;

               #var lastdir @revdir{$newdir};

               @shortdir{$newdir}
          }
     }
}
{1}

Return to “MUD Client Help”

Who is online

Users browsing this forum: No registered users and 7 guests