Results 1 to 14 of 14

Thread: Varrock Ess Miner Error check plz

  1. #1
    Join Date
    Jan 2009
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Varrock Ess Miner Error check plz

    Not really sure how scar tags work
    but here is my attempt at an ess miner



    SCAR Code:
    program LMiner;
    {.include sslibrary.txt}
    {.include par.txt}
    {.include boxbreaker2.txt}
    {.include AntiFord.txt}

       const
    Username  =  littethink;
    Password  =  whatever;
    TripstoDo =  100;

    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;
    program LMiner;
    {.include sslibrary.txt}
    {.include par.txt}
    {.include boxbreaker2.txt}
    {.include AntiFord.txt}

       const
    Username  =  littethink;
    Password  =  whatever;
    TripstoDo =  100;

    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;
    end.
    "When arguing with an
    idiot make sure he isnt doing the same."
    -Littethink

  2. #2
    Join Date
    Jun 2007
    Location
    south park
    Posts
    1,160
    Mentioned
    0 Post(s)
    Quoted
    62 Post(s)

    Default

    dude why do u need help with these , u ready posted it in first script!


    lol whats going on with code tags!
    SCAR Code:
    program L TeaStealer;
    {.include SRL/SRL.scar}
     
    const
    AmountToSteal = 1000; // Amount of tea to steal
    // 16 exp per tea
     
     
    procedure DeclarePlayers;
    begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;
     
    Players[0].Name := 'exlittethink'; //your runescape account
    Players[0].Pass := 'whatever'; // your runescape password of your account
    Players[0].Nick := 'exlitt'; // 2-4 letters to use for antirandoms
    Players[0].Active := True; // use this character?
     
    end;
     
     
    var
    x,y,i,Steals,EXPGained,Antibans,RandomCount,LoggedOut : integer;
     
     
     
    Procedure Drop;
    Begin
     
    case Random(4) of
    0:
    begin
    for i := 1 to 27 do
    DropItem(i);
    end;
    1: begin
    wait(Random(300));
    end;
     
    2: begin
    wait(Random(300));
    end;
    3: begin
    wait(Random(300));
    end;
     
    end;
    End;
     
    procedure Proggy;
    Begin
    EXPGained:= Steals * 16;
    ClearDebug;
    Writeln('/////////////////////////////////////////////');
    Writeln('You Stole ' + IntToStr(Steals) +'/'+ IntToStr(AmountToSteal) + ' Times');
    Writeln('You gained '+ IntToStr(EXPGained) +' Exp' );
    Writeln('You Did '+ IntToStr(Antibans) +' Antibans' );
    Writeln('You Ran away from '+ IntToStr(RandomCount) + ' Randoms' );
    Writeln('You Logged Out ' + IntToStr(LoggedOut) + ' Times');
    Writeln('//////////////////////////////////////////////');
    End;
     
    procedure Antiban;
    begin
    if not LoggedIn then loginplayer;
    case Random(30) of
    0:
    begin
    HoverSkill('Thieving', False);
    Antibans:=Antibans+1;
    Proggy;
    end;
    1:
    begin
    Logout;
    wait(1000+Random(200));
    loginplayer;
    wait(100);
    Antibans:=Antibans+1;
    Proggy;
    end;
    2:
    begin
    GameTab(1 + Random(12));
    wait(800 + random(500));
    GameTab(4);
    Antibans:=Antibans+1;
    LoggedOut:=LoggedOut+1;
    Proggy;
    end;
    3:
    begin
    BoredHuman;
    Antibans:=Antibans+1;
    Proggy;
    end;
    end;
     
    end;
     
    Procedure StrayDog;
    Begin
    if FindColorSpiralTolerance(x, y, 7767471, msx1, msy1, msx2, msy2, 10) then
    Begin
    wait(300+Random(200));
    Mouse(x, y, 3, 3, false);
    wait(100+Random(200));
    ChooseOption('way');
    ChooseOption('hoo');
    wait(500+Random(3000));
     
    Proggy;
    End;
     
     
     
    End;
     
     
    procedure randoms;
    begin
    FindTalk;
    FindNormalRandoms;
    StrayDog;
    if (FindFight = true) then
    begin
    runaway('N',true,1,5000+random(1000));
    RandomCount:= RandomCount+1;
    Proggy;
    Logout;
    Proggy;
    wait(500+Random(5000));
    loginplayer;
    runaway('S',true,1,5000+random(1000));
    wait(5000+Random(2451));
    end;
    Proggy;
    end;
     
     
     
     
    Procedure FinnishScript;
    Begin
    ClearDebug;
    Proggy;
    End;
     
    Procedure lost;
    Begin
    begin
    if (FindSymbol(x, y, 'water source')) then
    wait(500+random(1000));
    Mouse(x+10+Random(10), y-15, 3, 3, true);
    wait(5000+Random(3000));
    end;
     
     
    { begin
    if (FindSymbol(x, y, 'dummy')) then
    wait(500+random(1000));
    runaway('S',true,1,5000+random(1000));
    wait(5000+Random(3000));
    end;}

    End;
     
    Procedure ClickStall;
    Begin
    repeat
    if not FindObjCustom(x, y, ['teal','eal','al'], [8953516,9678010,8821930], 10) then
    begin
    lost;
    wait(1000+Random(500));
    end;
    FindObjCustom(x, y, ['teal','eal','al'], [8953516,9678010,8821930], 10);
    wait(800+Random(234));
    MMouse(x, y, 12, 13);
    wait(200+Random(234));
    Drop;
    Antiban;
    randoms;
    wait(800+Random(234));
    if IsUpText('teal') then
    begin
    Mouse(x,y,5,5,true);
    Steals:= Steals + 1;
    Proggy;
    Wait(1000+random(750));
    end;
    until(Steals=AmountToSteal)
    end;
     
     
     
    Procedure Setup;
    Begin
    makecompass('n');
    keydown(VK_UP);
    wait(500+random(150)+random(150));
    keyup(VK_UP);
    wait(random(500));
    keydown(VK_RIGHT);
    wait(100+random(100));
    keyup(VK_RIGHT);
    wait(600+random(100));
    lost;
    End;
     
     
     
    Begin
    SetupSRL;
    ActivateClient;
    ClearDebug;
    DeclarePlayers;
    Setup;
    repeat
    if not LoggedIn then loginplayer;
    wait(2000+Random(1000));
    ClickStall;
    Antiban;
    until(Steals=AmountToSteal)
    FinnishScript;
    End.[/quote]
    http://www.youtube.com/user/YoHoJoSRL
    Good scripting guides on youtube
    Formerly known as (djcheater)

  3. #3
    Join Date
    Jan 2009
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    tht was hobbit
    "When arguing with an
    idiot make sure he isnt doing the same."
    -Littethink

  4. #4
    Join Date
    Jun 2007
    Location
    south park
    Posts
    1,160
    Mentioned
    0 Post(s)
    Quoted
    62 Post(s)

    Default

    that was hobbit what ,
    who fixed your post?


    Look at your top tag there is a space between [ SCAR] and bottom scar tag there is a space between / and SCAR ,
    get rid of spaceS!
    http://www.youtube.com/user/YoHoJoSRL
    Good scripting guides on youtube
    Formerly known as (djcheater)

  5. #5
    Join Date
    Jan 2009
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeah

    where do i add it though
    "When arguing with an
    idiot make sure he isnt doing the same."
    -Littethink

  6. #6
    Join Date
    Jun 2007
    Location
    south park
    Posts
    1,160
    Mentioned
    0 Post(s)
    Quoted
    62 Post(s)

    Default

    At start and end of script!
    http://www.youtube.com/user/YoHoJoSRL
    Good scripting guides on youtube
    Formerly known as (djcheater)

  7. #7
    Join Date
    Jan 2009
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks
    noob errors
    but im getting it
    "When arguing with an
    idiot make sure he isnt doing the same."
    -Littethink

  8. #8
    Join Date
    Jun 2007
    Location
    south park
    Posts
    1,160
    Mentioned
    0 Post(s)
    Quoted
    62 Post(s)

    Default

    erm i am no expert but this hasnt got any
    SCAR Code:
    {.include SRL/SRL.scar}

    and whats with the .txt files?
    http://www.youtube.com/user/YoHoJoSRL
    Good scripting guides on youtube
    Formerly known as (djcheater)

  9. #9
    Join Date
    Jan 2009
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    well i wasnt really sure wht to do
    so i kinda of winged it but i'll remake
    "When arguing with an
    idiot make sure he isnt doing the same."
    -Littethink

  10. #10
    Join Date
    Jun 2007
    Location
    south park
    Posts
    1,160
    Mentioned
    0 Post(s)
    Quoted
    62 Post(s)

    Default

    winged it?
    http://www.youtube.com/user/YoHoJoSRL
    Good scripting guides on youtube
    Formerly known as (djcheater)

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

    Default

    Quote Originally Posted by littethink View Post
    tht was hobbit
    In the post i showed them to you i needed to put the space in or else the tags don't show up. I should have told you to remove the space. Sorry
    STOP PM'ING ME

  12. #12
    Join Date
    Oct 2007
    Location
    #srl
    Posts
    6,102
    Mentioned
    39 Post(s)
    Quoted
    62 Post(s)

    Default

    Learn to incorporate SRL and save coutless hours of pointless work.

  13. #13
    Join Date
    Mar 2007
    Posts
    4,810
    Mentioned
    3 Post(s)
    Quoted
    3 Post(s)

    Default

    Your script uses includes which are 2 years old. All of them are dead. Use SRL

  14. #14
    Join Date
    Oct 2006
    Location
    ithurtsithurtsithurtsithurts
    Posts
    2,930
    Mentioned
    7 Post(s)
    Quoted
    135 Post(s)

    Default

    Quote Originally Posted by NaumanAkhlaQ View Post
    Your script uses includes which are 2 years old. All of them are dead. Use SRL
    I don't think it's his:
    'Thank You for Choosing Darippy9324s Ess Miner'

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Varrock East Miner by n3ss3s
    By n3ss3s in forum RS3 Outdated / Broken Scripts
    Replies: 47
    Last Post: 03-26-2008, 09:00 AM
  2. Varrock East Miner
    By Runescapian321 in forum RS3 Outdated / Broken Scripts
    Replies: 1
    Last Post: 10-08-2007, 11:56 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
  •