Advertisement
Guest User

simplefightcave

a guest
Mar 28th, 2013
360
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.63 KB | None | 0 0
  1. program FightCaveTrainer;
  2.  
  3. {$DEFINE SMART}
  4. {$i SRL-OSR/Srl.simba}
  5.  
  6. Const
  7. caveTol = 2;
  8. version = '0.6';
  9.  
  10. Var
  11. counter, caveEntrances: Integer;
  12. caveEntranceWhite: TIntegerArray;
  13.  
  14. Procedure DeclarePlayers;
  15. Begin
  16. HowManyPlayers := 1;
  17. NumberOfPlayers(HowManyPlayers);
  18. CurrentPlayer := 0;
  19.  
  20. Players[0].Name := 'user';
  21. Players[0].Pass := 'pass';
  22. Players[0].Nick := 'display name';
  23. Players[0].Active := True;
  24. End;
  25.  
  26. Function FightCaveSleep(sleepx, sleepy: Integer; retaliate: Boolean): Boolean;
  27. Var
  28. x , y, sleepTime: Integer;
  29. loop : Boolean;
  30. Begin
  31. loop := true;
  32. counter := 0;
  33. sleepTime := RandomRange(sleepx, sleepy);
  34. While loop Do
  35. Begin
  36. If FindObjCustom(x, y, [' '], caveEntranceWhite, caveTol) Then
  37. Begin
  38. Result := false;
  39. loop := false;
  40. WriteLn('We see cave entrance!');
  41. End Else If (not (InRange(Length(GetFightBarTPA(IntToBox(MSX1, MSY1, MSX2, MSY2))), 30, 150))) and (retaliate) Then
  42. Begin
  43. Result := false;
  44. loop := false;
  45. End Else If (sleepTime - counter > 0) and loop = true Then
  46. Begin
  47. wait(10);
  48. counter := (counter + 10);
  49. End Else
  50. Begin
  51. Result := True;
  52. loop := False;
  53. End;
  54. End;
  55. End;
  56.  
  57. Procedure FightCaveLoop;
  58. Var
  59. x, y : Integer;
  60. Begin
  61. If FindObjCustom(x, y, ['nter'], caveEntranceWhite, caveTol) Then
  62. Begin
  63. WriteLn('Found correct cave!');
  64. ClickMouse2(True);
  65. While FindObjCustom(x, y, ['nter'], caveEntranceWhite, caveTol) Do
  66. Begin
  67. ClickMouse2(true);
  68. Wait(RandomRange(500, 1000));
  69. End;
  70. If RandomRange(1, 10) > 8 Then
  71. Begin
  72. SetRun(true);
  73. GameTab(tab_Stats);
  74. End;
  75. caveEntrances := (caveEntrances + 1);
  76. WriteLn('Entered cave.');
  77. ClearDebug;
  78.  
  79. WriteLn('-* FightCaveTrainer v'+version);
  80. WriteLn('-* ');
  81. WriteLn('-* Entered: ' + intToStr(caveEntrances));
  82. WriteLn('-* Runtime: ' + TimeRunning);
  83.  
  84. Wait(RandomRange(4000, 5000));
  85. SetAngle(0);
  86. End Else
  87. If (Not FindObjCustom(x, y, ['nter'], caveEntranceWhite, caveTol)) and (CountDots('yellow') > 0) Then
  88. Begin
  89. FightCaveSleep(200,500,False);
  90. If InRange(Length(GetFightBarTPA(IntToBox(MSX1, MSY1, MSX2, MSY2))), 30, 150) Then
  91. Begin
  92. If (FightCaveSleep(3000,5000,True)) Then
  93. Begin
  94. If InRange(Length(GetFightBarTPA(IntToBox(MSX1, MSY1, MSX2, MSY2))), 30, 150) Then
  95. Begin
  96. Retaliate(False);
  97. Wait(RandomRange(500,700));
  98. Retaliate(True);
  99. GameTab(tab_Stats);
  100. FightCaveSleep(3000,5000,False);
  101. End;
  102. End;
  103. End;
  104. End Else MakeCompass(185);
  105. End;
  106.  
  107. Begin
  108. SetupSRL;
  109. DeclarePlayers;
  110. SetRun(True);
  111. GameTab(tab_Stats);
  112. caveEntranceWhite := [7763583, 8553356];
  113. MouseSpeed := 15;
  114.  
  115. While(True) Do
  116. Begin
  117. If not LoggedIn Then
  118. Begin
  119. LogInPlayer;
  120. SetRun(True);
  121. GameTab(tab_Stats);
  122. MakeCompass(185);
  123. SetAngle(0);
  124. End;
  125. FightCaveLoop;
  126. End;
  127. End.program new;
  128. begin
  129. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement