Results 1 to 4 of 4

Thread: Essence Miner Help

  1. #1
    Join Date
    Jul 2008
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Essence Miner Help

    I found this script on another site, but the site is dead now, so I'm going to post it here.

    Can someone revise it for me? If people don't do that here, you can just like delete my post, because I'm a nooblet. =]
    Here's the script:

    Code:
    //Hosted by Runescape 101
    //Download more free scar scripts from www.rs101.info
    program JokersEssMiner;
    Var
    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='';
    BankSymbol=378079; {The yellow part or the bank symbol}
    RuneFloor=1188393; {The floor of the rune shop}
    Aubry=9280411; {Aubry's shirt color is best}
    EssRockNw=7040116; {Essence ROCK color (on screen in NW Corner)}
    EssRockNe=7040116; {Essence ROCK color (on screen in NE Corner)}
    EssRockSw=7040116; {Essence ROCK color (on screen in SW Corner)}
    EssRockSe=7040116; {Essence ROCK color (on screen in SE Corner)}
    LadderColor=4878977; {The ladder in the SW room, on the floor}
    TeleColor=11851226; {Color of the portal}
    RuneOre=6974324; {Color or the ess in ur inventory}
    BankBooth=2576993; {go here http://img132.exs.cx/my.php?loc=img132I=here1vj.png}
    { .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' +
           '');
    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,15))
    if(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))then
     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(678,51,1,1,true)
    Wait(8000+random(1000))
    repeat
    wait(100+random(50))
    until(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))
    if(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))then
     begin
      MMouse(x,y,1,1)
      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;
    
    if(corner='SW')or(corner='centerSW')then
    begin
    
    if(corner='centerSW')then
    begin
    mouse(615,115,5,5,true)
    wait(6000+random(1000))
    corner:='SW'
    end;
    
    if(corner='SW')and(Walked=True)then
    begin
    Mouse(618,72,1,1,true)
    wait(8000+random(1000))
    end;
    repeat
    wait(100+random(50))
    until(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))
    if(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))then
     begin
      MMouse(x,y,1,1)
      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='SW')then
    begin
    Mouse(618,72,1,1,true)
    wait(8000+random(1000))
    end;
    repeat
    wait(100+random(50))
    until(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))
    if(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))then
     begin
      MMouse(x,y,1,1)
      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;
    if(corner='SE')then
    begin
    wait(100+random(25))
    Mouse(674,103,1,1,true)
    wait(8000+random(1000))
    repeat
    wait(100+random(50))
    until(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))
    if(FindColorSpiralTolerance(x,y,TeleColor,5,5,515,340,15))then
     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(1000))
    end;
    end;
    end;
    end;
    
    Procedure Checkinv;
    begin
    Mouse(648,183,5,5,true)
    if(FindColorSpiralTolerance(x,y,RuneOre,693,431,746,465,15))then
     begin
      invfull:=true
     end;
    end;
    Procedure Randomtalk;
    var
    ran:integer;
     begin
     ran:=Random(10)
      if(ran=1)then
      begin
       Say('Whats everybodys woodcutting level?')
       wait(1000+random(50))
       Say('Mines 50.')
      end;
    
     if(ran=2)then
      begin
       Say('How much money does everybody have?')
       wait(1000+random(500))
       Say('I have...')
       wait(1000+random(500))
       Say('Around 300k')
      end;
     if(ran=3)then
      begin
       Say('I have mind ' +inttostr(orecount)+ ' Essence.')
       wait(1000+random(500))
       Say('mined*')
      end;
     if(ran=4)then
      begin
       Say('Whats everybodys mining level?')
       wait(1000+random(500))
      end;
     if(ran=5)then
      begin
       Say('This is SOOOO borng...')
       wait(1000+random(50))
       Say('oops, I meant boring')
      end;
     if(ran=6)then
      begin
       Say('I wish I had a better way to make money...')
       wait(1000+random(50))
      end;
     if(ran=8)then
      begin
       Say('Ive been at this for like two hours...')
       wait(1000+random(50))
      end;
     if(ran=9)then
      begin
       Say('How much Pure Essence does everybody have?')
       wait(1000+random(50))
      end;
     if(ran=10)then
      begin
       Say('Im going to get around 140k from all this Essence...')
       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;
    
    
    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
    Runs:=Runs+1;
    SetRun(true);
    Wait(50+random(10));
    findportalarea;
    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 CheckRandoms;
    begin
    randomtime:=getsystemtime+5000
    if(not LoadedOARPBmps)then
    LoadOARPBmps;
    LoginIfNeeded;
    FindText;
    FindFight;
    FindLamp;
    FindMod;
    FindMime;
    CheckIfDead;
    repeat
    LookForBox(true)
    getquestion;
    getanswer;
    answerquestion;
    wait(1500+random(500));
    until(not(FindBitmapSpiralTolerance(RandomBox,x,y,570,200,745,465,100)))
      FreeBoxBmps;
    end;
    
    
    
     Procedure FindRockTopLeft;
       begin
    if(FindObjColorTol('Mine',Essrock,100))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,100))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,100))then
    
        Mouse(x,y,1,1,true)
        wait(100)
        Uberwait(2500+random(1000))
        CheckRandoms;
        Mouse(648,184,1,1,true)
    
       end;
    
     Procedure FindRockBottomLeft;
       begin
        if(FindObjColorTol('Mine',Essrock,100))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
       FindRockTopRight;
       wait(100+random(100))
       FindRockTopLeft;
       wait(100+random(100))
       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...')
     Writeln('Finding Bank Symbol..')
     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,1,1,true)
       wait(3000+random(25))
       if(FindColorspiraltolerancE(x,y,1579123,561,249,597,284,5))then
        begin
        wait(14000+random(2000))
        end else
         begin
       wait(8000+random(2000))
         end;
       Mouse(616,140,1,1,true)
    
       wait(8000+random(1000))
       repeat
       wait(250+random(200))
       until(FindColoredAreaTolerance(x,y,RuneFloor,546,0,737,170,3,15))
       if(FindColoredAreaTolerance(x,y,RuneFloor,546,0,737,170,3,15))then
        begin
         Mouse(x,y,2,2,true)
         wait(4000+random(2000))
    
         end;
      end;
    end;
    Procedure Teleport;
    Begin
    
       Writeln('Finding Aubry...')
        repeat
         if(FindColorSpiralTolerance(x,y,Aubry,5,5,517,338,5))then
           MMouse(x,y,4,4)
           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;
    
    {====================================================]
    [================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(608,124,1,1,true)
    corner:='SW'
    Walked:=True
    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
    if(findcolorspiraltolerance(x,y,2708083,5,50,50,125,5))then
    begin
    mouse(x,y,2,2,false)
    end;
    if(findbitmap(log,x,y))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(670,60,4,4,true)
     wait(9000+random(2000))
     repeat
     loginifneeded;
     wait(250+random(250))
     until(FindColorSpiralTolerance(x,y,BankSymbol,546,0,736,170,25))
     if(FindColorSpiralTolerance(x,y,BankSymbol,546,0,736,170,25))then
      begin
       Mouse(x,y,5,5,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,4,4,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,3,3,false)
             uberwait(250+random(250))
             if(FindBitmapSpiralTolerance(Store,x,y,557,201,748,475,15))then
             begin
             Mouse(x,y,3,3,true)
             uberwait(1000+random(1000))
             OreCount:=OreCount+27
             ProgressReport;
             Mouse(459,42,10,1,true)
             wait(1000+random(250))
            end;
            end;
           end;
          end;
    
    end;
    begin
    LoginIfNeeded;
    SetupOSi;
    LoadBankBmps;
    LoadBoxBmps;
    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;
    AubryToBank;
    wait(100+random(50))
    BankEssence;
    wait(100+random(50))
    x:=random(5)
    if(x=1)then
     begin
      Randomtalk;
      ChatFixer;
     end;
    Walked:=False
    until(false)
    end.
    And the current error that I have is:
    Line 231: [Error] (231:1): Unknown identifier 'mouse' in script C:\Documents and Settings\[...]\My Documents\SCAR 3.15\Scripts\RuneScape\EssenceMiner.scar

    Could someone please look this over, and try to fix some problems?

  2. #2
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It's way outdated I am sorry and currently there's not any working ess miners so, please wait a few weeks.
    ~Hermen

  3. #3
    Join Date
    Jul 2008
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks for replying. I'll look around for a working Essence Miner.

  4. #4
    Join Date
    Dec 2008
    Location
    ohioo
    Posts
    308
    Mentioned
    0 Post(s)
    Quoted
    22 Post(s)

    Default

    I also have to find a working ess miner, any1 know where one is. If u do, plz put the link sumwhere here

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Essence Miner
    By mager guy in forum RS3 Outdated / Broken Scripts
    Replies: 13
    Last Post: 05-06-2008, 09:16 PM
  2. essence miner
    By blobmaster31 in forum OSR Help
    Replies: 1
    Last Post: 03-30-2008, 09:11 AM
  3. SRL Essence Miner
    By Illkillutill in forum OSR Help
    Replies: 2
    Last Post: 11-04-2007, 11:53 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
  •