Simba Code:
program LowCpuHeater;
{$I SRL/SRL/misc/smart.simba}
{$I SRL/SRL.simba}
const
BnkTab = 2;
Mspeed = 18;
var
frmDesign: TForm;
Button1: TButton;
Label1: TLabel;
BarType: TComboBox;
HowManyBars: TEdit;
iHowManyBars,BarsMade,Bars,colorB,waitT: Integer;
Debug:string;
EndScript:boolean;
procedure SetupPlayers;
begin
NumberOfPlayers(1);
CurrentPlayer := 0;
Players[0].Name := 'here login';
Players[0].Pass := 'password';
Players[0].Pin := '0000';
Players[0].Active := True;
end;
Procedure ButtonClick(Sender: TObject);
Begin
frmDesign.ModalResult:= mrOk;
iHowManyBars:= StrToInt(HowManyBars.Text);
End;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 100;
frmDesign.Top := 100;
frmDesign.Width := 380;
frmDesign.Height := 200;
frmDesign.Caption := 'COLOR SUPERHEATER edited by djborec!';
frmDesign.Color := 16241783;
frmDesign.Font.Color := ClBlack;
frmDesign.Font.Name := 'Comic Sans MS';
Button1 := TButton.Create(FrmDesign);
Button1.Parent := FrmDesign;
Button1.Left := 260;
Button1.Top := 60;
Button1.Height := 100;
Button1.Width := 100;
Button1.Caption := 'Run Script';
Button1.OnClick := @ButtonClick;
Label1 := TLabel.Create(FrmDesign);
Label1.Parent := FrmDesign;
Label1.Top := 90;
Label1.Left := 10;
Label1.Caption := 'How Many Bars?';
HowManyBars := TEdit.Create(FrmDesign);
HowManyBars.Parent := FrmDesign;
HowManyBars.Top := 90;
HowManyBars.Left := 135;
HowManyBars.Width := 60;
HowManyBars.Height := 10;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
procedure LogOut2;
begin
if not(GetColor(371,464)=12378347) then
begin
writeln('You were stuck in random - logging out to lobby');
MouseBox(748,4,760,16,1);
waitT:=0;
repeat
wait(randomRange(40,60));
inc(waitT);
until (GetColor(600,356)=16777215) or (waitT>150);
waitT:=0;
if not(GetColor(600,356)=16777215) then
repeat
MouseBox(748,4,760,16,1);
wait(randomRange(500,800));
if waitT>100 then begin
repeat
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('Can not log out');
wait(randomRange(3000,5000));
StopSound;
wait(randomRange(5000,7000));
until (GetColor(600,356)=16777215);
end;
inc(waitT);
until GetColor(600,356)=16777215;
waitT:=0;
MouseBox(571,350,710,373,1);
repeat
wait(randomRange(40,60));
inc(waitT);
until (GetColor(371,464)=12378347) or (waitT>200)
waitT:=0;
if not(GetColor(371,464)=12378347) then
repeat
MouseBox(748,4,760,16,1);
wait(randomRange(500,800));
inc(waitT);
MouseBox(571,350,710,373,1);
wait(randomRange(500,800));
if waitT>100 then begin
repeat
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('Can not log out');
wait(randomRange(3000,5000));
StopSound;
wait(randomRange(5000,7000));
until(GetColor(371,464)=12378347);
end;
until(GetColor(371,464)=12378347);
end;
EndScript:=true;
end;
procedure LogOut3;
begin
if not(GetColor(371,464)=12378347) then
begin
writeln('You were stuck in bank - logging out to lobby');
MouseBox(483,30,494,38,1);
waitT:=0;
repeat
wait(randomRange(40,60));
inc(waitT);
until not(GetColor(376,311)=2052490) or (waitT>150);
waitT:=0;
if (GetColor(376,311)=2052490) then
repeat
MouseBox(483,30,494,38,1);
wait(randomRange(500,800));
if waitT>100 then begin
repeat
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('Can not log out');
wait(randomRange(3000,5000));
StopSound;
wait(randomRange(5000,7000));
until (GetColor(600,356)=16777215);
end;
inc(waitT);
until not(GetColor(376,311)=2052490);
MouseBox(748,4,760,16,1);
waitT:=0;
repeat
wait(randomRange(40,60));
inc(waitT);
until (GetColor(600,356)=16777215) or (waitT>150);
waitT:=0;
if not(GetColor(600,356)=16777215) then
repeat
MouseBox(748,4,760,16,1);
wait(randomRange(500,800));
if waitT>100 then begin
repeat
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('Can not log out');
wait(randomRange(3000,5000));
StopSound;
wait(randomRange(5000,7000));
until (GetColor(600,356)=16777215);
end;
inc(waitT);
until GetColor(600,356)=16777215;
waitT:=0;
MouseBox(571,350,710,373,1);
repeat
wait(randomRange(40,60));
inc(waitT);
until (GetColor(371,464)=12378347) or (waitT>200)
waitT:=0;
if not(GetColor(371,464)=12378347) then
repeat
MouseBox(748,4,760,16,1);
wait(randomRange(500,800));
inc(waitT);
MouseBox(571,350,710,373,1);
wait(randomRange(500,800));
if waitT>100 then begin
repeat
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('Can not log out');
wait(randomRange(3000,5000));
StopSound;
wait(randomRange(5000,7000));
until(GetColor(371,464)=12378347);
end;
until(GetColor(371,464)=12378347);
end;
EndScript:=true;
end;
procedure Banking;
var
mouseX,mouseY,x,y:integer;
begin
if not(LoggedIn) then Exit;
// Right click on bank -------------------------------------------------
if not(EndScript) then
begin
mouseX:=randomRange(299,310);
mouseY:=randomRange(145,155);
Mouse(mouseX , mouseY , 0, 0, False);
repeat
wait(randomRange(20,40));
inc(waitT);
until(GetColor(mouseX,mouseY+7)=923160) or (waitT>150);
waitT:=0;
if not(GetColor(mouseX,mouseY+7)=923160) then
repeat
if (waitT>0) and (waitT<=15) then
begin
MouseBox(531,12,552,30,1);
mouseX:=randomRange(299,310);
mouseY:=randomRange(145,155);
Mouse(mouseX , mouseY , 0, 0, False);
wait(40);
end;
if (waitT>15) and (waitT<=1000) then
begin
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('You are in random! - detected while trying to open bank - please OPEN BANK AFTER RANDOM IS COMPLETED!');
StopSound;
end;
if (waitT>1000) then LogOut2;
if (EndScript=true) then break;
wait(randomRange(500,800));
inc(waitT);
until (GetColor(376,311)=2052490);
end;
//---------------------------------------------------------------------
//Left click open bank -----------------------------------------------
if not(EndScript) then
begin
if not(GetColor(376,311)=2052490) then
begin
waitT:=0;
MouseBox(mouseX-72,mouseY+37,mouseX+72,mouseY+51,1);
repeat
wait(randomRange(20,40));
inc(waitT);
until (GetColor(376,311)=2052490) or (waitT>150);
waitT:=0;
if not(GetColor(376,311)=2052490) then
repeat
if (waitT>0) and (waitT<=15) then
begin
MouseBox(531,12,552,30,1);
wait(randomRange(250,600));
mouseX:=randomRange(308,322);
mouseY:=randomRange(142,155);
Mouse(mouseX , mouseY , 0, 0, False);
wait(randomRange(500,700));
MouseBox(mouseX-72,mouseY+37,mouseX+72,mouseY+51,1);
end;
if (waitT>15) and (waitT<=1000) then begin
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('You are in random! - detected while trying to open bank - please OPEN BANK AFTER RANDOM IS COMPLETED!');
StopSound;
end;
if (waitT>1000) then LogOut2;
if (EndScript=true) then break;
inc(waitT);
wait(randomRange(500,700));
until (GetColor(376,311)=2052490);
end;
end;
//---------------------------------------------------------------------
//Deposit all steel bars made - right Click -----------------------------
if not(EndScript) then
begin
waitT:=0;
mouseX:=randomRange(608,636);
mouseY:=randomRange(216,237);
Mouse(mouseX,mouseY,0,0,False);
repeat
wait(randomRange(20,40));
inc(waitT);
until(GetColor(mouseX,mouseY+3)=659730) or (waitT>150);
waitT:=0;
if not(GetColor(mouseX,mouseY+3)=659730) then
repeat
if (waitT>0) and (waitT<=30) then
begin
mouseX:=randomRange(608,636);
mouseY:=randomRange(216,237);
Mouse(mouseX,mouseY,0,0,False);
end;
if (waitT>30) and (waitT<=1000) then begin
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('Script could not deposit steel bars - please DEPOSIT ALL STEEL BARS ON YOUR OWN ');
StopSound;
end;
if (waitT>1000) then LogOut3;
if (EndScript=true) then break;
inc(waitT);
wait(randomRange(500,700));
until (GetColor(mouseX,mouseY+3)=659730);
end;
//---------------------------------------------------------------------
//Deposit all steel bars - Left click in menu and check ---------------
if not(EndScript) then
begin
if (GetColor(mouseX,mouseY+152)=16711422) then
begin
waitT:=0;
MouseBox(mouseX-63,mouseY+101,mouseX+63,mouseY+115,1);
repeat
wait(randomRange(20,40));
inc(waitT);
until ((GetColor(621,226)-3424328>-100) and (GetColor(621,226)-3424328<100)) or ((GetColor(621,226)-3358535>-100) and (GetColor(621,226)-3358535<100)) or (waitT>150);
waitT:=0;
if not((GetColor(621,226)-3424328>-100) and (GetColor(621,226)-3424328<100)) or ((GetColor(621,226)-3358535>-100) and (GetColor(621,226)-3358535<100)) then
repeat
if (waitT>0) and (waitT<=15) then
begin
mouseX:=randomRange(608,636);
mouseY:=randomRange(216,237);
Mouse(mouseX,mouseY,0,0,False);
wait(randomRange(500,700));
MouseBox(mouseX-63,mouseY+101,mouseX+63,mouseY+115,1);
end;
if (waitT>15) and (waitT<=1000) then begin
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('Script could not deposit steel bars - please DEPOSIT ALL STEEL BARS ON YOUR OWN ');
StopSound;
end;
if (waitT>1000) then LogOut3;
if (EndScript=true) then break;
inc(waitT);
wait(randomRange(400,500));
until ((GetColor(621,226)-3424328>-100) and (GetColor(621,226)-3424328<100)) or ((GetColor(621,226)-3358535>-100) and (GetColor(621,226)-3358535<100));
end;
if (GetColor(mouseX,mouseY+136)=16711422) then
begin
waitT:=0;
MouseBox(mouseX-72,mouseY+89,mouseX,mouseY+96,1);
repeat
wait(randomRange(20,40));
inc(waitT);
until ((GetColor(621,226)-3424328>-100) and (GetColor(621,226)-3424328<100)) or ((GetColor(621,226)-3358535>-100) and (GetColor(621,226)-3358535<100)) or (waitT>150);
waitT:=0;
if not((GetColor(621,226)-3424328>-100) and (GetColor(621,226)-3424328<100)) or ((GetColor(621,226)-3358535>-100) and (GetColor(621,226)-3358535<100)) then
repeat
if (waitT>0) and (waitT<=15) then
begin
mouseX:=randomRange(608,636);
mouseY:=randomRange(216,237);
Mouse(mouseX,mouseY,0,0,False);
wait(randomRange(500,700));
MouseBox(mouseX-72,mouseY+89,mouseX,mouseY+96,1);
end;
if (waitT>15) and (waitT<=1000) then begin
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('Script could not deposit steel bars - please DEPOSIT ALL STEEL BARS ON YOUR OWN ');
StopSound;
end;
if (waitT>1000) then LogOut3;
if (EndScript=true) then break;
inc(waitT);
wait(randomRange(400,500));
until ((GetColor(621,226)-3424328>-100) and (GetColor(621,226)-3424328<100)) or ((GetColor(621,226)-3358535>-100) and (GetColor(621,226)-3358535<100));
end;
end;
//---------------------------------------------------------------------
wait(randomRange(750,1000));
//Check bank slot number 10--------------------------------------------
if not(EndScript) then
begin
//if ( (not((GetColor(620,300)-3358535>-100) and (GetColor(620,300)-3358535<100))) or (not((GetColor(620,300)-3424071>-100) and (GetColor(620,300)-3424071<100))) ) then
if ((GetColor(620,300)<3300000) or (GetColor(620,300)>3500000)) then
begin
//-----------Bank slot 10 - right click ----------------------------
waitT:=0;
mouseX:=randomRange(610,629);
mouseY:=randomRange(290,308);
Mouse(mouseX,mouseY,0,0,false);
repeat
wait(randomRange(10,40));
inc(waitT);
until (GetColor(mouseX,mouseY+3)=659730) or (waitT>50);
waitT:=0;
if not(GetColor(mouseX,mouseY+3)=659730) then ;
repeat
if (waitT>0) and (waitT<=15) then
begin
mouseX:=randomRange(610,629);
mouseY:=randomRange(290,308);
Mouse(mouseX,mouseY,0,0,false);
end;
if (waitT>15) and (waitT<=1000) then begin
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('Could not deposit bank slot 10 - please DEPOSIT ALL FROM BANK SLOT 10!');
StopSound;
end;
if (waitT>1000) then LogOut3;
if (EndScript=true) then break;
inc(waitT);
wait(randomRange(500,700));
until ((waitT<16)and(GetColor(mouseX,mouseY+3)=659730)) or ((waitT>15) and ((GetColor(620,300)>3300000) and (GetColor(620,300)<3500000)));
//---------Bank slot 10 - Left clik deposit---------------------
if not(EndScript) then
begin
//----Left click deposit ALL--------------------------------
if (GetColor(mouseX,mouseY+152)=16711422) then
begin
waitT:=0;
MouseBox(mouseX-68,mouseY+103,mouseX,mouseY+112,1);
repeat
wait(40)
inc(waitT);
until ((GetColor(620,300)>3300000) and (GetColor(620,300)<3500000));
waitT:=0;
if not((GetColor(620,300)>3300000) and (GetColor(620,300)<3500000)) then
repeat
if (waitT>0) and (waitT<=15) then
begin
mouseX:=randomRange(610,629);
mouseY:=randomRange(290,308);
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(500,700));
MouseBox(mouseX-68,mouseY+103,mouseX,mouseY+112,1);
end;
if (waitT>15) and (waitT<=1000) then begin
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('Could not deposit bank slot 10 - please DEPOSIT ALL FROM BANK SLOT 10!');
StopSound;
end;
if (waitT>1000) then LogOut3;
if (EndScript=true) then break;
inc(waitT);
wait(randomRange(500,700));
until ((GetColor(620,300)>3300000) and (GetColor(620,300)<3500000));
end;
//----Left click deposit ALL, if object<=5 ------------------
if (GetColor(mouseX,mouseY+136)=16711422) then
begin
waitT:=0;
MouseBox(mouseX-72,mouseY+89,mouseX,mouseY+96,1);
repeat
wait(40)
inc(waitT);
until ((GetColor(620,300)>3300000) and (GetColor(620,300)<3500000));
waitT:=0;
if not((GetColor(620,300)>3300000) and (GetColor(620,300)<3500000)) then
repeat
if (waitT>0) and (waitT<=15) then
begin
mouseX:=randomRange(610,629);
mouseY:=randomRange(290,308);
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(500,700));
MouseBox(mouseX-72,mouseY+89,mouseX,mouseY+96,1);
end;
if (waitT>15) and (waitT<=1000) then begin
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('Could not deposit bank slot 10 - please DEPOSIT ALL FROM BANK SLOT 10!');
StopSound;
end;
if (waitT>1000) then LogOut3;
if (EndScript=true) then break;
inc(waitT);
wait(randomRange(500,700));
until ((GetColor(620,300)>3300000) and (GetColor(620,300)<3500000));
end;
//----Left click deposit ALL, if object = 1 ----------------
if (GetColor(mouseX,mouseY+72)=16711422) then
begin
waitT:=0;
MouseBox(mouseX-59,mouseY+23,mouseX-10,mouseY+32,1);
repeat
wait(40)
inc(waitT);
until ((GetColor(620,300)>3300000) and (GetColor(620,300)<3500000));
waitT:=0;
if not((GetColor(620,300)>3300000) and (GetColor(620,300)<3500000)) then
repeat
if (waitT>0) and (waitT<=15) then
begin
mouseX:=randomRange(610,629);
mouseY:=randomRange(290,308);
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(500,700));
MouseBox(mouseX-59,mouseY+23,mouseX-10,mouseY+32,1);
end;
if (waitT>15) and (waitT<=1000) then begin
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('Could not deposit bank slot 10 - please DEPOSIT ALL FROM BANK SLOT 10!');
StopSound;
end;
if (waitT>1000) then LogOut3;
if (EndScript=true) then break;
inc(waitT);
wait(randomRange(500,700));
until ((GetColor(620,300)>3300000) and (GetColor(620,300)<3500000));
end;
end;
MoveMouse(mouseX+randomRange(-100,150),mouseY+randomRange(-100,150));
wait(randomRange(400,600));
end;
end;
//--------------------------------------------------------------------
//Check bank slot number 11--------------------------------------------
if not(EndScript) then
begin
if not((GetColor(660,300)-3160642>-100) and (GetColor(660,300)-3160642<100)) then
begin
//-----------Bank slot 11 - right click ----------------------------
waitT:=0;
mouseX:=randomRange(650,670);
mouseY:=randomRange(290,307);
Mouse(mouseX,mouseY,0,0,false);
repeat
wait(randomRange(10,40));
inc(waitT);
until (GetColor(mouseX,mouseY+3)=659730) or (waitT>50);
waitT:=0;
if not(GetColor(mouseX,mouseY+3)=659730) then ;
repeat
if (waitT>0) and (waitT<=15) then
begin
mouseX:=randomRange(650,670);
mouseY:=randomRange(290,307);
Mouse(mouseX,mouseY,0,0,false);
end;
if (waitT>15) and (waitT<=1000) then begin
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('Could not deposit bank slot 11 - please DEPOSIT ALL FROM BANK SLOT 10!');
StopSound;
end;
if (waitT>1000) then LogOut3;
if (EndScript=true) then break;
inc(waitT);
wait(randomRange(500,700));
until (GetColor(mouseX,mouseY+3)=659730);
//---------Bank slot 11 - Left clik deposit---------------------
if not(EndScript) then
begin
//----Left click deposit ALL--------------------------------
if (GetColor(mouseX,mouseY+152)=16711422) then
begin
waitT:=0;
MouseBox(mouseX-68,mouseY+103,mouseX,mouseY+112,1);
repeat
wait(40)
inc(waitT);
until ((GetColor(660,300)-3160642>-100) and (GetColor(660,300)-3160642<100));
waitT:=0;
if not((GetColor(660,300)-3160642>-100) and (GetColor(660,300)-3160642<100)) then
repeat
if (waitT>0) and (waitT<=15) then
begin
mouseX:=randomRange(650,670);
mouseY:=randomRange(290,307);
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(500,700));
MouseBox(mouseX-68,mouseY+103,mouseX,mouseY+112,1);
end;
if (waitT>15) and (waitT<=1000) then begin
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('Could not deposit bank slot 11 - please DEPOSIT ALL FROM BANK SLOT 10!');
StopSound;
end;
if (waitT>1000) then LogOut3;
if (EndScript=true) then break;
inc(waitT);
wait(randomRange(500,700));
until ((GetColor(660,300)-3160642>-100) and (GetColor(660,300)-3160642<100));
end;
//----Left click deposit ALL, if object<=5 ------------------
if (GetColor(mouseX,mouseY+136)=16711422) then
begin
waitT:=0;
MouseBox(mouseX-72,mouseY+89,mouseX,mouseY+96,1);
repeat
wait(40)
inc(waitT);
until ((GetColor(660,300)-3160642>-100) and (GetColor(660,300)-3160642<100));
waitT:=0;
if not((GetColor(660,300)-3160642>-100) and (GetColor(660,300)-3160642<100)) then
repeat
if (waitT>0) and (waitT<=15) then
begin
mouseX:=randomRange(650,670);
mouseY:=randomRange(290,307);
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(500,700));
MouseBox(mouseX-72,mouseY+89,mouseX,mouseY+96,1);
end;
if (waitT>15) and (waitT<=1000) then begin
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('Could not deposit bank slot 11 - please DEPOSIT ALL FROM BANK SLOT 10!');
StopSound;
end;
if (waitT>1000) then LogOut3;
if (EndScript=true) then break;
inc(waitT);
wait(randomRange(500,700));
until ((GetColor(660,300)-3160642>-100) and (GetColor(660,300)-3160642<100));
end;
//----Left click deposit ALL, if object = 1 ----------------
if (GetColor(mouseX,mouseY+72)=16711422) then
begin
waitT:=0;
MouseBox(mouseX-59,mouseY+23,mouseX-10,mouseY+32,1);
repeat
wait(40)
inc(waitT);
until ((GetColor(660,300)-3160642>-100) and (GetColor(660,300)-3160642<100));
waitT:=0;
if not((GetColor(660,300)-3160642>-100) and (GetColor(660,300)-3160642<100)) then
repeat
if (waitT>0) and (waitT<=15) then
begin
mouseX:=randomRange(650,670);
mouseY:=randomRange(290,307);
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(500,700));
MouseBox(mouseX-59,mouseY+23,mouseX-10,mouseY+32,1);
end;
if (waitT>15) and (waitT<=1000) then begin
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('Could not deposit bank slot 11 - please DEPOSIT ALL FROM BANK SLOT 10!');
StopSound;
end;
if (waitT>1000) then LogOut3;
if (EndScript=true) then break;
inc(waitT);
wait(randomRange(500,700));
until ((GetColor(660,300)-3160642>-100) and (GetColor(660,300)-3160642<100));
end;
end;
end;
end;
//--------------------------------------------------------------------
//Winthdraw 9 iron ores - right click on 1st bank slot --------------------
if not(EndScript) then
begin
waitT:=0;
mouseX:=randomRange(46,65);
mouseY:=randomRange(95,116);
Mouse(mouseX,mouseY,0,0,false);
repeat
wait(randomRange(120,150));
inc(waitT);
until (GetColor(mouseX,mouseY+3)=659730) or (waitT>150);
waitT:=0;
if not(GetColor(mouseX,mouseY+3)=659730) then
repeat
if (waitT>0) and (waitT<=15) then
begin
mouseX:=randomRange(46,65);
mouseY:=randomRange(95,116);
Mouse(mouseX,mouseY,0,0,false);
end;
if (waitT>15) and (waitT<=1000) then begin
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('Could not winthdraw 9 iron ores - please WINTHDRAW 9 IRON ORES MANUALY');
StopSound;
end;
if (waitT>1000) then LogOut3;
if (EndScript=true) then break;
inc(waitT);
wait(randomRange(500,700));
until (GetColor(mouseX,mouseY+3)=659730);
end;
//-----------------------------------------------------------------------
//Winthdraw 9 iron ores - left click on menu ---------------------------
if not(EndScript) then
begin
if ((GetColor(621,226)=3424328) or (GetColor(621,226)=3358535)) then
begin
waitT:=0;
MouseBox(8,mouseY+72,170,mouseY+79,1);
repeat
wait(randomRange(1,10));
inc(waitT);
until (not((GetColor(621,226)=3424328) or (GetColor(621,226)=3358535))) or (waitT>1500) ;
waitT:=0;
if ((GetColor(621,226)=3424328) or (GetColor(621,226)=3358535)) then
repeat
if (waitT>0) and (waitT<=15) then
begin
mouseX:=randomRange(46,65);
mouseY:=randomRange(95,116);
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(500,700));
MouseBox(8,mouseY+73,170,mouseY+80,1);
end;
if (waitT>15) and (waitT<=1000) then begin
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('Could not winthdraw 9 iron ores - please WINTHDRAW 9 IRON ORES MANUALY');
StopSound;
end;
if (waitT>1000) then LogOut3;
if (EndScript=true) then break;
inc(waitT);
wait(randomRange(500,700));
until not((GetColor(621,226)=3424328) or (GetColor(621,226)=3358535));
end;
end;
//----------------------------------------------------------------------
//Winthdraw all coal ores - right click 2nd bank slot----------------------
if not(EndScript) then
begin
waitT:=0;
mouseX:=randomRange(85,109);
mouseY:=randomRange(92,116);
Mouse(mouseX,mouseY,0,0,false);
repeat
wait(randomRange(80,100));
inc(waitT);
until (GetColor(mouseX,mouseY+3)=659730) or (waitT>150);
waitT:=0;
if not(GetColor(mouseX,mouseY+3)=659730) then
repeat
if (waitT>0) and (waitT<=15) then
begin
mouseX:=randomRange(85,109);
mouseY:=randomRange(92,116);
Mouse(mouseX,mouseY,0,0,false);
end;
if (waitT>15) and (waitT<=1000) then begin
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('Could not winthdraw coal ores - please WINTHDRAW COAL ORES MANUALY');
StopSound;
end;
if (waitT>1000) then LogOut3;
if (EndScript=true) then break;
inc(waitT);
wait(randomRange(500,700));
until (GetColor(mouseX,mouseY+3)=659730);
end;
//----------------------------------------------------------------------
//Winthdraw all coal ores - left click 2nd bank slot----------------------
if not(EndScript) then
begin
waitT:=0;
MouseBox(mouseX-77,mouseY+103,mouseX+76,mouseY+111,1);
repeat
wait(randomRange(60,80));
inc(waitT);
until (not(GetColor(663,301)=3160642)) or (not(GetColor(663,301)=3160642)) or (waitT>150);
waitT:=0;
if (GetColor(663,301)=3160642) or (GetColor(663,301)=3160642) then
repeat
if (waitT>0) and (waitT<=15) then
begin
mouseX:=randomRange(85,109);
mouseY:=randomRange(92,116);
Mouse(mouseX,mouseY,0,0,false);
wait(randomRange(500,700));
MouseBox(mouseX-77,mouseY+100,mouseX+76,mouseY+112,1);
end;
if (waitT>15) and (waitT<=1000) then begin
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('Could not winthdraw coal ores - please WINTHDRAW COAL ORES MANUALY');
StopSound;
end;
if (waitT>1000) then LogOut3;
if (EndScript=true) then break;
inc(waitT);
wait(randomRange(500,700));
until (not(GetColor(663,301)=3160642)) or (not(GetColor(663,301)=3160642));
end;
//----------------------------------------------------------------------
//Close bank------------------------------------------------------------
if not(EndScript) then
begin
waitT:=0;
MouseBox(485,30,491,38,1);
repeat
wait(randomRange(20,40));
inc(waitT);
until (GetColor(598,185)=6132050) or (waitT>150);
waitT:=0;
if not(GetColor(598,185)=6132050) then
repeat
if (waitT>0) and (waitT<=15) then MouseBox(485,30,491,38,1);
if (waitT>15) and (waitT<=1000) then begin
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('Could not winthdraw coal ores - please WINTHDRAW COAL ORES MANUALY');
StopSound;
end;
if (waitT>1000) then LogOut3;
if (EndScript=true) then break;
inc(waitT);
wait(randomRange(500,700));
until (GetColor(598,185)=6132050);
end;
end;
procedure proggy;
begin
cleardebug;
if ((GetTimeRunning>300000) and ((Round((BarsMade*53 * 3600) / (GetTimeRunning / 1000)))<30000) ) then
begin
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('Exp rate is very low ! ');
wait(1000);
StopSound;
end;
writeln(PadR('[ Cpu low magic ', 50) + ']');
writeln(PadR('[ Ran for '+TimeRunning+'', 50) + ']');
WriteLn(PadR('[Magic xp : ' + IntToStr(BarsMade*53), 50) + ']');
WriteLn(PadR('[Magic : ' + FloatToStr(Round((BarsMade*53 * 3600) / (GetTimeRunning / 1000))) + ' Mage XP/Hr', 50) + ']');
end;
procedure DoSmelting;
var
i,tab_invf,waitT:integer;
inRandom:boolean;
begin
waitT:=0;
inRandom:=false;
for i:=1 to 9 do
begin
inRandom:=false;
//If not on tab_magic-------------------------------------------------------
if not(EndScript) then
begin
if not(GetColor(743,171)=4296613) then
begin
waitT:=0;
MouseBox(732,170,761,202,1);
repeat
wait(randomRange(5,10));
inc(waitT);
until (GetColor(743,171)=4296613) or (waitT>300);
waitT:=0;
if not(GetColor(743,171)=4296613) then
repeat
if (waitT>0) and (waitT<=15) then MouseBox(732,170,761,202,1);
if (waitT>15) and (waitT<=1000) then begin
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('You are in random - please open tab magic after random is done');
StopSound;
end;
if (waitT>1000) then LogOut2;
if (EndScript=true) then break;
inc(waitT);
wait(randomRange(500,700));
until (GetColor(743,171)=4296613);
end;
end;
//Click on superheating -----------------------------------------------------
if ((GetColor(623,332)=3203581) or (GetColor(623,332)=3269117)) then
begin
if not(EndScript) then
waitT:=0;
MouseBox(616,316,628,332,1);
repeat
wait(randomRange(50,100));
inc(waitT);
until (GetColor(642,170)=9764606) or (waitT>20);
waitT:=0;
if not(GetColor(642,170)=9764606) then
repeat
if (waitT>0) and (waitT<=15) then
begin
MouseBox(732,170,761,202,1);
wait(randomRange(500,700));
MouseBox(616,316,628,332,1);
end;
if (waitT>15) and (waitT<=1000) then begin
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('You are in random - please make sure, that you are on tab_inventory after random is done');
StopSound;
end;
if (waitT=16) then inRandom:=true;
if (waitT>1000) then LogOut2;
if (EndScript=true) then break;
inc(waitT);
wait(randomRange(500,700));
until (GetColor(642,170)=9764606);
end
else
repeat
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('Out of runes!');
wait(40);
StopSound;
until(GetColor(623,332)=3203581) or (GetColor(623,332)=3269117);
//Click on iron ore
if not(EndScript) then
begin
if (inRandom) then
begin
waitT:=0;
MouseBox(732,170,761,202,1);
repeat
wait(randomRange(5,10));
inc(waitT);
until (GetColor(743,171)=4296613) or (waitT>300);
if ((GetColor(623,332)=3203581) or (GetColor(623,332)=3269117)) then
begin
waitT:=0;
MouseBox(616,316,628,332,1);
repeat
wait(randomRange(50,100));
inc(waitT);
until (GetColor(642,170)=9764606) or (waitT>20);
end
else
begin BarsMade:=BarsMade-1; end;
inRandom:=false;
end;
MouseBox(606,285,629,312,1);
waitT:=0;
repeat
wait(randomRange(300,450));
inc(waitT);
until (GetColor(743,171)=4296613) or (waitT>30);
waitT:=0;
if not(GetColor(743,171)=4296613) then
repeat
if (waitT>0) and (waitT<=15) then
begin
MouseBox(732,170,761,202,1);
wait(randomRange(500,700));
MouseBox(616,316,628,332,1);
wait(randomRange(500,700));
MouseBox(606,285,629,312,1);
end;
if (waitT>15) and (waitT<=1000) then begin
PlaySound('C:\Simba\Includes\beep-1.wav');
writeln('You are in random - please make sure, that you are on tab_inventory after random is done');
StopSound;
end;
if (waitT=16) then inRandom:=true;
if (waitT>1000) then LogOut2;
if (EndScript=true) then break;
inc(waitT);
wait(randomRange(500,700));
until(GetColor(743,171)=4296613);
end;
if (inRandom) then begin BarsMade:=BarsMade-1; inRandom:=false; end;
inc(BarsMade);
proggy;
end;
end;
Procedure Main;
begin
MouseBox(531,12,552,30,1);
EndScript:=false;
repeat
MouseSpeed:= (Mspeed + RandomRange(-1, 3));
Banking;
DoSmelting;
until (BarsMade>=iHowManyBars) or (EndScript);
end;
begin
Smart_Server :=10;
Smart_Members :=False;
Smart_Signed := True;
Smart_SuperDetail := False;
SetupSRL;
SetupPlayers;
ActivateClient;
if not LoggedIn then LogInPlayer;
SafeInitForm;
SafeShowFormModal;
SetAngle(SRL_ANGLE_HIGH);
Main;
end.