Page 2 of 5 FirstFirst 1234 ... LastLast
Results 26 to 50 of 116

Thread: Post the Oldest thing you have!

  1. #26
    Join Date
    Dec 2006
    Location
    .̿̂̔͋͗̎̆ͥ̍̒ͤ͂̾̌̀̅
    Posts
    3,012
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by Negaal View Post
    Just my notice:
    [Totally offtopic] Peoples were getting to devs or members very easily at the past?
    I'v looked older applications and self-intructioning(<-spelled wrong 100%) letters, most of them who registered right away when site was made had member status already...]

    Maybe post your powerfisher here?
    Things were easier before. No colors changing, less and easier randoms etc.

  2. #27
    Join Date
    Feb 2006
    Posts
    63
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Easier?!

    We had no good getuptext (That was so flawed) we had no TPAs and dtms and much less ddtms. We literally had to cut the screen up ourselves, and we couldnt find text or anything so we had to get a bitmap of the menu options when we needed to click menus!!

    And no I won't kill you Hy71194
    Some day rocks will RULE the world!!

  3. #28
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Lets say Scar was harder to code/RS was easyer to cheat


    Happy now?



    EDIT:
    Gof, Quote right person maybe?
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  4. #29
    Join Date
    Aug 2007
    Location
    Hawaii
    Posts
    3,880
    Mentioned
    7 Post(s)
    Quoted
    152 Post(s)
    Quote Originally Posted by benleegt View Post
    Eh, the script kingarabian posted wasn't made by me! It's identity thieft I tell you... If any mods/admins on this forum still respects ahm.. morality, I sincerely request for it to be removed or at least to have benleegt censored out.

    Identity thieft - Not kingarabian but the guy who made the script in the first place and plastered my name on it.
    Eh. My bad bro. I was a leacher back in the days when I got this script.

    [OFFTOPIC]Damn negaal. That women is hot. Was she in movie Good luck chuck. [/OFFTOPIC]
    Faith is an oasis in the heart which will never be reached by the caravan of thinking.

  5. #30
    Join Date
    Feb 2006
    Posts
    381
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    best script ever.


    Code:
     ////////////////////////////////////////////////////
     //           Ultimate Miner & Banker 2.8          //
     //                   By chriz                     //
     ////////////////////////////////////////////////////
     //Setup:                                          //
     // ·Need Scar version 1.13                        //
     // ·High Details, V-Bright, Highest angle of view //
     // ·Map pointing north                            //
     // ·Pickaxe in the first bankslot                 //
     // ·Take minimap colors                           //
     // ·Mine at Varrock southeast or falador south    //
     //  or Mining Guild                               //
     ////////////////////////////////////////////////////
    
    program UltimateMinerBanker;
    var
    c,l,x,y,n,h,w,k,flag,Talk,TalkY,box,trips,picks,runs,talked,ore,Mine,MineY,Take,TakeY,lamps,ilamp,tempLadder,tempLadder2,
    rcmQuickBank,rcmQuickBankY,InBank,StoreAll,StoreAllY,CloseWindow,Yellowtext,FindingPick,gas,Pickmode,tempbank,
    PickAxe,PickAxeSteel,PickHead,PickHandle,Attached,drop,orebmp,hc1,hc2,hc3,hc4,hc5,BNorth,tripcount,town2: Integer;
    ST: LongInt;
    Loged,Fight,swinging,ColorsFound,fixed:boolean;
    {.include BoxBreaker.txt}
    const
    {=================Setup================}
    username = ''; //Enter Your Username
    password = '';    //Enter Your Password
    UsePAR = True;  //use PAR over built in random event protection?
    Town = 2;          //1 to start in varrock, 2 for falador, 3 for guild mining, 4 for iron/guildmining in falador
    Pick = 1;          //1 if you can't wield pickaxe 2 if you can
    FindGaser = True;  //Allows the script to look for steaming rocks but can slow down minning
    PickFindCount = 50; //number of times script looks for a broken pickhead until giving up and withdrawing a new one
    Pickup = true;    //Pick up ore other people have dropped or not?
    Leftclick = True;  // leftclick on the rocks when mining?
    Screenshot = False; //Take screenshots of random events?
    dir = '';  //Folder to take screenshots in, leave blank for scripts folder Make sure this folder exists in the scripts folder of you will get errors
    Tolerance = 0;     //Tolerance to find the colors on the minimap, leave at 0!
    {===========From Game Screen===========}
    {Only needed if Iron mining}
    IronOre1 = 2700888;   //Rocks Colors
    IronOre2 = 2569300;   //Rocks Colors
    IronOre3 = 2832731;   //Rocks Colors
    {Only needed if Guild mining}
    CoalOre1 = 2702396;   //Rocks Colors
    CoalOre2 = 2834753;   //Rocks Colors
    CoalOre3 = 3097668;   //Rocks Colors
    {=============From MiniMap=============}
    banklogo = 6084350;     //Minimaps banklogo color
    miningspot = 9076623;   //Minimaps Pick Head color
    {Only needed if Iron mining}
    roadcolor = 7829631;    //Minimaps Roads color
    {Only needed if Guild mining}
    Statue = 9277337;   //Add the color of the n statue (right next to the ladder when going down)
    Ladder = 7746; //Add Ladder color
    Rocks = 4474428;   //Add Coal Rocks color in MINIMAP!
    {===============End Setup==============}
    
    Procedure Mouse(x,y,rx,ry: integer; left:boolean);
    begin
      x:=x+random(rx);
      y:=y+random(ry);
      if(x<=760)and(x>=0)and(y<= 500)and(y>=0)then
      begin
       MoveMouseSmoothEx(x,y,1,6,15,5+random(10),5+random(10));
       GetMousePos(x,y);
       wait(50+random(50))
       holdmouse(x,y,left)
       wait(5+random(80))
       releasemouse(x,y,left)
       wait(100+random(100))
      end;
    end;
    
    Procedure MMouse(x,y,rx,ry: Integer); {Made by Odie5533}
    begin
     x:=x+random(rx); y:=y+random(ry);
    if(x<=760)and(x>=0)and(y<= 500)and(y>=0)then
    begin
     MoveMouseSmoothEx(x,y,1,6,15,5+random(10),5+random(10));
     GetMousePos(x,y);
    end;
    end;
    
    {.include par.txt}
    
    Procedure PrintProgressReport;
    var RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:LongInt; Time:String; e:Integer;
    begin
    if(Not Loged)then
    Begin
       Seconds:=(GetSystemTime-ST) div 1000;
       Minutes:=Seconds div 60;
       RHours:=Minutes div 60;
       Time:=inttostr(Seconds)+' Seconds';
       avtime:=Seconds/trips;
       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
       If (Town = 3) then e := 50 If (Town = 4) then e := 40 else e := 35
       If (Town = 1) then writeln('-----Progress Report for Ironmining at Falador-----');
       If (Town = 2) then writeln('-----Progress Report for Ironmining at Varrock-----');
       If (Town = 3) then writeln('---------Progress Report for Guild Mining----------');
       If (Town = 4) then writeln('---------Progress Report for Multi Mining----------');
       writeln('Worked for '+Time);
       If (UsePAR = True)and(town = 2)then writeln('Ran away from random events '+inttostr(runs)+' Time[s]');
       If (UsePAR = False)then writeln('Ran away from random events '+inttostr(runs)+' Time[s]');
       If (UsePAR = False)then writeln('Talked to random events '+inttostr(talked)+' time[s]');
       If (PickFindCount > 0)then writeln('Attached pick head '+inttostr(attached)+' time[s]');
       If (FindGaser = true)then writeln('Stopped for gas '+inttostr(gas)+' time[s]');
       writeln('New Pick Taken '+inttostr(Picks)+' Time[s]');
       writeln('Fixed lamp '+inttostr(lamps)+' Time[s]');
       writeln('Mined '+inttostr(trips)+' Time[s] '+inttostr(trips*(26+Pick))+' Ores');
       writeln('Gained '+inttostr(trips*e*(26+Pick))+' mining Experience');
       writeln('Currently Averaging '+inttostr(3600/avtime*(26+Pick))+' Ores and '+inttostr(3600/avtime*e*(26+Pick))+' Experience an Hour');
       end;
    end;
    end;
    
    procedure GetScreenShot(reason:string; event:Integer);
    var
       x : string;
    begin
    if(screenshot)then
      begin
      x:=inttostr(Event)
      SaveScreenshot(apppath+'Scripts\'+dir+'\ScreenCaptureFor'+reason+inttostr(strtoint((copy(x,length(x),1))))+'.bmp');
      writeln('ScreenCaptureFor'+reason+inttostr(strtoint((copy(x,length(x),1))))+'.bmp');
      end;
    end;
    
    procedure sendkeysmooth(str:string);
    var x:integer;
    begin
      repeat
        x := x+1;
        wait(100+random(200));
        sendkeyssilent(copy(str,x,1));
      until x > length(str)
    end;
    
    Procedure ChatFix; {ChatFixer by Odie5533}
    begin
     while(not(GetColor(54,496)=255))do
      Mouse(45,485,15,10,true);
     wait(300+random(100));
     while(not(GetColor(183,496)=255))do
      Mouse(176,485,15,10,true);
     wait(300+random(100));
     while(not(GetColor(323,496)=255))do
      Mouse(315,485,15,10,true);
     wait(300+random(100));
    end;
    
    Procedure FaceNorth;
    begin
      If (not(FindBitmapIn(BNorth,x,y,561,4,571,17))) then
      while(not(FindBitmapIn(BNorth,x,y,561,4,571,17)))do
        SendArrowSilentWait(1,2+random(2));
    end;
    
    procedure Checkloginscreen;
    var p:integer;
    begin
    if(FindBitmap(CloseWindow,x,y))then
    begin
      p:=0;
      status('closing welcome box');
      repeat
        Wait(400+random(100));
        Mouse(x,y,40,4,true);
        Wait(500);
        p:=p+1;
      until(not FindBitmap(CloseWindow,x,y))or(p>=3);
    end;
    end;
    
    procedure LoginIfNeeded;//A stupid3ooo procedure based of many others
    var counter:integer;
    begin
    Checkloginscreen;
    if(IsTextAt2(293,251,'Username',10))then
      begin
       Mouse(460,322,10,2,true);
       Wait(500+random(500));
      end;
    if(IsTextAt2(309,241,'Welcome to RuneScape',50))then
      begin
       Mouse(400,280,125,20,true);
       Wait(200+random(100));
       if(IsTextAt2(293,251,'Username',50))then
       begin
        status('Logging in');
        Mouse(400,256,20,5,true);
        Wait(50+random(25));
        sendkeysmooth(username);
        Wait(400+random(150));
        sendkeysmooth(chr(13));
        Wait(400+random(150));
        sendkeysmooth(password);
        Wait(400+random(100));
        Mouse(300,322,20,5,true);
        repeat
         counter:=counter+1
         wait(100);
        until(FindBitmap(CloseWindow,x,y))or(counter=150)
        Checkloginscreen;
       end;
      end;
    end;
    
    Procedure LogOut(why:string);
    begin
      Writeln(' ');
      Writeln(why);
      Writeln(' ');
      Wait(100+random(10));
      Loged:=true;
      Mouse(635,470,25,20,true);
      Wait(100+random(10));
      c:=0;
      repeat
        c:=c+1
        Mouse(586,370,119,10,true);
        Wait(250+random(100));
      until(GetColor(400,130)=1842201)and(GetColor(354,120)=1842201)or(c=15);
    end;
    
    Procedure SetRun(runon: boolean); {Edited by Odie5533}
    begin
       Wait(20+random(5));
       Mouse(701,468,10,25,true);
       Wait(70+random(50));
       if(not(GetColor(607,263)=2303648))and(RunOn)then
       Mouse(611,253,15,15,true);
       if(GetColor(607,263)=2303648)and(not RunOn)then
       Mouse(569,256,5,5,true);
       Wait(100+random(50));
       Mouse(644,178,5,5,true);
       Wait(100+random(50));
    End;
    
    Procedure MapFlag;
    var M:integer;
    begin
      Check4Mod;
      Wait(200);
      M:=0;
      if(FindBitmapIn(flag,x,y,570,5,725,162))then
      begin
       repeat
        wait(500);
        M:=M+1;
       until(FindBitmapIn(flag,x,y,633,64,665,90))and
       (not(GetColor(200,148)=16777215))or
       (not FindBitmapIn(flag,x,y,570,5,725,160))and(M>9);
       Wait(100);
      end;
    end;
    
    Procedure MapFlag2;
    begin
      Check4Mod;
      Wait(200);
      if(FindBitmapIn(flag,x,y,565,5,725,160))then
      begin
       repeat
        wait(1000);
       until(not FindBitmapIn(flag,x,y,565,5,725,160));
       Wait(100);
      end;
    End;
    
    procedure TakePickaxe;
    begin
      Mouse(575,218,20,20,true);
      Wait(400+random(150));
      Mouse(84,64,20,20,true);
      Wait(500+random(150));
      n:=0;
      Picks:=Picks+1;
    end;
    
    Procedure TakeOff;
    begin
      if (PickMode=2) then
      begin
        Mouse(674,174,20,20,true);
        Wait(100+random(50));
        Mouse(580,290,20,20,true);
        Wait(100+random(50));
        Mouse(630,172,30,20,true);
        wait(400+random(50));
      end;
    end;
    
    Procedure PutOn;
    begin
      if (PickMode=2) then
      begin
        if not (getcolor(633,177)=2829182)then Mouse(635,175,20,25,true);
         Wait(50+random(50));
        if(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100))or
          (FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100))then
        Mouse(x,y,20,20,true);
        Wait(3000+random(50));
        If (getcolor(26,417)=0)and(getcolor(217,428)=0) then
        begin
        Writeln('Cannot Equip that pick, switching pick mode')
        Pickmode:=1
        end
      end;
    end;
    
    //===================================Banking==================================\\
    
    Procedure ScrollBank;
    var
      v:integer;
    begin
    if(IsTextAt2(185,36,'The Bank of RuneScape', 100))then
    begin
     if (not(getcolor(475,75)=5531254))then
     begin
      status('Scrolling Bank Up...')
      wait(100+random(50));
      MMouse(471,61,10,10);
      wait(random(25));
      GetMousePos(x,y);
      HoldMouse(x,y,true);
      repeat
        wait(200+random(50));
        v:= v+1
      until (getcolor(475,75)=5531254)or(v>22)
      ReleaseMouse(x,y,true);
     end;
    end;
    end;
    
    procedure Deposit;
    var t :integer;
    begin
       repeat
       repeat
          wait(121+random(65))
       if(findColorSpiral(x,y,65536,565,250,730,460))and(PickMode=1)or
         (FindColorSpiral(x,y,65536,611,215,730,245))and(PickMode=1)or
         (findColorSpiral(x,y,65536,570,235,745,485))and(PickMode=2)then
         begin
          c:=c+1;
          t:=t+1;
          Mouse(x-5,y,5,5,False);
          wait(227+random(33));
         end;
        if (FindBitmapIn(StoreAllY,x,y,560,215,730,460))or
        (FindBitmapIn(StoreAll,x,y,560,215,730,460))then
         begin
          c:=0;
          Mouse(x,y,60,8,true);
          wait(1046+random(42));
         end;
       until(not(findColorSpiral(x,y,65536,565,250,730,460)))and(PickMode=1)and
            (not(FindColorSpiral(x,y,65536,611,215,730,245)))and(PickMode=1)or
            (not(findColorSpiral(x,y,65536,560,235,745,475)))and(PickMode=2)or (c>4)  or (t>5+random(5))
        if(c>4)then
         begin
          c:=0;
          wait(121+random(65))
          MoveMouseSmooth(573+random(10),189+random(10));
         end;
       until(not(findColorSpiral(x,y,65536,565,250,730,460)))and(PickMode=1)and
            (not(FindColorSpiral(x,y,65536,611,215,730,245)))and(PickMode=1)or
            (not(findColorSpiral(x,y,65536,560,235,745,475)))and(PickMode=2)or (c>4) or (t>5+random(5))
    end;
    
    procedure CloseBank;
    begin
    if(IsTextAt2(185,36,'The Bank of RuneScape', 100))and(GetColor(464,39)=8421504)then
     begin
      Mouse(430,39,5,5,true);
      wait(800+random(300));
     end;
    end;
    
    Function FindObjColorTol(objname:string; objcolor,objtol:integer):boolean;
    var a,b:integer;
    begin
    if(not(IsTextAt2(9,9,objname,100)))then
    while(b<16)do
    begin
     wait(30);
     if(a = 27)then
      begin
       a:= 0;
       b:= b + 1;
      end;
     if(b > 15)then break;
     if(FindColorSpiralTolerance(x,y,objcolor,a*20+4,b*20+4,a*20+24,b*20+24,objtol))then
      begin
       MMouse(x,y,0,0);
       wait(100+random(50));
       if(istextat2(9,9,objname,100))then
        begin
         result:=true;
         break;
        end;
      end;
     a:=a+1;
    end;
    end;
    
    procedure Banking;
    var c:integer;
    begin
    if(FindObjColorTol('Use Bank',tempbank,11))then
      begin
       tempbank:= GetColor(x,y);
       Mouse(x,y,0,20,false);
       wait(75+random(25));
       if(FindBitmap(rcmQuickBank,x,y))or(FindBitmap(rcmQuickBankY,x,y))then
        begin
         Mouse(x,y,5,2,true);
         MapFlag;
        end else
         if(FindBitmap(box,x,y))then
          begin MMouse(x,y,-30,-30);
         end else
          MMouse(0,0,60,60);
        while(not(IsTextAt2(185,36,'The Bank of RuneScape',100)))and(c<30)do
        begin
         wait(50+random(50));
         c:=c+1;
        end;
      end;
     if(IsTextAt2(185,36,'The Bank of RuneScape',100))and(not(GetColor(476,76)=5531254))then
      Mouse(472,81,4,10,true); //Scrolls your bank up
     wait(200+random(100));
    If(n=1)then
    begin
      ScrollBank;
      TakePickaxe;
      CloseBank;
    end else
    begin
      ScrollBank;
      Deposit;
      CloseBank;
    end;
    end;
    //============================================================================\\
    
    //===========================Map Walking for Varrock==========================\\
    procedure ToRocksVarrock;
    begin
      Loginifneeded;
      L:=0;
      c:=0;
      if(FindColorSpiralTolerance(x,y,banklogo,575,70,730,135,Tolerance))Then
      begin
        SetRun(true);
        Wait(100)
        Status('Going Out of bank');
        Mouse(x+21,y-26,5,5,True)
        MapFlag;
        c:=1
      end;
      Loginifneeded;
      repeat
        if(FindColorSpiralTolerance(x,y,roadcolor,690,25,692,120,Tolerance))Then
        begin
          c:=c+1;
          Status('Going Out Varrock '+inttostr(c)+'/3');
          wait(50)
          Mouse(x,y,5,5,True)
          MapFlag;
        end
        Loginifneeded;
        L:=L+1;
      Until(FindColorSpiralTolerance(x,y,roadcolor,585,108,710,110,Tolerance))and(c>2)or(L>30);
      c:=1;
      L:=0;
      repeat
        if(FindColorSpiralTolerance(x,y,roadcolor,585,108,710,110,Tolerance))Then
        begin
          Status('Going To Rocks '+inttostr(c)+'/9');
          wait(50)
          Mouse(x,y,5,5,True)
          MapFlag;
          c:=c+1;
        end;
        Loginifneeded;
        L:=L+1;
      until(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))and(c>8)or(c>10)or(L>30);
      if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
      begin
        Status('To center')
        wait(50)
        Mouse(x,y,5,5,True)
        MapFlag2;
      end;
      If(L>30)then
      begin
          LogOut('Lost To Rocks Varrock')
      end;
    end;
    
    procedure ToBankVarrock;
    begin
      Loginifneeded;
      c:=0;
      L:=0;
      if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
      begin
        Status('Out of Mines')
        Mouse(x+30,y-35,5,5,True)
        MapFlag;
        c:=1
      end;
      Loginifneeded;
      repeat
        If(FindColorSpiralTolerance(x,y,roadcolor,595,32,700,34,Tolerance))Then
        begin
          Status('Going To Varrock '+inttostr(c)+'/4');
          wait(50)
          Mouse(x,y,5,5,True)
          MapFlag;
          c:=c+1;
        end;
        Loginifneeded;
        L:=L+1;
      Until(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))and(c>4)or(L>30)
      c:=1;
      L:=0;
      repeat
        If(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))Then
        begin
          Status('Going To Bank '+inttostr(c)+'/3');
          wait(50)
          Mouse(x,y,5,5,True)
          MapFlag;
          c:=c+1;
        end;
        Loginifneeded;
        L:=L+1;
      until(FindColorSpiralTolerance(x,y,banklogo,575,60,710,135,Tolerance))and(c>3)or(c>4)or(L>30)
      If(FindColorSpiralTolerance(x,y,banklogo,575,60,710,135,Tolerance))Then
      begin
        Status('Going In Bank')
        wait(50)
        Mouse(x,y,5,5,True)
        MapFlag2;
        Wait(5000)
      end;
      If(L>30)then
      begin
         LogOut('Lost To Bank Varrock')
      end
      Banking;
    end;
    //============================================================================\\
    
    //===========================Map Walking for Falador==========================\\
    procedure ToRocksFalador;
    begin
      Loginifneeded;
      L:=0;
      c:=0;
      if(FindColorSpiralTolerance(x,y,banklogo,575,70,730,135,Tolerance))Then
      begin
        SetRun(true);
        Wait(100)
        Status('Going Out of bank');
        Mouse(x-30,y+20,5,5,True)
        MapFlag;
        Wait(200)
        c:=1
      end;
      Loginifneeded;
      repeat
        if(FindColorSpiralTolerance(x,y,roadcolor,585,120,710,122,Tolerance))Then
        begin
          c:=c+1;
          Status('Going South '+inttostr(c)+'/8');
          wait(50)
          Mouse(x,y,5,5,True)
          MapFlag;
          Wait(200)
        end
        Loginifneeded;
        L:=L+1;
      Until(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))and(c>7)or(L>30);
      c:=1;
      L:=0;
      repeat
        If(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))Then
        begin
          Status('Going West '+inttostr(c)+'/2');
          wait(50)
          Mouse(x,y,5,5,True)
          MapFlag;
          c:=c+1;
        end;
        Loginifneeded;
        L:=L+1;
      until(FindColorSpiralTolerance(x,y,roadcolor,585,115,710,117,Tolerance))and(c>2)or(L>30)
      c:=0;
      L:=0;
      repeat
        if(FindColorSpiralTolerance(x,y,roadcolor,585,115,710,117,Tolerance))Then
        begin
          c:=c+1;
          Status('Going south '+inttostr(c)+'/4');
          wait(50)
          Mouse(x,y,5,5,True)
          MapFlag;
        end
        Loginifneeded;
        L:=L+1;
      Until(c>=2);
      L:=0;
      repeat
        begin
          c:=c+1;
          Status('Going south '+inttostr(c)+'/4');
          wait(50)
          Mouse(650,125,5,5,True)
          MapFlag;
        end
        Loginifneeded;
        L:=L+1;
      until(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))and(c>2)or(c>3)or(L>30)
      if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
      begin
        Status('To iron')
        wait(50)
        Mouse(x-15,y-15,10,10,True)
        MapFlag;
      end;
      if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
      begin
        Wait(200)
        Mouse(x-30,y,5,5,True)
        MapFlag2;
      end;
      If(L>30)then
      begin
          LogOut('Lost To Rocks Falador')
      end;
    end;
    
    procedure ToBankFalador;
    begin
      Loginifneeded;
      c:=0;
      L:=0;
      if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
      begin
        Status('Out of Mines')
        Mouse(x-15,y-15,10,10,True)
        MapFlag;
      end
      Loginifneeded;
      if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
      begin
        c:=1
        Loginifneeded;
        Status('Going north '+inttostr(c)+'/2');
        wait(50)
        Mouse(x-15,y-60,5,5,True)
        MapFlag;
      end
      Loginifneeded;
      repeat
        if(FindColorSpiralTolerance(x,y,roadcolor,615,32,700,34,Tolerance))Then
        begin
          c:=c+1;
          Status('Going north '+inttostr(c)+'/2');
          wait(50)
          Mouse(x,y,5,5,True)
          MapFlag;
        end
        Loginifneeded;
        L:=L+1;
      Until(FindColorSpiralTolerance(x,y,roadcolor,690,40,692,120,Tolerance))or(c>4)or(L>30);
      c:=0;
      L:=0;
      repeat
        if(FindColorSpiralTolerance(x,y,roadcolor,690,40,692,120,Tolerance))Then
        begin
          c:=c+1;
          Status('Going East '+inttostr(c)+'/2');
          wait(50)
          Mouse(x,y,5,5,True)
          MapFlag;
        end
        Loginifneeded;
        L:=L+1;
      Until(FindColorSpiralTolerance(x,y,roadcolor,595,35,690,37,Tolerance))and(c>1)or(c>3)or(L>30);
      c:=0;
      L:=0;
      repeat
        if(FindColorSpiralTolerance(x,y,roadcolor,595,35,690,37,Tolerance))Then
        begin
          c:=c+1;
          Status('Going North '+inttostr(c)+'/8');
          wait(50)
          Mouse(x,y,5,5,True)
          MapFlag;
          L:=0;
        end
        Loginifneeded;
        L:=L+1;
      Until(FindColorSpiralTolerance(x,y,banklogo,574,45,722,160,Tolerance))and(c>4)or(c>12)or(L>30);
      If(FindColorSpiralTolerance(x,y,banklogo,574,35,722,160,Tolerance))Then
      begin
        status('Going In Bank ')
        wait(50)
        Mouse(x,y,5,5,True)
        MapFlag2;
        Wait(4000)
      end
      If(L>30)then
      begin
         LogOut('Lost To Bank Falador')
      end
      Banking;
    end;
    //============================================================================\\
    
    //========================Map Walking for Guild Mining========================\\
    procedure ClimbLadder(color,ladder:integer);
    var count:integer;
    begin
      status('Climbing ladder');
    if(FindObjColorTol('Climb',ladder,5))then
     begin
      Ladder:= GetColor(x,y);
      MMouse(x,y,2,2);
      Wait(300+random(150));
      if(IsTextAt2(9,9,'Climb',100))then
      begin
        GetMousePos(x,y);
        If not (FindColorSpiral(x,y,color,565,5,725,160)) then
          Mouse(x,y,2,2,True);
      end;
      Wait(300+random(150));
      repeat
        count:=count+1;
        wait(300+random(200));
      until(FindColorSpiral(x,y,color,565,5,725,160))or(count>=20)
     end;
    end;
    
    procedure GoCenter;
    begin
    if(not(FindColorSpiral(x,y,miningspot,565,65,715,160)))then
      if(FindColorSpiral(x,y,Rocks,565,65,715,160))then
         begin
           Mouse(x,y,5,5,true);
           MapFlag;
           Wait(300+random(150));
         end;
    if(FindColorSpiral(x,y,miningspot,565,65,715,160))then
      begin
        Mouse(x,y,20,20,true);
        MapFlag2;
        Wait(300+random(150));
      end;
    end;
    
    Procedure ToBankGuild;
    begin
    If(Not Loged)then
    begin
      If (FindColorSpiral2(x,y,(statue),550,5,750,177))then
      begin
        Status('Going To Bank 1/2');
        Mouse(x+5,y-46,3,3,true);
        Wait(400+random(150));
        MapFlag;
      end;
      If (FindColorSpiral2(x,y,(banklogo),550,5,750,177))then
      begin
        Status('Going To Bank 2/2');
        Mouse(x,y+2,1,1,true);
        Wait(5000+random(250))
        Mapflag2;
      end;
      Banking;
    end;
    End;
    
    procedure ToLadder(climb:boolean);
    var counter:integer;
    begin
    If(Not Loged)then
    begin
    status('Walking to ladder');
    repeat
      if(not(FindColor(x,y,Ladder,575,5,725,160)))and(FindColor(x,y,Rocks,585,65,625,160))then
      begin
        counter:=counter+1
        Mouse(x,y,5,5,true);
        MapFlag;
        Wait(200+random(50));
      end
      Loginifneeded;
    until(FindColorSpiral(x,y,Ladder,575,5,725,160))or(counter=5)
    if(FindColorSpiral(x,y,Ladder,575,5,725,160))then
      begin
        Mouse(x,y,5,5,true);
        MapFlag2;
        Wait(200+random(50));
        if(climb=true)then begin ClimbLadder(Statue,Templadder2);end;
      end;
    if (climb=True)and(Not FindColorSpiral(x,y,(Statue),575,8,720,135))then
    begin
      LogInIfNeeded;
      ToLadder(climb);
    end else
    if(climb=true)then ToBankGuild;
    end;
    end;
    
    Procedure ToGuild;
    begin
    If(Not Loged)then
    begin
      If (not(FindColorSpiral(x,y,(Statue),550,5,750,177)))and(FindColorSpiral(x,y,(banklogo),550,5,750,177))then
      begin
        Status('Going To Guild');
        Mouse(x+40,106,3,3,true);
        Wait(400+random(250));
        MapFlag;
      end;
      if (FindColorSpiral(x,y,(Statue),550,5,750,177))then
      begin
        Status('Statue Found!');
        Mouse(x-10,y,5,0,true);
        Wait(5000+random(250));
        MapFlag2;
        if (FindColorSpiral(x,y,(Statue),638,73,658,93))then
        ClimbLadder(Rocks,templadder);
      end else
      begin
        FaceNorth;
        LogInIfNeeded;
        ToGuild;
      end;
      Wait(50+random(50));
    if (Not FindColorSpiral(x,y,(Rocks),575,8,710,135))then
    begin
      LogInIfNeeded;
      ToGuild;
    end else
      GoCenter;
    end;
    end;
    
    //=============================Anti Random Events=============================\\
    procedure FindPickHeadColor(f:Boolean);
    begin
    if not (getcolor(633,177)=2829182)then Mouse(635,175,20,25,true);
    if(not(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100)))and
      (not(FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100)))then
      begin
        Mouse(675,175,15,25,true);
         if(not(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100)))and
           (not(FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100)))then
      begin
      If (f = True) Then
      begin
      writeln('');
      writeln('ERROR! cannot find pick in screen, please put pick in inventory or your equip page and restart the script!');
      writeln('');
      ColorsFound:=False;
      end else
      Logout('No Picks Left');
      end;
      end;
    if(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100))or
      (FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100))then
      begin
      hc1:=GetColor(x+6,y+3);
      hc2:=GetColor(x+18,y+7);
      hc3:=GetColor(x+20,y+6);
      hc4:=GetColor(x+19,y+6);
      hc5:=GetColor(x+16,y+5);
      ColorsFound:=True;
      if not (getcolor(633,177)=2829182)then Mouse(635,175,20,25,true);
      end;
    end;
    
    procedure ItemGrab;
    begin
    if(FindColorSpiral(x,y,241,565,5,725,160))then
      begin
      Mouse(x,y,1,1,true);
      MapFlag2;
      Wait(5000+random(100));
      //FindTextSpiral('Take',240,180,50,5,10+random(10));
      GetMousePos(x,y);
      Mouse(x,y,0,0,true);
      Wait(1000+random(100));
      end;
    end;
    
    procedure FindFight;
    begin
    If(FindColorSpiral(x,y,65280,180,90,320,230))then Wait(1000);
    If(FindColorSpiral(x,y,65280,180,90,320,230))then
    begin
    Status('Random Event Found');
    Fight:=True;
    GetScreenShot('RunFromFight',Runs);
    Runs:=Runs+1;
    SetRun(true);
    If (town2 = 3)or(town2 = 4)then
    begin
      ToLadder(false);
      Wait(10000+random(1000));
      gocenter;
    end else
    begin
      Wait(50+random(10));
      Mouse(680,60,5,5,true);
      Wait(100);
      Mapflag;
      Wait(10000+random(1000));
      if(FindColorSpiralTolerance(x,y,miningspot,577,22,746,164,Tolerance))Then
      begin
        Mouse(x,y,5,5,True);
        MapFlag;
        If(Town2=2)then Mouse(x-30,y,5,5,True);
      end else
      Mouse(615,110,5,5,true);
    end;
    Wait(100);
    MapFlag2;
    SetRun(false);
    end;
    end;
    
    procedure TalkToRand;
    begin
      repeat
      if (FindColorSpiral(x,y,16711680,5,345,510,465))or
      (FindColorSpiral(x,y,16777215,5,345,510,465))then
          begin
          Mouse(x,y,50,2,true);
          wait(2000+random(1000));
          end;
      until(GetColor(20,434)=0)
    end;
    
    procedure FindText;
    var counter:integer;
    begin
    if (FindColor(x,y,65535,0,0,515,338))then wait(200)
    if (FindColor(x,y,65535,0,0,515,338))then
      begin
      GetScreenShot('YellowtextFound',Yellowtext);
      Yellowtext := Yellowtext + 1;
      repeat
      counter:=counter+2+random(1);
      MMouse(x+counter,y+15,0,3)
      wait(5);
      if(FindColorSpiral(x,y,65280,180,90,320,230))then
        begin
        FindFight;
        break;
        end;
      if(IsTextAt2(9,9,'Ta',100))then
        begin
        GetMousePos(x,y);
        Mouse(x,y,1,1,false);
        Wait(200+random(100));
        if(FindBitmap(Talk,x,y))or(FindBitmap(Talky,x,y))then
          begin
          Mouse(x,y,40,5,true);
          MapFlag2;
          wait(1000+random(1000));
          GetScreenShot('Talked',Talked);
          Talked:=Talked+1
          TalkToRand;
          end;
        end;
      until(counter>=250);
      end;
    end;
    
    procedure AttachPick;
    begin
    if(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50))and
    (FindBitmapSpiralTolerance(PickHandle,x,y,550,200,745,465,50))then
      begin
      if(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50))then
        begin
        GetScreenShot('FixingPick',Attached);
        Attached:=Attached+1
        Mouse(x,y,5,5,true);
        Wait(1000+random(100));
        end;
      if(FindBitmapSpiralTolerance(PickHandle,x,y,550,200,745,465,50))then
        begin
        Mouse(x,y,5,5,true);
        Wait(1000+random(100));
        Fixed := True
        end;
      end else
      fixed := false;
    end;
    
    procedure FindPick;
    var DropCount,Counter:integer;
    begin
    if((GetColor(387,382)=0)and(GetColor(485,413)=0))then
    begin
    GetScreenShot('FindingPick',FindingPick);
    FindingPick := FindingPick + 1;
    repeat
    DropCount:=DropCount+1
    If(FindBitmapSpiralTolerance(Orebmp,x,y,550,200,745,465,100))then
    begin
    Mouse(x,y,2,2,false);
    Wait(100+random(100));
    if(FindBitmap(Drop,x,y))then
    begin
    Mouse(x,y,10,2,true);
    Wait(100+random(100));
    MMouse(0,0,50,50);
    Wait(500+random(100));
    end;
    end;
    until(DropCount=2);
    Mouse(683,184,5,5,true);
    wait(500+random(100));
    Mouse(591,303,5,5,true);
    wait(500+random(100));
    Mouse(647,183,5,5,true);
    wait(500+random(100));
    repeat
    counter:=counter+1
    if(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50))then
      break;
    if(FindColorSpiral(x,y,hc1,0,0,515,338))or
      (FindColorSpiral(x,y,hc2,0,0,515,338))or
      (FindColorSpiral(x,y,hc3,0,0,515,338))or
      (FindColorSpiral(x,y,hc4,0,0,515,338))or
      (FindColorSpiral(x,y,hc5,0,0,515,338))then
      begin
      MMouse(x,y,0,0);
      wait(100+random(100));
      if(IsTextAt2(9,9,'Take', 100))then
        begin Mouse(x,y,2,2,true);MapFlag2;end
        end else itemgrab;
    until(counter>=PickFindCount)or(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50));
    AttachPick;
    PutOn;
    end;
    end;
    
    Procedure FindLamp;
    begin
    while(FindBitmapSpiralTolerance(iLamp,x,y,550,200,745,470,100))do
     begin
      Mouse(x,y,10,10,true);
      wait(3000+random(1000));
      Mouse(157,220,12,12,true)
      wait(3000+random(1000));
      Mouse(248,255,10,2,true);
      wait(3000+random(1000));
      Mouse(226,442,10,3,true);
      wait(3000+random(1000));
      Lamps:=Lamps+1;
      end;
    end;
    
    Procedure FindRandoms;
    begin
    if(Not Loged)then
    begin
      LoginIfNeeded;
      Checkloginscreen;
      FindFight;
      FindBox;
      Check4Lamp('mining');
      Check4Mod;
    if(UsePAR=true)then
    begin
      Check4Randoms;
    end else
      FindText;
    end;
    end;
    
    Procedure FindGas(findx,findy:integer);  //By Stupid3ooo
    var counter,GasColor,bmap,gasfind:integer;
    ClientCanvas,BMapCanvas:TCanvas;
    begin
    if(FindGaser=true)then
    begin
    GasColor:=8296866;//8296866
    if(FindColorSpiralTolerance(x,y,GasColor,findx-16,findy-16,findx+16,findy+16,20))then
    begin
    repeat
      counter:=counter+1
      begin
        ClientCanvas:= GetClientCanvas;
        bmap:= BitmapFromString(32,32,'');
        BMapCanvas:= GetBitmapCanvas(bmap);
        CopyCanvas(ClientCanvas,BMapCanvas,findx-16,findy-16,findx+16,findy+16,0,0,32,32);
        wait(100);
        if(FindBitmap(bmap,x,y))then
          begin gasfind:=0;end
        else
          gasfind:=gasfind+1;
          FreeBitmap(bmap);
        end;
        if(gasfind=5)then
        begin
          WriteLn('Found Gas');
          GetScreenShot('Gas',gas);
          Gas:=Gas+1;
          if(town2=3)or(town2=4)then
          begin
          if(FindColorSpiral(x,y,(Rocks),600,65,625,140))or(FindColorSpiral(x,y,(Rocks),660,65,680,140))then
            begin Mouse(x,y,5,5,true);
          end else
            Mouse(645,80,10,10,true);
          end else
            Mouse(645,80,10,10,true);
          mapflag2;
          FindRandoms;
          Wait(4000+random(2000));
          FindGas(findx,findy);
          break;
        end;
    until(counter>=10);
    end;
    end;
    end;
    
    //============================================================================\\
    
    procedure ToBank;
    begin
      if(Not Loged)then
      if(town=4)then
      begin
        town2 := tripcount;
      end else
        Town2 := Town
      case Town2 of
        1: ToBankVarrock;
        2: ToBankFalador;
        3: ToLadder(True);
        4: ToLadder(True);
      end;
    tripcount := tripcount + 1;
    If(tripcount = 5) then
      tripcount := 2;
    end;
    
    procedure ToRocks;
    begin
      if(Not Loged)then
        if(town=4)then
      begin
        town2 := tripcount;
      end else
        Town2 := Town
      case Town2 of
        1: ToRocksVarrock;
        2: ToRocksFalador;
        3: ToGuild;
        4: ToGuild;
      end;
    end;
    
    Procedure SetRandom;
    Var color:integer;
    begin
    Color:=1+Random(3);
    If (Town2 = 3)or(Town2 = 4)then
      case Color of
        1: Begin Ore:=CoalOre1; end;
        2: Begin Ore:=CoalOre2; end;
        3: Begin Ore:=CoalOre3; end;
      end else
      case Color of
        1: Begin Ore:=IronOre1; end;
        2: Begin Ore:=IronOre2; end;
        3: Begin Ore:=IronOre3; end;
      end;
    case k of
      0: Begin w:=50; h:=35; end;
      1: Begin w:=125; h:=95; end;
      2: Begin w:=260; h:=155; i:=1; end;
    end;
    end;
    
    procedure DoMining;
    var ox,oy: integer;
    begin
    if(Not Loged)then
    begin
    L:= 0;
    c:= 0;
       repeat
         swinging:=True;
         c:=0;
         L:= L+1;
         LoginIfNeeded;
         FindRandoms;
         SetRandom;
         Status('Mining');
         x:=255;y:=170;
         If(FindColorSpiralTolerance(ox,oy,ore,x-w,y-h,x+w,y+h,4))Then
         begin
           k:=0;
           if(FindGaser=true)then FindGas(ox,oy-10);
           Wait(50)
           MMouse(ox,oy,3,3)
           Wait(100+random(50));
           If (IsTextAt2(9,9,'Mine Rocks',100))Or(Pickup=true)And(IsTextAt2(9,9,'Take Iron',100))Or(Pickup=true)And(IsTextAt2(9,9,'Take Coal',100))then
           begin
           Wait(50+random(50));
           Mouse(ox,oy,0,0,Leftclick);
           Mapflag2;
           Wait(80+random(50));
             If(FindBitmap(Mine,x,y))and(Leftclick=False)or(FindBitmap(MineY,x,y))and(Leftclick=False)or
             (FindBitmap(Take,x,y))and(Leftclick=False)or(FindBitmap(TakeY,x,y))and(Leftclick=False)then
             begin
             If(FindBitmap(Take,x,y))or(FindBitmap(TakeY,x,y))then swinging:=False;
               Mouse(x,y,60,10,true)
               Wait(100);
               Mapflag2;
             end else
             If (Leftclick=False) then
             begin
               MMouse(400,60,200,200)
               Wait(100+random(10))
             end;
             Mapflag2;
             FindRandoms;
             wait(200+random(500));
             If (Swinging=true) then
               if(GetColor(109,429)=0)and(GetColor(84,428)=0)then
               begin
               L:=0;
               C:=0;
                 Repeat
                 C:= c+1;
                 Wait(10+random(40));
                 if(c=10)or(c=20)or(c=29)then begin FindRandoms; FindGas(ox,oy-10); end;
                 Until(not((GetColor(109,429)=0))and(GetColor(84,428)=0))or
                      (not((GetColor(109,429)=0))and(GetColor(80,428)=0))or(GetColor(279,426)=0)or(c>=35);
               end;
             end;
        end else
        begin
          k:=k+1;
          FindRandoms;
          Wait(200+random(100));
        end;
        until(L>20)or(GetColor(97,394)=0)and(getColor(423,397)=0)or(GetColor(94,391)=0)and(getColor(422,398)=0)or
        (getColor(485,413)=0)or(GetColor(30,418)=0)and(GetColor(72,429)=0);
       if(getColor(485,413)=0)then
       begin
       Mouse(195,440,130,10,true);
       wait(200+random(100));
       if(PickFindCount>0)then
         FindPick;
       if fixed = False then
       begin
         n:= 1;
         Writeln('Going For New Pickaxe');
         Wait(100);
         TakeOff;
         ToBank;
         FindPickHeadColor(False);
         PutOn;
         ToRocks;
       end;
       DoMining;
       end;
       if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
       begin
         LogOut('You are dead!');
       end;
       If(L>20)then
       begin
         If(Town2=3)or(Town2=4)then GoCenter;
         if(FindColorSpiralTolerance(x,y,miningspot,577,22,746,164,Tolerance))Then
         begin
           Status('To center')
             If(Town2=2)then Mouse(x-30,y,5,5,True);
             If(Town2=1)then Mouse(x,y,5,5,True)
         end;
       MapFlag2;
       Wait(300)
       DoMining;
       end;
    end;
    end;
    
    procedure BitMaps;
    begin
    Box := BitmapFromString(6, 3,
           '0000000000005D54475D54470000000000000000000000005D5447' +
           '5D54470000000000000000000000005D54475D5447000000000000' +
           '');
    Talk := BitmapFromString(17, 10,
            'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000' +
            '000000000000000000000000000000000000FFFFFFFFFFFF000000' +
            '000000FFFFFFFFFFFF000000000000000000000000000000000000' +
            '000000000000000000000000000000FFFFFFFFFFFF000000000000' +
            'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
            '000000000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
            'FFFFFF000000000000000000000000000000000000000000000000' +
            '000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
            '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
            '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
            '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
            '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
            '000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFF000000000000000000FFFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
            '000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
            'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF');
    TalkY := BitmapFromString(17, 10,
            'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00000000000000000000' +
            '000000000000000000000000000000000000FFFF00FFFF00000000' +
            '000000FFFF00FFFF00000000000000000000000000000000000000' +
            '000000000000000000000000000000FFFF00FFFF00000000000000' +
            'FFFF00FFFF00000000000000000000000000000000000000000000' +
            '000000000000000000000000FFFF00FFFF00000000000000FFFF00' +
            'FFFF00000000000000000000000000000000000000000000000000' +
            '000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
            '000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
            '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
            '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
            '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
            '000000000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
            'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
            'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
            'FFFF00000000000000FFFF00FFFF00000000000000000000FFFF00' +
            'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
            '000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
            'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00');
    Mine := BitmapFromString(14, 12,
            '000000000000000000000000000000000000000000000000000000' +
            '000000000000000000000000000000000000FFFFFFFFFFFF000000' +
            '000000000000000000FFFFFFFFFFFF000000000000000000000000' +
            '000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
            'FFFFFF000000000000000000000000000000000000FFFFFFFFFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFFFFFFFF000000000000000000' +
            '000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
            'FFFFFF000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
            '000000000000000000000000FFFFFFFFFFFF000000000000000000' +
            '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
            'FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF000000' +
            '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
            '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
            '000000FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF' +
            '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
            '000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
            '000000000000000000000000000000000000000000000000000000' +
            '000000000000000000000000000000000000');
    MineY := BitmapFromString(14, 12,
            '000000000000000000000000000000000000000000000000000000' +
            '000000000000000000000000000000000000FFFF00FFFF00000000' +
            '000000000000000000FFFF00FFFF00000000000000000000000000' +
            '000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
            'FFFF00000000000000000000000000000000000000FFFF00FFFF00' +
            'FFFF00000000000000FFFF00FFFF00FFFF00000000000000000000' +
            '000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00' +
            'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
            'FFFF00000000FFFF00FFFF00000000FFFF00FFFF00000000000000' +
            '000000000000000000000000FFFF00FFFF00000000000000000000' +
            '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
            'FFFF00FFFF00000000000000000000000000FFFF00FFFF00000000' +
            '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
            '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
            '000000FFFF00FFFF00000000000000000000000000FFFF00FFFF00' +
            '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
            '000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
            '000000000000000000000000000000000000000000000000000000' +
            '000000000000000000000000000000000000')
    Take := BitmapFromString(43, 4,
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D54475D5447FFFFFF' +
           'FFFFFFFFFFFFFFFFFF0000000000005D5447FFFFFFFFFFFF000000' +
           '000000FFFFFFFFFFFF5D54475D54475D54475D54475D54475D5447' +
           'FF9040FF90400000005D5447FF9040FF9040FF9040000000000000' +
           '5D5447FF9040FF9040000000000000FF9040FF90405D5447FFFFFF' +
           'FFFFFFFFFFFFFFFFFFFFFFFF0000005D5447FFFFFFFFFFFFFFFFFF' +
           '0000000000005D54475D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
           'FFFFFF0000005D54475D54475D54475D54475D5447FF9040FF9040' +
           '0000005D5447FF9040FF90400000000000005D54475D5447FF9040' +
           'FF90400000005D5447FF9040FF9040FFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFFFFFFFFFFFFFF5D5447' +
           '5D54475D5447FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
           '5D54475D54475D54475D54475D5447FF9040FF90400000005D5447' +
           'FF9040FF90400000005D54475D54475D5447FF9040FF9040000000' +
           '5D5447FF9040FF9040FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF' +
           '0000005D5447FFFFFFFFFFFF000000FFFFFFFFFFFF5D54475D5447' +
           'FFFFFFFFFFFF0000000000000000000000005D54475D54475D5447' +
           '5D54475D54475D5447FF9040FF90400000005D5447FF9040FF9040' +
           '0000005D54475D54475D5447FF9040FF90400000005D5447FF9040' +
           'FF9040');
    TakeY := BitmapFromString(43, 4,
           'FFFF00FFFF00000000000000FFFF00FFFF005D54475D5447FFFF00' +
           'FFFF00FFFF00FFFF000000000000005D5447FFFF00FFFF00000000' +
           '000000FFFF00FFFF005D54475D54475D54475D54475D54475D5447' +
           'FF9040FF90400000005D5447FF9040FF9040FF9040000000000000' +
           '5D5447FF9040FF9040000000000000FF9040FF90405D5447FFFF00' +
           'FFFF00FFFF00FFFF00FFFF000000005D5447FFFF00FFFF00FFFF00' +
           '0000000000005D54475D5447FFFF00FFFF000000005D5447FFFF00' +
           'FFFF000000005D54475D54475D54475D54475D5447FF9040FF9040' +
           '0000005D5447FF9040FF90400000000000005D54475D5447FF9040' +
           'FF90400000005D5447FF9040FF9040FFFF00FFFF00000000000000' +
           'FFFF00FFFF000000005D5447FFFF00FFFF00FFFF00FFFF005D5447' +
           '5D54475D5447FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
           '5D54475D54475D54475D54475D5447FF9040FF90400000005D5447' +
           'FF9040FF90400000005D54475D54475D5447FF9040FF9040000000' +
           '5D5447FF9040FF9040FFFF00FFFF000000005D5447FFFF00FFFF00' +
           '0000005D5447FFFF00FFFF00000000FFFF00FFFF005D54475D5447' +
           'FFFF00FFFF000000000000000000000000005D54475D54475D5447' +
           '5D54475D54475D5447FF9040FF90400000005D5447FF9040FF9040' +
           '0000005D54475D54475D5447FF9040FF90400000005D5447FF9040' +
           'FF9040');
    flag := BitmapFromString(2, 2,
            'FF00005D3311C656045D3311');
    InBank := BitmapFromString(79, 2,
            'FF981FFF981FFF981F000000000000000000000000000000000000' +
            '000000FF981FFF981FFF981FFF981FFF981F000000000000000000' +
            '000000FF981FFF981FFF981FFF981F000000000000000000FF981F' +
            'FF981FFF981FFF981FFF981F000000000000000000FF981FFF981F' +
            '000000FF981FFF981F000000000000000000000000000000000000' +
            '000000FF981FFF981FFF981FFF981F000000000000000000000000' +
            'FF981FFF981F000000000000000000000000000000000000000000' +
            '000000FF981FFF981F000000FF981FFF981F000000000000000000' +
            'FF981FFF981F000000000000FF981FFF981F000000000000000000' +
            'FF981FFF981F000000000000000000000000000000000000FF981F' +
            'FF981F000000000000FF981FFF981F000000000000FF981FFF981F' +
            '000000000000FF981FFF981F000000000000FF981FFF981FFF981F' +
            '000000FF981FFF981F000000000000FF981FFF981FFF981FFF981F' +
            '000000000000000000000000000000000000000000FF981FFF981F' +
            '000000000000FF981FFF981F000000000000000000FF981FFF981F' +
            '000000000000000000000000000000000000000000000000FF981F' +
            'FF981FFF981FFF981F000000000000000000000000FF981FFF981F' +
            '000000000000FF981FFF981F000000');
    Drop := BitmapFromString(20, 2,
           'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
           'FFFFFF0000005D54475D54475D5447FFFFFFFFFFFF0000005D5447' +
           'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
           '5D5447FFFFFFFFFFFF0000005D54475D54475D54475D5447FFFFFF' +
           'FFFFFFFFFFFFFFFFFF000000');
    PickAxe := BitmapFromString(30, 14,
           '564D42564D42544A3B4D4438544A3B564D42564D42544A3B4D4438' +
           '544A3B544A3B544A3B544A3B544A3B000001000001000001000001' +
           '544A3B564D42564D42564D42564D42564D42564D42544A3B544A3B' +
           '564D42544A3B564D42564D42544A3B544A3B4D4438564D42564D42' +
           '544A3B544A3B564D42564D42544A3B4D44384D44380000012F2000' +
           '2F20003625003D2900000001564D42564D42564D42564D42564D42' +
           '564D42564D42544A3B564D42544A3B564D42544A3B4D4438544A3B' +
           '564D42564D42000001000001000001000001000001000001000001' +
           '000001000001392D1B44341E4D3B22544127000001302020564D42' +
           '544A3B564D42564D42564D42564D42564D42544A3B544A3B564D42' +
           '4D44384D4438564D42000001000001392D1B342918342918342918' +
           '34291834291834291834291834291834291840311E44341E4D3B22' +
           '000001302020544A3B544A3B564D42564D42564D42564D42564D42' +
           '544A3B544A3B564D42544A3B000001000001392D1B392D1B392D1B' +
           '3429183429183429183429183429183429183429183429181E1500' +
           '271B005441274D3B22000001000001564D42544A3B564D42564D42' +
           '564D42564D42564D42564D42544A3B564D42000001392D1B392D1B' +
           '392D1B392D1B392D1B342918342918342918342918342918342918' +
           '3429181E1500271B002F2000513E254D3B2248382044341E000001' +
           '000001544A3B544A3B564D42564D42564D42544A3B544A3B564D42' +
           '544A3B000001000001000001000001000001000001000001000001' +
           '0000010000010000010000011E15002F20002F20004D3B224D3B22' +
           '48382044341E40311E44341E000001000001564D42564D42564D42' +
           '544A3B544A3B564D42544A3B4D4438302020302020302020302020' +
           '3020203020203020203020203020200000011E1500271B002F2000' +
           '2F20004D3B224D3B2248382044341E40311E392D1B40311E44341E' +
           '000001000001564D42564D42544A3B564D42544A3B544A3B4D4438' +
           '544A3B544A3B544A3B544A3B544A3B4D4438544A3B544A3B000001' +
           '1E15002F20002F20002F200000000100000100000144341E40311E' +
           '392D1B342918392D1B40311E44341E000001564D42544A3B564D42' +
           '564D42564D42564D42544A3B544A3B564D42564D42564D42544A3B' +
           '564D420000011E1500271B002F20002F2000000001302020302020' +
           '302020000001000001000001392D1B2F2515342918392D1B000001' +
           '302020564D42564D42564D42564D42544A3B544A3B564D42564D42' +
           '564D424D44384D4438564D420000011E15002F20002F2000000001' +
           '302020302020544A3B544A3B544A3B302020302020000001000001' +
           '0000012F2515392D1B000001544A3B564D42564D42564D42544A3B' +
           '544A3B544A3B564D42564D42544A3B544A3B0000011E15002F2000' +
           '2F20002F2000000001302020544A3B544A3B544A3B564D42564D42' +
           '544A3B544A3B30202030202000000100000140311E000001564D42' +
           '544A3B544A3B564D42564D42544A3B544A3B544A3B564D42564D42' +
           '0000011E15002F20002F2000000001302020302020544A3B544A3B' +
           '564D42564D42564D42544A3B4D4438544A3B564D42564D42302020' +
           '000001302020302020544A3B544A3B544A3B4D4438544A3B544A3B' +
           '544A3B544A3B0000011E15002F20002F20002F2000000001302020' +
           '4D44384D4438544A3B544A3B564D42564D42564D42544A3B544A3B' +
           '544A3B544A3B544A3B564D42302020544A3B');
    PickAxeSteel := BitmapFromString(30, 14,
           '564D42564D42544A3B4D4438544A3B564D42564D42544A3B4D4438' +
           '544A3B544A3B544A3B544A3B544A3B000001000001000001000001' +
           '544A3B564D42564D42564D42564D42564D42564D42544A3B544A3B' +
           '564D42544A3B564D42564D42544A3B544A3B4D4438564D42564D42' +
           '544A3B544A3B564D42564D42544A3B4D44384D44380000012D1E00' +
           '2D1E003423003A2700000001564D42564D42564D42564D42564D42' +
           '564D42564D42544A3B564D42544A3B564D42544A3B4D4438544A3B' +
           '564D42564D42000001000001000001000001000001000001000001' +
           '0000010000015C5656686060756D6C827878000001302020564D42' +
           '544A3B564D42564D42564D42564D42564D42544A3B544A3B564D42' +
           '4D44384D4438564D42000001000001595353595353595353595353' +
           '595353595353595353595353595353575151615A596A6262756D6C' +
           '000001302020544A3B544A3B564D42564D42564D42564D42564D42' +
           '544A3B544A3B564D42544A3B0000010000015C5656595353575151' +
           '5751515751515751515751515751515751515751515751511C1400' +
           '251900827878756D6C000001000001564D42544A3B564D42564D42' +
           '564D42564D42564D42564D42544A3B564D42000001615A595F5858' +
           '5C5656595353575151575151544E4E544E4E544E4E544E4E544E4E' +
           '544E4E1C14002519002D1E007D7474756D6C6E67676A6262000001' +
           '000001544A3B544A3B564D42564D42564D42544A3B544A3B564D42' +
           '544A3B000001000001000001000001000001000001000001000001' +
           '0000010000010000010000011C14002D1E002D1E00797070756D6C' +
           '6E67676A6262635D5C6A6262000001000001564D42564D42564D42' +
           '544A3B544A3B564D42544A3B4D4438302020302020302020302020' +
           '3020203020203020203020203020200000011C14002519002D1E00' +
           '2D1E007B7272756D6C6E67676A6262635D5C5F5858635D5C686060' +
           '000001000001564D42564D42544A3B564D42544A3B544A3B4D4438' +
           '544A3B544A3B544A3B544A3B544A3B4D4438544A3B544A3B000001' +
           '1C14002D1E002D1E002D1E00000001000001000001686060635D5C' +
           '5F58585751515C5656615A59665E5E000001564D42544A3B564D42' +
           '564D42564D42564D42544A3B544A3B564D42564D42564D42544A3B' +
           '564D420000011C14002519002D1E002D1E00000001302020302020' +
           '302020000001000001000001595353524B4B544E4E595353000001' +
           '302020564D42564D42564D42564D42544A3B544A3B564D42564D42' +
           '564D424D44384D4438564D420000011C14002D1E002D1E00000001' +
           '302020302020544A3B544A3B544A3B302020302020000001000001' +
           '0000014D47465F5858000001544A3B564D42564D42564D42544A3B' +
           '544A3B544A3B564D42564D42544A3B544A3B0000011C14002D1E00' +
           '2D1E002D1E00000001302020544A3B544A3B544A3B564D42564D42' +
           '544A3B544A3B302020302020000001000001665E5E000001564D42' +
           '544A3B544A3B564D42564D42544A3B544A3B544A3B564D42564D42' +
           '0000011C14002D1E002D1E00000001302020302020544A3B544A3B' +
           '564D42564D42564D42544A3B4D4438544A3B564D42564D42302020' +
           '000001302020302020544A3B544A3B544A3B4D4438544A3B544A3B' +
           '544A3B544A3B0000011C14002D1E002D1E002D1E00000001302020' +
           '4D44384D4438544A3B544A3B564D42564D42564D42544A3B544A3B' +
           '544A3B544A3B544A3B564D42302020544A3B');
    PickHandle := 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' +
           '');
    PickHead := BitmapFromString(6, 5,
           '2E1F002E1F00352400000001483E33483E331D1400261A002E1F00' +
           '352400000001483E331D14001D1400261A002E1F00000001302020' +
           '000001000001000001000001302020302020302020302020302020' +
           '302020302020483E33');
    Orebmp := BitmapFromString(10, 10,
           '856C4B856C4B886E4D8B704F000001000001000001000001443827' +
           '584731856C4B886E4D000001000001302020302020000001382D1E' +
           '54442F68543B0000010000013020203020203020200000012D2518' +
           '483B296C573D6F593E302020302020302020544A3C544A3C000001' +
           '3D31225847316F593E725C40302020544A3C564D41544A3C564D41' +
           '0000014D3E2B6F593E755E43776044544A3C544A3C564D41564D41' +
           '564D41000001584731725C407760447A6346544A3C544A3C564D41' +
           '564D41564D41000001655239755E437A6346806748544A3C564D41' +
           '544A3C544A3C564D410000016F593E7A6346806748886E4D544A3C' +
           '544A3C544A3C4F4538544A3C544A3C000001000001000001000001' +
           '564D41564D41564D41544A3C4F4538544A3C564D41302020302020' +
           '302020');
    iLamp := BitmapFromString(17, 6,
           '000001000001000001000001BAB815B2B015AEAD15ABAA159C9A12' +
           '9291128C8A1275740E000001000001000001000001000001D0CE18' +
           'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A3A112' +
           '99971292911284820E79780E6968095C5A09A6A415CECC18C5C418' +
           'C2C118C0BE18BDBB18BAB815B8B615B5B315B2B015A8A715A3A112' +
           '9C9A129594128E8D1281800E999712AEAD15CECC18CBC918C0BE18' +
           'BDBB18BAB815B5B315B2B015AEAD15A8A715A3A1129F9E12999712' +
           '88860E84820E8C8A129291129C9A12000001CBC918CBC918BAB815' +
           'B8B615B5B315B2B015AEAD15A8A715A3A1129C9A1295941281800E' +
           '79780E84820E000001000001000001CBC918CBC918C0BE18B8B615' +
           'B2B015AEAD15ABAA15A6A4159F9E129997128C8A1279780E75740E' +
           '000001000001C2C118');
    BNorth := BitmapFromString(8, 11,
           '640000640000640000000001640000790E00640000640000640000' +
           '790E00640000640000790E003F00003F0000790E00790E003F0000' +
           '3F0000790E00851B003F00003F0000851B00851B003F00003F0000' +
           '3F0000790E003F00003F00009622009622003F00003F00003F0000' +
           '790E003F00003F00009622009622003F00003F0000790E003F0000' +
           '3F00003F00009622009622003F00003F00009622003F00003F0000' +
           '3F00009622009622003F00003F00009622009622003F00003F0000' +
           '9C36009C36003F00003F0000AB4601AB46013F00003F00009C3600' +
           'AB46013F00003F00009C3600AB4601AB4601AB4601AB4601AB4601' +
           'AB4601AB46010000019C3600BA5604BA5604BA5604');
    CloseWindow := BitmapFromString(43, 4,
           '494034808080808080494034494034494034494034808080808080' +
           '808080483E33483E33483E33808080808080483E33483E33463D32' +
           '483E33483E33483E33808080000000483E33483E33483E33483E33' +
           '808080000000483E33483E33000000494034808080808080808080' +
           '494034494034494034494034808080808080808080808080494034' +
           '000000808080494034494034808080494034000000000000000000' +
           '483E33808080483E33000000808080483E33463D32483E33483E33' +
           '483E33808080000000483E33808080483E33483E33808080000000' +
           '483E33808080483E33494034808080000000000000808080494034' +
           '494034808080494034000000808080808080000000494034808080' +
           '000000494034494034808080808080494034494034494034808080' +
           '808080808080483E33000000483E33483E33483E33483E33808080' +
           '000000483E33808080000000483E33808080000000483E33808080' +
           '000000483E33808080000000494034808080000000494034808080' +
           '000000494034808080808080000000494034808080000000494034' +
           '494034494034000000808080494034494034808080000000000000' +
           '000000494034483E33483E33483E33483E33483E33808080483E33' +
           '808080000000808080483E33000000483E33808080000000483E33' +
           '808080000000494034808080000000494034808080000000494034' +
           '808080');
    rcmQuickBank := BitmapFromString(16, 6,
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
           '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
           '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
           '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
           'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
           '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
           '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000000005D5447' +
           'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
           '000000000000000000FFFFFFFFFFFFFFFFFF');
    rcmQuickBankY := BitmapFromString(17, 5,
           'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
           '000000000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF00' +
           'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
           '000000000000FFFF00FFFF00000000000000000000FFFF00FFFF00' +
           '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
           '000000FFFF00FFFF00000000000000000000FFFF00FFFF00000000' +
           '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
           'FFFF00FFFF00000000000000000000FFFF00FFFF00000000000000' +
           'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
           'FFFF00000000000000000000');
    StoreAllY := BitmapFromString(15, 6,
            'FFFF00FFFF00000000000000000000FFFF00FFFF00000000000000' +
            'FFFF00FFFF00000000000000FFFF00FFFF00FFFF00FFFF00FFFF00' +
            'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00000000' +
            '000000FFFF00FFFF00FFFF00FFFF00000000000000000000FFFF00' +
            'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
            'FFFF00FFFF00000000000000000000FFFF00FFFF00000000000000' +
            'FFFF00FFFF00000000000000FFFF00FFFF00FFFF00FFFF00000000' +
            '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
            '000000FFFF00FFFF00FFFF00FFFF00000000000000000000FFFF00' +
            'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
            '');
    StoreAll := BitmapFromString(15, 6,
            'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000000000' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
            'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
            '000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
            'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000000000' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
            '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
            '000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
            '');
    end;
    
    begin
    BitMaps;
    ST:=GetSystemTime;
    LoadChars('')
    SetMouseMode(False);
    tempbank:=2842230;
    tempLadder:=875655;
    tempLadder2:=2316400;
    tripcount := 3; town2:= town;
    Loged:=false; Fixed:=True
    Pickmode:=Pick
    LoginIfNeeded;
    Chatfix;
    FindPickHeadColor(true);
    PutOn;
    if(ColorsFound=true)then
    begin
    If(FindColorSpiralTolerance(x,y,banklogo,574,8,722,160,Tolerance))Then ToRocks;
    repeat
    If(Loged)then break;
    DoMining;
    ToBank;
    trips:=trips+1
    PrintProgressReport;
    ToRocks;
    until(Loged);
    end;
    end.

  6. #31
    Join Date
    Feb 2006
    Location
    New Zealand
    Posts
    1,330
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by benleegt View Post
    Easier?!

    We had no good getuptext (That was so flawed) we had no TPAs and dtms and much less ddtms. We literally had to cut the screen up ourselves, and we couldnt find text or anything so we had to get a bitmap of the menu options when we needed to click menus!!

    And no I won't kill you Hy71194
    agreed. I remember for my smelter dividing the screen up. I personally searched right to left in like lines i guess going up the screen. Each time extending the line a little further to the left and then calling findcolor etc. Ahh the good old times for findobj :P

    Hahah renax. Chriz's ironminer. Legend.

  7. #32
    Join Date
    Oct 2006
    Posts
    371
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    I swear to god, this was my first script. I didnt have ANY tutorials, only the ones from f1 lolol.

    SCAR Code:
    // INTERNET EXPLORER OPENER !!!
    // BY - SEB
    // HAVE INTERNET FIRST ROW SECOND PLACE!!!

    program Internet;

    begin
    clickmouse(37,109,true);
    wait(10);
    clickmouse(37,109,true);
    writeLn('the internet was opened!');
    end.

  8. #33
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Holy shit...
    I found my cooker...
    from CD...they are at least 2-3 years old...
    I had few more scripts by dankness and odie but while opening them I got external error...


    I remember this script...
    SQUIG YOU ARE AWESOME!
    <-because this...
    SCAR Code:
    //------ dark_snipers auto_yew_cutter-------\\
    //---------------set colors ----------------\\
    //---------------press play ----------------\\
    //------------------------------------------\\
    //--------- ______________________----------\\
    //-------- /SQUIG YOU ARE AWESOME!\---------\\
    //---------\______________________/---------\\
    //()__()__()__()__()__()__()__()__()__()__()\\


    program auto_yew_cutter_banker;
    {.include squig.txt}
    var
    cutted,treesymbol,x,y:integer;

    {//setup}const{setup\\}
    road=7237496;//minimap road color
    treecol=0;
    yewlog=0;
    bank=0;
    I_want_to_cut=100;//how many you want to cut

    //---end setup---\\

    procedure loadbitmaps;
    begin
    treesymbol := BitmapFromString(17, 17, 'z78DAE594410E843008' +
           '45AF04A5EDD0656DF5FE479ACCE08284E0B4D5DDB8783131FE571' +
           '001F8AF0B0B46281E9F4AEEDCA9BD3CAE19BD64DC4B842331D770' +
           'DE0BAD71361F5BFE9C53A8922DC75DAEE5325FB8F146F587E54E1' +
           '5048DA0845E03D4EB8AEE54E1756FC2325C91EDDEA2E54BE98CD0' +
           'CB1FB75897BC9B32319E3932D562D4F9B33320D409DA629FAE4DB' +
           '2A5B578DB60EDDFA73D64D8C59239265CCC1FD963BA3FFA2B3FBB' +
           '39D776F21BC8FB6AD8');
           freebitmap(treesymbol);
           end;


    Procedure Flag;
    var flagimage,timeout:integer;
    begin

         flagimage := BitmapFromString(2, 2,'FF00005D3311C656045D3311');
         timeout:=0
         repeat
          timeout:=timeout+1;
               wait(250);
         until(not findbitmapin( flagimage, x, y, 570, 5, 725, 162)) or (timeout > 120);
         freebitmap(flagimage);
    end;


    procedure road_trees;
    begin
    findcolorspiral(x,y,road,608, 122,665, 160)
    movemousesmoothex(x,y,1,4,55,55,55)
    clickhuman(x,y,true)
    findrandoms;
    wait(7000+random(300))
    flag;
    wait(200+random(200))
    findcolorspiral(x,y,road,629, 136, 658, 158)
    movemousesmoothex(x,y,1,4,55,55,55)
    clickhuman(x,y,true)
    findrandoms;
    flag;
    wait(200+random(200))
    findcolorspiral(x,y,road,615, 134, 671, 162)
    movemousesmoothex(x,y,1,4,55,55,55)
    clickhuman(x,y,true)
    findrandoms;
    flag;
    wait(200+random(150))
    end;

    procedure find_tree;
    begin
    findbitmaptolerancein(treesymbol,x,y,545, 3,754, 160,7)
    movemousesmoothex(x,y,1,4,55,55,55)
    clickhuman(x,y,true)
    findrandoms;
    wait(7000)
    flag;
    wait(200+random(55))
    repeat
    findcolorspiral(x,y,treecol,546, 1,658, 161)
    wait(200)
    movemousesmoothex(x,y,1,4,55,55,55)
    wait(200)
    IsTextat2(9,9,'chop down yew',100)
    clickhuman(x,y,true)
    findrandoms;
    until(findcolorspiral(x,y,yewlog,691, 431,732, 457))or
    findcolorspiral(x,y,yewlog,651, 431,689, 459)
    findcolorspiral(x,y,road,682, 22,725, 62)
    movemousesmoothex(x,y,1,4,55,55,55)
    clickhuman(x,y,true)
    flag;
    findcolorspiral(x,y,road,645, 9, 668, 25)
    movemousesmoothex(x,y,1,4,55,55,55)
    clickhuman(x,y,true)
    findrandoms;
    flag;
    findcolorspiral(x,y,road,645, 9, 668, 25)
    movemousesmoothex(x,y,1,4,55,55,55)
    clickhuman(x,y,true)
    findrandoms;
    flag;
    end;

    procedure tobank_banking;
    begin
    findcolorspiral(x,y,bank,621, 27,740, 157)
    movemousesmoothex(x,y,1,4,55,55,55)
    clickhuman(x,y,true)
    findrandoms;
    flag;
    wait(300)
    openbank;
    deposit(1,2,0)
    deposit(1,3,0)
    cutted:=cutted+28
    end;

    procedure progress_report;
    begin
    writeln('')
    writeln('|-------Dark_snipers auto yew cutter--------')
    writeln('|-------------------------------------------')
    writeln('|------> cut'+inttostr(I_want_to_cut)+' yew logs')
    writeln('|-------------------------------------------')
    writeln('|---->worked for '+inttostr(timerunningmin)+' Minutes '+inttostr(timerunningsec)+' Seconds')
    writeln('|-------------------------------------------')
    end;

    begin
    setupsquig;
    repeat
    flag;
    road_trees;
    find_tree;
    tobank_banking;
    until(I_want_to_cut>=cutted)

    end.

    Ok here comes my first script, no fucking lauch!
    SCAR Code:
    //my first working scripts wat cooks food in al-kharid bank
    //have food u want to cook in 1st bank slot
    //this script is free and its working too!!!
    //drag client window, set colours and hit play
    //its haves antirandom too

    //Created by Negaal

    {.include squig.txt}
    const
    bank =  5099997;//minimap bank
    rangeMM = 6262953;//minimap range or kebab seller symbol
    rangeMs = 1579035   ;//mainscreen range color

    var a,b,x,y : integer;
    bbb : integer;
    procedure cook;
    begin
    findcolor(a,b,Bank,555,5,735,155);
        MouseC(a+random(2)-2,b+random(2)-2+bbb,1);
        wait(1000+random(100));
        mapflagging;
        MapCompass('w');
        wait(200);
        OpenBank;
        wait(150+random(50));
        depositall;
        banktop;
        wait(random(50));
        Withdraw(1,1,0);
    wait(100+(3565));
    MouseC(690+random(2)-2,110+random(2)-2+bbb,1);
    wait(1000+(100));
    mapflagging;
    findcolor(a,b,rangemm,555,5,735,155);
        MouseC(a+random(2)-2,b+random(2)-2+bbb,1);
        wait(1000);
        mapflagging;
        useitem(1,1);
        wait(200+(300));
        findcolor(x,y,rangems,s1,s2,s3,s4);
        movemouse(x,y);
        wait(200+(300));
        clickhuman(x,y,false);
        wait(400+(1200));
        clickhuman(x+random(3)-3,y+25,true);
        wait(4000+(500));
        mousec(260+random(2)-2,425+random(2)-2,2)
        wait(400+(600));
        mousec(260+random(2)-2,425+random(2)-2,1)
        findrandoms;
        wait(52000+(4679));
        end;
       
        begin
        setupsquig;
        cook;
        findrandoms;
        cook;
        findrandoms;
        cook;

        findrandoms;
        cook;
        findrandoms;
        cook;

        findrandoms;
        cook;
        findrandoms;
        cook;

        findrandoms;
        cook;
        findrandoms;
        cook;
        findrandoms;
        cook;
        findrandoms;
        cook;
        cook;
        findrandoms;
        cook;
        findrandoms;
        cook;
        findrandoms;
        cook;
        findrandoms;
        cook;
        end.

    It's not made by me I think...
    SCAR Code:
    program CowKiller;

    {.include library2.txt}

    ////SETUP////////////////////////////////////////////////////////////////
    const mcolour = 1781357;//The colour of the monster on the mainscreen//
    /////////////////////////////////////////////////////////////////////////



    procedure kill;
    begin
    repeat
    findcolortolerance(x,y,mcolour,0,0,516,336,20);///finds cow color
    mmouse(x,y,5,6);                                 ///moves the mouse to the cow color
    wait(500+random(500));                               ///waits
    until(IsTextAt2(9,9,'Walk here / 2 more options',100)=true)          ///does the latter until it finds the text attack at the top of the screen
    mouse(x,y,0,0,false);
    wait(random(50));
    Mouse(x,y,5,2,true);
    wait(16000);
    end;

    begin
    repeat                      ///starts looping
    kill
    GhostSpeak('Fighting');     ///autochat see library2.txt
    until(false)                ///loop forever

    end.


    I had few more scripts on CD, but it was kinda very damaged...


    Ahhh, cleaned the CD a bit


    SCAR Code:
    program Squigglyos_FireMakerDeluxe;
    {.include Squig.txt}

    //Requires Squig Version 4 or higher

    {You will need a current version of Squig to run this}

    { Start in Edgevil Bank
      Start with tinderbox in your first inventory slot
      The rest of your inventory needs to be logs.
      Logs in bank need to be in the first spot.}

     
    {Version 3}

    {This is a script created by Squigglyo
    You may not pass this off as your own script
    You may not sell this script
    You may not alter this script
    You may, use this as much as you like
    For any problems, or info about future updates,
    contact [email]lesser_demon_slayer@hotmail.com[/email], or pm me,
    if you know where to find me}


    {Squigglyo is, and always will be the owner of this script
    and owns all rights to this script}


    var
      a, b, TotalDone, UpDown, bbb : integer;
      NoMoreLogs, stoppingscript, once : boolean;
      expgetting : extended;
      TheStatus : string;
     
    const
      MiniWater = 12029819         ;//The stream east of the bank
      WaterSymbol = 14769962   ;//The water symbol on the minimap
      BankSymbol =  3853273    ;//The bank symbol color of the bank
      TinderBox = 8224391     ;//The color of the tinerbox in your inventory (sorta grey)

      UserName = 'lol'    ;//Your username
      Password = 'noob'    ;//Your password
      YourBankID = 7169;//Your Bank ID

      TotalNeeded = 1400       ;//Total Amount of logs
      TypeofLog = 2            ;//0 is normal, 1 is oak, 2 is willow,
      //3 is for Teak, 4 is maple, 5 is Mahogany, 6 is yew and 7 is magic

      Lamp = 'RC' ;//The skill you wish to train when a lamp comes


      //DEBUG//
      LogWait =    300           ;//Only change if you seem to be dropping logs and not burning them.
                               //Its the ammount of seconds to wait between logs (1 is the default value)
      /////////

    Function LogPresent : Boolean;
    Var
      TheLog, TheLog2, TheLog3, TheLog4 : Integer;
    Begin
      Thelog := BitmapFromString(28, 17, 'z78DAC5964992C3200C45AF046' +
           '8C24B63C8FD8FD4698BAE1205243843358BBF006C9E85F465E7C6' +
           '8389326C7C63862281233A464A21B327F9533A0843AA1AC987ADD' +
           '173DEEE9F3EABEA710F84192524B73CF860801C9D306E92055196' +
           '38CDCC8C70C0ACCF22E620774E0EB0CE6909679C3D6DB3AAFB17D' +
           '47EA9BB387A4E112E88CD297D7C96D9AA0A9570B3F7FE15CE87A7' +
           'FF5B3C5577F1C895A4D7ABF1349CB8A10F0E22802FBFCCE07B2A8' +
           'DB9D501E7170855B5761A86B3A66C2650210156FFA9ABAAE72D0C' +
           'AAE9219BC6A4EA79FA94A173B0A612BB7C50CE08B2E16EE366DF6' +
           '309EDE9336D7826542B3538E08C52305BDAE6CDE71E75FB819F1B' +
           'F75B8AD5B24B584E0E94204692844939F5AE7BCE9A035AF5CB1EF' +
           'E44977D40FBA3256CE279DF0938ABFD41967E88B0E920CA19D943' +
           '6A486C7E2A67F7152F72BEE6FF672E691F17E203C1FAB9CED81B7' +
           'F8BF32547AD7F2608C5177527AD91AA4A68B377FDDE7BDA6536F7' +
           'F6B8CCF930C2EE6B43BBC0930E3561FB14C30F312C5EDB');
      TheLog2 := BitmapFromString(29, 11, 'z78DAB5954B72C4200C4' +
           '4AF04E883589A01DFFF487190322517438A496558F4C21FF1DC48' +
           'ED105EAF9A0A10D45002A5A34BA728C804CD343240CD9D23945CA' +
           '93F55AF0CD56796EAEBE8BB480538FC69CDB457B514BB3067E87E' +
           'AF25C98E8E6A4ACB9D10E083B4BF32EC33DB89FCABB7C62CC4177' +
           '3E18AC1A8BCEEBBEA69D55BC496DA0E1B574A10BDBEF0F6039CAA' +
           '9CF14CA7ED3EFA2147CA807AC57352C318890B1EB1FA27F55CF24' +
           '93585FC20895DF5463BEF1BF1484D5D32860589D557CDF400F173' +
           '3A4F9FBEABB4EAE451A5E1796411ECB76A8EF3C630AB3FA399CD5' +
           '36D64C892F6510EBA6E16227CCED493D6FC6FD862BD7D8557A59A' +
           'D926DFB652CEF5F30BDA5C985869D5E799D6FA6124C3BCEFBBBA9' +
           '37B33EDD56918C538EF79F5CD29D0AF6FF1C930BAC5266E91BD6F' +
           '10CE9C5A73D1094CD7F1C98DA748FDE95BA35DE5C306ED1B7F109' +
           'F306346ACCEE82ECD842FB9929923');
      TheLog3 := BitmapFromString(29, 11, 'z78DAB5D54B9284200C06' +
           'E02B415EC05245EE7FA4B10CD31506B168BBC7C5BFF0015F4188C' +
           'E5D5F314B448C8B08FA9A24002578CA6ED7949D9636EDD3A964F6' +
           'C7B789824BBCE1EE927B74CD68EF0DF366D50A137D51AB2942E8A' +
           'BA7CF77D7D6681930BA8419B267F114004736DD059B17DA7F706A' +
           '72C0B59DFDD0FAABDA904819382C9C60D5776A9EFBD29BEF85BA3' +
           'E35D53090E8F835B512344DFDDB0AA95F9DDA586445B26B6847B3' +
           'CEC6304AAB1AD9264EE8489B580A8A3537E3EBFA67DE2037F76DD' +
           'EDB06C2FB4E72A1DDA8404828F970AAF6DCFD5E5BABE2EC0CA379' +
           'DFCDF95EA1DAE0182058E79FB55D5ECEAE3FF4D5FB35A7BED96B9' +
           '109DAD3D4D6EDF2AAEAD1899BD63EFB6BA8537B42100EB046CF05' +
           '8AFD0BE89DA6063ED03EECC0E769A5A3467FB53F964B9C40');
      TheLog4 := BitmapFromString(29, 11, 'z78DAB595411683200C05AF' +
           '0424806C117AFF23150DFA423156B165310B9F8DE33749953A3E9' +
           '37319F2846E8644C4645E2A388D61A39D1137F2EB376831EE750C' +
           '6415D4D0B9627BEE70DDB9DA7AD4BFB325960460F7E9399430D96' +
           '20077CD1613945F71F6B6FFF024F2E7523F10E90AF784646CB10D' +
           '26B677567AA08E828DE78608A0976A4B4A955D0E6DFDE5EB57765' +
           '3C03B84EE27DB29788DAA26A95D80D8D4619E8D49CF2137694E45' +
           'DBEC2D0277E695BFE42F91BB0986E7FB44B49DCB27D7D576EDD8D' +
           'E9612A6CD203DF72EAFEF8A834E6093C53DBF4C9CB0819F784AB6' +
           '08C67FF8B0BE15DF65C8F6F9BF06D9524F9289CFCE43F0D121B4D' +
           '93EB0BDBD81D7ACEAB4AE7B86CE1B33BF9056');
      Result:= FindBitmapTolerancein(TheLog, a, b, I1, I2, I3, I4, 30);
      If(result=false)then
        result:= FindBitmapTolerancein(TheLog2, a, b, I1, I2, I3, I4, 30);
      If(result=False)Then
        result:= FindBitmapTolerancein(TheLog3, a, b, I1, I2, I3, I4, 30);
      If(result=False)Then
        result:= FindBitmapTolerancein(TheLog4, a, b, I1, I2, I3, I4, 30);
      FreeBitmap(TheLog);
      FreeBitmap(TheLog2);
      FreeBitmap(TheLog3);
      FreeBitmap(TheLog4);
    End;

    Function AttemptPresent : Boolean;
    Var
      attempt : Integer;
    Begin
      attempt := BitmapFromString(15, 7,
           'BAAB8ABAAB8ABAAB8AB9A581B9A581B9A581B9A581000000B9A581' +
           'B9A581B9A581B9A581000000B9A581B9A581BBAE92000000000000' +
           '000000BAAB8ABAAB8AB9A581000000000000000000B9A581B9A581' +
           '000000000000000000000000BAAB8ABAAB8ABAAB8A000000B9A581' +
           'B9A581000000BAAB8AB9A581B9A581B9A581000000B9A581B9A581' +
           'BBAE92000000000000000000000000B9A581B9A581000000B9A581' +
           'B9A581B9A581B9A581000000B9A581B9A581000000BAAB8ABAAB8A' +
           'B9A581000000B9A581BAAB8A000000B9A581B9A581B9A581B9A581' +
           '000000B9A581B9A581000000B9A581B9A581BAAB8A000000BAAB8A' +
           'BAAB8A000000BAAB8AB9A581BAAB8ABAAB8A000000BAAB8ABAAB8A' +
           'BAAB8A000000000000000000000000BAAB8ABAAB8ABAAB8A000000' +
           '000000B9A581BAAB8AB9A581000000000000');
      result:= FindBitmaptoleranceIn(attempt, a, b, 40, 410, 70, 430, 100);
      FreeBitmap(attempt);
    End;

    Function CantPresent : Boolean;
    Var
      cant : Integer;
    Begin
      Cant := BitmapFromString(24, 11,
           'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8AB9A581BAAB8A' +
           'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
           'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A000000BAAB8ABAAB8A' +
           'BAAB8ABBAE92BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
           'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABBAE92BAAB8ABAAB8ABAAB8A' +
           'BAAB8ABAAB8ABAAB8A000000BAAB8ABAAB8ABBAE92BBAE92BAAB8A' +
           'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
           'BAAB8ABBAE92BBAE92BBAE92BAAB8ABBAE92BAAB8ABAAB8ABAAB8A' +
           '000000BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
           'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABBAE92BAAB8ABBAE92' +
           'BAAB8ABBAE92BAAB8ABBAE92BAAB8ABAAB8A000000BAAB8ABAAB8A' +
           'BAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8ABAAB8A' +
           'BBAE92BBAE92BBAE92BBAE92BBAE92BAAB8ABBAE92BAAB8ABAAB8A' +
           'BAAB8ABAAB8ABAAB8A000000BAAB8A000000000000BAAB8AB9A581' +
           'B9A581BAAB8A000000000000000000BBAE92BBAE92BBAE92000000' +
           'BBAE92000000BBAE92BAAB8ABBAE92000000000000000000BAAB8A' +
           '000000000000BAAB8ABAAB8A000000BAAB8ABAAB8A000000BAAB8A' +
           'BAAB8ABBAE92000000BBAE92BBAE92000000000000BBAE92BBAE92' +
           'BBAE92000000BBAE92BAAB8ABAAB8A000000000000BAAB8ABAAB8A' +
           'BAAB8A000000BAAB8ABAAB8A000000BAAB8ABBAE92BAAB8A000000' +
           'BAAB8ABBAE92000000BBAE92BBAE92BBAE92BBAE92000000BAAB8A' +
           'BAAB8ABAAB8A000000000000BAAB8ABAAB8ABAAB8A000000BAAB8A' +
           'BBAE92000000000000000000000000BAAB8ABAAB8ABAAB8A000000' +
           'BAAB8ABAAB8ABAAB8ABAAB8A000000000000000000000000B9A581' +
           '000000BAAB8ABBAE92BAAB8A000000BAAB8ABBAE92000000BBAE92' +
           'BBAE92BBAE92BBAE92BAAB8ABAAB8A000000BAAB8ABAAB8ABAAB8A' +
           'BBAE92000000BBAE92BBAE92BBAE92BBAE92000000BAAB8ABAAB8A' +
           'BAAB8A000000BAAB8ABAAB8ABBAE92000000000000000000000000' +
           'BBAE92BBAE92000000BBAE92BBAE92BBAE92BAAB8ABBAE92000000' +
           '000000000000000000');
      result:= findbitmaptolerancein(cant,a,b,13,413,173,435,100);
      FreeBitmap(cant);
    End;

    Function BurnPresent : Boolean;
    Var
      Burn : Integer;
    Begin
      Burn := BitmapFromString(8, 10,
           '000000B29975B29975B29975B29975B29975B9A581B9A581000000' +
           'B9A581B9A581B29975B29975B29975B29975B29975000000B9A581' +
           'B9A581B9A581B29975B29975B9A581B9A581000000B9A581B29975' +
           'B29975B29975B9A581B29975B29975000000000000000000B29975' +
           'B29975B29975B29975000000000000B9A581B29975000000B29975' +
           'B29975B29975000000000000B29975B29975B29975000000B29975' +
           'B29975000000000000B29975B29975B29975000000B29975B29975' +
           '000000000000B29975B9A581B9A581000000B9A581B9A581000000' +
           '000000000000000000000000B9A581B9A581B9A581B9A581');
      result:= findbitmaptolerancein(burn,a,b,233,415,249,431,100);
      FreeBitmap(Burn);
    End;

    procedure DeadHandler;
    begin
      writeln('');
      writeln('');
      writeln('You Are Dead');
      writeln('');
      writeln('');
      stoppingscript:=true;
    end;

    procedure ChangeReport;
    var
      str1 : string;
    begin
      str1:=floattostr(expgetting*totaldone);
      clearreport;
      addtoreport('Hello ' + username + ' this is the status so far');
      addtoreport('FireMaker Deluxe by Squigglyo');
      addtoreport('***********************');
      addtoreport('Currently: '+ (TheStatus));
      addtoreport('Flamed: '+inttostr(TotalDone)+' logs');
      addtoreport('XP Gained: '+str1);
      addtoreport(inttostr(TotalNeeded - TotalDone) + ' logs to Go');
      addtoreport('Worked for: ' + WorkedFor);
    end;

    procedure OutOfBank;
    var
      a1, c, a2 : integer;
    begin
      TheStatus:=('Out of Bank');
      Status(TheStatus);
      ChangeReport;
      Direction:='SE';
      repeat
        findrandoms;
        if(fightfound=true)then
          begin
            MouseC(random(5)+670,random(5)+110,1);
            MapFlagging;
          end;
        findcolor(a,b,BankSymbol,555,5,725,155);
        a2:=a
        a:=a+random(10)+35;
        b:=b-random(10)-17;
        a1:=a;
        c:=0;
        repeat
          a1:=a1-random(3);
          if(similarcolors(getcolor(a1,b),15528686,50))or(similarcolors(getcolor(a1,b),2105598,100))then
            begin
              a1:=a;
              b:=b-5-random(2);
            end;
          if(b<20)then
            begin
              findcolor(a,b,banksymbol,555,5,725,155);
              a1:=a;
              c:=c+1;
              a:=a+random(10)+50;
              b:=b-random(13)-20;
              if(c=10)then
                begin
                  writeln('')
                  writeln('')
                  writeln('Got lost leaving the bank')
                  writeln('')
                  writeln('')
                  stoppingscript:=true;
                  exit;
                end;
            end;
            wait(1);
        until(a1<(a2-25));
        MouseC(a,b,1);
        wait(500+random(100));
      until(FlagPresent=true);
      MapFlagging;
      wait(random(300)+800);
    end;

    procedure BackToBank;
    var
      c : integer;
    begin
      TheStatus:=('Back to the Bank');
      Status(TheStatus);
      ChangeReport;
      Direction:='S'
      FindRandoms;
      c:=0;
      while(findcolor(a,b,Banksymbol,555,5,735,155)=false)do
        begin
          a:=random(35)+665;
          b:=random(75)+85;
          MouseC(a,b,1);
          wait(random(300)+300);
          MapFlaggingR;
          if(c=5)then
            begin
              writeln('');
              writeln('');
              writeln('Lost way to the bank');
              writeln('');
              writeln('');
              TheStatus:=('Lost way to the bank');
              Status(TheStatus);
              ChangeReport;
              stoppingscript:=true;
              exit;
            end;
            c:=c+1;
        end;
      c:=0;
      repeat
        findcolor(a,b,BankSymbol,555,5,735,155);
        MouseC(a+random(10)-5,b+random(10)-5+bbb,1);
        c:=c+1;
        if(c=25)then
          begin
            writeln('');
            writeln('');
            writeln('Lost way to the bank');
            writeln('');
            writeln('');
            stoppingscript:=true;
            exit;
          end;
      until(FlagPresent=true);
      wait(random(300)+300);
      MapFlagging;
    end;

    procedure MoveUp;
    var
      c : integer;
    begin
      TheStatus:='Moving back to the bank';
      Status(TheStatus);
      ChangeReport;
      c:=0
      If(Once=True)Then
        begin
          MouseC(250+random(5),135-random(5),1);
          Once:=False;
          a:=random(10)+570;
          b:=random(10)+215;
          MouseC(a,b,2);
          wait(random(100)+800);
          ClickText('mine', I1, I2, I3, I4, true);
          exit;
        End
        Else
          Once:=True;
      if(findcolor(a,b,WaterSymbol,555,5,735,160))and(findcolor(a,b,BankSymbol,555,5,735,160)=false)then
        repeat
          c:=c+1;
          mouseC(475+random(5),260+random(5),1);
          wait(random(300)+500);
          MapFlagging;
          if(c=25)then
            begin
              stoppingscript:=true;
              writeln('');
              writeln('');
              writeln('Lost way to the bank');
              writeln('');
              writeln('');
              exit;
            end;
        until(findcolor(a,b,BankSymbol,555,5,735,160));
      c:=0;
      if(findcolor(a,b,MiniWater,640,5,735,160))and(findcolor(a,b,BankSymbol,555,5,735,160)=false)then
        repeat
          if(c=25)then
            begin
              stoppingscript:=true;
              writeln('');
              writeln('');
              writeln('Lost way to the bank');
              writeln('');
              writeln('');
              exit;
            end;
          c:=c+1;
          MouseC(random(10)+120,random(10)+100,1);
          wait(random(300)+500);
          MapFlagging;
        until(findcolor(a,b,BankSymbol,555,5,735,160));
      c:=0;
      if(findcolor(a,b,MiniWater,555,5,735,160))and(findcolor(a,b,BankSymbol,555,5,735,160)=false)then
        repeat
          if(c=25)then
            begin
              stoppingscript:=true;
              writeln('');
              writeln('');
              writeln('Lost way to the bank');
              writeln('');
              writeln('');
              exit;
            end;
          c:=c+1;
          MouseC(random(10)+120,random(10)+100,1);
          wait(random(300)+500);
          MapFlagging;
        until(findcolor(a,b,BankSymbol,555,5,735,160));
        c:=0
      if(findcolor(a,b,MiniWater,555,5,735,160)=false)and(findcolor(a,b,WaterSymbol,555,5,735,160)=false)and(findcolor(a,b,BankSymbol,555,5,735,160)=false)then
        repeat
          c:=c+1
          MouseC(random(10)+640,random(10)+115,1);
          MapFlagging;
          begin
            Writeln('');
            writeln('');
            Writeln('Lost way to the bank');
            Writeln('');
            writeln('');
            stoppingscript:=true;
            exit;
          end;
        until(findcolor(a,b,BankSymbol,555,5,736,160))or(getcolor(467,286)=65535)
      c:=0
      if(getcolor(467,286)=65535)then
        repeat
          mousec(675+random(10),115+random(10),1);
          MapFlagging;
          c:=c+1
          if(c=20)then
            begin
              Writeln('');
              writeln('');
              Writeln('Lost way to the bank');
              Writeln('');
              writeln('');
              stoppingscript:=true;
              exit;
            end;
        until(findcolor(a,b,banksymbol,555,5,735,160));
      repeat
        c:=c+1
        findcolor(a,b,banksymbol,555,5,735,160)
        MouseC(a+random(10),b+random(10),1);
        if(c=25)then
          begin
            stoppingscript:=true;
            writeln('');
            writeln('');
            writeln('Lost way to the bank');
            writeln('');
            writeln('');
            exit;
          end;
        wait(random(200)+400);
      until(FlagPresent);
      MapFlagging;
      a:=random(10)+575;
      b:=random(10)+215;
      MouseC(a,b,2);
      wait(random(300)+300);
      MouseC(a+random(10),b+random(3)+52,1);
      wait(random(200)+200);
      OutOfBank;
    end;

    procedure FireMaking;
    var
      color1, color2, color3, c : integer;
    begin
      TheStatus:='Making Fires';
      Status(TheStatus);
      Direction:= 'SE'
      MouseC(random(10)+570,random(10)+225,0);
      if(IsTextAt3(9,9,'Use T',100)=false)then
        begin
          writeln('');
          writeln('');
          writeln('Couldnt find the tinerbox in your inventory');
          writeln('');
          writeln('');
          stoppingscript:=true;
          exit;
        end;
      repeat
        c:=0;
        Color1:=getcolor(262,57);
        Color2:=getcolor(416,56);
        Color3:=getcolor(63,182);
        FindRandoms;
        if(fightfound=true)then
          begin
            MoveUp;
            exit;
          end;
        if(IsDead=true)then
          Exit;
        UseItem(1,1);
        wait(random(200)+300);
        TheStatus:=('Finding the Log')
        Status(TheStatus);
        ChangeReport;
        if(LogPresent=false)then
          begin
            TheStatus:='Getting new logs';
            Exit;
          end;
        MouseC(a+random(10)+5,b+random(5)+5,1);
        wait(random(200)+200);
        repeat
          c:=c+1;
          wait(10);
          if(CantPresent)then wait(500);
            if(CantPresent)then
              begin
                MoveUp;
                if(stoppingscript=true)then
                  exit;
                  C:=150;
              end;
            Findrandoms;
            if(fightfound=true)then
              begin
                MoveUp;
                c:=150;
              end;
        until(c=150)or(AttemptPresent);
        if(c<>150)then
          begin
          c:=0;
            repeat
              Findrandoms;
              if(RandomTalked=true)or(fightFound=true)then
                MoveUp;
              wait(100);
              c:=c+1
            until(c=30)or((BurnPresent)and((color1<>getcolor(262,57))or(color2<>getcolor(416,56))or(Color3<>getcolor(63,182))));
          end;
        wait(random(100)+(LogWait));
      until(NoMoreLogs=True);
      wait(random(150)+300);
    end;

    procedure GetExp;
    begin
      if(typeoflog=0)then
        expgetting:=40;
      if(typeoflog=1)then
        expgetting:=60;
      if(typeoflog=2)then
        expgetting:=90;
      if(typeoflog=3)then
        expgetting:=157;
      if(typeoflog=4)then
        expgetting:=135;
      if(typeoflog=5)then
        expgetting:=105;
      if(typeoflog=6)then
        expgetting:=202.5;
      if(typeoflog=7)then
        expgetting:=303.75;
    end;

    begin
      SetupSquig;
      Loadchars('');
      MapCompass('N');
      clearReport;
      runback:=true;
      UpDown:=1;
      direction:='W';
      StoppingScript:=false;
      user:=username;
      pass:=password;
      BankID:= YourBankID;
      SetChat;
      Once:=True;
      FindRandoms;
      NoMoreLogs:=False;
      ChangeReportWidth(350);
      OpenBag;
      GetExp;
      If(IsDead=true)then
        DeadHandler;
      a:=random(10)+570;
      b:=random(10)+215;
      MouseC(a,b,0);
      if(istextat3(9,9,'Use Tinder',100)=false)then
        begin
          writeln('');
          writeln('');
          writeln('Couldnt find the tinderbox');
          writeln('');
          writeln('');
          stoppingscript:=true;
        end;
      MouseC(a,b,2);
      wait(random(100)+800);
      ClickText('mine', I1, I2, I3, I4, true);
      repeat
        if(stoppingscript=true)then
          break;
        OutofBank;
        If(IsDead=true)then
          DeadHandler;
        if(stoppingscript=true)then
          break;
        FireMaking;
        If(IsDead=true)then
          DeadHandler;
        if(stoppingscript=true)then
          break;
        NoMoreLogs:=False;
        FindRandoms;
        BackToBank;
        If(IsDead=true)then
          DeadHandler;
        if(stoppingscript=true)then
          break;
        FindRandoms;
        TotalDone:=TotalDone+27;
        if((TotalDone+1)>TotalNeeded)then
          exit;
        a:=0;
        while(OpenBank=false)do
          begin
          a:=a+1;
          bbb:=bbb+7;
          BackToBank;
          if(a=5)then
            begin
              writeln('');
              writeln('');
              writeln('Lost way to the bank');
              writeln('');
              writeln('');
              Break;
            end;
          end;
        bbb:=0;
        DepositAll2(1,2);
        wait(random(300)+300);
        BankTop;
        wait(random(300)+300);
        Depositall2(1,2);
        wait(random(300)+300);
        Withdraw(1,1,0);
        wait(random(300)+300);
        CloseBank;
        wait(random(300)+300);
        FindRandoms;
        RandomLogout(8.00);
        if(loggedin=false)then
          Login;
      until(TotalNeeded<=TotalDone)or(stoppingscript=true);
      Logout;
    end.


    SCAR Code:
    {+++++++++++++++++++++++++++++++++++++++++]
                     AutoFighter
                        v1.6311
                    by: odie5533
    [+++++++++++++++++++++++++++++++++++++++++]
    Instructions:
     1.Setup lines 54-69
     2.Vbright, 32 bit color
     3.Highest angle of view
     4.Scar 1.13
     5.Requires OSi v3.4
     6.To use Eat function, have a piece of
       the kind of food you want to eat in 1st
       invin slot
     7.To use the Bone Burier, have a bones in
       the 2nd invin slot
    [+++++++++++++++++++++++++++++++++++++++++]
     Special Thanks To:
     x piv x, Stupid3ooo, Joolz, and Nick
     Super Special Thanks to: Pups!!!
    [+++++++++++++++++++++++++++++++++++++++++}


    {ChangeLog:
     v1.0 - Initial release
     v1.01 - Updated wait timing
     v1.1 - Added Login Procedure, fixed Progress Report, and MapFlag waiting
     v1.2 - Added Bone Collector, fixed wait times, Progress Report more accurate
     v1.21 - Login faster, fixed fightmode changing, bone burying faster
     v1.22 - Fixed login procedure
     v1.5 - Added anti-randoms, and added eating fucntion
     v1.6 - Fixed anti-randoms, updated various things
     v1.61 - poop
     v1.62 - I dno anymore
     v1.63 - Fixed the anti-randoms
     v1.631 - Fixed talk procedure and added SetFightMode after login
     v1.6311 - Works with current OSi}


    program AutoFighter;
    var ax,ay,report,report2,FightMode:Integer;
    BonesCollected,BonesBuried,Killed,Timeout,Ate,LastBuried,Runs,RandomCount,Lamps:Integer; {Counters}
    BoneColor,BoneInvColor,color1,color2,mcolor,tol,FoodInvColor:Integer; {Colors}
    TakeBones,TakeBonesY,AttackIt,AttackIt2,TalkW,TalkY,iLamp:integer; {Bitmaps}
    RWX,RWY,CriticalHP:integer; //Misc
    BoneCollecting,Att,Run,CHP,EatFood,Attacking:boolean;
    STT,LastFight,LFTimeout,TT:LongInt;
    username,password,RunWhere:string;
    {.include OSi.txt}
    {.include BoxBreaker.txt}

    Procedure Setup;
    begin
    //+++++++++++++++Setup+++++++++++++++
    Username:=''; //Set Username
    Password:=''; //Set Password
    color1:=9275528; //Monster Color 1
    color2:=8550520; //Monster Color 2
    tol:=0; //Tolerance to find the monster color. 0 is default
    FightMode:=4; //Set fight mode 1-4 top to bottom
    EatFood:=true; //True to eat food, false to not
    FoodInvColor:=1932007; //Set the color of the food in your invin
    CriticalHP:=65; //Percent of HP left when you should run
    RunWhere:='S'; //Set Which way to run if fight random occurs
    Timeout:=30; //The maximum time (in seconds) a fight should last (will run if lasts longer)
    LFTimeout:=8; //The maximum time (in min) between fights
    BoneCollecting:=false; //Set True to collect bones, Fasle to not
    BoneColor:=13487571; //Set BoneColor on Screen
    Report:=10; //Set how often to print progress report (in minutes)

    end; //End of Setup

    //+++++++++++++++Anti-Randoms+++++++++++++++
    procedure LoginIfNeeded;//A stupid3ooo procedure based of many others
    var counter:integer;
    begin
    if(length(username) > 0)and(length(password) > 0)then
    begin
    if(IsTextAt2(293,251,'Username',0))and(NotLogedIn)then
      Mouse(460,322,10,2,true);
    if(IsTextAt2(309,241,'Welcome to RuneScape',0))and(NotLogedIn)then
     begin
      Mouse(400,280,125,20,true);
      if(IsTextAt2(271,214,'Enter your username',50))then
       begin
        Mouse(400,256,20,5,true);
        SendKeysSilentsmooth(username,50);
        Mouse(400,270,20,5,true);
        SendKeysSilentsmooth(password,50);
        Mouse(300,322,20,5,true);
        repeat
         counter:=counter+1;
         wait(100);
        until(FindColor(x,y,8421504,0,0,515,338))or(counter=60)
       end;
     end;
    if(FindColor(x,y,8421504,400,0,515,338))then
     begin
      Mouse(x+5,y+1,15,5,true);
      sendarrowsilentwait(0,900+random(200))
      wait(200+random(100));
      SetFightMode(FightMode);
     end;
    end;
    end;

    Procedure Eat;
    var c:integer;
    begin
    Writeln('You have low hp, now running...')
    SetRun(true);
    Mouse(648+RWX,83+RWY,2,2,true);
    wait(2000);
    MapFlag;
    wait(1000+random(500));
    OpenBag;
    if(EatFood)and(FindColorSpiral(x,y,FoodInvColor,560,210,730,460))then
    repeat
    OpenBag;
    if(FindColorSpiral(x,y,FoodInvColor,560,210,730,460))then
    begin
     Mouse(x,y,3,3,true);
     wait(3000+random(500));
     Ate:=Ate+1;
    end;
    c:=c+1;
    until(GetHp>80)or(c>5)
    OpenBag;
    if(not(FindColorSpiral(x,y,FoodInvColor,560,210,730,460)))and(GetHp<80)then
     LogOut('Low HP and unable to eat');
    Status('Walking back to NPCs');
    Mouse(648-RWX,83-RWY,2,2,true);
    wait(2000);
    MapFlag;
    CHP:=false;
    end;

    Procedure RunAway;
    begin
    Status('Running Away...')
    runs:=runs+1;
    GetScreenshot('Ran',runs);
    SetRun(true);
    Mouse(648+RWX,83+RWY,2,2,true);
    wait(2000);
    MapFlag;
    wait(10000+random(3000));
    Status('Running Back...')
    Mouse(648-RWX,83-RWY,2,2,true);
    wait(2000);
    MapFlag;
    Run:=false;
    end;

    procedure FindText;
    var counter,c:integer; Talked2Rand:boolean;
    begin
    if(FindColor(x,y,65535,5,5,514,337))then wait(200)
    if(FindColor(x,y,65535,5,5,514,337))and(LogedIn)then
     begin
      RandomCount:=RandomCount+1;
      GetScreenShot('YellowtextFound',RandomCount);
      repeat
       counter:=counter+2+random(1);
       if((x+counter) < 515)and((y+18) < 338)then
        MoveMouseSmoothEx(x+counter,y+15+random(3),1,6,15,20,20);
       wait(5);
       if(IsTextAt2(9,9,'Ta',100))then
        begin
         GetMousePos(x,y);
         Mouse(x,y,0,0,false);
         Wait(200+random(100));
         if(FindBitmap(TalkW,x,y))or(FindBitmap(TalkY,x,y))then
          begin
           Mouse(x,y,40,5,true);
           MapFlag;
           wait(1000+random(1000));
           while((FindColor(x,y,16711680,5,345,510,465))or //Replaces TalkToRand
                (FindColor(x,y,16777215,5,345,510,465)))and
                (not(GetColor(20,434)=0))and(c<=10)do
            begin
             GetScreenShot('Talked',RandomCount);
             Mouse(x,y,50,2,true);
             wait(2000+random(1000));
             c:=c+1;
            end;
           Talked2Rand:=true;
          end;
        end;
      until(counter>=250)or(Talked2Rand);
     end;
    end;

    Procedure FindLamp;
    begin
    while(FindBitmapSpiralTolerance(iLamp,x,y,550,200,745,470,100)) do
     begin
      Lamps:=Lamps+1;
      GetScreenshot('Lamp',Lamps);
      Mouse(x,y,10,10,true);
      wait(3000+random(1000));
      Mouse(157,220,12,12,true)
      wait(3000+random(1000));
      Mouse(248,255,10,2,true);
      wait(3000+random(1000));
      Mouse(226,442,10,3,true);
      wait(3000+random(1000));
      end;
    end;

    procedure FindMiscRandoms;
    var ax,ay:integer;
    begin
     if(FindColor(ax,ay,786423,10,350,150,433))then
      begin
       GetScreenshot('Mod',1);
       LogOut('UHOH, A MOD!!!');
      end;
     if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
      begin
       GetScreenshot('Dead',1);
       LogOut('You are dead!');
      end;
     if(FindColor(ax,ay,11503238,10,350,479,433))then
      begin
       GetScreenshot('Mime',1);
       LogOut('Mime Found');
      end;
    end;

    Procedure FindRandoms;
    begin
    LoginIfNeeded;
    FindText;
    FindBox;
    FindMiscRandoms;
    end;

    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('Fought '+inttostr(Killed)+' time[s]');
      if(EatFood)then
      writeln('Ate '+inttostr(ate)+' pieces of food')
      if(bonecollecting)then
      writeln('Collected '+inttostr(BonesCollected)+', and buried '+inttostr(BonesBuried)+' bones');
      writeln('Handled: '+inttostr(RandomCount)+' Randoms, and ran from '+inttostr(runs)+' random events');
      writeln('<================================================>');
      Report2:=GetSystemTime;
      end;
    end;
    end;

    Procedure GetBoneInvColor;
    begin
       Status('Getting boneinvcolor...');
       OpenBag;
       MMouse(620,220,10,10);
       Wait(500+random(200));
       If(IsTextAt2(9,9,'Bury',100))then
        begin
          BoneInvColor := GetColor(625,230);
          Status('BoneInvinColor is '+inttostr(BoneInvColor));
        end else
       begin
          BoneCollecting := false;
          Writeln('');
          Writeln('No bone in second inv slot!');
          Writeln('');
       end;
    end;

    Procedure BoneBurier;
    begin
    OpenBag;
    Wait(200+random(100));
    Status('Burying bones...');
       If(FindColorSpiral(x,y,(BoneInvColor),555,216,740,465))then
       repeat
        LastBuried:=0;
        Mouse(x,y,10,10,true);
        Wait(1500+random(300));
        BonesBuried:=BonesBuried+1;
       until(not(FindColorSpiral(x,y,(BoneInvColor),555,216,740,465)));
    end;

    Procedure BoneCollector;
    begin
       Wait(200+random(100));
       Status('Collecting bones...');
       x:=262;
       y:=174;
       If(FindColorSpiral(x,y,(BoneColor),5,5,515,337))then
       begin
          Mouse(x,y,5,5,false);
          wait(50+random(25));
          If(FindBitmapIn(TakeBones,x,y,5,5,515,337))then
          begin
             Mouse(x,y,0,0,true);
             Wait(15+random(5));
             BonesCollected:=BonesCollected+1;
             LastBuried:=LastBuried+1;
             MapFlag;
             wait(500+random(100));
          end;
          If(FindBitmapIn(TakeBonesY,x,y,5,5,515,337))then
          begin
             Mouse(x,y,0,0,true);
             Wait(15+random(5));
             BonesCollected:=BonesCollected+1;
             LastBuried:=LastBuried+1;
             MapFlag;
             wait(500+random(100));
          end;
       end;
    end;

    Procedure Attack;
    var c:integer;
    begin
    mcolor:=random(2);
    case mcolor of
     0:mcolor:=color1;
     1:mcolor:=color2;
    end;
    x:=25+random(200);
    y:=25+random(200);
    if(FindColorSpiralTolerance(x,y,mcolor,5,5,514,337,tol))then
    begin
    status('Attacking...');
     MoveMouseSmooth(x,y);
     GetMousePos(ax,ay);
     if(not FindColor(ax,ay,65280,ax-15,ay-30,ax+10,ay+15))and
       (not(FindColor(ax,ay,65280,240,125,270,180)))then
     begin
      Mouse(ax,ay,1,1,false);
      wait(150+random(50));
      if(FindBitmapIn(AttackIt,x,y,10,12,516,342))or
        (FindBitmapIn(AttackIt2,x,y,10,12,516,342))then
      begin
        Attacking:=true;
        wait(50+random(25));
        Mouse(x,y,5,3,true);
        for c:=0 to 3 do
        if(not (FindColorSpiral(ax,ay,65280,240,125,270,180)))then
        begin
         MapFlag;
         wait(300+random(100));
         FindRandoms;
        end;
      end else
       MMouse(5,5,60,60);
     end;
    end;
    end;

    Procedure WaitWhileAttacking;
    var c:integer;
    begin
    if(FindColorSpiral(ax,ay,65280,240,125,270,180))then
    begin
     if(Attacking)then
     begin
      Killed:=Killed+1;
      Attacking:=false;
     end;
     STT:=GetSystemTime;
     repeat
      TT:=(GetSystemTime-STT)/1000;
      status('Fighting monster for '+inttostr(TT)+' second(s)')
      wait(300);
      if(TT>Timeout)then
       Run:=true;
      if(c>3)then
      begin
       FindRandoms;
       if(GetHp<CriticalHP)then
        CHP:=true;
       c:=0;
      end;
      c:=c+1;
     until(not (FindColorSpiral(ax,ay,65280,240,125,270,180)))or(Run)or(CHP)
     if(Run)then
     begin
      Status('Fight lasted too long')
      RunAway;
     end;
     if(CHP)then
      Eat;
     LastFight:=GetSystemTime;
     If(BoneCollecting)then
      BoneCollector;
    end;
    end;

    Procedure LoadBmps;
    begin
    TakeBones := BitmapFromString(70, 1,
           'FFFFFFFFFFFF0000005D54475D54475D5447FFFFFFFFFFFFFFFFFF' +
           'FFFFFF5D54475D54475D5447FFFFFFFFFFFF000000FFFFFFFFFFFF' +
           '5D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF5D54475D5447' +
           '5D54475D54475D54475D54475D5447FF9040FF9040FF9040FF9040' +
           'FF90400000000000005D54475D5447FF9040FF9040FF9040FF9040' +
           '5D54475D54475D5447FF9040FF9040FF9040FF9040FF90405D5447' +
           '5D54475D54475D5447FF9040FF9040FF9040FF90405D54475D5447' +
           '5D54475D5447FF9040FF9040FF9040FF9040FF9040');
    TakeBonesY := BitmapFromString(70, 1,
           'FFFF00FFFF000000005D54475D54475D5447FFFF00FFFF00FFFF00' +
           'FFFF005D54475D54475D5447FFFF00FFFF00000000FFFF00FFFF00' +
           '5D54475D54475D5447FFFF00FFFF00FFFF00FFFF005D54475D5447' +
           '5D54475D54475D54475D54475D5447FF9040FF9040FF9040FF9040' +
           'FF90400000000000005D54475D5447FF9040FF9040FF9040FF9040' +
           '5D54475D54475D5447FF9040FF9040FF9040FF9040FF90405D5447' +
           '5D54475D54475D5447FF9040FF9040FF9040FF90405D54475D5447' +
           '5D54475D5447FF9040FF9040FF9040FF9040FF9040');
    AttackIt := BitmapFromString(10, 6,
          'FFFFFF5D54475D54475D5447FFFFFFFFFFFF5D54475D54475D5447' +
          '5D5447FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF0000005D5447' +
          '5D54475D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF000000' +
          '5D54475D54475D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF' +
          'FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
          'FFFFFF0000000000000000005D5447FFFFFFFFFFFF0000005D5447' +
          'FFFFFFFFFFFF0000005D54475D54475D5447');
    AttackIt2 := BitmapFromString(21, 7,
          '5D5447FFFF00FFFF000000005D54475D54475D54475D54475D5447' +
          '5D54475D54475D54475D54475D54475D54475D54475D54475D5447' +
          '5D54475D54475D54475D5447FFFF00FFFF00FFFF00FFFF005D5447' +
          '5D54475D5447FFFF00FFFF00FFFF00FFFF005D54475D54475D5447' +
          '5D5447FFFF00FFFF00FFFF00FFFF005D54475D5447FFFF00FFFF00' +
          '0000000000000000005D5447FFFF00FFFF00000000000000FFFF00' +
          'FFFF005D54475D5447FFFF00FFFF00000000000000000000000000' +
          '5D5447FFFF00FFFF000000005D54475D54475D54475D5447FFFF00' +
          'FFFF00FFFF00FFFF00FFFF000000005D5447FFFF00FFFF00000000' +
          '5D54475D54475D54475D5447FFFF00FFFF000000005D54475D5447' +
          '5D5447FFFF00FFFF00000000000000FFFF00FFFF000000005D5447' +
          'FFFF00FFFF000000005D54475D54475D54475D5447FFFF00FFFF00' +
          '0000005D54475D54475D5447FFFF00FFFF000000005D5447FFFF00' +
          'FFFF000000005D5447FFFF00FFFF000000005D54475D54475D5447' +
          '5D54475D5447FFFF00FFFF00FFFF005D54475D54475D5447FFFF00' +
          'FFFF00FFFF00FFFF00FFFF000000005D54475D5447FFFF00FFFF00' +
          'FFFF00FFFF005D5447');
    TalkW := BitmapFromString(17, 10,
            'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000' +
            '000000000000000000000000000000000000FFFFFFFFFFFF000000' +
            '000000FFFFFFFFFFFF000000000000000000000000000000000000' +
            '000000000000000000000000000000FFFFFFFFFFFF000000000000' +
            'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
            '000000000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
            'FFFFFF000000000000000000000000000000000000000000000000' +
            '000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
            '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
            '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
            '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
            '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
            '000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFF000000000000000000FFFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
            '000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
            'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF');
    TalkY := BitmapFromString(17, 10,
            'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00000000000000000000' +
            '000000000000000000000000000000000000FFFF00FFFF00000000' +
            '000000FFFF00FFFF00000000000000000000000000000000000000' +
            '000000000000000000000000000000FFFF00FFFF00000000000000' +
            'FFFF00FFFF00000000000000000000000000000000000000000000' +
            '000000000000000000000000FFFF00FFFF00000000000000FFFF00' +
            'FFFF00000000000000000000000000000000000000000000000000' +
            '000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
            '000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
            '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
            '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
            '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
            '000000000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
            'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
            'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
            'FFFF00000000000000FFFF00FFFF00000000000000000000FFFF00' +
            'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
            '000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
            'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00');
    //Lamp pic by Chriz
    iLamp := BitmapFromString(17, 6,
           '000001000001000001000001BAB815B2B015AEAD15ABAA159C9A12' +
           '9291128C8A1275740E000001000001000001000001000001D0CE18' +
           'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A3A112' +
           '99971292911284820E79780E6968095C5A09A6A415CECC18C5C418' +
           'C2C118C0BE18BDBB18BAB815B8B615B5B315B2B015A8A715A3A112' +
           '9C9A129594128E8D1281800E999712AEAD15CECC18CBC918C0BE18' +
           'BDBB18BAB815B5B315B2B015AEAD15A8A715A3A1129F9E12999712' +
           '88860E84820E8C8A129291129C9A12000001CBC918CBC918BAB815' +
           'B8B615B5B315B2B015AEAD15A8A715A3A1129C9A1295941281800E' +
           '79780E84820E000001000001000001CBC918CBC918C0BE18B8B615' +
           'B2B015AEAD15ABAA15A6A4159F9E129997128C8A1279780E75740E' +
           '000001000001C2C118');
    end;

    begin
    clearreport;
    Setup;
    SetupOSi;
    Report2:=ST;
    LoadBmps;
    LoginIfNeeded;
    SetFightMode(FightMode);
    OpenBag;
    ChatFixer;
    if(BoneCollecting)then
     GetBoneInvColor;
    LFTimeout:=LFTimeout*60000;
    LastFight:=GetSystemTime;
    case RunWhere of
     'N':begin RWX:=-1; RWY:=-48; end;
     'S':begin RWX:=1; RWY:=48; end;
     'E':begin RWX:=-58; RWY:=-1; end;
     'W':begin RWX:=58; RWY:=1; end;
    end;
    repeat
     FindRandoms;
     wait(300+random(150));
     Att:=False;
     Attack;
     WaitWhileAttacking;
     If(BoneCollecting)and(LastBuried>4)then
      BoneBurier;
     ProgressReport;
    until(GetSystemTime-LastFight>LFTimeout);
    LogOut('Loop Ended');
    end.


    SCAR Code:
    {=========================================================================]
    [                    Stupid3ooo's StupidChopperBanker                     ]
    [                             version: 1.01                               ]
    [=========================================================================]
    | Description:                                                            |
    |  A macro that starts in the Draynor or Edgeville bank and walks to the  |
    |  trees, either Yew or Willow, south of the bank. It chops a full load of|
    |  logs from the Yew or Willow trees then returns to the bank and repeats |
    |  the process.                                                           |
    | Instructions:                                                           |
    |   1.Set the Runescape brightness to V-bright, and your computer's       |
    |     resolution to 32bit resolution.                                     |
    |   2.Need SCAR version 2.0.3.                                            |
    |   3.Start the script in the Draynor or Edgeville bank so that the trees |
    |     are visible in the minimap.                                         |
    |   4.Click and drag the cross heir onto the Runescape client and press   |
    |     the green arrow at the top to run the script.                       |
    |   5.You may set your own colors lines 37-39 (optional).                 |
    [=========================================================================]
    [ *Be sure to open SSI2.txt for more options.                             ]
    [ *For general SCAR help go to:                                           ]
    |     [url]http://www.kaitnieks.com/files/SCARGUIDE/SCARGUIDE.htm[/url]              ]
    [ Thanks to, RS Cheating community                                        ]
    [ *PLEASE POST ANY BUGS/HELP IN THE FORUMS OR E-MAIL                      ]
    [   [email]RSTradeMonkey@hotmail.com[/email], or [email]Stupid3ooo@gmail.com[/email]                    ]
    [ If you like pwease donate to me :) at:                                  ]
    [   [url]http://www.stupidscripts.com[/url]                                          ]
    [=========================================================================}


    program StupidChopperBanker;

    {.include SSI2.txt}
    {.include BoxBreaker.txt}

    const
    //=//===============Colors(Leave as 0 to let script find)==============\=\\
    MMBankColor= 3460064;//Color of the trees in the minimap.(SS:3060683)
    MMTreeColor= 96769;//Color of the trees in the minimap.(SS:15891)
    MSTreeColor= 606264;//Color of the trees in the mainscreen. (SS:1849400)
    //=\\=================================================================//=\\
    //=\\ Under the varibles you may disable the forms and setup options. //=\\
    //=\\=================================================================//=\\

    var
      TreeMapColor,TreeColor,Report,Report2,Banks,MaxWait,TinderBox,LogBmp,
      BankColor,Location,Mark:integer;
      UseForm,NoAxe,EquipAxe,StartScript:boolean;
      frmDesign,frmMore:TForm;
      labPassword,labUsername,labMaxWait,labMaxWait2,labLocation:TLabel;
      edtUsername,edtPassword,edtMaxWait:TEdit;
      bMoreOptions,bStart,bSave,bDonate:TButton;
      cbLogsOut,cbChats,cbEquipAxe,cbRotates,cbScarScape:TCheckBox;
      cboxLocation:TComboBox;

    procedure Setup;
    begin
    //=\\============================Setup================================//=\\
    UseForm:= true;//If you wish to use the form.
    Username:= Username;//Username.
    Password:= Password;//Password.
    ScarScape:= false;//Set to true if you are using ScarScape.
    LogsOut:= true;//If you want to log out every so often for antiban.
    Chats:= true;//If you want to randomly chat for anti-ban.
    Rotates:= true;//If you want to randomly rotate the screen for anti-ban.
    MaxWait:= 300;//Maximum time in seconds to wait while chopping a tree.
    Location:= 1;//1= Draynor(Willow), 2= Edgeville(Yew)
    EquipAxe:= false;//If you can/want to equip your axe.
    //=\\=================================================================//=\\
    end;

    //DO NO TOUCH BELOW

    //==============================Misc Procedures===============================\\

    procedure ProgressReport;
    var
      RHours,Minutes,Seconds,RMinutes,RSeconds,avtime: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(banks>0)then
        avtime:=Seconds/banks;
      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('Banked '+IntToStr(banks)+' loads[s].');
      WriteLn('Banked '+IntToStr(banks*27)+' logs[s].');
      if(Location=1)then
        WriteLn('Gained '+floattostr(30*(banks*27))+'xp.');
      if(Location=2)then
        WriteLn('Gained '+floattostr(60*(banks*27))+'xp.');
      if(Location=1)then
        WriteLn('Currently Averaging about '+IntToStr(3600/avtime*27)+
        ' logs and '+floattostr(3600/avtime*30*27)+' xp an hour.');
      if(Location=2)then
        WriteLn('Currently Averaging about '+IntToStr(3600/avtime*27)+
        ' logs and '+floattostr(3600/avtime*60*27)+' xp an hour.');
      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].');
      if(foresters>0)then WriteLn('  Solved '+IntToStr(foresters)+' forester[s].');
      if(frogs>0)then  WriteLn('  Solved '+IntToStr(foresters)+' frog[s].');
      if(doctors>0)then  WriteLn('  Solved '+IntToStr(doctors)+' doctor[s].');
      if(certers>0)then  Writeln('  Solved '+IntToStr(certers)+' certer[s].');
      writeln('<================================================>');
      Report2:=GetSystemTime;
      end;
    end;
    end;

    procedure FindRandoms;
    begin
      FindBox;
      FindNormalRandoms;
      AntiBan;
      FindDoctor;
      if(not(FindAxe))then
        NoAxe:=true;
      if(FindFight)then
      begin
        if(Location=1)then
          RunAwayDirection('S');
        if(Location=2)then
          RunAwayDirection('N');
        Wait(5000+random(1000));
        RunBack;
      end;
    end;

    procedure SetColors;
    begin
      TreeMapColor:=MMTreeColor;
      TreeColor:=MSTreeColor;
      BankColor:=MMBankColor;
    end;

    //=========================Color Finding Procedures===========================\\

    procedure FindTreeColor;
    var
      c:integer;
    begin
      repeat
      c:=c+1;
      if(FindObj('Chop',1849400,10))then
      begin
        if(FindColorTolerance(x,y,1849400,x-30,y-30,x+30,y+30,10))then
        begin
          TreeColor:=GetColor(x,y);
          break;
        end;
      end;
      until(c>10)or(TreeColor>0)
      if(TreeColor>0)then
      begin
        writeln('TreeColor: '+inttostr(TreeColor));
      end else
      begin
        WriteLn('Could not find tree color, please stand next to a tree and '+
        'make sure the tree spot symbol is visible in the minimap, then'+
        ' run the script again');
        TerminateScript;
      end;
    end;

    procedure FindMapTreeColor;
    var
      MMTreeBmp,c:integer;
      acc,angle:Extended;
    begin
      if(Location=1)then
      begin
        MMTreeBmp := BitmapFromString(8, 8, 'z78DAA5CF310AC0300C43D12BC591B1' +
           'BD266DEE7FA586AA83C150285DDEA2BF28D41D2D92DD0CB2AA310' +
           '3E86C64E99441B922ECE8C8B2CF25AD65F67FAF4D4D90AD7DB88F' +
           'FDE516032A4EF7BB8593D6F2BD7FFCD85F763D5379');
        FindDeformedBitmapToleranceRotationIn(MMTreeBmp,x,y,582,37,700,117,70,0,acc,PI/10,0,2*PI,angle);
        repeat
        c:=c+5;
        if(FindColorTolerance(x,y,2321464,x-10,y-10,x+10,y+10,c))then
          TreeMapColor:=GetColor(x,y);
        until(TreeMapColor>0)or(c>70);
      end;
      if(Location=2)then
        FindSymbolColorIfNeeded('rare trees',true,TreeMapColor);
      if(TreeMapColor>0)then
      begin
        WriteLn('TreeMapColor: '+inttostr(TreeMapColor));
      end else
      begin
        WriteLn('Could not find tree color, please stand next to a tree and '+
        'make sure the tree spot symbol is visible in the minimap, then'+
        ' run the script again');
        TerminateScript;
      end;
    end;

    //========================Map Walking procedures==============================\\

    procedure ToTrees;
    begin
      RoadWalk(TreeMapColor,'S');
      FlagAtColor(TreeMapColor);
    end;

    procedure ToBank;
    begin
      if(not(FindMMColor(BankColor)))then
      begin
        RoadWalk(TreeMapColor,'N');
        Flag;
      end;
      if(Location=1)then
        ToBankers(BankColor,5,0);
      if(Location=2)then
        ToBankers(BankColor,-5,0);
      FlagAtColor(BankColor);
    end;

    //========================Main Screen Procedures==============================\\

    procedure Bank;
    begin
      if(FindColor(x,y,BankColor,608,43,688,123))then
      begin
        FindBox;
        if(NoAxe=true)and(EquipAxe=true)then
        begin
          GameTab(5);
          Mouse(593,303,r,r,true);
          Wait(1000+random(100));
          GameTab(4);
        end;
        OpenBank;
        if(BankScreen)then
        begin
          if(NoAxe=true)then
          begin
            ClickAllItemsColorWait('All',65536,1000+Random(100));
            Withdraw(1,1,1);
          end else
          begin
            if(EquipAxe=false)then
              Deposit(2,28,2);
            if(EquipAxe=true)then
              ClickAllItemsColorWait('All',65536,1000+Random(100));
          end;
          if(NoAxe=true)and(EquipAxe=true)then
          begin
           FindAxeHeadColor;
            ClickItemColor(AxeHeadColor,true);
          end;
          Banks:=Banks+1;
          NoAxe:=false;
          ProgressReport;
        end;
        CloseWindow;
      end;
    end;

    procedure ChopTree;
    var SysTime:integer;
    begin
      if(FindObj('Chop',TreeColor,0))then
      begin
        Mouse(x,y,r,r,false);
        if(not(FindColor(x,y,65535,x,y,x+100,y+50)))then
        begin
          ChooseOption('Chop');
          Flag;
          Wait(1000+random(100));
          MarkTime(SysTime);
          FindEnt(TreeColor);
          repeat
          FindRandoms;
          if(not(Option('Chop')))then
            Break;
          FindEnt(TreeColor);
          Wait(1000+random(100));
          until(TimeFromMark(SysTime)>MaxWait*1000)or(InventoryFull)
        end else
        begin
          ChooseOption('Cancel');
          FindEnt(TreeColor);
        end;
      end;
    end;

    procedure LoadBmps;
    begin
      TinderBox := BitmapFromString(30, 8, 'z78DABD946B8E83300C84' +
           'AF94871D7B7E1A02F73FD2BA71B44AB5546DD5DD65A41102E47C3' +
           '8E33091D58DC31B752AE976659C20D770CB6868775E21900B6700' +
           '3ABD6183CDFBF1B615AA09AF3858CDD595B46A93DDD58584828D1' +
           '7E67872B1EEEA8A8E7D3A70A03FF1F1E51BB4A2BB6E7A2ABB540E' +
           'E99A455DD2CE764CE6A5B77395CD12CEE9BB65D707FE06ADEAA11' +
           'DF906E8D445F3ECF026554A4B6C6CC119BE2523A3BFF0D7930043' +
           'D21345E11ACC9187C67C70F79BEADF2ECCFFD3C987B43BB22B321' +
           'CA98026392315DC595882B3A6922214DFA978E09F503DA1ED28AE' +
           '48457438E6AE8A89458757DA704F33559DE43159317DE37C98356' +
           '3D746E55FA38D9A713AADCC63EEDADEA8D14FDA98BEBB193CACB8' +
           '62DF97A9BFF88BD8CD37FF62A59DD5A2CE382BE6F48D545CD02EE' +
           '7DB171D6738D8');
      LogBmp := BitmapFromString(23, 6, 'z78DA9D914B0EC3200C44AFE43F781' +
           '928B9FF918A7017AE12AAA82C6681C6330F03300F1A89A1DB9081' +
           'BD9022F6AA56785432E15E4E236EA51B4CADFA622FAA8DCB97C67' +
           'D78B2E6D99460A71A8B142624580CA1D6A4616FECA27A9C0E4A37' +
           '24579E6B7B762EBD4958E44162AEC8904982A1A1A3F217C96E339' +
           '7DEF06C35E7C4ECE289760602821DC974329EB59A0BE49C6DCB13' +
           '5D6941123BF993E467FE739EFC47F95F76241F1ED732790EEB829' +
           'FC6ACCFB7914962272A83061B19F87C74477B03BE82B29E');
    end;

    //===========================================Form=============================\\

    procedure ShowFormModal;
    begin
      frmDesign.ShowModal;
    end;

    procedure ShowMoreModal;
    begin
      frmMore.ShowModal;
    end;

    procedure SafeShowForm;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('InitForm', v);
      setarraylength(V, 0);
      ThreadSafeCall('ShowFormModal', v);
    end;

    procedure SafeMore;
    var
      v: TVariantArray;
    begin
      setarraylength(V, 0);
      ThreadSafeCall('InitMore', v);
    end;

    procedure Start(sender: TObject);
    begin
    frmDesign.Caption:= frmDesign.Caption + '.';
    frmDesign.ModalResult:= mrOk;
    StartScript:=true;
    end;

    procedure More(sender: TObject);
    var
      v: TVariantArray;
    begin
    SafeMore;
    setarraylength(V, 0);
    ThreadSafeCall('ShowMoreModal', v);
    end;

    procedure SaveOptions;
    begin
      LogsOut:=cbLogsOut.State;
      Chats:=cbChats.State;
      ScarScape:=cbScarScape.State;
      Username:= edtUsername.Text;
      Password:= edtPassword.Text;
      if(Username='')or(Password='')then
      begin
        Username:='No Username';
        Password:='No Password';
      end;
      case cboxLocation.Text of
        'Draynor (Willow)': Location:=1;
        'Edgeville (Yew)': Location:=2;
      end;
    end;

    procedure Save(sender: TObject);
    begin
      frmMore.Caption:= frmMore.Caption + '.';
      frmMore.ModalResult:= mrOk;
      SaveOptions;
    end;


    procedure Donate(sender: TObject);
    begin
    OpenWebPage('http://www.stupidscripts.com');
    end;

    procedure InitForm;
    begin
      frmDesign := CreateForm;
      frmDesign.Left := 359;
      frmDesign.Top := 225;
      frmDesign.Width := 258;
      frmDesign.Height := 204;
      frmDesign.Caption := 'StupidChopperBanker';
      frmDesign.Color := clWhite;
      frmDesign.Font.Color := clWindowText;
      frmDesign.Font.Height := -11;
      frmDesign.Font.Name := 'MS Sans Serif';
      frmDesign.Font.Style := [];
      frmDesign.Visible := False;
      frmDesign.PixelsPerInch := 96;
      labPassword := TLabel.Create(frmDesign);
      labPassword.Parent := frmDesign;
      labPassword.Left := 96;
      labPassword.Top := 44;
      labPassword.Width := 46;
      labPassword.Height := 13;
      labPassword.Caption := 'Password';
      labUsername := TLabel.Create(frmDesign);
      labUsername.Parent := frmDesign;
      labUsername.Left := 96;
      labUsername.Top := 6;
      labUsername.Width := 48;
      labUsername.Height := 13;
      labUsername.Caption := 'Username';
      labLocation := TLabel.Create(frmDesign);
      labLocation.Parent := frmDesign;
      labLocation.Left := 96;
      labLocation.Top := 80;
      labLocation.Width := 44;
      labLocation.Height := 13;
      labLocation.Caption := 'Location';
      cbScarScape := TCheckBox.Create(frmMore);
      cbScarScape.Parent := frmDesign;
      cbScarScape.Left := 88;
      cbScarScape.Top := 151;
      cbScarScape.Width := 80;
      cbScarScape.Height := 17;
      cbScarScape.Hint :=
      'Check if you are using ScarScape.';
      cbScarScape.ShowHint := True;
      cbScarScape.Caption := 'ScarScape?';
      if(ScarScape)then
      begin
        cbScarScape.Checked := True;
        cbScarScape.State := cbChecked;
      end;
      edtUsername := TEdit.Create(frmDesign);
      edtUsername.Parent := frmDesign;
      edtUsername.Left := 64;
      edtUsername.Top := 20;
      edtUsername.Width := 121;
      edtUsername.Height := 21;
      edtUsername.TabOrder := 1;
      edtUsername.Text := Username;
      edtPassword := TEdit.Create(frmDesign);
      edtPassword.Parent := frmDesign;
      edtPassword.Left := 64;
      edtPassword.Top := 58;
      edtPassword.Width := 121;
      edtPassword.Height := 21;
      edtPassword.PasswordChar := '*';
      edtPassword.Text := Password;
      bMoreOptions := TButton.Create(frmDesign);
      bMoreOptions.Parent := frmDesign;
      bMoreOptions.Left := 178;
      bMoreOptions.Top := 151;
      bMoreOptions.Width := 70;
      bMoreOptions.Height := 17;
      bMoreOptions.Caption := 'More Options';
      bMoreOptions.OnClick:= @More;
      cboxLocation := TComboBox.Create(frmDesign);
      cboxLocation.Parent := frmDesign;
      cboxLocation.Left := 64;
      cboxLocation.Top := 94;
      cboxLocation.Width := 121;
      cboxLocation.Height := 21;
      cboxLocation.ItemHeight := 13;
      cboxLocation.Text := 'Draynor (Willow)';
      cboxLocation.Items.Add('Draynor (Willow)');
      cboxLocation.Items.Add('Edgeville (Yew)');
      bStart := TButton.Create(frmDesign);
      bStart.Parent := frmDesign;
      bStart.Left := 87;
      bStart.Top := 121;
      bStart.Width := 75;
      bStart.Height := 25;
      bStart.Caption := 'Start';
      bStart.TabOrder := 5;
      bStart.OnClick:= @Start;
      bDonate := TButton.Create(frmDesign);
      bDonate.Parent := frmDesign;
      bDonate.Left := 1;
      bDonate.Top := 144;
      bDonate.Width := 75;
      bDonate.Height := 25;
      bDonate.Caption := 'Donate Plz';
      bDonate.TabOrder := 13;
      bDonate.OnClick:= @Donate;
    end;

    procedure InitMore;
    begin
      frmMore := CreateForm;
      frmMore.Left := 288;
      frmMore.Top := 161;
      frmMore.Width := 294;
      frmMore.Height := 108;
      frmMore.Caption := 'More Options';
      frmMore.Color := clWhite;
      frmMore.Font.Color := clWindowText;
      frmMore.Font.Height := -11;
      frmMore.Font.Name := 'MS Sans Serif';
      frmMore.Font.Style := [];
      frmMore.Visible := False;
      frmMore.PixelsPerInch := 96;
      labMaxWait := TLabel.Create(frmMore);
      labMaxWait.Parent := frmMore;
      labMaxWait.Left := 5;
      labMaxWait.Top := 7;
      labMaxWait.Width := 196;
      labMaxWait.Height := 13;
      labMaxWait.Caption := 'Maximum time to wait while cuting a tree:';
      labMaxWait2 := TLabel.Create(frmMore);
      labMaxWait2.Parent := frmMore;
      labMaxWait2.Left := 243;
      labMaxWait2.Top := 10;
      labMaxWait2.Width := 40;
      labMaxWait2.Height := 13;
      labMaxWait2.Caption := 'seconds';
      edtMaxWait := TEdit.Create(frmMore);
      edtMaxWait.Parent := frmMore;
      edtMaxWait.Left := 204;
      edtMaxWait.Top := 5;
      edtMaxWait.Width := 38;
      edtMaxWait.Height := 21;
      edtMaxWait.MaxLength := 3;
      edtMaxWait.TabOrder := 9;
      edtMaxWait.Text := inttostr(MaxWait);
      cbLogsOut := TCheckBox.Create(frmMore);
      cbLogsOut.Parent := frmMore;
      cbLogsOut.Left := 5;
      cbLogsOut.Top := 22;
      cbLogsOut.Width := 66;
      cbLogsOut.Height := 17;
      cbLogsOut.Hint := 'If you want to log out about every 3 hours for anti-ban.';
      cbLogsOut.Caption := 'Logs out?';
      cbLogsOut.ParentShowHint := False;
      cbLogsOut.ShowHint := True;
      cbLogsOut.TabOrder := 10;
      if(LogsOut)then
      begin
        cbLogsOut.Checked := True;
        cbLogsOut.State := cbChecked;
      end;
      cbChats := TCheckBox.Create(frmMore);
      cbChats.Parent := frmMore;
      cbChats.Left := 5;
      cbChats.Top := 38;
      cbChats.Width := 54;
      cbChats.Height := 17;
      cbChats.Hint :=
      'If you want to chat random prashes every so often for anti-ban.';
      cbChats.Caption := 'Chats?';
      cbChats.ParentShowHint := False;
      cbChats.ShowHint := True;
      cbChats.TabOrder := 11;
      if(Chats)then
      begin
        cbChats.Checked := True;
        cbChats.State := cbChecked;
      end;
      cbRotates := TCheckBox.Create(frmMore);
      cbRotates.Parent := frmMore;
      cbRotates.Left := 78;
      cbRotates.Top := 22;
      cbRotates.Width := 97;
      cbRotates.Height := 17;
      cbRotates.Hint :=
      'If you want to randomly rotate the camera every so often for ant' +
      'i-ban.';
      cbRotates.ShowHint := True;
      cbRotates.Caption := 'Rotates?';
      cbRotates.TabOrder := 15;
      if(Rotates)then
      begin
        cbRotates.Checked := True;
        cbRotates.State := cbChecked;
      end;
      cbEquipAxe := TCheckBox.Create(frmMore);
      cbEquipAxe.Parent := frmMore;
      cbEquipAxe.Left := 5;
      cbEquipAxe.Top := 54;
      cbEquipAxe.Width := 97;
      cbEquipAxe.Height := 17;
      cbEquipAxe.Caption := 'Equip axe?';
      cbEquipAxe.Hint :='Check if you are able and want to equip your pick.';
      cbEquipAxe.ShowHint := True;
      cbEquipAxe.TabOrder := 14;
      if(EquipAxe)then
      begin
        cbEquipAxe.Checked := True;
        cbEquipAxe.State := cbChecked;
      end;
      bSave := TButton.Create(frmMore);
      bSave.Parent := frmMore;
      bSave.Left := 227;
      bSave.Top := 57;
      bSave.Width := 57;
      bSave.Height := 15;
      bSave.Caption := 'Save';
      bSave.TabOrder := 12;
      bSave.OnClick:= @Save;
    end;

    procedure StartForm;
    begin
      if(UseForm)then
      begin
        SafeMore;
        SafeShowForm;
        if(StartScript=false)then
          TerminateScript;
        SaveOptions;
        ActivateClient;
        Wait(1000+random(500));
      end;
    end;

    //======================================Main Line=============================\\

    begin
    SetupSSI;
    Setup;
    StartForm;
    SetColors;
    LoadBmps;
    FindSymbolColorIfNeeded('Bank',true,BankColor);
    if(FindAxeHeadColor)then
    begin
      FindMapTreeColor;
      RoadWalk(TreeMapColor,'S');
      FindTreeColor;
      repeat
      SetRun(true);
      MarkTime(Mark);
      repeat
      FindRandoms;
      ChopTree;
      until(InventoryFull)or(NoAxe=true)or(TimeFromMark(Mark)>1800000)
      SetRun(false);
      ToBank;
      Bank;
      ToTrees;
      until(false)
    end;
    end.


    SCAR Code:
    {========================================]
                  Edgeville Cooker
                       v1.11
                    By Odie5533
    [========================================]
     1.Have the fish you want to cook in 1st
       Bank Slot
     2.Start in Bank
     3.Works best on Low Detail
    [========================================]
     Special thanks to Chrilleman, for help
     on the XP Gained in the Report Procedure
    [========================================}


    program EdgevilleCooker;
    {.include OSi.txt}
    {.include BoxBreaker.txt}
    var RawFish,iLamp,TalkW,TalkY:integer; {Bitmaps}
    CookCount,AttackCount,TalkCount,YellowTextCount,LampCount,FR,KillSwitch,xpx:integer; {Counters}
    subx,suby:integer; UnderAttack,FindColors:boolean;
    BankSymbol,PotColor,RangeColor,WaterSymbol:integer; {Colors}
    const

    //=\\========================================//=\\
    Username = '';
    Password = '';
    FishType = 3; //What kind of fish to cook?
    {0 Lobster, 1 Trout, 2 Salmon, 3 Shrimp, 4 Swordfish
     5 Herring, 6 Tuna, 7 Sardine, 8 Pike, 9 Anchovies
     10 Cod, 11 Shark, 12 Mackerel, 13 Bass}

    Procedure Setup; begin
    KillSwitch:=551; //How many fish do you have to cook?
    FindColors:=true; //Automatically get colors?
    BankSymbol := 5099242; //Color of the bank symbol
    WaterSymbol := 13572352;
    PotColor := 3042748; //Color of the Shop Pot (Lightest)
    RangeColor := 1518279; //Debug ONLY
    ////==========================================\\\\
    end;


    Procedure Report(doing:string);
    var times,timem,timeh,StrSecZero,StrMinZero,avtime:string;
        Hours,Minutes,Seconds:LongInt;
    begin
      clearreport;
      Seconds:=(GetSystemTime-ST) div 1000;
      if(CookCount>0)and(Seconds>0)then
       avtime:=inttostr(3600/(Seconds/CookCount));
      Hours:=Seconds div 3600;
      Seconds:=Seconds - (hours*3600);
      Minutes:=Seconds div 60;
      Seconds:=Seconds - (Minutes*60);
      if(minutes<10)then StrMinZero:='0';
      if(seconds<10)then StrSecZero:='0';
      if(hours>0)then timeh:=inttostr(hours)+':';
      if(minutes>0)then timem:=StrMinZero+inttostr(minutes)+':';
      times:=StrSecZero+inttostr(seconds);
    addtoreport('Edge Cooker by Odie5533');
    addtoreport('***********************');
    addtoreport('Currently: '+doing);
    addtoreport('Worked for '+timeh+timem+times);
    addtoreport('Cooked: '+inttostr(CookCount)+' XP Gained: '+inttostr(CookCount*xpx));
    addtoreport('Averaging '+avtime+' fish an hour');
    addtoreport('Attacks: '+inttostr(AttackCount)+'  Talked: '+inttostr(TalkCount));
    end;

    procedure LoginCheck; {Created by Odie5533}
    var counter:integer;
    begin
    if(NotLogedIn)and(length(username)>0)and(length(password)>0)then
    begin
    if(IsTextAt2(293,251,'Username',0))then
      Mouse(460,322,10,2,true);
    if(NotLogedIn)then
    if(IsTextAt2(309,241,'Welcome to RuneScape',0))then
     begin
      Mouse(400,280,125,20,true);
      if(IsTextAt2(271,214,'Enter your username',0))then
       begin
        Mouse(400,256,20,5,true);
        SendKeysSilentsmooth(username,50);
        Mouse(400,270,20,5,true);
        SendKeysSilentsmooth(password,50);
        Mouse(300,322,20,5,true);
        repeat
         counter:=counter+1;
         wait(100);
        until(FindColor(x,y,8421504,0,0,515,338))or(counter=60)
       end;
     end;
    end;
    if(LogedIn)then
    if(FindColor(x,y,65535,235,40,280,100))and(FindColor(x,y,8421504,400,0,515,338))then
     begin
      Mouse(x+5,y+1,15,5,true);
      sendarrowsilentwait(0,900+random(200))
      wait(200+random(100));
     end;
    end;

    procedure TalkCheck;
    var counter,c:integer; Talked2Rand:boolean;
    begin
    if(FindColor(x,y,65535,5,5,514,337))then wait(500);
    if(FindColor(x,y,65535,5,5,514,337))and(LogedIn)then
     begin
      YellowTextCount:=YellowTextCount+1;
      GetScreenShot('YellowText',YellowTextCount);
      Report('Yellow Text');
      repeat
       counter:=counter+2+random(1);
       if((x+counter) < 515)and((y+18) < 338)then
        MoveMouseSmoothEx(x+counter,y+15+random(3),1,6,15,20,20);
       wait(5);
       if(IsTextAt2(9,9,'Talk',100))then
        begin
         GetMousePos(x,y);
         Mouse(x,y,0,0,false);
         Wait(200+random(100));
         if(FindBitmap(TalkW,x,y))or(FindBitmap(TalkY,x,y))then
          begin
           Mouse(x,y,40,5,true);
           MapFlag;
           wait(1000+random(1000));
           while((FindColor(x,y,16711680,5,345,510,465))or
                (FindColor(x,y,16777215,5,345,510,465)))and
                (not(GetColor(20,434)=0))and(c<=10)do
            begin
             TalkCount:=TalkCount+1;
             GetScreenShot('Talk',TalkCount);
             Mouse(x,y,50,2,true);
             wait(2000+random(1000));
             c:=c+1;
            end;
           Talked2Rand:=true;
          end;
        end;
      until(counter>=250)or(Talked2Rand);
     end;
    end;

    Procedure AttackCheck;
    var ax,ay:integer;
    begin
    if(FindColor(ax,ay,65280,240,125,270,180))then
     begin
      AttackCount:=AttackCount+1;
      GetScreenshot('Attack',AttackCount);
      UnderAttack:=true;
     end;
    end;

    Procedure LampCheck;
    var lx,ly:integer;
    begin
    while(FindBitmapSpiralTolerance(iLamp,lx,ly,560,210,735,465,50))do
     begin
      LampCount:=LampCount+1;
      GetScreenshot('Lamp',LampCount);
      Report('Lamp');
      Mouse(x,y,10,10,true);
      wait(3000+random(1000));
      Mouse(157,220,12,12,true)
      wait(3000+random(1000));
      Mouse(248,255,10,2,true);
      wait(3000+random(1000));
      Mouse(226,442,10,3,true);
      wait(3000+random(1000));
      end;
    end;

    Procedure WildyCheck;
    begin
    if(GetColor(466,61)=8421504)or(GetColor(466,61)=16777215)then
      Mouse(435,60,10,3,true);
    end;

    procedure MiscCheck;
    var ax,ay:integer;
    begin
     if(FindColor(ax,ay,786423,10,350,150,433))then
      begin
       GetScreenshot('Mod',1);
       LogOut('UHOH, A MOD!!!');
      end;
     if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
      begin
       GetScreenShot('Dead',1);
       LogOut('You are dead!');
      end;
     if(FindColor(ax,ay,11503238,10,350,479,433))then
      begin
       GetScreenshot('Mime',1);
       LogOut('Mime Found');
      end;
    end;

    Procedure FindRandoms;
    begin
    WildyCheck;
    LoginCheck;
    TalkCheck;
    MiscCheck;
    if(FR>5)then
    begin
     FR:=0;
     LampCheck;
     FindBox;
    end;
    FR:=FR+1;
    end;

    Procedure ToRange;
    begin
    Report('To Range');
    SetRun(true);
    if(not(FindColorTolerance(x,y,WaterSymbol,572,8,722,160,5)))then
     begin
      Mouse(615,40,3,3,true);
      MapFlagWalk;
     end;
    if(FindColorTolerance(x,y,WaterSymbol,572,8,722,160,5))then
     begin
      Mouse(x,y,3,3,true);
      MapFlag;
      if(FindColorTolerance(x,y,PotColor,572,8,752,160,5))then
       begin
        x:=x+20; y:=y-15;
        while(not(SimilarColors(GetColor(x,y),7040372,40)))and(LogedIn)do
         begin x:=x-2;y:=y+1;wait(5);end;
        Mouse(x-5,y+5,2,2,true);
        MapFlag; wait(800+random(200));
        if(FindObjColorTol('Climb',4616328,20))then
         begin
          GetMousePos(x,y);
          ClickMouse(x,y,true);
          wait(5000+random(1000));
          FindRandoms;
          if(FindColorTolerance(x,y,RangeColor,5,5,337,514,10))then
           begin
            Mouse(x,y-35,3,3,true);
            MapFlag; Wait(800+random(200));
           end else
           begin
            Mouse(224,303,20,20,true);
            MapFlag;
           end;
         end;
       end;
     end;
    end;

    Procedure ToBank;
    begin
    Report('To Bank');
    if(FindObjColorTol('Climb',4616328,20))then
     begin
      GetMousePos(x,y);
      ClickMouse(x,y,true);
      while(not(GetColor(319,153)=16777215))and(LogedIn)do wait(1);
      while(GetColor(319,153)=16777215)and(LogedIn)do wait(1);
      wait(100+random(50));
     end;
    if(FindColorTolerance(x,y,WaterSymbol,572,8,722,160,5))then
     MouseFlagWalk(x,y,3,3);
    if(not(FindColor(x,y,BankSymbol,572,8,722,160)))then
     begin
      FindColorTolerance(x,y,WaterSymbol,572,8,722,160,5)
      MouseFlagWalk(x+20,y+30,3,3);
     end;
    if(FindColor(x,y,BankSymbol,572,8,722,160))then
     MouseFlag(x+5,y+10,3,3);
    end;

    Procedure Bank;
    begin
    Report('Banking');
    if(CookCount>KillSwitch)then
     LogOut('Finished Cooking!');
    OpenBank;
    Deposit(0,0,0);
    Withdraw(1,1,0);
    CloseBank;
    end;

    Procedure CookFish;
    var c,rawx,rawy,rangex,rangey:integer;
    begin
    while(FindBitmapToleranceIn(RawFish,rawx,rawy,560,210,730,465,30))and
         (FindColorSpiralTolerance(rangex,rangey,RangeColor,5,5,514,337,20))and
         (not(UnderAttack))do
    begin
     FindRandoms;
     Mouse(rawx-subx,rawy-suby,25,25,true);
     Mouse(rangex,rangey,3,3,true);
     c:=0;
     while((FindBitmapToleranceIn(RawFish,x,y,rawx-15,rawy-15,rawx+15,rawy+15,30))and(c<20))or(c<3)do
      begin
       c:=c+1;
       wait(200+random(100));
       FindRandoms;
      end;
     CookCount:=CookCount+1;
     Report('Cooking');
    end;
    end;

    Procedure LoadBmps;
    begin
    case FishType of
    0:begin RawFish := BitmapFromString(8, 4,
           '000001874D23804921834C21874D238D5123975725000001000001' +
           '874D23804921874D23905325995928A35E2A000001000001874D23' +
           '834C218D5123000001000001000001000000000000000001000001' +
           '000001000000000000000000000000'); subx:=20; suby:=20; end;//Lobster
    1:begin RawFish := BitmapFromString(4, 4,
           '000001B9AEADBFB6B6C6BEBE000001C4BBBACBC4C4D4CECE000001' +
           'CDC6C5D6D0D0DAD4D4000000000001000001000001'); subx:=-2; suby:=20; end;//Trout
    2:begin RawFish := BitmapFromString(4, 4,
           '000001A98B86AE908AB59691000001B2938DBB9A95C1A49E000001' +
           'BC9C97C2A5A1C4A9A5000000000001000001000001'); subx:=-2; suby:=20; end;//Salmon
    3:begin RawFish := BitmapFromString(5, 2,
           '564D42000001CAB7ADA67A5F000001000001DACEC7CFBEB6000001' +
           '302020'); subx:=0; suby:=8; end; //Shrimp
    4:begin RawFish := BitmapFromString(5, 6,
           '000001D3B3D9C395CCAE7BB79C7FA1000001D6C7DACFBDD3C9B4CD' +
           '000001000001CCB7CFC4ACC9000001302020000001C0A6C5BB9FC0' +
           '000001302020000001B495BA000001302020302020000001C9B4CD' +
           '000001302020564D42'); subx:=18; suby:=10; end;//Sowrdfish
    5:begin RawFish := BitmapFromString(4, 5,
           '564D42000001B7ADAC5F5858000001C2BAB9C9C2C1CFC9C9000001' +
           'CDC6C5D8D2D1DBD6D6000001D9D3D3DCD8D8E0DCDC000001FBFAFA' +
           'F5F3F3F0EEEE'); subx:=-4; suby:=15; end; //Herring
    6:begin RawFish := BitmapFromString(6, 6,
           '001C00001C00001C00001C00001C00C2BAB9001C00CDC6C5001C00' +
           '001C00CAC3C2C7C0C0001C00D2CCCC001C00001C00CFC9C9CFC7C7' +
           'D9D3D3D9D3D3D8D2D1D6D1D0D5CFCFD3CDCDDFDADADED9D9DCD8D8' +
           'DBD6D6DED9D9DCD8D8E8E4E4EAE7E7E9E6E6000001000001000001' +
           ''); subx:=5; suby:=17; end; //Tuna
    7:begin RawFish := BitmapFromString(4, 5,
           '0000010000013D6F3F509052345B34478049599E5A5DA55E529253' +
           '62AF6367B7686ABE6C6ABE6C6EC46F71CA737DD37F8AAE8A8AAE8A' +
           '8AAE8A83D484'); subx:=8; suby:=8; end; //Sardine
    8:begin RawFish := BitmapFromString(6, 5,
           '000001617B626782676E8B6E7493750000016079606580666A876B' +
           '718F71769576000001475A474E624E546A545A715A87AB877E9F7E' +
           '506650546A545A715A60796091B79284A785586F585B745D617B62' +
           '9FC09F93BA93000001'); subx:=16; suby:=3; end; //Pike
    9:begin RawFish := BitmapFromString(5, 4,
           '707079797A8483838D78788200000185858F8989951410106C6C75' +
           '00000100000190909C4E4E545B5B6358585F00000187879162626A' +
           '55555B000001'); subx:=20; suby:=7; end; //Anchovies
    10:begin RawFish := BitmapFromString(6, 7,
           '6F6F8C70718E7374927777967A7A9A7F7FA07777967A7A9A7C7C9C' +
           '7F7FA08081A28484A57F7FA08283A48586A88888AC8B8BAF8E8FB3' +
           '8586A87E7E887E7E887E7E887E7E880000018888AC7E7E887E7E88' +
           '7E7E887E7E880000018B8BAF7E7E887E7E887E7E887E7E887E7E88' +
           '0000010000010000010000017E7E887E7E88'); subx:=6; suby:=14; end; //Cod
    11:begin RawFish := BitmapFromString(6, 4,
           '887F7E8379797A71718A81807A71710000018C8282877D7C9B9090' +
           '8C82827C7373000001AA9E9EACA0A09C91918E84847E7575000001' +
           '000001A49897978D8C8A81807C7373000001'); subx:=19; suby:=17; end; //Shark
    12:begin RawFish := BitmapFromString(6, 4,
           '00000184834A89884E8E8D509392539897559291739A9A7AA2A180' +
           'A6A55EABA960B0AE639E9D7DA5A584605959B4B490BBBA96C0BF9D' +
           'A9A987605959BABA94C0BF9DC4C4A5CDCC73'); subx:=-2; suby:=12; end; //Mackerel
    13:begin RawFish := BitmapFromString(5, 5,
           '001D00001D00CB8172C98071C77E70001D00001D00D18576CF8474' +
           'CD8373D48F81D48F81D38C7ED38C7ED38A7BD69689D69689D7978C' +
           'D69689D59387DBA59B000001000001000001000001'); subx:=7; suby:=18; end; //Bass
    end;
    iLamp := BitmapFromString(16, 2,
           '000001000001000001000001000001BAB815B2B015AEAD15ABAA15' +
           '9C9A129291128C8A1275740E000001000001000001C5C418D0CE18' +
           'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A3A112' +
           '99971292911284820E79780E696809');
    TalkW := BitmapFromString(17, 10,
            'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000' +
            '000000000000000000000000000000000000FFFFFFFFFFFF000000' +
            '000000FFFFFFFFFFFF000000000000000000000000000000000000' +
            '000000000000000000000000000000FFFFFFFFFFFF000000000000' +
            'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
            '000000000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
            'FFFFFF000000000000000000000000000000000000000000000000' +
            '000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
            '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
            '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
            '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
            '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
            '000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFF000000000000000000FFFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
            '000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
            'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF');
    TalkY := BitmapFromString(17, 10,
            'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00000000000000000000' +
            '000000000000000000000000000000000000FFFF00FFFF00000000' +
            '000000FFFF00FFFF00000000000000000000000000000000000000' +
            '000000000000000000000000000000FFFF00FFFF00000000000000' +
            'FFFF00FFFF00000000000000000000000000000000000000000000' +
            '000000000000000000000000FFFF00FFFF00000000000000FFFF00' +
            'FFFF00000000000000000000000000000000000000000000000000' +
            '000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
            '000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
            '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
            '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
            '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
            '000000000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
            'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
            'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
            'FFFF00000000000000FFFF00FFFF00000000000000000000FFFF00' +
            'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
            '000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
            'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00');
    end;

    Procedure GetColors;
    begin
    if(FindColors)then
    if(FindColorTolerance(x,y,5360864,572,8,722,160,45))then
     begin
      BankSymbol:=GetColor(x,y);
      if(FindColorTolerance(x,y,14564618,572,8,722,160,45))then
       begin
        WaterSymbol:=GetColor(x,y);
        MouseFlag(x,y,5,5);
        if(FindColorTolerance(x,y,3042748,572,8,722,160,40))then
         begin
          PotColor:=GetColor(x,y);
          FindColors:=false;
          writeln('Successfully Found All Colors!');
         end;
       end;
     end;
    end;

    begin
    SetupOSi;
    Setup;
    LoadBmps;
    ChatFixer;
    FindRandoms;
    GetColors;
    KillSwitch:=(KillSwitch div 27)*27;
    case FishType of
    0:xpx:=120; 1:xpx:=70; 2:xpx:=90; 3:xpx:=30;
    4:xpx:=140; 5:xpx:=50; 6:xpx:=100; 7:xpx:=40;
    8:xpx:=80; 9:xpx:=30; 10:xpx:=75; 11:xpx:=210;
    12:xpx:=60; 13:xpx:=130; end;
    if(not(FindColors))then
    repeat
    ToRange;
    CookFish;
    ToBank;
    Bank;
    UnderAttack:=false;
    until(false);
    end.



    SCAR Code:
    //by TV-XXX//
    //start in fali east bank//
    //fill in set up, run//

    program faliyewchopper;

    const
     username = '';
     password = '';
     axehead = 6839879;
     road1 = 6517884;
     road2 = 6316136;
     treelogo = 95489;
     treecol = 5211564;
     banklogo = 3851995;
     bankbooth = 4679037;
    var
       x,y,n,m,d,f,w,e,k,l,v,b,o,p: integer;

    procedure waitforrepeat;
    begin
         wait(2000+random(5000));
    end;

    procedure storelogs;
    begin
         findcolor(b,o,4419729,698,343,729,455)
         movemousesmooth(b,o);
         wait(100+random(100));
         clickmouse(b,o,false);
         wait(500+random(500));
         movemousesmooth(b,(o+70));
         wait(100+random(100));
         clickmouse(b,(o+70),true);
         wait(1000+random(500));
         movemousesmooth(459,41);
         wait(100+random(100));
         clickmouse(459,41,true);
         wait(1000+random(1000));
         waitforrepeat;
    end;

    procedure banking;
    begin
         if(findcolor(w,e,bankbooth,0,0,517,341)=true)
         then
         movemousesmooth(w,e);
         wait(2000+random(100));
         clickmouse(w,e,true);
         wait(5000+random(1000));
         if(findcolor(k,l,16711680,208,435,389,457)=true)
         then
         movemousesmooth(303,446);
         wait(100+random(100));
         clickmouse(303,446,true);
         wait(1000+random(1000));
         movemousesmooth(247,392);
         wait(100+random(100));
         clickmouse(247,392,true);
         wait(4000+random(1000));
         storelogs;
         if(findcolor(k,l,16711680,208,435,389,457)=false)
         then
         banking;
         if(findcolor(w,e,bankbooth,0,0,517,341)=false)
         then
         banking;
    end;

    procedure tobank;
    begin
         if(findcolor(d,f,road1,644,24,717,71)=true)
         then
         movemousesmooth(d,f);
         wait(100+random(100));
         clickmouse(d,f,true);
         wait(6000+random(1000));
         movemousesmooth((d-10),(f-5));
         wait(100+random(100));
         clickmouse((d-10),(f-5),true);
         wait(8000+random(1000));
         movemousesmooth((d-10),(f-5));
         wait(100+random(100));
         clickmouse((d-10),(f-5),true);
         wait(10000+random(500));
         if(findcolor(x,y,banklogo,586,42,718,134)=true)
         then
         movemousesmooth(x,(y+5));
         wait(100+random(100));
         clickmouse(x,(y+5),true);
         wait(8000+random(1000));
         banking;
    end;

    procedure findaxehead;
    begin
    end;

    procedure chopyew;
    begin
         if(findcolorspiral(v,b,treecol,0,0,516,340)=true)
         then
         movemousesmooth(v,b);
         wait(100+random(100));
         clickmouse(v,b,true);
         wait(5000+random(1000));
         if(findcolor(x,y,axehead,577,213,596,288)=false)
         then
         findaxehead;
         if(findcolor(n,m,3885652,707,440,714,446)=true)
         then
         chopyew;
         if(findcolor(n,m,3885652,707,440,714,446)=false)
         then
         tobank;
         if(findcolorspiral(v,b,treecol,0,0,516,340)=false)
         then
         wait(5000+random(2000));
         chopyew;
    end;

    procedure toyews;
    begin
         if(findcolor(x,y,road1,613,123,635,154)=true)
         then
         movemousesmooth(x,y);
         wait(100+random(100));
         clickmouse(x,y,true);
         wait(9000+random(1000));
         movemousesmooth((x+30),(y+30));
         wait(100+random(100));
         clickmouse((x+30),(y+30),true);
         wait(9000+random(1000));
         if(findcolor(n,m,road2,628,97,714,148)=true)
         then
         movemousesmooth(n,m);
         wait(100+random(100));
         clickmouse(n,m,true);
         wait(7000+random(1000));
         if(findcolor(n,m,road2,628,97,714,148)=false)
         then
         toyews;
         if(findcolor(d,f,treelogo,547,72,670,145)=true)
         then
         movemousesmooth(d,f);
         wait(100+random(100));
         clickmouse(d,f,true);
         wait(5000+random(1000));
         chopyew;
         if(findcolor(x,y,road1,613,123,635,154)=false)
         then
         chopyew;
    end;

    procedure bankortree;
    begin
         if(findcolor(x,y,treelogo,578,17,722,143)=true)
         then
         chopyew;
         if(findcolor(x,y,treelogo,578,17,722,143)=false)
         then
         toyews;
    end;

    procedure setrun;
    begin
         movemousesmooth(710,484);
         wait(100+random(100));
         clickmouse(710,484,true);
         wait(100+random(100));
         if(findcolor(k,l,5067346,605,250,640,283)=true)
         then
         movemousesmooth(k,l);
         wait(100+random(100));
         clickmouse(k,l,true);
         wait(100+random(100));
         movemousesmooth(650,186);
         wait(100+random(100));
         clickmouse(650,186,true);
         wait(100+random(100));
         bankortree;
         if(findcolor(k,l,5067346,605,250,640,283)=false)
         then
         movemousesmooth(650,186);
         wait(100+random(100));
         clickmouse(650,186,true);
         wait(100+random(100));
         bankortree;
    end;

    procedure clickredlog;
    begin
         wait(2000+random(2000));
         if(findcolor(o,p,16777215,464,332,614,351)=false)
         then
         clickredlog;
         if(findcolor(o,p,16777215,464,332,614,351)=true)
         then
         movemousesmooth(o,p);
         wait(100+random(100));
         clickmouse(o,p,false);
         wait(100+random(100));
         movemousesmooth((o-10),(p-20));
         wait(100+random(100));
         clickmouse((o-10),(p-20),true);
    end;

    procedure login;
    begin
         writeln('loggin-in')
         if(findcolor(n,m,16777215,392,270,533,310)=false)
         then
         login;
         if(findcolor(n,m,16777215,392,270,533,310)=true)
         then
         movemousesmooth(n,m);
         wait(100+random(100));
         clickmouse(n,m,true);
         wait(100+random(100));
         sendkeys(username+chr(13));
         wait(100+random(100));
         sendkeys(password);
         if(findcolor(k,l,16777215,229,302,371,340)=true)
         then
         movemousesmooth(k,l);
         wait(100+random(100));
         clickmouse(k,l,true);
         wait(100+random(100));
         clickredlog;
    end;

    procedure loginfinder;
    begin
         if(findcolor(x,y,65535,301,231,426,261)=true)
         then
         login;
         if(findcolor(x,y,65535,301,231,426,261)=false)
         then
         setrun;
    end;

    procedure minimize;
    begin
         if(findcolor(w,e,16086339,0,0,1000,1000)=true)
         then
         movemousesmooth(w,e);
         wait(100+random(100));
         clickmouse(w,e,true);
         wait(1000+random(100));
         loginfinder;
         if(findcolor(w,e,16086339,0,0,1000,1000)=false)
         then
         loginfinder;
    end;

    begin
         minimize;
         wait(240000);
         repeat
         setrun;
         until(false);
    end.
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  9. #34
    Join Date
    Dec 2007
    Posts
    51
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by R0b0t1 View Post
    Shit!

    Bill Gates once said "Who could possibly use more than 1MB of memory?".


    Lol @ Him.
    He'd probably laugh back , but with a little more than 1MB of money...oh, did he say memory ? (1MB is... 1 Million-Billion and I have a feeling he may get there. )

  10. #35
    Join Date
    Jan 2007
    Posts
    580
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    {========================================]
                      Auto Talker
                       v175.0
                    By WT-Fakawi
    [========================================]
    Dis is my l33t script took me weeks to make im gonna make it pay script
    2mill so this is your chance to leech
    [========================================}


                         begin
      repeat
       sendkeys ('talking');
                wait (100);
      until (false);
     end.

    Yep, thats WT-Fakawi's first script made circa 1993. As you can see even at the early age of 2 years, Fakawi was a great scripter and always remembered good scripting standards.

  11. #36
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    ^^ Fakawi was like 30 in 1993
    STOP PM'ING ME

  12. #37
    Join Date
    Jul 2007
    Posts
    1,431
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Hobbit View Post
    ^^ Fakawi was like 30 in 1993
    '

    I borned at 91
    [CENTER][SIZE="4"]Inactive[/SIZE]I forgot my password[/CENTER]

  13. #38
    Join Date
    Jan 2007
    Posts
    580
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Hobbit View Post
    ^^ Fakawi was like 30 in 1993
    Thats what they want you to believe....

  14. #39
    Join Date
    Feb 2006
    Location
    Locked in RAM's closet !
    Posts
    2,001
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    Quote Originally Posted by Negaal View Post
    Holy shit...
    I found my cooker...
    from CD...they are at least 2-3 years old...
    I had few more scripts by dankness and odie but while opening them I got external error...


    I remember this script... <-because this...
    SCAR Code:
    //------ dark_snipers auto_yew_cutter-------\\
    //---------------set colors ----------------\\
    //---------------press play ----------------\\
    //------------------------------------------\\
    //--------- ______________________----------\\
    //-------- /SQUIG YOU ARE AWESOME!\---------\\
    //---------\______________________/---------\\
    //()__()__()__()__()__()__()__()__()__()__()\\


    program auto_yew_cutter_banker;
    {.include squig.txt}
    var
    cutted,treesymbol,x,y:integer;

    {//setup}const{setup\\}
    road=7237496;//minimap road color
    treecol=0;
    yewlog=0;
    bank=0;
    I_want_to_cut=100;//how many you want to cut

    //---end setup---\\

    procedure loadbitmaps;
    begin
    treesymbol := BitmapFromString(17, 17, 'z78DAE594410E843008' +
           '45AF04A5EDD0656DF5FE479ACCE08284E0B4D5DDB8783131FE571' +
           '001F8AF0B0B46281E9F4AEEDCA9BD3CAE19BD64DC4B842331D770' +
           'DE0BAD71361F5BFE9C53A8922DC75DAEE5325FB8F146F587E54E1' +
           '5048DA0845E03D4EB8AEE54E1756FC2325C91EDDEA2E54BE98CD0' +
           'CB1FB75897BC9B32319E3932D562D4F9B33320D409DA629FAE4DB' +
           '2A5B578DB60EDDFA73D64D8C59239265CCC1FD963BA3FFA2B3FBB' +
           '39D776F21BC8FB6AD8');
           freebitmap(treesymbol);
           end;


    Procedure Flag;
    var flagimage,timeout:integer;
    begin

         flagimage := BitmapFromString(2, 2,'FF00005D3311C656045D3311');
         timeout:=0
         repeat
          timeout:=timeout+1;
               wait(250);
         until(not findbitmapin( flagimage, x, y, 570, 5, 725, 162)) or (timeout > 120);
         freebitmap(flagimage);
    end;


    procedure road_trees;
    begin
    findcolorspiral(x,y,road,608, 122,665, 160)
    movemousesmoothex(x,y,1,4,55,55,55)
    clickhuman(x,y,true)
    findrandoms;
    wait(7000+random(300))
    flag;
    wait(200+random(200))
    findcolorspiral(x,y,road,629, 136, 658, 158)
    movemousesmoothex(x,y,1,4,55,55,55)
    clickhuman(x,y,true)
    findrandoms;
    flag;
    wait(200+random(200))
    findcolorspiral(x,y,road,615, 134, 671, 162)
    movemousesmoothex(x,y,1,4,55,55,55)
    clickhuman(x,y,true)
    findrandoms;
    flag;
    wait(200+random(150))
    end;

    procedure find_tree;
    begin
    findbitmaptolerancein(treesymbol,x,y,545, 3,754, 160,7)
    movemousesmoothex(x,y,1,4,55,55,55)
    clickhuman(x,y,true)
    findrandoms;
    wait(7000)
    flag;
    wait(200+random(55))
    repeat
    findcolorspiral(x,y,treecol,546, 1,658, 161)
    wait(200)
    movemousesmoothex(x,y,1,4,55,55,55)
    wait(200)
    IsTextat2(9,9,'chop down yew',100)
    clickhuman(x,y,true)
    findrandoms;
    until(findcolorspiral(x,y,yewlog,691, 431,732, 457))or
    findcolorspiral(x,y,yewlog,651, 431,689, 459)
    findcolorspiral(x,y,road,682, 22,725, 62)
    movemousesmoothex(x,y,1,4,55,55,55)
    clickhuman(x,y,true)
    flag;
    findcolorspiral(x,y,road,645, 9, 668, 25)
    movemousesmoothex(x,y,1,4,55,55,55)
    clickhuman(x,y,true)
    findrandoms;
    flag;
    findcolorspiral(x,y,road,645, 9, 668, 25)
    movemousesmoothex(x,y,1,4,55,55,55)
    clickhuman(x,y,true)
    findrandoms;
    flag;
    end;

    procedure tobank_banking;
    begin
    findcolorspiral(x,y,bank,621, 27,740, 157)
    movemousesmoothex(x,y,1,4,55,55,55)
    clickhuman(x,y,true)
    findrandoms;
    flag;
    wait(300)
    openbank;
    deposit(1,2,0)
    deposit(1,3,0)
    cutted:=cutted+28
    end;

    procedure progress_report;
    begin
    writeln('')
    writeln('|-------Dark_snipers auto yew cutter--------')
    writeln('|-------------------------------------------')
    writeln('|------> cut'+inttostr(I_want_to_cut)+' yew logs')
    writeln('|-------------------------------------------')
    writeln('|---->worked for '+inttostr(timerunningmin)+' Minutes '+inttostr(timerunningsec)+' Seconds')
    writeln('|-------------------------------------------')
    end;

    begin
    setupsquig;
    repeat
    flag;
    road_trees;
    find_tree;
    tobank_banking;
    until(I_want_to_cut>=cutted)

    end.
    You know how old that script is XD


    wow its even made with squig1 lol pretty old script from me... even though i do have older.... just do not know where....

    hmm i did not use standards im amazing if my script can be remembered without standards ... im amazing...
    Darky has stopped by to say hello :).
    10-21-2010
    Updated-
    10-09-2012

  15. #40
    Join Date
    Oct 2007
    Posts
    92
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Renax View Post
    best script ever.


    Code:
     ////////////////////////////////////////////////////
     //           Ultimate Miner & Banker 2.8          //
     //                   By chriz                     //
     ////////////////////////////////////////////////////
     //Setup:                                          //
     // ·Need Scar version 1.13                        //
     // ·High Details, V-Bright, Highest angle of view //
     // ·Map pointing north                            //
     // ·Pickaxe in the first bankslot                 //
     // ·Take minimap colors                           //
     // ·Mine at Varrock southeast or falador south    //
     //  or Mining Guild                               //
     ////////////////////////////////////////////////////
    
    program UltimateMinerBanker;
    var
    c,l,x,y,n,h,w,k,flag,Talk,TalkY,box,trips,picks,runs,talked,ore,Mine,MineY,Take,TakeY,lamps,ilamp,tempLadder,tempLadder2,
    rcmQuickBank,rcmQuickBankY,InBank,StoreAll,StoreAllY,CloseWindow,Yellowtext,FindingPick,gas,Pickmode,tempbank,
    PickAxe,PickAxeSteel,PickHead,PickHandle,Attached,drop,orebmp,hc1,hc2,hc3,hc4,hc5,BNorth,tripcount,town2: Integer;
    ST: LongInt;
    Loged,Fight,swinging,ColorsFound,fixed:boolean;
    {.include BoxBreaker.txt}
    const
    {=================Setup================}
    username = ''; //Enter Your Username
    password = '';    //Enter Your Password
    UsePAR = True;  //use PAR over built in random event protection?
    Town = 2;          //1 to start in varrock, 2 for falador, 3 for guild mining, 4 for iron/guildmining in falador
    Pick = 1;          //1 if you can't wield pickaxe 2 if you can
    FindGaser = True;  //Allows the script to look for steaming rocks but can slow down minning
    PickFindCount = 50; //number of times script looks for a broken pickhead until giving up and withdrawing a new one
    Pickup = true;    //Pick up ore other people have dropped or not?
    Leftclick = True;  // leftclick on the rocks when mining?
    Screenshot = False; //Take screenshots of random events?
    dir = '';  //Folder to take screenshots in, leave blank for scripts folder Make sure this folder exists in the scripts folder of you will get errors
    Tolerance = 0;     //Tolerance to find the colors on the minimap, leave at 0!
    {===========From Game Screen===========}
    {Only needed if Iron mining}
    IronOre1 = 2700888;   //Rocks Colors
    IronOre2 = 2569300;   //Rocks Colors
    IronOre3 = 2832731;   //Rocks Colors
    {Only needed if Guild mining}
    CoalOre1 = 2702396;   //Rocks Colors
    CoalOre2 = 2834753;   //Rocks Colors
    CoalOre3 = 3097668;   //Rocks Colors
    {=============From MiniMap=============}
    banklogo = 6084350;     //Minimaps banklogo color
    miningspot = 9076623;   //Minimaps Pick Head color
    {Only needed if Iron mining}
    roadcolor = 7829631;    //Minimaps Roads color
    {Only needed if Guild mining}
    Statue = 9277337;   //Add the color of the n statue (right next to the ladder when going down)
    Ladder = 7746; //Add Ladder color
    Rocks = 4474428;   //Add Coal Rocks color in MINIMAP!
    {===============End Setup==============}
    
    Procedure Mouse(x,y,rx,ry: integer; left:boolean);
    begin
      x:=x+random(rx);
      y:=y+random(ry);
      if(x<=760)and(x>=0)and(y<= 500)and(y>=0)then
      begin
       MoveMouseSmoothEx(x,y,1,6,15,5+random(10),5+random(10));
       GetMousePos(x,y);
       wait(50+random(50))
       holdmouse(x,y,left)
       wait(5+random(80))
       releasemouse(x,y,left)
       wait(100+random(100))
      end;
    end;
    
    Procedure MMouse(x,y,rx,ry: Integer); {Made by Odie5533}
    begin
     x:=x+random(rx); y:=y+random(ry);
    if(x<=760)and(x>=0)and(y<= 500)and(y>=0)then
    begin
     MoveMouseSmoothEx(x,y,1,6,15,5+random(10),5+random(10));
     GetMousePos(x,y);
    end;
    end;
    
    {.include par.txt}
    
    Procedure PrintProgressReport;
    var RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:LongInt; Time:String; e:Integer;
    begin
    if(Not Loged)then
    Begin
       Seconds:=(GetSystemTime-ST) div 1000;
       Minutes:=Seconds div 60;
       RHours:=Minutes div 60;
       Time:=inttostr(Seconds)+' Seconds';
       avtime:=Seconds/trips;
       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
       If (Town = 3) then e := 50 If (Town = 4) then e := 40 else e := 35
       If (Town = 1) then writeln('-----Progress Report for Ironmining at Falador-----');
       If (Town = 2) then writeln('-----Progress Report for Ironmining at Varrock-----');
       If (Town = 3) then writeln('---------Progress Report for Guild Mining----------');
       If (Town = 4) then writeln('---------Progress Report for Multi Mining----------');
       writeln('Worked for '+Time);
       If (UsePAR = True)and(town = 2)then writeln('Ran away from random events '+inttostr(runs)+' Time[s]');
       If (UsePAR = False)then writeln('Ran away from random events '+inttostr(runs)+' Time[s]');
       If (UsePAR = False)then writeln('Talked to random events '+inttostr(talked)+' time[s]');
       If (PickFindCount > 0)then writeln('Attached pick head '+inttostr(attached)+' time[s]');
       If (FindGaser = true)then writeln('Stopped for gas '+inttostr(gas)+' time[s]');
       writeln('New Pick Taken '+inttostr(Picks)+' Time[s]');
       writeln('Fixed lamp '+inttostr(lamps)+' Time[s]');
       writeln('Mined '+inttostr(trips)+' Time[s] '+inttostr(trips*(26+Pick))+' Ores');
       writeln('Gained '+inttostr(trips*e*(26+Pick))+' mining Experience');
       writeln('Currently Averaging '+inttostr(3600/avtime*(26+Pick))+' Ores and '+inttostr(3600/avtime*e*(26+Pick))+' Experience an Hour');
       end;
    end;
    end;
    
    procedure GetScreenShot(reason:string; event:Integer);
    var
       x : string;
    begin
    if(screenshot)then
      begin
      x:=inttostr(Event)
      SaveScreenshot(apppath+'Scripts\'+dir+'\ScreenCaptureFor'+reason+inttostr(strtoint((copy(x,length(x),1))))+'.bmp');
      writeln('ScreenCaptureFor'+reason+inttostr(strtoint((copy(x,length(x),1))))+'.bmp');
      end;
    end;
    
    procedure sendkeysmooth(str:string);
    var x:integer;
    begin
      repeat
        x := x+1;
        wait(100+random(200));
        sendkeyssilent(copy(str,x,1));
      until x > length(str)
    end;
    
    Procedure ChatFix; {ChatFixer by Odie5533}
    begin
     while(not(GetColor(54,496)=255))do
      Mouse(45,485,15,10,true);
     wait(300+random(100));
     while(not(GetColor(183,496)=255))do
      Mouse(176,485,15,10,true);
     wait(300+random(100));
     while(not(GetColor(323,496)=255))do
      Mouse(315,485,15,10,true);
     wait(300+random(100));
    end;
    
    Procedure FaceNorth;
    begin
      If (not(FindBitmapIn(BNorth,x,y,561,4,571,17))) then
      while(not(FindBitmapIn(BNorth,x,y,561,4,571,17)))do
        SendArrowSilentWait(1,2+random(2));
    end;
    
    procedure Checkloginscreen;
    var p:integer;
    begin
    if(FindBitmap(CloseWindow,x,y))then
    begin
      p:=0;
      status('closing welcome box');
      repeat
        Wait(400+random(100));
        Mouse(x,y,40,4,true);
        Wait(500);
        p:=p+1;
      until(not FindBitmap(CloseWindow,x,y))or(p>=3);
    end;
    end;
    
    procedure LoginIfNeeded;//A stupid3ooo procedure based of many others
    var counter:integer;
    begin
    Checkloginscreen;
    if(IsTextAt2(293,251,'Username',10))then
      begin
       Mouse(460,322,10,2,true);
       Wait(500+random(500));
      end;
    if(IsTextAt2(309,241,'Welcome to RuneScape',50))then
      begin
       Mouse(400,280,125,20,true);
       Wait(200+random(100));
       if(IsTextAt2(293,251,'Username',50))then
       begin
        status('Logging in');
        Mouse(400,256,20,5,true);
        Wait(50+random(25));
        sendkeysmooth(username);
        Wait(400+random(150));
        sendkeysmooth(chr(13));
        Wait(400+random(150));
        sendkeysmooth(password);
        Wait(400+random(100));
        Mouse(300,322,20,5,true);
        repeat
         counter:=counter+1
         wait(100);
        until(FindBitmap(CloseWindow,x,y))or(counter=150)
        Checkloginscreen;
       end;
      end;
    end;
    
    Procedure LogOut(why:string);
    begin
      Writeln(' ');
      Writeln(why);
      Writeln(' ');
      Wait(100+random(10));
      Loged:=true;
      Mouse(635,470,25,20,true);
      Wait(100+random(10));
      c:=0;
      repeat
        c:=c+1
        Mouse(586,370,119,10,true);
        Wait(250+random(100));
      until(GetColor(400,130)=1842201)and(GetColor(354,120)=1842201)or(c=15);
    end;
    
    Procedure SetRun(runon: boolean); {Edited by Odie5533}
    begin
       Wait(20+random(5));
       Mouse(701,468,10,25,true);
       Wait(70+random(50));
       if(not(GetColor(607,263)=2303648))and(RunOn)then
       Mouse(611,253,15,15,true);
       if(GetColor(607,263)=2303648)and(not RunOn)then
       Mouse(569,256,5,5,true);
       Wait(100+random(50));
       Mouse(644,178,5,5,true);
       Wait(100+random(50));
    End;
    
    Procedure MapFlag;
    var M:integer;
    begin
      Check4Mod;
      Wait(200);
      M:=0;
      if(FindBitmapIn(flag,x,y,570,5,725,162))then
      begin
       repeat
        wait(500);
        M:=M+1;
       until(FindBitmapIn(flag,x,y,633,64,665,90))and
       (not(GetColor(200,148)=16777215))or
       (not FindBitmapIn(flag,x,y,570,5,725,160))and(M>9);
       Wait(100);
      end;
    end;
    
    Procedure MapFlag2;
    begin
      Check4Mod;
      Wait(200);
      if(FindBitmapIn(flag,x,y,565,5,725,160))then
      begin
       repeat
        wait(1000);
       until(not FindBitmapIn(flag,x,y,565,5,725,160));
       Wait(100);
      end;
    End;
    
    procedure TakePickaxe;
    begin
      Mouse(575,218,20,20,true);
      Wait(400+random(150));
      Mouse(84,64,20,20,true);
      Wait(500+random(150));
      n:=0;
      Picks:=Picks+1;
    end;
    
    Procedure TakeOff;
    begin
      if (PickMode=2) then
      begin
        Mouse(674,174,20,20,true);
        Wait(100+random(50));
        Mouse(580,290,20,20,true);
        Wait(100+random(50));
        Mouse(630,172,30,20,true);
        wait(400+random(50));
      end;
    end;
    
    Procedure PutOn;
    begin
      if (PickMode=2) then
      begin
        if not (getcolor(633,177)=2829182)then Mouse(635,175,20,25,true);
         Wait(50+random(50));
        if(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100))or
          (FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100))then
        Mouse(x,y,20,20,true);
        Wait(3000+random(50));
        If (getcolor(26,417)=0)and(getcolor(217,428)=0) then
        begin
        Writeln('Cannot Equip that pick, switching pick mode')
        Pickmode:=1
        end
      end;
    end;
    
    //===================================Banking==================================\\
    
    Procedure ScrollBank;
    var
      v:integer;
    begin
    if(IsTextAt2(185,36,'The Bank of RuneScape', 100))then
    begin
     if (not(getcolor(475,75)=5531254))then
     begin
      status('Scrolling Bank Up...')
      wait(100+random(50));
      MMouse(471,61,10,10);
      wait(random(25));
      GetMousePos(x,y);
      HoldMouse(x,y,true);
      repeat
        wait(200+random(50));
        v:= v+1
      until (getcolor(475,75)=5531254)or(v>22)
      ReleaseMouse(x,y,true);
     end;
    end;
    end;
    
    procedure Deposit;
    var t :integer;
    begin
       repeat
       repeat
          wait(121+random(65))
       if(findColorSpiral(x,y,65536,565,250,730,460))and(PickMode=1)or
         (FindColorSpiral(x,y,65536,611,215,730,245))and(PickMode=1)or
         (findColorSpiral(x,y,65536,570,235,745,485))and(PickMode=2)then
         begin
          c:=c+1;
          t:=t+1;
          Mouse(x-5,y,5,5,False);
          wait(227+random(33));
         end;
        if (FindBitmapIn(StoreAllY,x,y,560,215,730,460))or
        (FindBitmapIn(StoreAll,x,y,560,215,730,460))then
         begin
          c:=0;
          Mouse(x,y,60,8,true);
          wait(1046+random(42));
         end;
       until(not(findColorSpiral(x,y,65536,565,250,730,460)))and(PickMode=1)and
            (not(FindColorSpiral(x,y,65536,611,215,730,245)))and(PickMode=1)or
            (not(findColorSpiral(x,y,65536,560,235,745,475)))and(PickMode=2)or (c>4)  or (t>5+random(5))
        if(c>4)then
         begin
          c:=0;
          wait(121+random(65))
          MoveMouseSmooth(573+random(10),189+random(10));
         end;
       until(not(findColorSpiral(x,y,65536,565,250,730,460)))and(PickMode=1)and
            (not(FindColorSpiral(x,y,65536,611,215,730,245)))and(PickMode=1)or
            (not(findColorSpiral(x,y,65536,560,235,745,475)))and(PickMode=2)or (c>4) or (t>5+random(5))
    end;
    
    procedure CloseBank;
    begin
    if(IsTextAt2(185,36,'The Bank of RuneScape', 100))and(GetColor(464,39)=8421504)then
     begin
      Mouse(430,39,5,5,true);
      wait(800+random(300));
     end;
    end;
    
    Function FindObjColorTol(objname:string; objcolor,objtol:integer):boolean;
    var a,b:integer;
    begin
    if(not(IsTextAt2(9,9,objname,100)))then
    while(b<16)do
    begin
     wait(30);
     if(a = 27)then
      begin
       a:= 0;
       b:= b + 1;
      end;
     if(b > 15)then break;
     if(FindColorSpiralTolerance(x,y,objcolor,a*20+4,b*20+4,a*20+24,b*20+24,objtol))then
      begin
       MMouse(x,y,0,0);
       wait(100+random(50));
       if(istextat2(9,9,objname,100))then
        begin
         result:=true;
         break;
        end;
      end;
     a:=a+1;
    end;
    end;
    
    procedure Banking;
    var c:integer;
    begin
    if(FindObjColorTol('Use Bank',tempbank,11))then
      begin
       tempbank:= GetColor(x,y);
       Mouse(x,y,0,20,false);
       wait(75+random(25));
       if(FindBitmap(rcmQuickBank,x,y))or(FindBitmap(rcmQuickBankY,x,y))then
        begin
         Mouse(x,y,5,2,true);
         MapFlag;
        end else
         if(FindBitmap(box,x,y))then
          begin MMouse(x,y,-30,-30);
         end else
          MMouse(0,0,60,60);
        while(not(IsTextAt2(185,36,'The Bank of RuneScape',100)))and(c<30)do
        begin
         wait(50+random(50));
         c:=c+1;
        end;
      end;
     if(IsTextAt2(185,36,'The Bank of RuneScape',100))and(not(GetColor(476,76)=5531254))then
      Mouse(472,81,4,10,true); //Scrolls your bank up
     wait(200+random(100));
    If(n=1)then
    begin
      ScrollBank;
      TakePickaxe;
      CloseBank;
    end else
    begin
      ScrollBank;
      Deposit;
      CloseBank;
    end;
    end;
    //============================================================================\\
    
    //===========================Map Walking for Varrock==========================\\
    procedure ToRocksVarrock;
    begin
      Loginifneeded;
      L:=0;
      c:=0;
      if(FindColorSpiralTolerance(x,y,banklogo,575,70,730,135,Tolerance))Then
      begin
        SetRun(true);
        Wait(100)
        Status('Going Out of bank');
        Mouse(x+21,y-26,5,5,True)
        MapFlag;
        c:=1
      end;
      Loginifneeded;
      repeat
        if(FindColorSpiralTolerance(x,y,roadcolor,690,25,692,120,Tolerance))Then
        begin
          c:=c+1;
          Status('Going Out Varrock '+inttostr(c)+'/3');
          wait(50)
          Mouse(x,y,5,5,True)
          MapFlag;
        end
        Loginifneeded;
        L:=L+1;
      Until(FindColorSpiralTolerance(x,y,roadcolor,585,108,710,110,Tolerance))and(c>2)or(L>30);
      c:=1;
      L:=0;
      repeat
        if(FindColorSpiralTolerance(x,y,roadcolor,585,108,710,110,Tolerance))Then
        begin
          Status('Going To Rocks '+inttostr(c)+'/9');
          wait(50)
          Mouse(x,y,5,5,True)
          MapFlag;
          c:=c+1;
        end;
        Loginifneeded;
        L:=L+1;
      until(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))and(c>8)or(c>10)or(L>30);
      if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
      begin
        Status('To center')
        wait(50)
        Mouse(x,y,5,5,True)
        MapFlag2;
      end;
      If(L>30)then
      begin
          LogOut('Lost To Rocks Varrock')
      end;
    end;
    
    procedure ToBankVarrock;
    begin
      Loginifneeded;
      c:=0;
      L:=0;
      if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
      begin
        Status('Out of Mines')
        Mouse(x+30,y-35,5,5,True)
        MapFlag;
        c:=1
      end;
      Loginifneeded;
      repeat
        If(FindColorSpiralTolerance(x,y,roadcolor,595,32,700,34,Tolerance))Then
        begin
          Status('Going To Varrock '+inttostr(c)+'/4');
          wait(50)
          Mouse(x,y,5,5,True)
          MapFlag;
          c:=c+1;
        end;
        Loginifneeded;
        L:=L+1;
      Until(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))and(c>4)or(L>30)
      c:=1;
      L:=0;
      repeat
        If(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))Then
        begin
          Status('Going To Bank '+inttostr(c)+'/3');
          wait(50)
          Mouse(x,y,5,5,True)
          MapFlag;
          c:=c+1;
        end;
        Loginifneeded;
        L:=L+1;
      until(FindColorSpiralTolerance(x,y,banklogo,575,60,710,135,Tolerance))and(c>3)or(c>4)or(L>30)
      If(FindColorSpiralTolerance(x,y,banklogo,575,60,710,135,Tolerance))Then
      begin
        Status('Going In Bank')
        wait(50)
        Mouse(x,y,5,5,True)
        MapFlag2;
        Wait(5000)
      end;
      If(L>30)then
      begin
         LogOut('Lost To Bank Varrock')
      end
      Banking;
    end;
    //============================================================================\\
    
    //===========================Map Walking for Falador==========================\\
    procedure ToRocksFalador;
    begin
      Loginifneeded;
      L:=0;
      c:=0;
      if(FindColorSpiralTolerance(x,y,banklogo,575,70,730,135,Tolerance))Then
      begin
        SetRun(true);
        Wait(100)
        Status('Going Out of bank');
        Mouse(x-30,y+20,5,5,True)
        MapFlag;
        Wait(200)
        c:=1
      end;
      Loginifneeded;
      repeat
        if(FindColorSpiralTolerance(x,y,roadcolor,585,120,710,122,Tolerance))Then
        begin
          c:=c+1;
          Status('Going South '+inttostr(c)+'/8');
          wait(50)
          Mouse(x,y,5,5,True)
          MapFlag;
          Wait(200)
        end
        Loginifneeded;
        L:=L+1;
      Until(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))and(c>7)or(L>30);
      c:=1;
      L:=0;
      repeat
        If(FindColorSpiralTolerance(x,y,roadcolor,605,30,607,120,Tolerance))Then
        begin
          Status('Going West '+inttostr(c)+'/2');
          wait(50)
          Mouse(x,y,5,5,True)
          MapFlag;
          c:=c+1;
        end;
        Loginifneeded;
        L:=L+1;
      until(FindColorSpiralTolerance(x,y,roadcolor,585,115,710,117,Tolerance))and(c>2)or(L>30)
      c:=0;
      L:=0;
      repeat
        if(FindColorSpiralTolerance(x,y,roadcolor,585,115,710,117,Tolerance))Then
        begin
          c:=c+1;
          Status('Going south '+inttostr(c)+'/4');
          wait(50)
          Mouse(x,y,5,5,True)
          MapFlag;
        end
        Loginifneeded;
        L:=L+1;
      Until(c>=2);
      L:=0;
      repeat
        begin
          c:=c+1;
          Status('Going south '+inttostr(c)+'/4');
          wait(50)
          Mouse(650,125,5,5,True)
          MapFlag;
        end
        Loginifneeded;
        L:=L+1;
      until(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))and(c>2)or(c>3)or(L>30)
      if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
      begin
        Status('To iron')
        wait(50)
        Mouse(x-15,y-15,10,10,True)
        MapFlag;
      end;
      if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
      begin
        Wait(200)
        Mouse(x-30,y,5,5,True)
        MapFlag2;
      end;
      If(L>30)then
      begin
          LogOut('Lost To Rocks Falador')
      end;
    end;
    
    procedure ToBankFalador;
    begin
      Loginifneeded;
      c:=0;
      L:=0;
      if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
      begin
        Status('Out of Mines')
        Mouse(x-15,y-15,10,10,True)
        MapFlag;
      end
      Loginifneeded;
      if(FindColorSpiralTolerance(x,y,miningspot,574,8,722,160,Tolerance))Then
      begin
        c:=1
        Loginifneeded;
        Status('Going north '+inttostr(c)+'/2');
        wait(50)
        Mouse(x-15,y-60,5,5,True)
        MapFlag;
      end
      Loginifneeded;
      repeat
        if(FindColorSpiralTolerance(x,y,roadcolor,615,32,700,34,Tolerance))Then
        begin
          c:=c+1;
          Status('Going north '+inttostr(c)+'/2');
          wait(50)
          Mouse(x,y,5,5,True)
          MapFlag;
        end
        Loginifneeded;
        L:=L+1;
      Until(FindColorSpiralTolerance(x,y,roadcolor,690,40,692,120,Tolerance))or(c>4)or(L>30);
      c:=0;
      L:=0;
      repeat
        if(FindColorSpiralTolerance(x,y,roadcolor,690,40,692,120,Tolerance))Then
        begin
          c:=c+1;
          Status('Going East '+inttostr(c)+'/2');
          wait(50)
          Mouse(x,y,5,5,True)
          MapFlag;
        end
        Loginifneeded;
        L:=L+1;
      Until(FindColorSpiralTolerance(x,y,roadcolor,595,35,690,37,Tolerance))and(c>1)or(c>3)or(L>30);
      c:=0;
      L:=0;
      repeat
        if(FindColorSpiralTolerance(x,y,roadcolor,595,35,690,37,Tolerance))Then
        begin
          c:=c+1;
          Status('Going North '+inttostr(c)+'/8');
          wait(50)
          Mouse(x,y,5,5,True)
          MapFlag;
          L:=0;
        end
        Loginifneeded;
        L:=L+1;
      Until(FindColorSpiralTolerance(x,y,banklogo,574,45,722,160,Tolerance))and(c>4)or(c>12)or(L>30);
      If(FindColorSpiralTolerance(x,y,banklogo,574,35,722,160,Tolerance))Then
      begin
        status('Going In Bank ')
        wait(50)
        Mouse(x,y,5,5,True)
        MapFlag2;
        Wait(4000)
      end
      If(L>30)then
      begin
         LogOut('Lost To Bank Falador')
      end
      Banking;
    end;
    //============================================================================\\
    
    //========================Map Walking for Guild Mining========================\\
    procedure ClimbLadder(color,ladder:integer);
    var count:integer;
    begin
      status('Climbing ladder');
    if(FindObjColorTol('Climb',ladder,5))then
     begin
      Ladder:= GetColor(x,y);
      MMouse(x,y,2,2);
      Wait(300+random(150));
      if(IsTextAt2(9,9,'Climb',100))then
      begin
        GetMousePos(x,y);
        If not (FindColorSpiral(x,y,color,565,5,725,160)) then
          Mouse(x,y,2,2,True);
      end;
      Wait(300+random(150));
      repeat
        count:=count+1;
        wait(300+random(200));
      until(FindColorSpiral(x,y,color,565,5,725,160))or(count>=20)
     end;
    end;
    
    procedure GoCenter;
    begin
    if(not(FindColorSpiral(x,y,miningspot,565,65,715,160)))then
      if(FindColorSpiral(x,y,Rocks,565,65,715,160))then
         begin
           Mouse(x,y,5,5,true);
           MapFlag;
           Wait(300+random(150));
         end;
    if(FindColorSpiral(x,y,miningspot,565,65,715,160))then
      begin
        Mouse(x,y,20,20,true);
        MapFlag2;
        Wait(300+random(150));
      end;
    end;
    
    Procedure ToBankGuild;
    begin
    If(Not Loged)then
    begin
      If (FindColorSpiral2(x,y,(statue),550,5,750,177))then
      begin
        Status('Going To Bank 1/2');
        Mouse(x+5,y-46,3,3,true);
        Wait(400+random(150));
        MapFlag;
      end;
      If (FindColorSpiral2(x,y,(banklogo),550,5,750,177))then
      begin
        Status('Going To Bank 2/2');
        Mouse(x,y+2,1,1,true);
        Wait(5000+random(250))
        Mapflag2;
      end;
      Banking;
    end;
    End;
    
    procedure ToLadder(climb:boolean);
    var counter:integer;
    begin
    If(Not Loged)then
    begin
    status('Walking to ladder');
    repeat
      if(not(FindColor(x,y,Ladder,575,5,725,160)))and(FindColor(x,y,Rocks,585,65,625,160))then
      begin
        counter:=counter+1
        Mouse(x,y,5,5,true);
        MapFlag;
        Wait(200+random(50));
      end
      Loginifneeded;
    until(FindColorSpiral(x,y,Ladder,575,5,725,160))or(counter=5)
    if(FindColorSpiral(x,y,Ladder,575,5,725,160))then
      begin
        Mouse(x,y,5,5,true);
        MapFlag2;
        Wait(200+random(50));
        if(climb=true)then begin ClimbLadder(Statue,Templadder2);end;
      end;
    if (climb=True)and(Not FindColorSpiral(x,y,(Statue),575,8,720,135))then
    begin
      LogInIfNeeded;
      ToLadder(climb);
    end else
    if(climb=true)then ToBankGuild;
    end;
    end;
    
    Procedure ToGuild;
    begin
    If(Not Loged)then
    begin
      If (not(FindColorSpiral(x,y,(Statue),550,5,750,177)))and(FindColorSpiral(x,y,(banklogo),550,5,750,177))then
      begin
        Status('Going To Guild');
        Mouse(x+40,106,3,3,true);
        Wait(400+random(250));
        MapFlag;
      end;
      if (FindColorSpiral(x,y,(Statue),550,5,750,177))then
      begin
        Status('Statue Found!');
        Mouse(x-10,y,5,0,true);
        Wait(5000+random(250));
        MapFlag2;
        if (FindColorSpiral(x,y,(Statue),638,73,658,93))then
        ClimbLadder(Rocks,templadder);
      end else
      begin
        FaceNorth;
        LogInIfNeeded;
        ToGuild;
      end;
      Wait(50+random(50));
    if (Not FindColorSpiral(x,y,(Rocks),575,8,710,135))then
    begin
      LogInIfNeeded;
      ToGuild;
    end else
      GoCenter;
    end;
    end;
    
    //=============================Anti Random Events=============================\\
    procedure FindPickHeadColor(f:Boolean);
    begin
    if not (getcolor(633,177)=2829182)then Mouse(635,175,20,25,true);
    if(not(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100)))and
      (not(FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100)))then
      begin
        Mouse(675,175,15,25,true);
         if(not(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100)))and
           (not(FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100)))then
      begin
      If (f = True) Then
      begin
      writeln('');
      writeln('ERROR! cannot find pick in screen, please put pick in inventory or your equip page and restart the script!');
      writeln('');
      ColorsFound:=False;
      end else
      Logout('No Picks Left');
      end;
      end;
    if(FindBitmapSpiralTolerance(PickAxe,x,y,546,198,745,468,100))or
      (FindBitmapSpiralTolerance(PickAxeSteel,x,y,546,198,745,468,100))then
      begin
      hc1:=GetColor(x+6,y+3);
      hc2:=GetColor(x+18,y+7);
      hc3:=GetColor(x+20,y+6);
      hc4:=GetColor(x+19,y+6);
      hc5:=GetColor(x+16,y+5);
      ColorsFound:=True;
      if not (getcolor(633,177)=2829182)then Mouse(635,175,20,25,true);
      end;
    end;
    
    procedure ItemGrab;
    begin
    if(FindColorSpiral(x,y,241,565,5,725,160))then
      begin
      Mouse(x,y,1,1,true);
      MapFlag2;
      Wait(5000+random(100));
      //FindTextSpiral('Take',240,180,50,5,10+random(10));
      GetMousePos(x,y);
      Mouse(x,y,0,0,true);
      Wait(1000+random(100));
      end;
    end;
    
    procedure FindFight;
    begin
    If(FindColorSpiral(x,y,65280,180,90,320,230))then Wait(1000);
    If(FindColorSpiral(x,y,65280,180,90,320,230))then
    begin
    Status('Random Event Found');
    Fight:=True;
    GetScreenShot('RunFromFight',Runs);
    Runs:=Runs+1;
    SetRun(true);
    If (town2 = 3)or(town2 = 4)then
    begin
      ToLadder(false);
      Wait(10000+random(1000));
      gocenter;
    end else
    begin
      Wait(50+random(10));
      Mouse(680,60,5,5,true);
      Wait(100);
      Mapflag;
      Wait(10000+random(1000));
      if(FindColorSpiralTolerance(x,y,miningspot,577,22,746,164,Tolerance))Then
      begin
        Mouse(x,y,5,5,True);
        MapFlag;
        If(Town2=2)then Mouse(x-30,y,5,5,True);
      end else
      Mouse(615,110,5,5,true);
    end;
    Wait(100);
    MapFlag2;
    SetRun(false);
    end;
    end;
    
    procedure TalkToRand;
    begin
      repeat
      if (FindColorSpiral(x,y,16711680,5,345,510,465))or
      (FindColorSpiral(x,y,16777215,5,345,510,465))then
          begin
          Mouse(x,y,50,2,true);
          wait(2000+random(1000));
          end;
      until(GetColor(20,434)=0)
    end;
    
    procedure FindText;
    var counter:integer;
    begin
    if (FindColor(x,y,65535,0,0,515,338))then wait(200)
    if (FindColor(x,y,65535,0,0,515,338))then
      begin
      GetScreenShot('YellowtextFound',Yellowtext);
      Yellowtext := Yellowtext + 1;
      repeat
      counter:=counter+2+random(1);
      MMouse(x+counter,y+15,0,3)
      wait(5);
      if(FindColorSpiral(x,y,65280,180,90,320,230))then
        begin
        FindFight;
        break;
        end;
      if(IsTextAt2(9,9,'Ta',100))then
        begin
        GetMousePos(x,y);
        Mouse(x,y,1,1,false);
        Wait(200+random(100));
        if(FindBitmap(Talk,x,y))or(FindBitmap(Talky,x,y))then
          begin
          Mouse(x,y,40,5,true);
          MapFlag2;
          wait(1000+random(1000));
          GetScreenShot('Talked',Talked);
          Talked:=Talked+1
          TalkToRand;
          end;
        end;
      until(counter>=250);
      end;
    end;
    
    procedure AttachPick;
    begin
    if(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50))and
    (FindBitmapSpiralTolerance(PickHandle,x,y,550,200,745,465,50))then
      begin
      if(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50))then
        begin
        GetScreenShot('FixingPick',Attached);
        Attached:=Attached+1
        Mouse(x,y,5,5,true);
        Wait(1000+random(100));
        end;
      if(FindBitmapSpiralTolerance(PickHandle,x,y,550,200,745,465,50))then
        begin
        Mouse(x,y,5,5,true);
        Wait(1000+random(100));
        Fixed := True
        end;
      end else
      fixed := false;
    end;
    
    procedure FindPick;
    var DropCount,Counter:integer;
    begin
    if((GetColor(387,382)=0)and(GetColor(485,413)=0))then
    begin
    GetScreenShot('FindingPick',FindingPick);
    FindingPick := FindingPick + 1;
    repeat
    DropCount:=DropCount+1
    If(FindBitmapSpiralTolerance(Orebmp,x,y,550,200,745,465,100))then
    begin
    Mouse(x,y,2,2,false);
    Wait(100+random(100));
    if(FindBitmap(Drop,x,y))then
    begin
    Mouse(x,y,10,2,true);
    Wait(100+random(100));
    MMouse(0,0,50,50);
    Wait(500+random(100));
    end;
    end;
    until(DropCount=2);
    Mouse(683,184,5,5,true);
    wait(500+random(100));
    Mouse(591,303,5,5,true);
    wait(500+random(100));
    Mouse(647,183,5,5,true);
    wait(500+random(100));
    repeat
    counter:=counter+1
    if(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50))then
      break;
    if(FindColorSpiral(x,y,hc1,0,0,515,338))or
      (FindColorSpiral(x,y,hc2,0,0,515,338))or
      (FindColorSpiral(x,y,hc3,0,0,515,338))or
      (FindColorSpiral(x,y,hc4,0,0,515,338))or
      (FindColorSpiral(x,y,hc5,0,0,515,338))then
      begin
      MMouse(x,y,0,0);
      wait(100+random(100));
      if(IsTextAt2(9,9,'Take', 100))then
        begin Mouse(x,y,2,2,true);MapFlag2;end
        end else itemgrab;
    until(counter>=PickFindCount)or(FindBitmapSpiralTolerance(PickHead,x,y,550,200,745,465,50));
    AttachPick;
    PutOn;
    end;
    end;
    
    Procedure FindLamp;
    begin
    while(FindBitmapSpiralTolerance(iLamp,x,y,550,200,745,470,100))do
     begin
      Mouse(x,y,10,10,true);
      wait(3000+random(1000));
      Mouse(157,220,12,12,true)
      wait(3000+random(1000));
      Mouse(248,255,10,2,true);
      wait(3000+random(1000));
      Mouse(226,442,10,3,true);
      wait(3000+random(1000));
      Lamps:=Lamps+1;
      end;
    end;
    
    Procedure FindRandoms;
    begin
    if(Not Loged)then
    begin
      LoginIfNeeded;
      Checkloginscreen;
      FindFight;
      FindBox;
      Check4Lamp('mining');
      Check4Mod;
    if(UsePAR=true)then
    begin
      Check4Randoms;
    end else
      FindText;
    end;
    end;
    
    Procedure FindGas(findx,findy:integer);  //By Stupid3ooo
    var counter,GasColor,bmap,gasfind:integer;
    ClientCanvas,BMapCanvas:TCanvas;
    begin
    if(FindGaser=true)then
    begin
    GasColor:=8296866;//8296866
    if(FindColorSpiralTolerance(x,y,GasColor,findx-16,findy-16,findx+16,findy+16,20))then
    begin
    repeat
      counter:=counter+1
      begin
        ClientCanvas:= GetClientCanvas;
        bmap:= BitmapFromString(32,32,'');
        BMapCanvas:= GetBitmapCanvas(bmap);
        CopyCanvas(ClientCanvas,BMapCanvas,findx-16,findy-16,findx+16,findy+16,0,0,32,32);
        wait(100);
        if(FindBitmap(bmap,x,y))then
          begin gasfind:=0;end
        else
          gasfind:=gasfind+1;
          FreeBitmap(bmap);
        end;
        if(gasfind=5)then
        begin
          WriteLn('Found Gas');
          GetScreenShot('Gas',gas);
          Gas:=Gas+1;
          if(town2=3)or(town2=4)then
          begin
          if(FindColorSpiral(x,y,(Rocks),600,65,625,140))or(FindColorSpiral(x,y,(Rocks),660,65,680,140))then
            begin Mouse(x,y,5,5,true);
          end else
            Mouse(645,80,10,10,true);
          end else
            Mouse(645,80,10,10,true);
          mapflag2;
          FindRandoms;
          Wait(4000+random(2000));
          FindGas(findx,findy);
          break;
        end;
    until(counter>=10);
    end;
    end;
    end;
    
    //============================================================================\\
    
    procedure ToBank;
    begin
      if(Not Loged)then
      if(town=4)then
      begin
        town2 := tripcount;
      end else
        Town2 := Town
      case Town2 of
        1: ToBankVarrock;
        2: ToBankFalador;
        3: ToLadder(True);
        4: ToLadder(True);
      end;
    tripcount := tripcount + 1;
    If(tripcount = 5) then
      tripcount := 2;
    end;
    
    procedure ToRocks;
    begin
      if(Not Loged)then
        if(town=4)then
      begin
        town2 := tripcount;
      end else
        Town2 := Town
      case Town2 of
        1: ToRocksVarrock;
        2: ToRocksFalador;
        3: ToGuild;
        4: ToGuild;
      end;
    end;
    
    Procedure SetRandom;
    Var color:integer;
    begin
    Color:=1+Random(3);
    If (Town2 = 3)or(Town2 = 4)then
      case Color of
        1: Begin Ore:=CoalOre1; end;
        2: Begin Ore:=CoalOre2; end;
        3: Begin Ore:=CoalOre3; end;
      end else
      case Color of
        1: Begin Ore:=IronOre1; end;
        2: Begin Ore:=IronOre2; end;
        3: Begin Ore:=IronOre3; end;
      end;
    case k of
      0: Begin w:=50; h:=35; end;
      1: Begin w:=125; h:=95; end;
      2: Begin w:=260; h:=155; i:=1; end;
    end;
    end;
    
    procedure DoMining;
    var ox,oy: integer;
    begin
    if(Not Loged)then
    begin
    L:= 0;
    c:= 0;
       repeat
         swinging:=True;
         c:=0;
         L:= L+1;
         LoginIfNeeded;
         FindRandoms;
         SetRandom;
         Status('Mining');
         x:=255;y:=170;
         If(FindColorSpiralTolerance(ox,oy,ore,x-w,y-h,x+w,y+h,4))Then
         begin
           k:=0;
           if(FindGaser=true)then FindGas(ox,oy-10);
           Wait(50)
           MMouse(ox,oy,3,3)
           Wait(100+random(50));
           If (IsTextAt2(9,9,'Mine Rocks',100))Or(Pickup=true)And(IsTextAt2(9,9,'Take Iron',100))Or(Pickup=true)And(IsTextAt2(9,9,'Take Coal',100))then
           begin
           Wait(50+random(50));
           Mouse(ox,oy,0,0,Leftclick);
           Mapflag2;
           Wait(80+random(50));
             If(FindBitmap(Mine,x,y))and(Leftclick=False)or(FindBitmap(MineY,x,y))and(Leftclick=False)or
             (FindBitmap(Take,x,y))and(Leftclick=False)or(FindBitmap(TakeY,x,y))and(Leftclick=False)then
             begin
             If(FindBitmap(Take,x,y))or(FindBitmap(TakeY,x,y))then swinging:=False;
               Mouse(x,y,60,10,true)
               Wait(100);
               Mapflag2;
             end else
             If (Leftclick=False) then
             begin
               MMouse(400,60,200,200)
               Wait(100+random(10))
             end;
             Mapflag2;
             FindRandoms;
             wait(200+random(500));
             If (Swinging=true) then
               if(GetColor(109,429)=0)and(GetColor(84,428)=0)then
               begin
               L:=0;
               C:=0;
                 Repeat
                 C:= c+1;
                 Wait(10+random(40));
                 if(c=10)or(c=20)or(c=29)then begin FindRandoms; FindGas(ox,oy-10); end;
                 Until(not((GetColor(109,429)=0))and(GetColor(84,428)=0))or
                      (not((GetColor(109,429)=0))and(GetColor(80,428)=0))or(GetColor(279,426)=0)or(c>=35);
               end;
             end;
        end else
        begin
          k:=k+1;
          FindRandoms;
          Wait(200+random(100));
        end;
        until(L>20)or(GetColor(97,394)=0)and(getColor(423,397)=0)or(GetColor(94,391)=0)and(getColor(422,398)=0)or
        (getColor(485,413)=0)or(GetColor(30,418)=0)and(GetColor(72,429)=0);
       if(getColor(485,413)=0)then
       begin
       Mouse(195,440,130,10,true);
       wait(200+random(100));
       if(PickFindCount>0)then
         FindPick;
       if fixed = False then
       begin
         n:= 1;
         Writeln('Going For New Pickaxe');
         Wait(100);
         TakeOff;
         ToBank;
         FindPickHeadColor(False);
         PutOn;
         ToRocks;
       end;
       DoMining;
       end;
       if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
       begin
         LogOut('You are dead!');
       end;
       If(L>20)then
       begin
         If(Town2=3)or(Town2=4)then GoCenter;
         if(FindColorSpiralTolerance(x,y,miningspot,577,22,746,164,Tolerance))Then
         begin
           Status('To center')
             If(Town2=2)then Mouse(x-30,y,5,5,True);
             If(Town2=1)then Mouse(x,y,5,5,True)
         end;
       MapFlag2;
       Wait(300)
       DoMining;
       end;
    end;
    end;
    
    procedure BitMaps;
    begin
    Box := BitmapFromString(6, 3,
           '0000000000005D54475D54470000000000000000000000005D5447' +
           '5D54470000000000000000000000005D54475D5447000000000000' +
           '');
    Talk := BitmapFromString(17, 10,
            'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000' +
            '000000000000000000000000000000000000FFFFFFFFFFFF000000' +
            '000000FFFFFFFFFFFF000000000000000000000000000000000000' +
            '000000000000000000000000000000FFFFFFFFFFFF000000000000' +
            'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
            '000000000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
            'FFFFFF000000000000000000000000000000000000000000000000' +
            '000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
            '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
            '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
            '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
            '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
            '000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFF000000000000000000FFFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
            '000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
            'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF');
    TalkY := BitmapFromString(17, 10,
            'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00000000000000000000' +
            '000000000000000000000000000000000000FFFF00FFFF00000000' +
            '000000FFFF00FFFF00000000000000000000000000000000000000' +
            '000000000000000000000000000000FFFF00FFFF00000000000000' +
            'FFFF00FFFF00000000000000000000000000000000000000000000' +
            '000000000000000000000000FFFF00FFFF00000000000000FFFF00' +
            'FFFF00000000000000000000000000000000000000000000000000' +
            '000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
            '000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
            '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
            '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
            '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
            '000000000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
            'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
            'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
            'FFFF00000000000000FFFF00FFFF00000000000000000000FFFF00' +
            'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
            '000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
            'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00');
    Mine := BitmapFromString(14, 12,
            '000000000000000000000000000000000000000000000000000000' +
            '000000000000000000000000000000000000FFFFFFFFFFFF000000' +
            '000000000000000000FFFFFFFFFFFF000000000000000000000000' +
            '000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
            'FFFFFF000000000000000000000000000000000000FFFFFFFFFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFFFFFFFF000000000000000000' +
            '000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
            'FFFFFF000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000' +
            '000000000000000000000000FFFFFFFFFFFF000000000000000000' +
            '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
            'FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF000000' +
            '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
            '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
            '000000FFFFFFFFFFFF000000000000000000000000FFFFFFFFFFFF' +
            '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
            '000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
            '000000000000000000000000000000000000000000000000000000' +
            '000000000000000000000000000000000000');
    MineY := BitmapFromString(14, 12,
            '000000000000000000000000000000000000000000000000000000' +
            '000000000000000000000000000000000000FFFF00FFFF00000000' +
            '000000000000000000FFFF00FFFF00000000000000000000000000' +
            '000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
            'FFFF00000000000000000000000000000000000000FFFF00FFFF00' +
            'FFFF00000000000000FFFF00FFFF00FFFF00000000000000000000' +
            '000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00' +
            'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
            'FFFF00000000FFFF00FFFF00000000FFFF00FFFF00000000000000' +
            '000000000000000000000000FFFF00FFFF00000000000000000000' +
            '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
            'FFFF00FFFF00000000000000000000000000FFFF00FFFF00000000' +
            '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
            '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
            '000000FFFF00FFFF00000000000000000000000000FFFF00FFFF00' +
            '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
            '000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
            '000000000000000000000000000000000000000000000000000000' +
            '000000000000000000000000000000000000')
    Take := BitmapFromString(43, 4,
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D54475D5447FFFFFF' +
           'FFFFFFFFFFFFFFFFFF0000000000005D5447FFFFFFFFFFFF000000' +
           '000000FFFFFFFFFFFF5D54475D54475D54475D54475D54475D5447' +
           'FF9040FF90400000005D5447FF9040FF9040FF9040000000000000' +
           '5D5447FF9040FF9040000000000000FF9040FF90405D5447FFFFFF' +
           'FFFFFFFFFFFFFFFFFFFFFFFF0000005D5447FFFFFFFFFFFFFFFFFF' +
           '0000000000005D54475D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
           'FFFFFF0000005D54475D54475D54475D54475D5447FF9040FF9040' +
           '0000005D5447FF9040FF90400000000000005D54475D5447FF9040' +
           'FF90400000005D5447FF9040FF9040FFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFFFFFFFFFFFFFF5D5447' +
           '5D54475D5447FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
           '5D54475D54475D54475D54475D5447FF9040FF90400000005D5447' +
           'FF9040FF90400000005D54475D54475D5447FF9040FF9040000000' +
           '5D5447FF9040FF9040FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF' +
           '0000005D5447FFFFFFFFFFFF000000FFFFFFFFFFFF5D54475D5447' +
           'FFFFFFFFFFFF0000000000000000000000005D54475D54475D5447' +
           '5D54475D54475D5447FF9040FF90400000005D5447FF9040FF9040' +
           '0000005D54475D54475D5447FF9040FF90400000005D5447FF9040' +
           'FF9040');
    TakeY := BitmapFromString(43, 4,
           'FFFF00FFFF00000000000000FFFF00FFFF005D54475D5447FFFF00' +
           'FFFF00FFFF00FFFF000000000000005D5447FFFF00FFFF00000000' +
           '000000FFFF00FFFF005D54475D54475D54475D54475D54475D5447' +
           'FF9040FF90400000005D5447FF9040FF9040FF9040000000000000' +
           '5D5447FF9040FF9040000000000000FF9040FF90405D5447FFFF00' +
           'FFFF00FFFF00FFFF00FFFF000000005D5447FFFF00FFFF00FFFF00' +
           '0000000000005D54475D5447FFFF00FFFF000000005D5447FFFF00' +
           'FFFF000000005D54475D54475D54475D54475D5447FF9040FF9040' +
           '0000005D5447FF9040FF90400000000000005D54475D5447FF9040' +
           'FF90400000005D5447FF9040FF9040FFFF00FFFF00000000000000' +
           'FFFF00FFFF000000005D5447FFFF00FFFF00FFFF00FFFF005D5447' +
           '5D54475D5447FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
           '5D54475D54475D54475D54475D5447FF9040FF90400000005D5447' +
           'FF9040FF90400000005D54475D54475D5447FF9040FF9040000000' +
           '5D5447FF9040FF9040FFFF00FFFF000000005D5447FFFF00FFFF00' +
           '0000005D5447FFFF00FFFF00000000FFFF00FFFF005D54475D5447' +
           'FFFF00FFFF000000000000000000000000005D54475D54475D5447' +
           '5D54475D54475D5447FF9040FF90400000005D5447FF9040FF9040' +
           '0000005D54475D54475D5447FF9040FF90400000005D5447FF9040' +
           'FF9040');
    flag := BitmapFromString(2, 2,
            'FF00005D3311C656045D3311');
    InBank := BitmapFromString(79, 2,
            'FF981FFF981FFF981F000000000000000000000000000000000000' +
            '000000FF981FFF981FFF981FFF981FFF981F000000000000000000' +
            '000000FF981FFF981FFF981FFF981F000000000000000000FF981F' +
            'FF981FFF981FFF981FFF981F000000000000000000FF981FFF981F' +
            '000000FF981FFF981F000000000000000000000000000000000000' +
            '000000FF981FFF981FFF981FFF981F000000000000000000000000' +
            'FF981FFF981F000000000000000000000000000000000000000000' +
            '000000FF981FFF981F000000FF981FFF981F000000000000000000' +
            'FF981FFF981F000000000000FF981FFF981F000000000000000000' +
            'FF981FFF981F000000000000000000000000000000000000FF981F' +
            'FF981F000000000000FF981FFF981F000000000000FF981FFF981F' +
            '000000000000FF981FFF981F000000000000FF981FFF981FFF981F' +
            '000000FF981FFF981F000000000000FF981FFF981FFF981FFF981F' +
            '000000000000000000000000000000000000000000FF981FFF981F' +
            '000000000000FF981FFF981F000000000000000000FF981FFF981F' +
            '000000000000000000000000000000000000000000000000FF981F' +
            'FF981FFF981FFF981F000000000000000000000000FF981FFF981F' +
            '000000000000FF981FFF981F000000');
    Drop := BitmapFromString(20, 2,
           'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
           'FFFFFF0000005D54475D54475D5447FFFFFFFFFFFF0000005D5447' +
           'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
           '5D5447FFFFFFFFFFFF0000005D54475D54475D54475D5447FFFFFF' +
           'FFFFFFFFFFFFFFFFFF000000');
    PickAxe := BitmapFromString(30, 14,
           '564D42564D42544A3B4D4438544A3B564D42564D42544A3B4D4438' +
           '544A3B544A3B544A3B544A3B544A3B000001000001000001000001' +
           '544A3B564D42564D42564D42564D42564D42564D42544A3B544A3B' +
           '564D42544A3B564D42564D42544A3B544A3B4D4438564D42564D42' +
           '544A3B544A3B564D42564D42544A3B4D44384D44380000012F2000' +
           '2F20003625003D2900000001564D42564D42564D42564D42564D42' +
           '564D42564D42544A3B564D42544A3B564D42544A3B4D4438544A3B' +
           '564D42564D42000001000001000001000001000001000001000001' +
           '000001000001392D1B44341E4D3B22544127000001302020564D42' +
           '544A3B564D42564D42564D42564D42564D42544A3B544A3B564D42' +
           '4D44384D4438564D42000001000001392D1B342918342918342918' +
           '34291834291834291834291834291834291840311E44341E4D3B22' +
           '000001302020544A3B544A3B564D42564D42564D42564D42564D42' +
           '544A3B544A3B564D42544A3B000001000001392D1B392D1B392D1B' +
           '3429183429183429183429183429183429183429183429181E1500' +
           '271B005441274D3B22000001000001564D42544A3B564D42564D42' +
           '564D42564D42564D42564D42544A3B564D42000001392D1B392D1B' +
           '392D1B392D1B392D1B342918342918342918342918342918342918' +
           '3429181E1500271B002F2000513E254D3B2248382044341E000001' +
           '000001544A3B544A3B564D42564D42564D42544A3B544A3B564D42' +
           '544A3B000001000001000001000001000001000001000001000001' +
           '0000010000010000010000011E15002F20002F20004D3B224D3B22' +
           '48382044341E40311E44341E000001000001564D42564D42564D42' +
           '544A3B544A3B564D42544A3B4D4438302020302020302020302020' +
           '3020203020203020203020203020200000011E1500271B002F2000' +
           '2F20004D3B224D3B2248382044341E40311E392D1B40311E44341E' +
           '000001000001564D42564D42544A3B564D42544A3B544A3B4D4438' +
           '544A3B544A3B544A3B544A3B544A3B4D4438544A3B544A3B000001' +
           '1E15002F20002F20002F200000000100000100000144341E40311E' +
           '392D1B342918392D1B40311E44341E000001564D42544A3B564D42' +
           '564D42564D42564D42544A3B544A3B564D42564D42564D42544A3B' +
           '564D420000011E1500271B002F20002F2000000001302020302020' +
           '302020000001000001000001392D1B2F2515342918392D1B000001' +
           '302020564D42564D42564D42564D42544A3B544A3B564D42564D42' +
           '564D424D44384D4438564D420000011E15002F20002F2000000001' +
           '302020302020544A3B544A3B544A3B302020302020000001000001' +
           '0000012F2515392D1B000001544A3B564D42564D42564D42544A3B' +
           '544A3B544A3B564D42564D42544A3B544A3B0000011E15002F2000' +
           '2F20002F2000000001302020544A3B544A3B544A3B564D42564D42' +
           '544A3B544A3B30202030202000000100000140311E000001564D42' +
           '544A3B544A3B564D42564D42544A3B544A3B544A3B564D42564D42' +
           '0000011E15002F20002F2000000001302020302020544A3B544A3B' +
           '564D42564D42564D42544A3B4D4438544A3B564D42564D42302020' +
           '000001302020302020544A3B544A3B544A3B4D4438544A3B544A3B' +
           '544A3B544A3B0000011E15002F20002F20002F2000000001302020' +
           '4D44384D4438544A3B544A3B564D42564D42564D42544A3B544A3B' +
           '544A3B544A3B544A3B564D42302020544A3B');
    PickAxeSteel := BitmapFromString(30, 14,
           '564D42564D42544A3B4D4438544A3B564D42564D42544A3B4D4438' +
           '544A3B544A3B544A3B544A3B544A3B000001000001000001000001' +
           '544A3B564D42564D42564D42564D42564D42564D42544A3B544A3B' +
           '564D42544A3B564D42564D42544A3B544A3B4D4438564D42564D42' +
           '544A3B544A3B564D42564D42544A3B4D44384D44380000012D1E00' +
           '2D1E003423003A2700000001564D42564D42564D42564D42564D42' +
           '564D42564D42544A3B564D42544A3B564D42544A3B4D4438544A3B' +
           '564D42564D42000001000001000001000001000001000001000001' +
           '0000010000015C5656686060756D6C827878000001302020564D42' +
           '544A3B564D42564D42564D42564D42564D42544A3B544A3B564D42' +
           '4D44384D4438564D42000001000001595353595353595353595353' +
           '595353595353595353595353595353575151615A596A6262756D6C' +
           '000001302020544A3B544A3B564D42564D42564D42564D42564D42' +
           '544A3B544A3B564D42544A3B0000010000015C5656595353575151' +
           '5751515751515751515751515751515751515751515751511C1400' +
           '251900827878756D6C000001000001564D42544A3B564D42564D42' +
           '564D42564D42564D42564D42544A3B564D42000001615A595F5858' +
           '5C5656595353575151575151544E4E544E4E544E4E544E4E544E4E' +
           '544E4E1C14002519002D1E007D7474756D6C6E67676A6262000001' +
           '000001544A3B544A3B564D42564D42564D42544A3B544A3B564D42' +
           '544A3B000001000001000001000001000001000001000001000001' +
           '0000010000010000010000011C14002D1E002D1E00797070756D6C' +
           '6E67676A6262635D5C6A6262000001000001564D42564D42564D42' +
           '544A3B544A3B564D42544A3B4D4438302020302020302020302020' +
           '3020203020203020203020203020200000011C14002519002D1E00' +
           '2D1E007B7272756D6C6E67676A6262635D5C5F5858635D5C686060' +
           '000001000001564D42564D42544A3B564D42544A3B544A3B4D4438' +
           '544A3B544A3B544A3B544A3B544A3B4D4438544A3B544A3B000001' +
           '1C14002D1E002D1E002D1E00000001000001000001686060635D5C' +
           '5F58585751515C5656615A59665E5E000001564D42544A3B564D42' +
           '564D42564D42564D42544A3B544A3B564D42564D42564D42544A3B' +
           '564D420000011C14002519002D1E002D1E00000001302020302020' +
           '302020000001000001000001595353524B4B544E4E595353000001' +
           '302020564D42564D42564D42564D42544A3B544A3B564D42564D42' +
           '564D424D44384D4438564D420000011C14002D1E002D1E00000001' +
           '302020302020544A3B544A3B544A3B302020302020000001000001' +
           '0000014D47465F5858000001544A3B564D42564D42564D42544A3B' +
           '544A3B544A3B564D42564D42544A3B544A3B0000011C14002D1E00' +
           '2D1E002D1E00000001302020544A3B544A3B544A3B564D42564D42' +
           '544A3B544A3B302020302020000001000001665E5E000001564D42' +
           '544A3B544A3B564D42564D42544A3B544A3B544A3B564D42564D42' +
           '0000011C14002D1E002D1E00000001302020302020544A3B544A3B' +
           '564D42564D42564D42544A3B4D4438544A3B564D42564D42302020' +
           '000001302020302020544A3B544A3B544A3B4D4438544A3B544A3B' +
           '544A3B544A3B0000011C14002D1E002D1E002D1E00000001302020' +
           '4D44384D4438544A3B544A3B564D42564D42564D42544A3B544A3B' +
           '544A3B544A3B544A3B564D42302020544A3B');
    PickHandle := 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' +
           '');
    PickHead := BitmapFromString(6, 5,
           '2E1F002E1F00352400000001483E33483E331D1400261A002E1F00' +
           '352400000001483E331D14001D1400261A002E1F00000001302020' +
           '000001000001000001000001302020302020302020302020302020' +
           '302020302020483E33');
    Orebmp := BitmapFromString(10, 10,
           '856C4B856C4B886E4D8B704F000001000001000001000001443827' +
           '584731856C4B886E4D000001000001302020302020000001382D1E' +
           '54442F68543B0000010000013020203020203020200000012D2518' +
           '483B296C573D6F593E302020302020302020544A3C544A3C000001' +
           '3D31225847316F593E725C40302020544A3C564D41544A3C564D41' +
           '0000014D3E2B6F593E755E43776044544A3C544A3C564D41564D41' +
           '564D41000001584731725C407760447A6346544A3C544A3C564D41' +
           '564D41564D41000001655239755E437A6346806748544A3C564D41' +
           '544A3C544A3C564D410000016F593E7A6346806748886E4D544A3C' +
           '544A3C544A3C4F4538544A3C544A3C000001000001000001000001' +
           '564D41564D41564D41544A3C4F4538544A3C564D41302020302020' +
           '302020');
    iLamp := BitmapFromString(17, 6,
           '000001000001000001000001BAB815B2B015AEAD15ABAA159C9A12' +
           '9291128C8A1275740E000001000001000001000001000001D0CE18' +
           'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A3A112' +
           '99971292911284820E79780E6968095C5A09A6A415CECC18C5C418' +
           'C2C118C0BE18BDBB18BAB815B8B615B5B315B2B015A8A715A3A112' +
           '9C9A129594128E8D1281800E999712AEAD15CECC18CBC918C0BE18' +
           'BDBB18BAB815B5B315B2B015AEAD15A8A715A3A1129F9E12999712' +
           '88860E84820E8C8A129291129C9A12000001CBC918CBC918BAB815' +
           'B8B615B5B315B2B015AEAD15A8A715A3A1129C9A1295941281800E' +
           '79780E84820E000001000001000001CBC918CBC918C0BE18B8B615' +
           'B2B015AEAD15ABAA15A6A4159F9E129997128C8A1279780E75740E' +
           '000001000001C2C118');
    BNorth := BitmapFromString(8, 11,
           '640000640000640000000001640000790E00640000640000640000' +
           '790E00640000640000790E003F00003F0000790E00790E003F0000' +
           '3F0000790E00851B003F00003F0000851B00851B003F00003F0000' +
           '3F0000790E003F00003F00009622009622003F00003F00003F0000' +
           '790E003F00003F00009622009622003F00003F0000790E003F0000' +
           '3F00003F00009622009622003F00003F00009622003F00003F0000' +
           '3F00009622009622003F00003F00009622009622003F00003F0000' +
           '9C36009C36003F00003F0000AB4601AB46013F00003F00009C3600' +
           'AB46013F00003F00009C3600AB4601AB4601AB4601AB4601AB4601' +
           'AB4601AB46010000019C3600BA5604BA5604BA5604');
    CloseWindow := BitmapFromString(43, 4,
           '494034808080808080494034494034494034494034808080808080' +
           '808080483E33483E33483E33808080808080483E33483E33463D32' +
           '483E33483E33483E33808080000000483E33483E33483E33483E33' +
           '808080000000483E33483E33000000494034808080808080808080' +
           '494034494034494034494034808080808080808080808080494034' +
           '000000808080494034494034808080494034000000000000000000' +
           '483E33808080483E33000000808080483E33463D32483E33483E33' +
           '483E33808080000000483E33808080483E33483E33808080000000' +
           '483E33808080483E33494034808080000000000000808080494034' +
           '494034808080494034000000808080808080000000494034808080' +
           '000000494034494034808080808080494034494034494034808080' +
           '808080808080483E33000000483E33483E33483E33483E33808080' +
           '000000483E33808080000000483E33808080000000483E33808080' +
           '000000483E33808080000000494034808080000000494034808080' +
           '000000494034808080808080000000494034808080000000494034' +
           '494034494034000000808080494034494034808080000000000000' +
           '000000494034483E33483E33483E33483E33483E33808080483E33' +
           '808080000000808080483E33000000483E33808080000000483E33' +
           '808080000000494034808080000000494034808080000000494034' +
           '808080');
    rcmQuickBank := BitmapFromString(16, 6,
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
           '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
           '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
           '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
           'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
           '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
           '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
           'FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000000005D5447' +
           'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
           '000000000000000000FFFFFFFFFFFFFFFFFF');
    rcmQuickBankY := BitmapFromString(17, 5,
           'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
           '000000000000000000000000FFFF00FFFF00FFFF00FFFF00FFFF00' +
           'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
           '000000000000FFFF00FFFF00000000000000000000FFFF00FFFF00' +
           '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
           '000000FFFF00FFFF00000000000000000000FFFF00FFFF00000000' +
           '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
           'FFFF00FFFF00000000000000000000FFFF00FFFF00000000000000' +
           'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
           'FFFF00000000000000000000');
    StoreAllY := BitmapFromString(15, 6,
            'FFFF00FFFF00000000000000000000FFFF00FFFF00000000000000' +
            'FFFF00FFFF00000000000000FFFF00FFFF00FFFF00FFFF00FFFF00' +
            'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00000000' +
            '000000FFFF00FFFF00FFFF00FFFF00000000000000000000FFFF00' +
            'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
            'FFFF00FFFF00000000000000000000FFFF00FFFF00000000000000' +
            'FFFF00FFFF00000000000000FFFF00FFFF00FFFF00FFFF00000000' +
            '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
            '000000FFFF00FFFF00FFFF00FFFF00000000000000000000FFFF00' +
            'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
            '');
    StoreAll := BitmapFromString(15, 6,
            'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000000000' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
            'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
            '000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
            'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF000000000000' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
            '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
            '000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
            '');
    end;
    
    begin
    BitMaps;
    ST:=GetSystemTime;
    LoadChars('')
    SetMouseMode(False);
    tempbank:=2842230;
    tempLadder:=875655;
    tempLadder2:=2316400;
    tripcount := 3; town2:= town;
    Loged:=false; Fixed:=True
    Pickmode:=Pick
    LoginIfNeeded;
    Chatfix;
    FindPickHeadColor(true);
    PutOn;
    if(ColorsFound=true)then
    begin
    If(FindColorSpiralTolerance(x,y,banklogo,574,8,722,160,Tolerance))Then ToRocks;
    repeat
    If(Loged)then break;
    DoMining;
    ToBank;
    trips:=trips+1
    PrintProgressReport;
    ToRocks;
    until(Loged);
    end;
    end.
    That script looks effing amazing.

  16. #41
    Join Date
    Jun 2007
    Location
    Mianus
    Posts
    863
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hobbit.. how old is Fawki? and what do u meen by when SRL was private?

  17. #42
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    I believe he is 44, well somewhere around there.
    SRL used to be a private community where you had to email Benland your application and they would poll it before you could even get access to the site. Wasn't even a domain yet, just IP. I think I still have the old IP address on my other computer.
    STOP PM'ING ME

  18. #43
    Join Date
    Apr 2006
    Posts
    710
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    From 2004:
    Code:
     program MeisterFighterScript;
    
    {
       =================================================
       MeisterFighter V1.3b - by Scarmeister
       =================================================
       INSTRUCTIONS: If you want to attack a monster
       that's not in the list then just fill in the
       MonsterColor in the boxes (use the colorpicker).
       It doesn't matter if you don't fill in all the
       boxes, one value is sufficient but more values
       will make you detect the monster faster.
    
       Make sure you have a sleeping bag in your
       inventory somewhere.
    
       IMPORTANT: Only works with Scar 1.11 or higher!
       =================================================
       FEATURES:
    
       - Easy select options using forms.
       - Sleeping, Autologon and Eating.
       - Fast detection of monsters.
       - Fast correction of wrong FightMode.
       - Anti-MissClicking feature added.
       - P2P Logon procedure added.
    
       UPDATES V1.2:
       - Login bug fixed (script can be started at any
         time now).
       - Multiple color detection added.
    
       UPDATES V1.3:
       - Smart Minimap searching for next monster if you
         come across someone who is fighting 'your'
         monster.
       - Anti AutoLike Behaviour added.
       - WaitTime tweaked for faster detection results.
       - Locked-In detection added with automatic door
         opening.
       - Choice to search percentage of MiniMap for
         monsters, buildings or dirt.
       UPDATES V1.3b
       - Choice between leftclick or rightclick attack
         added.
       - Choice between using minimap search only when
         another player is attacking your monster.
       =================================================
    }
    
    var
    form, self: TForm;
    Application: TApplication;
    
    UserLabel, PassLabel, MonsterLabel, FMode: TLabel;
    OtherMonsterLabel, ColorTwo, ColorThree: TLabel;
    LabelEat, LabelEatHits, F2P, LabelLockedIn: TLabel;
    TxtColorOne, TxtColorTwo, TxtColorThree: TEdit;
    TxtUserName, TxtPassWord, TxtEatHits: TEdit;
    TxtClickMode, DropList, FList, EatChoice, F2PDrop: TComboBox;
    LabelClickMode, LabelMiniMap2: TLabel;
    ButtonOK: TButton;
    
    TxtMiniMap, TxtPercentage, TxtObject, TxtLockedIn: TComboBox;
    LabelMiniMap, LabelPercentage, LabelObject: Tlabel;
    TxtMiniMap2: TCombobox;
    
    f, i, j, x, y, BagX, BagY, Attack, Mode, Lobster, Timer: integer;
    MonsterColor1, MonsterColor2, MonsterColor3: integer;
    UserName, PassWord, MonsterName, CurrentHits, Monster: string;
    ActualHp, EatHp, Eating, Server, ScarMeister, Cols, Look: integer;
    MiniSearch, LockedIn2, a, b, SObject: integer;
    FreeMonster, Click, SObjectName: string;
    
    procedure ButtonClick (sender: TObject);
    begin
          UserName:= TxtUserName.Text;
          PassWord:= TxtPassWord.Text;
    
          MonsterName:= DropList.Text;
          Monster:= DropList.Text;
          FreeMonster:= TxtMiniMap2.Text;
          Click:= TxtClickMode.Text;
          MonsterColor1:=  StrToInt (TxtColorOne.Text);
          MonsterColor2:=  StrToInt (TxtColorTwo.Text);
          MonsterColor3:=  StrToInt (TxtColorThree.Text);
          if (TxtMiniMap.Text = 'No') then
          begin
               MiniSearch:= 0;
          end;
          if (TxtMiniMap.Text = 'Yes') then
          begin
               MiniSearch:= 1;
          end;
          if (TxtLockedIn.Text = 'De-Activated') then
          begin
               LockedIn2:= 0;
               end;
          if (TxtLockedIn.Text = 'Activated') then
          begin
               LockedIn2:= 1;
          end;
          if (MonsterColor1 > 0) then
          begin
               Cols:= 1;
          end;
          if (MonsterColor2 > 0) then
          begin
               Cols:= 2;
          end;
          if (MonsterColor3 > 0) then
          begin
               Cols:= 3;
          end;
          if (FList.Text = 'Controlled') then
          begin
               Mode:= 1;
          end;
          if (FList.Text = 'Aggressive') then
          begin
               Mode:= 2;
          end;
          if (FList.Text = 'Attack') then
          begin
               Mode:= 3;
          end;
          if (FList.Text = 'Defensive') then
          begin
               Mode:= 4;
          end;
          if (EatChoice.Text = 'Yes') then
          begin
               Eating:= 1;
               EatHp:= StrToInt (TxtEatHits.Text);
          end;
          if (EatChoice.Text = 'No') then
          begin
               Eating:= 0;
          end;
          if (F2PDrop.Text = 'F2P') then
          begin
               Server:= 0;
          end;
          if (F2PDrop.Text = 'P2P') then
          begin
               Server:= 1;
          end;
          if (TxtPercentage.Text = '100%') then
          begin
               a:= 75; b:= 70;
          end;
          if (TxtPercentage.Text = '90%') then
          begin
               a:= 68; b:= 63;
          end;
          if (TxtPercentage.Text = '80%') then
          begin
               a:= 60; b:= 56;
          end;
          if (TxtPercentage.Text = '70%') then
          begin
               a:= 53; b:= 49;
          end;
          if (TxtPercentage.Text = '60%') then
          begin
               a:= 45; b:= 42;
          end;
          if (TxtPercentage.Text = '50%') then
          begin
               a:= 38; b:= 35;
          end;
          if (TxtObject.Text = 'Monster') then
          begin
               SObject:= 65535;
               SObjectName:= Monster;
          end;
          if (TxtObject.Text = 'Grey Floor') then
          begin
               SObject:= 4210752;
               SObjectName:= 'Grey Floor';
          end;
          if (TxtObject.Text = 'Brown Floor') then
          begin
               SObject:= 143460;
               SObjectName:= 'Brown Floor';
          end;
          if (TxtObject.Text = 'Yellow Dirt') then
          begin
               SObject:= 18520;
               SObjectName:= 'Yellow Dirt';
          end;
          if (TxtObject.Text = 'Brown Dirt') then
          begin
               SObject:= 12360;
               SObjectName:= 'Brown Dirt';
          end;
    end;
    
    procedure AddPicture;
    var
       Canvas: TCanvas;
    begin
       Canvas:= GetBitmapCanvas(ScarMeister);
       CopyCanvas(Canvas, Form.Canvas, 0, 0, 97, 40, 8, 236, 8+97, 236+40);
       CopyCanvas(Canvas, Form.Canvas, 0, 0, 97, 40, 329, 236, 329+97, 236+40);
    end;
    
    procedure FormPaint(Sender: TObject);
    begin
       AddPicture;
    end;
    
    procedure Initialise;
    begin
       Application:= GetApplication;
       Self:= GetSelf;
    
       Form:= TForm.Create(nil);
       Form.Width := 442;
       Form.Height := 310;
       Form.Position := poScreenCenter;
       Form.BorderStyle := bsDialog;
       Form.OnPaint:= @FormPaint;
       Form.Caption := 'MeisterFighter V1.3b - by Scarmeister';
    
       UserLabel := TLabel.Create(Form);
       UserLabel.Top := 12;
       UserLabel.Left := 8;
       UserLabel.Caption := 'Username:';
       UserLabel.Parent := Form;
    
       PassLabel := TLabel.Create(Form);
       PassLabel.Top := 40;
       PassLabel.Left := 8;
       PassLabel.Caption := 'Password:';
       PassLabel.Parent := Form;
    
       LabelEat := TLabel.Create(Form);
       LabelEat.Top := 68;
       LabelEat.Left := 8;
       LabelEat.Caption := 'Use eating:';
       LabelEat.Parent := Form;
    
       LabelEatHits := TLabel.Create(Form);
       LabelEatHits.Top := 96;
       LabelEatHits.Left := 8;
       LabelEatHits.Caption := 'Eat if Hits below:';
       LabelEatHits.Parent := Form;
    
       F2P := TLabel.Create(Form);
       F2P.Top := 124;
       F2P.Left := 8;
       F2P.Caption := 'Free or Members:';
       F2P.Parent := Form;
    
       LabelMiniMap := TLabel.Create(Form);
       LabelMiniMap.Top := 152;
       LabelMiniMap.Left := 8;
       LabelMiniMap.Caption := 'Use MiniMap Search:';
       LabelMiniMap.Parent := Form;
    
       LabelPercentage := TLabel.Create(Form);
       LabelPercentage.Top := 180;
       LabelPercentage.Left := 8;
       LabelPercentage.Caption := 'Search % of MiniMap:';
       LabelPercentage.Parent := Form;
    
       LabelClickMode := TLabel.Create(Form);
       LabelClickMode.Top := 208;
       LabelClickMode.Left := 8;
       LabelClickMode.Caption := 'Left/RightClick Attack:';
       LabelClickMode.Parent := Form;
    
       FMode := TLabel.Create(Form);
       Fmode.Top := 12;
       Fmode.Left := 200;
       Fmode.Caption := 'Choose FightMode:';
       Fmode.Parent := Form;
    
       MonsterLabel := TLabel.Create(Form);
       MonsterLabel.Top:= 40;
       MonsterLabel.Left := 200;
       MonsterLabel.Caption := 'Choose Monster:';
       MonsterLabel.Parent := Form;
    
       OtherMonsterLabel := TLabel.Create(Form);
       OtherMonsterLabel.Top:= 68;
       OtherMonsterLabel.Left := 200;
       OtherMonsterLabel.Caption := 'Edit MonsterColor #1:';
       OtherMonsterLabel.Parent := Form;
    
       ColorTwo := TLabel.Create(Form);
       ColorTwo.Top := 96;
       ColorTwo.Left := 200;
       ColorTwo.Caption := 'Edit MonsterColor #2:';
       ColorTwo.Parent := Form;
    
       ColorThree := TLabel.Create(Form);
       ColorThree.Top := 124;
       ColorThree.Left := 200;
       ColorThree.Caption := 'Edit MonsterColor #3:';
       ColorThree.Parent := Form;
    
       LabelObject := TLabel.Create(Form);
       LabelObject.Top := 152;
       LabelObject.Left := 200;
       LabelObject.Caption := 'Object on MiniMap:';
       LabelObject.Parent := Form;
    
       LabelLockedIn := TLabel.Create(Form);
       LabelLockedIn.Top := 180;
       LabelLockedIn.Left := 200;
       LabelLockedIn.Caption := 'Locked-in Detection:';
       LabelLockedIn.Parent := Form;
    
       LabelMiniMap2 := TLabel.Create(Form);
       LabelMiniMap2.Top := 208;
       LabelMiniMap2.Left := 200;
       LabelMiniMap2.Caption := 'Find Free Monster:';
       LabelMiniMap2.Parent := Form;
    
       TxtUserName := TEdit.Create(Form);
       TxtUserName.Top := 10;
       TxtUserName.Left := 64;
       TxtUserName.Width := 120;
       TxtUserName.Parent := Form;
    
       TxtPassWord := TEdit.Create(Form);
       TxtPassWord.Top := 38;
       TxtPassWord.Left := 64;
       TxtPassWord.Width := 120;
       TxtPassWord.PasswordChar:= '*';
       TxtPassWord.Parent := Form;
    
       EatChoice:= TComboBox.Create(form);
       EatChoice.Top:= 66;
       EatChoice.Left:= 96;
       EatChoice.Width:= 88;
       EatChoice.Parent:=Form;
       EatChoice.DropDownCount:= 2;
       EatChoice.Items.Add ('No');
       EatChoice.Items.Add ('Yes');
       EatChoice.ItemIndex:= 0;
    
       TxtEatHits := TEdit.Create(Form);
       TxtEatHits.Top := 94;
       TxtEatHits.Left := 96;
       TxtEatHits.Width := 88;
       TxtEatHits.Parent := Form;
    
       F2PDrop:= TComboBox.Create(form);
       F2PDrop.Top:= 122;
       F2PDrop.Left:= 96;
       F2PDrop.Width:= 88;
       F2PDrop.Parent:=Form;
       F2PDrop.DropDownCount:= 2;
       F2PDrop.Items.Add ('F2P');
       F2PDrop.Items.Add ('P2P');
       F2PDrop.ItemIndex:= 0;
    
       TxtMiniMap:= TComboBox.Create(form);
       TxtMiniMap.Top:= 150;
       TxtMiniMap.Left:= 120;
       TxtMiniMap.Width:= 64;
       TxtMiniMap.Parent:=Form;
       TxtMiniMap.DropDownCount:= 2;
       TxtMiniMap.Items.Add ('No');
       TxtMiniMap.Items.Add ('Yes');
       TxtMiniMap.ItemIndex:= 0;
    
       TxtPercentage:= TComboBox.Create(form);
       TxtPercentage.Top:= 178;
       TxtPercentage.Left:= 120;
       TxtPercentage.Width:= 64;
       TxtPercentage.Parent:=Form;
       TxtPercentage.DropDownCount:= 6;
       TxtPercentage.Items.Add ('100%');
       TxtPercentage.Items.Add ('90%');
       TxtPercentage.Items.Add ('80%');
       TxtPercentage.Items.Add ('70%');
       TxtPercentage.Items.Add ('60%');
       TxtPercentage.Items.Add ('50%');
       TxtPercentage.ItemIndex:= 0;
    
       TxtClickMode:= TComboBox.Create(form);
       TxtClickMode.Top:= 206;
       TxtClickMode.Left:= 120;
       TxtClickMode.Width:= 64;
       TxtClickMode.Parent:=Form;
       TxtClickMode.DropDownCount:= 2;
       TxtClickMode.Items.Add ('Right');
       TxtClickMode.Items.Add ('Left');
       TxtClickMode.ItemIndex:= 0;
    
       FList:= TComboBox.Create(form);
       FList.Top:= 10;
       FList.Left:= 306;
       FList.Width:= 120;
       FList.Parent:= Form;
       FList.DropDownCount:= 4;
       FList.Items.Add ('Aggressive');
       FList.Items.Add ('Attack');
       FList.Items.Add ('Defensive');
       FList.Items.Add ('Controlled');
       FList.ItemIndex:= 0;
    
       DropList:= TComboBox.Create(form);
       DropList.Top:= 38;
       DropList.Left:= 306;
       DropList.Width:= 120;
       DropList.Parent:= Form;
       DropList.DropDownCount:= 29;
       DropList.Items.Add ('Other Monster');
       DropList.Items.Add ('Barbarian');
       DropList.Items.Add ('Bear');
       DropList.Items.Add ('Black Knight');
       DropList.Items.Add ('Chicken');
       DropList.Items.Add ('Cow');
       DropList.Items.Add ('Darkwizard');
       DropList.Items.Add ('Deadly Red Spider');
       DropList.Items.Add ('Dwarf');
       DropList.Items.Add ('Ghost');
       DropList.Items.Add ('Giant');
       DropList.Items.Add ('Giant Spider');
       DropList.Items.Add ('Goblin');
       DropList.Items.Add ('Guard');
       DropList.Items.Add ('Hobgoblin');
       DropList.Items.Add ('Ice Giant');
       DropList.Items.Add ('Ice Warrior');
       DropList.Items.Add ('Lesser Demon');
       DropList.Items.Add ('Moss Giant');
       DropList.Items.Add ('Mugger');
       DropList.Items.Add ('Pirate');
       DropList.Items.Add ('Rat');
       DropList.Items.Add ('Scorpion');
       DropList.Items.Add ('Skeleton');
       DropList.Items.Add ('Unicorn');
       DropList.Items.Add ('Warrior');
       DropList.Items.Add ('White Knight');
       DropList.Items.Add ('Wizard');
       DropList.Items.Add ('Zombie');
       DropList.ItemIndex:= 0;
    
       TxtColorOne := TEdit.Create(Form);
       TxtColorOne.Top := 66;
       TxtColorOne.Left := 306;
       TxtColorOne.Width := 120;
       TxtColorOne.Parent := Form;
    
       TxtColorTwo := TEdit.Create(Form);
       TxtColorTwo.Top := 94;
       TxtColorTwo.Left := 306;
       TxtColorTwo.Width := 120;
       TxtColorTwo.Parent := Form;
    
       TxtColorThree := TEdit.Create(Form);
       TxtColorThree.Top := 122;
       TxtColorThree.Left := 306;
       TxtColorThree.Width := 120;
       TxtColorThree.Parent := Form;
    
       TxtObject:= TComboBox.Create(form);
       TxtObject.Top:= 150;
       TxtObject.Left:= 306;
       TxtObject.Width:= 120;
       TxtObject.Parent:= Form;
       TxtObject.DropDownCount:= 5;
       TxtObject.Items.Add ('Monster');
       TxtObject.Items.Add ('Grey Floor');
       TxtObject.Items.Add ('Brown Floor');
       TxtObject.Items.Add ('Yellow Dirt');
       TxtObject.Items.Add ('Brown Dirt');
       TxtObject.ItemIndex:= 0;
    
       TxtLockedIn:= TComboBox.Create(form);
       TxtLockedIn.Top:= 178;
       TxtLockedIn.Left:= 306;
       TxtLockedIn.Width:= 120;
       TxtLockedIn.Parent:= Form;
       TxtLockedIn.DropDownCount:= 2;
       TxtLockedIn.Items.Add ('De-Activated');
       TxtLockedIn.Items.Add ('Activated');
       TxtLockedIn.ItemIndex:= 0;
    
       TxtMiniMap2:= TComboBox.Create(form);
       TxtMiniMap2.Top:= 206;
       TxtMiniMap2.Left:= 306;
       TxtMiniMap2.Width:= 120;
       TxtMiniMap2.Parent:= Form;
       TxtMiniMap2.DropDownCount:= 2;
       TxtMiniMap2.Items.Add ('De-Activated');
       TxtMiniMap2.Items.Add ('Activated');
       TxtMiniMap2.Hint:= ('If you Activate this, also set the Search % of the MiniMap.');
       TxtMiniMap2.ShowHint:= true;
       TxtMiniMap2.ItemIndex:= 0;
    
       ButtonOK := TButton.Create(Form);
       ButtonOK.Left := 147;
       ButtonOK.Top := 252;
       ButtonOK.Width := 136;
       ButtonOK.Height := 24;
       ButtonOK.Caption := '- Start -';
    
       ButtonOK.OnClick := @ButtonClick;
       ButtonOK.Parent := Form;
       ButtonOK.ModalResult:= mrOk;
       ButtonOK.Default := False;
    
       Form.ShowModal;
       Form.Free;
    end;
    
    procedure BitMapInitialise;
    begin
            Attack := BitmapFromString(15, 9,
            '000000000000FFFFFFFFFFFFFFFFFF0000000000000000000 00000' +
            'FFFFFF000000000000000000FFFFFF000000000000000000F FFFFF' +
            'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF0000000 00000' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFF FFFFF' +
            '000000000000FFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFF FFFFF' +
            '000000FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000F FFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
            '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000FFFFFFF FFFFF' +
            '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
            'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000F FFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF0 00000' +
            '000000000000FFFFFFFFFFFF000000FFFFFFFFFFFF0000000 00000' +
            'FFFFFFFFFFFF000000FFFFFFFFFFFF000000000000000000F FFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
            '');
    
            Lobster := BitmapFromString(19, 13,
            '8E4D008E4D000000000000000000000000000000000000000 00000' +
            '0000000000000000000000000000000000000000000000000 00000' +
            '0000007F4500AD5E007F45005C32000000000000000000000 00000' +
            '0000000000000000000000000000000000000000000000000 00000' +
            '000000000000AD5E005C32004D2A007F45008E4D000000000 00000' +
            '0000000000000000000000000000000000000000000000000 00000' +
            '00000000000000000000000045372C5C3200703D007F45000 00000' +
            '0000000000000000000000000000000000000000000000000 00000' +
            '0000000000000000000000000000000000005C32005C32007 03D00' +
            '703D005C32000000000000000000000000000000000000000 00000' +
            '0000000000000000000000000000000000000000000000005 C3200' +
            '5C32004D2A00703D008E4D008E4D008E4D00703D00703D007 03D00' +
            '0000000000000000000000000000000000000000000000000 00000' +
            '0000000000005C3200703D007F45007F4500AD5E00AD5E008 E4D00' +
            '9E56009E56008E4D009E56009E56000000000000000000000 00000' +
            '0000000000000000000000005C32005C3200AD5E007F45008 E4D00' +
            '9E56009E56009E5600703D008E4D009E56009E56000000000 00000' +
            '00000000000000000000000000000000000045372C703D007 F4500' +
            '8E4D008E4D008E4D009E56008E4D00703D008E4D008E4D004 5372C' +
            '0000000000000000000000000000000000000000000000007 03D00' +
            '7F45008E4D008E4D00703D008E4D009E56008E4D00703D008 E4D00' +
            '7F45000000000000000000000000000000000000000000000 00000' +
            '7F45007F45008E4D008E4D008E4D00703D008E4D009E56008 E4D00' +
            '45372C0000000000000000000000000000000000000000000 00000' +
            '0000000000007F45005C32008E4D009E56008E4D00703D008 E4D00' +
            '7F45000000000000000000000000000000000000000000000 00000' +
            '0000000000000000000000008E4D00703D008E4D008E4D007 03D00' +
            '7F4500000000000000000000');
    
            ScarMeister:= BitmapFromString(97, 40,
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C27C819563566A5 C506D' +
            '5E5D69C2C2C2C2C2C2C2C2C2C2C2C2C2C2C27473826E5E5A7 96686' +
            '95718B6E5E5A948F95C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C26 46785' +
            '312E400302053A3C500302050302055E5D69C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C25C506D3E1645571784482A8663566A6 3566A' +
            'C2C2C2C2C2C2C2C2C27473826E1E5E8C2F97A133C19D3DB39 25E8E' +
            '95718B948F95C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2A6A1B2312E401F1E2D04020E0 C0622' +
            '4C347F0C06220C06220E050A52566FC2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            '6D5B88451A824C0D728177B6A594D22C0C374B4343C2C2C2C 2C2C2' +
            'C2C2C2572486661A87A26CBBD2ACD4BAA4DA835EA4785284A 6A1B2' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C21F1E2D1F1E2D1F1E2D646785A2B5EED6DEFED 1D4FA' +
            '948F951609332213155E5D69C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2816AA65 72486' +
            '9298C3B4BDF38997BF16084C6B5291C2C2C2C2C2C299979C3 E1467' +
            '410C69D1C5F2D1D4FAA3A3D74D3D62512F5F99979CC0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C23 12E40' +
            '0302051F1E2D9BACE0AAB5EB3634470302056B6E86CDD6F69 397AF' +
            '0302054B4343C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2653C92572486A3A3D7A 2B5EE' +
            '828CB91609335C506DC2C2C2C2C2C270629D38187C56428BD FD9FA' +
            'D1C5F25C506D20091A4D3D62A6A1B2C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C252566F0302050302058 997BF' +
            '92A2D11F1E2D03020523142D040222D6DEFECECED00E050A2 21315' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C24C347F1D0747A3A3D7AAB5EB828CB91 20635' +
            '524A76C2C2C2C2C2C236223838187C9185ABD1D4FAC0CEFA3 02238' +
            '2A0A69968899C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C07 47382' +
            '5E26624618441F0931362238C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2030205030205948F95C0CEFA6467850 30205' +
            '23142D04020E100518CDD6F6E5E4FA030205B7A1B1C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C23E14672A0A69A3A3D7B4BDF3828CB91206355C506DC 2C2C2' +
            'A297C62A0A692A0A69B4BDF3D6CCFAB4C7FA100518370C48C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C06D5B885717849D4BC59 562B1' +
            '5E2A8A531E683D273CC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            '6B6E860302051F1E2DD6DEFED6DEFE03020503020552566F1 60933' +
            '484457BEC5EAB6B6D9030205FBF6FDC2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C299979C2 A0A69' +
            '451A829BACE0B5C6F28084B00C054516084CC2C2C25253852 A0A69' +
            '56428BADBEF2BDC6FAA3A3D70C0622281264C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0623284752EA1D0BBE8E5E4FADEDAEE2 80849' +
            '571784C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2312E400 30205' +
            '727697D1CDEAA6ACD3030205030205030205050318948F95D FE6FE' +
            '99979C6E5E5AE9DFDEC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C28A8592320B6E614E89C 4CAF2' +
            '9BACE0A2B5EE0C054516084CC2C2C216084C26147A918CCAA EB4E4' +
            'A2B5EE828CB9120635363447C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'A398AA5E2A8A623284EADCF2EDEBFBE5E4FA1005181F0931C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0D2C8CAF7F2FDC A77BE' +
            '72425A99979CC0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2030205030205B2B2CAC DD6F6' +
            '5E5D69030205484457030205030205CDD6F6D1DBFA5E5D69C 0B9D3' +
            'A6A1B2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2947EAB0803319772B2FBF6FDD6DEFEA 5BEF4' +
            '0C06220E095C928DA91E0A651E0A65C0CEFAB4C7FAAAB5EB6 46785' +
            '16084C524A76C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0A6A1B26 53C92' +
            '645A96DBD7F6E0E0FEB2B2CA0402225C18A0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0DA9AAEF5B3F1F4CFECCA77BE6 E1E5E' +
            'C0B2B2C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C 2C2C2' +
            'C2C2C2C2C2C299979C03020504020EDBD7F6DFE6FE5E5D690 30205' +
            '7C81950302051F1E2DB5C6F29397AF4A4E6622131599979CC 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2A48CAC1D07479298C3FBF6FDDFE6FEC7CCF60C06220 E095C' +
            '524A760E095C64689BBAC7F6C2CCFEB4C7FA52566F0C06226 B6E86' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0A398AA8242B856428BC 0CEFA' +
            'CDD6F63A3C501F0931484457C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            '95718B752EA1752EA1925E8EFAE1F0461844461844C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C 0C0C0' +
            'C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C 2C2C2' +
            '7C81950302053A3C50DFE6FEEDEBFB5E5D690302058A85920 E050A' +
            '0E050A4B43434B43436E5E5A363447C2C2C2C2C2C27C81957 C8195' +
            '8A8592C2C2C2C2C2C2C2C2C2C2C2C299979C99979C948F95C 2C2C2' +
            'C2C2C2C2C2C28A8592C0B2B2C2C2C2C2C2C299979CA398AAB 179CE' +
            '280849B2B2CAEDEBFBEDEBFBCDD6F60C06220E095C0E095C1 00754' +
            '9298C3B4C7FAC2CCFECDD6F624203F1206358A859252566F4 A4E66' +
            '4A4E66484457B1ADCBA6A1B2653C92653C924844571F1E2D0 E050A' +
            '6F2F81A6A1B299979CA6A1B299979CA6A1B2C0C0C07852848 61CBA' +
            'BF8ACADFD1FAD0BBE8370C486E1E5EC0C0C0CECED0E9DFDEC ECED0' +
            'A48CAC8A8592C0C0C099979C99979CA6A1B299979C99979C9 9979C' +
            '99979CC0C0C0C0C0C0C2C2C2C2C2C2C2C2C2C2C2C27C81950 E050A' +
            '52566FDFE6FEEDEBFB5E5D690302058A859299979C6E5E5AF BF6FD' +
            'F7F2FD363447C2C2C28A859216071023142D1609332213152 A2131' +
            'C2C2C2CECED0FEFDFE9547883612251607100302056E5E5A6 3566A' +
            '785284FAE1F0E7CEDF785284370C481F0931653C9225134AD 6DEFE' +
            'E0E0FED6DEFECDD6F60302050E095C0E095C100754B4BDF3B 4BDF3' +
            'C0CEFACDD6F60503180C054524203F0E095C1E0A651E0A651 E0A65' +
            '2C1E4D796686451A828242B8975DD2531E68410C69A48CAC5 72486' +
            '9D3DB3BE50D2A133C16E1E5EA48CAC5C18A05C18A0A3A3D7D FD9FA' +
            'A6A1B2461844954788A48CACFEFDFEFEFDFEFEFDFEFAE1F0C A62B6' +
            '948F953E164551145D1406210C06220503180503180302055 2566F' +
            'C0C0C0C2C2C2C2C2C2C2C2C2C2C2C27C81950E050A52566FC DD6F6' +
            'E0E0FE6467850302054B4343C2C2C2CECED0C2C2C2C2C2C2C 2C2C2' +
            '8A85920302051F0931482A866D5B883D273C361225D6B9C2F EFDFE' +
            'FAE1F0925E8E6E5E5A3D27651206350C054538187CA26CBBF CEDFA' +
            'E6C2EAB16CBD410C6961436C5E2A8A835EA4E0E0FED1D4FAC DD6F6' +
            'CDD6F604020E0C05450E095C5F5B7DADBEF2AAB5EBC0CEFA9 2A2D1' +
            '04020E0C05450E095C0E095C828CB992A2D128206416084C3 20B6E' +
            '2A0A69975DD2C78DE9A14EA56232845717849D4BC5AF5CCBD 684E3' +
            'AF5CCB680E8C680E8C680E8C5C18A0DFD1FADBD7F67966863 E1645' +
            'A2739BFAC2F6FEFDFEFEFDFEFCEDFAFCEDFAF4CFECFEFDFEF CEDFA' +
            'A14EA5653C923E1467320B6E614E891007540C06225E5D69C 2C2C2' +
            'C2C2C2C2C2C2C2C2C27C81950302053A3C50D1DBFAD6DEFEC 2C2C2' +
            '030205C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C20C06222 3142D' +
            '5F5B7DCFD8FEDEDAEECECED0361225FEFDFEFEFDFEB888A7D 1C5F2' +
            'A297C6BDC6FA8177B60C0545320B6EBAA4DAEEE3FEEEE3FEF BD5FE' +
            'BAA4DAD1D4FA4D3D62E7CEDFDFD9FAB6B6D9E0E0FEDFE6FE0 4020E' +
            '0C05450C0545A2A1C6ADBEF2A6ACD3D1CDEA9298C30402220 E095C' +
            '282064B4BDF3CACCFAC7CCF69BACE00C054538187C947EABD 6CCFA' +
            'D1C5F26F2F818C2F97701C8CD684E3F7F2FDFCEDFAEADCF29 562B1' +
            '680E8C861CBA680E8CD6CCFAD1CDEA835EA451145DCA77BEF EFDFE' +
            'FEFDFEFEFDFEFCEDFAD2C8CA4D3D62BE50D2FEFDFEFBF6FDB 5C6F2' +
            '451A82525385B4BDF37C81950503181F1E2DC2C2C2C2C2C2C 2C2C2' +
            'C2C2C299979C030205030205D6DEFEDFE6FECDD6F6C0B2B2F EFDFE' +
            'C2C2C2C2C2C2C2C2C2C2C2C2363447030205312E40D6DEFED 1CDEA' +
            '747382D1D4FA968899FEFDFEE7CEDFD1DBFA6B6E8604020EC 0CEFA' +
            'B5C6F2525385423A82AAB5EBBEC5F2DBD7F6F4CFECEEE3FEB 4BDF3' +
            '9185AB645A96FBF6FDA3A3D7EDEBFBDFE6FE04020E0C05450 80331' +
            'CDD6F6828CB9C7CCF6CACCFA52566F0402220E095C92A2D1B EC5F2' +
            '1F1E2D92A2D1AEB4E4524A76451A82BEBBEFBDC6FAADBEF22 80849' +
            'BE50D29562B1EEE3FEBEB2C20E050AD1C5F2E9DFDE680E8CA 133C1' +
            'C78DE9DED8FEDFD1FA947EAB72425AF5B3F1FEFDFEFEFDFE7 47382' +
            '968899E0CEE2A398AA9D3DB3D0BBE8EADCF2FEFDFED0BBE8A 6ACD3' +
            'A5BEF4A2B5EE0C0622050318C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            '030205030205BACAE6FEFDFEFEFDFE948F952213155E5D69C 2C2C2' +
            'C2C2C299979C040222160933A6ACD3CFD8FE3A3C50120508D BD7F6' +
            'E7CEDFFEFDFEDAC9D2BEBBEF04020E2C1E4DC0CEFABDC6FA8 28CB9' +
            '92A2D164689BA2B5EEADBEF2D1C5F2F7D7F6BEBBEF828CB99 298C3' +
            'EADCF2A6ACD3D6DEFECDD6F60402220C0545525385C0CEFA6 4689B' +
            'CFD8FEB4C7FA52566F0C0545423A82C0CEFA6B6E860803318 28CB9' +
            'ADBEF2645A96828CB9A3A3D7C5C2F6A6ACD3512F5FAF5CCBE 7CEDF' +
            'EEE3FE0E050A410C69D0BBE8EDEBFB2A0A69A383B4D0BBE8D FD1FA' +
            'D1D4FAA6A1B295718BFAE1F0FEFDFEDAC9D25E2662B888A7D FD1FA' +
            'A297C6A383B4BF8ACAD1C5F2BEBBEFDFD9FAD0BBE8BEC5EAA 5BEF4' +
            '050318030205C2C2C2C2C2C2C2C2C2C2C2C2C2C2C23D273C3 D273C' +
            'EDEBFBFEFDFEFBF6FD99979C030205030205C2C2C2C2C2C24 84457' +
            '0C06224A4E66C7CCF6AEB4E40E050A542C38EEE3FEF7F2FDF CEDFA' +
            'BEC5EA6467850C062252566FC2CCFEC0CEFA1F1E2D6467858 177B6' +
            'ADBEF2ADBEF264689BBEB2C2B4BDF364689B92A2D1B2B2CAA 2A1C6' +
            'C0CEFAA6ACD304020E0C05458997BFADBEF252566FA5BEF4A DBEF2' +
            '05031808033192A2D1A5BEF41F1E2D0803319298C3BAC7F65 25385' +
            '918CCA645A96CACCFAB4BDF36F2F81B179CEFCEDFAC2C2C23 70C48' +
            '571784FBF6FDEDEBFB140621661A87D6B9C2EADCF2B1ADCB2 21315' +
            'FAE1F0FEFDFEFEFDFE8A8592824184BF8ACAEADCF2A297C64 84457' +
            'A383B4D1D4FAC0CEFAA2A1C67C6EABCDD6F692A2D10302050 40222' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2968899EDEBFBE9DFDED 6DEFE' +
            'F7F2FDEDEBFB0E050A0E050A6B6E86C2C2C20C06220C0622A 6ACD3' +
            'C0CEFA74738222131595718BDBD7F6DAC9D2DEDAEEB4BDF31 F1E2D' +
            '0C06228084B0B4C7FAB4BDF304020E040222828CB9B4BDF3A DBEF2' +
            '1F1E2D5C506D777EA91F0931B4BDF382769EA3A3D7ADBEF28 28CB9' +
            '0402220C0545B4C7FA777EA9777EA9A2B5EE9BACE00803312 82064' +
            'A5BEF49BACE00402220C0545928DC0B5C6F252566F1D07479 185AB' +
            'DFD1FAB6B6D98242B8BAA4DAE5E4FA706684661A879772B2E DEBFB' +
            'C0B9D320091A98368AE6C2EAFEFDFEC0B9D3CEB4D0FEFDFEF EFDFE' +
            'DBD7F6362238954788B16CBDDFD9FAA2A1C63E1467835EA4D 1C5F2' +
            'BACAE66467851F1E2DA6ACD324203F23142D3A3C50C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C299979CFEFDFE63566AC2C2C2DFE6FEE 5E4FA' +
            '7473820302053022388A8592120508120508E0E0FEE0E0FE9 48F95' +
            'D2C8CAD2C8CADAC9D2FAE1F0EDEBFBBEC5EA0302050C06228 997BF' +
            'B4BDF392A2D104020E0803319BACE0ADBEF292A2D10503186 F2F81' +
            '531E682C1E4DADBEF2614E89EEE3FEB5C6F28997BF0402225 2566F' +
            'B4C7FA3A3565828CB9B4C7FA828CB90C05456E7E97ADBEF26 46785' +
            '0402220C05459298C3B4BDF33A3C502A0A69BAA4DAEEE3FEB FADE1' +
            'B16CBDBFADE1D6CCFA796686861CBAB79ABFE0E0FE7473822 C0C37' +
            'FBD5FEFEFDFEFBF6FD968899F7F2FDFAC2F6DFD1FAA2A1C63 61225' +
            '571784A26CBBDFD1FA928DC06C228AA383B4CACCFAC0CEFA3 12E40' +
            '2C1E4D7966863D273C363447C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2EDEBFB0E050A484457CDD6F6DFE6FED1CDEA1 20508' +
            '2213154B434320091A6E5E5AFEFDFEF7F2FD6E5E5AD6B9C2C A9EAA' +
            'FEFDFED6CDD8E0E0FE9397AF03020504020EB4BDF3B4C7FA8 997BF' +
            '040222080331B4C7FAA5BEF47276970E050A835EA4D684E36 B5291' +
            'ADBEF2080331BEC5F2EDEBFB828CB90C0545828CB99BACE00 80331' +
            '9BACE0C0CEFA6E7E970C05459BACE0A2B5EE3A3C500C05450 E095C' +
            'C5C2F6B4BDF30402221E0A65E0E0FEE5E4FA9185ABD684E3D DD2FE' +
            'DDD2FE6D5B88701C8CB79ABFCDD6F6302238DA9AAEFBF6FDF EFDFE' +
            'EDEBFB63566A98368ABAA4DAE5E4FA8084B03E1467410C69A 297C6' +
            'D1D4FA4D3D62752EA1BAA4DADDD2FEAEB4E4120508370C48B EB2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'CECED0160710030205B1ADCBEDEBFBFBF6FDC0B2B2F7F2FDF CEDFA' +
            'B888A7FEFDFEFEFDFEC2C2C2120508120508F7D7F6FAE1F09 9979C' +
            'C0CEFA4E526E04020E04020EBDC6FAB4C7FA52566F0402223 A3C50' +
            'B4BDF3ADBEF2312E4005031861436C6F2F81947EABA2B5EE1 D0747' +
            'A5BEF4BDC6FAB2B2CA040222A2B5EE6E7E97080331A5BEF4A 5BEF4' +
            '525385282064A2B5EEA5BEF404022210075456428BD1DBFA7 C8195' +
            '1D0747280849E0E0FEEADCF2796686D684E3F7F2FDDFD9FA8 2769E' +
            '6E1E5E2C0C373D273C542C38FEFDFEFEFDFEFCEDFAD6DEFE1 00518' +
            '571784E0CEE2E0E0FE5F5B7D410C6951145DBEBBEFB4BDF31 00518' +
            '4C0D72BEBBEFD1D4FA9185AB10051823142DC2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C24 B4343' +
            '16071099979CFEFDFEFEFDFEFBF6FDD6CDD8FEFDFEFEFDFEF EFDFE' +
            'DFD9FA948F9503020595718B362238D2ACD4EDEBFBD1D4FA3 A3C50' +
            '0402223A3C50B5C6F2B5C6F24E526E080331525385ADBEF2A 2B5EE' +
            '04020E1206352C1E4D320B6EBAA4DA8084B0080331ADBEF2A 5BEF4' +
            'CACCFA7C6EABADBEF23A3C50525385A5BEF4A5BEF43A35655 25385' +
            'A2B5EE92A2D10402221E0A65A3A3D7D1DBFA1F1E2D2A0A696 D5B88' +
            'DED8FED6DEFE312E40B179CEF7F2FDEEE3FEB79ABF6F2F819 8368A' +
            'BF8ACAF4CFECFEFDFEFEDFFAE0E0FEBFADE13E1645571784E 0E0FE' +
            'C7CCF63D273C6B179F9562B1D4C8F66B6E86280849661A87D ED8FE' +
            'D1D4FA63566A100518796686C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2CECED0FEFDFEE 9DFDE' +
            'F7F2FDD6DEFEE0E0FE4B434336122572425AC7CCF6C0CEFA5 E5D69' +
            '61436C96889920091A362238CDD6F6CDD6F604020E0503185 2566F' +
            'A5BEF4A2B5EE04020E040222777EA9B4C7FA92A2D104020E1 20635' +
            '1D0747451A82AEB4E4777EA9080331A5BEF4ADBEF29298C3D FD9FA' +
            'A2B5EE0402224E526EA5BEF4A5BEF4080331828CB9A2B5EE8 28CB9' +
            '0C05454A3E8AC7CCF66B6E86100518320B6E7B529EE0E0FEE 0E0FE' +
            '2C0C37B16CBDE0CEE2EEE3FEEADCF282418498368AE6C2EAE DEBFB' +
            'FEFDFEE6C2EADDD2FEA398AA571784835EA4D0BBE8BEC5F25 31E68' +
            '6B179FD1C5F2A3A3D704020E410C697B529ED6CCFAC7CCF63 02238' +
            '1406218A8592C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2E9DFDE4B43437C8195D 1D4FA' +
            'DEDAEE928DA912050863566AC7CCF6EDEBFB2213150E050A6 3566A' +
            '12050852566FBAC7F6BEC5EA23142D0402229298C3B4BDF3A 2B5EE' +
            '04020E0803318997BFADBEF2828CB904020E3D27651D07472 A0A69' +
            'BAC7F6524A760C0545A5BEF4ADBEF2828CB9BEC5F2A6ACD30 40222' +
            '828CB9A5BEF49BACE00E095C9BACE0A2B5EE64689B2A2672A EB4E4' +
            '9298C30503181D07472A0A69A3A3D7E0E0FEC0B9D325134AA 14EA5' +
            'D2ACD4EDEBFBEDEBFBA383B46E1E5EFAE1F0FBF6FDFCEDFAD 0BBE8' +
            'DBD7F65E5D69680E8CAC94DCDBD7F6AEB4E46B179FBAA4DAB EBBEF' +
            '2A21311F0931410C697B529ED0BBE8BEC5F220091A370C48C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C0B2B2747382120508030205C7CCF6D1DBFAA 2A1C6' +
            '1205087C8195DED8FED6DEFE0302050302054B43430E050A8 A8592' +
            'B4BDF3A6ACD303020504020E8997BFA5BEF4828CB904020E0 40222' +
            'B4C7FAADBEF26467850402224844572A0A6956428BC0CEFA3 A3C50' +
            '080331AAB5EBA2B5EEA2B5EEB4C7FA727697120635828CB9A 5BEF4' +
            '8997BF282064ADBEF2A2B5EE64689B9BACE092A2D11F1E2D1 20635' +
            '2A0A692A0A69A2A1C6D1C5F29298C33E1645824184A26CBBD EDAEE' +
            'EEE3FED6CDD8954788FEFDFEFEFDFEFAC2F6E7CEDFD6CCFA7 06684' +
            '4C0D72BEBBEFDFD1FABAA4DABAA4DAB6B6D952566F3622386 C228A' +
            '680E8CA594D2C5C2F6A3A3D72C0C3751145DC2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C20E050A030205A6A1B2CDD6F6CDD6F6030205C 0B9D3' +
            'EDEBFBA2A1C610051805031804020E140621828CB99BACE0A 2A1C6' +
            '04020E080331A5BEF4A2B5EE6E7E97040222040222ADBEF2A 5BEF4' +
            '52566F040222645A96080331645A96BAC7F60402220C0545A 5BEF4' +
            'A5BEF4A2B5EEA5BEF42C1E4D56428BADBEF2ADBEF264689B5 25385' +
            'A5BEF4A2B5EEADBEF2828CB904020E23142D482A86320B6E2 A0A69' +
            'BEBBEFAAB5EB5F5B7D5E26628C2F97954788CEB4D0DEDAEED FD1FA' +
            'CA9EAAFEFDFEFEFDFEB16CBDEDEBFBE0E0FE1406214C0D72D FD1FA' +
            'D1DBFACDD6F6A2B5EE23142D2C1E4D6F2F816C228A752EA1A C94DC' +
            'BEBBEF9397AF3E164572425AC2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            '4B43430302056B6E86D1CDEACDD6F6A383B4DFE6FEE0E0FEA 6ACD3' +
            '03020548445705031804020EB5C6F2C4CAF24E526E04020E2 4203F' +
            'B5C6F2C0CEFA4E526E040222525385B5C6F2ADBEF21F1E2D0 4020E' +
            '4D3D62080331777EA9A3A3D70402220C0545A2B5EEA2B5EEA 2B5EE' +
            '828CB93D2765BFADE1ADBEF2B4C7FA52538564689BA2B5EEA 2B5EE' +
            '36344704020E0C0622493D799185AB320B6E451A82BEBBEFA AB5EB' +
            '524A76824184925E8E954788B888A7DFD9FADFD9FADFD1FAF 7D7F6' +
            'FEDEFEA26CBBEEE3FED1CDEA2808495E2A8AD4C8F6D1D4FA7 C8195' +
            '0302051F09315E2662948F95701C8C661A87DFD9FAC4CAF26 B6E86' +
            '461844925E8EC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'CECED0948F958A8592C2C2C2C2C2C2C2C2C2C2C2C27473820 40222' +
            '5E5D69C7CCF6CACCFA9185ABD6DEFECDD6F652566F0302053 A3C50' +
            '050318030205E0E0FEB5C6F24A4E6608033152566FB4C7FAC 0CEFA' +
            '3A3C5004022252566FB4BDF3B5C6F204020E0803310803310 80331' +
            '828CB9828CB90402220C0545A2B5EEA5BEF4A5BEF44A4E662 5134A' +
            'EADCF2B5C6F2ADBEF21F1E2D8997BFA5BEF492A2D10402220 C0545' +
            '524A76C2C2C282769E320B6E7B529EC5C2F6AAB5EB1D07476 F2F81' +
            'A297C6CA77BE824184D0BBE8DBD7F6E0CEE2D2ACD4FBD5FED 2ACD4' +
            'E5E4FAA2A1C6410C69835EA4D6CCFAC0CEFA24203F1D07475 72486' +
            'C2C2C2968899661A876C228ADBD7F6CACCFA5F5B7D5E26628 A8592' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2CECED0FEFDFE3 D273C' +
            '1205088A8592C2C2C2C2C2C2C2C2C28A859205031852566FC 0CEFA' +
            'BACAE65C506DC7CCF6CDD6F66467851609339688990302053 A3C50' +
            'E0E0FEB4C7FA4A4E6604020E6B6E86B4C7FAB4C7FA0302050 40222' +
            '8997BFB4C7FA828CB904020E040222080331080331A2B5EE6 4689B' +
            '080331282064ADBEF2A2B5EEA2B5EE1F1E2D0C05457C6EABE DEBFB' +
            'ADBEF2040222918CCAADBEF28997BF0503183A3565C2C2C2C 0B9D3' +
            '61436C320B6E7C6EABBAC7F6A2B5EE370C488C2F979D3DB3F 5B3F1' +
            'CA77BEB8A3BEEEE3FEEDEBFBB7A1B1F5B3F1CEB4D0DDD2FE9 185AB' +
            '410C69816AA6DFD1FAC5C2F6140621410C69C2C2C2C2C2C29 47EAB' +
            '6C228AA26CBBEADCF2C5C2F616071051145DA398AAC2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2FEFDFEF7F2FD5C506D2A21310 30205' +
            'C2C2C2C2C2C2C2C2C24844570503184E526EBDC6FA8997BF8 2769E' +
            'B5C6F2D1DBFA52566F0C0622928DA982769EA3A3D7FBF6FDB 4BDF3' +
            '1F1E2D0402228997BFBAC7F6A3A3D7040222040222A3A3D7B 5C6F2' +
            '8997BF040222484457080331080331A2B5EE4A4E660C05455 25385' +
            'ADBEF2A5BEF48997BF04020E040222828CB9EDEBFB92A2D10 80331' +
            '9BACE0BAC7F68997BF050318524A76B1ADCBB1ADCB4A3E8A2 A0A69' +
            '918CCABEC5F2928DC04C0D72B179CE954788EEAAE6EEAAE6C EB4D0' +
            'FCEDFADEDAEE95718BB16CBDD1C5F2C4CAF25F5B7D5C18A09 772B2' +
            'D1D4FABDC6FA1005182A0A69C2C2C2B1ADCB785284410C69A 383B4' +
            'DED8FECDD6F620091A51145DC2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2CECED0FEFDFE4B4343C5C2F60E050A050318C2C2C2C 2C2C2' +
            'C2C2C21F1E2D04020E828CB9A5BEF452566F928DA9CACCFAC DD6F6' +
            '1F1E2D0302055E5D690C06226B6E86B4C7FAADBEF204020E0 4020E' +
            'B5C6F2B4C7FA8997BF030205040222C0CEFABAC7F64A4E660 4020E' +
            '493D790803314E526EA2B5EE1F1E2D080331525385A5BEF4A 5BEF4' +
            '72769704022208033192A2D1A2B5EEA2A1C6120635BAC7F6B AC7F6' +
            '6467850402223A35654C347F4C347F16084C2A0A69A3A3D7B EC5F2' +
            'A594D2752EA1D1D4FA461844DA94DEFAC2F6D2ACD4FEFDFED 1CDEA' +
            'B179CE6F2F81DEDAEEC4CAF2493D79451A82AC94DCCACCFAA 3A3D7' +
            '120635451A82947EABA48CAC835EA45E2A8ADEC4F2D6CCFAA 2A1C6' +
            '3E1645A14EA5C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2D AC9D2' +
            '36122563566ABEC5F2030205030205C2C2C2C2C2C299979C0 4020E' +
            '04022292A2D19BACE0030205D1C5F2CDD6F6BAC7F60302050 4020E' +
            '36344724203F4E526EADBEF2ADBEF204020E3A3C50B4BDF3B 4C7FA' +
            '6467850402221F1E2DC0CEFABEC5EA3A3C500402224844570 80331' +
            '4A4E66A5BEF4040222080331525385B4BDF3A2B5EE4A4E660 40222' +
            '080331A2B5EEA2B5EE82769E120635B4BDF3ADBEF252566F0 40222' +
            '1007542A26721007542A0A691E0A65BEBBEFB4BDF3645A969 562B1' +
            'BEC5EA3E1645F5B3F1FAE1F0D6B9C2FBF6FDC2C2C2EEAAE6A 2739B' +
            'DDD2FED1D4FA1206353E1467A2A1C6C4CAF29397AF3E14679 75DD2' +
            '975DD2572486572486752EA1D1C5F2DBD7F6947EAB542C387 96686' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2B7A1B172425A7 06684' +
            'B5C6F203020504020EC2C2C2C2C2C2312E40030205363447A 5BEF4' +
            '727697160710EADCF2CDD6F6CDD6F60302050402224E526E7 77EA9' +
            '4E526EADBEF2ADBEF204020E64689BADBEF2BACAE64E526E0 40222' +
            '525385BDC6FAB4C7FA030205040222312E40080331828CB98 28CB9' +
            '04020E080331525385ADBEF2A2B5EE04020E120635363447A 2B5EE' +
            'A2B5EE747382282064BEC5EAAAB5EB52566F0C054516084CA 3A3D7' +
            '1007542A0A694A3E8AC5C2F6ADBEF256428B9772B2CACCFA7 2425A' +
            'F7D7F6FEDEFEDEC4F2FCEDFAA6A1B2FCEDFABF8ACAD6DEFED BD7F6' +
            '2C0C375C18A0BFADE1DED8FEA3A3D725134A320B6EA383B46 14E89' +
            '38187C3E1467CACCFADBD7F663566A824184A2739BC2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2362238A2739BA2A1C6BACAE60 30205' +
            '0E050A6B6E866B6E8604020E04020E9BACE0BEC5F21F1E2D4 D3D62' +
            '706684CDD6F6C7CCF604020E0C06229298C36E7E974A4E66A 5BEF4' +
            'ADBEF203020592A2D1B4C7FABAC7F60302050402227C8195B 4C7FA' +
            '9BACE004020E0402220402220803318997BF828CB90402220 80331' +
            '4A4E66A5BEF48997BF0402220402225253859BACE0B4BDF30 C0622' +
            '9772B2A6ACD3A2B5EE4E526E0E095C525385A5BEF42820641 E0A65' +
            '645A96B5C6F2BEBBEF8242B8CEB4D0FCEDFAA383B4FEDFFAE 6C2EA' +
            'FBF6FDEDEBFB8A8592F7F2FDDEC4F2DED8FEB1ADCB653C92C 78DE9' +
            'AC94DCC5C2F6928DC026147A451A82BDC6FA7C6EAB451A824 93D79' +
            'D6CCFAB5C6F261436C9562B1C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2362238120508DDD2FEF7F2FD7276970503180 E050A' +
            '03020504020E6B6E86BEC5EA6B6E860C06221607105C506DC DD6F6' +
            'BAC7F604020E3A3C50A5BEF41F1E2D363447A5BEF4ADBEF26 46785' +
            'A2B5EEADBEF2B5C6F20302050503188997BFB4BDF3828CB90 30205' +
            '23142D040222040222A2B5EE4A4E66040222040222828CB9A 2B5EE' +
            '727697040222100754777EA99BACE0CACCFA0C0622DFD1FA9 397AF' +
            '9BACE05253850C054592A2D16E7E97040222100754947EABB 4BDF3' +
            'C5C2F6BFADE1EEE3FEFBF6FDB8A3BEF7D7F6FEFDFEFEFDFEB 1ADCB' +
            '796686F4CFECC0B9D3EEE3FEBEBBEF8177B6918CCA70629DB 4C7FA' +
            '928DC038187C9185ABAAB5EB0503183E1467816AA6CACCFAB 4C7FA' +
            '160710531E68B7A1B1C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            '3612250E050A52566FE5E4FAD1D4FA3022381609330503185 2566F' +
            'B5C6F2828CB90302053022380C06221F1E2DC0CEFAADBEF26 4689B' +
            '9BACE0646785030205030205ADBEF2ADBEF2A5BEF492A2D1A 5BEF4' +
            '828CB904020E050318ADBEF2B5C6F26E7E9704020E4844570 40222' +
            '3A3565A2B5EE4A4E66040222040222828CB9A2B5EE4A4E660 40222' +
            '0402229BACE0B6B6D99298C304020EDEC4F270629DA2B5EE8 997BF' +
            '8997BF9BACE00402220C0545100754828CB9BFADE1CDD6F69 28DA9' +
            'B1ADCBFEFDFEF7F2FDFEFDFEFEFDFEEDEBFB4B43437B529E7 2425A' +
            'BAA4DAD0CBEEC5C2F6AAB5EB24203F16084CBEC5F2B4C7FA8 177B6' +
            'C5C2F63A3C5016084C451A82A594D2AEB4E4AAB5EB0E050A5 E2662' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C28A85922 21315' +
            '0302053A3C50D1D4FAE0E0FEB1ADCBC0B9D3BAC7F66467850 30205' +
            '0C062279668604022223142D6E7E97ADBEF2ADBEF2828CB90 30205' +
            '03020504020E6E7E97A2B5EE6E7E976E7E978084B08084B03 A3C50' +
            '0302058997BF828CB9312E40050318484457050318828CB98 28CB9' +
            '72769704020E040222828CB9A2B5EE312E400402226467858 28CB9' +
            '8997BF9397AF82769E512F5F04022292A2D1A2B5EE9BACE01 F1E2D' +
            '23142D26147A100754525385ADBEF2A6ACD3030205030205A 6A1B2' +
            'FBF6FDFEFDFEEDEBFB5E5D69362238824184653C92928DC0A 2B5EE' +
            '9BACE03A3C501609331E0A658084B0ADBEF2A2B5EE5253850 C0622' +
            '38187C451A827C6EAB8084B06467851F09319562B1C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C296889904020E0 30205' +
            '1F1E2D3A3C505E5D695E5D6903020503020504020E706684C 2C2C2' +
            '6467850C06220503184A4E6636344703020504020E4844570 4020E' +
            '0302054A4E660302050302050302050302054B434323142D0 30205' +
            '0302050302054844574844574844570302050302050302054 84457' +
            '04020E04020E03020504020E04020E312E400302050302052 4203F' +
            '4A4E6623142D0402221F1E2D4A4E6604020E04022224203F9 28DA9' +
            '1E0A651206354A4E6604020E2C0C375E266272425A2A21315 E5D69' +
            '1F1E2D2C1E4D5E2662A48CAC7B529E2C1E4D4A4E661F1E2D0 80331' +
            '4C347F26147A0E095C4A4E661F1E2D0402222812649185AB5 C506D' +
            '1D07470C06221F09313D273CC0B2B2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2C2C2C2C2C2C2C2C2C2C0B9D399979C312E407966862 21315' +
            '030205030205030205160933948F95C2C2C2C2C2C2C2C2C25 E5D69' +
            '24203F1609330302050C0622484457C2C2C25E5D6904020E0 4020E' +
            '04020E4844574844574844574A4E664844574844574844574 84457' +
            '9397AFC2C2C248445748445748445748445752566F4844570 40222' +
            '0402220402227473824844574D3D625C506DC0B9D3484457A 398AA' +
            '1F1E2D080331040222080331282064A6ACD3C2C2C29185AB1 D0747' +
            '2808493E14676F2F81A383B4FCEDFAE7CEDFE6C2EA542C388 24184' +
            'B8A3BEC2C2C2816AA6451A82482A8638187C423A82A6A1B27 C6EAB' +
            '26147A1E0A651E0A651E0A65928DC0C2C2C28177B66B52917 85284' +
            '6B5291947EABC2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C2C 2C2C2' +
            'C2C2C2');
    end;
    
    procedure AutoLogin;
    begin
          begin
               Writeln('Logging in User '+UserName+'.');
               ClickMouse(340,280,True);
               Wait(2500);
          end;
    if (LoginScreen) then
        begin
             ClickMouse(100,260,True);
             Wait(500);
             SendKeysSilent(UserName);
             Wait(2000);
             ClickMouse(120,310,True);
             Wait(500);
             SendKeysSilent(PassWord);
             Wait(2000);
             ClickMouse(380,250,True);
             if (Server = 1) then
             begin
                  ClickMouse(214,285,True);
             end;
             repeat
                   wait (300);
             until (IsTextAt (7, 304, 'Welcome to'));
             wait (2500);
             Writeln('Closing Welcome box.');
             ClickMouse (495,15, True);
             wait (500);
             MoveMouse (10,10);
             wait (500);
        end;
    end;
    
    procedure LockedIn;
    begin
    i:= 0; j:= 0; x:= 0; y:= 0;
    MoveMouse (460, 15)
    Wait (300);
    ClickMouse (432, 133, True);
    wait (300);
    repeat
          if (FindColorSpiral (x, y, 929884, 1 + j, 1, 500, 320)) or
             (FindColorSpiral (x, y, 415860, 1 + j, 1, 500, 320)) or
             (FindColorSpiral (x, y, 1859768, 1 + j, 1, 500, 320)) or
             (FindColorSpiral (x, y, 1327248, 1 + j, 1, 500, 320)) or
             (FindColorSpiral (x, y, 663624, 1 + j, 1, 500, 320)) then
             begin
                  MoveMouse (x, y);
                  wait (200);
                  if (IsTextAt (6, 2, 'Door: Open')) then
                  begin
                       ClickMouse (x, y, True);
                       wait (1000);
                  end;
             end;
          i:= i + 1;
          if (i = 3) then
          begin
               i:= 0;
               j:= j + 50;
          end;
    wait (100);
    until (j > 501) or (IsTextAt (7, 304, 'The door'));
    writeln ('Locked in Check Complete. Continue with Autoing.');
    end;
    
    Procedure EatLobster;
    begin
          i:= 0;
          j:= 0;
          repeat
          MoveMouse (495, 15);
          wait (500);
               if (FindBitmap (Lobster, x, y)) then
               begin
                    i:= 1;
                    writeln ('Eating Lobster.');
                    ClickMouse (x, y, True);
                    wait (300);
               end;
          wait (500);
          j:= j + 1;
          until (i = 1) or (j = 15);
          if (j = 15) then
          begin
               MoveMouse (10, 10);
               wait (300);
               writeln ('Lobsters gone. Waiting 3 seconds and logging off.');
               status ('Program Terminated - by Scarmeister 2004!');
               wait (3000);
               MoveMouse (325, 20);
               wait (300);
               ClickMouse (325, 282, True);
               wait (300);
               repeat
                     wait (500);
               until (False);
          end;
    MoveMouse (10, 10);
    wait (100);
    end;
    
    procedure CheckHealth;
    begin
          MoveMouse (425, 20);
          wait (300);
          CurrentHits:= GetTextAt (318, 112);
          wait (300);
          MoveMouse (10, 10);
          wait (300);
          ActualHp:= StrToInt (copy (CurrentHits, 6, 2));
          if (ActualHp < EatHp) then
             begin
                  writeln ('Looking for Lobster.');
                  EatLobster;
             end;
    end;
    
    procedure Sleep;
    begin
        i:= 0;
        MoveMouse (490, 15)
        Wait (300);
          ClickMouse (BagX, BagY, True);
          Wait(2000)
          repeat
                i:= i + 1;
                wait (50);
                if (i = 400) then
                   begin
                        i:= 0;
                        ClickMouse (180, 300, True);
                        wait (300);
                        Writeln ('Trying again for a new word.');
                   end;
          until (IsTextAt (7, 304,'You wake up')) or
                (IsTextAt (7, 304,'You are unexpectedly awoken')) or
                (IsTextAt (7, 304,'You can t do that whilst')) or
                (GetColor (167,41) <> 65535);
       MoveMouse(10,10)
       wait (10);
    end;
    
    procedure FindBag;
    begin
        writeln ('Searching for sleeping bag.');
          repeat
          MoveMouse (495, 15);
          wait (500);
          if (FindColorSpiral (x, y, 4026013, 265, 25, 505, 240)) then
             begin
                  MoveMouse (x, y);
                  wait (500);
                  if (IsTextAt (6, 2, 'Sleeping Bag')) then
                  begin
                       writeln ('Sleeping bag found - Storing coordinates.')
                       BagX:= x;
                       BagY:= y;
                       i:= 1;
                  end;
             MoveMouse (10, 10);
             wait (50);
             end;
          until (i = 1);
    end;
    
    Procedure FindObjectOnMap;
    begin
        i:= 0; j:= 0;
          writeln ('Searching for '+SObjectName+' on MiniMap.');
          repeat
          if (j = 10) and (LockedIn2 = 1) then
          begin
               j:= 0;
               writeln ('Possibly Locked in. Checking all Closed Doors.');
               LockedIn;
          end;
                MoveMouse (460, 20);
                wait (200);
                if (FindColorSpiral (x, y, SObject, 422, 103, 441, 122)) then
                begin
                     writeln ('In vicinity of '+SObjectName+', switching to Attack Mode.');
                     i:= 1;
                end;
                if (FindColorSpiral (x, y, SObject, 432-a, 113-b, 432+a, 113+b)) then
                begin
                     j:= j + 1;
                     ClickMouse (x, y, True);
                     wait (200);
                end;
          wait (100);
          until (i = 1);
        MoveMouse (10, 10);
        wait (250);
    end;
    
    procedure CheckMessage;
    begin
          i:= 0; j:= 0; x:= 0; y:= 0;
          MoveMouse (10, 10);
          wait (50);
          if (IsTextAt (7, 304, 'You are too')) then
          begin
               writeln ('Going to sleep.');
               Sleep;
               wait (50);
          end;
          if (GetColor (85, 140) = 3472636) and
             (GetColor (500, 215) = 0) then
             begin
                  writeln ('Starting login procedure.');
                  AutoLogin;
             end;
          if (IsTextAt (7, 268, 'I can t get close')) or
             (IsTextAt (7, 280, 'I can t get close')) or
             (IsTextAt (7, 292, 'I can t get close')) then
          begin
               writeln ('AutoLike Behaviour Prevention - Waiting for 5 seconds.');
               wait (5000);
          end;
          if (IsTextAt (7, 304, 'I can t get close')) and ((FreeMonster = 'Activated') or (MiniSearch = 1)) then
          begin
               FindObjectOnMap;
          end;
    end;
    
    procedure CheckFightMode;
    begin
          Look:= 0; Timer:= 0;
          f:= GetFightMode;
          if (f = Mode) then
          begin
               repeat
                     f:= GetFightMode;
                     wait (100);
               until (f = 0);
               if (Eating = 1) then
               begin
                    writeln ('Checking if we need to eat.');
                    CheckHealth;
               end;
          end else
          begin
               Writeln('Choosing Right FightMode.');
               ClickMouse(100, 25 + (20 * Mode), True);
               wait (300);
          end;
    end;
    
    procedure GetMonster;
    begin
          if (MonsterName <> 'Other Monster') then
          begin
               if (MonsterName = 'Barbarian') then
               begin
                    MonsterColor1:= 2175372;
               end;
               if (MonsterName = 'Bear') then
               begin
                    MonsterColor1:= 9834;
               end;
               if (MonsterName = 'Black Knight') then
               begin
                    MonsterColor1:= 723723;
               end;
               if (MonsterName = 'Chicken') then
               begin
                    MonsterColor1:= 16185078;
               end;
               if (MonsterName = 'Cow') then
               begin
                    MonsterColor1:= 14342875;
               end;
               if (MonsterName = 'Darkwizard') then
               begin
                    MonsterColor1:= 3618615;
               end;
               if (MonsterName = 'Deadly Red Spider') then
               begin
                    MonsterColor1:= 2629761;
               end;
               if (MonsterName = 'Dwarf') then
               begin
                    MonsterColor1:= 594799;
               end;
               if (MonsterName = 'Ghost') then
               begin
                    MonsterColor1:= 7039752;
               end;
               if (MonsterName = 'Giant') then
               begin
                    MonsterColor1:= 65536;
               end;
               if (MonsterName = 'Giant Spider') then
               begin
                    MonsterColor1:= 1786198;
               end;
               if (MonsterName = 'Goblin') then
               begin
                    MonsterColor1:= 251224;
               end;
               if (MonsterName = 'Guard') then
               begin
                    MonsterColor1:= 733305;
               end;
               if (MonsterName = 'Hobgoblin') then
               begin
                    MonsterColor1:= 250968;
               end;
               if (MonsterName = 'Ice Giant') then
               begin
                    MonsterColor1:= 13082964;
               end;
               if (MonsterName = 'Ice Warrior') then
               begin
                    MonsterColor1:= 13411668;
               end;
               if (MonsterName = 'Lesser Demon') then
               begin
                    MonsterColor1:= 202;
               end;
               if (MonsterName = 'Moss Giant') then
               begin
                    MonsterColor1:= 10667995;
               end;
               if (MonsterName = 'Mugger') then
               begin
                    MonsterColor1:= 204;
               end;
               if (MonsterName = 'Pirate') then
               begin
                    MonsterColor1:= 6274750;
               end;
               if (MonsterName = 'Rat') then
               begin
                    MonsterColor1:= 7159865;
               end;
               if (MonsterName = 'Scorpion') then
               begin
                    MonsterColor1:= 424386;
               end;
               if (MonsterName = 'Skeleton') then
               begin
                    MonsterColor1:= 16447223;
               end;
               if (MonsterName = 'Unicorn') then
               begin
                    MonsterColor1:= 16119285;
               end;
               if (MonsterName = 'Warrior') then
               begin
                    MonsterColor1:= 7500402;
               end;
               if (MonsterName = 'White Knight') then
               begin
                    MonsterColor1:= 6250335;
               end;
               if (MonsterName = 'Wizard') then
               begin
                    MonsterColor1:= 15532032;
               end;
               if (MonsterName = 'Zombie') then
               begin
                    MonsterColor1:= 16504238;
               end;
          end;
          if (Cols = 0) then
          begin
               MonsterColor2:= MonsterColor1;
               MonsterColor3:= MonsterColor1;
          end;
          if (Cols = 1) then
          begin
               MonsterColor2:= MonsterColor1;
               MonsterColor3:= MonsterColor1;
          end;
          if (Cols = 2) then
          begin
               MonsterColor3:= MonsterColor1;
          end;
    end;
    
    begin
    status ('MeisterFighter V1.3 - by Scarmeister!');
    BitMapInitialise; Initialise; GetMonster;
    CheckMessage; FindBag; Look:= 0; Timer:= 0;
    
    repeat
    f:= GetFightMode;
          if (Look > 2) and (LockedIn2 = 1) then
          begin
               Look:= 0; Timer:= 0;
               writeln ('Possibly Locked in. Checking all Closed Doors.');
               LockedIn;
          end;
          if (Timer > 25) and (MiniSearch = 1) then
          begin
               Look:= 0; Timer:= 0;
               FindObjectOnMap;
          end;
    if (f = 0) then
    begin
          i:= 0; j:= 0; x:= 0; y:= 0;
          if (FindColorSpiral2 (x, y, MonsterColor1, 1, 1, 304, 325)) or
             (FindColorSpiral2 (x, y, MonsterColor1, 305, 36, 510, 325)) or
             (FindColorSpiral2 (x, y, MonsterColor2, 1, 1, 304, 325)) or
             (FindColorSpiral2 (x, y, MonsterColor2, 305, 36, 510, 325)) or
             (FindColorSpiral2 (x, y, MonsterColor3, 1, 1, 304, 325)) or
             (FindColorSpiral2 (x, y, MonsterColor3, 305, 36, 510, 325)) then
          begin
          if (Click = 'Left') then
          begin
               ClickMouse (x, y, True);
          end;
          if (Click = 'Right') then
          begin
               ClickMouse (x, y, False);
          end;
               wait (200);
               if (FindBitmap (Attack, x, y)) then
               begin
                    ClickMouse (x+2, y+2, True);
                    wait (250);
                    writeln (Monster+' found and attacking it.');
                    repeat
                          f:= GetFightMode;
                          i:= i + 1;
                          wait (50);
                    until (i = 100) or (f > 0) or
                          (IsTextAt (7, 304, 'I can t get close'));
               end;
          end;
          if (i = 100) then
          begin
               Look:= Look + 1;
          end;
    end else
         begin
              CheckFightMode;
         end;
         CheckMessage;
         Timer:= Timer + 1;
    wait (300);
    until (False);
    end.
    Here's one from 2003:
    Code:
    (*
    
                                      <------->
                                    <----------->
                                  <----Joker----->
                                  <----Presents:->
                                    <----------->
                                      <------->
    
    |================================================= ==============================|
    |================================================= ==============================|
    |                                 (*
    |                     EvilEssMiner 1.8 BY: Joker
    |                                  *)                                           (*|
    |================================================= ==============================|
    |^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^|
    |```````Read Setup Notes!!! Or The Script May Fail!`````````````````````````````|
    |................................................. ..............................|
    |+++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++++++++|
    |                                                                               |
    |                                                                               |
    |					              Need Help?!?:                                           |
    |                     aIm: PhroznJoker                                          |
    |                     msn: vb_newbie@hotmail.com                                |
    |                     e-mail: vb_newbie@hotmail.com
    |
    |                                                                               |
    |                                                                               |
    |--------------------------------                                               |
    |Features:                                                                      |
    |---------------------                                                          |
    |Perfect Room Detection!                                                        |
    |Good Mining Procedure!
    |Great Portal Area Procedure!                                                                        |
    |Banking!                                                                  |
    |Anti-Randoms!                                                                   |
    |-----------                                                                    |
    |                                                                               |
    |                                                                               |
    |--------------------------------                                               |
    |Contents:                                                                      |
    |---------------------                                                          |
    |EvilEssMiner <- Main Script Run This                                            |
    |Pics required to Run {Included in the script no worries}                                                          |
    |Includes                                                                       |
    |-----------                                                                    |
    |                                                                               |
    |                                                                               |
    |--------------------------------                                               |
    |Setup notes:                                                                   |
    |---------------------                                                          |
    |V-Bright!
    |Setup lines 76 - 85
    |Start in Varrok Bank next to the furthest left booth (Wield PixAxe)
    |USE 16 BIT!!!
    |Hit start
    |-----------                                                                    |
    |                                                                               |
    |                                                                               |
    |--------------------------------                                               |
    |Release Verisions:                                                             |
    |---------------------                                                          |
    |1.0 Private Release To My Real Life Friends...
    |1.1 Added RandomTalk; Procedure
    |1.3 Added A WAY Better Mining System...
    |1.5 Added Better Banking, RoomDetection and Random Bugs
    |1.6 Released It SS, And Fixed a SHIT load of stuff
    |1.8 Fixed Center Room Detection, Walking, And lots of other stuff                                                    |
    |-----------                                                                    |
    |                                                                               |
    |================================================= ==============================|
    |  Special Thanks TO:                                                           |
    |         GenoDemoN, Sythe, UEA, My Girlfriend, And Paul                        |
    |================================================= ==============================|
    |================================<3=============== ==============================|
    |================================================= ==============================|
    *)
    program JokersEssMiner;
    Var
    lastbreak,curcol,StoreAllw,EssRock,report2,report, Seconds,Minutes,RHours,orecount,RSeconds,RMinutes, Talk,Talky,Runs,randomtime,YellowText,iLamp,Talked ,tele,Lamps,teley,store,ladder,use,usey,storey,log ,bankq,bankqy:Integer;
    Corner,Time:String;
    LoadedOARPBmps,Walked,invfull:Boolean;
    Const
    username='';
    password='';
    RandomLog=63; //Approx ever how many minutes to take a break?
    LogLength=10; //Time to take breaks ;)
    BankSymbol=4367814; {The yellow part or the bank symbol}
    RuneFloor=2205183; {The floor of the rune shop}
    Aubry=2188172; {Aubry's shirt color is best}
    EssRockNw=5923683; {Essence ROCK color (on screen in NW Corner)}
    EssRockNe=10855861; {Essence ROCK color (on screen in NE Corner)}
    EssRockSw=4868682; {Essence ROCK color (on screen in SW Corner)}
    EssRockSe=10263717; {Essence ROCK color (on screen in SE Corner)}
    LadderColor=6522004; {The ladder in the SW room, on the floor}
    TeleColor=10270141; {Color of the portal}
    RuneOre=6513515; {Color or the ess in ur inventory}
    BankBooth=7048348; {go here http://img132.exs.cx/my.php?loc=img132&image=here1vj.png}
    ApproximateRunTime=30; //Minutes (wont stop the script needed for randomtalk;)
    {.include OSi.txt}
    {.include BoxBreaker.txt}
    Procedure LoadOARPBmps;
    begin
    LoadedOARPBmps:=true;
    Talk := BitmapFromString(17, 10,
            'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000 00000' +
            '000000000000000000000000000000000000FFFFFFFFFFFF0 00000' +
            '000000FFFFFFFFFFFF0000000000000000000000000000000 00000' +
            '000000000000000000000000000000FFFFFFFFFFFF0000000 00000' +
            'FFFFFFFFFFFF0000000000000000000000000000000000000 00000' +
            '000000000000000000000000FFFFFFFFFFFF000000000000F FFFFF' +
            'FFFFFF0000000000000000000000000000000000000000000 00000' +
            '000000000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
            '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF0 00000' +
            '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
            '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
            '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
            '000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000 00000' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000000000 00000' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000F FFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFF000000000000000000F FFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
            '000000000000FFFFFFFFFFFF000000000000000000000000F FFFFF' +
            'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF' );
    TalkY := BitmapFromString(17, 10,
            'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF000000000000000 00000' +
            '000000000000000000000000000000000000FFFF00FFFF000 00000' +
            '000000FFFF00FFFF000000000000000000000000000000000 00000' +
            '000000000000000000000000000000FFFF00FFFF000000000 00000' +
            'FFFF00FFFF000000000000000000000000000000000000000 00000' +
            '000000000000000000000000FFFF00FFFF00000000000000F FFF00' +
            'FFFF000000000000000000000000000000000000000000000 00000' +
            '000000000000000000FFFF00FFFF00000000000000FFFF00F FFF00' +
            '000000000000000000000000FFFF00FFFF00FFFF00FFFF000 00000' +
            '000000000000FFFF00FFFF00000000000000FFFF00FFFF000 00000' +
            '000000000000FFFF00FFFF00000000000000FFFF00FFFF000 00000' +
            '000000FFFF00FFFF00000000000000FFFF00FFFF000000000 00000' +
            '000000000000FFFF00FFFF00FFFF00FFFF00FFFF000000000 00000' +
            'FFFF00FFFF00000000000000FFFF00FFFF000000000000000 00000' +
            'FFFF00FFFF00000000000000FFFF00FFFF00000000000000F FFF00' +
            'FFFF00000000000000FFFF00FFFF00000000000000000000F FFF00' +
            'FFFF00000000000000FFFF00FFFF00000000000000FFFF00F FFF00' +
            '000000000000FFFF00FFFF00000000000000000000000000F FFF00' +
            'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00' );
    //Lamp pic by Chriz
    iLamp := BitmapFromString(17, 6,
           '000001000001000001000001BAB815B2B015AEAD15ABAA159 C9A12' +
           '9291128C8A1275740E000001000001000001000001000001D 0CE18' +
           'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A 3A112' +
           '99971292911284820E79780E6968095C5A09A6A415CECC18C 5C418' +
           'C2C118C0BE18BDBB18BAB815B8B615B5B315B2B015A8A715A 3A112' +
           '9C9A129594128E8D1281800E999712AEAD15CECC18CBC918C 0BE18' +
           'BDBB18BAB815B5B315B2B015AEAD15A8A715A3A1129F9E129 99712' +
           '88860E84820E8C8A129291129C9A12000001CBC918CBC918B AB815' +
           'B8B615B5B315B2B015AEAD15A8A715A3A1129C9A129594128 1800E' +
           '79780E84820E000001000001000001CBC918CBC918C0BE18B 8B615' +
           'B2B015AEAD15ABAA15A6A4159F9E129997128C8A1279780E7 5740E' +
           '000001000001C2C118');
    end;
    Procedure LoadBMPs;
    begin
    storey := BitmapFromString(20, 4,
           'FFFF000000005A5242FFFF00FFFF000000005A5242FFFF00F FFF00' +
           '0000005A52425A5242FFFF00FFFF000000005A5242FFFF00F FFF00' +
           '0000005A5242FFFF00FFFF00FFFF00FFFF000000000000005 A5242' +
           'FFFF00FFFF000000005A52425A5242FFFF00FFFF000000005 A5242' +
           'FFFF00FFFF000000005A5242FFFF000000000000000000000 00000' +
           '5A52425A5242FFFF00FFFF000000005A52425A5242FFFF00F FFF00' +
           '0000005A5242FFFF00FFFF000000005A5242FFFF00FFFF00F FFF00' +
           'FFFF00FFFF005A52425A5242FFFF00FFFF000000005A52425 A5242' +
           'FFFF00FFFF000000005A5242FFFF00FFFF000000005A5242' );
    store := BitmapFromString(18, 4,
           '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005 A5242' +
           '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005 A5242' +
           'FFFFFFFFFFFF0000000000005A5242FFFFFFFFFFFF0000005 A5242' +
           '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005 A5242' +
           '0000000000000000005A52425A5242FFFFFFFFFFFF0000005 A5242' +
           '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005 A5242' +
           'FFFFFFFFFFFFFFFFFF5A52425A5242FFFFFFFFFFFF0000005 A5242' +
           '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005 A5242' +
           '');
    use := BitmapFromString(25, 2,
          'FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFFFFFFFFF FFFFF' +
          'FFFFFF5D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF5 D5447' +
          '5D54475D54475D54475D54475D54475D544700FFFFFFFFFFF FFFFF' +
          '0000005D5447FFFFFFFFFFFF0000000000000000000000000 00000' +
          '5D5447FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D54475 D5447' +
          '5D54475D54475D54475D544700FFFF');
     useY := BitmapFromString(25, 2,
          'FFFF00FFFF000000005D5447FFFF00FFFF000000000000000 00000' +
          '0000000000005D5447FFFF00FFFF00000000000000FFFF00F FFF00' +
          '5D54475D54475D54475D54475D54475D544700FFFFFFFF00F FFF00' +
          '0000005D54475D5447FFFF00FFFF00FFFF00FFFF005D54475 D5447' +
          '5D5447FFFF00FFFF000000005D5447FFFF00FFFF000000005 D5447' +
          '5D54475D54475D54475D544700FFFF');
    bankqy := BitmapFromString(41, 6,
           '000000000000FFFF00FFFF000000005A5242FFFF00FFFF000 00000' +
           '5A5242FFFF00FFFF000000005A5242FFFF00FFFF000000005 A5242' +
           'FFFF00FFFF000000005A52425A52425A52425A5242FFFF00F FFF00' +
           'FFFF000000000000005A52425A5242FFFF00FFFF000000005 A5242' +
           'FFFF00FFFF000000005A5242FFFF000000005A5242FFFF00F FFF00' +
           '0000005A5242FFFF00FFFF000000005A5242FFFF00FFFF000 00000' +
           '5A5242FFFF00FFFF000000005A5242FFFF00FFFF000000005 A5242' +
           '5A52425A52425A5242FFFF00FFFF00FFFF00FFFF005A52425 A5242' +
           '5A5242FFFF00FFFF000000005A5242FFFF00FFFF000000005 A5242' +
           'FFFF00FFFF005A5242FFFF00FFFF000000005A5242FFFF00F FFF00' +
           '0000005A5242FFFF00FFFF000000005A5242FFFF00FFFF000 00000' +
           '5A5242FFFF00FFFF000000005A52425A52425A52425A5242F FFF00' +
           'FFFF00000000FFFF00FFFF005A52425A5242FFFF00FFFF000 00000' +
           '5A52425A5242FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00F FFF00' +
           'FFFF000000005A52425A5242FFFF00FFFF00FFFF00FFFF000 00000' +
           '0000005A5242FFFF00FFFF000000005A52425A5242FFFF00F FFF00' +
           'FFFF00FFFF005A52425A5242FFFF00FFFF000000005A5242F FFF00' +
           'FFFF005A5242FFFF00FFFF000000005A52425A52425A52420 00000' +
           '000000FFFF005A5242000000FFFF00FFFF000000005A52425 A5242' +
           '5A52420000000000000000000000005A52425A52425A52420 00000' +
           '0000005A52425A52425A52420000000000000000000000005 A5242' +
           '5A52420000000000005A52425A52420000000000005A52420 00000' +
           '0000005A52425A52425A52425A52425A5242FFFF005A52425 A5242' +
           'FFFF00FFFF000000005A52425A52425A52425A52425A52425 A5242' +
           '5A52425A52425A52425A52425A52425A52425A52425A52425 A5242' +
           '5A52425A52425A52425A52425A52425A52425A52425A52425 A5242' +
           '5A52425A52425A52425A52425A52425A52425A52425A52425 A5242' +
           '5A52425A5242FFFF00');
    ladder := BitmapFromString(24, 6,
           '00FFFF00FFFF0000005A52425A52425A52425A524200FFFF0 0FFFF' +
           '00000000000000FFFF00FFFF5A52425A52425A524200FFFF0 0FFFF' +
           '00000000FFFF00FFFF0000005A52425A524200FFFF00FFFF0 00000' +
           '5A52425A52425A52425A52425A524200FFFF00FFFF00FFFF0 0FFFF' +
           '00FFFF0000005A524200FFFF00FFFF00000000000000FFFF0 0FFFF' +
           '0000005A524200FFFF00FFFF00FFFF0000005A52425A52425 A5242' +
           '5A524200FFFF00FFFF00000000000000FFFF00FFFF0000005 A5242' +
           '00FFFF00FFFF0000005A524200FFFF00FFFF0000005A52420 0FFFF' +
           '00FFFF00FFFF0000005A52425A52425A52425A524200FFFF0 0FFFF' +
           '0000005A524200FFFF00FFFF0000005A524200FFFF00FFFF0 00000' +
           '5A524200FFFF00FFFF0000005A524200FFFF00FFFF00FFFF0 0FFFF' +
           '00FFFF00FFFF00FFFF5A52425A524200FFFF00FFFF00FFFF0 0FFFF' +
           '00FFFF0000005A52425A524200FFFF00FFFF00FFFF00FFFF0 0FFFF' +
           '0000005A52425A52425A52420000000000000000000000000 00000' +
           '0000005A52425A52420000000000000000000000000000005 A5242' +
           '5A52425A52420000000000000000000000000000005A52425 A5242' +
           '');
    bankq := BitmapFromString(24, 4,
           '0000005A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0 00000' +
           '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005 A5242' +
           'FFFFFFFFFFFF0000005A52425A52425A5242FFFFFF5A5242F FFFFF' +
           'FFFFFF0000005A5242FFFFFFFFFFFF0000005A5242FFFFFFF FFFFF' +
           '0000005A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0 00000' +
           '5A52425A52425A5242FFFFFFFFFFFFFFFFFFFFFFFF0000005 A5242' +
           '5A5242FFFFFFFFFFFFFFFFFFFFFFFF0000000000005A5242F FFFFF' +
           'FFFFFF0000005A52425A5242FFFFFFFFFFFFFFFFFFFFFFFF5 A5242' +
           '5A5242000000FFFFFFFFFFFF0000005A52425A52425A52420 00000' +
           '0000000000000000005A52425A52425A52420000000000005 A5242' +
           '5A52425A5242000000000000000000000000');
    log := BitmapFromString(18, 3,
           '00FFFF00FFFF0000005A524200FFFF00FFFF0000005A52420 0FFFF' +
           '00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF0 0FFFF' +
           '00FFFF00FFFF0000005A524200FFFF00FFFF0000005A52420 0FFFF' +
           '00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF0 0FFFF' +
           '00FFFF00FFFF0000005A524200FFFF00FFFF0000005A52420 0FFFF' +
           '00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF0 0FFFF' +
           '');
    StoreAllw := BitmapFromString(13, 2,
           'FFFFFFFFFFFF0000005A52425A5242FFFFFFFFFFFF0000005 A5242' +
           'FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A52425 A5242' +
           'FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A5242' );
    tele := BitmapFromString(35, 5,
           'FFFFFFFFFFFF0000005A52425A5242FFFFFFFFFFFF0000005 A5242' +
           'FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A5242F FFFFF' +
           'FFFFFF0000005A5242FFFFFFFFFFFF0000005A5242FFFFFFF FFFFF' +
           '0000005A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFFF FFFFF' +
           'FFFFFF0000005A52425A5242FFFFFFFFFFFFFFFFFFFFFFFFF FFFFF' +
           '0000000000005A5242FFFFFFFFFFFF0000005A5242FFFFFFF FFFFF' +
           'FFFFFFFFFFFFFFFFFF0000000000005A5242FFFFFFFFFFFF0 00000' +
           '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFFFFFFFFF FFFFF' +
           '0000005A52425A5242FFFFFFFFFFFF0000000000000000000 00000' +
           '5A52425A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0 00000' +
           '0000000000000000005A52425A5242FFFFFFFFFFFF0000005 A5242' +
           'FFFFFFFFFFFF0000005A5242FFFFFFFFFFFFFFFFFFFFFFFF0 00000' +
           '5A52425A52425A5242FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5 A5242' +
           '5A5242FFFFFFFFFFFF0000005A52425A5242FFFFFFFFFFFFF FFFFF' +
           'FFFFFFFFFFFF5A52425A5242FFFFFFFFFFFFFFFFFFFFFFFFF FFFFF' +
           '0000000000005A52425A5242FFFFFF5A52420000000000005 A5242' +
           '5A52425A52425A52420000000000000000000000000000005 A5242' +
           '5A52420000000000005A52425A52425A52420000000000000 00000' +
           '0000000000005A5242FFFFFFFFFFFF0000000000000000000 00000' +
           '5A52425A52425A52425A5242');
    teley := BitmapFromString(31, 5,
           '5A5242FFFF00FFFF000000005A52425A5242FFFF00FFFF000 00000' +
           '5A5242FFFF00FFFF000000005A5242FFFF00FFFF000000005 A5242' +
           'FFFF00FFFF000000005A5242FFFF00FFFF000000005A5242F FFF00' +
           'FFFF000000005A5242FFFF005A5242FFFF00FFFF000000005 A5242' +
           '5A5242FFFF00FFFF00FFFF00FFFF00FFFF000000000000005 A5242' +
           'FFFF00FFFF000000005A5242FFFF00FFFF00FFFF00FFFF00F FFF00' +
           '0000000000005A5242FFFF00FFFF000000005A5242FFFF005 A5242' +
           'FFFF00FFFF000000005A52425A5242FFFF00FFFF000000000 00000' +
           '0000000000005A52425A5242FFFF00FFFF000000005A5242F FFF00' +
           'FFFF000000000000000000000000005A52425A5242FFFF00F FFF00' +
           '0000005A5242FFFF005A5242FFFF00FFFF000000005A52425 A5242' +
           '5A5242FFFF00FFFF00FFFF00FFFF00FFFF005A52425A5242F FFF00' +
           'FFFF000000005A52425A5242FFFF00FFFF00FFFF00FFFF00F FFF00' +
           '5A52425A5242FFFF00FFFF00FFFF00FFFF00FFFF005A52425 A5242' +
           '0000000000005A52425A52425A52425A52420000000000000 00000' +
           '0000000000005A52425A52420000000000005A52425A52425 A5242' +
           '0000000000000000000000000000005A5242FFFF00FFFF000 00000' +
           '000000000000');
    end;
    
    Procedure LoginIfNeeded;
    begin
    if(Getcolor(274,291)=16777215) then
    begin
    mouse(461,293,75,15,true)
    wait(500 + random(250))
    SendKeysSilentSmooth(username,50+random(50))
    wait(300 + random(250))
    Mouse(405,271,50,5,true)
    wait(500 + random(1000))
    SendKeysSilentSmooth(password,50+random(50))
    wait(1000 + random(500))
    mouse(317,325,20,10,true)
    repeat
    wait(2500 + random(100))
    until(Getcolor(201,67)=65535)
    if(findcolorspiraltolerance(x,y,8684676,421,54,495 ,150,5))then
     begin
      Mouse(x,y,0,0,true)
      wait(1000 + random(250))
     end;
    end;
    end;
    
    procedure findportalarea;
    begin
    SetRun(true)
    if(corner='NW')then
    begin
    Mouse(616,75,1,1,true)
    wait(8000+random(1000))
    repeat
    wait(100+random(50))
    until(FindColorSpiralTolerance(x,y,TeleColor,5,5,5 15,340,5))
    repeat
    FindObjColorTol('Use',TeleColor,20)
    getmousepos(x,y)
    curcol:=getcolor(x,y)
    until(SimilarColors(curcol,TeleColor,20))
    if(FindObjColorTol('Use',TeleColor,20))then
     GetMousePos(x,y)
     begin
      MMouse(x,y,1,1)
      wait(100+random(100))
      if(IsTextAt2(9,9,'Use',200))then
       Begin
        Mouse(x,y,1,1,true)
        wait(8000+random(3000))
    
       end;
     end;
    end;
    if(corner='NE')or(corner='centerNE')then
    begin
    
    if(corner='centerNE')then
    begin
    mouse(681,32,2,2,true)
    wait(8000+random(3000))
    corner:='NE'
    end;
    if(corner='NE')then
    begin
    Mouse(677,57,0,0,true)
    Wait(8000+random(1000))
    repeat
    wait(100+random(50))
    until(FindColorSpiralTolerance(x,y,TeleColor,5,5,5 15,340,20))
    repeat
    FindObjColorTol('Use',TeleColor,5)
    getmousepos(x,y)
    curcol:=getcolor(x,y)
    until(SimilarColors(curcol,TeleColor,20))
     GetMousePos(x,y)
      MMouse(x,y,1,1)
      wait(100+random(100))
      if(IsTextAt2(9,9,'Use',200))then
       Begin
        Mouse(x,y,1,1,true)
        wait(8000+random(3000))
       end;
     end;
    end;
    
    if(corner='SW')or(corner='centerSW')then
    begin
    
    if(corner='centerSW')and(not(Walked=True))then
    begin
    mouse(620,86,0,0,true)
    wait(6000+random(1000))
    repeat
    wait(100+random(50))
    until(FindColorSpiralTolerance(x,y,TeleColor,5,5,5 15,340,20))
    repeat
    FindObjColorTol('Use',TeleColor,20)
    getmousepos(x,y)
    curcol:=getcolor(x,y)
    until(SimilarColors(curcol,TeleColor,20))
    if(FindObjColorTol('Use',TeleColor,5))then
     GetMousePos(x,y)
     begin
      MMouse(x,y,1,1)
      wait(100+random(100))
      if(IsTextAt2(9,9,'Use',200))then
       Begin
        Mouse(x,y,1,1,true)
        wait(8000+random(3000))
       end;
     end;
    end;
    end;
    
    if(corner='SW')and(Walked=True)then
    begin
    Mouse(620,110,1,1,true)
    wait(8000+random(1000))
    end;
    repeat
    wait(100+random(50))
    until(FindColorSpiralTolerance(x,y,TeleColor,5,5,5 15,340,20))
    repeat
    FindObjColorTol('Use',TeleColor,20)
    getmousepos(x,y)
    curcol:=getcolor(x,y)
    until(SimilarColors(curcol,TeleColor,20))
    if(FindObjColorTol('Use',TeleColor,5))then
     GetMousePos(x,y)
     begin
      MMouse(x,y,1,1)
      wait(100+random(100))
      if(IsTextAt2(9,9,'Use',200))then
       Begin
        Mouse(x,y,1,1,true)
        wait(8000+random(3000))
       end;
     end;
    if(corner='SW')then
    begin
    Mouse(614,77,1,1,true)
    wait(8000+random(1000))
    end;
    repeat
    FindObjColorTol('Use',TeleColor,20)
    getmousepos(x,y)
    curcol:=getcolor(x,y)
    until(SimilarColors(curcol,TeleColor,20))
    if(FindObjColorTol('Use',TeleColor,20))then
     begin
      GetMousePos(x,y)
      MMouse(x,y,0,0)
      wait(100+random(100))
     end;
      if(IsTextAt2(9,9,'Use',200))then
       Begin
        Mouse(x,y,1,1,true)
        Wait(8000+random(1000))
       end;
    if(corner='SE')then
    begin
    wait(100+random(25))
    Mouse(674,103,1,1,true)
    wait(8000+random(1000))
    repeat
    FindObjColorTol('Use',TeleColor,20)
    getmousepos(x,y)
    curcol:=getcolor(x,y)
    until(SimilarColors(curcol,TeleColor,20))
    if(FindObjColorTol('Use',TeleColor,20))then
     begin
      GetMousePos(x,y)
      MMouse(x,y,0,0)
      wait(100+random(100))
     end;
      if(IsTextAt2(9,9,'Use',200))then
       Begin
        Mouse(x,y,1,1,true)
        Wait(8000+random(1000))
       end;
    end;
    end;
    
    Procedure Checkinv;
    begin
    Mouse(648,183,5,5,true)
    if(FindColorSpiralTolerance(x,y,RuneOre,691,426,74 6,465,15))then
     begin
      wait(1000+Random(100))
      invfull:=true
     end;
    end;
    Procedure Randomtalk;
    var
    ran:integer;
     begin
     ran:=Random(10)
      if(ran=1)then
      begin
       Say('Dang this is borng')
       wait(1000+random(50))
       Say('boring*')
      end;
    
     if(ran=2)then
      begin
       Say('Darn this mining is borng')
       wait(1000+random(500))
       Say('err......')
       wait(1000+random(500))
       Say('boring*')
      end;
     if(ran=3)then
      begin
       Say('Wow... Mind ' +inttostr(orecount+random(5))+ ' ess.')
       wait(1000+random(500))
       Say('mined*')
      end;
     if(ran=4)then
      begin
       Say('Whats everyones mining level?')
       wait(1000+random(500))
      end;
     if(ran=5)then
      begin
       Say('Dang this is borng')
       wait(1000+random(50))
       Say('boring*')
      end;
     if(ran=6)then
      begin
       Say('What does everyone pay for ess?')
       wait(1000+random(50))
      end;
     if(ran=8)then
      begin
       Say('If i keep gettin this much, ill be rich!')
       wait(1000+random(50))
      end;
     if(ran=9)then
      begin
       Say('Add me in about '+inttostr(ApproximateRunTime)+', to buy essence...')
       wait(1000+random(50))
      end;
     if(ran=10)then
      begin
       Say('If i craft these, i should have a high RC level :)')
       wait(1000+random(50))
      end;
    end;
    Procedure ProgressReport;
    var
    avg:integer;
    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(not(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';
       avg:=(Minutes div 60)*28
      end;
      begin
      writeln(' ');
      writeln(' ');
      writeln(' ');
      writeln('<=================Progress Report================>');
      writeln('Worked for '+Time);
      writeln('Mined '+inttostr(orecount)+' '+'Ores');
      writeln('Currently Mining '+inttostr(avg)+' '+' Ores and hour');
      writeln('Handled: '+inttostr(YellowText)+' Talking Randoms, and ran from '+inttostr(runs)+' random events');
      Writeln('<======================================== ========>');
      Report2:=GetSystemTime;
      end;
    end;
    end;
    
    
    function FindFight:boolean;
    begin
    If(FindColorSpiral(x,y,65280,180,90,320,230))then Wait(1000);
    If(FindColorSpiral(x,y,65280,180,90,320,230))then
    begin
    Runs:=Runs+1;
    SetRun(true);
    Wait(50+random(10));
    invfull:=true
    result:=true;
    end;
    end;
    
    procedure TalkToRand;
    begin
    Writeln('Talking to Random Event.')
      repeat
       if(FindColorSpiral(x,y,16711680,5,345,510,465))or( FindColorSpiral(x,y,16777215,5,345,510,465))then
       begin
        Mouse(x,y,50,2,true);
        wait(2000+random(1000));
       end;
      until(GetColor(20,434)=0)
    end;
    
    procedure FindText;
    var counter:integer;
    begin
    if(FindColor(x,y,65535,5,5,514,337))then
    begin
    wait(200)
    if(FindColor(x,y,65535,5,5,514,337))then
      begin
       Writeln('Found Yellow Text.')
       Yellowtext:=Yellowtext+1;
       GetScreenShot('YellowtextFound',Yellowtext);
       repeat
        counter:=counter+2+random(1);
        if((x+counter) < 515)and((y+18) < 338)then
        MoveMouseSmoothEx(x+counter,y+15+random(3),1,6,15, 20,20);
        wait(5);
        if(FindColorSpiral(x,y,65280,180,90,320,230))then
         break;
        if(IsTextAt2(9,9,'Ta',100))then
        begin
         GetMousePos(x,y);
         Mouse(x,y,1,1,false);
         Wait(200+random(100));
         if(FindBitmap(Talk,x,y))or(FindBitmap(Talky,x,y))t hen
          begin
           Mouse(x,y,40,5,true);
           MapFlag;
           wait(1000+random(1000));
           TalkToRand;
           Talked:=Talked+1
          end;
        end;
      until(counter>=250);
      end;
    end;
    end;
    
    Procedure FindLamp;
    begin
    while(FindBitmapSpiralTolerance(iLamp,x,y,550,200, 745,470,100)) do
     begin
      Writeln('Lamp Found in invintory. Rubbing Lamp...')
      Lamps:=Lamps+1;
      GetScreenshot('Lamp',Lamps);
      Mouse(x,y,10,10,true);
      wait(3000+random(1000));
      Mouse(157,220,12,12,true)
      wait(3000+random(1000));
      Mouse(248,255,10,2,true);
      wait(3000+random(1000));
      Mouse(226,442,10,3,true);
      wait(3000+random(1000));
      end;
    end;
    
    Procedure FindMod;
    var ax,ay:integer;
    begin
     if(FindColor(ax,ay,786423,10,350,150,433))then
     begin
      GetScreenshot('Mod',1);
      LogOut('UHOH, A MOD!!!');
     end;
    end;
    
    Procedure CheckIfDead;
    begin
     if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
     begin
      GetScreenshot('Dead',1);
      LogOut('You are dead!');
     end;
    end;
    
    Procedure FindMime;
    var ax,ay:integer;
    begin
    if(FindColor(ax,ay,11503238,10,350,479,433))then
     begin
      GetScreenshot('Mime',1);
      LogOut('Mime Found');
     end;
    end;
    
    Procedure Teleport;
    Begin
    
       Writeln('Finding Aubry...')
        repeat
         if(FindobjColorTol('Talk',Aubry,15))then
           getmousepos(x,y)
           MMouse(x,y,0,0)
           Uberwait(250+random(250))
           if(IsTextAt2(9,9,'Talk',100))then
          begin
           Writeln('Found Aubry... Teleporting...')
           GetMousePos(x,y)
           Uberwait(100+random(50))
           Mouse(x,y,0,0,false)
           uberwait(100+random(50))
          end;
           until(findbitmapspiraltolerance(tele,x,y,5,5,515,3 40,25) or (findbitmapspiraltolerance(teley,x,y,5,5,515,340,2 5)))
           if(findbitmapspiraltolerance(tele,x,y,5,5,515,340, 25) or (findbitmapspiraltolerance(teley,x,y,5,5,515,340,2 5)))then
            begin
             uberwait(250+random(50))
             Mouse(x,y,3,3,true)
    
           end;
    
        end;
    
    Procedure CheckRandoms;
    begin
    randomtime:=getsystemtime+5000
    if(not LoadedOARPBmps)then
    LoadOARPBmps;
    LoginIfNeeded;
    FindText;
    if(FindFight)then
    begin
    Writeln('Found Fight!')
    findportalarea;
    wait(1000+random(200))
    Teleport;
    end;
    FindLamp;
    FindMod;
    FindMime;
    CheckIfDead;
    FindStrangeBox;
    end;
    
    
    
     Procedure FindRockTopLeft;
       begin
    if(FindObjColorTol('Mine',Essrock,15))then
        Mouse(x,y,1,1,true)
        wait(100)
        Uberwait(2500+random(1000))
        CheckRandoms;
        Mouse(648,184,1,1,true)
        Checkinv;
       end;
    
     Procedure FindRockTopRight;
       begin
    if(FindObjColorTol('Mine',Essrock,15))then
       Mouse(x,y,1,1,true)
        wait(100)
        Uberwait(2500+random(1000))
        CheckRandoms;
        Mouse(648,184,1,1,true)
         Checkinv;
       end;
    
    
    Procedure FindRockBottomRight;
       begin
    
        if(FindObjColorTol('Mine',Essrock,15))then
    
        Mouse(x,y,1,1,true)
        wait(100)
        Uberwait(2500+random(1000))
        CheckRandoms;
        Mouse(648,184,1,1,true)
        CheckInv;
       end;
    
     Procedure FindRockBottomLeft;
       begin
        if(FindObjColorTol('Mine',Essrock,15))then
        Mouse(x,y,1,1,true)
        wait(100)
        Uberwait(2500+random(1000))
        CheckRandoms;
        Mouse(648,184,1,1,true)
        Checkinv;
       end;
    
    Procedure MineEssence;
     begin
     Writeln('Mining Essence...')
     repeat
     Mouse(648,184,1,1,true)
     wait(250+random(250))
     if(corner='SE')then
      begin
      EssRock:=EssRockSE
       FindRockBottomLeft;
       wait(100+random(100))
       CheckRandoms;
       wait(250+random(250))
    
      end;
     if(corner='SW')and(Walked=True)then
      begin
    
      EssRock:=EssRockSW
       FindRockBottomLeft;
       wait(100+random(100))
       CheckRandoms;
    
    wait(250+random(250))
    
     end;
     if(corner='SW')and(Walked=False)then
       begin
    
      EssRock:=EssRockSw
       FindRockBottomLeft;
       wait(100+random(100))
       CheckRandoms;
    
    wait(250+random(250))
    
       end;
    
     if(corner='NW')then
      begin
    
      EssRock:=EssRockNW
       FindRockTopRight;
       wait(100+random(100))
       FindRockTopLeft;
       wait(100+random(100))
       FindRockBottomLeft;
       wait(100+random(100))
       CheckRandoms;
    
    wait(250+random(250))
      end;
     if(corner='NE')then
      begin
      EssRock:=EssRockNE
       FindRockTopRight;
       wait(100+random(100))
       FindRockTopLeft;
       wait(100+random(100))
       FindRockBottomLeft;
       wait(100+random(100))
       CheckRandoms;
       end;
    
    wait(250+random(250))
    wait(250+random(250))
    until(invfull=true)
    FindPortalArea;
    corner:=''
    end;
    
    Procedure WalkToAubry;
    begin
     Writeln('Walkin To Aubry...')
     repeat
     wait(100+random(25))
     until(FindColorSpiralTolerance(x,y,BankSymbol,546, 0,736,170,25))
     if(FindColorSpiralTolerance(x,y,BankSymbol,546,0,7 36,170,25))then
      begin
       SetRun(true)
       Mouse(684,99,1,1,true)
       wait(500+random(25))
       Mouse(711,482,0,0,true)
       mapflag;
       Mouse(616,140,0,1,true)
       mapflag;
       repeat
       wait(250+random(200))
       until(FindColoredAreaTolerance(x,y,RuneFloor,546,0 ,737,170,3,25))
       if(FindColoredAreaTolerance(x,y,RuneFloor,546,0,73 7,170,3,15))then
        begin
         Mouse(x+3,y+3,2,2,true)
         wait(4000+random(2000))
    
         end;
      end;
    end;
    
    {================================================= ===]
    [================Jokers's Ingenious==================]
    [==============Area Finding Procedure================]
    [=====================JIAFP======================== ==}
    procedure findcornerSW;
    begin
    if(corner='')then
    begin
    if(findcolorspiraltolerance(x,y,LadderColor,128,16 0,291,243,5))then
    begin
    mouse(x,y,2,2,false)
    end;
    if(findbitmap(ladder,x,y))then
    begin
    corner:='SW'
    mouse(x,y,5,5,true)
    end;
    end;
    end;
    procedure findcornerSE;
    begin
    if(corner='')then
    begin
    mmouse(467,152,5,10)
    if(IsTextAt2(9,9,'Mine Rune Essence',200))then
    begin
    corner:='SE'
    
    end;
    end;
    end;
    procedure findcornercenterSW;
    begin
    if(corner='')then
    begin
    if(findcolorspiraltolerance(x,y,538962,270,100,320 ,150,5))then
    begin
    mmouse(x,y,0,0)
    if(IsTextAt2(9,9,'Chop down Dead tree',200))then
    begin
    corner:='centerSW'
    Mouse(621,120,0,0,true)
    corner:='SW'
    Walked:=True
    mapflag;
    end;
    end;
    end;
    end;
    procedure findcornerNW;
    begin
    if(corner='')then
    begin
    mmouse(165,81,10,10)
    wait(100+random(250))
    if(IsTextAt2(9,9,'Mine Rune Essence',200))then
    begin
    corner:='NW'
    end;
    end;
    end;
    procedure findcornerNE;
    begin
    if(corner='')then
    begin
    mmouse(370,85,15,15)
    if(IsTextAt2(9,9,'Mine Rune Essence',200))then
    begin
    corner:='NE'
    end;
    end;
    end;
    procedure findcornercenterNE;
    begin
    if(corner='')then
    begin
    MMouse(335,104,0,0)
    wait(100+random(250))
    if(IsTextAt2(9,9,'Chop',200))then
     begin
     corner:='centerNE'
     mouse(684,30,5,5,true)
     wait(5000+random(2500))
     corner:='NE'
     Walked:=True
     end;
    end;
    end;
    
    Procedure AubryToBank;
    begin
     setrun(true)
     Mouse(660,47,1,1,true)
     wait(9000+random(2000))
     repeat
     loginifneeded;
     wait(250+random(250))
     until(FindColorSpiralTolerance(x,y,BankSymbol,595, 0,671,42,5))
     if(FindColorSpiralTolerance(x,y,BankSymbol,595,0,6 71,42,5))then
      begin
       Mouse(x,y+5,1,1,true)
       MapFlag;
      end;
    end;
    
    Procedure BankEssence;
    begin
     Writeln('Looking for bank...')
     repeat
     UberWait(2000+random(200))
     if(FindColorSpiralTolerance(x,y,BankBooth,5,5,515, 340,10))then
      begin
       Writeln('Opening Bank...')
       MMouse(x,y,2,2)
       if(IsTextAt2(9,9,'Use Bank',100))then
        begin
         Mouse(x,y,0,0,False)
         UberWait(200+random(200))
         end;
         end;
         until(findbitmapspiraltolerance(bankq,x,y,5,5,515, 340,25) or (findbitmapspiraltolerance(bankqy,x,y,5,5,515,340, 25)))
         if(findbitmapspiraltolerance(bankq,x,y,5,5,515,340 ,25) or (findbitmapspiraltolerance(bankqy,x,y,5,5,515,340, 25)))then
          begin
           Mouse(x,y,2,2,true)
           Uberwait(6000+random(1000))
           if(FindColorSpiralTolerance(x,y,RuneOre,693,431,74 6,465,15))then
            begin
             MMouse(x,y,1,1)
             wait(100+random(100))
             if(IsTextAt2(9,9,'Store 1 Rune',200))then
            begin
             Mouse(x,y,0,0,false)
             uberwait(250+random(250))
             if(FindBitmapSpiralTolerance(StoreAllw,x,y,559,201 ,765,502,15))then
             begin
             Mouse(x-10,y,0,0,true)
             uberwait(1000+random(1000))
             OreCount:=OreCount+28
             ProgressReport;
             Mouse(459,42,10,1,true)
             wait(1000+random(250))
            end;
            end;
           end;
          end;
    end;
    
    Procedure RandomLogout;
    var
    CurBreak,Seconds1,Minutes1:integer;
    begin
     if(GetSystemTime-LastBreak > report*60000)then
    begin
      Seconds1:=(GetSystemTime-ST) div 1000;
      Minutes1:=Seconds1 div 60;
     if(Minutes>=RandomLog+random(5)+5)then
      begin
       Mouse(649,485,5,5,true)
       wait(500+random(100))
       Mouse(644,375,25,5,true)
       wait(5000+random(250))
       repeat
        wait(60000+Random(2500))
        CurBreak:=CurBreak+1;
       until(CurBreak>=LogLength+Random(15))
       wait(1000+Random(2500))
       LoginIfNeeded;
       LastBreak:=GetSystemTime;
      end;
    end;
    end;
    
    begin
    LoginIfNeeded;
    SetupOSi;
    LoadBankBmps;
    BoxOpenerSetup;
    LoadBMPs;
    ChatFixer;
    Report:=1;
    ST:=GetSystemTime;
    repeat
    WalkToAubry;
    wait(1000+random(500))
    Teleport;
    wait(10000+random(1000))
    repeat
    findcornerSE
    wait(100+random(50))
    findcornerNE
    wait(100+random(50))
    findcornercenterSW
    wait(100+random(50))
    findcornerSW
    wait(100+random(50))
    findcornercenterNE
    wait(100+random(50))
    findcornerNW
    wait(100+random(50))
    until(not(corner=''))
    Writeln('Your in the ' +corner + ' corner')
    wait(100+random(50))
    MineEssence;
    wait(2000+random(250))
    AubryToBank;
    wait(100+random(50))
    BankEssence;
    wait(100+random(50))
    x:=random(3)
    if(x=1)then
     begin
      Randomtalk;
      ChatFixer;
     end;
    x:=random(2)
    if(x=1)then
     begin
      RandomLogOut;
     end;
    Walked:=False
    until(false)
    end.
    Last edited by Markus; 09-20-2009 at 06:16 AM. Reason: Operation Foxley

  19. #44
    Join Date
    Feb 2006
    Location
    Helsinki, Finland
    Posts
    1,395
    Mentioned
    30 Post(s)
    Quoted
    107 Post(s)

    Default

    Quote Originally Posted by c0de View Post
    Here's one from 2003:
    Code:
    (*
    
                                      <------->
                                    <----------->
                                  <----Joker----->
                                  <----Presents:->
                                    <----------->
                                      <------->
    
    |===============================================================================|
    |===============================================================================|
    |                                 (*
    |                     EvilEssMiner 1.8 BY: Joker
    |                                  *)                                           (*|
    |===============================================================================|
    |^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^|
    |```````Read Setup Notes!!! Or The Script May Fail!`````````````````````````````|
    |...............................................................................|
    |+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++|
    |                                                                               |
    |                                                                               |
    |					              Need Help?!?:                                           |
    |                     aIm: PhroznJoker                                          |
    |                     msn: vb_newbie@hotmail.com                                |
    |                     e-mail: vb_newbie@hotmail.com
    |
    |                                                                               |
    |                                                                               |
    |--------------------------------                                               |
    |Features:                                                                      |
    |---------------------                                                          |
    |Perfect Room Detection!                                                        |
    |Good Mining Procedure!
    |Great Portal Area Procedure!                                                                        |
    |Banking!                                                                  |
    |Anti-Randoms!                                                                   |
    |-----------                                                                    |
    |                                                                               |
    |                                                                               |
    |--------------------------------                                               |
    |Contents:                                                                      |
    |---------------------                                                          |
    |EvilEssMiner <- Main Script Run This                                            |
    |Pics required to Run {Included in the script no worries}                                                          |
    |Includes                                                                       |
    |-----------                                                                    |
    |                                                                               |
    |                                                                               |
    |--------------------------------                                               |
    |Setup notes:                                                                   |
    |---------------------                                                          |
    |V-Bright!
    |Setup lines 76 - 85
    |Start in Varrok Bank next to the furthest left booth (Wield PixAxe)
    |USE 16 BIT!!!
    |Hit start
    |-----------                                                                    |
    |                                                                               |
    |                                                                               |
    |--------------------------------                                               |
    |Release Verisions:                                                             |
    |---------------------                                                          |
    |1.0 Private Release To My Real Life Friends...
    |1.1 Added RandomTalk; Procedure
    |1.3 Added A WAY Better Mining System...
    |1.5 Added Better Banking, RoomDetection and Random Bugs
    |1.6 Released It SS, And Fixed a SHIT load of stuff
    |1.8 Fixed Center Room Detection, Walking, And lots of other stuff                                                    |
    |-----------                                                                    |
    |                                                                               |
    |===============================================================================|
    |  Special Thanks TO:                                                           |
    |         GenoDemoN, Sythe, UEA, My Girlfriend, And Paul                        |
    |===============================================================================|
    |================================<3=============================================|
    |===============================================================================|
    *)
    program JokersEssMiner;
    Var
    lastbreak,curcol,StoreAllw,EssRock,report2,report,Seconds,Minutes,RHours,orecount,RSeconds,RMinutes,Talk,Talky,Runs,randomtime,YellowText,iLamp,Talked,tele,Lamps,teley,store,ladder,use,usey,storey,log,bankq,bankqy:Integer;
    Corner,Time:String;
    LoadedOARPBmps,Walked,invfull:Boolean;
    Const
    username='';
    password='';
    RandomLog=63; //Approx ever how many minutes to take a break?
    LogLength=10; //Time to take breaks ;)
    BankSymbol=4367814; {The yellow part or the bank symbol}
    RuneFloor=2205183; {The floor of the rune shop}
    Aubry=2188172; {Aubry's shirt color is best}
    EssRockNw=5923683; {Essence ROCK color (on screen in NW Corner)}
    EssRockNe=10855861; {Essence ROCK color (on screen in NE Corner)}
    EssRockSw=4868682; {Essence ROCK color (on screen in SW Corner)}
    EssRockSe=10263717; {Essence ROCK color (on screen in SE Corner)}
    LadderColor=6522004; {The ladder in the SW room, on the floor}
    TeleColor=10270141; {Color of the portal}
    RuneOre=6513515; {Color or the ess in ur inventory}
    BankBooth=7048348; {go here http://img132.exs.cx/my.php?loc=img132&image=here1vj.png}
    ApproximateRunTime=30; //Minutes (wont stop the script needed for randomtalk;)
    {.include OSi.txt}
    {.include BoxBreaker.txt}
    Procedure LoadOARPBmps;
    begin
    LoadedOARPBmps:=true;
    Talk := BitmapFromString(17, 10,
            'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000' +
            '000000000000000000000000000000000000FFFFFFFFFFFF000000' +
            '000000FFFFFFFFFFFF000000000000000000000000000000000000' +
            '000000000000000000000000000000FFFFFFFFFFFF000000000000' +
            'FFFFFFFFFFFF000000000000000000000000000000000000000000' +
            '000000000000000000000000FFFFFFFFFFFF000000000000FFFFFF' +
            'FFFFFF000000000000000000000000000000000000000000000000' +
            '000000000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
            '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000' +
            '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
            '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
            '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
            '000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFF000000000000000000FFFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
            '000000000000FFFFFFFFFFFF000000000000000000000000FFFFFF' +
            'FFFFFFFFFFFFFFFFFFFFFFFF000000000000FFFFFFFFFFFF');
    TalkY := BitmapFromString(17, 10,
            'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00000000000000000000' +
            '000000000000000000000000000000000000FFFF00FFFF00000000' +
            '000000FFFF00FFFF00000000000000000000000000000000000000' +
            '000000000000000000000000000000FFFF00FFFF00000000000000' +
            'FFFF00FFFF00000000000000000000000000000000000000000000' +
            '000000000000000000000000FFFF00FFFF00000000000000FFFF00' +
            'FFFF00000000000000000000000000000000000000000000000000' +
            '000000000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
            '000000000000000000000000FFFF00FFFF00FFFF00FFFF00000000' +
            '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
            '000000000000FFFF00FFFF00000000000000FFFF00FFFF00000000' +
            '000000FFFF00FFFF00000000000000FFFF00FFFF00000000000000' +
            '000000000000FFFF00FFFF00FFFF00FFFF00FFFF00000000000000' +
            'FFFF00FFFF00000000000000FFFF00FFFF00000000000000000000' +
            'FFFF00FFFF00000000000000FFFF00FFFF00000000000000FFFF00' +
            'FFFF00000000000000FFFF00FFFF00000000000000000000FFFF00' +
            'FFFF00000000000000FFFF00FFFF00000000000000FFFF00FFFF00' +
            '000000000000FFFF00FFFF00000000000000000000000000FFFF00' +
            'FFFF00FFFF00FFFF00FFFF00000000000000FFFF00FFFF00');
    //Lamp pic by Chriz
    iLamp := BitmapFromString(17, 6,
           '000001000001000001000001BAB815B2B015AEAD15ABAA159C9A12' +
           '9291128C8A1275740E000001000001000001000001000001D0CE18' +
           'CBC918C8C618C5C418C5C418C0BE18BAB815B5B315ABAA15A3A112' +
           '99971292911284820E79780E6968095C5A09A6A415CECC18C5C418' +
           'C2C118C0BE18BDBB18BAB815B8B615B5B315B2B015A8A715A3A112' +
           '9C9A129594128E8D1281800E999712AEAD15CECC18CBC918C0BE18' +
           'BDBB18BAB815B5B315B2B015AEAD15A8A715A3A1129F9E12999712' +
           '88860E84820E8C8A129291129C9A12000001CBC918CBC918BAB815' +
           'B8B615B5B315B2B015AEAD15A8A715A3A1129C9A1295941281800E' +
           '79780E84820E000001000001000001CBC918CBC918C0BE18B8B615' +
           'B2B015AEAD15ABAA15A6A4159F9E129997128C8A1279780E75740E' +
           '000001000001C2C118');
    end;
    Procedure LoadBMPs;
    begin
    storey := BitmapFromString(20, 4,
           'FFFF000000005A5242FFFF00FFFF000000005A5242FFFF00FFFF00' +
           '0000005A52425A5242FFFF00FFFF000000005A5242FFFF00FFFF00' +
           '0000005A5242FFFF00FFFF00FFFF00FFFF000000000000005A5242' +
           'FFFF00FFFF000000005A52425A5242FFFF00FFFF000000005A5242' +
           'FFFF00FFFF000000005A5242FFFF00000000000000000000000000' +
           '5A52425A5242FFFF00FFFF000000005A52425A5242FFFF00FFFF00' +
           '0000005A5242FFFF00FFFF000000005A5242FFFF00FFFF00FFFF00' +
           'FFFF00FFFF005A52425A5242FFFF00FFFF000000005A52425A5242' +
           'FFFF00FFFF000000005A5242FFFF00FFFF000000005A5242');
    store := BitmapFromString(18, 4,
           '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A5242' +
           '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A5242' +
           'FFFFFFFFFFFF0000000000005A5242FFFFFFFFFFFF0000005A5242' +
           '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A5242' +
           '0000000000000000005A52425A5242FFFFFFFFFFFF0000005A5242' +
           '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A5242' +
           'FFFFFFFFFFFFFFFFFF5A52425A5242FFFFFFFFFFFF0000005A5242' +
           '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A5242' +
           '');
    use := BitmapFromString(25, 2,
          'FFFFFFFFFFFF0000005D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF' +
          'FFFFFF5D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF5D5447' +
          '5D54475D54475D54475D54475D54475D544700FFFFFFFFFFFFFFFF' +
          '0000005D5447FFFFFFFFFFFF000000000000000000000000000000' +
          '5D5447FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D54475D5447' +
          '5D54475D54475D54475D544700FFFF');
     useY := BitmapFromString(25, 2,
          'FFFF00FFFF000000005D5447FFFF00FFFF00000000000000000000' +
          '0000000000005D5447FFFF00FFFF00000000000000FFFF00FFFF00' +
          '5D54475D54475D54475D54475D54475D544700FFFFFFFF00FFFF00' +
          '0000005D54475D5447FFFF00FFFF00FFFF00FFFF005D54475D5447' +
          '5D5447FFFF00FFFF000000005D5447FFFF00FFFF000000005D5447' +
          '5D54475D54475D54475D544700FFFF');
    bankqy := BitmapFromString(41, 6,
           '000000000000FFFF00FFFF000000005A5242FFFF00FFFF00000000' +
           '5A5242FFFF00FFFF000000005A5242FFFF00FFFF000000005A5242' +
           'FFFF00FFFF000000005A52425A52425A52425A5242FFFF00FFFF00' +
           'FFFF000000000000005A52425A5242FFFF00FFFF000000005A5242' +
           'FFFF00FFFF000000005A5242FFFF000000005A5242FFFF00FFFF00' +
           '0000005A5242FFFF00FFFF000000005A5242FFFF00FFFF00000000' +
           '5A5242FFFF00FFFF000000005A5242FFFF00FFFF000000005A5242' +
           '5A52425A52425A5242FFFF00FFFF00FFFF00FFFF005A52425A5242' +
           '5A5242FFFF00FFFF000000005A5242FFFF00FFFF000000005A5242' +
           'FFFF00FFFF005A5242FFFF00FFFF000000005A5242FFFF00FFFF00' +
           '0000005A5242FFFF00FFFF000000005A5242FFFF00FFFF00000000' +
           '5A5242FFFF00FFFF000000005A52425A52425A52425A5242FFFF00' +
           'FFFF00000000FFFF00FFFF005A52425A5242FFFF00FFFF00000000' +
           '5A52425A5242FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00' +
           'FFFF000000005A52425A5242FFFF00FFFF00FFFF00FFFF00000000' +
           '0000005A5242FFFF00FFFF000000005A52425A5242FFFF00FFFF00' +
           'FFFF00FFFF005A52425A5242FFFF00FFFF000000005A5242FFFF00' +
           'FFFF005A5242FFFF00FFFF000000005A52425A52425A5242000000' +
           '000000FFFF005A5242000000FFFF00FFFF000000005A52425A5242' +
           '5A52420000000000000000000000005A52425A52425A5242000000' +
           '0000005A52425A52425A52420000000000000000000000005A5242' +
           '5A52420000000000005A52425A52420000000000005A5242000000' +
           '0000005A52425A52425A52425A52425A5242FFFF005A52425A5242' +
           'FFFF00FFFF000000005A52425A52425A52425A52425A52425A5242' +
           '5A52425A52425A52425A52425A52425A52425A52425A52425A5242' +
           '5A52425A52425A52425A52425A52425A52425A52425A52425A5242' +
           '5A52425A52425A52425A52425A52425A52425A52425A52425A5242' +
           '5A52425A5242FFFF00');
    ladder := BitmapFromString(24, 6,
           '00FFFF00FFFF0000005A52425A52425A52425A524200FFFF00FFFF' +
           '00000000000000FFFF00FFFF5A52425A52425A524200FFFF00FFFF' +
           '00000000FFFF00FFFF0000005A52425A524200FFFF00FFFF000000' +
           '5A52425A52425A52425A52425A524200FFFF00FFFF00FFFF00FFFF' +
           '00FFFF0000005A524200FFFF00FFFF00000000000000FFFF00FFFF' +
           '0000005A524200FFFF00FFFF00FFFF0000005A52425A52425A5242' +
           '5A524200FFFF00FFFF00000000000000FFFF00FFFF0000005A5242' +
           '00FFFF00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF' +
           '00FFFF00FFFF0000005A52425A52425A52425A524200FFFF00FFFF' +
           '0000005A524200FFFF00FFFF0000005A524200FFFF00FFFF000000' +
           '5A524200FFFF00FFFF0000005A524200FFFF00FFFF00FFFF00FFFF' +
           '00FFFF00FFFF00FFFF5A52425A524200FFFF00FFFF00FFFF00FFFF' +
           '00FFFF0000005A52425A524200FFFF00FFFF00FFFF00FFFF00FFFF' +
           '0000005A52425A52425A5242000000000000000000000000000000' +
           '0000005A52425A52420000000000000000000000000000005A5242' +
           '5A52425A52420000000000000000000000000000005A52425A5242' +
           '');
    bankq := BitmapFromString(24, 4,
           '0000005A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF000000' +
           '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A5242' +
           'FFFFFFFFFFFF0000005A52425A52425A5242FFFFFF5A5242FFFFFF' +
           'FFFFFF0000005A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF' +
           '0000005A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF000000' +
           '5A52425A52425A5242FFFFFFFFFFFFFFFFFFFFFFFF0000005A5242' +
           '5A5242FFFFFFFFFFFFFFFFFFFFFFFF0000000000005A5242FFFFFF' +
           'FFFFFF0000005A52425A5242FFFFFFFFFFFFFFFFFFFFFFFF5A5242' +
           '5A5242000000FFFFFFFFFFFF0000005A52425A52425A5242000000' +
           '0000000000000000005A52425A52425A52420000000000005A5242' +
           '5A52425A5242000000000000000000000000');
    log := BitmapFromString(18, 3,
           '00FFFF00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF' +
           '00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF00FFFF' +
           '00FFFF00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF' +
           '00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF00FFFF' +
           '00FFFF00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF' +
           '00FFFF0000005A524200FFFF00FFFF0000005A524200FFFF00FFFF' +
           '');
    StoreAllw := BitmapFromString(13, 2,
           'FFFFFFFFFFFF0000005A52425A5242FFFFFFFFFFFF0000005A5242' +
           'FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A52425A5242' +
           'FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A5242');
    tele := BitmapFromString(35, 5,
           'FFFFFFFFFFFF0000005A52425A5242FFFFFFFFFFFF0000005A5242' +
           'FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF0000005A5242FFFFFF' +
           'FFFFFF0000005A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF' +
           '0000005A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFFFFFFFF' +
           'FFFFFF0000005A52425A5242FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
           '0000000000005A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF' +
           'FFFFFFFFFFFFFFFFFF0000000000005A5242FFFFFFFFFFFF000000' +
           '5A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFFFFFFFFFFFFFF' +
           '0000005A52425A5242FFFFFFFFFFFF000000000000000000000000' +
           '5A52425A5242FFFFFFFFFFFF0000005A5242FFFFFFFFFFFF000000' +
           '0000000000000000005A52425A5242FFFFFFFFFFFF0000005A5242' +
           'FFFFFFFFFFFF0000005A5242FFFFFFFFFFFFFFFFFFFFFFFF000000' +
           '5A52425A52425A5242FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF5A5242' +
           '5A5242FFFFFFFFFFFF0000005A52425A5242FFFFFFFFFFFFFFFFFF' +
           'FFFFFFFFFFFF5A52425A5242FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
           '0000000000005A52425A5242FFFFFF5A52420000000000005A5242' +
           '5A52425A52425A52420000000000000000000000000000005A5242' +
           '5A52420000000000005A52425A52425A5242000000000000000000' +
           '0000000000005A5242FFFFFFFFFFFF000000000000000000000000' +
           '5A52425A52425A52425A5242');
    teley := BitmapFromString(31, 5,
           '5A5242FFFF00FFFF000000005A52425A5242FFFF00FFFF00000000' +
           '5A5242FFFF00FFFF000000005A5242FFFF00FFFF000000005A5242' +
           'FFFF00FFFF000000005A5242FFFF00FFFF000000005A5242FFFF00' +
           'FFFF000000005A5242FFFF005A5242FFFF00FFFF000000005A5242' +
           '5A5242FFFF00FFFF00FFFF00FFFF00FFFF000000000000005A5242' +
           'FFFF00FFFF000000005A5242FFFF00FFFF00FFFF00FFFF00FFFF00' +
           '0000000000005A5242FFFF00FFFF000000005A5242FFFF005A5242' +
           'FFFF00FFFF000000005A52425A5242FFFF00FFFF00000000000000' +
           '0000000000005A52425A5242FFFF00FFFF000000005A5242FFFF00' +
           'FFFF000000000000000000000000005A52425A5242FFFF00FFFF00' +
           '0000005A5242FFFF005A5242FFFF00FFFF000000005A52425A5242' +
           '5A5242FFFF00FFFF00FFFF00FFFF00FFFF005A52425A5242FFFF00' +
           'FFFF000000005A52425A5242FFFF00FFFF00FFFF00FFFF00FFFF00' +
           '5A52425A5242FFFF00FFFF00FFFF00FFFF00FFFF005A52425A5242' +
           '0000000000005A52425A52425A52425A5242000000000000000000' +
           '0000000000005A52425A52420000000000005A52425A52425A5242' +
           '0000000000000000000000000000005A5242FFFF00FFFF00000000' +
           '000000000000');
    end;
    
    Procedure LoginIfNeeded;
    begin
    if(Getcolor(274,291)=16777215) then
    begin
    mouse(461,293,75,15,true)
    wait(500 + random(250))
    SendKeysSilentSmooth(username,50+random(50))
    wait(300 + random(250))
    Mouse(405,271,50,5,true)
    wait(500 + random(1000))
    SendKeysSilentSmooth(password,50+random(50))
    wait(1000 + random(500))
    mouse(317,325,20,10,true)
    repeat
    wait(2500 + random(100))
    until(Getcolor(201,67)=65535)
    if(findcolorspiraltolerance(x,y,8684676,421,54,495,150,5))then
     begin
      Mouse(x,y,0,0,true)
      wait(1000 + random(250))
     end;
    end;
    end;
    
    procedure findportalarea;
    begin
    SetRun(true)
    if(corner='NW')then
    begin
    Mouse(616,75,1,1,true)
    wait(8000+random(1000))
    repeat
    wait(100+random(50))
    until(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,5))
    repeat
    FindObjColorTol('Use',TeleColor,20)
    getmousepos(x,y)
    curcol:=getcolor(x,y)
    until(SimilarColors(curcol,TeleColor,20))
    if(FindObjColorTol('Use',TeleColor,20))then
     GetMousePos(x,y)
     begin
      MMouse(x,y,1,1)
      wait(100+random(100))
      if(IsTextAt2(9,9,'Use',200))then
       Begin
        Mouse(x,y,1,1,true)
        wait(8000+random(3000))
    
       end;
     end;
    end;
    if(corner='NE')or(corner='centerNE')then
    begin
    
    if(corner='centerNE')then
    begin
    mouse(681,32,2,2,true)
    wait(8000+random(3000))
    corner:='NE'
    end;
    if(corner='NE')then
    begin
    Mouse(677,57,0,0,true)
    Wait(8000+random(1000))
    repeat
    wait(100+random(50))
    until(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,20))
    repeat
    FindObjColorTol('Use',TeleColor,5)
    getmousepos(x,y)
    curcol:=getcolor(x,y)
    until(SimilarColors(curcol,TeleColor,20))
     GetMousePos(x,y)
      MMouse(x,y,1,1)
      wait(100+random(100))
      if(IsTextAt2(9,9,'Use',200))then
       Begin
        Mouse(x,y,1,1,true)
        wait(8000+random(3000))
       end;
     end;
    end;
    
    if(corner='SW')or(corner='centerSW')then
    begin
    
    if(corner='centerSW')and(not(Walked=True))then
    begin
    mouse(620,86,0,0,true)
    wait(6000+random(1000))
    repeat
    wait(100+random(50))
    until(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,20))
    repeat
    FindObjColorTol('Use',TeleColor,20)
    getmousepos(x,y)
    curcol:=getcolor(x,y)
    until(SimilarColors(curcol,TeleColor,20))
    if(FindObjColorTol('Use',TeleColor,5))then
     GetMousePos(x,y)
     begin
      MMouse(x,y,1,1)
      wait(100+random(100))
      if(IsTextAt2(9,9,'Use',200))then
       Begin
        Mouse(x,y,1,1,true)
        wait(8000+random(3000))
       end;
     end;
    end;
    end;
    
    if(corner='SW')and(Walked=True)then
    begin
    Mouse(620,110,1,1,true)
    wait(8000+random(1000))
    end;
    repeat
    wait(100+random(50))
    until(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,20))
    repeat
    FindObjColorTol('Use',TeleColor,20)
    getmousepos(x,y)
    curcol:=getcolor(x,y)
    until(SimilarColors(curcol,TeleColor,20))
    if(FindObjColorTol('Use',TeleColor,5))then
     GetMousePos(x,y)
     begin
      MMouse(x,y,1,1)
      wait(100+random(100))
      if(IsTextAt2(9,9,'Use',200))then
       Begin
        Mouse(x,y,1,1,true)
        wait(8000+random(3000))
       end;
     end;
    if(corner='SW')then
    begin
    Mouse(614,77,1,1,true)
    wait(8000+random(1000))
    end;
    repeat
    FindObjColorTol('Use',TeleColor,20)
    getmousepos(x,y)
    curcol:=getcolor(x,y)
    until(SimilarColors(curcol,TeleColor,20))
    if(FindObjColorTol('Use',TeleColor,20))then
     begin
      GetMousePos(x,y)
      MMouse(x,y,0,0)
      wait(100+random(100))
     end;
      if(IsTextAt2(9,9,'Use',200))then
       Begin
        Mouse(x,y,1,1,true)
        Wait(8000+random(1000))
       end;
    if(corner='SE')then
    begin
    wait(100+random(25))
    Mouse(674,103,1,1,true)
    wait(8000+random(1000))
    repeat
    FindObjColorTol('Use',TeleColor,20)
    getmousepos(x,y)
    curcol:=getcolor(x,y)
    until(SimilarColors(curcol,TeleColor,20))
    if(FindObjColorTol('Use',TeleColor,20))then
     begin
      GetMousePos(x,y)
      MMouse(x,y,0,0)
      wait(100+random(100))
     end;
      if(IsTextAt2(9,9,'Use',200))then
       Begin
        Mouse(x,y,1,1,true)
        Wait(8000+random(1000))
       end;
    end;
    end;
    
    Procedure Checkinv;
    begin
    Mouse(648,183,5,5,true)
    if(FindColorSpiralTolerance(x,y,RuneOre,691,426,746,465,15))then
     begin
      wait(1000+Random(100))
      invfull:=true
     end;
    end;
    Procedure Randomtalk;
    var
    ran:integer;
     begin
     ran:=Random(10)
      if(ran=1)then
      begin
       Say('Dang this is borng')
       wait(1000+random(50))
       Say('boring*')
      end;
    
     if(ran=2)then
      begin
       Say('Darn this mining is borng')
       wait(1000+random(500))
       Say('err......')
       wait(1000+random(500))
       Say('boring*')
      end;
     if(ran=3)then
      begin
       Say('Wow... Mind ' +inttostr(orecount+random(5))+ ' ess.')
       wait(1000+random(500))
       Say('mined*')
      end;
     if(ran=4)then
      begin
       Say('Whats everyones mining level?')
       wait(1000+random(500))
      end;
     if(ran=5)then
      begin
       Say('Dang this is borng')
       wait(1000+random(50))
       Say('boring*')
      end;
     if(ran=6)then
      begin
       Say('What does everyone pay for ess?')
       wait(1000+random(50))
      end;
     if(ran=8)then
      begin
       Say('If i keep gettin this much, ill be rich!')
       wait(1000+random(50))
      end;
     if(ran=9)then
      begin
       Say('Add me in about '+inttostr(ApproximateRunTime)+', to buy essence...')
       wait(1000+random(50))
      end;
     if(ran=10)then
      begin
       Say('If i craft these, i should have a high RC level :)')
       wait(1000+random(50))
      end;
    end;
    Procedure ProgressReport;
    var
    avg:integer;
    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(not(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';
       avg:=(Minutes div 60)*28
      end;
      begin
      writeln(' ');
      writeln(' ');
      writeln(' ');
      writeln('<=================Progress Report================>');
      writeln('Worked for '+Time);
      writeln('Mined '+inttostr(orecount)+' '+'Ores');
      writeln('Currently Mining '+inttostr(avg)+' '+' Ores and hour');
      writeln('Handled: '+inttostr(YellowText)+' Talking Randoms, and ran from '+inttostr(runs)+' random events');
      Writeln('<================================================>');
      Report2:=GetSystemTime;
      end;
    end;
    end;
    
    
    function FindFight:boolean;
    begin
    If(FindColorSpiral(x,y,65280,180,90,320,230))then Wait(1000);
    If(FindColorSpiral(x,y,65280,180,90,320,230))then
    begin
    Runs:=Runs+1;
    SetRun(true);
    Wait(50+random(10));
    invfull:=true
    result:=true;
    end;
    end;
    
    procedure TalkToRand;
    begin
    Writeln('Talking to Random Event.')
      repeat
       if(FindColorSpiral(x,y,16711680,5,345,510,465))or(FindColorSpiral(x,y,16777215,5,345,510,465))then
       begin
        Mouse(x,y,50,2,true);
        wait(2000+random(1000));
       end;
      until(GetColor(20,434)=0)
    end;
    
    procedure FindText;
    var counter:integer;
    begin
    if(FindColor(x,y,65535,5,5,514,337))then
    begin
    wait(200)
    if(FindColor(x,y,65535,5,5,514,337))then
      begin
       Writeln('Found Yellow Text.')
       Yellowtext:=Yellowtext+1;
       GetScreenShot('YellowtextFound',Yellowtext);
       repeat
        counter:=counter+2+random(1);
        if((x+counter) < 515)and((y+18) < 338)then
        MoveMouseSmoothEx(x+counter,y+15+random(3),1,6,15,20,20);
        wait(5);
        if(FindColorSpiral(x,y,65280,180,90,320,230))then
         break;
        if(IsTextAt2(9,9,'Ta',100))then
        begin
         GetMousePos(x,y);
         Mouse(x,y,1,1,false);
         Wait(200+random(100));
         if(FindBitmap(Talk,x,y))or(FindBitmap(Talky,x,y))then
          begin
           Mouse(x,y,40,5,true);
           MapFlag;
           wait(1000+random(1000));
           TalkToRand;
           Talked:=Talked+1
          end;
        end;
      until(counter>=250);
      end;
    end;
    end;
    
    Procedure FindLamp;
    begin
    while(FindBitmapSpiralTolerance(iLamp,x,y,550,200,745,470,100)) do
     begin
      Writeln('Lamp Found in invintory. Rubbing Lamp...')
      Lamps:=Lamps+1;
      GetScreenshot('Lamp',Lamps);
      Mouse(x,y,10,10,true);
      wait(3000+random(1000));
      Mouse(157,220,12,12,true)
      wait(3000+random(1000));
      Mouse(248,255,10,2,true);
      wait(3000+random(1000));
      Mouse(226,442,10,3,true);
      wait(3000+random(1000));
      end;
    end;
    
    Procedure FindMod;
    var ax,ay:integer;
    begin
     if(FindColor(ax,ay,786423,10,350,150,433))then
     begin
      GetScreenshot('Mod',1);
      LogOut('UHOH, A MOD!!!');
     end;
    end;
    
    Procedure CheckIfDead;
    begin
     if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
     begin
      GetScreenshot('Dead',1);
      LogOut('You are dead!');
     end;
    end;
    
    Procedure FindMime;
    var ax,ay:integer;
    begin
    if(FindColor(ax,ay,11503238,10,350,479,433))then
     begin
      GetScreenshot('Mime',1);
      LogOut('Mime Found');
     end;
    end;
    
    Procedure Teleport;
    Begin
    
       Writeln('Finding Aubry...')
        repeat
         if(FindobjColorTol('Talk',Aubry,15))then
           getmousepos(x,y)
           MMouse(x,y,0,0)
           Uberwait(250+random(250))
           if(IsTextAt2(9,9,'Talk',100))then
          begin
           Writeln('Found Aubry... Teleporting...')
           GetMousePos(x,y)
           Uberwait(100+random(50))
           Mouse(x,y,0,0,false)
           uberwait(100+random(50))
          end;
           until(findbitmapspiraltolerance(tele,x,y,5,5,515,340,25) or (findbitmapspiraltolerance(teley,x,y,5,5,515,340,25)))
           if(findbitmapspiraltolerance(tele,x,y,5,5,515,340,25) or (findbitmapspiraltolerance(teley,x,y,5,5,515,340,25)))then
            begin
             uberwait(250+random(50))
             Mouse(x,y,3,3,true)
    
           end;
    
        end;
    
    Procedure CheckRandoms;
    begin
    randomtime:=getsystemtime+5000
    if(not LoadedOARPBmps)then
    LoadOARPBmps;
    LoginIfNeeded;
    FindText;
    if(FindFight)then
    begin
    Writeln('Found Fight!')
    findportalarea;
    wait(1000+random(200))
    Teleport;
    end;
    FindLamp;
    FindMod;
    FindMime;
    CheckIfDead;
    FindStrangeBox;
    end;
    
    
    
     Procedure FindRockTopLeft;
       begin
    if(FindObjColorTol('Mine',Essrock,15))then
        Mouse(x,y,1,1,true)
        wait(100)
        Uberwait(2500+random(1000))
        CheckRandoms;
        Mouse(648,184,1,1,true)
        Checkinv;
       end;
    
     Procedure FindRockTopRight;
       begin
    if(FindObjColorTol('Mine',Essrock,15))then
       Mouse(x,y,1,1,true)
        wait(100)
        Uberwait(2500+random(1000))
        CheckRandoms;
        Mouse(648,184,1,1,true)
         Checkinv;
       end;
    
    
    Procedure FindRockBottomRight;
       begin
    
        if(FindObjColorTol('Mine',Essrock,15))then
    
        Mouse(x,y,1,1,true)
        wait(100)
        Uberwait(2500+random(1000))
        CheckRandoms;
        Mouse(648,184,1,1,true)
        CheckInv;
       end;
    
     Procedure FindRockBottomLeft;
       begin
        if(FindObjColorTol('Mine',Essrock,15))then
        Mouse(x,y,1,1,true)
        wait(100)
        Uberwait(2500+random(1000))
        CheckRandoms;
        Mouse(648,184,1,1,true)
        Checkinv;
       end;
    
    Procedure MineEssence;
     begin
     Writeln('Mining Essence...')
     repeat
     Mouse(648,184,1,1,true)
     wait(250+random(250))
     if(corner='SE')then
      begin
      EssRock:=EssRockSE
       FindRockBottomLeft;
       wait(100+random(100))
       CheckRandoms;
       wait(250+random(250))
    
      end;
     if(corner='SW')and(Walked=True)then
      begin
    
      EssRock:=EssRockSW
       FindRockBottomLeft;
       wait(100+random(100))
       CheckRandoms;
    
    wait(250+random(250))
    
     end;
     if(corner='SW')and(Walked=False)then
       begin
    
      EssRock:=EssRockSw
       FindRockBottomLeft;
       wait(100+random(100))
       CheckRandoms;
    
    wait(250+random(250))
    
       end;
    
     if(corner='NW')then
      begin
    
      EssRock:=EssRockNW
       FindRockTopRight;
       wait(100+random(100))
       FindRockTopLeft;
       wait(100+random(100))
       FindRockBottomLeft;
       wait(100+random(100))
       CheckRandoms;
    
    wait(250+random(250))
      end;
     if(corner='NE')then
      begin
      EssRock:=EssRockNE
       FindRockTopRight;
       wait(100+random(100))
       FindRockTopLeft;
       wait(100+random(100))
       FindRockBottomLeft;
       wait(100+random(100))
       CheckRandoms;
       end;
    
    wait(250+random(250))
    wait(250+random(250))
    until(invfull=true)
    FindPortalArea;
    corner:=''
    end;
    
    Procedure WalkToAubry;
    begin
     Writeln('Walkin To Aubry...')
     repeat
     wait(100+random(25))
     until(FindColorSpiralTolerance(x,y,BankSymbol,546,0,736,170,25))
     if(FindColorSpiralTolerance(x,y,BankSymbol,546,0,736,170,25))then
      begin
       SetRun(true)
       Mouse(684,99,1,1,true)
       wait(500+random(25))
       Mouse(711,482,0,0,true)
       mapflag;
       Mouse(616,140,0,1,true)
       mapflag;
       repeat
       wait(250+random(200))
       until(FindColoredAreaTolerance(x,y,RuneFloor,546,0,737,170,3,25))
       if(FindColoredAreaTolerance(x,y,RuneFloor,546,0,737,170,3,15))then
        begin
         Mouse(x+3,y+3,2,2,true)
         wait(4000+random(2000))
    
         end;
      end;
    end;
    
    {====================================================]
    [================Jokers's Ingenious==================]
    [==============Area Finding Procedure================]
    [=====================JIAFP==========================}
    procedure findcornerSW;
    begin
    if(corner='')then
    begin
    if(findcolorspiraltolerance(x,y,LadderColor,128,160,291,243,5))then
    begin
    mouse(x,y,2,2,false)
    end;
    if(findbitmap(ladder,x,y))then
    begin
    corner:='SW'
    mouse(x,y,5,5,true)
    end;
    end;
    end;
    procedure findcornerSE;
    begin
    if(corner='')then
    begin
    mmouse(467,152,5,10)
    if(IsTextAt2(9,9,'Mine Rune Essence',200))then
    begin
    corner:='SE'
    
    end;
    end;
    end;
    procedure findcornercenterSW;
    begin
    if(corner='')then
    begin
    if(findcolorspiraltolerance(x,y,538962,270,100,320,150,5))then
    begin
    mmouse(x,y,0,0)
    if(IsTextAt2(9,9,'Chop down Dead tree',200))then
    begin
    corner:='centerSW'
    Mouse(621,120,0,0,true)
    corner:='SW'
    Walked:=True
    mapflag;
    end;
    end;
    end;
    end;
    procedure findcornerNW;
    begin
    if(corner='')then
    begin
    mmouse(165,81,10,10)
    wait(100+random(250))
    if(IsTextAt2(9,9,'Mine Rune Essence',200))then
    begin
    corner:='NW'
    end;
    end;
    end;
    procedure findcornerNE;
    begin
    if(corner='')then
    begin
    mmouse(370,85,15,15)
    if(IsTextAt2(9,9,'Mine Rune Essence',200))then
    begin
    corner:='NE'
    end;
    end;
    end;
    procedure findcornercenterNE;
    begin
    if(corner='')then
    begin
    MMouse(335,104,0,0)
    wait(100+random(250))
    if(IsTextAt2(9,9,'Chop',200))then
     begin
     corner:='centerNE'
     mouse(684,30,5,5,true)
     wait(5000+random(2500))
     corner:='NE'
     Walked:=True
     end;
    end;
    end;
    
    Procedure AubryToBank;
    begin
     setrun(true)
     Mouse(660,47,1,1,true)
     wait(9000+random(2000))
     repeat
     loginifneeded;
     wait(250+random(250))
     until(FindColorSpiralTolerance(x,y,BankSymbol,595,0,671,42,5))
     if(FindColorSpiralTolerance(x,y,BankSymbol,595,0,671,42,5))then
      begin
       Mouse(x,y+5,1,1,true)
       MapFlag;
      end;
    end;
    
    Procedure BankEssence;
    begin
     Writeln('Looking for bank...')
     repeat
     UberWait(2000+random(200))
     if(FindColorSpiralTolerance(x,y,BankBooth,5,5,515,340,10))then
      begin
       Writeln('Opening Bank...')
       MMouse(x,y,2,2)
       if(IsTextAt2(9,9,'Use Bank',100))then
        begin
         Mouse(x,y,0,0,False)
         UberWait(200+random(200))
         end;
         end;
         until(findbitmapspiraltolerance(bankq,x,y,5,5,515,340,25) or (findbitmapspiraltolerance(bankqy,x,y,5,5,515,340,25)))
         if(findbitmapspiraltolerance(bankq,x,y,5,5,515,340,25) or (findbitmapspiraltolerance(bankqy,x,y,5,5,515,340,25)))then
          begin
           Mouse(x,y,2,2,true)
           Uberwait(6000+random(1000))
           if(FindColorSpiralTolerance(x,y,RuneOre,693,431,746,465,15))then
            begin
             MMouse(x,y,1,1)
             wait(100+random(100))
             if(IsTextAt2(9,9,'Store 1 Rune',200))then
            begin
             Mouse(x,y,0,0,false)
             uberwait(250+random(250))
             if(FindBitmapSpiralTolerance(StoreAllw,x,y,559,201,765,502,15))then
             begin
             Mouse(x-10,y,0,0,true)
             uberwait(1000+random(1000))
             OreCount:=OreCount+28
             ProgressReport;
             Mouse(459,42,10,1,true)
             wait(1000+random(250))
            end;
            end;
           end;
          end;
    end;
    
    Procedure RandomLogout;
    var
    CurBreak,Seconds1,Minutes1:integer;
    begin
     if(GetSystemTime-LastBreak > report*60000)then
    begin
      Seconds1:=(GetSystemTime-ST) div 1000;
      Minutes1:=Seconds1 div 60;
     if(Minutes>=RandomLog+random(5)+5)then
      begin
       Mouse(649,485,5,5,true)
       wait(500+random(100))
       Mouse(644,375,25,5,true)
       wait(5000+random(250))
       repeat
        wait(60000+Random(2500))
        CurBreak:=CurBreak+1;
       until(CurBreak>=LogLength+Random(15))
       wait(1000+Random(2500))
       LoginIfNeeded;
       LastBreak:=GetSystemTime;
      end;
    end;
    end;
    
    begin
    LoginIfNeeded;
    SetupOSi;
    LoadBankBmps;
    BoxOpenerSetup;
    LoadBMPs;
    ChatFixer;
    Report:=1;
    ST:=GetSystemTime;
    repeat
    WalkToAubry;
    wait(1000+random(500))
    Teleport;
    wait(10000+random(1000))
    repeat
    findcornerSE
    wait(100+random(50))
    findcornerNE
    wait(100+random(50))
    findcornercenterSW
    wait(100+random(50))
    findcornerSW
    wait(100+random(50))
    findcornercenterNE
    wait(100+random(50))
    findcornerNW
    wait(100+random(50))
    until(not(corner=''))
    Writeln('Your in the ' +corner + ' corner')
    wait(100+random(50))
    MineEssence;
    wait(2000+random(250))
    AubryToBank;
    wait(100+random(50))
    BankEssence;
    wait(100+random(50))
    x:=random(3)
    if(x=1)then
     begin
      Randomtalk;
      ChatFixer;
     end;
    x:=random(2)
    if(x=1)then
     begin
      RandomLogOut;
     end;
    Walked:=False
    until(false)
    end.
    c0de, that script can't be from 2003. RuneScape 2 Beta Version was released to members 1 December 2003, and back then there wasn't anti-randoms yet in it... First Stable Version of RuneScape 2 was released 29 March 2004. Of course I might remember wrong though..

  20. #45
    Join Date
    Feb 2007
    Posts
    91
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    eh i got some old aryan scripts i can dig around for but none for scar i dont think

  21. #46
    Join Date
    Feb 2007
    Location
    Het ademt zwaar en moedeloos vannacht.
    Posts
    7,211
    Mentioned
    26 Post(s)
    Quoted
    72 Post(s)

    Default

    The image from c0de's script still exists:
    I made a new script, check it out!.

  22. #47
    Join Date
    Jun 2007
    Posts
    1,312
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I think this is the first thing I wrote...I'm probably wrong, I'd imagine that I'd be really proud and be putting in a lot of comments.
    Anyway, I'm relatively new here so I don't have any crazy-cool old stuff =/
    SCAR Code:
    program New;
    {.include SRL/SRL.scar}

    const
    Gold = 99999;
    Friend = 99999;
    NEss = 99999;
    NPEss = 99999;
    HowManyLoads = 20; //How many loads you wish to do per person
    BankE = 99999;
    TotalLoads = 500;  //Loads before stopping script
    Temple = 500;
    var
    x,y: integer; p: integer; LoadsDone: integer; TotalLoadsCompleted: integer;
    Tree: integer; C: integer;
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 5;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active := True;

      Players[1].Name := '';
      Players[1].Pass := '';
      Players[1].Nick := '';
      Players[1].Active := False;

      Players[2].Name := '';
      Players[2].Pass := '';
      Players[2].Nick := '';
      Players[2].Active := False;

      Players[3].Name := '';
      Players[3].Pass := '';
      Players[3].Nick := '';
      Players[3].Active := False;

      Players[4].Name := '';
      Players[4].Pass := '';
      Players[4].Nick := '';
      Players[4].Active := False;
     
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
     
    end;
    function FindFastRandoms: Boolean; //by WT-Fawaki
    var
      i: Integer;
    begin
      for i := 1 to 9 do
      begin
        case I of
          1: if FindDead then
              Result := True;
          2: if FindMod then
              Result := True;
          3: if FindMime then
              Result := True;
          4: if FindMaze then
              Result := True;
          5: if FindQuiz then
              Result := True;
          6: if FindDemon then
              Result := True;
          7: begin
              if NoGameTab then
              begin
                Result := True;
               { Players[CurrentPlayer].loc := 'No GameTab';  }
                Logout;
                Exit;
              end;
            end;
          8: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          9: RC;
        end;
        Wait(1);
      end;
    end;
    procedure AntiRandoms;
    begin
      If(not(loggedin))then
        begin
        exit;
      end else
        begin
        FindFastRandoms;
        FindNormalRandoms;
        end;
    end;
    procedure AntiBans;
    begin
      antirandoms;
      Case Random(5) of
        0: RandomMovement; //by Krazy_Meerkat
        1: PickUpMouse;    //by Dark_Sniper
        2: AlmostLogout;   //by Yakman
        3: RandomRClick;   //by Phantombmx
        4: RandomMovement; //by Krazy_Meerkat
      end;
    end;
    procedure ReachTemple;
    begin
       Antibans;
       Tree := DTMFromString('78DA6364676060006124E0E62202A619A17C4' +
           '6664C355C121C986A9851D5703008A0AA61C35423C280661727A6' +
           '1A19981CB21A2E02E6B0801D8002F824F848770F3BA61A2E747F1' +
           '1E1660001290264');
      RadialRoadWalk(FindFallyRoadColor,66,188,197,0,0);
      RadialRoadWalk(FindFallyRoadColor, 45, 203, 186, 0, 0);
      if FindDTM(Tree, x, y, 100, 100, 250, 300) then
      begin
        FindDTM(Tree, x, y, 100, 100, 250, 300);
        Mouse(x,y,1,1,true);
      end else
        writeln('Looks like we''re lost - Terminating script.');
        TerminateScript;
    end;
    procedure EnterTemple;
    begin
     antibans;
     If FindColorTolerance(x, y, Temple, 0, 0, 200, 200, 5) then
     begin
       writeln('Color Found =D Next Step Verifies');
       if IsUpText('Mysterious ruins') then
       begin
         Mouse(x,y,1,1,true);
         exit;
       end;
      end else
      begin
        C:=C+1;
        repeat
          EnterTemple;
        Until (C>10);
       end;
       writeln('FAIL. Try restarting RS, colors might work again');
       Wait(4000);
     end;
    procedure FindandTradeCrafter;
    begin
      If(FindColor(x, y, friend, 0, 0, 200, 200)) then
      begin
        Mouse(x,y,1,1, true);
        exit;
      end else
      begin
        terminatescript;
      end;
    end;

    procedure TradeandAntiscam;//Verifies gold and notes
    begin
      antibans;
      wait(3000+random(3000));
      if FindDTM(gold,x,y,1,1,200,200) and FindDTM(NEss,x,y,1,1,200,200) then
      begin
        Mouse(x,y,1,1,true);//TS1ACCEPT
        Mouse(x,y,1,1,true);//TS2ACCEPT
      end else
      begin
        Mouse(x,y,1,1,true);//TS1DECLINE
        FindandTradeCrafter;
        TradeandAntiscam;
      end;
    end;
    procedure ExitTemple;//Radial+Special command?
    begin
     antibans;
    end;
    procedure ReachBank;//Radial + bitmaps
    begin
      RadialRoadWalk(FindFallyRoadColor, 45, 203, 186, 0, 0);
      RadialRoadWalk(FindFallyRoadColor, 45, 203, 186, 0, 0);
      RadialRoadWalk(FindFallyRoadColor, 45, 203, 186, 0, 0);
      RadialRoadWalk(FindFallyRoadColor, 45, 203, 186, 0, 0);
      OpenBankQuiet('feb');
    end;
    procedure DepositGold;//Mouse
    begin
      antibans;
      FindDTM(gold,x,y,1,1,200,200);
      Mouse(x,y,1,1,false);
      Mouse(x,y,1,1,true);
      P:=2000+random(2000);
      Typesend(inttostr(p));
    end;
    procedure DepositEssence;
    begin
      If finddtm(NPESS,x,y,1,1,200,200) then
      begin
        Mouse(x,y,1,1,false);
        ChooseOption('');
      end else
        FindDTM(NESS,x,y,1,1,200,200);
        Mouse(x,y,1,1,false);
        ChooseOption('');
      end;
    procedure WithdrawEssence;//Mouse, maybe DTM
    begin
      antibans;
      FindDTM(BankE,x,y,1,1,200,200);
      Mouse(x,y,1,1,false);
      Mouse(x,y,1,1,true);
      Typesend('25');
      LoadsDone:=LoadsDone+1
      TotalLoadsCompleted:=TotalLoadsCompleted+1;
      if TotalLoads=TotalLoadsCompleted then
      begin
        TerminateScript;
      end;
      if(HowManyLoads)=LoadsDone then
      begin;
        NextPlayer(False);
      end;
    end;
      begin
      repeat
        ReachTemple;
        EnterTemple;
        FindandTradeCrafter;
        TradeandAntiscam;
        ExitTemple;
        ReachBank;
        DepositGold;
        DepositEssence;
        WithdrawEssence;
      until(TotalLoads)=TotalLoadsCompleted;
    end.
    Edit: No, this is actually one of the very first ones. I can tell because I was trying to figure out how I should best go about things with comments of random thoughts.
    Active only during the Summer...

  23. #48
    Join Date
    Jun 2007
    Location
    Mianus
    Posts
    863
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hmm.. a 44 year old man that visits a cheating forum, one of a kind and whos benland? hes title is The Doctor

  24. #49
    Join Date
    Mar 2006
    Posts
    13,241
    Mentioned
    228 Post(s)
    Quoted
    267 Post(s)

    Default

    Fakawi created SRL...
    Benland is an admin who used to be in charge of admission when SRL was private. Now he's just smart
    STOP PM'ING ME

  25. #50
    Join Date
    May 2007
    Location
    UK
    Posts
    4,007
    Mentioned
    1 Post(s)
    Quoted
    12 Post(s)

    Default

    lol the oldest thing i have is a SS of scar 1.12



    T ~ M

Page 2 of 5 FirstFirst 1234 ... LastLast

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Oldest Person BIRTHDAY today!
    By P1nky in forum News and General
    Replies: 26
    Last Post: 04-25-2008, 06:29 AM
  2. How old is your oldest account?
    By Sp0rky in forum RuneScape News and General
    Replies: 24
    Last Post: 08-06-2007, 11:55 PM
  3. Just one more thing about VMs :/
    By PwNZoRNooB in forum News and General
    Replies: 7
    Last Post: 05-21-2007, 07:45 PM
  4. The thing about Msn.
    By WhiteShadow in forum News and General
    Replies: 3
    Last Post: 10-10-2006, 09:45 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •