{
[==================================================]
[     Stupid3ooo's DemonMager (ScarScape Only)     ]
[                  version:1.0                     ]
[==================================================]
| Instructions:                                    |
|   1.Add Colors/Setup Lines 27-33.                |
|   4.Put included files in the same folder as this|
|      script.(Library,Boxbreaker,and SI).         |
|   5.Need SCAR version 1.13.                      |
|   6.Silent Mouse OFF.(Go to Tools option above   |
|     and uncheck Silent Mouse).                   |
|   7.Start the script at the Demon.               |
|   8.Have extra runes at the first bank slot.     |
[==================================================]
[ Thanks to, RSCheating community                  ]
[   *PLEASE POST ANY BUGS/HELP IN THE FORUMS       ]
[    OR E-MAIL RSTradeMonkey@hotmail.com           ]
[==================================================]
}
program DemonMager; //LOW DETAIL
{.include SSI.txt}
{.include Boxbreaker.txt}

var count,report,report2:integer;

const
//=//=====================Setup======================\\=\\
User='';
Pass='';
row= 1;//row which spell is in 1-4, ie: 1 for "Strike" spells
collumn= 1;//spell from the top row 1-4, ie: 3 for Earth spells
defensive= false;//If you want to train defense also
withdrawcol1= 1000;//Number of runes to withdraw each time 0=all
withdrawcol2= -1;//-1 if there is not runes in the second bank slot
//=\\================================================//=\\

//DO NOT TOUCH
demoncolor= 31;
laddercolor= 2873;
starcolor= 13199698;
doorcolor= 2508391;
door2color= 1387564;
roadcolor= 5592411;
waterdropcolor =12657153;
BankColor= 3060683;
MSBankColor= 4800584;
ladderpostcolor= 603726;

Procedure ProgressReport;
var
  RHours,Minutes,Seconds,RMinutes,RSeconds:LongInt;
  Time:String;
begin
if(GetSystemTime-report2 > report*60000)then
begin
  Seconds:=(GetSystemTime-ST) div 1000;
  Minutes:=Seconds div 60;
  RHours:=Minutes div 60;
  Time:=inttostr(Seconds)+' Seconds';
  if Minutes<>0 then
  begin
   RSeconds:=Seconds Mod (Minutes*60);
   Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
  end;
  if RHours<>0 then
  begin
   RMinutes:=Minutes Mod (RHours*60);
   RSeconds:=Seconds Mod (Minutes*60);
   Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
  end;
  begin
  writeln(' ');
  writeln('<=================Progress Report================>');
  writeln('Worked for '+Time);
  writeln('Random Event Report:');
  if(fights>0)then writeln('  Fought '+inttostr(fights)+' time[s].');
  if(talks>0)then writeln('  Talked to '+inttostr(talks)+' random event[s].');
  if(lamps>0)then writeln('  Used lamps '+inttostr(lamps)+' time[s].');
  if(boxes>0)then writeln('  Solved '+inttostr(boxes)+' box[es].');
  if(logs>0)then writeln('  Logged in '+inttostr(logs)+' time[s].');
  writeln('<================================================>');
  Report2:=GetSystemTime;
  end;
end;
end;

function OpenDoor:boolean;
begin
ClickMSColor(doorcolor,false);
if(ChooseOption('Open'))then
  begin
  result:=true;
  Flag;
  end;
end;

procedure Bank;
begin
if(FindObjRay('Use Bank',-5,0))then
  begin
  Mouse(x,y,r,r,false);
  ChooseOption('quickly');
  repeat
  Wait(100);
  until(GetColor(212,39)=2070783);
  if(FindItemColor(65536))then
    begin
    repeat
    ClickItemColor(65536,false);
    ChooseOption('All');
    wait(1000);
    until(not(FindItemColor(65536)))
    end;
  Withdraw(1,1,withdrawcol1);
  if(withdrawcol2>0)then
    Withdraw(2,1,withdrawcol2);
  CloseWindow;
  end;
end;

procedure BankToTower;
begin
RoadWalk(roadcolor,'e',false);
repeat
RoadWalk(roadcolor,'s',true);
until(FindMMColor(WaterDropColor))
ClickMMColor(WaterDropColor);Flag;
if(OpenDoor)then
  begin
  Mouse(647,99,r,r,true);Flag;
  end
else
  begin
  Mouse(627,104,r,r,true);Flag;
  end;
ClickMSColor(Door2Color,false);
ChooseOption('Open');
Flag;
ClickMMColorTol(256,1);Flag;
if(FindColorSpiral(x,y,ladderpostcolor,170,153,317,243))then
  Mouse(x,y,r,r,false);
ChooseOption('up');
wait(3000);
if(FindColorSpiral(x,y,ladderpostcolor,170,153,317,243))then
  Mouse(x,y,r,r,false);
ChooseOption('up');
wait(3000);
if(OpenDoor)then
  begin
  Mouse(660,89,r,r,true);
  Flag;
  end
else
  begin
  Mouse(671,86,r,r,true);
  Flag;
  end;
end;

procedure LumbyToBank;
begin
Mouse(706,81,r,r,true);Flag;
Mouse(620,34,r,r,true);Flag;
Mouse(610,53,r,r,true);Flag;
Mouse(591,74,r,r,true);Flag;
Mouse(587,98,r,r,true);Flag;
Mouse(603,103,r,r,true);Flag;
Mouse(610,101,r,r,true);Flag;
Mouse(613,109,r,r,true);Flag;
Mouse(613,97,r,r,true);Flag;
Mouse(593,106,r,r,true);Flag;
Mouse(610,103,r,r,true);Flag;
Mouse(610,96,r,r,true);Flag;
repeat
RoadWalk(roadcolor,'n',true);
until(FindMMColor(BankColor))
ClickMMColor(BankColor);Flag;
end;

procedure TowerToBank;
begin
OpenDoor;
ClickMMColor(laddercolor);
Flag;wait(1000);
ClickMSColor(ladderpostcolor,false);
ChooseOption('down');
repeat
wait(500);
until(not(FindMMColor(starcolor)))wait(500);
if(FindColorSpiral(x,y,ladderpostcolor,149,137,250,214))then
  Mouse(x,y,r,r,false);
ChooseOption('down');
repeat
wait(500);
until(FindMMColor(waterdropcolor))
if(OpenDoor)then
  begin
  Mouse(658,72,r,r,true);
  end
else
  Mouse(663,69,r,r,true);
Flag;
if(OpenDoor)then
  begin
  Mouse(658,72,r,r,true);
  end
else
  Mouse(663,69,r,r,true);
Flag;
OpenDoor;
ClickMMColor(waterdropcolor);
Flag;
repeat
RoadWalk(roadcolor,'n',true);
until(FindMMColor(BankColor))
ClickMMColor(BankColor);Flag;
end;

procedure RunAway;
begin
ClickMMColor(laddercolor);
Flag;
FindObjRay('Climb',-5,0);
Mouse(x,y,r,r,true);
wait(8000+random(2000));
FindObjRay('Climb',-5,0);
Mouse(x,y,r,r,false);
ChooseOption('up');
repeat
wait(500);
until(FindMMColor(starcolor))
if(OpenDoor)then
  begin
  Mouse(660,89,r,r,true);
  Flag;
  end
else
  begin
  Mouse(671,86,r,r,true);
  Flag;
  end;
end;

procedure VBright;
begin
Mouse(686,480,r,r,true);
if(not(GetColor(716,255)=1711221))then
  Mouse(716,255,r,r,true);
GameTab(4);
end;

procedure SelectSpell;
begin
GameTab(1);
if(defensive=true)and(not(GetColor(619,365)=1908611))then
  Mouse(593,366,r,r,true);
if(FindInventoryText('Choose'))then
  begin
  Mouse(716,414,r,r,true);
  while(not(FindInventoryText('cancel')))do
    wait(500);
  Mouse(544+(collumn*42),184+(row*42),r,r,true);
  while(not(FindInventoryText('Attack with')))do
    wait(500);
  if(not(GetColor(616,438)=1908611))then
    Mouse(594,436,r,r,true);
  end;
GameTab(4);
end;

Procedure FindRandoms;
begin
LogOutEvery(3,10+random(5));
if(not(MainScreen))then
  begin
  LoginIfNeeded;
  SelectSpell;
  end;
if(FindChatText('Oh dear you are dead!'))then
  begin
  LumbyToBank;
  Bank;
  BankToTower;
  end;
if(FindChatText('You do not have enough'))then
  begin
  TowerToBank;
  Bank;
  BankToTower;
  end;
if(FindFight)then RunAway;
FindText;
FindBox;
FindLamp(1,3);
end;

begin
SetupSSI;
Username:=User;
Password:=Pass;
VBright;
SelectSpell;
repeat
count:=count+1;
ClickMSColor(DemonColor,false);
if(ChooseOption('Attack'))then
  begin
  FindRandoms;wait(1000+random(100));
  FindRandoms;wait(1000+random(100));
  FindRandoms;wait(1000+random(100));
  FindRandoms;wait(1000+random(100));
  FindRandoms;wait(1000+random(100));
  end;
if(count>60)then
  ProgressReport;
until(false)
end.