Results 1 to 11 of 11

Thread: have a question with simple script

  1. #1
    Join Date
    Oct 2008
    Location
    USA
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default have a question with simple script

    (i am very very new to this so i dont know the termanology or anything and im starting with a simple chicken fighter(chicken raper v4) this is the script

    HowManyPlayers := 1; //how many players
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0; //current player

    Players[0].Name := ''; //username!
    Players[0].Pass := ''; //password
    Players[0].Nick := 'uga'; //Nick (3-4 letters of ur name
    Players[0].Active := True; //is the player active?

    {Players[1].Name := 'Username'; //username!
    Players[1].Pass := 'password'; //password
    Players[1].Nick := ''; //Nick (3-4 letters of ur name
    Players[1].Active := True; //is the player active?

    Players[2].Name := 'Username'; //username!
    Players[2].Pass := 'password'; //password
    Players[2].Nick := ''; //Nick (3-4 letters of ur name
    Players[2].Active := True; //is the player active? }

    end;

    procedure PreparePlayer;
    begin
    if not LoggedIn then LoginPlayer;
    SetRun(True);
    end;

    //~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    //Anti-ban and randoms thanks//
    //to Ocean's 1 willow choppa //
    //~~~~~~~~~~~~~~~~~~~~~~~~~~~//
    procedure AntiRandoms;
    begin
    if not LoggedIn then Exit;
    FindNormalRandoms;
    end;


    procedure AntiBan;
    begin
    if not LoggedIn then Exit;
    case (Random(30)) of
    1: RandomRClick;
    5: HoverSkill('Woodcutting', False);
    11: RandomMovement;
    15: BoredHuman;
    21: DoEmote(400 +Random(90));
    24: PickUpMouse;
    27: begin
    Gametab(1 + Random(12));
    Wait(3000 + Random(2000));
    Gametab(4);
    end;
    30: SleepAndMoveMouse(3600);
    end;
    end;


    procedure KillChicken;
    var
    X, Y, Mark: Integer;
    begin
    FindObjCustom(x, y, ['tta', 'ack', 'hick', 'ken'], [2572628, 6916764, 9155272, 3627895, 5928325], 3);
    Mouse(x, y, 2, 2, False);
    Wait(25 + Random(100));
    if not ChooseOption('ttack') then Exit;
    Flag;
    MarkTime(Mark);
    Wait(2 * 5000 + Random(1000));
    AntiBan;
    AntiRandoms;
    if HPPercent < 25 then RunTo('N', true);
    Wait(300);
    if HPPercent <100 then FindNormalRandoms;
    end;


    function PickupFeathers: boolean;
    var
    x, y, FeatherDTM: integer;
    begin
    FeatherDTM:= DTMFromString('78DA63DCC7C8C0A001C44860EBAA550C5C4 01' +
    'A24FA1F08180F01599AA86A18D418E06A408011648E16AA9A 433B' +
    '77A0A80100CAC20B42');
    if FindDTM(FeatherDTM, x, y, MSX1, MSY1, MSX2, MSY2) then
    begin
    Mouse(x, y, 0, 0, False);
    Wait(250 + Random(150));
    if ChooseOption('eather') then
    begin
    Flag;
    Result := True;
    end;
    end;
    end;

    procedure MainLoop;
    var
    Mark : Integer;
    begin
    repeat
    MarkTime(Mark);
    repeat
    if not LoggedIn then Exit;
    KillChicken;
    PickupFeathers;
    until((TimeFromMark(Mark) / 10000 * 60) >= 50); //60 minutes
    until(False);
    end;

    begin
    SetupSRL;
    DeclarePlayers;
    PreparePlayer;
    MainLoop;
    end.
    Added a feather picker upper, fixed standards, removed unnecessary things, added things that needed implemented, added SetupSRL;.


    i get a error that says unknow identifier 'howmanyplayers' idk what to type in there this is how im typeing the first part in

    begin
    HowManyPlayers := 1; //1
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0; //0

    Players[0].Name := 'mith acorn'
    Players[0].Pass := '*******'
    Players[0].Nick := 'mith'
    Players[0].Active := True; //im only going to have 1 person going at a time so do i just leave the other char slots emtpy or do i need to type something in there?

    idk if i typeing something in wrong idk plz help

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

    Default

    Quote Originally Posted by goodhope View Post
    HowManyPlayers := 1; //1
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0; //0

    Players[0].Name := 'mith acorn'
    Players[0].Pass := '*******'
    Players[0].Nick := 'mith'
    Players[0].Active := True; //im only going to have 1 person going at a time so do i just leave the other char slots emtpy or do i need to type something in there?

    idk if i typeing something in wrong idk plz help
    The error you are getting is because the script uses the variable HowManyPlayers but does not declare it (So it sounds). The variable HowManyPlayers is declared in the SRL include so following that reasoning do you have srl and is it included into the script, which would be below Program somename;


    SCAR Code:
    {.include srl/srl.scar}

    Also if you do not mind edit the script into SCAR tags.
    Current Project: Catching up on what I missed, re-writing some old includes I done in the past.
    Upcoming Project: Open For Suggestions

  3. #3
    Join Date
    Oct 2006
    Location
    United States
    Posts
    672
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  4. #4
    Join Date
    Oct 2008
    Location
    USA
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ok i got the link for the script with the srl thingie in the begining what do i type in there becouse i get an error that says failed wile compiling {.include srl/srl.scar} does not exist

  5. #5
    Join Date
    Apr 2007
    Posts
    994
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    You must download srl first. Try going to How To Auto tutorials in the Tut island.
    [QUOTE]<GoF`> oh no its Raymooond
    <Raymooond> Heya
    <GoF`> is it ray or some other ray?
    <LeeLokHin> No idea
    <LeeLokHin> Raymond, what's the game you like the most?
    <Raymooond> Runescape
    <-- LeeLokHin has kicked Raymooond from #srl (Faker.)[/QUOTE]

  6. #6
    Join Date
    Oct 2008
    Location
    USA
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    and whats scar tags?

  7. #7
    Join Date
    Oct 2008
    Location
    USA
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    k ill go try that

  8. #8
    Join Date
    Apr 2007
    Posts
    994
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    Starts the SCAR tags, and

    [scar]

    [/scar]

    Stops it.

    {SCAR}
    {/SCAR}

    Replace the curly braces with []
    [QUOTE]<GoF`> oh no its Raymooond
    <Raymooond> Heya
    <GoF`> is it ray or some other ray?
    <LeeLokHin> No idea
    <LeeLokHin> Raymond, what's the game you like the most?
    <Raymooond> Runescape
    <-- LeeLokHin has kicked Raymooond from #srl (Faker.)[/QUOTE]

  9. #9
    Join Date
    Oct 2008
    Location
    USA
    Posts
    11
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i tryed the tutorial but i dont know what they are talking. i downladed the scar program like they said but where do i dowload this srl thing??

  10. #10
    Join Date
    Apr 2007
    Posts
    994
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    [QUOTE]<GoF`> oh no its Raymooond
    <Raymooond> Heya
    <GoF`> is it ray or some other ray?
    <LeeLokHin> No idea
    <LeeLokHin> Raymond, what's the game you like the most?
    <Raymooond> Runescape
    <-- LeeLokHin has kicked Raymooond from #srl (Faker.)[/QUOTE]

  11. #11
    Join Date
    Jun 2007
    Location
    La Mirada, CA
    Posts
    2,484
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    http://www.villavu.com/forum/showthread.php?t=17890 - follow this link and do what is says...

    EDIT: GAH, Lee Lok Hin beat me

    "Failure is the opportunity to begin again more intelligently" (Henry Ford)


Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Simple Question...
    By Fr33d0ml4nc3 in forum OSR Help
    Replies: 4
    Last Post: 05-10-2008, 07:13 AM
  2. A simple question
    By Iraqnid in forum OSR Help
    Replies: 5
    Last Post: 09-04-2007, 10:11 PM
  3. Just simple question.
    By zamserv in forum News and General
    Replies: 8
    Last Post: 05-03-2007, 05:30 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •