SCAR Code:
Program SuperHeater;
{$Define SMART}
{$Include SRL/SRL/Misc/SMART.simba}
{$i SRL/SRL.simba}
Var
IronOre:integer;
CastSuperHeat:integer;
BankBooth:integer;
DepositIronBar:integer;
TakeOres:integer;
i,x,y:integer;
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //Username
Players[0].Pass := ''; //Password
Players[0].Active := True;
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];
LampSkill := 'Magic';
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 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);
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
Writeln('--------------------------')
Writeln('------ SuperHeater -------')
Writeln('--------------------------')
Writeln ('Selected Superheat > NEXT')
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 //----------v
SuperHeat;//-------|
Item;// Added an extra loop this will cast 28 then break
Inc(i);//----------|
Until(i > 28)//-----^
//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.
keep at it we was all noobs at one point
First Superheater
Reply With Quote
Originally Posted by CRU1Z1N
