Advertisement
Guest User

PowerChopp First

a guest
Apr 25th, 2013
65
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.22 KB | None | 0 0
  1. program PowerChopper;
  2.  
  3. //{$define SMART8}
  4. {$I SRL-OSR/SRL.Simba}
  5. {$I SRL-OSR/SRL/Misc/SmartGraphics.Simba}
  6.  
  7.  
  8. Const
  9. SRLStats_Username = '';
  10. SRLStats_Password = '';
  11. NumberOfPlayers =1;
  12. StartPlayer =0;
  13.  
  14. procedure DeclarePlayers;
  15. var i:integer;
  16. begin
  17. NumberOfPlayers(1);
  18. CurrentPlayer := StartPlayer;
  19.  
  20. with Players[0] do
  21. begin
  22. name := '';
  23. Pass := '';
  24. Active := True;
  25. Integers[1] := 4;
  26. Integers[2] := 4;
  27. end;
  28.  
  29. end;
  30.  
  31. Function CheckAndClick(UpText, Option:String: X, Y:Integer: RClick:Boolean) :Boolean;
  32. Begin
  33. Mmouse(x, y 5, 5);
  34. If WaitUpText, 1500+Random(500)) Then
  35. Begin
  36. Result:=True;
  37. GetMousePos(x, y);
  38. If Rclick then
  39. Begin
  40. Mouse(x, y, 0, 0, False);
  41. Result:= WaitOption(Option, 2000);
  42. If Result Then FFlag(0);
  43. End Else
  44. Begin
  45. Mouse(x, y, 0, 0,True);
  46. Wait(100+Random(50));
  47. FFlag(0);
  48. End;
  49. End;
  50. End;
  51.  
  52. Function ChopDown;
  53. Var
  54. X, Y: Integer;
  55. Begin
  56. If FindobjCustom(x, y, ['Chop', 'down', 'p d'], [3826047, 3826047, 3627638, 4023941, 4287885, 4221835], 30) Then
  57. WriteLn('horray, we found a tree');
  58. End;
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67. begin
  68. SetupSRL;
  69. Repeat
  70. Chopdown;
  71. Until(false);
  72. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement