How would I add a break feature to this script?
Simba Code:
program ProAlch;
{$DEFINE SMART}
{$include srl/srl/misc/smart.simba}
{$include srl/srl.simba}
var
DTM,Location:Integer;
const
Speed = 10; //How fast to move mouse. (Lower is slower and better.)
procedure DeclarePlayers;
begin
Location := 1; //Change to slot item to alch is in.
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Active := True;
end;
procedure ScriptStart;
begin
ClearDebug;
Smart_Server := 71;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
MouseSpeed:=Speed;
DeclarePlayers;
LoginPlayer;
end;
procedure Alchemy;
var
x,y:Integer;
begin
GameTab(tab_Magic);
DTM := DTMFromString('mrAAAAHic42BgYGhnYmBoAuJ+IO4G4gogrgHieiDuAeLZjAwMC4B4JhD3AfEsJP58ID60QICBiZEJjmWRaD1GZob/DPgBIwEMAwDmdgwW');
if FindDTM(DTM,x,y,MIx1,MIy1,mix2,miy2) then
begin
Mouse(x,y,4,4,True);
MouseItem(Location,1);
end;
wait(950);
end;
Procedure Antiban;
Begin
Case Random(100) Of
1: HoverSkill('magic', False);
2: HoverSkill('random', False);
3: Boredhuman;
4: Wait(2500 + random(4500));
5: HoverSkill('firemaking', False);
6: PickUpMouse;
7: RandomMovement;
8: RandomRClick;
9: BoredHuman;
end;
end;
Procedure MiniBreaker;
Begin
Case Random (160) Of
1: Wait(40000 + random(7400));
2: Wait(25500 + random(8550));
3: Wait(60040 + random(6759));
4: Wait(20400 + random(2549));
end;
end;
Procedure Randoms;
Begin
Findnormalrandoms;
End;
begin
ScriptStart;
repeat
Alchemy;
Antiban;
MiniBreaker;
Randoms;
until(AllPlayersInactive);
FreeDTM(DTM);
end.