Results 1 to 14 of 14

Thread: Pie Boner.

  1. #1
    Join Date
    Mar 2007
    Location
    In your computer
    Posts
    244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Pie Boner.V 0.2 Released!

    PieBoner

    Current Version = 0.2

    What the script will do is, it will kill monsters and bury bones.
    Contact me at MSN if found any bugs or if you have idias about adding something to the script.
    Post reports here.


    PieBoner - V. 0.1
    FEATURES
    - Anti-Randoms.
    - Report.
    - Holds Only 1 Player.
    - Kills Monsters.
    - Buries Bones


    PieBoner - V. 0.2 = RELEASED!!!
    FEATURES
    - More Anti-Randoms.
    - Better Report.
    - Holds 1 Player.
    - Anti-Ban ----------I need a good anti-ban procedure, could someone make one for me?
    - Kills Monsters.
    - Buries Bones.
    - Eat Food.

  2. #2
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    You stole that name


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  3. #3
    Join Date
    Apr 2007
    Location
    Texas
    Posts
    1,668
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    For goodness sake, dont realse a script unless if has proper standards. People like me want to read you script before they run it. You should get into the habbit fo it now, if you need any help, let me know.

    Of yeah, you missed a semi colon after "loginplayer'

    SCAR Code:
    program PieBoner;

      {.include SRL/SRL.scar}
      //Stand near a place with some monsters, that are not high level.
      //Don't have anything with you, maybe just like a scimmy.
    const
      BoneColor    = 14342878;//The color of the bones dont change.
      BonesToBury  = 10;   //How many bones you want to bury.
      MonsterColor = 0;    //The color of the monster.
      Monster      = 'eag';//3 letters of the monster's name you want to fight
      NumberOfUsers = 1;   //How many players you are using.
    var
      BonesDone: integer;

      procedure DeclarePlayers;
      begin
        HowManyPlayers := NumberOfUsers;
        NumberOfPlayers(HowManyPlayers);
        CurrentPlayer := 0;

        Players[0].Name   := 'Username';//Your runescape username
        Players[0].Pass   := 'Password';//Your runescape password
        Players[0].Nick   := 'ser';     //3 Letters of your username.Username = ser.
        Players[0].Loc    := 'Bank';
        Players[0].Active := True;

      end;

      procedure Kill;
      begin
        repeat
          FindColor(x, y, MonsterColor, 0, 0, 450, 450);
          MMouse(x, y, 1, 1);
        until (IsUpText(Monster));
        if (IsUpText(Monster)) then
          Mouse(x, y, 2, 2, False);
        Wait(1000 + random(450));
        ChooseOption(x, y, 'ack');
      end;

      procedure FindBones;
      begin
        repeat
          FindColor(x, y, BoneColor, 0, 0, 450, 450);
          MMouse(x, y, 1, 1);
        until (IsUpText('one'));
        if (IsUpText('one')) then
          Mouse(x, y, 1, 1, False);
        Wait(1000 + random(300));
        ChooseOption(x, y, 'ury');
      end;

      function FindFastRandoms: boolean; //By WT-Fakawi.
      var
        i: integer;
      begin
        for i := 1 to 8 do
        begin
          case I of
            1:
              if FindDead then
                Result := True;
            2:
              if FindMod then
                Result := True;
            3:
              if FindMime then
                Result := True;
            4:
              if FindMaze then
                Result := True;
            5:
              if FindQuiz then
                Result := True;
            6:
              if FindDemon then
                Result := True;
            7:
            begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
            7:
            begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
            8:
              RC;
          end;
          wait(1);
        end;
      end;

      procedure FindRandoms;
      begin
        FindFastRandoms;
        FindNormalRandoms;
      end;

      procedure Report;
      begin
        ClearDebug;
        WriteLn('---PieBoner-----Report----------------');
        WriteLn('Running Time: ' + (TimeRunning) + '');
        WriteLn('Bones Buried: ' + IntToStr(BonesToBury) + '');
        WriteLn('Monsters Pwned: ' + IntToStr(BonesToBury) + '');
        WriteLn(':P:P:P:P:P:P:P:P:P:P:P:P:P:P:P:P:P:P:P:P:');
      end;

    begin
      SetupSRL;
      DeclarePlayers;
      if not LoggedIn then
        LoginPlayer;
      repeat
        Kill;
        FindRandoms;
        FindBones;
      until (BonesToBury = BonesDone);
      if (BonesToBury = BonesDone) then
        Report;
      Exit;
      TerminateScript;
    end.
    [IMG]http://farm3.static.flickr.com/2120/2052732965_348f3629d0_o.jpg[/IMG]

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

    Default

    some anti ban would be good. and for functions would be good to.

    haxor

  5. #5
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by lordgreggreg View Post
    For goodness sake, dont realse a script unless if has proper standards. People like me want to read you script before they run it. You should get into the habbit fo it now, if you need any help, let me know.

    Of yeah, you missed a semi colon after "loginplayer'

    SCAR Code:
    program PieBoner;

      {.include SRL/SRL.scar}
      //Stand near a place with some monsters, that are not high level.
      //Don't have anything with you, maybe just like a scimmy.
    const
      BoneColor    = 14342878;//The color of the bones dont change.
      BonesToBury  = 10;   //How many bones you want to bury.
      MonsterColor = 0;    //The color of the monster.
      Monster      = 'eag';//3 letters of the monster's name you want to fight
      NumberOfUsers = 1;   //How many players you are using.
    var
      BonesDone: integer;

      procedure DeclarePlayers;
      begin
        HowManyPlayers := NumberOfUsers;
        NumberOfPlayers(HowManyPlayers);
        CurrentPlayer := 0;

        Players[0].Name   := 'Username';//Your runescape username
        Players[0].Pass   := 'Password';//Your runescape password
        Players[0].Nick   := 'ser';     //3 Letters of your username.Username = ser.
        Players[0].Loc    := 'Bank';
        Players[0].Active := True;

      end;

      procedure Kill;
      begin
        repeat
          FindColor(x, y, MonsterColor, 0, 0, 450, 450);
          MMouse(x, y, 1, 1);
        until (IsUpText(Monster));
        if (IsUpText(Monster)) then
          Mouse(x, y, 2, 2, False);
        Wait(1000 + random(450));
        ChooseOption(x, y, 'ack');
      end;

      procedure FindBones;
      begin
        repeat
          FindColor(x, y, BoneColor, 0, 0, 450, 450);
          MMouse(x, y, 1, 1);
        until (IsUpText('one'));
        if (IsUpText('one')) then
          Mouse(x, y, 1, 1, False);
        Wait(1000 + random(300));
        ChooseOption(x, y, 'ury');
      end;

      function FindFastRandoms: boolean; //By WT-Fakawi.
      var
        i: integer;
      begin
        for i := 1 to 8 do
        begin
          case I of
            1:
              if FindDead then
                Result := True;
            2:
              if FindMod then
                Result := True;
            3:
              if FindMime then
                Result := True;
            4:
              if FindMaze then
                Result := True;
            5:
              if FindQuiz then
                Result := True;
            6:
              if FindDemon then
                Result := True;
            7:
            begin
              if NoGameTab then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
            7:
            begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
            8:
              RC;
          end;
          wait(1);
        end;
      end;

      procedure FindRandoms;
      begin
        FindFastRandoms;
        FindNormalRandoms;
      end;

      procedure Report;
      begin
        ClearDebug;
        WriteLn('---PieBoner-----Report----------------');
        WriteLn('Running Time: ' + (TimeRunning) + '');
        WriteLn('Bones Buried: ' + IntToStr(BonesToBury) + '');
        WriteLn('Monsters Pwned: ' + IntToStr(BonesToBury) + '');
        WriteLn(':P:P:P:P:P:P:P:P:P:P:P:P:P:P:P:P:P:P:P:P:');
      end;

    begin
      SetupSRL;
      DeclarePlayers;
      if not LoggedIn then
        LoginPlayer;
      repeat
        Kill;
        FindRandoms;
        FindBones;
      until (BonesToBury = BonesDone);
      if (BonesToBury = BonesDone) then
        Report;
      Exit;
      TerminateScript;
    end.
    I don't know how to standardise, so I just run it through a code formatter.
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  6. #6
    Join Date
    Dec 2006
    Posts
    173
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice script! I can't test right now because my army is in woodcutting mode. But I will leave a progress report later. But nice script

    SantaClause: You know where to get the code formatter? It would help me a bunch if you could tell me or just send me a copy by pm( If you want to.....)
    Starting to merchant, if you know of any good clans, PM me please.

  7. #7
    Join Date
    Apr 2007
    Location
    Texas
    Posts
    1,668
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by SantaClause View Post
    I don't know how to standardise, so I just run it through a code formatter.
    Santa clause, i dont know if you were talking for yourself, or making an insult at me, so ill just give you the benifit of the doubt and assume you were talking for yourself.

    First off, i do know how to standardise, I have to to be able to read my code.
    2nd, yes, i do send script through a formatter because fixing standards is a pain without them.

    If you want a link to one, Google "Jedi pascal formater"
    [IMG]http://farm3.static.flickr.com/2120/2052732965_348f3629d0_o.jpg[/IMG]

  8. #8
    Join Date
    Mar 2007
    Location
    In your computer
    Posts
    244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You stole that name
    -Err...No?If there is a script named JUST like mine then sorry well i never saw it
    Even If You Are On Your Way, You Will Get Run Over If You Just Sit There.
    -ILikePie1995.

    My Best Script I Yet Made, Go Check It Out, Its In The Fighting Section. Look For UndeadKiller!

    GET FREE CASH!!!READ ALL ABOUT IT!!!
    http://www.AdPaid.com/ptr/pages/join...d=ilikepie1995

    JOIN AdPaid.Com NOW!!!ITS OWNAGE!!!
    http://www.AdPaid.com/ptr/pages/conf...d=ilikepie1995

  9. #9
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    I not accusing you of anything, just saying someone also used that name


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  10. #10
    Join Date
    Jul 2007
    Posts
    41
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    cool, script but ir needs some anti ban, i went crazy with it in the wild in the bone yard, lol killing skeletons and burying like 20 bones a min...

  11. #11
    Join Date
    Jul 2007
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    umm attacks one npc and freezes?...

  12. #12
    Join Date
    Feb 2006
    Posts
    433
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Guys, uh, what exactly does third base feel like?
    Like warm apple pie.
    .

  13. #13
    Join Date
    Sep 2007
    Posts
    24
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ill give it a shot in the wild

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

    Default

    antiban isnt that hard just look in srl include and about multyplayer look at tuts theres somthing new that you can with 1 command can make a (auto)form(create by summilion)
    sesarch for summilion or his tut about it its nice
    ~Hermen

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Boner! [SRL][RS2]
    By the flea in forum RS3 Outdated / Broken Scripts
    Replies: 8
    Last Post: 04-11-2008, 08:08 PM
  2. RM Boner
    By Sir R. M8gic1an in forum First Scripts
    Replies: 2
    Last Post: 01-14-2008, 08:18 PM
  3. [SRL 4] Mat's Chaos Boner
    By mat_de_b in forum RS3 Outdated / Broken Scripts
    Replies: 25
    Last Post: 11-30-2007, 09:23 PM
  4. [srl][rs2] Boner!
    By the flea in forum First Scripts
    Replies: 11
    Last Post: 11-12-2007, 06:28 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
  •