Results 1 to 3 of 3

Thread: Picking up feathers and bone buriering

  1. #1
    Join Date
    Mar 2007
    Location
    under the underpass in a box
    Posts
    5
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Picking up feathers and bone buriering

    I need a procedure that picks up feathers for my chicken ownage and also bone picker and burier



    SCAR Code:
    program ChickenOwnageFTW;
    {.include SRL/SRL.scar}
    {.include SRL\SRL\Misc\Trade.scar}
    //Rudeboialex helped me loads on this.

    Const
    NumberOfUsers = 5;//How Many Players Are You Using.
    StartPlayer = 0;// What Player To Start Remember Theres A Player 0 Before 1.
    ChickenColor1 = 6258062;//Set mannualy for better results.
    ChickenColor2 = 2309199;//Set mannualy for better results.
    AttackChicken = 5000;//How long to wait to hit chicken.
    RunDir = 'S'; // RunDirection, I think south is best


    Procedure DeclarePlayers;
    //If Not Using Any Left Over Players Delete There Forms.


      Begin
         HowManyPlayers:= NumberOfUsers;
         NumberOfPlayers( HowManyPlayers );
         CurrentPlayer := StartPlayer;


         Players[0].Name :='UserName';
         Players[0].Pass :='Password';
         Players[0].Nick :='3-4 Letters Of Youre USername';
         Players[0].Active:=True;

         Players[1].Name :='Username';
         Players[1].Pass :='Password';
         Players[1].Nick :='3-4 Letters Of Youre Username';
         Players[1].Active:= True;


         Players[2].Name :='Username';
         Players[2].Pass :='Password';
         Players[2].Nick :='3-4 Letters Of Youre Username';
         Players[2].Active:= True;


         Players[3].Name :='Username';
         Players[3].Pass :='Password';
         Players[3].Nick :='3-4 Letters Of Youre Username';
         Players[3].Active:= True;


         Players[4].Name :='Username';
         Players[4].Pass :='Password';
         Players[4].Nick :='3-4 Letters Of Youre Username';
         Players[4].Active:= True;


      end;
     
    Procedure OwnChicken;
    Begin
    if
    (findColorSpiral(x,y,ChickenColor1,2,2,418,304))
    Or
    (findColorSpiral(x,y,ChickenColor2,2,2,418,304)) Then
    MakeCompass('N');
    MMouse(x,y,3,3)
    IsTextAt2(9,9,'tack',20)
    Mouse(x,y,2,2,True)
    Wait(AttackChicken + Random(1000))
    end;

    Function FindFastRandoms: Boolean;    // By WT-Fakawi.


    Var
      i: Integer;


    Begin
      For I := 1 To 11 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;

           8 : If RC Then
                 Result := True;

           9 : If FindFight Then
                  Begin
                    Result := True;
                    RunTo(RunDir, True);
                  End;

           10: If FindTalk Then
                 Result := True;

           11: If HandleTrade Then
                 Result := True;
        End;
        Wait(1);
      End;
    End;


    function DoAntiBan: Boolean; //JADS Anitbannage :)
    begin
      AntiBan;
      wait(50 + random(100));
      BoredEvery(3 + random(3));
      wait(100 + random(100))
        RotateEvery(7 + random(4));
      wait(750 + random(250));
      LeaveScreenEvery(5 + random(7));
      wait(500 + random(150));
    end;



    procedure ProgressReport;
    begin
        Writeln('XiXiXiXiXiXiXiXiXiXiXiXiXiXiXiXiXiXiXiXiXi');
        Writeln('XiXiXiXiXiXiXiXi--L33T PROGGY--XiXiXiXiXi');
        Writeln('*!Miutes Worked = ' + (ScriptTime2(2)) +'!*');
        Writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\');
        Writeln('/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\');
    end;


    Begin
    SetupSRL;
    Repeat
    DeclarePlayers;
    OwnChicken;
    FindFastRandoms;
    DoAntiBan;
    Until(False)
    End.
    Ive already learnt the basics

    Rudeboialex hes my m8 :P

    --------------------
    Procedure Own;
    If
    NoobEncounter Then
    Pull out an ak 47
    or
    Bazzoka Then
    POON
    ----------------------

    Currently doing ChickenKiller

  2. #2
    Join Date
    Feb 2007
    Posts
    215
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You can look in some scripts in the free section to see how to use FindObject and FindObj

    Just something i noticed in the procedure to attack the chickens, don't move the minimap north after it finds the chicken color. The mouse doesn't follow the chicken so it will probably just move it somewhere and miss the chicken.
    A common mistake people make when trying to design something completely foolproof is to underestimate the ingenuity of complete fools.
    -Douglas Adams

  3. #3
    Join Date
    Dec 2006
    Posts
    2,244
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    yes u stupid nooob jokeing jokeing hit me up on msn ill help u out

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Feathers..
    By Harry in forum General Marketplace
    Replies: 8
    Last Post: 07-16-2007, 09:51 PM
  2. finding feathers and bones and picking up
    By RudeBoiAlex in forum OSR Help
    Replies: 5
    Last Post: 05-17-2007, 03:43 PM
  3. Selling feathers
    By Hobbit in forum Construction, Crafting and Fletching
    Replies: 6
    Last Post: 02-25-2007, 02:25 AM
  4. Feathers
    By cause in forum General Marketplace
    Replies: 0
    Last Post: 12-11-2006, 05:00 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
  •