Simba Code:
Program IronSuperHeater;
{$Define SMART}
{$Include SRL/SRL/Misc/SMART.simba}
{$i SRL/SRL.simba}
Var
IronOre:integer;
CastSuperHeat:integer;
BankBooth:integer;
DepositIronBar:integer;
TakeOres:integer;
SuperHeats:integer;
XPMagic:integer;
XPSmith:integer;
i,x,y:integer;
//Version 1.3
//Start in LUMBRIDGE bank.
//It works the best if you have Nature runes in first slot.
//Have IRON ore in first bank slot.
//Have fun!
//Thanks to CRU1Z1N for helping me :)
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
// FILL IN //////////////////////////////////////
Players[0].Name := ''; //Username
Players[0].Pass := ''; //Password
Players[0].Active := True;
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
LampSkill := 'Magic';
//DONT TOUCH ////////////////////////////////////////
end;
Procedure LoadDTM;
Begin
TakeOres := DTMFromString('mWAAAAHicY2FgYIgD4hggjgfiRCD+BMTvoPgjEJvKizMYyIgyWChKMFgrSTGwAsWQMSMaBgEArGkHCg==');
IronOre := DTMFromString('mbQAAAHicY2VgYNjExMCwFYg3QDGI3cbIwNABxE1A3AnELUBsIi/OYKMizaAnI8pgKCsGplmB+tExIxYMBgCZ3ghT');
CastSuperHeat := DTMFromString('mrAAAAHic42BgYGhlYmBoA+JuIG4A4k4oDeI3A3ERIwNDBhAXQ3EZEOdBcSkQv3u9gWGzMBPDoQUCDH8fGjJ8mM/KYMfEzPCmhpnhy8QsBjmgHfgwIwEMAwC4bxTQ');
BankBooth := DTMFromString('mbQAAAHicY2VgYDBnZGBQA2I5INYEYn0gnsGAiqcD8YblCxjWLJ7NsGrBDDC9Yek8BlagODpmxILBAABYfQ2T');
DepositIronBar := DTMFromString('mbQAAAHicY2VgYJjGxMAwFYgXMEHYPUDszMjAYA/ETkDsAcQuQBzk58dgZ2MDxooKCmCaGagfHTNiwWAAAE88B9c=');
end;
Procedure FrDTMS;
Begin
FreeDTM(IronOre);
FreeDTM(CastSuperHeat);
FreeDTM(BankBooth);
FreeDTM(DepositIronBar);
FreeDTM(TakeOres);
end;
procedure ProgressReport;
begin
XPMagic := SuperHeats * 53;
XPSmith := SuperHeats * 12;
writeln('--------------------------------------------------------');
writeln('--------------- Kipjes Iron SuperHeater ----------------');
writeln('--------------------------------------------------------');
writeln('--- SuperHeats done: ' + IntToStr(SuperHeats));
writeln('--- Magic XP Gained: ' + IntToStr(XPMagic));
writeln('--- Smithing XP Gained: ' + IntToStr(XPSmith));
writeln('--------------------------------------------------------');
end;
procedure AntiBan;
begin
if not(LoggedIn)then
Exit;
case Random(175)of
0: HoverSkill('Magic', false);
1: RandomRClick;
2: BoredHuman;
3: PickUpMouse;
4: RandomMovement;
5: HoverSkill('Smithing', false);
end;
end;
procedure Start;
begin
MakeCompass('N')
wait(300);
SetAngle(SRL_ANGLE_HIGH);
wait(300);
SuperHeats := 0;
end;
Procedure SuperHeat;
Begin
if FindDTM(CastSuperHeat, x, y, MIX1, MIY1, MIX2, MIY2) then
Begin
MMouse(X, Y + 3, 0, 0);
ClearDebug;
If WaitUptextMulti(['Superheat', 'Item'], 500) Then
Begin
ClickMouse2(true);
wait(300);
end;
end;
end;
Procedure Item;
Begin
if FindDTM(IronOre, x, y, MIX1, MIY1, MIX2, MIY2) then
Begin
MMouse(X, Y + 3, 0, 0);
If WaitUptextMulti(['Superheat', 'Item'], 500) Then
Begin
Writeln ('Superheating > Iron Ore.')
ClickMouse2(true);
wait(600);
end;
end;
end;
Procedure Bank;
Begin
if FindDTM(BankBooth, x, y, MSX1, MSY1, MSX2, MSY2) then
Begin
MMouse(X, Y + 3, 0, 0);
If WaitUptextMulti(['Bank', 'Booth'], 500) Then
Begin
Writeln ('BANK > Banking')
ClickMouse2(true);
wait(400);
end;
end;
end;
Procedure DepositeBars;
begin
if FindDTM(DepositIronBar, x, y, MIX1, MIY1, MIX2, MIY2) then
Begin
MMouse(X, Y + 3, 0, 0);
If WaitUptextMulti(['Iron bar'], 500) Then
Begin
Writeln ('BANK > Deposite Bars.')
ClickMouse2(false);
ChooseOption('all');
end;
end;
end;
Procedure TakesOresFromBank;
begin
if FindDTM(TakeOres, x, y, MSX1, MSY1, MSX2, MSY2) then
Begin
MMouse(X, Y + 3, 0, 0);
If WaitUptextMulti(['Iron ore'], 500) Then
Begin
Writeln ('BANK > Take Ore.')
ClickMouse2(false);
ChooseOption('all');
wait(120);
CloseBank;
wait(170);
GameTab(Tab_Magic);
wait(130);
end;
end;
end;
//added a main loop
procedure MainLoop;
begin
repeat
repeat
SuperHeat;
Item;
Inc(i);
Until(i > 27)
ProgressReport;
AntiBan;
//BANKING
Bank;
DepositeBars;
TakesOresFromBank;
FrDTMS;
wait(200);
until(false);
end;
Begin
SetupSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
LoadDTM;
Writeln ('Waiting 10 Seconds before starting...')
wait(10000);
GameTab(Tab_Magic);
wait(400);
Start;
wait(100);
MainLoop;
end.