Results 1 to 10 of 10

Thread: Invalid number of parameters.

  1. #1
    Join Date
    Feb 2007
    Posts
    111
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Invalid number of parameters.

    Line 110. Says theres invalid number of parameters. Hy I need your help. Msn not working....

    SCAR Code:
    program FirstAttemptAtAnyUsefulScript;

    {.include SRL/SRL.scar}

    const
      SRLStatsID = 'Enter Yours';
      SRLStatsPass = 'You Stats Pass';

    const
    Rockcolour1= 111111; //The main color of rock
    RockColour2= 222222; //A secondary color of the rock

    var x, y, Tries: integer;

    var Loads: Integer;


    procedure DeclarePlayers;
    begin

         HowManyPlayers := 1;
         NumberofPlayers (HowManyPlayers);
         CurrentPlayer:= 0;
         
         Players[0].Name   := 'Username';   //Username of account your using
         Players[0].Pass   := 'Password';   //The password...
         Players[0].Nick   := 'user'        //3 to 4 letters of your username. They should be next to eachother
         Players[0].Active := True;         //If its gonna mine...
         
    end;

    procedure AntiRandoms;
    begin
      If(FindFight)then
      RunAway('N', True,1,15000);
      FindNormalRandoms;
      FindLamp('Mining');
    end;


    procedure AntiBan;
    begin
      if not LoggedIn then Exit;
      case Random(30) of
        1: RandomRClick;
        2: hoverSkill('Woodcutting',False);
        3: RandomMovement;
        4: BoredHuman;
        5: AlmostLogout;
        6: DoEmote(400 +Random(90));
      end;
    end;


    procedure RockMining;
    begin
    if not LoggedIn then
      Exit;
      if (not (FindObjCustom(x, y, ['Mi', 'ne'], [RockColour1, RockColour2], 7))) then
        Wait(100+random(100));
        Tries := Tries + 1;
        if(Tries = 20)then
          begin
            Logout;
            Exit;
          end else
      if FindObjCustom(x, y, ['Min', 'ine'], [RockColour1, RockColour2], 7) then
      repeat
        case (Random(2)) of
          1: begin
                Mouse(x, y, 4, 4,false);
                ChooseOption('ine');
              end;
          2: Mouse(x, y, 4, 4, True);
        end
      until (InvFull)
    end;


    procedure DropDe(f,t: integer);
    var Hmm,i: integer;
    begin
         Hmm := MouseSpeed;
      MouseSpeed := 25+Random(7);
      for i := 2 to 28 do
        DropItem(i);
      WriteLn('All Dropped!');
      MouseSpeed := Hmm;
      Loads := Loads + 1;
    end;


    procedure ProgressReport;
    begin
    ClearDebug;
        Writeln('/\/\/\/\/\/\/\/\/\/\/\/\');
        Writeln('[]------>Proggy<------[]');
        Writeln('[]-->Mined' + InttoStr(Loads) + 'Loads<--[]');
        Writeln('\/\/\/\/\/\/\/\/\/\/\/\/');
    end;


    begin
      SetupSRL;
      ScriptId := '745';
      SRLID := SRLStatsPass;
      SRLPassword := SRLStatsPass;
      repeat
        RockMining;
        DropDe; HERE!
        AntiBan;
        ProgressReport;
      until (False)
    end.
    Free runescape members? Yes, for 1 cent a click go here!
    http://www.stats.srl-forums.com/sigs/1854.png
    Need a tester? I could test for you. PM me for details =)

  2. #2
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default

    I actually dont know? I mean. If you take it out it works..


    EDIT: The Drop procedure:

    SCAR Code:
    procedure DropDe;
    var Hmm,i: integer;
    begin
         Hmm := MouseSpeed;
      MouseSpeed := 25+Random(7);
      for i := 2 to 28 do
        DropItem(i);
      WriteLn('All Dropped!');
      MouseSpeed := Hmm;
      Loads := Loads + 1;
    end;

    Apparently you dont need the (f,t: integer) bit.
    Jus' Lurkin'

  3. #3
    Join Date
    Feb 2007
    Posts
    111
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    If i take out that procedure?
    Free runescape members? Yes, for 1 cent a click go here!
    http://www.stats.srl-forums.com/sigs/1854.png
    Need a tester? I could test for you. PM me for details =)

  4. #4
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    The procedure is DropDe(f,t: integer); and you are just putting DropDe; also, dont use high mose speed.


  5. #5
    Join Date
    Feb 2007
    Location
    South East England
    Posts
    2,906
    Mentioned
    2 Post(s)
    Quoted
    8 Post(s)

    Default

    I was just saying it works without the F,t:integer bit.

    0_o
    Jus' Lurkin'

  6. #6
    Join Date
    Feb 2007
    Posts
    111
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Ok. And whats a lower mousespeed?
    Free runescape members? Yes, for 1 cent a click go here!
    http://www.stats.srl-forums.com/sigs/1854.png
    Need a tester? I could test for you. PM me for details =)

  7. #7
    Join Date
    May 2007
    Location
    Some where fun.
    Posts
    2,891
    Mentioned
    1 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by Torrent of Flame View Post
    I was just saying it works without the F,t:integer bit.

    0_o
    Well, You cant do that when scripting.. Click mouse works but its very detectable.

    Ontopic:

    SCAR Code:
    begin
      SetupSRL;
      ScriptId := '745';
      SRLID := SRLStatsPass;
      SRLPassword := SRLStatsPass;
      repeat
        RockMining;
        DropDe; HERE!
        AntiBan;
        ProgressReport;
      until (False)
    end.

    Until False is a pain in the but sometimes.. Try

    until (IsFKeyDown(12));

    If you want you can use my dropping procedure...

    SCAR Code:
    Procedure DropTheLogs;
    var i:integer;
    Begin
      Mousespeed:=25;
      if Not(LoggedIn) then exit;
      GameTab(4);
      for i := 1 to 28 do
      Begin
        Case random (8) of
        0: begin
            MouseItem(i, true);
            MouseItem(i + 1, true);
             end;

        1: begin
             MouseItem(i, false);
             ChooseOption('se');
             MouseItem(i, true);
           end;
             
        2,3,
        4,5,6,
        7,8: begin
             MouseItem(i, false);
             ChooseOption('rop');
              end;
            end;
            if (i = 10) or (i = 20) then
            FindNormalRandoms;
          end;
          FindNormalrandoms;
        end;

    It drops like a human would.. Example: Clicking use, messing up. etc.

  8. #8
    Join Date
    Nov 2007
    Location
    Chile
    Posts
    1,901
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Gabe View Post
    Ok. And whats a lower mousespeed?
    SCAR Code:
    MouseSpeed := 25+random(4);

    You are using a high speed for dropping:

    SCAR Code:
    MouseSpeed := 14+random(14);

    That should be fine, i doubt you leeched the drop proc.


  9. #9
    Join Date
    Mar 2008
    Location
    Indiana
    Posts
    192
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Hey I caugth somthing...
    SCAR Code:
    Players[0].Nick   := 'user'
    Shouldn't that be:
    SCAR Code:
    Players[0].Nick   := 'user';
    Am I right? or Wrong?

  10. #10
    Join Date
    Feb 2007
    Posts
    111
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    K thanks.
    Free runescape members? Yes, for 1 cent a click go here!
    http://www.stats.srl-forums.com/sigs/1854.png
    Need a tester? I could test for you. PM me for details =)

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Invalid Number Of Parameters
    By decide in forum OSR Help
    Replies: 3
    Last Post: 07-28-2008, 06:11 AM
  2. Invalid number of parameters
    By kristahlyn in forum OSR Help
    Replies: 2
    Last Post: 06-16-2007, 02:39 PM
  3. Invalid Number of Parameters
    By richyyrich09 in forum OSR Help
    Replies: 6
    Last Post: 06-12-2007, 10:48 PM
  4. invalid number of parameters
    By stuckman in forum OSR Help
    Replies: 4
    Last Post: 05-27-2007, 01:32 PM
  5. Invalid Number Of Parameters
    By Any-key in forum OSR Help
    Replies: 12
    Last Post: 04-21-2007, 12:11 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
  •