Results 1 to 14 of 14

Thread: Need help with my powerminer

  1. #1
    Join Date
    Dec 2007
    Posts
    108
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need help with my powerminer

    Why do I get this? Line 202: [Error] (13335:7): Invalid number of parameters in script

    Someone please help and post or PM it to me fixed

    Thanks


    SCAR Code:
    program powerminer;
    {.include SRL/SRL.scar}
    {.include SRL\SRL\Skill\Mining.scar}

    const
    rockcolor1= 472123;//set the color of the rock
    rockcolor2= 567243;//set color of rock (these aren't the real colors)

    var x,y,randomm: integer;


    Procedure DeclarePlayers; // this procedure is used to logg players in
    begin
         HowManyPlayers  :=1;               // Set Number of Players here.
         NumberOfPlayers(HowManyPlayers);   // Sets the Players Array Length;
         CurrentPlayer:=0;                // CurrentPlayer = Array Index

         Players[0].Name :='user';//USERNAME
         Players[0].Pass :='pass';//PASS
         Players[0].Nick :='ser';//3 LETTERS OF YOUR USERNAME NOT THE FIRST ONE
         Players[0].Active:=True;//PLAYER IN USE OR NOT


    end;

    Procedure Randoms;
    Begin
    FindTalk; //finds talkin randoms
    FindNormalRandoms; //finds normal randoms
    SolveChatRandom; //sloves chat randoms
    FindLamp('Woodcutting'); //solves lamp and then choses a skill to update
    SolvePinball; //solves pinball random
    DwarfItem; //dropes dawalf items
    If(FindFight)Then //runs away from fight
    Begin
    MakeCompass('N');
    RunTo('E', True);
    Wait(7000 +Random(3000));
    RunTo('W', True);
    End;
    End;


    procedure antiban;
    begin
     randomm := Random(4)
      case randomm of


      0:                begin

                        Wait(3591+(random(287)));
                        RandomRClick;
                        Wait(3591+(random(287)));
                        Randoms;
                       end;

      1:     begin
             Wait(3694+(random(791)));
             GameTab(random(13)+1);
             Randoms;
             Wait(3694+(random(791)));
             GameTab(4);
             end;

      2:                begin
                        Wait(3294+(random(873)));
                        Randoms;
                        HoverSkill('Woodcutting' ,false);
                        Wait(3294+(random(873)));
                        end;

      3:     begin
              Wait(3694+(random(791)));
              GameTab(random(13)+1);
              Randoms;
              Wait(3694+(random(791)));
              GameTab(4);
              end;
    end;
    end;



    Procedure minerock;
    begin

      if not LoggedIn then
      Exit;

        repeat
        if FindObjCustom(x, y, ['Min', 'ine'], [rockcolor1, rockcolor2], 7) then
        begin

          MoveMouseSmoothEx(x,y,  20,40,45,25,20);
          FTWait(1);
          clickmouse(x,y,false);
          Wait(500+(random(150)));

            ChooseOption('ine')
            randoms
            antiban;
            writeln('found rock');

              end else
              writeln('couldnt find rock');
              randoms;
              antiban;
              antiban;
              antiban;

                until( InvFull )
                end;

                procedure Dropit(slot1,slot2: integer);
    var
      i,beginslot,endslot: integer;
      DropPoint: Array [0..27] of TPoint;
    begin
      DropPoint[0]:= inttopoint(579,230);
      DropPoint[1]:= inttopoint(621,230);
      DropPoint[2]:= inttopoint(663,230);
      DropPoint[3]:= inttopoint(703,230);
      DropPoint[4]:= inttopoint(579,266);
      DropPoint[5]:= inttopoint(621,266);
      DropPoint[6]:= inttopoint(663,266);
      DropPoint[7]:= inttopoint(703,266);
      DropPoint[8]:= inttopoint(579,303);
      DropPoint[9]:= inttopoint(621,303);
      DropPoint[10]:= inttopoint(663,303);
      DropPoint[11]:= inttopoint(703,303);
      DropPoint[12]:= inttopoint(579,339);
      DropPoint[13]:= inttopoint(621,339);
      DropPoint[14]:= inttopoint(663, 336);
      DropPoint[15]:= inttopoint(705, 337);
      DropPoint[16]:= inttopoint(578, 371);
      DropPoint[17]:= inttopoint(620, 372);
      DropPoint[18]:= inttopoint(663, 372);
      DropPoint[19]:= inttopoint(704, 372);
      DropPoint[20]:= inttopoint(579, 407);
      DropPoint[21]:= inttopoint(621, 406);
      DropPoint[22]:= inttopoint(663, 407);
      DropPoint[23]:= inttopoint(706, 407);
      DropPoint[24]:= inttopoint(579, 444);
      DropPoint[25]:= inttopoint(620, 444);
      DropPoint[26]:= inttopoint(662, 443);
      DropPoint[27]:= inttopoint(705, 442);
      beginslot:= slot1 - 1;
      endslot:= slot2 - 1;
      if FindBox then SolveBox;
      for i:= beginslot to endslot do
      begin
        Mouse(DropPoint[i].X,DropPoint[i].Y,6,6,false);
        wait(random(10));
        ChooseOption('Drop');
        wait(random(150));
      end;
      wait(500+random(500));
      if Players[CurrentPlayer].Booleans[2]then
      begin
        if not(InvCount = 0)then
        begin
          for i:= beginslot to endslot do
          begin
            if ExistsItem(i)then
            begin
              Mouse(DropPoint[i].X,DropPoint[i].Y,6,6,false);
              wait(random(10));
              ChooseOption('Drop');
              wait(random(150));
            end;
            if (InvCount = 0) then break;
          end;
        end;
      end else
      begin
        if not(InvCount = 1)then
        begin
          for i:= beginslot to endslot do
          begin
            if ExistsItem(i)then
            begin
              Mouse(DropPoint[i].X,DropPoint[i].Y,6,6,false);
              wait(random(10));
              ChooseOption('Drop');
              wait(random(150));
            end;
            if (InvCount = 1)then break;
          end;
        end;
      end;
    end;



    begin
    SetupSRL;
      DeclarePlayers;
        LoginPlayer;
          repeat
            minerock;
              dropit;
                until(false);

  2. #2
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Because your procedure is as such:
    SCAR Code:
    procedure Dropit(slot1,slot2: integer);
    so in the main loop you need to put something like:
    SCAR Code:
    Dropit(1, 28);

  3. #3
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    btw is this the dallas i know on msn? (if it is tell me what we use to do in the past) j/w

  4. #4
    Join Date
    Apr 2007
    Posts
    277
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Dude, you left your pass in there! Don't worry I changed it and PMed it to you. Always remember to remove your pass before you post!
    Current Script: Al-Kharid Fighter and Banker
    Status : Just Started

  5. #5
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    oh i thought those were fake

  6. #6
    Join Date
    Jun 2008
    Location
    Arkansas
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    P1nky or some one help......on every script i get errors like on powerchopper....

    Include file C:\Program Files\SCAR 3.15\includes\SRL\SRL\Misc\Smart.scar does not exist.
    Include file C:\Program Files\SCAR 3.15\includes\srl\srl.scar does not exist.
    Include file C:\Program Files\SCAR 3.15\includes\srl\srl\misc\Users.scar does not exist.
    Include file C:\Program Files\SCAR 3.15\includes\srl\srl\skill\WoodCutting.scar does not exist.
    Failed when compiling
    help.....pleeease!?

  7. #7
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Checkout your SRL SvN

  8. #8
    Join Date
    Jun 2008
    Location
    Arkansas
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default what?

    what is that? well i mean how do i see that....ect... sorry im a bit new at this i used to auto with online downloads like sythe and RK untill i realized SCAR is waaaaay better...

  9. #9
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Open SCAR. Hit File ->Checkout SRL SvN.

  10. #10
    Join Date
    Jun 2008
    Location
    Arkansas
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    it sais nothing like tht

    it sais nothing about tht only thing it sais is download SRL..

  11. #11
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah, download SRL = same thing.

  12. #12
    Join Date
    Jun 2008
    Location
    Arkansas
    Posts
    22
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  13. #13
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    It working ok now? Thanks for the rep.

  14. #14
    Join Date
    Jan 2007
    Location
    Illinois.. >.<
    Posts
    1,158
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Why did you just cut that guy down "i pro leechin'" when your name states everything?? What's the point of that? This section is to encourage people to learn how to script and to show them that we are a friendly community with a lot of members who are willing to help them. There's no reason to cut him down because his standards aren't good.. The main point is that he is making a script, whereas you aren't(to my knowledge). Standards come later.

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. powerminer
    By tpm1164 in forum First Scripts
    Replies: 5
    Last Post: 07-15-2007, 12:41 AM
  2. My Powerminer v. 3.00
    By GoF in forum RS3 Outdated / Broken Scripts
    Replies: 17
    Last Post: 01-22-2007, 02:08 AM
  3. Need Help On My First PowerMiner
    By Buckleyindahouse in forum OSR Help
    Replies: 3
    Last Post: 12-23-2006, 06:08 PM
  4. powerminer
    By shadowblade in forum OSR Help
    Replies: 20
    Last Post: 12-15-2006, 12:34 AM
  5. my powerminer
    By shadowblade in forum OSR Help
    Replies: 3
    Last Post: 12-09-2006, 03:04 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
  •