Results 1 to 5 of 5

Thread: have problems any help

  1. #1
    Join Date
    Nov 2008
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default have problems any help

    SCAR Code:
    program ChickenKiller;
    {.include SRL\SRL.scar}
    {.include SRL\SRL\skill\fighting.scar}
    const
         ChickenColor1 = 8167863 ;//set white chicken color, to get specific color I suggest you go to runehq and find chicken under monsters
         ChickenColor2 = 2972796 ;//set brown chickens color, and ditto
         KillsPerPlayer = 10 ; //sets kills before switching to next player
         KillTime = 5000 ;// estimate time it takes you to kill a chicken
    var
    x, y, CurrentPlayerKills : integer

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 4;
      CurrentPlayer := StartPlayer;
      NumberOfPlayers(HowManyPlayers);

      Players[0].Name := 'k1ss n k1ll6';
      Players[0].Pass := 'demon';
      Players[0].Nick := 'eki';
      Players[0].Active := True;

      Players[1].Name := 'kiss n kill6';
      Players[1].Pass := 'demon';
      Players[1].Nick := 'eki';
      Players[1].Active := True;

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

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

    end;

    procedure AttackChicken;
    begin
     if not Loggedin then Exit;
     repeat
      if FindObj(x, y, 'ttack', ChickenColor1,10) then
      begin
       Mouse(x, y, 2, 3, False);
       if ChooseOption('ttack') then
       begin
         wait(KillTime);
         Inc(CurrentPlayerKills);
         Exit;
       end;
      end;
    end;

    begin
     SetupSRL;
     DeclarePlayers;
     if LoggedIn then Logout;
     LoginPlayer;
     repeat
      AttackChicken;
      if CurrentPlayerKills = KillsPerPlayer then
      begin
       NextPlayer(true);
      end;
      if not Loggedin then NextPlayer(False);
     until(false)
    end.

    that is the code, the error im getting is that at line 12 there is an expected semi colon... but at line 12 there is a semi colon, so idk wat to do... if anyone can halp me that would be great. Also please tell me if this script makes no sense. I am pretty much a complete noob at scar so I need all the help i can get. Oh and by the way I am going to add anti random/ anti ban later once i get main part working

  2. #2
    Join Date
    May 2008
    Posts
    1,345
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Left your name/pass in there. Went to change it, but I messed up on the first one. I have the second one, it was the only one I managed to get :/.

  3. #3
    Join Date
    Dec 2007
    Location
    Michigan, USA
    Posts
    280
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program ChickenKiller;
    {.include SRL\SRL.scar}
    {.include SRL\SRL\skill\fighting.scar}
    const
         ChickenColor1 = 8167863 ;//set white chicken color, to get specific color I suggest you go to runehq and find chicken under monsters
         ChickenColor2 = 2972796 ;//set brown chickens color, and ditto
         KillsPerPlayer = 10 ; //sets kills before switching to next player
         KillTime = 5000 ;// estimate time it takes you to kill a chicken
    var
    x, y, CurrentPlayerKills : integer;//you forgot the dim semicolon :P all better xD

    procedure DeclarePlayers;
    begin
      HowManyPlayers := 4;
      CurrentPlayer := StartPlayer;
      NumberOfPlayers(HowManyPlayers);

      Players[0].Name := 'k1ss n k1ll6';
      Players[0].Pass := 'demon';
      Players[0].Nick := 'eki';
      Players[0].Active := True;

      Players[1].Name := 'kiss n kill6';
      Players[1].Pass := 'demon';
      Players[1].Nick := 'eki';
      Players[1].Active := True;

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

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

    end;

    procedure AttackChicken;
    begin
     if not Loggedin then Exit;
     repeat
      if FindObj(x, y, 'ttack', ChickenColor1,10) then
      begin
       Mouse(x, y, 2, 3, False);
       if ChooseOption('ttack') then
       begin
         wait(KillTime);
         Inc(CurrentPlayerKills);
         Exit;
       end;
      end;
    end;

    begin
     SetupSRL;
     DeclarePlayers;
     if LoggedIn then Logout;
     LoginPlayer;
     repeat
      AttackChicken;
      if CurrentPlayerKills = KillsPerPlayer then
      begin
       NextPlayer(true);
      end;
      if not Loggedin then NextPlayer(False);
     until(false)
    end.
    All better :P you forgot the var's semicolon...
    hope you dont have nymore trobules
    Kindof Inactive...

  4. #4
    Join Date
    Nov 2008
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks a lot man, I had no idea what I was messing up on. THanks so much for your help, and Sand storm I already got your pm, and I sent one back to you, I guess I couldn't really expect much else, than for people to steal those accs in a second (especially on a site like this, thats main purpose is cheating on RS) Thanks for all your help. (I feel like such an idiot though)

    Also one more question, the other error I'm getting is
    SCAR Code:
    Line 15: [Error] (16389:18): Unknown identifier 'StartPlayer' in script C:\Program Files\SCAR 3.15\Scripts\ChickenKiller.scar
    Could this be because I'm not including one of the SRL files, or what else

  5. #5
    Join Date
    May 2008
    Posts
    1,345
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Just take out the CurrentPlayer := StartPlayer. Make it CurrentPlayer:=0 (this is the number of the player it uses first). You get it because StartPlayer isn't a constant in your script.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. SQL Problems. Please help!
    By Da 0wner in forum Web Development
    Replies: 10
    Last Post: 01-22-2009, 02:03 AM
  2. Computer problems... Terrible computer problems...
    By Jason2gs in forum News and General
    Replies: 22
    Last Post: 04-26-2007, 12:02 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
  •