Results 1 to 5 of 5

Thread: Help Someone!

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

    Default Help Someone!

    Hey people could someone please add declare players to my script and also make it change to next player please?

    SCAR Code:
    Program PieRuner;
    {.include SRL/SRL.scar}
    //This Script Doesnt Need Anti-Randoms.

    Procedure GetRunes;
    begin
    repeat
    if FindColor(x,y,8414294,0,0,400,400)then
    MMouse(x,y,1,1);
    Wait(1000+random(500));
    until(IsUpText('agi'));
    if(IsUpText('agi'))then
    Mouse(x,y,1,1,false);
    Wait(500+random(500));
    ChooseOption(x,y,'aim');
    end;


    Procedure GoOut;
    begin
    Mouse(642,486,5,5,true);
    Wait(500+random(1000));
    Mouse(636,378,5,5,true);
    Wait(300000+random(2000));
    end;


    begin
    SetupSRL;
    begin
    GetRunes;
    GoOut;
    end;
    end.
    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

  2. #2
    Join Date
    Aug 2007
    Posts
    429
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    ok here's declare players and where do you want it to switch players at?

    SCAR Code:
    Program PieRuner;
    {.include SRL/SRL.scar}
    //This Script Doesnt Need Anti-Randoms.


    Procedure DeclarePlayers;
    Begin

         HowManyPlayers := 5;

         Players[0].Name     := '';
         Players[0].Pass     := '';
         Players[0].Nick     := '';     //3 Lowercase Letters of your username
         Players[0].Active   := True;   //Change to FALSE on all the remaining user
                                        //slots you DON'T use
         Players[1].Name     := '';
         Players[1].Pass     := '';
         Players[1].Nick     := '';
         Players[1].Active   := True;

         Players[2].Name     := '';
         Players[2].Pass     := '';
         Players[2].Nick     := '';
         Players[2].Active   := True;

         Players[3].Name     := '';
         Players[3].Pass     := '';
         Players[3].Nick     := '';
         Players[3].Active   := True;

         Players[4].Name     := '';
         Players[4].Pass     := '';
         Players[4].Nick     := '';
         Players[4].Active   := True;

         Players[5].Name     := '';
         Players[5].Pass     := '';
         Players[5].Nick     := '';
         Players[5].Active   := False;

    End;

    Procedure GetRunes;
    begin
    repeat
    if FindColor(x,y,8414294,0,0,400,400)then
    MMouse(x,y,1,1);
    Wait(1000+random(500));
    until(IsUpText('agi'));
    if(IsUpText('agi'))then
    Mouse(x,y,1,1,false);
    Wait(500+random(500));
    ChooseOption(x,y,'aim');
    end;


    Procedure GoOut;
    begin
    Mouse(642,486,5,5,true);
    Wait(500+random(1000));
    Mouse(636,378,5,5,true);
    Wait(300000+random(2000));
    end;


    begin
      SetupSRL;
      GetRunes;
      GoOut;
      NextPlayer(True);
    end.

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

    Default

    I Want It To Switch Players After It Has Done The 2 Procedures (GetRunes And GetOut).

    SCAR Code:
    begin
    GetRunes;
    GoOut;
    //IT SHOULD SWITCH HERE!!!!!!
    end;
    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

  4. #4
    Join Date
    Aug 2007
    Posts
    429
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    k i edited the one i posted earlier.

  5. #5
    Join Date
    Aug 2007
    Location
    England
    Posts
    734
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Just Though i'd help you out with some important errors that were made

    SCAR Code:
    Program PieRuner;
    {.include SRL/SRL.scar}
    //This Script Doesnt Need Anti-Randoms.
    //<--- Will need randoms i think, as they appear just about everywhere

    Procedure GetRunes;
    begin
    repeat
    if FindColor(x,y,8414294,0,0,400,400)then
    // After a If statement, if the result is more than one line long then a
    //and end must be put around it such as here...
    Begin
    MMouse(x,y,1,1);
    Wait(1000+random(500));
    end;
    until(IsUpText('agi'));
    if(IsUpText('agi'))then
    // Same again
    begin
    Mouse(x,y,1,1,false);
    Wait(500+random(500));
    ChooseOption(x,y,'aim');
    end;
    end;


    Procedure GoOut;
    begin
    // This may need some checks such as get colors or find color spirals etc...  
    // just to check it has worked...
    Mouse(642,486,5,5,true);
    Wait(500+random(1000));
    Mouse(636,378,5,5,true);
    Wait(300000+random(2000));
    end;


    begin
    SetupSRL;
    // The begin and end here aren't needed
    //begin
    GetRunes;
    GoOut;
    //end;
    end.
    The truth finally came out...


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
  •