Results 1 to 8 of 8

Thread: Can Some1 Help Me??!?!?!?!?

  1. #1
    Join Date
    Oct 2007
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Can Some1 Help Me??!?!?!?!?

    I am having trouble with my script i'm kinda stuck lol..
    I want to make it kill a chicken then pick up the feathers.
    Can any1 help me? I have a copy of the script below.

    program Chicken Destroyer;
    const
    ChickenHeadColor=265312;
    FeatherColor=9408669;
    var

    Procedure KillChicken
    var x,y: integer;
    stopper: boolean;
    begin
    FindColorTolerance(x,y,ChickenHeadColor,8,10,515,3 36,30);
    MoveMouseSmoothEx(x,y,1,3,45,20,10);
    ClickMouse(x,y,True);


    end.


    I'm gonna sleep so i won't be on for a long time TY!!! = ) if u help me lol...

  2. #2
    Join Date
    Oct 2007
    Location
    england, somerset
    Posts
    60
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    im not a realy good scripter but i wold say a few things, below the program name write this
    {.include SRL/SRL.scar}

    so the start shold look a bit like.

    program Chicken Destroyer;
    {.include SRL/SRL.scar}

    then you have the rest of the script.
    lol sos i carnt be of much help

  3. #3
    Join Date
    Oct 2007
    Location
    medway.england
    Posts
    66
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    h,i im very new at this but i think i can help a little, Procedure KillChicken wants to have a ; on at the end of it and you can use the srl function Mouse(); instead of the movemousesmoothex(); and cickmouse(); you should then be able to click the chicken. you can use the same principle to pick up the feathers. hope this helps!

  4. #4
    Join Date
    Jul 2007
    Location
    Ottawa, Canada
    Posts
    930
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program ChickenDestroyer;

    const
    ChickenHeadColor=265312;
    FeatherColor=9408669;
    var

    Procedure KillChicken;
    var x,y: integer;
    stopper: boolean;
    begin
      if FindColorTolerance(x,y,ChickenHeadColor,8,10,515,3 36,30) then
      begin
        Mouse(x, y, 1, 1, true);
      end;
    end;

    begin
        KillChicken;
    end.
    ~ Metagen

  5. #5
    Join Date
    Oct 2007
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Do U Know how to make it pick up feathers???

  6. #6
    Join Date
    Oct 2007
    Location
    if(FindMyHouse(x,y,'ous',MyPlace,15))then
    Posts
    97
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Working on Metagen's edit...

    SCAR Code:
    program ChickenDestroyer;
    {.Include SRL\SRL.SCAR}
     
    const
    ChickenHeadColor=265312;
    FeatherColor=9408669;
    var
     
    Procedure KillChicken;
    var x,y: integer;
    stopper: boolean;
    begin
      if FindColorTolerance(x,y,ChickenHeadColor,8,10,515,3 36,30) then
      begin
        Mouse(x, y, 1, 1, true);
      end;
    end;

    begin
        SetupSRL;
        KillChicken;
    end.

    Put the includes in...

    ----------------------------------------------

    I'm not a perfect scripter either, but I think this will help.

    And if you want to make it multiplayer (makes it alot better)

    Add this in.

    SCAR Code:
    procedure DeclarePlayers;
    begin
      HowManyPlayers:= 6;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer:= 0;

      Players[0].Name        := 'Username'; //UserName
      Players[0].Pass        := 'Password'; //Password
      Players[0].Nick        := 'Nick'; //2-4 letters of username
      Players[0].Active      := True; //Active

      Players[1].Name        := 'Username'; //UserName
      Players[1].Pass        := 'Password'; //Password
      Players[1].Nick        := 'Nick'; //2-4 letters of username
      Players[1].Active      := True;

      Players[2].Name        := 'Username'; //UserName
      Players[2].Pass        := 'Password'; //Password
      Players[2].Nick        := 'Nick'; //2-4 letters of username
      Players[2].Active      := True; //Active

      Players[3].Name        := 'Username'; //UserName
      Players[3].Pass        := 'Password'; //Password
      Players[3].Nick        := 'Nick'; //2-4 letters of username
      Players[3].Active      := True; //Active

      Players[4].Name        := 'Username'; //UserName
      Players[4].Pass        := 'Password'; //Password
      Players[4].Nick        := 'Nick'; //2-4 letters of username
      Players[4].Active      := True; //Active

      Players[5].Name        := 'Username'; //UserName
      Players[5].Pass        := 'Password'; //Password
      Players[5].Nick        := 'Nick'; //2-4 letters of username
      Players[5].Active      := True; //Active
    end;

    And this.

    SCAR Code:
    if (not (loggedIn)) then
      begin
        LoginPlayer;
      end;

    Like so.

    SCAR Code:
    begin
        SetupSRL;
        if (not (loggedIn)) then
        begin
          LoginPlayer;
      end;
        KillChicken;
    end.

    I believe that will also help.


    http://i224.photobucket.com/albums/d...iton/buxto.jpg

    WORKING Free RS Membership! (Click on the Bux.to sig!)


  7. #7
    Join Date
    Oct 2007
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanx Heaps Bro = )

  8. #8
    Join Date
    May 2006
    Location
    Helsinki, Finland (capital)
    Posts
    269
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Just a tip, less "!?!?!?!?!?!?!?!?!?" = more answers One ? or one ! is enough.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. could some1 fix this
    By ShowerThoughts in forum OSR Help
    Replies: 12
    Last Post: 09-02-2007, 02:53 PM
  2. need help from a srl member or some1..
    By ShowerThoughts in forum OSR Help
    Replies: 2
    Last Post: 07-30-2007, 04:26 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
  •