Simba Code:
program scriptTemplate;
{$DEFINE SMART}
{$I SRL-6/SRL.simba}
{$I SPS/lib/SPS-RS3.Simba}
//-----------------------------------VARIABLES-------------------------------------------
var
X, Y, kesz, profitss, vialPrice: Integer;
bankhely, wellhely: TBox;
//------------------------------------PROCEDURES-----------------------------------------
procedure declarePlayers();
begin
setLength(players, 1);
with players[0] do
begin
vialPrice := ; //Vial price for stats
loginName := ''; //Username
password := ''; //Password
isActive := true;
isMember := true;
end
currentPlayer := 0;
end;
procedure kezdes();
begin
clearDebug();
smartEnableDrawing := true;
setupSRL();
declarePlayers();
if not isLoggedIn() then
begin
players[currentPlayer].login();
wait(randomRange(20000, 30000));
exitTreasure();
wait(randomRange(2000, 5000));
end;
minimap.clickCompass();
mainscreen.setZoom(false);
end;
procedure visszalog();
begin
players[currentPlayer].login();
wait(randomRange(20000, 30000));
exitTreasure();
wait(randomRange(2000, 5000));
minimap.clickCompass();
mainscreen.setZoom(false);
end;
procedure wellplace();
begin
mouseBox(wellhely, MOUSE_MOVE);
fastClick(MOUSE_RIGHT);
end;
procedure bankplace();
begin
mouseBox(bankhely, MOUSE_MOVE);
fastClick(MOUSE_RIGHT);
end;
procedure freshwell();
begin
bankplace();
if (chooseOption.isOpen(2500)) then
begin
chooseOption.select(['pen', 'Open', 'pen Sha', 'pen Shantay' ], 2000);
if bankScreen.isOpen(5000) then
begin
typeSend('2', false);
if tabBackpack.waitWhileLocked(5000) then
begin
typeSend('1', false);
if conversationBox.isOpen(3000) then
begin
conversationBox.selectOption(1);
wait(15000);
end else
begin
typeSend('1');
end;
end else
begin
typeSend('2', false);
end;
end else
begin
chooseOption.select(['pen', 'Open', 'pen Sha', 'pen Shantay' ], 2000);
end;
end else
begin
bankplace();
end;
end;
procedure depositnow();
begin
bankplace();
if (chooseOption.isOpen(2500)) then
begin
chooseOption.select(['pen', 'Open', 'pen Sha', 'pen Shantay' ], 2000);
if bankScreen.isOpen(5000) then
begin
typeSend('1', false);
if tabBackpack.waitWhileLocked(5000) then
begin
end else
begin
typeSend('1', false);
end;
end else
begin
chooseOption.select(['pen', 'Open', 'pen Sha', 'pen Shantay' ], 2000);
end;
end else
begin
bankplace();
end;
end;
procedure stats();
begin
kesz := kesz + 28;
profitss := kesz * vialPrice;
writeLn('========================================================');
writeLn('========================================================');
writeLn('========================================================');
writeln(IntToStr(kesz) + ' Vial has been retrieved');
writeln(IntToStr(profitss) + 'GP has been earned!');
writeln('Time it ran for: '+timeRunning);
writeLn('========================================================');
writeLn('========================================================');
writeLn('========================================================');
end;
//----------------------------------------MAIN LOOP---------------------------------------------------
begin
wellhely := IntToBox(260, 280, 300, 360);
bankhely:= IntToBox(401, 191, 446, 257);
mouseSpeed:= 50;
kezdes();
While true do
begin
if not isLoggedin() then
begin
visszalog();
end;
if not (tabBackpack.isOpen()) then
begin
tabBackpack.Open();
end;
While isLoggedin() do
begin
wellplace();
if (chooseOption.isOpen(2500)) then
begin
if chooseOption.select(['ake vials', 'Take', 'ake', 'vials', 'ials', 'vial' ], 2000) then
begin
while actionBar.isSlotEmpty(6) and tabBackpack.isEmpty do
begin
wait(200);
end;
typeSend('28');
depositnow();
stats();
end else
begin
freshwell();
end;
end else
begin
wellplace();
end;
end;
end;
end.