Page 1 of 3 123 LastLast
Results 1 to 25 of 68

Thread: Good old times on RSBots.net...

  1. #1
    Join Date
    Jan 2012
    Location
    Runescape News and General & Skill Guides
    Posts
    2,544
    Mentioned
    37 Post(s)
    Quoted
    545 Post(s)

    Default Good old times on RSBots.net...

    Just a few of my progress reports from the two bots i purchased from them. All this was done on my main which is still being used Good times...



  2. #2
    Join Date
    Jan 2012
    Posts
    617
    Mentioned
    4 Post(s)
    Quoted
    47 Post(s)

    Default

    I miss iDungeon and all the good rsbuddy scripts.
    My goal to max cape #2:Here. Check it out

    Previously Known As Liimujx

  3. #3
    Join Date
    May 2012
    Location
    Texas
    Posts
    365
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I wish they would come back at some point
    Mostly Inactive, School

  4. #4
    Join Date
    Jan 2012
    Location
    Runescape News and General & Skill Guides
    Posts
    2,544
    Mentioned
    37 Post(s)
    Quoted
    545 Post(s)

  5. #5
    Join Date
    Dec 2011
    Posts
    392
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Is that a clue scroll solver? O_o

  6. #6
    Join Date
    Jan 2012
    Location
    Runescape News and General & Skill Guides
    Posts
    2,544
    Mentioned
    37 Post(s)
    Quoted
    545 Post(s)

    Default

    Quote Originally Posted by lilcmp1 View Post
    Is that a clue scroll solver? O_o
    Yes Auto ClueScrollsPro was the first clue scroll solving bot if i can recall correctly.

    It was for nexus, I bought it off RSBots.net. It was a flawless and amazing bot. It basically solved level 1 clue scrolls and went back to HAM to pickpocket for more.

  7. #7
    Join Date
    Jan 2007
    Posts
    94
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    RSBots.net was just an overpriced reseller site..

  8. #8
    Join Date
    Feb 2012
    Location
    Discord
    Posts
    3,114
    Mentioned
    37 Post(s)
    Quoted
    538 Post(s)

    Default

    Quote Originally Posted by Liimujx View Post
    I miss iDungeon and all the good rsbuddy scripts.
    same rsbuddy was where it was at js

  9. #9
    Join Date
    Jan 2012
    Location
    Runescape News and General & Skill Guides
    Posts
    2,544
    Mentioned
    37 Post(s)
    Quoted
    545 Post(s)

    Default

    Quote Originally Posted by Hunaja View Post
    RSBots.net was just an overpriced reseller site..
    it was a pretty good community and wasnt bad at all.
    I dont see how you're calling it "overpriced" when you goldfarm on several accounts daily, kind of ironic.. anyways lets not get offtopic.

  10. #10
    Join Date
    May 2012
    Posts
    190
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Jakee View Post
    it was a pretty good community and wasnt bad at all.
    I dont see how you're calling it "overpriced" when you goldfarm on several accounts daily, kind of ironic.. anyways lets not get offtopic.
    ^^This, Me an my irl mate spent alot of money buying most of them (by the end) and I would say it was worth it, however we did run a powerleveling service.

    But, with that said they were the most flawless, accurate bots i've ever used. I miss them ;( But SRL has a MUCH better community!
    BOT TILL YOU DROP!

  11. #11
    Join Date
    Jun 2012
    Posts
    16
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ohhh the good old days

    Main(unbanned):

    Tank staker (unbanned Maxed)

  12. #12
    Join Date
    May 2012
    Location
    Draynor Willows
    Posts
    498
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default

    AutoSoulWars and AutoSlayer were so good. Just I shame I didn't manage to get 99 slayer before it went down. -.-

  13. #13
    Join Date
    Dec 2011
    Location
    Ontario
    Posts
    201
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ahhhhhh I have some 40 hour proggies lying around. I'll find it somewhere...
    It aint easy being cheasy

  14. #14
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    Haha not going to lie, but it was fun getting mad money by hunting and the garden

  15. #15
    Join Date
    Dec 2011
    Location
    Ontario
    Posts
    201
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default


    44 hours of advanced gnome, solid



    Sorry about the image, but yeah thats 2 days at livid farm

    No ban ever. O wow...


    ZMI 17 minutes off 99 baby...oh the days


    NAutres, the list goes on and on...
    Last edited by FloppyWien3r; 06-24-2012 at 06:49 AM.
    It aint easy being cheasy

  16. #16
    Join Date
    May 2012
    Posts
    704
    Mentioned
    4 Post(s)
    Quoted
    147 Post(s)

    Default

    Good old times, I remember when people were sharing auth codes alot... I used to grab a couple and train some F2P skills... From them kMiner was my favorite. That shit was amazing!

  17. #17
    Join Date
    Jan 2012
    Location
    Runescape News and General & Skill Guides
    Posts
    2,544
    Mentioned
    37 Post(s)
    Quoted
    545 Post(s)

    Default

    There was a thread that had around 20+ pages on the longest proggies for each script :P
    these 2 arent mine (below)
    16 Days Soul Wars

    11 Days Sorc Garden
    Last edited by Jake; 06-25-2012 at 05:19 PM.

  18. #18
    Join Date
    May 2012
    Location
    Texas
    Posts
    365
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    16 days, just doesn't happen anymore
    Mostly Inactive, School

  19. #19
    Join Date
    Mar 2007
    Location
    USA
    Posts
    1,433
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Wow, those are some crazy long progress reports...
    I'm Silent SPY
    Secret project: 0%
    Need help? Send me a PM

  20. #20
    Join Date
    Jan 2012
    Location
    Runescape News and General & Skill Guides
    Posts
    2,544
    Mentioned
    37 Post(s)
    Quoted
    545 Post(s)

  21. #21
    Join Date
    Jun 2012
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Proud RSBots.net member for about 3 years, Jakee, i miss having proggies that last over weeks :-) To bad it had to shut down, 200$ of bots down the drain, hehe.

  22. #22
    Join Date
    Dec 2011
    Location
    Hyrule
    Posts
    8,662
    Mentioned
    179 Post(s)
    Quoted
    1870 Post(s)

    Default

    Quote Originally Posted by koage View Post
    Proud RSBots.net member for about 3 years, Jakee, i miss having proggies that last over weeks :-) To bad it had to shut down, 200$ of bots down the drain, hehe.
    Progress Report:
    ===========AshamanSuperheat============
    Time Running: 37 Hours, 14 Minutes and 53 Seconds
    Magic XP: 3481146
    Magic XP/Hour: 93458
    Smithing XP: 3678192
    Smithing XP/Hour: 98748
    Bars/Hour: 1830
    =======================================


    Ran out of nats :/ actually could actually run forever since it doesn't rely on hooks (even after rs updates)

  23. #23
    Join Date
    Oct 2006
    Location
    Finland
    Posts
    433
    Mentioned
    1 Post(s)
    Quoted
    8 Post(s)

    Default

    SCAR Code:
    {
    [==================================================]
    [            Stupid3ooo's GuildMiner               ]
    [                  version:1.4                     ]
    [==================================================]
    | Instructions:                                    |
    |   1.Add Colors/Setup Lines 33-52                 |
    |   2.Do not rotate camera, keep relativly north   |
    |   3.Highest angle of view, look Ffrom above       |
    |   4.V-bright,32bit colors                        |
    |   5.Public Chat OFF                              |
    |   6.SCAR version 1.13                            |
    |   7.Silent Mouse OFF                             |
    |   8.Have pickaxes in first bank slot             |
    [==================================================]
    [ Thanks to, RSCheating community                  ]
    [   *PLEASE POST ANY BUGS/HELP IN THE FORUMS       ]
    [==================================================]
    }

    program StupidGuildMiner;

    var x,y,a,b,flag,Talkto,PickHead,PickHandle,Ore,Drop,Talked,Ran,Attached,count,
    banks,PickFindCounter,PickAxe,hc1,hc2,hc3,hc4,hc5,OreColor,PickAxeSteel,xc,yc,
    box,UseQuick,UseQuickY,StoreAll,StoreAllY,Stuck:integer;
    ST:LongInt;
    ColorsFound,EndScript:Boolean;

    {.include WAAMPinclude.txt}

    const
    ////======================Setup=======================\\\\
    UseWAAMP = false;//to use WAAMP over built in random event protection, go to line 598 and remove the "//" if true
    Username = '';
    Password = '';
    FindGaser = true;//true/false, this allows the script to look for steaming rocks but can slow down minning
    PickFindCount = 5;//number of times script looks for a broken pickhead untill giving up and withdrawing a new one
    //=\\================================================//=\\

    ////======================Colors======================\\\\
    //Main Screen Colors
    OreColor1= 857879;//darkest
    OreColor2= 2043181;//medium
    OreColor3= 3098182;//lightest
    //Minimap Colors
    BankColor= 3918295;//Bank symbol color
    StatueColor= 10066341;//Minimap statue gray area color
    LadderColor= 9030;//Color of minimap ladder INSIDE the guild
    MapOreColor= 4213570;//Color of minimap ore
    MapPickColor= 6779754;//color of pickaxe symbol in guild
    //=\\================================================//=\\

    Procedure PrintProgressReport; //modified from Phalanx's script
    var
      RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:LongInt;
      Time:String;
    begin
      Seconds:=(GetSystemTime-ST) div 1000;
      Minutes:=Seconds div 60;
      RHours:=Minutes div 60;
      Time:=inttostr(Seconds)+' Seconds';
      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('Ran '+inttostr(ran)+' time[s]');
      writeln('Talked '+inttostr(talked)+' time[s]');
      writeln('Attached '+inttostr(attached)+' time[s]');
      writeln('Mined and banked about '+inttostr(banks*27)+' ore[s]');
      writeln('Currently Averaging about '+inttostr(3600/avtime*27)+' ores an hour');
      writeln('<================================================>');
      end;
    end;

    procedure Mouse(mx, my, ran, ran2: Integer; Mbtn: boolean); //By OhDearUrDead(x,y,ran1,ran2,left/right)
    begin
    Wait(20+random(50));
    mx:=mx+random(ran)
    my:=my+random(ran2)
    MoveMouseSmooth(mx,my);
    Wait(100+random(100));
    ClickMouse(mx,my,mbtn);
    wait(50+random(50));
    end;

    procedure FindTextSpiral(txt: String; dx,dy: Integer; SpiralSize: Integer; step, SpiralWait: Integer);  // By OhDearUrDead, Edited By Khain
    var px, py, qx, qy: Integer;
         FoundText: Boolean;
    begin
       FoundText:= false;
       px:= dx; py:= dy; qx:= dx; qy:= dy;
       x:= dx;
       y:= dy;
       MoveMouseSmooth(x,y);
       repeat
       Spiralwait:= Spiralwait+random(50);
         MoveMouse(x,y)
         px:= px + 20; py:= py + 20;
         qx:= qx - 20; qy:= qy - 20;
         repeat
           getmousepos(x,y)
           x:= x + step;
           MoveMouseSmooth(x,y);
           Wait(SpiralWait);
           if(IsTextAt2(9,9,txt,100))then FoundText:= true;
         Until(x >= px)or(FoundText);
         if(FoundText)then Break;
         repeat
           getmousepos(x,y)
           y:= y + step;
           MoveMouseSmooth(x,y);
           Wait(SpiralWait);
           if(IsTextAt2(9,9,txt,100))then FoundText:= true;
         Until(y >= py)or(FoundText);
         if(FoundText)then Break;
         repeat
           getmousepos(x,y)
           x:= x - step;
           MoveMouseSmooth(x,y);
           Wait(SpiralWait);
           if(IsTextAt2(9,9,txt,100))then FoundText:= true;
         Until(qx >= x)or(FoundText);
         if(FoundText)then Break;
         repeat
           getmousepos(x,y)
           y:= y - step;
           MoveMouseSmooth(x,y);
           Wait(SpiralWait);
           if(IsTextAt2(9,9,txt,100))then FoundText:= true;
         Until(qy >= y)or(FoundText);
       Until(px > dx + SpiralSize)or(FoundText);
    end;

    procedure RWait (ranlength: string);
    begin
       if(ranlength = 'xxshort') then wait(15+random(15)+random(15))
       if(ranlength = 'xshort')  then wait(50+random(25)+random(25))
       if(ranlength = 'short')   then wait(100+random(50)+random(50))
       if(ranlength = 'medium')  then wait(200+random(100)+random(100))
       if(ranlength = 'long')    then wait(500+random(250)+random(250))
       if(ranlength = 'xlong')   then wait(1000+random(500)+random(500))
       if(ranlength = 'xxlong')  then wait(1000+random(500)+random(500)+random(500)+random(500))
    end;

    procedure SetRunOn;
    begin
       Wait(50+random(5));
       Mouse(708,475,5,5,true);
       Wait(100+random(100));
       Mouse(614,260,5,5,true);
       Wait(100+random(10));
       Mouse(644,178,5,5,true);
       Wait(100+random(10));
    End;

    procedure SetRunOff;
    begin
       Wait(50+random(5));
       Mouse(708,475,5,5,true);
       Wait(100+random(100));
       Mouse(569,256,5,5,true);
       Wait(100+random(10));
       Mouse(644,178,5,5,true);
       Wait(100+random(10));
    End;

    Procedure MapFlag;
    begin
       Wait(200);
       if(FindBitmapIn(flag,a,b,565,5,725,160))then
       begin
        repeat
         wait(1000);
        until(not FindBitmapIn(flag,a,b,565,5,725,160));
        Wait(100);
       end;
    End;

    Procedure LogOut(why:string);
    var c:integer;
    begin
      Writeln(' ');
      Writeln(why);
      Writeln(' ');
      Wait(100+random(10));
      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;

    //=============Banking Procedures by Stupid based off Khain's=================\\
    procedure OpenBank;
    begin
    FindTextSpiral('Use Bank booth',258,169,110,30,100);
    rwait('medium');
    if(IsTextAt2(9,9,'Use Bank booth', 100))then
      begin
      GetMousePos(x,y);
      Mouse(x,y,2,2,false);
      rwait('medium');
      if(FindBitmap(UseQuick,x,y))or(FindBitmap(UseQuickY,x,y))then
        begin Mouse(x,y,10,2,true);end;
      end;
    end;

    procedure Deposit;
    var counter:integer;
    begin
    if(IsTextAt2(185,36,'The Bank of RuneScape', 100))then
    begin
    repeat
    counter:=counter+1;
    if(FindColorSpiral(x,y,65536,550,200,745,465))then
      begin
      Mouse(x,y,1,1,false);
      rwait('medium');
      if(FindBitmap(StoreAll,x,y))or(FindBitmap(StoreAllY,x,y))then
        begin Mouse(x,y,10,2,true);end;
      rwait('long');
      MoveMouseSmooth(650+random(5),185+random(5));
      end;
    until(not(FindColorSpiral(x,y,65536,550,200,745,465)))or(counter>=28);
    end;
    end;

    procedure CloseBank;
    begin
    if(IsTextAt2(185,36,'The Bank of RuneScape', 100))then
      begin
      Stuck:=0;
      Banks:=Banks+1;
      PrintProgressReport;
      Mouse(430,39,5,5,true);
      rwait('xlong');
      end
    else
      Stuck:=Stuck+1;
    end;

    procedure Bank;
    begin
    OpenBank;
    MapFlag;
    rwait('medium');
    Deposit;
    rwait('medium');
    if(FindBitmapSpiralTolerance(PickAxe,x,y,0,0,515,338,100))or
      (FindBitmapSpiralTolerance(PickAxeSteel,x,y,0,0,515,338,100))then
       begin
       Mouse(x,y,5,5,true);
       end
    else
      Mouse(80,65,5,5,true);
    rwait('medium');
    CloseBank;
    end;
    //==========================Map Walking Procedures============================\\
    procedure ClimbLadder(color:integer);
    var waitcount:integer;
    begin
      FindTextSpiral('Climb',258,169,110,30,100);
      rwait('medium');
      if(IsTextAt(9,9,'Climb'))then GetMousePos(x,y);Mouse(x,y,1,1,true);
      rwait('medium');
      repeat waitcount:=waitcount+1;Rwait('long');
      until(FindColorSpiral(x,y,color,565,5,725,160))or(waitcount=10)
    end;

    procedure BankToGuild;
    begin
    if(FindColorSpiral(x,y,BankColor,565,5,725,160))then
      begin
      Mouse(680,100,1,1,true);
      MapFlag;
      Rwait('medium');
      end;
    if(FindColorSpiral(x,y,StatueColor,565,5,725,160))then
      begin
      Mouse(x-10,y,1,1,true);
      MapFlag;
      Rwait('medium');
      ClimbLadder(MapOreColor);
      end;
    end;

    procedure GuildToBank;
    begin
    if(FindColorSpiral(x,y,StatueColor,565,5,725,160))then
      begin
      Mouse(x,y,1,1,true);
      MapFlag;
      Rwait('medium');
      Mouse(655,35,5,5,true);
      MapFlag;
      rwait('medium');
      end;
    if(FindColorSpiral(x,y,BankColor,565,5,725,160))then
      begin
      Mouse(x,y,1,1,true);
      MapFlag;
      Rwait('medium');
      MapFlag;
      rwait('medium');
      end;
    end;

    procedure ToLadder(climb:boolean);
    var counter:integer;
    begin
    if(FindColor(x,y,MapOreColor,565,5,725,160))then
      begin
      repeat
      counter:=counter+1
      Mouse(x+10,y,1,1,true);
      MapFlag;
      Rwait('medium');
      until(FindColorSpiral(x,y,LadderColor,565,5,725,160))or(counter=5)
      if(FindColorSpiral(x,y,LadderColor,565,5,725,160))then
        begin
        Mouse(x,y,1,1,true);
        MapFlag;
        Rwait('medium');
        if(climb=true)then begin ClimbLadder(StatueColor);end;
        end;
      end;
    end;

    procedure ToCenter;
    begin
    if(not(FindColorSpiral(x,y,MapPickColor,565,65,725,160)))then
      begin
      if(FindColorSpiral(x,y,MapOreColor,565,65,725,160))then
         begin
         Mouse(x-5,y,1,1,true);
         MapFlag;
         Rwait('medium');
         end;
      end;
    if(FindColorSpiral(x,y,MapPickColor,565,65,725,160))then
      begin
      Mouse(x,y,20,20,true);
      MapFlag;
      Rwait('medium');
      end;
    end;

    //=============================Anti Random Events=============================\\
    procedure LoginIfNeeded;//A stupid3ooo procedure based of many others
    var counter:integer;
    begin
    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',10))then
      begin
      Mouse(453,292,20,5,true);
      Wait(500+random(500));
      end;
    if(IsTextAt2(293,251,'Username',10))then
      begin
      Mouse(400,256,20,5,true);
      Wait(500+random(500));
      SendKeysSilent(username);
      Wait(500+random(500));
      Mouse(400,270,20,5,true);
      Wait(500+random(500));
      SendKeysSilent(password);
      Wait(1000+random(500));
      Mouse(300,322,20,5,true);
      repeat
      counter:=counter+1
      wait(100);
      until(FindColorSpiral(x,y,8421504,0,0,515,338))or(counter=60)
      end;
    if(FindColorSpiral(x,y,8421504,400,0,515,338))then
      begin
      wait(100+random(100));
      Mouse(x,y,2,1,true);
      wait(100+random(100));
      end;
    end;

    procedure FindPickHeadColor;
    begin
    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);
      writeln('Pick axe colors are...');
      writeln(inttostr(hc1));
      writeln(inttostr(hc2));
      writeln(inttostr(hc3));
      writeln(inttostr(hc4));
      writeln(inttostr(hc5));
      WriteLn('Begin mining.');
      ColorsFound:=True;
      end
    else
      begin
      writeln('');
      writeln('ERROR! cannot find pick in screen, please put pick in inventory or go to your equip page and restart the script!');
      writeln('');
      ColorsFound:=False;
      end;
    end;

    procedure ItemGrab;
    begin
    if(FindColorSpiral(x,y,241,565,5,725,160))then
      begin
      Mouse(x,y,1,1,true);
      MapFlag;
      Wait(100+random(100));
      FindTextSpiral('Take',258,169,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 begin wait(1000) end;
    if(FindColorSpiral(x,y,65280,180,90,320,230))then
      begin
      ran:=ran+1;
      SetRunOn;
      rwait('medium');
      ToLadder(false);
      rwait('medium');
      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(500)
    if (FindColor(x,y,65535,0,0,515,338))then
      begin
      repeat
      counter:=counter+2+random(1);
      MoveMouse(x+counter,y+15+random(1));
      wait(10+random(10));
      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(Talkto,x,y))then
          begin
          Mouse(x,y,10,2,true);
          MapFlag;
          wait(1000+random(1000));
          TalkToRand;
          Talked:=Talked+1
          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
        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));
        end;
      end;
    end;

    procedure FindPick;
    var DropCount,Counter:integer;
    begin
    if(FindBitmapSpiralTolerance(PickHandle,x,y,550,200,745,465,50))or
      (GetColor(485,414)=0)and(GetColor(227,376)=0)then
    begin
    PickFindCounter:=PickFindCounter+1;
    repeat
    DropCount:=DropCount+1
    If(FindBitmapSpiralTolerance(Ore,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));
    MoveMouseSmooth(648+random(10),186+random(10));
    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
      begin break;end;
    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
      MoveMouseSmooth(x,y);
      wait(100+random(100));
      if(IsTextAt2(9,9,'Take', 100))then
        begin Mouse(x,y,2,2,true);MapFlag;end else itemgrab;
      end else itemgrab;
    until(counter=10);
    AttachPick;
    end;
    end;

    Procedure SetRandom;
    Var color:integer;
    begin
    Color:=1+Random(3);
    case Color of
      1: Begin OreColor:=OreColor1; end;
      2: Begin OreColor:=OreColor2; end;
      3: Begin OreColor:=OreColor3; end;
    end;
    end;

    procedure FindRock(var xstart,ystart:integer);
    var xs,ys,currenty,currentx,ax,ay,similarcount,
    color,counter,dircount:integer;
    found:boolean;
    dir:string;
    begin
    ys:=338;
    xs:=515;
    SetRandom;
    if(FindColorSpiral(x,y,OreColor,23,23,495,318))or//Find ore far
      (FindColorSpiral(x,y,OreColor,100,66,415,276))or//Find ore medium
      (FindColorSpiral(x,y,OreColor,210,130,300,220))then//Find ore close
      begin
      xc:=x;
      yc:=y;
      repeat
      dircount:=dircount+1;
      if(dircount=1)then dir:='north east';
      if(dircount=2)then dir:='north west';
      if(dircount=3)then dir:='west south';
      repeat
      counter:=counter+1;
      found:=false;
      similarcount:=0;
      if(dir='north east')then ax:=x+counter;
      if(dir='north east')then ay:=y;
      if(dir='north west')then ax:=x-counter;
      if(dir='north west')then ay:=y;
      if(dir='west south')then ax:=x;
      if(dir='west south')then ay:=ys+counter;
      repeat
      if(dir='north east')or(dir='north west')then ay:=ay-1;
      if(dir='west south')then ax:=ax-1;
      color:=GetColor(ax,ay);
      if(similarcolors(OreColor1,color,10)=true)or
        (similarcolors(OreColor2,color,10)=true)or
        (similarcolors(OreColor3,color,10)=true)then
        begin
        found:=true;
        similarcount:=0;
        end
      else
        similarcount:=similarcount+1;
      until(similarcount=10)
      if(found=true)then
        begin
        if(dir='north east')or(dir='north west')then
          begin
          currenty:=ay+10;
          if(currenty<ys)then
            ys:=currenty;
          end;
        if(dir='west south')then
          begin
          currentx:=ax+10;
          if(currentx<xs)then
            xs:=currentx;
          end;
        end;
      until(counter>=40)
      counter:=0;
      until(dircount=3)
      xstart:=xs;
      ystart:=ys;
      end;
    end;

    function FindGas(findx,findy:integer):boolean;
    var counter,GasColor,bmap,gasfind:integer;
    ClientCanvas,BMapCanvas:TCanvas;
    begin
    GasColor:=8100004;//8100004
    if(FindColorSpiralTolerance(x,y,GasColor,findx-20,findy-20,findx+20,findy+20,20))then
    begin
    repeat
    counter:=counter+1
    begin
    ClientCanvas:= GetClientCanvas;
    bmap:= BitmapFromString(40,40,'');
    BMapCanvas:= GetBitmapCanvas(bmap);
    CopyCanvas(ClientCanvas,BMapCanvas,findx-20,findy-20,findx+20,findy+20,0,0,40,40);
    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');
    result:=true;
    Wait(1000);
    break;
    end;
    until(counter>=10);
    end;
    end;

    procedure FindBox;
    begin
    If(FindBitmapSpiralTolerance(Box,x,y,550,200,745,465,25))then
      begin
      LogOut('Found Box!!!!!!');
      EndScript:=True;
      end;
    end;

    Procedure FindRandoms;
    begin
    //if(UseWAAMP=true)then begin CheckCommunication;end;
    if(UseWAAMP=false)then
    begin
    LoginIfNeeded;
    FindFight;
    FindText;
    FindBox;
    if(PickFindCounter<=PickFindCount)then FindPick;
    if(FindGaser=True)then
      if(FindGas(x+18,y+9)=True)then
        begin
        SetRunOn;
        ToLadder(false);
        end;
    end;
    end;
    //============================================================================\\

    procedure ClickMine;
    begin
    FindRandoms;
    MoveMouseSmooth(xc,yc);
    wait(50+random(10));
    if(IsTextAt2(9,9,'Mine',100))or(IsTextAt2(9,9,'Ta',100))then
      begin
      Mouse(xc,yc,2,2,true);
      end;
    wait(100+random(100));
    end;

    Procedure MineOre;
    var counter:integer;
    begin
    FindRock(x,y);
    if(FindGas(x+18,y+9)=False)then
      begin
      ClickMine;
      MapFlag;
      wait(500);
      FindRock(x,y);
      repeat
      counter:=counter+1
      FindRandoms;
      Wait(500);
      until not((GetColor(195,426)=0)and(GetColor(109,430)=0))or(counter>=10);
      end;
    end;

    Procedure LoadBmps;
    begin
    flag := BitmapFromString(2, 2,
            'FF00005D3311C656045D3311');
    Talkto := BitmapFromString(18, 2,
           'FFFFFFFFFFFF000000FFFFFFFFFFFF5D54475D54475D54475D5447' +
           '5D54475D54475D54475D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF' +
           'FFFFFFFFFFFFFFFFFFFFFFFF0000000000005D5447FFFFFFFFFFFF' +
           'FFFFFFFFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF000000000000' +
           '');
    Drop := BitmapFromString(20, 2,
           'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D5447FFFFFF' +
           'FFFFFF0000005D54475D54475D5447FFFFFFFFFFFF0000005D5447' +
           'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000' +
           '5D5447FFFFFFFFFFFF0000005D54475D54475D54475D5447FFFFFF' +
           'FFFFFFFFFFFFFFFFFF000000');
    Ore := BitmapFromString(10, 10,
           '856C4B856C4B886E4D8B704F000001000001000001000001443827' +
           '584731856C4B886E4D000001000001302020302020000001382D1E' +
           '54442F68543B0000010000013020203020203020200000012D2518' +
           '483B296C573D6F593E302020302020302020544A3C544A3C000001' +
           '3D31225847316F593E725C40302020544A3C564D41544A3C564D41' +
           '0000014D3E2B6F593E755E43776044544A3C544A3C564D41564D41' +
           '564D41000001584731725C407760447A6346544A3C544A3C564D41' +
           '564D41564D41000001655239755E437A6346806748544A3C564D41' +
           '544A3C544A3C564D410000016F593E7A6346806748886E4D544A3C' +
           '544A3C544A3C4F4538544A3C544A3C000001000001000001000001' +
           '564D41564D41564D41544A3C4F4538544A3C564D41302020302020' +
           '302020');
    UseQuick := BitmapFromString(16, 6,
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000000000' +
            '000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF' +
            '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
            '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFF' +
            'FFFFFF000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF' +
            '000000000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000' +
            '000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000' +
            'FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000000005D5447' +
            'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF' +
            '000000000000000000FFFFFFFFFFFFFFFFFF');

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

    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' +
            '');
    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');
    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');
    Box := BitmapFromString(10, 10,
           '8D83838D83838D83838D8383554E4E524C4C524C4C524C4C504949' +
           '5049498D83838D83838D83838D83838D83838D83838D83838D8383' +
           '8D83834A45458D83838D83838D83838D83838D83835557BB8D8383' +
           '8D83838D83834A45458D83835557BB8D83838D83835557BB5557BB' +
           '8D83838D83838D83834A45458D83838D83835557BB5557BB5557BB' +
           '5557BB8D83838D83838D83834A45458D83835557BB5557BB5557BB' +
           '5557BB5557BB5557BB5557BB8D83834A45458D83835557BB5557BB' +
           '5557BB5557BB5557BB8D83838D83838D83834A45455557BB5557BB' +
           '8D83838D83835557BB5557BB8D83838D83838D83834A45458D8383' +
           '8D83838D83838D83838D83835557BB8D83838D83838D83834A4545' +
           '8D83838D83838D83838D83838D83835557BB8D83838D83838D8383' +
           '4A4545');
    end;

    begin
    LoadBmps;
    LoadChars('')
    ST:=GetSystemTime;
    LoginIfNeeded;
    FindPickHeadColor;
    if(ColorsFound=true)then
    begin
    repeat
    LoginIfNeeded;
    FindText;
    SetRunOn;
    BankToGuild;
    if(FindColorSpiral(x,y,MapOreColor,565,5,725,160))then
      begin
      repeat
      if(not(FindColorSpiral(x,y,OreColor1,3,3,515,338)))or
        (not(FindColorSpiral(x,y,OreColor2,3,3,515,338)))or
        (not(FindColorSpiral(x,y,OreColor3,3,3,515,338)))then ToCenter;
      count:=count+1
      if(EndScript=True)then break;
      MineOre;
      rwait('xshort');
      until((GetColor(422,398)=0)and(GetColor(205,392)=0))or//full invi
           (PickFindCounter>=PickFindCount)or(count=250)//no pickaxe/mined too long
      end;
    SetRunOff;
    ToLadder(true);
    GuildToBank;
    FindText;
    Bank;
    PickFindCounter:=0;
    if(Stuck>=10)then break;
    if(EndScript=True)then break;
    rwait('xshort');
    until(false)
    end;
    end.

    Newfags don't remember, old dawgs remember with love.
    Shit was just so much more awsome in the early years of RS2, the real "good old times" when it was all about beating the system rather than just farming gold levels.

  24. #24
    Join Date
    Mar 2007
    Posts
    5,125
    Mentioned
    275 Post(s)
    Quoted
    901 Post(s)

    Default


    Forum account issues? Please send me a PM

  25. #25
    Join Date
    Dec 2011
    Location
    Hyrule
    Posts
    8,662
    Mentioned
    179 Post(s)
    Quoted
    1870 Post(s)

    Default

    Quote Originally Posted by [J]ustin View Post
    Loved that one!

    But

    Progress Report:
    ========AshamanggzzLRC=========
    =========Version: 2.55=========
    Time Running: 2 Hours, 7 Minutes and 23 Seconds
    Ores Mined: 1400
    Experience Earned: 89610
    Experience/Hour: 42208
    Ores/H: 659
    ===============================


    Using new smart, simba and brandons fixes (and barring any failed randoms) that script could get that amount of time as well!

Page 1 of 3 123 LastLast

Thread Information

Users Browsing this Thread

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

Posting Permissions

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