Results 1 to 8 of 8

Thread: Thiever!

  1. #1
    Join Date
    May 2007
    Location
    Vancouver, Canada , eh?
    Posts
    320
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Thiever!

    there isnt many thieving scripts and i was thinking if someone could create one like a audroughne cake stall thiever and banker or whatever thanks
    I had to change this from my old one...?

  2. #2
    Join Date
    May 2007
    Location
    Vancouver, Canada , eh?
    Posts
    320
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    *bump ppl plz help i really need a thieving script, a nat chest thiever would be great or even a nat rune crafter is also okay thank you!
    I had to change this from my old one...?

  3. #3
    Join Date
    Dec 2007
    Posts
    47
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yeah a thiever wud be very nice

  4. #4
    Join Date
    Feb 2007
    Location
    PA, USA
    Posts
    5,240
    Mentioned
    36 Post(s)
    Quoted
    496 Post(s)

    Default

    Lo and Behold, im working my ass of on a NAT THIEF. i wasn't going to realease it yet, it works find, actouly pretty darn good. but if you want me 2 i will, its arddy nat thievery.

  5. #5
    Join Date
    Aug 2007
    Location
    In Your Front Door!
    Posts
    371
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Dang you guys are desperate, you guys should try to learn scar and srl!

    Or

    Begging sometimes works!
    This is for Jagex!

    My Public Scripts
    Simple AutoTalker
    Face Maker

  6. #6
    Join Date
    Feb 2007
    Location
    PA, USA
    Posts
    5,240
    Mentioned
    36 Post(s)
    Quoted
    496 Post(s)

    Default

    =p, heres what i got so far on nat thief.
    you must start logged in next to the chest in arrdy, and you might/must set the chest color.
    SCAR Code:
    program New;
    {.include srl/srl.scar}
    var
      x, y, ColorOfChest, NotFindChest, ColorOfStairs, NatsTheived : integer;
      Your_SRL_Pass, Your_SRL_ID : string;
    ////////////////////////////////////////////////////////////////////////////////
    //Footballjds
    procedure DeclarePlayers;
    begin
      Your_SRL_ID     := '';  // don't have this? go to:
      Your_SRL_Pass   := '';  // [url]http://www.stats.srl-forums.com/[/url]
      HowManyPlayers         := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer          := 0;
      Players[0].Name        := '';//Your Username
      Players[0].Pass        := '';//Your Password
      Players[0].Nick        := '';//3-4 Letters Of Your Username
      Players[0].Integers[0] := 20;//How Many Nats Do You Want To Steal?/Int
      Players[0].Active      := True;//Are You Using This Player? True=Yes False=No.
      NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    //Footballjds
    procedure ProgressReport;
    begin
      ClearDebug;
      Writeln('==========================================');
      Writeln('-§ Any Longbow Stringer By: FootBalljds §-');
      Writeln('-           Thanks SRL Team!!!           -');
      Writeln('==========================================');
      Writeln('Stole ' + IntToStr(NatsTheived) + ' Nats So Far');
      Writeln('Need To Steal ' + IntToStr(Players[CurrentPlayer].Integers[0] - NatsTheived) + ' More Nats');
      Writeln('==========================================');
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    //Footballjds
    Function FindFightAndFlee: boolean;
    var
      I : integer;
    begin
      if (FindFight) then
      begin
        Writeln('FoundFight');
        MakeCompass('N');
        if (FindColorSpiralTolerance( x, y, ColorOfStairs, 316, 202, 358, 272, 35)) then
        begin
          MMouse(x, y, 2, 2);
          wait(300+random(100));
          if (IsUpTextMultiCustom(['imb', '-d', 'li', 'dow', 'b-', 'wn'])) then
          begin
            Mouse(x, y, 1, 1, True);
            Wait(4000);
            For I := 0 to 100 do
            begin
              wait(400+random(10));
              FindNormalRandoms;
            end;
          end;
          if (FindColorSpiralTolerance( x, y, ColorOfStairs, 211, 79, 277, 132, 25)) then
          begin
            MMouse(x, y, 1, 1);
            wait(400+random(300));
            if (IsUpTextMultiCustom(['mb', 'up', '-u', 'b-', 'lim'])) then
            begin
              Mouse(x, y, 1, 1, False);
              Wait(200+random(200));
              ChooseOption('limb');
              Wait(2000+random(500));
              HighestAngle;
              Mouse(161, 138, 5, 5, True);
            end;
          end;
        end;
      end;
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    //Footballjds
    function FindNatChest : boolean;
    begin
      MakeCompass('N');
      HighestAngle;
      Result := False;
      if (FindColorSpiralTolerance( x, y, ColorOfChest, 224, 153, 234, 172, 5)) then
      begin
        MMouse(x, y, 1, 1);
        wait(100+random(100));
        if (IsUpTextMultiCustom(['/ 3', 'Open', '3 more op', 'pen' , '3 mor'])) then
        begin
          NotFindChest := 0;
          Result := True;
          EXIT;
        end;
      end else
      begin
        NotFindChest := NotFindChest + 1;
      end;
    end;
    ////////////////////////////////////////////////////////////////////////////////
    function ClickOnNatChest : boolean;
    begin
      if (not(LoggedIn)) or (not(FindNatChest)) then
      EXIT;
      Result := False;
      Mouse(x, y, 1, 1, False);
      wait(100+random(100));
      if ChooseOption('earch') then
      begin
        Result := True;
        Status('Chose Option' );
      end;
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    //Footballjds
    procedure MainLoop;
    var
      TimesWaited, I : integer;
    begin
      if (FindNatChest) then
      begin
        ClickOnNatChest;
        wait(1000);
        repeat
          Wait(50);
          TimesWaited := TimesWaited + 1;
          Writeln(IntToStr(TimesWaited));
        until (TimesWaited >= 70) or (FindBlackChatMessage('find')) or (FindBlackChatMessage('already'))
        if (FindBlackChatMessage('find')) then
        begin
          NatsTheived := NatsTheived + 1;
          Writeln('Stole A Nat');
        end;
        if (FindBlackChatMessage('already')) then
        begin
          Wait(random(2000));
          FindNatChest;
          ClickOnNatChest;
          NatsTheived := NatsTheived + 1;
        end;
        ProgressReport;
        for I := 0 to 10 do
        begin
          if (FindNormalRandoms) then
          Break;
          Wait(1200+random(300));
          if (FindFightAndFlee) then
          Break;
        end;
      end;
    end;
    ////////////////////////////////////////////////////////////////////////////////

    ////////////////////////////////////////////////////////////////////////////////
    begin
      if FindRS then
      begin
        SetupSRL;
        ActivateClient;
      end else
      begin
        Writeln('RS Unfound');
        Status('Runescape Not Found');
        Wait(2000);
        Writeln('Terminating Script');
        TerminateScript;
      end;
      DeclarePlayers;
      wait(100+random(400));
      if not(LoggedIn) then
      LoginPlayer;
      MakeCompass('N');
      HighestAngle;
      ColorOfStairs := 4474956;
      ColorOfChest := 3492194;
      repeat
        MainLoop;
      until (NotFindChest >= 10) or (NatsTheived >= Players[CurrentPlayer].Integers[0]);
    end.
    ////////////////////////////////////////////////////////////////////////////////

  7. #7
    Join Date
    Jul 2007
    Posts
    1,055
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Don't double post. If you want a script that bad make you own. Also there are some alright ones out.

  8. #8
    Join Date
    Sep 2006
    Location
    include srl/srl.scar ( aussie)
    Posts
    2,875
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    osmm give links cause i serched for a good cake stall theiver and i didnt find one

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Dr.Newheart's Nat THiever
    By drnewheart in forum First Scripts
    Replies: 18
    Last Post: 11-05-2007, 07:44 PM
  2. Auto Thiever!!!
    By chocolatemints in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 09-03-2007, 02:52 PM
  3. Dr.Newhearts Nat Thiever
    By drnewheart in forum RS3 Outdated / Broken Scripts
    Replies: 3
    Last Post: 08-08-2007, 08:49 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
  •