Advertisement
Guest User

Untitled

a guest
Oct 25th, 2014
130
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.70 KB | None | 0 0
  1. procedure Rester;
  2. var
  3. RL, RH, R: Integer;
  4. begin
  5. If Not isLoggedIn() Then Exit;
  6.  
  7. If Not Rest Then Exit;
  8. If Not (RestTime.getTime() >= RestEvery) Then Exit; //If it isn't time to rest yet then exit
  9.  
  10. RL := RestingFor - Trunc((RestingFor / 100) * 20);
  11. RH := RestingFor + Round((RestingFor / 100) * 20);
  12. R := RandomRange(RL, RH);
  13.  
  14. SDebug('Resting For : ' + IntToStr(Round(R / 1000 / 60)) + ' minutes');
  15. players[currentPlayer].logout();
  16. Wait(R);
  17.  
  18. Inc(RAmount);
  19. IncEx(RestT, R);
  20. RestTime.start();
  21.  
  22. players[currentPlayer].login();
  23. exitTreasure();
  24. mainScreen.setAngle(MS_ANGLE_HIGH);
  25. minimap.setAngle(MM_DIRECTION_NORTH);
  26. FAttempts := 0;
  27. clickPoll();
  28.  
  29. End;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement