program RoguesDenCooker;
{$DEFINE SMART8}
{$I SRL-OSR/SRL.Simba}
{$I SRL/SRL/Misc/Debug.Simba}
{$I SRL-OSR/SRL/Misc/SmartGraphics.simba}
const
BankNick = 'merald';
BankColor1 = 2768967;
BankColor2 = 3758433;
BankColor3 = 1522241;
FireColor1 = 2010082;
FireColor2 = 2267089;
var
banked, t, x, y: Integer;
const
default = 'Tahoma';
procedure DeclarePlayer;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'Username';
Players[0].Pass := 'Password';
Players[0].Nick := 'NickName';
Players[0].Active:=True;
end;
procedure openBankScreen;
var x, y: Integer;
begin
writeln('Looking for Bank');
repeat
FindNormalRandoms;
repeat
wait(50 + random(80))
until FindObjCustom(x,y, ['alk-to', BankNick], [BankColor1, BankColor2, BankColor3], 5)
wait(randomRange(200,600));
ClickMouse2(mouse_right);
wait(randomRange(200,600));
ChooseOptionMulti(['Bank']);
wait(randomRange(800,1600));
until (BankScreen = True);
writeln('Found BankScreen');
end;
Procedure withdrawBank;
begin
repeat
Deposit(1,28,True);
Wait(RandomRange(210,410));
until (InvCount < 1);
wait(randomRange(300, 600))
Withdraw(0,0,28);
Wait(randomRange(800,1000));
if (InvCount < 28) then
withdrawBank;
CloseBank;
FindNormalRandoms;
end;
procedure startCook;
begin
FindNormalRandoms;
MarkTime(t);
repeat
repeat
MouseItem(28,mouse_left);
Wait(400+random(600));
until FindObjCustom(x,y, ['Use'], [FireColor1, FireColor2], 5)
wait(100+random(200));
ClickMouse2(mouse_right);
wait(randomRange (300, 800));
ChooseOptionMulti(['Fire']);
wait(randomRange (2000, 3000));
FindNormalRandoms;
MoveMouse(259, 407);
Wait(randomRange(400,800))
Clickmouse2(mouse_right);
Wait(randomRange(200,400));
FindNormalRandoms;
until chooseOptionMulti(['All']) or (TimeFromMark(t)>20000);
Wait(RandomRange(900, 1100));
FindNormalRandoms;
MarkTime(t);
repeat
sleep(500);
if FindNPCChatText('gratu', Nothing) then
begin
writeln('Leveled up');
startCook;
end;
FindNormalRandoms;
until TimeFromMark(t) > 62000;
end;
Function AntiBan: Boolean;
begin
case random(500) of
0: RandomRClick;
1: HoverSkill(skill_Woodcutting,False);
2: PickUpMouse;
3: BoredHuman;
4: MMouseOffClient('top');
5: MMouseOffClient('left');
6: MMouseOffClient('right');
7: MMouseOffClient('bottom');
8: SmallRandomMouse;
9: SetRun(true);
end;
end;
procedure Prog;
var
Sec: Integer;
begin
Sec := GetTimeRunning/1000;
Writeln('Total Cooked : ' + IntToStr(Banked));
Writeln('Time Ran : ' + TimeRunning);
end;
begin
SetupSRL();
DeclarePlayer;
SetScreenName(Players[0].Nick);
ActivateClient;
Wait(2000);
If (Not LoggedIn) Then
begin
LogInPlayer;
end;
begin
repeat
openBankScreen;
withdrawBank;
IncEx(Banked, 28);
startCook;
Prog;
antiBan;
until(not LoggedIn);
end;
end.