Simba Code:
program FalBonfire;
{$Define SMART}
{$I SRL/SRL.Simba}
{$I Sps/Sps.Simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Pin :=''
Players[0].Active:=True;
end;
procedure Bank2Spot;
var
myPath:TPointArray;
begin
SetupSRL;
writeLn('Walking to the burning spot - SPS');
SPS_Setup(RUNESCAPE_SURFACE, ['8_7']);
myPath := [Point(3582, 3131), Point(3576, 3124), Point(3575, 3115), Point(3576, 3106)];
SPS_WalkPath(myPath);
end;
procedure Spot2Bank;
var
myPath:TPointArray;
begin
writeLn('Walking to the bank - SPS');
SPS_Setup(RUNESCAPE_SURFACE, ['8_7']);
myPath := [Point(3576, 3105), Point(3578, 3115), Point(3580, 3123), Point(3584, 3131)];
SPS_WalkPath(myPath);
end;
procedure Light;
begin
InvMouse(1, mouse_right)
WaitOption('ight', 500);
Wait(1500);
InvMouse(2, mouse_left);
MMouse(366,234,2,2); // Add logs to bonfire popup.
ClickMouse2(mouse_left);
Wait(50000);
Spot2Bank;
end;
procedure Bank;
var
t: integer;
begin
t := (getSystemTime + 10000);
repeat
OpenBankFast('fwb');
WriteLn('Opening the Falador East Bank');
until(bankScreen or pinScreen or (getSystemTime > t));
if (getSystemTime > t) then
begin
Bank2Spot;
end;
if(PinScreen) then
begin
InPin(Players[0].Pin);
end;
if (BankScreen) then
if InvCount > 0 then depositAll; // Just to empty out your pocket as a failsafe
MouseBankSlot(1, mouse_Right);
if (WaitOption('ithdraw-All', 500)) then
Writeln('Got logs');
if (invFull) then
CloseBank;
Bank2Spot;
end;
begin
SMART_FIXSPEED := True;
SRL_SixHourFix:= True;
SetupSRL;
DeclarePlayers;
LoginPlayer;
repeat
Bank;
Bank2Spot;
Light;
Spot2Bank;
until (false);
end.
Its a Falador west bank firemaking script. The thing is that it doesn't do anything, can someone tell me what I'm doing wrong? I'm new to scripting and was getting around to the skeleton of my script. Any help would be appreciated