Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- procedure Rester;
- var
- RL, RH, R: Integer;
- begin
- If Not isLoggedIn() Then Exit;
- If Not Rest Then Exit;
- If Not (RestTime.getTime() >= RestEvery) Then Exit; //If it isn't time to rest yet then exit
- RL := RestingFor - Trunc((RestingFor / 100) * 20);
- RH := RestingFor + Round((RestingFor / 100) * 20);
- R := RandomRange(RL, RH);
- SDebug('Resting For : ' + IntToStr(Round(R / 1000 / 60)) + ' minutes');
- players[currentPlayer].logout();
- Wait(R);
- Inc(RAmount);
- IncEx(RestT, R);
- RestTime.start();
- players[currentPlayer].login();
- exitTreasure();
- mainScreen.setAngle(MS_ANGLE_HIGH);
- minimap.setAngle(MM_DIRECTION_NORTH);
- FAttempts := 0;
- clickPoll();
- End;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement