
Originally Posted by
John
It's best to show your whole script, i think you need an end though at the end of the first procedure.
Simba Code:
program LukesSuperHeater;
{$DEFINE SMART}
{.include SRL/SRL/Misc/Smart.simba}
{.include SRL/SRL.simba}
{.include SRL/SRL/Skill/Magic.simba}
{$i sps/sps.simba}
{$i SRL/SRL/misc/paintsmart.simba}
Var
SH_Reset :extended;
procedure DeclarePlayers;
begin
HowManyPlayers := 1; // Set this to one if you are not sure what you are doing.
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Put your username in between the ''
Players[0].Pass := '; // Put your password in between the ''
Players[0].Nick := '';
Players[0].Member := True; // Are you a member?
Players[0].Active := True;
Players[0].Pin := ''; // Put your pin in between the ''
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence']
end;
Function Banking :boolean;
begin
MakeCompass('W')
SetAngle(SRL_ANGLE_HIGH);
OpenBankNPC;
Deposit(2, 28, true);
Withdraw(10, 1, 28);
CloseBank;
end;
Procedure Superheat;
begin
Mouse(743, 183, 2, 2, true);
Wait(1000);
Mouse(646, 328, 2, 2, true);
Wait(1000);
Mouse(710, 440, 2, 2, true);
SH_Reset:=SH_Reset+1;
end;
Function Further_Heat :boolean;
begin
Mouse(648, 327, 2, 2, true);
Wait)Randomrange(1000, 1050));
Mouse(712, 446, 2, 2, true);
SH_Reset:=SH_Reset+1;
If SH_Reset = 27 then
begin
Banking;
SH_Reset:=SH_Reset-27;
Wait(3000);
Superheat;
end else
Further_Heat;
end;
Function Execute :boolean;
begin
smart_server := 91;
smart_members := false;
smart_signed :=true;
smart_superdetail := false;
SetupSRL;
DeclarePlayers;
LoginPlayer;
end;
begin
Execute;
Superheat;
end.
I ended Superheat, so i added a call to the function Furtherheat to hit but since in the order that it compiles it doesnt know what Furtherheat is, so i'm moving it above Superheat. Thanks,