Results 1 to 12 of 12

Thread: PieShafter!

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

    PieShafter!

    PieShafter

    Current Version Is = 0.4

    PieShafter Version 0.1
    FEATURES.
    - Cuts Trees And Makes Shafts.
    - Has Anti-Randoms.
    - My First Script.
    BUGS.
    - Does Not Have Anti-Ban.
    - Does Not Have Ent Finding.
    - Does Not Have Axe Head Finding.
    - Doesn't Work. =FIXED IN VERSION 0.4!!!
    - No Good Standards. =FIXED IN VERSION 0.4!!!
    - No Good Report. =FIXED IN VERSION 0.3!!!

    PieShafter Version 0.2
    FEATURES.
    - Cuts Trees And Makes Shafts.
    - Seperated Some Procedures.
    - Has Anti-Randoms.
    BUGS.
    - Does Not Work. =FIXED IN VERSION 0.3!!!
    - No Ent Finding.
    - No Anti-Ban.
    - Does Not Find Axe Head.
    - No Good Standards. =FIXED IN VERSION 0.4!!!
    - No Good Report. =FIXED IN VERSION 0.3!!!

    PieShafter Version 0.3
    FEATURES.
    - Cuts Trees And Makes Shafts.
    - Has Anti-Randoms.
    - Good Report!
    - It Finnaly Works!
    BUGS.
    - No Ent Finding.
    - No Anti-Ban.
    - Does Not Find Axe Head.
    - No Standards. = FIXED IN VERSION 0.4!!!

    PieShafter Version 0.4
    - Axe Head Finding By Jad.
    - Jad's Ent Finding.
    - Cuts Trees And Makes Shafts.
    - Anti-Randoms.
    - Good Report.
    - It Works.
    BUGS
    - No Anti-Ban

  2. #2
    Join Date
    Mar 2007
    Posts
    3,681
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    oh nice i like his idea will test !

  3. #3
    Join Date
    Feb 2007
    Posts
    433
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hey it looks pretty good, but add some fail safes

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

    Default

    I will add fail safes in my next version (0.2).Sorry for double post.

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

    Default

    does'nt work for me...

    Failed when compiling
    Line 124: [Error] (18165:17): Type mismatch in script

  6. #6
    Join Date
    May 2007
    Location
    Ohio, USA
    Posts
    96
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Looks pretty good, but you might want to add some antiban.

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

    Default

    Standards are good, they help keep your pets strong and heathlyh
    And they are free!

    SCAR Code:
    program PieShafter;

      {.include SRL/SRL.scar}
      {.include SRL/SRL/skill/WoodCutting.scar}
      //Start at a place with some trees.
      //Axe 1st inv.Spot.
      //Knife 2nd inv.Spot.
      //Nothing at 3rd inv.Spot.
      //Some shafts (15+) at 4th inv.Spot.

    const
      LogsToCut = 1;//Number of logs you want to be made into shafts.
      TreeColor = 4425848;
      //The tree color, no need to change, only change if doesnt find tree AT ALL.

      procedure DeclarePlayers;
      begin
        HowManyPlayers := 6; //Number of PLAYERS.Active or not.
        NumberOfPlayers(HowManyPlayers);
        CurrentPlayer := 0; //Player to start on.

        //Set all user names, passwords and nicks correctly please.

        Players[0].Name   := 'UserName';
        Players[0].Pass   := 'Password';
        Players[0].Nick   := 'ser';
        Players[0].Active := True;

        NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
      end;

      procedure LetsDebug;
      begin
        ClearDebug;
        WriteLn('Thank you for using PieShafter.');
        WriteLn('This is version 0.2!');
        WriteLn('Running Time: ' + (TimeRunning) + '');
        WriteLn('Have fun!');
      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 FindTreeAndCut;
      begin
        if FindColor(x, y, TreeColor, 0, 0, 500, 500) then
          Wait(1000);
        MMouse(x, y, 2, 2);
        Wait(1000);
        if (IsUpText('ree')) then
          Mouse(x, y, 3, 3, False);
        Wait(1000);
        ChooseOption(x, y, 'hop');
        Wait(5000);
      end;

      procedure MakeShafts;
      begin
        Mouse(667, 228, 3, 3, True);
        Wait(1000);
        Mouse(626, 229, 3, 3, True);
        Wait(1000);
        MMouse(81, 407, 3, 3);
        Wait(1000);
        if (IsUpText('ake')) then
          Mouse(81, 407, 3, 3, True);
        Wait(3000);
      end;

    begin
      SetupSRL;
      DeclarePlayers;
      repeat
        FindTreeAndCut;
        FindRandoms;
        MakeShafts;
        LetsDebug;
      until (LogsToCut);
    end.
    [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

    does'nt work for me...

    Failed when compiling
    Line 124: [Error] (18165:17): Type mismatch in script
    Kk i fixed it. Now download version 0.3 and go check it out !
    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
    Jul 2007
    Posts
    8
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Very Good Script! Just need to get the axe head picker upper and that ent finder

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

    Default

    Yeh i'am working on 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

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

    Default

    on mine it clicks on the knife and moves mouse to corner. and stops

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

    Default

    Dono wats the problem, works fine for me
    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

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
  •