Simba Code:
program vialfiller;
{$DEFINE SMART}
{$I SRL-6/SRL.simba}
{$I SPS/lib/SPS-RS3.Simba}
var
i : integer;
procedure Clickbank();
var
x, y: integer;
begin
if mainscreen.findObject(x, y, 1398387, 55, colorSetting(2, 0.07, 0.15), mainscreen.playerPoint, 30, 50, 50, ['ank Banker'], MOUSE_LEFT) then
begin
wait(randomRange(540, 861));
writeLn('bank opened!');
wait(randomRange(531, 712));
bankScreen.quickDeposit(QUICK_DEPOSIT_INVENTORY);
wait(randomRange(540, 861));
bankScreen.withdraw(1, WITHDRAW_AMOUNT_ALL, ['ial']);
wait(randomRange(512, 1312));
bankScreen.close();
end;
end;
procedure fillvials();
var
x, y: integer;
begin
tabBackPack.mouseSlot(1, MOUSE_LEFT); //clicks vial in backpack
if mainscreen.findObject(x, y, 12757145, 25, colorSetting(2, 0.07, 0.15), mainscreen.playerPoint, 30, 50, 50, ['se Vial'], MOUSE_LEFT) then //clicks fontain
begin
wait(randomRange(2000, 3000));
mouse(391, 338, 5, 20, MOUSE_MOVE); //click Fill
fastClick(MOUSE_LEFT);
wait(randomRange(17001, 18005));
writeLn('Fountain clicked!')
end;
end;
procedure walkfontain();
var
pathfontain: TPointArray;
begin
pathfontain := [Point(192, 205), Point(158, 223), Point(140, 249)]
if SPS.walkPath(pathfontain) then
minimap.waitPlayerMoving()
else
writeLn('We failed to walk to the mine');
end;
procedure walkbank();
var
pathbank: TPointArray;
begin
pathbank := [Point(140, 249), Point(158, 223), Point(192, 205)]
if SPS.walkPath(pathbank) then
minimap.waitPlayerMoving()
else
writeLn('Failed deleting windows, please try again with ubuntu');
end;
begin
// initialize and prepare things
//
addOnTerminate('scriptTerminate');
ClearDebug();
smartEnableDrawing := true;
SetupSRL();
Players.Setup(['lol'], 'lol');
currentPlayer := 0;
SPS.setup('GEmap', RUNESCAPE_OTHER); // Setup map
for i := 0 to high(players) do
begin
players[i].isActive := true;
end;
// do the work
//
while (players.getActive() > 0) do
begin
if (not isLoggedIn()) then
begin
if (not players[currentPlayer].login()) then break;
mainscreen.setangle(MS_ANGLE_HIGH);
exitSquealOfFortune();
end;
Clickbank();
walkfontain();
fillvials();
walkbank();
end;
end.