Advertisement
Guest User

Untitled

a guest
Jan 20th, 2018
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.62 KB | None | 0 0
  1. program unFuckedAgil;
  2.  
  3. {$DEFINE WALKER}
  4. {$i AeroLib/AeroLib.Simba}
  5.  
  6.  
  7. //For Varrock
  8.  
  9.  
  10. var
  11.   RSW: TRSWalker;
  12.   t : UInt32;
  13.  
  14. procedure Walk;
  15.   begin
  16.  
  17.   RSW.Init('world.png');
  18.   //RSW.walkStyle := wsSPS; //works similarly to how SPS would walk the path
  19.   //RSW.anyAngle  := True;  //`True` if you are not walking with compass facing north
  20.   //RSW.skipClose := 15;
  21.   writeln('initated world.png');
  22.  
  23.   end
  24.  
  25. procedure getLoc;
  26. var
  27.   Loc: TPoint;
  28. begin
  29.   Loc := RSW.GetMyPos;
  30.   writeln('Current location is:', Loc);
  31.   wait(1000);
  32. end
  33.  
  34.  
  35.  
  36. begin
  37.  
  38. walk();
  39.  
  40. repeat
  41.   getLoc();
  42. until(false)
  43.  
  44. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement