Page 2 of 3 FirstFirst 123 LastLast
Results 26 to 50 of 53

Thread: Bandit killer

  1. #26
    Join Date
    Nov 2006
    Posts
    2,369
    Mentioned
    4 Post(s)
    Quoted
    78 Post(s)

    Default

    Updated!

    Now it works with the new graphics
    Quote Originally Posted by DeSnob View Post
    ETA's don't exist in SRL like they did in other communities. Want a faster update? Help out with updating, otherwise just gotta wait it out.

  2. #27
    Join Date
    Nov 2007
    Posts
    131
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You wouldnt trust your guthans with a script? first your a noob by not having it,second have you ever heard of the item ´´Ring of life´´ this item erm,how do i explain you....ohhh well...IT SAVES U BEFORE DYING.

  3. #28
    Join Date
    Nov 2006
    Posts
    2,369
    Mentioned
    4 Post(s)
    Quoted
    78 Post(s)

    Default

    Quote Originally Posted by you won View Post
    You wouldnt trust your guthans with a script? first your a noob by not having it,second have you ever heard of the item ´´Ring of life´´ this item erm,how do i explain you....ohhh well...IT SAVES U BEFORE DYING.
    The script runs and logs out when you dont have food.
    And so what if ring of life saves you before death if there is a bug in my script?
    Quote Originally Posted by DeSnob View Post
    ETA's don't exist in SRL like they did in other communities. Want a faster update? Help out with updating, otherwise just gotta wait it out.

  4. #29
    Join Date
    Feb 2007
    Posts
    107
    Mentioned
    0 Post(s)
    Quoted
    13 Post(s)

    Default

    I think you should add noted food withdrawing in the shop. That would be supergood.

    I will probably not use it for now. Guthan's better =\.

  5. #30
    Join Date
    Mar 2007
    Posts
    132
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Does this still work?
    http://www.fenjer.com/adnan/SRLStats/877.png
    The Fabis Uber banner has been updated so it works in the latest SRL versions -->Fastest baning script ever!

  6. #31
    Join Date
    Nov 2006
    Posts
    2,369
    Mentioned
    4 Post(s)
    Quoted
    78 Post(s)

    Default

    Updated!

    -Added food withdrawing from bank!
    -Added better antirandoms and some other things.
    -Added sleeping
    -Added progres report.
    -Uses reflection.

    Edit: here is a proggy:
    SCAR Code:
    ----------------------------------------------------------------
    |Bandit killer
    |Worked for 2 Hours, 51 Minutes and 4 Seconds
    |Banked for 5 times
    |Hopped for 0 times
    |Slept for 0 times
    |Gained 31362 Hp xp
    |Gained 0 Atk xp
    |Gained 94301 Str xp
    |Gained 0 Def xp
    |Gained 0 Range xp
    ----------------------------------------------------------------
    (couldn't solve quiz)

  7. #32
    Join Date
    Feb 2007
    Posts
    107
    Mentioned
    0 Post(s)
    Quoted
    13 Post(s)

    Default

    What bank does it take the food from?

    And bank is FAR!

    As I said eralier, u should add noted food withdrawing from the shop .

  8. #33
    Join Date
    Nov 2006
    Posts
    2,369
    Mentioned
    4 Post(s)
    Quoted
    78 Post(s)

    Default

    Quote Originally Posted by inkw10 View Post
    What bank does it take the food from?

    And bank is FAR!

    As I said eralier, u should add noted food withdrawing from the shop .
    Takes food from shantay bank.(It's not so when you go there with the flying carpet)
    And can you tell me how I can withraw food from shop? And how I can eat it if it's noted???

  9. #34
    Join Date
    Feb 2007
    Posts
    107
    Mentioned
    0 Post(s)
    Quoted
    13 Post(s)

    Default

    You have to sell the noted food into the shop and buy it back, then its unnoted .

    Like, sell 25 and buy all them back . Need to have some money in your inventory tho. Not much.

  10. #35
    Join Date
    Nov 2006
    Posts
    2,369
    Mentioned
    4 Post(s)
    Quoted
    78 Post(s)

    Default

    Quote Originally Posted by inkw10 View Post
    You have to sell the noted food into the shop and buy it back, then its unnoted .

    Like, sell 25 and buy all them back . Need to have some money in your inventory tho. Not much.
    Wow that sounds cool
    I will maybe do that to the next update

    Edit:Would it work with potions too?

  11. #36
    Join Date
    Feb 2007
    Posts
    107
    Mentioned
    0 Post(s)
    Quoted
    13 Post(s)

    Default

    Yea, but potions would need more money in the backpack, but yea, they work.
    GL on the next update, im waiting for it .

  12. #37
    Join Date
    Mar 2007
    Posts
    562
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    in next version can you make it so it uses prayer potions... so like when it runs out of them it goes to bank to get more.

    haxor

    EDIT: doesnt work, it logs in and sets strength then puts mouse to bottom of screen and just sits there... and eventually logs out=)

  13. #38
    Join Date
    Mar 2007
    Location
    <3
    Posts
    2,683
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Code:
    program BanditKiller;
    //  By antti mies
    //  :)
    //change line 16,20-23
    
    {.Include SRL\SRL\Misc\Smart.Scar}
    {.include SRL/SRL.scar}
    {.include SRL\SRL\skill\Fighting.scar}
    {.Include SRL\SRL\Reflection\Reflection.Scar}
    
    var
    TimeMark,Hopped,Banked,x,y,hpnow,hplater,strnow,strlater,defnow,deflater,atknow,atklater,rannow:integer;
    ranlater,hpgained,atkgained,strgained,defgained,rangained,lol,maxhp,timex,whentosleep,slept,weapon:integer;
    
    Const
      SmartWorld = 'World132';
    
    procedure Setup;
    begin
      Weapon := DTMFromString('78DA639CC2C4C0709F010D302291407A3150C' +//change only if you don't use d scimitar!
           'D75026AFA806A3E1050D30554F391809AE940358F09A8994FD8CD' +//change only if you don't use d scimitar!
           '0049EE08FD');//change only if you don't use d scimitar!
    end;
    
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
    
      Players[0].Name := 'UserName';
      Players[0].Pass := 'Pass';
      Players[0].Nick := 'erN';
      Players[0].Active := True;
    end;
    
    Procedure PickWorld;
    var x, y, NewWorld, LastWorld, SecondLastWorld, SSecondLastWorld :integer;
        GoodWorld : string;
    Begin
      wait(2000);
      Hopped := Hopped + 1;
      Repeat
        If (not(loggedin)) Then
        Begin
          Mouse(358, 235,4,4,True)
          Wait(2000+Random(130))
        End Else Wait(1000+Random(155));
      Until(FindText(x,y,'138',UpChars,50,30,710,500));
      Repeat
        If FindText(x,y,'138',UpChars,50,30,710,500) Then
        Repeat
          NewWorld := Random(51)+1
          If (NewWorld = LastWorld) Or (NewWorld = SecondLastWorld) Or (NewWorld = SSecondLastWorld) Then
          Begin
            GoodWorld := 'False'
          End Else GoodWorld := 'True';
        Until(GoodWorld='True');
        Begin
          Case (NewWorld) Of
            1: FindText(x,y,'44',UpChars,50,30,710,500);
            2: FindText(x,y,'45',UpChars,50,30,710,500);
            3: FindText(x,y,'46',UpChars,50,30,710,500);
            4: FindText(x,y,'48',UpChars,50,30,710,500);
            5: FindText(x,y,'53',UpChars,50,30,710,500);
            6: FindText(x,y,'54',UpChars,50,30,710,500);
            7: FindText(x,y,'56',UpChars,50,30,710,500);
            8: FindText(x,y,'58',UpChars,50,30,710,500);
            9: FindText(x,y,'59',UpChars,50,30,710,500);
            10: FindText(x,y,'64',UpChars,50,30,710,500);
            11: FindText(x,y,'65',UpChars,50,30,710,500);
            12: FindText(x,y,'66',UpChars,50,30,710,500);
            13: FindText(x,y,'69',UpChars,50,30,710,500);
            14: FindText(x,y,'70',UpChars,50,30,710,500);
            15: FindText(x,y,'71',UpChars,50,30,710,500);
            16: FindText(x,y,'76',UpChars,50,30,710,500);
            17: FindText(x,y,'77',UpChars,50,30,710,500);
            18: FindText(x,y,'78',UpChars,50,30,710,500);
            19: FindText(x,y,'79',UpChars,50,30,710,500);
            20: FindText(x,y,'82',UpChars,50,30,710,500);
            21: FindText(x,y,'83',UpChars,50,30,710,500);
            22: FindText(x,y,'84',UpChars,50,30,710,500);
            23: FindText(x,y,'88',UpChars,50,30,710,500);
            24: FindText(x,y,'89',UpChars,50,30,710,500);
            25: FindText(x,y,'91',UpChars,50,30,710,500);
            26: FindText(x,y,'92',UpChars,50,30,710,500);
            27: FindText(x,y,'97',UpChars,50,30,710,500);
            28: FindText(x,y,'98',UpChars,50,30,710,500);
            29: FindText(x,y,'99',UpChars,50,30,710,500);
            30: FindText(x,y,'100',UpChars,50,30,710,500);
            31: FindText(x,y,'103',UpChars,50,30,710,500);
            32: FindText(x,y,'104',UpChars,50,30,710,500);
            33: FindText(x,y,'110',UpChars,50,30,710,500);
            34: FindText(x,y,'111',UpChars,50,30,710,500);
            35: FindText(x,y,'112',UpChars,50,30,710,500);
            36: FindText(x,y,'114',UpChars,50,30,710,500);
            37: FindText(x,y,'115',UpChars,50,30,710,500);
            38: FindText(x,y,'116',UpChars,50,30,710,500);
            39: FindText(x,y,'120',UpChars,50,30,710,500);
            40: FindText(x,y,'121',UpChars,50,30,710,500);
            41: FindText(x,y,'124',UpChars,50,30,710,500);
            42: FindText(x,y,'129',UpChars,50,30,710,500);
            43: FindText(x,y,'130',UpChars,50,30,710,500);
            44: FindText(x,y,'131',UpChars,50,30,710,500);
            45: FindText(x,y,'132',UpChars,50,30,710,500);
            46: FindText(x,y,'137',UpChars,50,30,710,500);
            47: FindText(x,y,'138',UpChars,50,30,710,500);
            48: FindText(x,y,'145',UpChars,50,30,710,500);
            49: FindText(x,y,'157',UpChars,50,30,710,500);
            50: FindText(x,y,'158',UpChars,50,30,710,500);
            51: FindText(x,y,'159',UpChars,50,30,710,500);
          End;
          Wait(100+Random(37))
          Mouse(x+40+Random(5),y+5,1,1,True)
          Wait(1000+Random(210))
        End;
        SSecondLastWorld := SecondLastWorld
        SecondLastWorld := LastWorld
        LastWorld := NewWorld
        If (not(FindText(x,y,'138',UpChars,50,30,710,500))) Then Exit;
      Until(not(FindText(x,y,'1',UpChars,50,30,710,500)))
    End;
    
    Function WalkToTileEx(TileX, TileY, XTRandom, YTRandom, FFlag : Integer): Boolean;
    Var T1l : Tpoint;
    Begin
      T1l.X := TileX+random(XTRandom)
      T1l.Y := TileY+random(YTRandom)
      result := Walktotile(T1l,0,FFlag);
      MouseSpeed := 14 + Random(5);
    end;
    
    
    
    function Lamb : Boolean;
    var
      x, y : Integer;
    begin
      if FindColorTolerance(x, y, 1084300, MIX1, MIY1, MIX2, MIY2, 40) then
        Result := FindBitmapToleranceIn(Lamp, x, y, MIX1, MIY1, MIX2, MIY2, 40);
    end;
    
    procedure walka;
    var
      Tilee,t : TPoint;
      o,oo:integer;
    begin
      o := getme.tile.x
      oo := getme.tile.y
      if (o = 3182) and (oo =2978) then exit;
       Tilee := point(3182, 2978);
       setangle(true);
       t := TileToMS(Tilee,15);
       if t.x = 0 then terminatescript;
        Mouse(t.x-3,t.y-3,9,9,false);
        wait(300+random(300));
        chooseoption('Walk');
        wait(300+random(300));
        flag;
    end;
    
    procedure walkb;
    var
      Tilee,t : TPoint;
      o,oo:integer;
    begin
      o := getme.tile.x
      oo := getme.tile.y
      if (o = 3182) and (oo =2975) then exit;
       Tilee := point(3182, 2975);
       setangle(true);
       t := TileToMS(Tilee,15);
       if t.x = 0 then terminatescript;
        Mouse(t.x-3,t.y-3,9,9,false);
        wait(300+random(300));
        chooseoption('Walk');
        wait(300+random(300));
        flag;
    end;
    
    Procedure checkhp; Forward;
    Procedure randoms; Forward;
    
    procedure Makesure;
    begin
      walka;
      walka;
      ftwait(15+random(7));
      checkhp;
      randoms;
      ftwait(15+random(7));
      checkhp;
      randoms;
      ftwait(15+random(7));
      checkhp;
      randoms;
      ftwait(15+random(7));
      checkhp;
      randoms;
      ftwait(15+random(7));
      checkhp;
      randoms;
      ftwait(15+random(7));
      walkb;
      walkb;
    end;
    
    procedure Sleepa;
    begin
      Status('Sleeping');
      WalkToTileEx(3188, 2962, 3, 3, 8);
      WalkToTileEx(3186, 2955, 5, 3, 16+random(8));
      repeat
        logout;
        wait(300+random(300));
      until(not(loggedin));
      Slept := Slept + 1;
      wait(300000+random(920000));
      loginplayer;
      WalkToTileEx(3188, 2962, 3, 3, 0);
      wait(300+random(300));
      WalkToTileEx(3182-1, 2977-2, 2, 3, 0);
      makesure;
      setrun(true);
      Timex := (7200000+random(7200000));
      MarkTime(WhentoSleep);
    end;
    
    procedure randoms;
    begin
      gametab(4);
      if FindBox then
      begin
        WalkToTileEx(3188, 2962, 3, 3, 8);
        WalkToTileEx(3186, 2955, 5, 3, 8);
        SolveBox;
        setrun(false);
        WalkToTileEx(3188, 2962, 3, 3, 0);
        wait(300+random(300));
        WalkToTileEx(3182-1, 2977-2, 2, 3, 0);
        makesure;
        setrun(true);
      end;
      if Lamb then
      begin
        WalkToTileEx(3188, 2962, 3, 3, 8);
        WalkToTileEx(3186, 2955, 5, 3, 8);
        FindLamp('Strenght');
        setrun(false);
        WalkToTileEx(3188, 2962, 3, 3, 0);
        wait(300+random(300));
        WalkToTileEx(3182-1, 2977-2, 2, 3, 0);
        makesure;
        setrun(true);
      end;
      ftWait(4);
      FindNonInventoryRandoms;
    end;
    
    Procedure AntiBan;
    Begin
      FTWait(2+random(2));
      MouseSpeed := 10 + Random(5);
      If(not (LoggedIn))then
        exit;
      wait(100+random(100))
      Case Random(45) of
        0:  MMouse(random(MSX2),random(MSY2),0,0);
        1:  HoverSkill('random',false);
        2:  MMouse(random(MSX2),random(MSY2),0,0);
        5:  PickupMouse;
        6:  MMouse(random(MSX2),random(MSY2),0,0);
        7:  MouseSpeed := 14 + Random(5);
        8:  MMouse(random(MSX2),random(MSY2),0,0);
        9:  FTWait(2+Random(4));
        10:
        Begin
          GameTab(1+random(12));
          FTWait(1+Random(4));
          GameTab(4);
        End;
        11: MMouse(random(MSX2),random(MSY2),0,0);
        12,13: MouseSpeed := 13 + Random(5);
        14: MMouse(random(MSX2),random(MSY2),0,0);
        15: begin
          case random(90000) of
            0:typesend('lol');
            1:typesend('<-');
            2:typesend('die');
            3:typesend('die');
            4:typesend('ww00t');
            5:typesend('wp');
            6:typesend('Im drunken');
            7:typesend('die monsters');
            8:typesend('my spot');
            9:typesend('Hi');
            10:typesend('x D');
            11:typesend('i own!');
            12:typesend('im noob');
            13:typesend('noob');
            14:typesend('hah');
            15:typesend('l0l');
            16:typesend('die');
            17:typesend('weeee');
            18:typesend('69');
            19:typesend('die');
            20:typesend('i hate range');
            21:typesend(' ');
            22:typesend('moo');
            23:typesend('hey');
            24:typesend('kgjdsfgh');
            25:typesend('njgsydfgy');
            26:typesend('omg');
            27:typesend('lol');
            29:typesend('ya');
            30:typesend('woot');
            31:typesend('w00t');
            32:typesend('noob');
            33:typesend('plz leave');
            33:typesend('kill me noob');
          End;
        End;
        16:  MMouse(random(MSX2),random(MSY2),0,0);
        17,18:  FTWait(1+Random(9));
        19,29:
        begin
          case random(3) of
            0:
            begin
              KeyDown(VK_RIGHT);
              wait(500+random(2000));
              KeyUp(VK_RIGHT);
            end;
            1:
            begin
              KeyDown(VK_Left);
              wait(500+random(2000));
              KeyUp(VK_Left);
            end;
            2:
            begin
              case random(2) of
                0:
                begin
                  KeyDown(VK_RIGHT);
                  wait(500+random(1400));
                  KeyUp(VK_RIGHT);
                  FTWait(1+Random(3));
                  KeyDown(VK_Left);
                  wait(500+random(1400));
                  KeyUp(VK_Left);
                end;
                1:
                begin
                  KeyDown(VK_Left);
                  wait(500+random(1400));
                  KeyUp(VK_Left);
                  FTWait(1+Random(3));
                  KeyDown(VK_RIGHT);
                  wait(500+random(1400));
                  KeyUp(VK_RIGHT);
                end;
              end;
            end;
          end;
        end;
        20: MouseSpeed := 14 + Random(5);
        21,22,23,24: MMouse(random(MSX2),random(MSY2),0,0);
        25: MMouse(515, 0,250,503);
        26: MMouse(0, 338,515,165);
        27: R_setangle(0+random(100));
        28: randommovement;
      end;
    end;
    
    Procedure Getfood; Forward;
    
    Procedure Getxps;
    begin
      getme;
      hpnow := Getme.Experience[3];
      atknow:= Getme.Experience[0];
      strnow:= Getme.Experience[2];
      defnow:= Getme.Experience[1];
      rannow:= Getme.Experience[4];
      lol   := GetSkillLevel('hp');
      Maxhp := (lol-5);
    end;
    
    procedure checkhp;
    var
      third, half, whole, x, y :integer;
      Colour :string;
    begin
    //cake dtms..
      third := DTMFromString('78DA63DCC5C4C0708F0105ECDBBA95811D483' +
           '302F17F2060DC87A9E6F0AE9D703520C0B817A8E621AA9A9B972F' +
           'A3A80100CD350FCD');
      half := DTMFromString('78DA63B460626060626440066B172D646007D' +
           '220D1FF40C0680B54C38CAAE6C48103703520C0680554C38EAAE6' +
           'E1DDBB286A00A7DC0BAF');
      whole := DTMFromString('78DA634C666260F064644006B7AF5D63E002D' +
           '220D1FF40C0988EA9E6FCC993703520C0980654E38BAAE6D1BD7B' +
           '286A003D0B0DBF');
      wait(100);
      if (GetMMLevels('hp',colour) < 40)then
      begin
        Status('Eating');
        repeat
          begin
            if (GetMMLevels('hp',colour) > maxhp)then
            begin
              Status('Fighting');
              freedtm(third);
              freedtm(half);
              freedtm(whole);
              exit;
            end;
            gametab(4);
            FTWait(1+Random(2));
            if(finddtm(third,x,y,546, 204,729, 464))then
            begin
              mouse(x,y,7,7,true);
            end else
            if(finddtm(half,x,y,546, 204,729, 464))then
            begin
              mouse(x,y,7,7,true);
            end else
            if(finddtm(whole,x,y,546, 204,729, 464))then
            begin
              mouse(x,y,7,7,true);
            end else
            begin
              freedtm(third);
              freedtm(half);
              freedtm(whole);
              makecompass('n');
              setrun(true);
              GetFood;
              exit;
            end;
          end;
        until(false);
      end;
    end;
    
    procedure eatb;
    var
      third, half, whole, x, y :integer;
      Colour :string;
    begin
    //cake dtms..
      third := DTMFromString('78DA63DCC5C4C0708F0105ECDBBA95811D483' +
           '302F17F2060DC87A9E6F0AE9D703520C0B817A8E621AA9A9B972F' +
           'A3A80100CD350FCD');
      half := DTMFromString('78DA63B460626060626440066B172D646007D' +
           '220D1FF40C0680B54C38CAAE6C48103703520C0680554C38EAAE6' +
           'E1DDBB286A00A7DC0BAF');
      whole := DTMFromString('78DA634C666260F064644006B7AF5D63E002D' +
           '220D1FF40C0988EA9E6FCC993703520C0980654E38BAAE6D1BD7B' +
           '286A003D0B0DBF');
      wait(100);
      if (GetMMLevels('hp',colour) < 40)then
      begin
        Status('Eating');
        repeat
          begin
            if (GetMMLevels('hp',colour) > maxhp)then
            begin
              Status('Fighting');
              freedtm(third);
              freedtm(half);
              freedtm(whole);
              exit;
            end;
            gametab(4);
            FTWait(1+Random(2));
            if(finddtm(third,x,y,546, 204,729, 464))then
            begin
              mouse(x,y,7,7,true);
            end else
            if(finddtm(half,x,y,546, 204,729, 464))then
            begin
              mouse(x,y,7,7,true);
            end else
            if(finddtm(whole,x,y,546, 204,729, 464))then
            begin
              mouse(x,y,7,7,true);
            end else
            begin
              freedtm(third);
              freedtm(half);
              freedtm(whole);
              makecompass('n');
              setrun(true);
              GetFood;
              exit;
            end;
          end;
        until(false);
      end;
    end;
    
    
    Procedure PassThePort;
    var
      ATile :TPoint;
      p : TPoint;
    begin
      wait(500+random(500));
      ATile := point(3304, 3116);
      P := TileToMS(ATile,20);
      mouse(p.x-2,p.y-2,5,5,false);
      wait(1000+random(500));
      if chooseoption('uick') then
      begin
        wait(4500+random(1000));
        exit;
      end else PassThePort;
    end;
    
    Procedure OpenTheBank;
    var ATile,P :TPoint;
    begin
      wait(500+random(500));
      Status('Opening bank');
      ATile := Point(3308,3120);
      if(not(tileonmm(atile))) then terminatescript;
       P := TileToMS(ATile,16);
       if(not(atile.x > 0)) then exit;
        mouse(p.x-2,p.y-2,5,5,false);
        wait(1000+random(500));
        if chooseoption('Open') then
        begin
          wait(4500+random(1000));
          exit;
        end else
        begin
          Openthebank;
        end;
    end;
    
    Procedure TalkRug;
    var NPC: TNPC;
    begin
      Status('Talking to Rug Merchant');
      setangle(true);
      wait(1000+random(1000));
      if FindNPC('Rug Merchant',NPC) then
       if (NPC.MS.X) > 0 then
       begin
         Mouse(NPC.MS.X, NPC.MS.Y,4,4,False);
         wait(1000+random(500));
       end else
       begin
         walktotile(NPC.MM,1,0);
         Talkrug;
       end;
       if(not(chooseoption('Travel'))) then Talkrug;
        wait(4000+random(1100));
        FindNPCChatText('edabin', ClickLeft)
        FindNPCChatText('hantay', ClickLeft)
        wait(2000+random(1100));
        if(not(FindNPCChatText('continue', ClickLeft))) then talkrug;
         wait(2000+random(1100));
         FindNPCChatText('continue', ClickLeft)
         wait(2000+random(1100));
         FindNPCChatText('continue', ClickLeft)
         wait(2000+random(3000));
         repeat
           wait(100);
           if nogametab then
           begin
             wait(123);
           end else
           begin
             exit;
           end;
         until(false);
    end;
    
    procedure Dobanking;
    begin
      Banked := Banked + 1;
      depositall;
      wait(500+random(1000));
      fixbank;
      wait(500+random(1000));
      withdraw(1,1,10);   //cakes
      wait(500+random(1000));
      closebank;
      findnormalrandoms;
      eatb;
      findnormalrandoms;
      wait(800+random(1000));
      Openthebank;
      depositall;
      fixbank;
      withdraw(3,1,1);    //Shantay pass
      wait(500+random(1000));
      withdraw(2,1,400+random(700));//coins
      wait(500+random(1000));
      withdraw(1,1,0);   //cakes
      wait(500+random(1000));
      closebank;
    end;
    
    procedure EquipWeapon;
    begin
      If finddtm(weapon,x,y,557, 206,734, 462) then mouse(x-4,y-4,10,10,true);
    end;
    
    Procedure UnEquipWeapon;
    begin
      wait(500+random(1000));
      gametab(5);
      wait(500+random(1000));
      mouse(575,290,20,20,true);
      wait(500+random(1000));
      gametab(4);
    end;
    
    Procedure walktobank;
    begin
      Status('Walking to bank');
      WalkToTileEx(3181, 2983,1,3, 8+random(5));
      WalkToTileEx(3179, 2995,2,2, 8+random(5));
      WalkToTileEx(3176, 3006,4,3, 0);
      WalkToTileEx(3175, 3018,4,4, 8+random(5));
      WalkToTileEx(3177, 3030,6,2, 0);
      WalkToTileEx(3179, 3043,3,3, 0);
      unequipweapon;
      Talkrug;
      WalkToTileEx(3301, 3117, 6, 2, 0);
      PassThePort;
      WalkToTileEx(3306, 3119, 2, 2, 0);
      wait(500+random(1000));
      gametab(4);
      EquipWeapon;
      wait(1400+random(500));
      EquipWeapon;
      wait(500+random(500));
      OpenTheBank;
      wait(500+random(500));
      dobanking;
    end;
    
    Procedure walkbandits;
    begin
      Status('Walking to bandits');
      WalkToTileEx(3301, 3113, 6, 3, 0);
      PassThePort;
      unequipweapon;
      WalkToTileEx(3308, 3107, 3, 3, 0);
      Talkrug;
      WalkToTileEx(3177, 3030,6,2, 8+random(5));
      WalkToTileEx(3175, 3018,4,4, 8+random(5));
      WalkToTileEx(3176, 3006,4,3, 8+random(5));
      WalkToTileEx(3179, 2995,2,2, 8+random(5));
      WalkToTileEx(3181, 2983,1,3, 0);
      wait(300+random(300));
      WalkToTileEx(3182-1, 2977-2, 2, 3, 0);
      gametab(4);
      EquipWeapon;
      wait(1400+random(500));
      EquipWeapon;
      wait(300+random(500));
      EquipWeapon;
      makesure;
      if(TimeFromMark(whentosleep) > Timex) then sleepa;
       Status('Fighting');
    end;
    
    procedure getfood;
    begin
      walktobank;
      walkbandits;
    end;
    
    procedure hop;
    var xpnow, xplater :byte;
    begin
      srlrandomsreport;
      ftwait(2+random(2));
      xpnow := Getme.Experience[3];
      ftwait(10+random(5));
      checkhp;
      randoms;
      antiban;
      ftwait(15+random(5));
      checkhp;
      randoms;
      antiban;
      ftwait(15+random(5));
      checkhp;
      randoms;
      antiban;
      ftwait(15+random(5));
      checkhp;
      randoms;
      antiban;
      ftwait(15+random(5));
      checkhp;
      randoms;
      antiban;
      ftwait(2+random(2));
      xplater := Getme.Experience[3];
      MarkTime(TimeMark);
      if xpnow = xplater then
      begin
        Status('Changing world');
        WalkToTileEx(3186, 2965, 3, 3, 8);
        WalkToTileEx(3186, 2955, 5, 3, 16+random(8));
        repeat
          logout;
          wait(300+random(300));
        until(not(loggedin));
        pickworld;
        if not LoggedIn then
        begin
          LoginPlayer;
          setrun(false);
          Retaliate(true);
          setangle(true);
          WalkToTileEx(3188, 2962, 3, 3, 0);
          wait(300+random(300));
          WalkToTileEx(3182-1, 2977-2, 2, 3, 0);
          makesure;
          setrun(true);
          Status('Fighting');
        end;
      end else
      begin
        exit;
      end;
    end;
    
    
    Procedure Proggy;
    begin
      getme;
      wait(1000);
      hplater := Getme.Experience[3];
      atklater:= Getme.Experience[0];
      strlater:= Getme.Experience[2];
      deflater:= Getme.Experience[1];
      ranlater:= Getme.Experience[4];
      wait(1000);
      SrlRandomsReport;
      hpgained := hplater-hpnow;
      atkgained:= atklater-atknow;
      strgained:= strlater-strnow;
      defgained:= deflater-defnow;
      rangained:= ranlater-rannow;
      ClearDebug;
      Writeln('|Bandit killer');
      Writeln('|Worked for ' + TimeRunning + '');
      Writeln('|Banked for ' + IntToStr(Banked) + ' times');
      Writeln('|Hopped for ' + IntToStr(Hopped) + ' times');
      Writeln('|Slept for ' + IntToStr(Slept) + ' times');
      Writeln('|Gained:' + IntToStr(hpgained) +' Hp xp, ' + IntToStr(atkgained) +' Atk xp, ' + IntToStr(strgained) +' Str xp,');
      Writeln('|' + IntToStr(defgained) +' Def xp and ' + IntToStr(rangained) +' Range xp');
    end;
    
    procedure scriptterminate;
    begin
      cleardebug;
      Writeln('----------------------------------------------------------------');
      Writeln('|Bandit killer');
      Writeln('|Worked for ' + TimeRunning + '');
      Writeln('|Banked for ' + IntToStr(Banked) + ' times');
      Writeln('|Hopped for ' + IntToStr(Hopped) + ' times');
      Writeln('|Slept for ' + IntToStr(Slept) + ' times');
      Writeln('|Gained ' + IntToStr(hpgained) +' Hp xp');
      Writeln('|Gained ' + IntToStr(atkgained) +' Atk xp');
      Writeln('|Gained ' + IntToStr(strgained) +' Str xp');
      Writeln('|Gained ' + IntToStr(defgained) +' Def xp');
      Writeln('|Gained ' + IntToStr(rangained) +' Range xp');
      Writeln('----------------------------------------------------------------');
      Writeln('Thanks for using :)');
      Writeln('Please post this proggy to my thread:');
      Writeln('http://www.villavu.com/forum/showthread.php?t=27143');
      Writeln(' ');
      Writeln(' ');
      Writeln(' ');
    end;
    
    begin
      setup;
      Timex := (7200000+random(7200000));
      MarkTime(TimeMark);
      MarkTime(WhentoSleep);
      DeclarePlayers;
      setupsrl;
      SmartSetup(smartworld, True, True, False);
      wait(1000+random(1000));
      SetTargetDC(SMARTGetDC);
      wait(1000+random(1000));
      activateclient;
      if not loggedin then loginplayer;
       wait(1000+random(1000));
       setrun(false);
       Retaliate(true);
       setangle(false);
       WalkToTileEx(3182-1, 2977-2, 2, 3, 0);
       getxps;
       makesure;
       setrun(true);
       repeat
         MouseSpeed := 12 + Random(5);
         if not LoggedIn then
         begin
           LoginPlayer;
           setrun(true);
           Retaliate(true);
           setangle(true);
         end;
         proggy;
         randoms;
         ftwait(1+random(1));
         checkhp;
         ftwait(1+random(1));
         randoms;
         ftwait(1+random(1));
         antiban;
         ftwait(1+random(1));
         if(TimeFromMark(TimeMark) > 110000+random(4000)) then hop;
       until(false);
    end.
    I tried reading your script and you got 0 standards!
    So i standardirized your script

    SCRIPT LIKE THAT IN THE FURTURE!
    Try reading -> http://www.villavu.com/forum/showthread.php?t=3293

    Also try using failsafes ! Its your best friend when it comes to scar scripting..

  14. #39
    Join Date
    Nov 2006
    Posts
    2,369
    Mentioned
    4 Post(s)
    Quoted
    78 Post(s)

    Default

    Quote Originally Posted by Haxor View Post
    in next version can you make it so it uses prayer potions... so like when it runs out of them it goes to bank to get more.

    haxor

    EDIT: doesnt work, it logs in and sets strength then puts mouse to bottom of screen and just sits there... and eventually logs out=)
    I will first finish my plank maker then I will update this script

    Edit: Thanks N1ke You did very big work and I will credit you when I relase next version :P
    ahh and rep++ to you.

  15. #40
    Join Date
    Jul 2008
    Location
    US
    Posts
    104
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hey before u update to do all this other crazy stuff. dont forget to add a procedure that takes breaks and even sleeps. if you dont have one of those, your account is gonna get banned fast. multi-player wouldnt work very well with this account unless you changed players by the amount of xp gained instead of time spent training (due to all the world switching that could come up(and seems to always do)) and the walk to the rug merchant is a lil bit unsafe. it doesnt always work, and itll usually just leave u end the desert lol.plus i just noticed thats theres no random checks during that walk, i dont know y tho. it just wouldnt pick up that there was a random. but overall nice script. really good xp/hour. im gonna have a str cape in no time

  16. #41
    Join Date
    Jul 2008
    Posts
    58
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Help would be greatly appreciated... I always get an erroe on line 78... Its about some smartHigh thing...?

  17. #42
    Join Date
    Nov 2006
    Posts
    2,369
    Mentioned
    4 Post(s)
    Quoted
    78 Post(s)

    Default

    Quote Originally Posted by reddevil12312 View Post
    hey before u update to do all this other crazy stuff. dont forget to add a procedure that takes breaks and even sleeps. if you dont have one of those, your account is gonna get banned fast. multi-player wouldnt work very well with this account unless you changed players by the amount of xp gained instead of time spent training (due to all the world switching that could come up(and seems to always do)) and the walk to the rug merchant is a lil bit unsafe. it doesnt always work, and itll usually just leave u end the desert lol.plus i just noticed thats theres no random checks during that walk, i dont know y tho. it just wouldnt pick up that there was a random. but overall nice script. really good xp/hour. im gonna have a str cape in no time
    It actually has a sleeping procedure(sleeps every 2-4 hours about 5-25 minutes). I think I will delete banking and add the shop thing when I update this.
    Thanks for the comments reddevil

  18. #43
    Join Date
    Oct 2007
    Location
    The deep web
    Posts
    2,496
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    what req do i need? eg any quests and shizz?
    Did someone say GDK?

  19. #44
    Join Date
    Nov 2006
    Posts
    2,369
    Mentioned
    4 Post(s)
    Quoted
    78 Post(s)

    Default

    Quote Originally Posted by jakeyboy29 View Post
    what req do i need? eg any quests and shizz?
    Read first page...and I don't know is it working now or not.. I think not. I will update it when I have the time.

    Edit:No quests needed

  20. #45
    Join Date
    Mar 2008
    Posts
    75
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    cmon man hows the update comi9n wana test this is real fast xp and with new pvp coming need some super fast lvls..need to get from 76 to 90 atk and fightcave works but not as fast

  21. #46
    Join Date
    Oct 2007
    Location
    The deep web
    Posts
    2,496
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    is this not geting an update anytime soon?
    Did someone say GDK?

  22. #47
    Join Date
    Sep 2007
    Location
    British Columbia, Canada
    Posts
    4,047
    Mentioned
    1 Post(s)
    Quoted
    2 Post(s)

    Default

    prolly still working.
    Oh Hai Dar

  23. #48
    Join Date
    Mar 2007
    Posts
    562
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nope, it isnt=D

    Haxor

  24. #49
    Join Date
    Oct 2008
    Location
    I Forgot
    Posts
    193
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice script but u need more then 60hp...3 bandits on u at once they hit hit 18...

  25. #50
    Join Date
    Jan 2007
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Line 85: [Error] (85:46): Invalid number of parameters in script C:\Program Files\SCAR 3.15\includes\SRL\SRL\Misc\Smart.Scar

Page 2 of 3 FirstFirst 123 LastLast

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Bandit killer
    By smartshark in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 10-09-2008, 09:42 PM
  2. Bandit AFK!
    By ConneX in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 07-24-2008, 01:24 PM
  3. Bandit killer
    By smartshark in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 12-26-2007, 08:13 AM
  4. Mining Guild Bandit
    By Emagdnim in forum First Scripts
    Replies: 15
    Last Post: 11-28-2007, 02:08 AM
  5. bandit camp trainer?
    By s4mu3l in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 11-23-2007, 06:15 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
  •