program StrangeEssMiner;
{.include SSi2.txt}
{.include boxbreaker.txt}
{.include RedXIIsFordCracker.txt}

 /////////////////////////////////////////////////////////////////////
 //             VARROK ESSENCE MINER BY SOLEMN WISHES               //
 //                                                                 //
 /////////////////////////////////////////////////////////////////////
 /////////////////////////////////////////////////////////////////////
 //     SETUP-READ BEFORE USING THIS SCRIPT FOR BEST RESULTS!       //
 //This is Solemns script fith Wizeons fix to "coming back" problem //
 /////////////////////////////////////////////////////////////////////
 /////////////////////////////////////////////////////////////////////
 //Setup:                                                           //
 //·Need scar 2.03 (reccomended)                                    //
 //.LOW detail                                                      //
 //·V bright brightness                                             //
 //.Have map facing pretty much north and the highest point of view //
 //.start in varrok bank (recomended near middle banker)            //
 //.fill in the two (optional) color's bellow                       //
 /////////////////////////////////////////////////////////////////////
const
////////////////////////////////////////////////////////////////////////
                                                                      //
                                                                      //
getbankcolor=4703451;//Highly Reccomended if varrok bank is crowded   //
floorcolor=3825001;  //Reccomended but not needed, used as a backup   //
                                                                      //
                                                                      //
////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////
//                ANTIBAN OPTION'S AND SETUP                          //
////////////////////////////////////////////////////////////////////////
antibantrue='true';//do you want to use antiban                       //
messages='Mining';//what is the message that you want to respond to   //
respondwith='70';//what you want to respond with                  //
randomwords='1';//do you want to say some random words                //
                    //      1=true    2=false                         //
////////////////////////////////////////////////////////////////////////
//REMEMBER THE FOLLOWING...                                           //
//1)The first letter in  the chat box starts with a capital, if my    //
//anti-ban is not working this could be why.                          //
//2)leave feedback and comments pl0z :)                               //
////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////
//                       LEAVE ME ALONE :)                            //
////////////////////////////////////////////////////////////////////////
TrialTimes= 10;                                                       //
CerterComments= true;                                                //
////////////////////////////////////////////////////////////////////////


var
frmDesign : TForm;
usernamepanel : TPanel;
usernameenter : TEdit;
passwordtag : TPanel;
passwordenter : TEdit;
startbutton : TButton;
tripstodo : TPanel;
numberoftrips : TEdit;
tripsyouset,SWUsername,SWPassword:string;
UseQuicky,UseQuick,Handle:integer;
c,arrow,clickhere,timestalked,play,bankcolor:integer;
runeshop,teleportbackup,teleport,login,logged: Integer;
magicthingy,randomfight,mined,exp,report, report2:integer;
bmpNecklace,bmpSword,bmpShears,bmpRing,bmpHelmet,bmpCerterAxe,bmpSpade,
bmpFish,bmpShield,Pixels,CerterUpChars,CerterChatChars,Certers:integer;




Procedure checkifloged;
begin
if(FindDTM(logged,x,y,0,0,1024,768))then
begin
mouse(x,y,3,1,true)
repeat
wait(1000+random(500))
until(FindDTM(login,x,y,0,0,1024,768))
sendkeys(SWusername+chr(13));
sendkeys(SWpassword)
if(FindDTM(login,x,y,0,0,1024,768))then
Mouse(x,y,1,1,true)
repeat wait(500+random(500))
until(findcolorspiraltolerance(x,y,16777215,469,319,611,359,5))
mouse(x,y,1,2,true)
end;
end;




function CerterChooseOption(txt:string):boolean;
var
  s,cancel,x1,y1,x2,y2,LeftCorner,RightCorner:integer;
begin
LeftCorner := BitmapFromString(4, 4, 'z78DA33753135313137C5' +
       '411A600064715CEA914500CACE13F0');
RightCorner := BitmapFromString(4, 4, 'z78DA33753135313137' +
       'C5200D30002E35F8C501C9C013F0');
s:=CreateBitmapMaskFromText(txt,CerterUpChars);
cancel:=CreateBitmapMaskFromText('Cancel',CerterUpChars);
if(FindBitmap(LeftCorner,x1,y1))and(FindBitmap(RightCorner,x2,y2))then
begin
  if(FindBitmapMaskTolerance(s,x,y,x1,y1,x2,502,10,85))then
  begin
    Result:=True;
    MOUSE(x+10+random(5),y+3,7,3,true);
  end else if(FindBitmapMaskTolerance(cancel,x,y,x1,y1,x2,502,10,85))then
    Mouse(x+10+random(5),y+3,7,3,true);
end;
FreeBitmap(LeftCorner);
FreeBitmap(RightCorner);
FreeBitmap(s);
FreeBitmap(cancel);
end;

function CerterFindObj(text:string;color,tolerance:integer):boolean;
var
  a,c,i,x1,y1,x2,y2:integer;
begin
  if(FindColorTolerance(x,y,color,3,3,515,338,tolerance))then
  begin
    x1:=245;
    y1:=165;
    x2:=277;
    y2:=185;
    repeat
    a:=a+1;
    if(a=1)then
      c:=c+1;
    if(a=3)then
      c:=c+1;
    for i:=1 to c do
    begin
      if(a=1)then
      begin
        x1:=x1+30;
        x2:=x2+30;
      end;
      if(a=2)then
      begin
        y1:=y1-20;
        y2:=y2-20;
      end;
      if(a=3)then
      begin
        x1:=x1-30;
        x2:=x2-30;
      end;
      if(a=4)then
      begin
        y1:=y1+20;
        y2:=y2+20;
      end;
      if(x1=485)and(x2=517)then
        x2:=x2-2;
      if(y1=325)and(y2=345)then
        y2:=y2-7;
      if(x2>515)then
        Break;
      if(FindColorTolerance(x,y,color,x1,y1,x2,y2,tolerance))then
      begin
      MMouse(x,y,1,1);
        if(IsTextAt2(9,9,text,100))then
        begin
          Result:=true;
          Break;
        end;
      end;
    end;
    if(a=4)then
      a:=0;
    until(x2>515)or(Result=true)
  end;
end;

function CerterTalkToRand:boolean;
var
  c:integer;
begin
  while(((FindColor(x,y,16711680,5,345,510,465))and(not(GetColor(20,434)=0)))or
  ((FindColor(x,y,16777215,5,345,510,465))and(not(GetColor(20,434)=0))))and
  (not(GetColor(20,434)=0))or(c>50)do
  begin
    c:=c+1;
    Result:=true;
    Mouse(x,y,50,2,true);
    Wait(500+random(500));
  end;
end;



function CerterScreen:boolean;
begin
  if(getcolor(359,37)=8168120)or(getcolor(163,167)=1922399)or(getcolor(89,51)=879691)then
    result:=true;
end;

function CountPixels:integer;
var
  c,Average,ax,ay,BackgroundColor,PixelCount:integer;
begin
  for c:=1 to TrialTimes do
  begin
     BackgroundColor:=GetColor(151,151);
     ax:=151;
     ay:=151;
     repeat
     repeat
     ax:=ax+1;
     if(not(GetColor(ax,ay)=BackgroundColor))then
       PixelCount:=PixelCount+1;
     until(ax=376)
     ax:=151;
     ay:=ay+1;
     until(ay=294)
     if(not(CerterScreen))then
       Break;
     Average:=Average+PixelCount;
     if(CerterComments)then
       WriteLn(inttostr(PixelCount)+' pixels of non-background color.');
     PixelCount:=0;
  end;
  if(CerterScreen)then
    Result:=(Average/TrialTimes);
end;

function SolveCerter:boolean;
var ResultCount:integer;
begin
  if(CerterScreen)then
  begin
    if((not(FindBitmapSpiralTolerance(bmpNecklace,x,y,99,36,324,140,50)))and
    (not(FindBitmapSpiralTolerance(bmpSword,x,y,99,36,324,140,50))))or
    ((not(FindBitmapSpiralTolerance(bmpShears,x,y,99,36,324,140,50)))and
    (not(FindBitmapSpiralTolerance(bmpRing,x,y,99,36,324,140,50))))or
    ((not(FindBitmapSpiralTolerance(bmpHelmet,x,y,99,36,324,140,50)))and
    (not(FindBitmapSpiralTolerance(bmpCerterAxe,x,y,99,36,324,140,50)))and
    (not(FindBitmapSpiralTolerance(bmpSpade,x,y,99,36,324,140,50))))or
    ((not(FindBitmapSpiralTolerance(bmpFish,x,y,99,36,324,140,50)))and
    (not(FindBitmapSpiralTolerance(bmpShield,x,y,99,36,324,140,50))))then
    begin
      Pixels:=CountPixels;
      if(CerterComments)then
        WriteLn(inttostr(Pixels)+' average pixels of non-background color.');
      if(Pixels>=342-100)and(Pixels<342+100)then
      begin
        if(FindBitmapSpiralTolerance(bmpNecklace,x,y,99,36,324,140,50))then
          ResultCount:=ResultCount+1;
      end;
      if(Pixels>=442-100)and(Pixels<442+100)then
      begin
        if(FindBitmapSpiralTolerance(bmpSword,x,y,99,36,324,140,50))then
          ResultCount:=ResultCount+1;
      end;
      if(Pixels>=715-100)and(Pixels<715+100)then
      begin
        if(FindBitmapSpiralTolerance(bmpShears,x,y,99,36,324,140,50))then
          ResultCount:=ResultCount+1;
      end;
      if(Pixels>=740-100)and(Pixels<740+100)then
      begin
        if(FindBitmapSpiralTolerance(bmpRing,x,y,99,36,324,140,50))then
          ResultCount:=ResultCount+1;
      end;
      if(Pixels>=990-100)and(Pixels<990+100)then
      begin
        if(FindBitmapSpiralTolerance(bmpHelmet,x,y,99,36,324,140,50))then
          ResultCount:=ResultCount+1;
      end;
      if(Pixels>=1093-100)and(Pixels<1093+100)then
      begin
        if(FindBitmapSpiralTolerance(bmpCerterAxe,x,y,99,36,324,140,50))then
          ResultCount:=ResultCount+1;
      end;
      if(Pixels>=1173-100)and(Pixels<1173+100)then
      begin
        if(FindBitmapSpiralTolerance(bmpSpade,x,y,99,36,324,140,50))then
          ResultCount:=ResultCount+1;
      end;
      if(Pixels>=2256-100)and(Pixels<2256+100)then
      begin
        if(FindBitmapSpiralTolerance(bmpFish,x,y,99,36,324,140,50))then
          ResultCount:=ResultCount+1;
      end;
      if(Pixels>=2244-100)and(Pixels<2244+100)then
      begin
        if(FindBitmapSpiralTolerance(bmpShield,x,y,99,36,324,140,50))then
          ResultCount:=ResultCount+1;
      end;
      if(CerterComments)then
        Writeln('There is/are '+inttostr(ResultCount)+' possible items shown with'
                +' this number of pixels.');
      if(ResultCount=1)then
      begin
        Result:=true;
        Mouse(100,y,1,1,true);
      end;
    end;
  end;
end;



function FindCerter:boolean;
var
  c:integer;
begin
  if(CerterScreen)then
  begin
    CerterUpChars:= LoadChars2(AppPath + 'CharsRS22\');
    CerterChatChars:= LoadChars2(AppPath + 'CharsChat2\');
    repeat
    c:=c+1;
    if(CerterScreen)then
    begin
      if(not(SolveCerter))then
      begin
       Mouse(449, 11,1,1,true);
        if(CerterFindObj('Talk',7039859,15))then
        begin
          Mouse(x,y,1,1,false);
          CerterChooseOption('Talk');
          CerterTalkToRand;
          Flag;
          Wait(500+random(100));
        end;
      end else
        Break;
    end;
    until(c>100)
    if(c<100)then
    begin
      Certers:=Certers+1;
      Result:=true;
    end;
  end;
end;



procedure solemnrandoms;
begin
checkifloged;
FindBox;
findtalk;
findpick;
FindDoctorFord;
FindCerter;
FindLamp('smithing');
FindMiscRandoms;
if(FindFight)then
begin
writeln('we are being attacked, running away')
RunAwayDirection('S')
RunBack;
randomfight:=randomfight+1
end;
end;



procedure walkingrandoms;
begin
checkifloged;
FindLamp('smithing');
findbox;
end;




procedure walktoaubury;
begin
if(bankcolor=0)then
BankColor:=GetSymbolColor('bank');
writeln('BankColor:'+inttostr(BankColor));
begin
mouse(664,131,4,3,true)
wait(12000+random(2000))
flag;
begin
magicthingy:=GetSymbolColor('magic shop');
writeln('magic shop color:'+inttostr(magicthingy));
if(findcolorspiraltolerance(x,y,floorcolor,576,10,718,159,5))or
(findcolorspiraltolerance(x,y,magicthingy,576,10,718,159,5))then
begin
mouse(x,y,1,2,true)
walkingrandoms;
flag;
end;
end;
end;
end;




procedure walktoauburyrandom;
begin
if(bankcolor=0)then
BankColor:=GetSymbolColor('bank');
writeln('BankColor:'+inttostr(BankColor));
begin
mouse(610,88,4,3,true)
flag;
mouse(644,144,4,3,true)
flag;
begin
magicthingy:=GetSymbolColor('magic shop');
writeln('magic shop color:'+inttostr(magicthingy));
begin
if(findcolorspiraltolerance(x,y,floorcolor,546,1,750,159,5))or
(findcolorspiraltolerance(x,y,magicthingy,546,1,750,159,5))then
mouse(x,y,1,2,true)
walkingrandoms;
flag;
end;
end;
end;
end;



procedure Randomwalkselecter;
var b:integer;
Begin
  b:= random(2)+1
  begin
  If(b= 1)then
  walktoauburyrandom;
  If(b= 2)then
  walktoaubury;
   end;
end;




procedure findandtalk;
begin
walkingrandoms;
repeat
FindObj('Talk',1914942,12)
wait(200+random(100))
mouse(x,y,1,1,false)
wait(1000+Random(500))
until(FindBitmapToleranceIn(teleport,x,y,5,5,512,334,50))or
(FindBitmapToleranceIn(teleportbackup,x,y,5,5,512,334,50))
mouse(x,y,1,1,true)
flag;
wait(4000+random(2000))
end;





procedure detectroom2;
begin
if(findcolorspiraltolerance(x,y,10855856,561,4,719,167,14))then
begin
mouse(x,y,1,1,true)
wait(random(1000+800))
flag;
writeln('We have been teleported to the middle-room')
end;
end;




function detectrooms:boolean;
begin
walkingrandoms;
result:=false;
if(findbitmaptolerancein(arrow, x, y, 543, 3, 760, 165, 50))then
result:=true;
if(result= false)then
detectroom2;
end;




procedure backtoshop;
begin
walkingrandoms;
repeat
wait(random(500+500))
until(findbitmaptolerancein(arrow,x,y,543,3,760,165,50))
begin
Mouse(x,y,1,2,true)
flag;
repeat
FindObj('Use',11332846,80)
Mouse(x,y,3,2,true)
flag;
wait(2500+random(1000))
until(findcolorspiraltolerance(x,y,floorcolor,546,1,750,159,5))or
(findcolorspiraltolerance(x,y,magicthingy,546,1,750,159,5))
wait(1000+random(1000));
end;
end;





procedure backtobank;
begin
mouse(646,11,1,2,true)
flag;
wait(9000+random(1000))
begin
if(bankcolor=0)then
BankColor:=GetSymbolColor('bank');
writeln('BankColor:'+inttostr(BankColor));
repeat
FindObj('Use',140598,12)
Mouse(x,y,1,1,false)
wait(600+random(500))
if(FindbitmapspiralTolerance(UseQuick,x,y,5,5,757,491,50))or
(FindbitmapspiralTolerance(UseQuicky,x,y,5,5,757,491,50))then
mouse(x,y,1,1,true)
flag;
wait(1000+random(500))
until(IsTextAtEx(185,34,'The Bank of',30,UpChars,True,False,0,0,-1))
begin
wait(700+random(600))
Deposit(2,28,2);
mined:=mined+28
timestalked:=timestalked+1
exp:=exp+140
c:=0;
end;
end;
end;




procedure Start(sender: TObject);
begin
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:= mrOk;
writeln('///////////////////////////\\\\\\\\\\\\\\\\\\\\\\\\\')
writeln(' //YOU ARE USING SOLEMN WISHES ESSENCE MINER 3.1\\')
writeln(' /////////THE DAWN OF AUTOING IS APON US\\\\\\\\\')
writeln(' /////////ANY PROBLEMS OR QUESTIONS PM ME\\\\\\\\\\')
writeln('//////I HOPE YOU ENJOY YOUR AUTOING EXPERIENCE\\\\\\\')
SWusername:= usernameenter.text;
SWpassword:= passwordenter.text;
tripsyouset:= numberoftrips.text;
end;




procedure initform;
begin
frmDesign := CreateForm;
frmDesign.Left := 266;
frmDesign.Top := 277;
frmDesign.Width := 228;
frmDesign.Height := 259;
frmDesign.Caption := 'Solemn Wishes ess miner';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := false;
frmDesign.PixelsPerInch := 96;
usernamepanel := TPanel.Create(frmDesign);
usernamepanel.Parent := frmDesign;
usernamepanel.Left := 12;
usernamepanel.Top := 25;
usernamepanel.Width := 78;
usernamepanel.Height := 28;
usernamepanel.Caption := 'Username';
usernamepanel.Enabled := False;
usernamepanel.TabOrder := 8;
usernameenter := TEdit.Create(frmDesign);
usernameenter.Parent := frmDesign;
usernameenter.Left := 95;
usernameenter.Top := 26;
usernameenter.Width := 121;
usernameenter.Height := 21;
usernameenter.TabOrder := 9;
passwordtag := TPanel.Create(frmDesign);
passwordtag.Parent := frmDesign;
passwordtag.Left := 10;
passwordtag.Top := 68;
passwordtag.Width := 81;
passwordtag.Height := 27;
passwordtag.Caption := 'Password';
passwordtag.TabOrder := 10;
passwordenter := TEdit.Create(frmDesign);
passwordenter.Parent := frmDesign;
passwordenter.Left := 94;
passwordenter.Top := 68;
passwordenter.Width := 122;
passwordenter.Height := 21;
passwordenter.TabOrder := 11;
tripstodo := TPanel.Create(frmDesign);
tripstodo.Parent := frmDesign;
tripstodo.Left := 66;
tripstodo.Top := 106;
tripstodo.Width := 80;
tripstodo.Height := 24;
tripstodo.Caption := 'Trips To Do';
tripstodo.TabOrder := 13;
numberoftrips := TEdit.Create(frmDesign);
numberoftrips.Parent := frmDesign;
numberoftrips.Left := 36;
numberoftrips.Top := 130;
numberoftrips.Width := 141;
numberoftrips.Height := 21;
numberoftrips.TabOrder := 14;
startbutton := TButton.Create(frmDesign);
startbutton.Parent := frmDesign;
startbutton.OnClick:= @Start;
startbutton.Left := 62;
startbutton.Top := 169;
startbutton.Width := 75;
startbutton.Height := 25;
startbutton.Caption := 'Start';
startbutton.TabOrder := 12;
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 progressReport;
var
 RHours,Minutes,Seconds,RMinutes,RSeconds:LongInt;
 Time:String;
begin
if(GetSystemTime-report2 > report*60000)then
begin
Seconds:=(GetSystemTime) 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('');
writeln('     WORKED FOR '+(TIME));
writeln('  <This essence miner was created by solemn wishes >');
writeln('         TALKED TO THE AUBURY '+inttostr(timestalked)+' TIMES SO FAR');
writeln('            MINED '+inttostr(mined)+ ' ESSENCE ROCKS SO FAR');
writeln('            GAINED '+inttostr(exp)+' EXP SO FAR')
writeln('       FOUND AND RAN AWAY FROM '+inttostr(randomfight)+' RANDOM EVENTS ')
writeln('');
writeln('');
Report2:=GetSystemTime;
end;
end;
end;




Procedure LoadDTM;
Begin

  logged := DTMFromString('78DA63DCCCC8C0A008C448E0FFFFFF601A26C' +
       'A780CC8FAC18015C0D52C05B27E31A09983A6A601D31C47675F54' +
       '35FB812C1502EE5981A9C6C32B04450D00F097111D');

  login := DTMFromString('78DA635465646070026224F0FFFF7F300D136' +
       '5DC0564391050530364DD61C00AE06AF881AC5B0C68E6A0A93107' +
       'B2EE12501301643D4055E3E1158CA20600DD4710DE');

  runeshop:= DTMFromString('78DA6364C004C91136609A1188FF03010018E' +
       '604F6');

end;




procedure loadbitmaps;
begin
  teleport := BitmapFromString(10, 15, 'z78DA3330182CC00D0720' +
       '5E1731E2C3492FB5C28AD4D8192A7A870A00000D1EB9C5');

  teleportbackup := BitmapFromString(29, 17, 'z78DA33301805A3' +
       '60700137208091A3AE1D58D722AB27462FF1EA8951499E69B4162' +
       '7D50D03EB5ACA53C2A86BE9E35A5AE732525D325A328FBA7678B8' +
       '76A80000F0D74AB7');

  play := BitmapFromString(8, 12, 'z78DA33302007B8110170A927D' +
       '57C5AAB2746EF60763F2DE28B780000AAE17B79');

  clickhere := BitmapFromString(10, 16, 'z78DA3330185EC0CD8D1' +
       'CF5A4EAA2C4C6C1A31793A4C45E624C187E7A2989056A0000A02B' +
       'B79D');

  arrow := BitmapFromString(4, 2, 'C5BAC9C5BAC9C5BAC9C5BAC9E2' +
       '6225E26225E26225E26225');


  Handle := BitmapFromString(15, 27,
       '564D41595145564D41544A3C544A3C595145564D41564D41564D41' +
       '564D41595145000001000001544A3C4F4538544A3C595145564D41' +
       '544A3C544A3C544A3C5951455951455951455951450000012F2000' +
       '362400000001544A3C564D41544A3C544A3C564D41564D41564D41' +
       '5951455951455951450000012F20002F2000362400000001302020' +
       '564D41544A3C544A3C595145564D41595145564D41595145595145' +
       '0000012F2000362400362400000001302020564D41564D41564D41' +
       '564D41564D41544A3C544A3C544A3C0000012F20002F2000362400' +
       '362400000001302020544A3C544A3C544A3C544A3C544A3C544A3C' +
       '544A3C544A3C0000012F2000362400362400362400000001302020' +
       '544A3C564D41564D41564D41544A3C564D41564D410000012F2000' +
       '2F2000362400362400000001302020302020564D41564D41564D41' +
       '595145564D41564D41564D410000012F2000362400362400000001' +
       '302020302020544A3C544A3C544A3C544A3C595145544A3C544A3C' +
       '0000012F2000362400362400362400000001302020564D41564D41' +
       '544A3C544A3C544A3C564D41544A3C4F45380000012F2000362400' +
       '362400000001302020302020564D41564D41544A3C544A3C595145' +
       '595145564D410000012F2000362400362400362400000001302020' +
       '564D41564D41544A3C544A3C564D41564D41595145595145000001' +
       '2F20002F20002F2000000001302020302020564D41564D41544A3C' +
       '564D41564D41544A3C564D410000012F20002F20002F2000362400' +
       '000001302020564D41544A3C544A3C544A3C595145544A3C544A3C' +
       '564D410000012F20002F20002F2000000001302020302020544A3C' +
       '544A3C564D41564D41595145544A3C544A3C0000012F20002F2000' +
       '2F2000000001302020302020595145544A3C564D41595145595145' +
       '595145564D41564D410000012F20002F20002F2000000001302020' +
       '595145595145564D41564D41595145595145595145595145000001' +
       '2F20002F20002F2000000001302020302020595145595145595145' +
       '595145564D41564D41564D41564D410000012F20002F20002F2000' +
       '000001302020564D41595145595145595145595145564D41564D41' +
       '544A3C0000012F20002F20002F2000000001302020302020564D41' +
       '595145595145544A3C544A3C564D41595145564D410000012F2000' +
       '2F20002F2000000001302020544A3C564D41595145595145544A3C' +
       '544A3C564D41564D41564D410000012F20002F2000000001302020' +
       '302020544A3C564D41595145595145564D41544A3C544A3C4F4538' +
       '000001271B002F20002F2000000001302020595145544A3C564D41' +
       '595145595145595145544A3C544A3C544A3C0000011D1500271B00' +
       '000001302020302020595145544A3C564D41595145595145595145' +
       '564D41564D41564D410000011D15001D1500000001302020595145' +
       '544A3C544A3C564D41595145595145595145595145595145544A3C' +
       '0000011D15001D1500000001302020564D41595145595145595145' +
       '595145564D41595145595145564D41544A3C564D41000001000001' +
       '302020302020595145595145595145595145544A3C564D41595145' +
       '544A3C544A3C4F4538564D41595145302020302020564D41595145' +
       '564D41564D41564D41544A3C544A3C564D41544A3C544A3C544A3C' +
       '');

UseQuick := BitmapFromString(16, 6,
        'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
        '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
        'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
        'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
        '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
        '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
        'FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000000005D5447' +
        'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
        '000000000000000000FFFFFFFFFFFFFFFFFF');

UseQuickY := BitmapFromString(17, 5,
        'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
        '000000000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF00' +
        'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
        '000000000000FFFF00FFFF00000000000000000000FFFF00FFFF00' +
        '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
        '000000FFFF00FFFF00000000000000000000FFFF00FFFF00000000' +
        '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
        'FFFF00FFFF00000000000000000000FFFF00FFFF00000000000000' +
        'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
        'FFFF00000000000000000000');

bmpNecklace := BitmapFromString(30, 1, 'z78DA7332B17433B734363' +
       '17235347002B39149A8B891A58BB9053289294EBC4A5C24F16602' +
       '004B97286E');
bmpSword := BitmapFromString(30, 2, 'z78DA7332B27431B730363172' +
       '35347002B37191986AC8137132B0743637838A83D9C8242E71141' +
       '2BFF9785D8E8B4D6B370300B2B65059');
bmpShears := BitmapFromString(30, 2, 'z78DA3336317235347032B07' +
       '436378390C64488D042252EBDC8B2C86A88514F0B97E0720F7EBB' +
       '00EC754F5D');
bmpRing := BitmapFromString(30, 2, 'z78DA7332B27431B7303631723' +
       '5347002B37191B8D4902A4E892E52550E949B2122C8E20009EF50' +
       'B3');
bmpHelmet := BitmapFromString(30, 2, 'z78DA3336317235347032B27' +
       '431B740268D31C48D69A0923C1328318772B7916732008DB8502F' +
       '');
bmpCerterAxe := BitmapFromString(30, 2, 'z78DA7332B27431B770C24B1A9B' +
       '18B91A1A404862543A19583A9B9BE12231D510A30B8524C60D186' +
       'C6AB919BF7A94B042120700F0A05073');
bmpSpade := BitmapFromString(30, 2, 'z78DA7332B17433B734363172' +
       '35347002B33149A8AC91A58BB90532894B1C599612BD384530DD4' +
       '6B19B91C569E16600F6AC50A3');
bmpFish := BitmapFromString(30, 2, 'z78DA7332B27431B770C2411A9' +
       'B18B91A1A505796787188087E5B2877157922A4BA190004CE5092' +
       '');
bmpShield := BitmapFromString(30, 2, 'z78DA3336317235347032B17' +
       '433B78490C64488381959BA985B40C5C16CE24528D78BD355986E' +
       'A692BD9498062101C5625087');
end;






 ////////////////////////////////////////////////////
 //       AUTO RESPONDER BY SOLEMN WISHES          //
 //  THIS IS THE NEW WAVE OF ANTIBAN FEATURES      //
 ////////////////////////////////////////////////////
 //UNDER CONSTRUCTION* started work on the 21st of //
 //december this is a working version but not yet  //
 //complete.                                       //
 ////////////////////////////////////////////////////


procedure respond;
begin
 writeln('Responding to the question')
  sendkeyssilent(respondwith)
    wait(100+random(50))
 sendkeys(chr(13));
end;



procedure createtext;
var s:integer;
begin
  s:=CreateBitmapMaskFromText(messages,ChatChars);
    if(FindBitmapMaskTolerance(s,x,y,8,346,211,477,10,85))then
      begin
    FreeBitmap(s);
       writeln('succesfully found a possible question')
   respond;
 end;
end;





procedure RandomTalk;
var b:integer;
Begin
if(randomwords='1') then
  b:= random(100) + 1;
  begin
  If(b= 1)then
   sendkeyssilent('lvls, mines 39'+chr(13));
  If(b= 2)then
   sendkeyssilent('need 2800 ess more'+chr(13))
  If(b= 3)then
   sendkeyssilent('i cant wait till holidays'+chr(13))
  If(b= 4)then
   sendkeyssilent('im saving for full rune'+chr(13))
  If(b= 5)then
   sendkeyssilent('cool'+chr(13))
  If(b= 6)then
   sendkeyssilent('how long have you been playing'+chr(13))
  If(b= 7)then
   sendkeyssilent('mining essence is slow cuz i have addy pic... could some1 give me rune? XD'+chr(13))
  If(b= 8)then
   sendkeyssilent('200xp to my next lvl!!'+chr(13))
  If(b= 9)then
   sendkeyssilent('nice pick'+chr(13))
  If(b= 10)then
   sendkeyssilent('dam this is boring'+chr(13))
   end;
end;




procedure minethatess;
begin
repeat
FindObj('Mine',8553104,10)
if(IsTextAt2(9,9,'Mine',100))then
getmousepos(x,y)
Mouse(x,y,2,3,true)
if (antibantrue='true')then
begin
createtext;
RandomTalk;
wait(8000+2000)
end;
solemnrandoms;
c:=c+1
until(c=15)or(inventoryfull= true)
end;




procedure SetupSSIcustom;
begin
LoadChars('');
DisguiseScar(MaskName);
UpChars:= LoadChars2(AppPath + 'CharsRS22\');
ChatChars:= LoadChars2(AppPath + 'CharsChat2\');
StatChars:= LoadChars2(AppPath + 'CharsChat2\fontsmall\');
CWindow := BitmapFromString(66, 8, 'z78DA33304000372460' +
       '800170890F1420C63DB473333D4D264664342E06CACCE11117D4F' +
       '2C5E08C0BFC251BA61A4ACCA145BE20C66DD4F205EDFC4EAD928D' +
       '76BA06BF083DE382F8D432506963A04488610FCE5C408C69F87D3' +
       '454E28276651D754B636A95F994E76E5AD49E002F369293');
MarkTime(LogOutMark);
MarkTime(RandomChatMark);
MarkTime(RotateMark);
MarkTime(KillScriptMark);
MarkTime(LeaveScreenMark);
GasColor:=8100004;//Reference color of gas.
LoadSSIBmps;
ST:=GetSystemTime;
SetMouseMode(false);
if(SetCamera='')then
  SetCamera:='N';
if(LoggedIn)then
begin
  {Face(SetCamera);
  SendArrowSilentWait(0,1400+random(100)); }
end;
end;




begin;
SafeInitForm;
SafeShowFormModal;
activateclient;
wait(500+random(500))
SetupSSIcustom;
loaddtm;
loadbitmaps;
FindPickHeadColor;
repeat
Randomwalkselecter;
findandtalk;
detectrooms;
minethatess;
backtoshop;
backtobank;
progressReport;
until(false)
end.