{.Script Info:
# ScriptName  = ARi - Anti-Random +Procedure include
# Author      = Deprr
# Description = Anti-Random + Procedure include
# Version     = 2.0
# Date        = 6-6-05
# Comments    = Massive work has been done to this include more to come
/Script Info}
 {
        |||           |||           |||           |||           |||
       (0 0)         (o o)         (. .)         (o o)         (0 0)
   ooO--(_)--Ooo ooO--(_)--Ooo ooO--(_)--Ooo ooO--(_)--Ooo ooO--(_)--Ooo
                        _____ __________.__
                       /  _  \\______   \__|
                      /  /_\  \|       _/  |
                     /    |    \    |   \  |
                     \____|__  /____|_  /__|
                             \/       \/
                       _____          __  .__
                      /  _  \   _____/  |_|__|
                     /  /_\  \ /    \   __\  |  ______
                    /    |    \   |  \  | |  | /_____/
                    \____|__  /___|  /__| |__|
                            \/     \/
            __________                    .___
            \______   \_____    ____    __| _/____   _____
             |       _/\__  \  /    \  / __ |/  _ \ /     \
             |    |   \ / __ \|   |  \/ /_/ (  <_> )  Y Y  \
             |____|_  /(____  /___|  /\____ |\____/|__|_|  /
                    \/      \/     \/      \/            \/
                       + Procedure include (I.Txt)
                                 v 2.0
                                  For
                               Scar 2.0
        |||           |||           |||           |||           |||
       (0 0)         (o o)         (. .)         (o o)         (0 0)
   ooO--(_)--Ooo ooO--(_)--Ooo ooO--(_)--Ooo ooO--(_)--Ooo ooO--(_)--Ooo
 _______           __          ______          _____
|   |   |.---.-.--|  |.-----. |   __ \.--.--. |     \.-----.-----.----.----.
|       ||  _  |  _  ||  -__| |   __ <|  |  | |  --  |  -__|  _  |   _|   _|
|__|_|__||___._|_____||_____| |______/|___  | |_____/|_____|   __|__| |__|
                                      |_____|              |__|

You are Useing ARI.txt
enjoy yourself useing it
i will always be updateing this when i come across something to add
if you would like to suggest sumthing for me to put into this
  email me at : Deprr.Stave@gmail.com
             OR
  Send me an im on aim at : DeprrReprrEprr
     im usually always on aim if im away u can just leave a message and ill
     c it when i get back from where ever i am

 (>'-')>---------------------------------------<('-'<)
         We were inspired to make this include
             because we too were once noobs.
 (>'-')>---------------------------------------<('-'<)
       Any users of this include are not allowed to
       edit, copy, or redistribute any pieces and/or
       the whole without written consent of either
       Deprr or Stave.
 (>'-')>---------------------------------------<('-'<)
 Log of -changes:
    ARiDS.txt changes
   1.0a -Almost done
   1.0b -initial release (only mining randoms at the moment will
                         be updated with all randoms soon
   2.0  -axe antis included ther still in beta still working on them
   2.1  -axe still beta, working smoking rock included!
   2.2  -New alert box added
        -axe anti still not fully functioning
    ARi.txt changes
   1.0  -converted ARiDS.txt into ARi.txt
        -more anti randoms coming soon!
   2.0  -This include is now a compilation of both of my includes
         ARi.txt and I.txt
        -massive new procedure and fuctions available
        -check The Ari Project Host site for tut
 (>'-')>---------------------------------------<('-'<)
  ARi.txt procedures::
    logoutrs;            (logs out of runescape)
    GetPickColor;        (only works if pic is in first slot)
    RunAwayNorth;        (runs away to the north)
    PickAnti;            (only works if pic is in first slot)
    GasFinder;           (finds the smoking rock and stops mining)
    YellowTxtRandoms;    (includes: rockgolem,misteriousman,genie,drunkendwarf)
    LoadTheBMPS;         (loads bitmaps found at bottom of page (included in setupARiDS;))

***For I.txt procedure tut check The ARi Project Host site
 (>'-')>---------------------------------------<('-'<)
  HOW TO INCLUDE IN YOUR SCRIPT::
    make sure this file is saved in the same folder as
    your script!
    put>    {.include ARi.txt}   {after your variables!
    Call upon any of the procedures above in your script!!
 (>'-')>---------------------------------------<('-'<)}
var
BrokenPick,Gasers,use,usey,take,takey,pickhead,pickhandle:integer;
AxeBaseInvColor,AxeHeadInvColor,axe,a,b,c,d:integer;
xyxy,talkto,talktoy:integer;

{I.txt Procedures}

procedure Rwait(Rw:integer);
 var Rww:longint;
 begin
 Rww:=rw+random(rw/2)+getsystemtime;
 repeat
 wait(random(10));
 until(getsystemtime>rww);
 end;

procedure Fwait;
var x,y,flag:integer;
begin
repeat
rwait(2)
until(findcolorspiral(x,y,flag,628,63,669,97))or(not(findcolorspiral(x,y,flag,545,1,752,168)))or
     (findcolorspiral(x,y,255,628,63,669,97))or(not(findcolorspiral(x,y,255,545,1,752,168)))
end;

Procedure MouseX(x,y:Integer);
begin
 x:=x+random(5);
 y:=y+random(5);
 RWait(100);
 MoveMouseSmoothEx(x,y,2,6,25,16,15);
 GetMousePos(x,y);
 RWait(300);
end;


Procedure CMouse(x,y:integer; left:boolean);
begin
 Mousex(x,y);
 GetMousePos(x,y);
 RWait(50);
 HoldMouse(x,y,left);
 RWait(20);
 ReleaseMouse(x,y,left);
 Rwait(300);
end;

function FindMenuBmpFromTop(BitMap1:integer; BitMap2:integer; BitMapTol:integer; objcolor,objtol:integer):boolean;
var x,y,xx,yy:integer;
begin
cmouse(x,y,false)
rwait(1000)
if(not(FindBitmapToleranceIn(bitmap1,x,y,0,0,514,339,BitMapTol)))
or(not(FindBitmapToleranceIn(bitmap2,x,y,0,0,514,339,BitMapTol)))then
while(yy<14)do
begin
 rwait(30);
 if(xx=27)then
  begin
   xx:=0;
   yy:=yy+1;
  end;
 if(yy>13)then break;
 if(FindColorSpiralTolerance(x,y,objcolor,xx*25+5,yy*25+5,xx*25+25,yy*25+25,objtol))then
  begin
   mousex(516+random(80),338+random(50))
   rwait(100)
   Mousex(x,y);
   rwait(100);
   cmouse(x,y,false)
   rwait(400)
   if(FindBitmapToleranceIn(bitmap1,x,y,0,0,514,339,BitMapTol))
   or(FindBitmapToleranceIn(bitmap2,x,y,0,0,514,339,BitMapTol))then
    begin
     rwait(500)
     cmouse(x,y,true)
     result:=true
     break;
    end;
  end;
 xx:=xx+1;
end;
end;

procedure SendKeysSilentWait(s:string; WaitTime:integer);
var x,y:integer;
begin
x:=0
y:=0
repeat
wait(1+random(1))
x:=x+1
until(x=waittime)
SendKeysSilent(s)
repeat
wait(1+random(1))
y:=y+1
until(x=waittime)
end;

procedure FindColorClick(color:integer; x1,y1,x2,y2:integer; left:boolean);
var x,y:integer;
begin
rwait(500)
if(findcolorspiral(x,y,color,x1,y1,x2,y2))then
rwait(100)
cmouse(x,y,left)
end;

procedure dropallcolor(color:integer; WaitTime:integer);
var x,y,DropWhite,DropYellow:integer;
begin
DropWhite := BitmapFromString(29, 11, 'z78DA7373C30E4C1D4D4D4D8' +
     'C061B89EC42033018CC6EC6742DA6F8D0722DB2F8D072AD1BD1E9' +
     'DC8DC41C418C7ACA5D6B800470E9C59F2388574F896B31DD492D3' +
     '3892901283179D4B5F85D4B5E9A2435D7E0379318F5067801A64B' +
     'F0CBE252497C3AC7A51E005840B4F8');
DropYellow := BitmapFromString(29, 11, 'z78DA73737373333070C320' +
     '4D1D4D4D4D8C061B89EC420818CC6EC6742DA6F8D0722DB2F8D07' +
     '2AD1BD1E9DC8DC41C418C7ACA5D8B0C70E9C59F2388574F896B31' +
     'DD492D33892901283179D4B5F85D4B5E9A2435D7E0379318F5067' +
     '801A64BF0CBE252497C3AC7A51E00D98EA294');
repeat
if(findcolorspiral(x,y,color,551,203,746,466))then
MoveMouseSmoothEx(x,y,1,3,45,20,10)
wait(waittime+random(100))
cmouse(x,y,false)
wait(waittime+random(100))
if(FindBitmapToleranceIn(DropWhite,x,y,533,201,756,471,150))or
  (FindBitmapToleranceIn(DropYellow,x,y,533,201,756,471,150))then
wait(waittime+random(100))
MoveMouseSmoothEx(x+random(45),y+5+random(9),1,3,45,20,10)
getmousepos(x,y)
wait(waittime+random(100))
cmouse(x,y,true)
wait(waittime+random(100))
MoveMouseSmoothEx(0+random(764),0+random(502),1,3,45,20,10)
wait(waittime+500+random(100))
until(not(findcolorspiral(x,y,color,551,203,746,466)))
end;

procedure ClickInv(col:integer; row:integer; left:boolean);
begin
if ((col = 1)and(row =1)=true)then
 begin
 rwait(100)
 cmouse(588+random(5),227+random(5),left)
 rwait(100)
 end;
if ((col = 2)and(row =1)=true)then
 begin
 rwait(100)
 cmouse(626+random(5),228+random(5),left)
 rwait(100)
 end;
if ((col = 3)and(row =1)=true)then
 begin
 rwait(100)
 cmouse(669+random(5),227+random(5),left)
 rwait(100)
 end;
if ((col = 4)and(row =1)=true)then
 begin
 rwait(100)
 cmouse(710+random(5),229+random(5),left)
 rwait(100)
 end;
if ((col = 1)and(row =2)=true)then
 begin
 rwait(100)
 cmouse(586+random(5),264+random(5),left)
 rwait(100)
 end;
if ((col = 2)and(row =2)=true)then
 begin
 rwait(100)
 cmouse(628+random(5),264+random(5),left)
 rwait(100)
 end;
if ((col = 3)and(row =2)=true)then
 begin
 rwait(100)
 cmouse(670+random(5),264+random(5),left)
 rwait(100)
 end;
if ((col = 4)and(row =2)=true)then
 begin
 rwait(100)
 cmouse(710+random(5),264+random(5),left)
 rwait(100)
 end;
if ((col = 1)and(row =3)=true)then
 begin
 rwait(100)
 cmouse(588+random(5),300+random(5),left)
 rwait(100)
 end;
if ((col = 2)and(row =3)=true)then
 begin
 rwait(100)
 cmouse(629+random(5),299+random(5),left)
 rwait(100)
 end;
if ((col = 3)and(row =3)=true)then
 begin
 rwait(100)
 cmouse(671+random(5),300+random(5),left)
 rwait(100)
 end;
if ((col = 4)and(row =3)=true)then
 begin
 rwait(100)
 cmouse(712+random(5),302+random(5),left)
 rwait(100)
 end;
if ((col = 1)and(row =4)=true)then
 begin
 rwait(100)
 cmouse(586+random(5),338+random(5),left)
 rwait(100)
 end;
if ((col = 2)and(row =4)=true)then
 begin
 rwait(100)
 cmouse(629+random(5),336+random(5),left)
 rwait(100)
 end;
if ((col = 3)and(row =4)=true)then
 begin
 rwait(100)
 cmouse(670+random(5),337+random(5),left)
 rwait(100)
 end;
if ((col = 4)and(row =4)=true)then
 begin
 rwait(100)
 cmouse(713+random(5),339+random(5),left)
 rwait(100)
 end;
if ((col = 1)and(row =5)=true)then
 begin
 rwait(100)
 cmouse(585+random(5),373+random(5),left)
 rwait(100)
 end;
if ((col = 2)and(row =5)=true)then
 begin
 rwait(100)
 cmouse(631+random(5),375+random(5),left)
 rwait(100)
 end;
if ((col = 3)and(row =5)=true)then
 begin
 rwait(100)
 cmouse(670+random(5),375+random(5),left)
 rwait(100)
 end;
if ((col = 4)and(row =5)=true)then
 begin
 rwait(100)
 cmouse(712+random(5),375+random(5),left)
 rwait(100)
 end;
if ((col = 1)and(row =6)=true)then
 begin
 rwait(100)
 cmouse(585+random(5),405+random(5),left)
 rwait(100)
 end;
if ((col = 2)and(row =6)=true)then
 begin
 rwait(100)
 cmouse(629+random(5),409+random(5),left)
 rwait(100)
 end;
if ((col = 3)and(row =6)=true)then
 begin
 rwait(100)
 cmouse(671+random(5),409+random(5),left)
 rwait(100)
 end;
if ((col = 4)and(row =6)=true)then
 begin
 rwait(100)
 cmouse(713+random(5),410+random(5),left)
 rwait(100)
 end;
if ((col = 1)and(row =7)=true)then
 begin
 rwait(100)
 cmouse(586+random(5),445+random(5),left)
 rwait(100)
 end;
if ((col = 2)and(row =7)=true)then
 begin
 rwait(100)
 cmouse(630+random(5),444+random(5),left)
 rwait(100)
 end;
if ((col = 3)and(row =7)=true)then
 begin
 rwait(100)
 cmouse(671+random(5),445+random(5),left)
 rwait(100)
 end;
if ((col = 4)and(row =7)=true)then
 begin
 rwait(100)
 cmouse(712+random(5),444+random(5),left)
 rwait(100)
end;
end;

procedure UseInvItem(col:integer; row:integer);
var x,y,UseWhite,UseYellow:integer;
begin
UseWhite := BitmapFromString(24, 11, 'z78DA737343005347535313236' +
          '4D20DAF2C2D48641B0DC08078D951F70C2DF7B8E105F8EDC2A592' +
          '3CF7608AE302F8D563BA8A16E1437C2C608A539E7EF0FB979898C' +
          '51F9EB84C20263D5312BFC4A737FCE613E35FF2D23F66F8E3F705' +
          'F12A89D70500812A6842');
UseYellow := BitmapFromString(24, 11, 'z78DA737373733330700393A6' +
          '8EA6A62646C8A41B5E595A90C8364200F1B2A3EE195AEE4196C52' +
          '4F1DB854B2579EEC114C705F0ABC774152DC287F858C014A73CFD' +
          'E0F72F31318B3F3C7199404C7AA6247E894F6FF8CD27C6BFE4A57' +
          'FCCF0C7EF0BE25512AF0B003F47597A');
clickinv(col,row,false)
rwait(200)
 if(FindBitmapToleranceIn(UseWhite,x,y,526,203,756,468,100))or
   (FindBitmapToleranceIn(UseYellow,x,y,526,203,756,468,100))then
rwait(100)
cmouse(x+random(50),y+random(5),true)
rwait(100)
end;

procedure UseItemWith(Item1col:integer; Item1row:integer; Item2col:integer; Item2row:integer);
begin
rwait(50)
useinvitem(Item1col,Item1row)
rwait(100)
useinvitem(Item2col,Item2row)
rwait(50)
end;

{ARi.txt procedures}

procedure logoutrs;
begin
cmouse(648,485,true)
rwait(1500)
mousex(643,377)
rwait(500)
cmouse(643,377,true)
rwait(500)
end;

Procedure GetAxeHeadInvColor;
begin
   Status('Getting AxeHeadInvColor...');
   rWait(500);
   Mousex(591,220);
   rWait(500);
   If(IsTextAt2(9,9,'Wield',100))then
     begin
      AxeHeadInvColor := GetColor(591,220);
      Status('AxeHeadInvinColor is '+inttostr(AxeHeadInvColor));
      rWait(500)
     end else
    begin
      Writeln('*************************');
      Writeln('No Axe in first inv slot!');
      Writeln('*************************');
      logoutrs;
    end;
end;

Procedure GetAxeBaseInvColor;
begin
   Status('Getting AxeBaseInvColor...');
   rWait(500);
   Mousex(580,227);
   rWait(500);
   If(IsTextAt2(9,9,'Wield',100))then
     begin
      AxeBaseInvColor := GetColor(580,227);
      Status('AxeBaseInvinColor is '+inttostr(AxeBaseInvColor));
      rWait(500)
     end else
    begin
      Writeln('*************************');
      Writeln('No Axe in first inv slot!');
      Writeln('*************************');
      logoutrs;
    end;
end;

procedure Fixaxe;
begin
status('Fixing Pick')
movemouse(0,0)
 begin
 if(findcolor(c,d,AxeBaseInvColor,566,211,599,228))then
 Mousex(c,d)
 rWait(100)
 cmouse(c,d,false)
 if(FindBitmapToleranceIn(Axe,a,b,533,248,742,469,150))then
 end;
  begin
  if(not(FindBitmapToleranceIn(Axe,a,b,533,248,742,469,150)))then
  if(not(findcolor(a,b,AxeHeadInvColor,566,211,599,228)))then
  rWait(100)
  if(findcolorspiral(a,b,AxeHeadInvColor,545,251,742,469))or(findcolorspiral(a,b,pickhead,646,205,742,469))then
  CMouse(a,b,false)
  rWait(1000)
  if(FindBitmapToleranceIn(use,a,b,533,248,742,469,150))or(FindBitmapToleranceIn(useY,a,b,533,248,742,469,150))then
  rWait(1000)
  CMouse(a,b,true)
  rWait(1000)
  Mousex(579,229)
  getmousepos(c,d)
  rWait(500)
  CMouse(c,d,true)
  rWait(1000)
  if(findcolor(a,b,AxeHeadInvColor,566,211,599,228))then
  rWait(100)
  Mousex(0,0)
  end;
end;

procedure Checkaxe;{only works if axe is in first slot}
begin
status('checking for axe')
if(not(findcolor(a,b,AxeHeadInvColor,553,208,600,242)))then
repeat
if(findcolorspiral(a,b,AxebaseInvColor,0,0,517,339))then
Mousex(a,b)
rWait(1000)
if(FindColorTolerance(c,d,4361967,0,0,513,23,100))then
CMouse(a,b,false)
rWait(500)
if(FindBitmapToleranceIn(take,a,b,0,0,517,339,150))or(FindBitmapToleranceIn(takeY,a,b,0,0,517,339,150))then
CMouse(a,b,true)
rWait(500)
if(findcolorspiral(a,b,AxeHeadInvColor,676,312,883,577))then
Mousex(a,b)
rWait(1000)
until(findcolorspiral(a,b,AxeHeadInvColor,676,312,883,577))
if(findcolor(a,b,AxeHeadInvColor,566,211,599,228))then
end;

procedure axeAnti;
begin
checkaxe;
rWait(500)
fixaxe;
end;

procedure GetPickColor;{only works if pic is in first slot}
begin
status('getting pickaxe head color')
rWait(500)
PickHead:=getcolor(588,220)
status('getting pickaxe handle color')
rWait(500)
PickHandle:=getcolor(580,228)
end;

procedure FixPick;
begin
status('Fixing Pick')
Mousex(0,0)
 begin
 if(findcolor(c,d,pickhandle,566,211,599,228))then
 Mousex(c,d)
 rWait(100)
 CMouse(c,d,false)
 if(FindBitmapToleranceIn(Axe,a,b,533,248,742,469,150))then
 end;
  begin
  if(not(FindBitmapToleranceIn(Axe,a,b,533,248,742,469,150)))then
  if(not(findcolor(a,b,pickhead,566,211,599,228)))then
  rWait(100)
  if(findcolorspiral(a,b,pickhead,545,251,742,469))or(findcolorspiral(a,b,pickhead,646,205,742,469))then
  CMouse(a,b,false)
  rWait(1000)
  if(FindBitmapToleranceIn(use,a,b,533,248,742,469,150))or(FindBitmapToleranceIn(useY,a,b,533,248,742,469,150))then
  rWait(1000)
  CMouse(a,b,true)
  rWait(1000)
  Mousex(579,229)
  getmousepos(c,d)
  rWait(500)
  CMouse(c,d,true)
  rWait(1000)
  if(findcolor(a,b,pickhead,566,211,599,228))then
  rWait(100)
  Mousex(0,0)
  end;
end;

procedure CheckPick;{only works if pic is in first slot}
begin
status('checking for pickaxe')
if(findcolor(a,b,pickhead,566,211,599,228)=false)then
 begin
  repeat
  if(findcolorspiral(a,b,pickhead,0,0,514,336))then
  Mousex(a,b)
  rWait(1000)
  if(IsTextAt2(9,9,'Take',100))then
  CMouse(a,b,false)
  rWait(500)
  if(FindBitmapToleranceIn(take,a,b,0,0,517,339,150))or(FindBitmapToleranceIn(takeY,a,b,0,0,517,339,150))then
  CMouse(a,b,true)
  rWait(500)
  if(findcolorspiral(a,b,pickhead,551,202,742,469))then
  Mousex(a,b)
  rWait(1000)
  until(findcolorspiral(a,b,pickhead,551,202,742,469))
  if(findcolor(a,b,pickhead,551,202,742,469)=true)then
  fixpick;
 end;

end;

procedure checkifpickbroke;
begin
rWait(500)
Mousex(575+random(10),219+random(10))
rwait(500)
if(istextat2(9,9,'Use',100)=true)then
 begin
 writeln('Pick Broke!')
 writeln('Logging Out')
 logoutrs;
 writeln('Loged Out')
 Mousex(0+random(50),0+random(80))
 writeln('Endless loop begun')
  repeat
  status('Loged Off Head Broke')
  rwait(20)
  until(false)
 end;
end;

procedure PickAnti;
begin
checkpick;
rWait(500)
checkifpickbroke;
end;

procedure InvOpen;
begin
CMouse(650,186,true)
rWait(100)
end;

procedure RunAwayNorth;
begin
CMouse(711,480,true)
rWait(1000)
CMouse(625,267,true)
rWait(500)
 CMouse(651,22,true)
 status('Runing North')
 rWait(10000)
 CMouse(644,139,true)
 rWait(5000)
 CMouse(580,265,true)
 rWait(1000)
 CMouse(650,185,true)
end;

procedure GasFinder;
begin         {OWNED by GenoDemoN U Nubs}{moded by Deprr}
if(FindColor(a,b,12370886,7,6,512,334))or //If you want, you can remove those "//" in the begin of a line, to make gas finding more accurate. Notice: This will cause a MASSIVE lagg!!
(findcolorspiraltolerance(a,b,7900821,7,6,512,334,3))or
(findcolorspiraltolerance(a,b,7771043,7,6,512,334,3))or
//(findcolorspiraltolerance(a,b,6127504,7,6,512,334,3))or
//(findcolorspiraltolerance(a,b,6850712,7,6,512,334,3))or
//(findcolorspiraltolerance(a,b,6915991,7,6,512,334,3))or
//(findcolorspiraltolerance(a,b,6850712,7,6,512,334,3))or
//(findcolorspiraltolerance(a,b,4155518,7,6,512,334,3))or
//(findcolorspiraltolerance(a,b,6719384,7,6,512,334,3))or
//(findcolorspiraltolerance(a,b,6718611,7,6,512,334,3))or
//(findcolorspiraltolerance(a,b,6719384,7,6,512,334,3))or
//(findcolorspiraltolerance(a,b,4812158,7,6,512,334,3))or
//(findcolorspiraltolerance(a,b,10399412,7,6,512,334,3))or
(findcolorspiraltolerance(a,b,13028558,7,6,512,334,3))or
//(findcolorspiraltolerance(a,b,11188414,7,6,512,334,3))or
//(findcolorspiraltolerance(a,b,8821679,7,6,512,334,3))or
(findcolorspiraltolerance(a,b,9084582,7,6,512,334,3))then
begin
CMouse(648,88,true)
writeln('Rock Gas found');
Gasers:=Gasers+1; //Simple counter mate
rWait(20000);   //waits + random waits/2
end;
end;

procedure YellowTxtRandoms;
begin
if(FindColor(a,b,65535,5,5,514,337))then wait(200+random(342))
if(FindColor(a,b,65535,5,5,514,337))then
 begin
 repeat
 rWait(500);
 if(IsTextAt2(9,9,'Ta',100))then
  begin
  GetMousePos(a,b)
  CMouse(a,b,false)
  rWait(300)
  if(FindBitmap(Talkto,a,b))or(FindBitmap(TalktoY,a,b))then
   begin
   CMouse(a,b,true)
   rWait(1000)
   while((FindColor(a,b,16711680,5,345,510,465))or
        (FindColor(a,b,16777215,5,345,510,465)))and
        (not(GetColor(20,434)=0))do
    begin
    CMouse(a,b,true);
    rWait(2500);
    end;
   End;
  end;
until(not(FindColor(a,b,65535,5,5,514,337)))
 end;
end;

procedure OtherRandoms;
begin
if(findcolor(a,b,65280,232,130,275,151))then
rWait(100)
if(findcolor(a,b,65280,232,130,275,151))then
runawaynorth;
end;

procedure LoadTheBMPS;
begin
  Take := BitmapFromString(29, 11, 'z78DA7373230C4C1D4D4D4D8C' +
       '482529370117690006C8E61B60004A5C4B9E09F4347FD4B5A49A4' +
       'F7CDAC6348D78F5C4A479FCAEC595AA71998CCB76CCBC40AAC994' +
       '872DA62E62DC89DF5E52438FD4B0C5EF5A52D300797E242F04884' +
       'FB7F84B4E626299BA29019738F126E3AF29F0973906780131A611' +
       '238E0900F2FBB462');
  TakeY := BitmapFromString(29, 11, 'z78DAED95410EC0200804BF4' +
       '49AF2002FFCFF494D3C35216C76C1F4540E1C8C8E2BAE18116116' +
       '30FB72BF2F35CF0955B61D6F7E8E89DA1EE14BFEAF56E5F3DECE3' +
       '47E3EE379ACB6727545AE76CF6F4125CF6B9B57313AF1BE6AF5D4' +
       'DA62B5AA077A67EC5580F72DEE9CCC2D9F754235CE93F14F817B8' +
       'EC16068CC788E07A08EA256');
  Use := BitmapFromString(24, 11, 'z78DA737343005347535313236' +
       '4D20DAF2C2D48641B0DC08078D951F70C2DF7B8E105F8EDC2A592' +
       '3CF7608AE302F8D563BA8A16E1437C2C608A539E7EF0FB979898C' +
       '51F9EB84C20263D5312BFC4A737FCE613E35FF2D23F66F8E3F705' +
       'F12A89D70500812A6842');
  UseY := BitmapFromString(24, 11, 'z78DA737373733330700393A6' +
       '8EA6A62646C8A41B5E595A90C8364200F1B2A3EE195AEE4196C52' +
       '4F1DB854B2579EEC114C705F0ABC774152DC287F858C014A73CFD' +
       'E0F72F31318B3F3C7199404C7AA6247E894F6FF8CD27C6BFE4A57' +
       'FCCF0C7EF0BE25512AF0B003F47597A');
  BrokenPick := BitmapFromString(28, 11, 'z78DA7373B334323172' +
       'C3419A3A9A9AD29E24C64664350648809EAEC57403F16A88D13BE' +
       'A4EFC6A3049E494805F3DF12613E34E4CF5A4A64F52FD429E99F8' +
       'F51213EFF85D485E5A22CFEF94A75BCADD893FCC07833B89499F9' +
       '4843FF1F988BC38858818E005986EC02F8B4B257966424400C753' +
       '89AD');
  TalkTo := BitmapFromString(29, 11, 'z78DA7373230C4C1D4D4D4D' +
       '8C4825719940B9C90660806C8E0106A0C4B5C826E012A796F9D43' +
       '56DD4B5B8CC213E6D13EF5AF252327ED7E24AD5C4E4265CAEC565' +
       '262E95D40A5BE2639C1877629600C4841EA9614B9E6BC92BCD487' +
       '52DB5C469916E6991127089935A53E02F5B0CF002624C23551C42' +
       '02004BDCB450');
  TalkToY := BitmapFromString(29, 11, 'z78DAED95310AC0300C03B' +
       'F644AFD802EFAFF930AE9120832B2E36CF5E0418443388A030066' +
       '08BB3FEEF795ED8CB04FB6513367AD1DB73381E95DFC5EDAEF967' +
       '1F46CEB6E6B498EDDB2542BAF89B9654C76B26BB6FA8D2B3ED70D' +
       'A04C2F3BDB9ADBDA36CBBAEDD24FE4F64412989EFD29E2DD62612' +
       '9B4ACFEF51704F6A270');
end;


Procedure SetupARi;
begin
Writeln('Script is Using')
Writeln('   _____ __________.__    __            __   ')
Writeln('  /  _  \\______   \__| _/  |____  ____/  |_ ')
Writeln(' /  /_\  \|       _/  | \   __\  \/  /\   __\')
Writeln('/    |    \    |   \  |  |  |  >    <  |  |  ')
Writeln('\____|__  /____|_  /__| /\__| /__/\_ \ |__|  ')
Writeln('        \/       \/     \/          \/       ')
writeln('                             Created by Deprr')
xyxy:= LoadChars2(AppPath + 'CharsRS22\');
loadchars('');
loadthebmps;
end;