Simba Code:
program FleaWine;
{$DEFINE SMART}
{$include srl/srl.simba}
var
StartTime, Made, MadeH, Sec, state, Make, Grape, Jug :Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Name := '';
Pass := '';
Nick := '';
Active := True;
Pin := '';
BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];//Random event prices.
end;
end;
procedure setDTM;
begin
Make := DTMFromString('mqAEAAHicE2FgYGBkZGDQAGItINYEYmYgfgAUvwfFTFCxP0D2TwYI/R+I+YBiEkD8C8h+BsTPgfg1EC8Fis0E4iNAvAKIjwLxYSBeD8SzgXgBEK+C4oVQPkj9NCDeCMRboXg5VH12ehpDuL8Lg7G2AoOXkzmDkZY8g4mOIoOLjSFDqK8TQ3pyEhjXVpQztDU2MHQ0NTG06WsyRAa6MThbGzDYm+uAsbezBVg9P9CN1MSMVMbYAAAs7yvM');
Grape := DTMFromString('mggAAAHicY2NgYHBkYmBwYYLQ7kBsDcSeQPwUKHcXiN8A8UsGBJ+BgYnB14ibIYTHlsGZ05ChUCCIgd2Qg4EfKIMNM+LAEAAAbc8KFg==');
Jug := DTMFromString('mrAAAAHic42BgYJjOxMAwFYhnA3EfEE8G4hlAPAkq9hyo5gMQvwXiF0D8CIhvA/EtIH4KxJmpKQzFeXkMibExDG2NDWBcWVLCEBUWBhbjB6rBhxkJYBgAAPHmFpg=');
end;
procedure freeeDTM;
begin
FreeDTM(Make);
FreeDTM(Grape);
FreeDTM(Jug);
end;
procedure bank;
var
x,y,x2,y2:Integer;
begin
if (state = 1) then
begin
Writeln('banking');
OpenBankChest(SRL_Bank_SW);
if PinScreen then
InPin(Players[CurrentPlayer].Pin);
if BankScreen then
begin
wait(900+random(200));
DepositAll;
if FindDTM(Grape,x,y,MBX1,MBy1,MBX2,MBY2) then
begin
Mouse(x,y,1,1,false);
ChooseOption('14');
wait(200+random(50));
end;
if FindDTM(Jug,x2,y2,MBX1,MBY1,MBX2,MBY2) then
begin
Mouse(x2,y2,1,1,false);
ChooseOption('14');
wait(200+random(50));
end;
CloseBank;
state := 2;
wait(500+random(100));
end;
end;
end;
Procedure MakeWine;
var
x,y,x2,y2:integer;
begin
if (state = 2) then
begin
if not GetCurrentTab = 25 then
FTab(25);
if FindDTM(Grape,x,y,MIX1,MIY1,MIX2,MIY2) then
begin
Mouse(x,y,1,1,true);
wait(150+random(150));
end;
if FindDTM(Jug,x2,y2,MIX1,MIY1,MIX2,MIY2) then
begin
Mouse(x2,y2,1,1,true);
wait(150+random(150));
end;
if FindDTM(Make,x,y,msx1,msy1,msx2,msy2) then
begin
Mouse(x,y,1,1,true);
case random(300) of
0..10: HoverSkill(SKILL_COOKING,False);
20..30: BoredHuman;
60..65: RandomMovement;
end;
wait(850+random(150));
Made := Made + 14;
end;
state := 1;
end;
end;
procedure SetupLogin;
begin
ClearDebug;
Smart_Server := 87;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
DeclarePlayers;
LoginPlayer;
end;
procedure Proggy;
begin
Sec := (1+((Getsystemtime-StartTime)/1000));
MadeH := (3600 / SeC * (Made));
writeLn('=======FleaWine======');
writeLn('Time Running: ' + TimeRunning);
writeLn('Items Made: ' + IntToStr(Made));
writeLn('Items/h: ' + IntToStr(MadeH));
writeLn('=======================');
end;
begin
ClearDebug;
SetupLogin;
SetupSRL;
DeclarePlayers;
LoginPlayer;
SetDTM;
StartTime:=GetSystemTime;
state :=1;
if LoggedIn then
ClickNorth(SRL_ANGLE_HIGH);
repeat
Bank;
wait(200+random(50));
MakeWine;
wait(100+random(200));
until(false);
FreeeDTM;
end.