Results 1 to 19 of 19

Thread: help with runescape script for scar

  1. #1
    Join Date
    Aug 2007
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default help with runescape script for scar

    what version of scar do i need and how do i run it please step by step , because i used to use scar but i just forgot how to ;p
    - or a working ess miner thats really good that can bank and all the good stuff =] remember step by step please -thanks alot


    im a member mining pure ess .





    Code:
    //Hosted by Runescape 101
    //Download more free scar scripts from www.rs101.info
    {++++++++++++++++++++++++++++++++++++++++++++++++++++++++++]
    ESS MINER
    V. 3.25
    by: Darippy9324
    Credits go to:
    krrose27, choppa, laura, clashfan, and ch33psh33p
    AIM BUGS TO: MYSALSA1022
    [+++++++++++++++++++++++++++++++++++++++++]
    1.Have picks in first Invo slot
    2.Start in Varrok East Bank
    3.Please Watch the first load or so... just to make sure
    [+++++++++++++++++++++++++++++++++++++++++]
    v. b1.0= fixed some bugs
    v. b1.5= fixed more bugs
    v. b2.0= grrr zone detection and banking
    v. b2.3= almost done...
    V. 2.65= REAL VERSION!!! YAY
    V. 2.70= FIRST REAL UPDATES
    V. 2.75= BANKING FIXED!!! YAY NO MULTI PICKS ALONG WITH SW MINE UPDATE!
    V. 2.90= MORE BUGS AND NEW MINE PROCEDURES
    V. 2.95= ALMOST A OVERNIGHTER... MINOR CHANGES
    V. 3.10= MORE CRAP ADDED AND COOL START UP^^^
    V  3.25= NEW RANDOMS ADDED =)
    [+++++++++++++++++++++++++++++++++++++++++}
    program DEssMiner;
    {.include sslibrary.txt}
    {.include par.txt}
    {.include boxbreaker2.txt}
    {.include AntiFord.txt}
    
    var arrow, flags, Frog, bmpFreakyForester, TripsDone:integer;
    
    {++++++++++++++++++++++++++++++SETUP++++++++++++++++++++++++++++++}
    const
    Username  =  'username';
    Password  =  'password';
    TripstoDo =  15; //how many trips do you wanna do?
    {++++++++++++++++++++++++++++++END-SETUP++++++++++++++++++++++++++++++}
    
    procedure Yay;
    begin;
    writeln('('+
    '\'+
    ','+
    '.'+
    ','+
    '/'+
    ')');
    Wait(500);
    Writeln(' \'+
    'O'+
    '.'+
    'O'+
    '/');
    Wait(500);
    WriteLn('   W')
    Wait(500);
    WriteLn(' /'+
    'U'+
    ' U'+
    '\');
    Wait(500);
    WriteLn('('+
    ' _'+
    '_'+
    '_'+
    ' )');
    Wait(500);
    WriteLn(' \'+
    '\'+
    '  \'+
    '\');
    Writeln('Thank You for Choosing Darippy9324s Ess Miner')
    end;
    
    procedure loadbmps;
    begin
    arrow := BitmapFromString(6, 11,
           'A1A1A1A1A1A1A1A1A1BE4901BE4901BE4901A1A1A1A1A1A1A1A1A1' +
           'BE49013A403EBE4901A1A1A1A1A1A1A1A1A1BE49011A3B2D3A403E' +
           'BE4901BE4901BE4901BE49011A3B2D1A3B2D1A3B2D1A3B2D1A3B2D' +
           '1A3B2D3A403E1A3B2D1A3B2D1A3B2D1A3B2D1A3B2D1A3B2D1A3B2D' +
           '070C06070C06070C06070C061A3B2D1A3B2DBE4901BE4901BE4901' +
           'BE49011A3B2D1A3B2D818181818181818181BE4901070C06070C06' +
           'A1A1A1A1A1A1A1A1A1BE4901070C06BE4901A1A1A1A1A1A1A1A1A1' +
           'BE4901BE4901BE4901');
    flags := BitmapFromString(2, 15,
           'FF00005D3311FF00005D3311FF00005D3311FF00005D3311FF0000' +
           '5D3311FF00005D3311FF00005D3311C656045D3311C656045D3311' +
           'C656045D3311C656045D3311C656045D3311C656045D3311C65604' +
           '5D3311C656045D3311');
    Frog := BitmapFromString(30, 2, 'z78DA73727274B534B23000012' +
         '74747270B47E249645DB84C808A836D4126C91447321317498C9B' +
         '5154426CC160633119C355982EC4A51E00B445523B');
    bmpFreakyForester := BitmapFromString(106, 2, 'z78DAA552410AC0' +
           '3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
           'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
           'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
           '846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
           'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
    Writeln('-----------------------------------------------')
    Writeln('Bitmaps Loaded')
    Writeln('If You have a computer that cant recongnize')
    Writeln('Bitmaps, Please Consult Me on Sythe.org')
    Writeln('For a Custom Script')
    Writeln('-----------------------------------------------')
    end;
    
    {ANTIRANDOMS}
    
    procedure TalkToRand;
    var
      c:integer;
    begin
      repeat
      c:=c+1;
      if(FindColor(x,y,16711680,5,345,510,465))and(not(GetColor(20,434)=0))then
        begin
          Mouse(x,y,50,2,true);
          wait(500+random(500));
        end;
      if(FindColor(x,y,16777215,5,345,510,465))and(not(GetColor(20,434)=0))then
        begin
          GetMousePos(x,y);
          Mouse(x,y,50,2,true);
          wait(500+random(500));
        end;
      until(GetColor(20,434)=0)or(c>=20)
    end;
    
    
    function IsTextUp(text:string):Boolean;
    begin
      result:= IsTextAt2(9,9,text,100)
    end;
    
    function FindDirObj(var cx,cy:Integer; Direction,Text:string; Steps, Tries:Integer):Boolean;
    var
      att:Integer;
      x, y: Integer;
    begin
      x:=268
      y:=160
      att:=0
      if(Direction='NW') then
        repeat
          att:=att+1
          MMouse(x-Steps,y-Steps,0,0)
          GetmousePos(x,y)
          if(istextat2(9,9,Text,100)) then
          begin
            result:=true
          end else
            Wait(500)
        until(IsTextUp(Text)or(att>=Tries))
      if(Direction='NE') then
        repeat
          att:=att+1
          MMouse(x+Steps,y-Steps,0,0)
          GetmousePos(x,y)
          if(IsTextUp(Text)) then
          begin
            result:=true
          end else
            Wait(500)
        until(IsTextUp(Text)or(att>=Tries))
      if(Direction='SW') then
        repeat
        att:=att+1
        MMouse(x-Steps,y+Steps,0,0)
        GetmousePos(x,y)
        if(IsTextup(Text)) then
        begin
          result:=true
        end else
          Wait(500)
        until(IsTextUp(Text)or(att>=Tries))
      if(Direction='SE') then
        repeat
        att:=att+1
        MMouse(x+Steps,y+Steps,0,0)
        GetmousePos(x,y)
        if(IsTextUp(Text)) then
        begin
          result:=true
        end else
          Wait(500)
        until(IsTextUp(Text)or(att>=Tries))
     if(Result=True)then
     begin
      cx:= x;
      cy:= y;
     end;
    end;
    
    
    procedure runaway;
    begin
    Run(true);
    FindColorspiral(x,y,1557,582,4,721,142);
    clickmouse(x+random(2),y+random(2),true);
    flag;
    Writeln('Runaway')
    end;
    
    function Fight:boolean;
    begin
    if(FindColorSpiral(x,y,65280,216,115,284,171))then
    Result:=true;
    end;
    
    
    Procedure CheckIfDead;
    begin
     if(GetColor(30,418)=0)and(GetColor(72,429)=0)then
     begin
      LogOut;
      Writeln('Dead')
     end;
    end;
    
    Procedure FindMime;
    var ax,ay:integer;
    begin
    if(FindColor(ax,ay,11503238,10,350,479,433))then
     begin
      LogOut;
      Writeln('Mime')
     end;
    end;
    
    function FindForester:boolean;//A Stupid3ooo procedure
    begin
      if(FindBitmap(bmpFreakyForester,x,y))then
      begin
        writeln('Freaky Forester found, logging out.');
        LogOut;
        TerminateScript;
      end;
    end;
    
    function FindFrog:boolean;//A Stupid3ooo procedure
    begin
      if(FindBitmap(Frog,x,y))then
      begin
        writeln('Frog found, logging out.');
        LogOut;
        TerminateScript;
      end;
    end;
    
    
    procedure golom;
    begin
    if(fight)then
    runaway;
    end;
    
    
    procedure randoms;
    begin
    Login(Username,Password);
    Check4Randoms;
    Check4Lamp('mining');
    EyeTest;
    golom;
    FindFrog;
    FindForester;
    checkifdead;
    Check4mod;
    FindMime;
    FindStrangeBox;
    end;
    
    {END-RANDOMS}
    
    {UBER ZONE DETECTION}
    procedure zonedetection;
    begin
    Writeln('Finding Ess...')
    randoms;
    FindColorspiral(x,y,1557,582,4,721,142);
    clickmouse(x+random(2),y+random(2),true);
    flag;
    wait(200+random(100));
    FindColorspiral(x,y,9539482,582,4,721,142);
    clickmouse(x+random(2),y+random(2),true);
    wait(800+random(125));
    flag;
    FindColorspiral(x,y,8092291,582,4,721,142);
    clickmouse(x+random(2),y+random(2),true);
    wait(2000+random(125));
    flag;
    end;
    {lol not that Uber}
    
    procedure mine;
    begin;
    Writeln('Mining Ess...')
    randoms;
    repeat
    wait(500)
    until(FindDirObj(x,y,'NW','Mine',30,4))or(FindDirObj(x,y,'NE','Mine',30,4))or(FindDirObj(x,y,'SE','Mine',30,4))or(FindDirObj(x,y,'SW','Mine',30,4));
    Mouse(x,y,2,2,true);
    repeat
    wait(500+random(100));
    randoms;
     until(InventoryCount=28)
    SetPublicChat('off');
    end;
    
    function center:boolean;
    begin;
    if(FindBitmap(arrow,x,y))then
     result:=false;
    end;
    
    
    procedure portal;
    begin;
    Writeln('gottem coach')
    randoms;
    if(FindColorspiral(x,y,84414,582,4,721,142))then
    mouse(x+15,y,1,1,true);
    wait(5000+random(758));
    if(FindColorspiral(x,y,2964250,582,4,721,142))then
    mouse(x-5,y+5,1,1,true);
    wait(5000+random(758));
    repeat
    wait(100)
    until FindObj('Use',9806761,4);
    mouse(x,y,1,1,true);
    wait(2000);
    if(FindColorspiral(x,y,2196626,582,4,721,142))then
    mouse(x+44,y+19,1,1,true);
    flag;
    wait(1300);
    randoms;
    end;
    
    Procedure WalktoBank;
    begin
    if(FindColorspiral(x,y,1452606,582,4,721,142))then
    wait(50)
    mouse(x,y,1,1,true);
    flag;
    wait(1300);
    if(FindColorspiral(x,y,6776686,582,4,721,142))then
    Wait(50)
    mouse(x,y,1,1,true);
    flag;
    wait(3000);
    end;
    
    
    procedure tomine;
    begin;
      Mouse(659,138,1,1,true);
      wait(14000)
      flag;
     wait(500);
     if(FindColorspiral(x,y,65995,582,4,721,142))then
     mouse(x+0,y+10,1,1,true);
     flag;
     wait(2000);
    randoms;
    end;
    
    Procedure TalktoGuy;
    Begin
    Writeln('Finding Aubry...')
    begin
    repeat
    wait(50)
    if(Findobj('Talk',2186884,5))then
       Mouse(x,y,1,1,false)
       wait(500+random(100))
       Mouse(x,y+55,1,1,true);
       wait(1500+random(500));
       until(findcolorspiral(x,y,12829386,582,4,721,142))or(findcolorspiral(x,y,2964250,582,4,721,142))
       wait (3000+random(1000));
    Writeln('Found Aubry... Teleporting...');
    wait(500);
    end;
    end;
    
    Procedure bank;
    begin;
    openbank;
    deposit(1,2,27)
    closewindow;
    randoms;
    writeln('Banked!')
    end;
    
    
    begin
    LoadLibrary('AOL-MR.NICEGUY');
    yay;
    loadbmps;
    repeat
    SetPublicChat('off');
    SetPrivateChat('off');
    SetTradeDuel('off');
    run(true);
    tomine;
    run(false);
    TalktoGuy;
    Zonedetection;
    mine;
    portal;
    run(true);
    walktobank;
    run(false);
    bank;
    TripsDone:=TripsDone+1;
    Writeln('--------=====DARIPPY9324s ESS MINER=====--------');
    Writeln('Banked '+inttostr(TripsDone)+' Load(s) of 27 Ess');
    Writeln('Any Errors? Please Report... Again Thanks For Your Support');
    Writeln('===--------=====Progress**Report=====--------===');
    Until(TripsDone=TripsToDo)Or(TripsDone>TripsTodo)
    Logout;
     Writeln('You have succesfully done '+inttostr(TripstoDo)+' Trips')
    end.
    Last edited by Hobbit; 06-28-2009 at 01:26 PM. Reason: code tags

  2. #2
    Join Date
    Feb 2009
    Location
    Philipines
    Posts
    600
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    That script is very outdated, try using this instead http://www.villavu.com/forum/showthread.php?t=46745

  3. #3
    Join Date
    Aug 2007
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i dont have access to that page for some reason..

  4. #4
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You need 10 non spam posts and to be here for a week.

  5. #5
    Join Date
    Aug 2007
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    well mean while can someone give me a working script? or go on that site and send me the script

  6. #6
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    That would be leaking, sorry. Just look in the Free For All section (First page mostly, and check the dates of the thread)

  7. #7
    Join Date
    Aug 2007
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    can i message you on aim?

  8. #8
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm not going to give you any scripts that you can't get right now. Sorry.

  9. #9
    Join Date
    Aug 2007
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    can you atleast find me the script i need?

  10. #10
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Sorry, there are no ess miners that you have access to.

  11. #11
    Join Date
    Aug 2007
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    this is my old account how come i still dont have access to that link ive been a member for like a year =]

  12. #12
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You don't have 10 non spam posts. Try other scripts, post proggies/errors. Just don't spam/be annoying (don't be like "Nice script, thanks" if you don't post a progress report, or you'll get banned).

  13. #13
    Join Date
    Aug 2007
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    what do you mean a progress report? and i dont really know nothing about scripting bud

  14. #14
    Join Date
    Dec 2008
    Posts
    2,813
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ... When you run a script it will give you a progress report. Post that on the thread that you got it on. I'd consider this spamming (all you're posting) so figure it out please.

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

    Default

    Kamil7x / Holyhustler106

    Please choose one of those accounts to keep, the other will be merged with the one you want to keep.
    STOP PM'ING ME

  16. #16
    Join Date
    Aug 2007
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    so pretty much they can be any kind of posts?

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

    Default

    Quote Originally Posted by holyhustler106 View Post
    so pretty much they can be any kind of posts?
    No, useful posts.

    Now please respond to my above post.
    STOP PM'ING ME

  18. #18
    Join Date
    Aug 2007
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i want holyhustler106

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

    Default

    Closed
    STOP PM'ING ME

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
  •