TestRun for NPC navgation - Printable Version

Code:
//Created by Soulless

//this script is a concept to make npc's travel like regular players, to a location of your choice.

//you could make npcs that run to a mine, do some mining for 10 minutes, then run back to the bank

//currently this will take the npc to britain right out front of the SweetDreams Inn



//v.01

//Ive tested it several times, and he's made it from the graveyard, while it's not a beautiful journey, he does make it

//he also made it once from britain to minoc all on his own twice





//just go spawn an npc at the graveyard and type .testrun, then target your npc and follow him to see how it goes.



[defname testrun_settings]

running_control        2        //in tenths of a second how often to run (2 seems to be normal speed of running)

movement_attempts    10        //how many attempts failed in one direction till the npc diverts

diversion_tiles        10        //how many tiles will the npc divert in an attempt to get around obstacles

expected_eta        unused        //how many minutes until they just get teleported to their destination





[function testrun]

targetf testrun2

sysmessage who should testrun? npc only?



[function testrun2]

ref1=<argo.uid>

serv.newitem i_testrun

new.link <ref1>

new.p britain

new.update

new.timer=1

endif



[itemdef i_testrun]

id=i_shield_chaos

name=TestRun



on=@create 

attr=090



on=@timer

timerd 2

if (<distance <link>> < 6)                //npc has reached his destination, remove the travelbit

remove

return 1

endif



if <more1>                        //this means he needs to divert his course, because he couldnt move in his targets direction

link.run <tag0.divert>

more1 -= 1

if <more1><1

tag0.divert=

endif

return 1

endif



link.face <uid>                        //face the target destination

if (<link.canmove <link.dir>>)                 //can run in the direction of his target

  if <more2>

  more2 -= 1                        //more2 keeps track of how many times he has ran into something, if he's moving without issue, remove a count on more2

  endif

 link.run <link.dir>                    //so do it, run, bitch.

else    

 more2 += 1                        //more2 keeps track of how many times he has ran into something, if he's running into things, add a count on more2

  if <more2>>=<def0.movement_attempts>            //he's been stuck 10 times in a row, divert his course

  more1=<def0.diversion_tiles>                //divert course by 10 tiles

  more2=                        //clear his obstruction count

//serv.log can't move <dir_convert <link.dir>>

   if !<tag0.divert>

   if <link.canmove <eval <link.dir>-1>>        //movecheck 45 degrees left

    tag0.divert=<eval <link.dir>-1>            //switch direction 45 degrees left

    elseif <link.canmove <eval <link.dir>+1>>        //movecheck 45 degrees right

    tag0.divert=<eval <link.dir>+1>            //switch direction 45 degrees right

    elseif <link.canmove <eval <link.dir>-2>>        //movecheck 90 degrees left

    tag0.divert=<eval <link.dir>-2>            //switch direction 90 degrees left

    elseif <link.canmove <eval <link.dir>+2>>        //movecheck 90 degrees right

    tag0.divert=<eval <link.dir>+2>            //swicth direciton 90 degrees right

   endif



  if (<tag0.divert> < 0 )                //0 is true north, if its less than 0 

  // serv.log <eval <tag0.divert>>

   local.offset=<tag0.divert>

   tag0.divert=<eval (8 - <local.offset>)>

  elseif (<tag0.divert> > 7)

   tag0.divert -= 8

  endif

  // serv.log diverting <dir_convert <tag0.divert>>

   tag0.divert=<dir_convert <tag0.divert>>

   endif

  endif

endif



return 1



[function dir_convert]

doswitch <args>

  return n

  return ne

  return e

  return se

  return s

  return sw

  return w

  return nw

enddo