Results 1 to 13 of 13

Thread: Invalid Number Of Parameters

  1. #1
    Join Date
    Apr 2007
    Location
    Australia
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Invalid Number Of Parameters

    Howdy guys,
    Sorry for starting a new thread but I hate ruining other threads for my well being.

    My script has a problem that every time it tries to compile it comes up with the error
    SCAR Code:
    Line 162: [Error] (17643:7): Invalid number of parameters in script C:\Program Files\SCAR 3.0\Scripts\FushnChups V.1.0.scar

    This is my script so far, with the problem line pointed out.

    SCAR Code:
    program FushnChups;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Fishing.scar}

    /////  >>Any-Key's Barbarian Village Fisher<< \\\\\
    ////Start at The Barbarian Village fishing spot\\\\\
    /// Set Bank to false if dropping is preferred  \\\\\
    //         Setup players and click play          \\\\\

    const
       Bank = True; //Set to false to drop fish

    var
       Loads: Integer;
       BanksCompleted: Integer;
       Feathers: Boolean;
       Reel: Boolean;
       Trout, Salmon, Rod, Bait, FishSpot: Integer;
       FishSymbol, BankSymbol, BankCounter: Integer;

      Procedure ReadyDTMFiles;
        begin
          Trout := DTMFromString('78DA63D462646010616240067BD6AD01D38C5' +
           '03EA331902580AA86858905558D32902543408D2290254C408D1A' +
           '90C54F408D0E90C549408D0190C545408D1911E680EC9226A0461' +
           '6BF1A0E200600EBD20501');
          Salmon := DTMFromString('78DA63346664605808C448607E5C209886893' +
           '26A0159AB50D5C064E16A3431CDC150630664CD24A0C610C89A81' +
           '5B0D3388B605B2E610506309642D20A0C604C85A49408D1A90B58' +
           'C801A7B206B327E35001ADB09C9');
          Rod := DTMFromString('78DA63D4646460A86362400699FE9C609A11C' +
           'A675400B29A50D5C064E16A1481AC6E026AB480AC56026AF480AC' +
           '7A026ACC81AC42026AF481AC22026AD481AC0AFC6A0024D4062A');
          Bait := DTMFromString('78DA63746264606060624006DBB6AD02D38C5' +
           '03EA32790C584AA0606E06A7C80AC6F8CF8D5B803599F09A8B105' +
           'B2FE1150630D643113708F0390C5C544D82E1EDC6AD840B415916' +
           'A0408A8F106B27E33E255030017AC094D');
          FishSpot := BitmapFromString(25, 24, 'z78DAC59641928420' +
           '0C45AF14BB85846540B8FF9106858516A62780D3B3F94559A53CF' +
           'F4F02F826C38C458116B6ADDA48C0EB8D6E18F975A38CDE6D37EA' +
           '909D6F15C1510816919C2B3AC8E33130DC68278FB59817ADFE974' +
           'B480C219DFD19F32A7F056218F44AD85DF44AE0B9307CCCCED306' +
           'E92DF12079884E9F9D35B83AF39DEC9802C574594BEE29A87CFE4' +
           '282B13AE7DDC3858A57EAECA404C7FAEE26C7CEBED353D53F7D74' +
           '3AD52E83ACB6F5D08025F7FAC31925554EAB94152F93E19B33B37' +
           '1ECE2D2CEB64A54B542DA1CE7B353131686DAAD52E5485EF5EEAE' +
           'D1DDB1A9ECF2A941D18A8EF53A59AAAB9ED78FCECC87082B556F7' +
           '682964AC8FF0C7E99A2EDCD6E4CDB7D8FFAA96B38BA4F43D5E99E' +
           'A1FC563A3FA17C97F3D83D558A4ABBCFE8BCB70AAFA4B9916F3B9' +
           'FE6C90CA144A55181A456FB84B7BF4C8693B6335FC50947BD75D6' +
           '80743A8B77D1791DA26AB5B8A43AC71F22FC0107903479');
          FishSymbol := BitmapFromString(15, 5, 'z78DA8DCE410E80300844D12B4D5BA' +
          '9BAA404EE7F2413675343AA6EFE82D217D061682636ACCCADA779' +
          '045B641F117987CDAFB84D2479D67257B28A0EFD90B9C9F9BB3FD' +
          'FF02EC337F347B39977D83F37AFFEA2D76EDEA4543DE870B2922F' +
          'BB6B6878');
          BankSymbol := BitmapFromString(15, 5, 'z78DA33B434B4343473B' +
          '100421364D2D9D2C9C9D4C4CDCDD5D1CCD0C2D5DCC5D00299ED04' +
          '8226C824B25E43B0998664990C213175116F32B2F9C824B2F9A4B' +
          'A1997F9B842865493890F734C9301ACE46928');
          BankCounter := BitmapFromString(30, 1, 'z78DA333530B' +
        '130B1304521413484044218DB05C6868A1A98184144CC0C4D5C8C' +
        '8C9149134B6333034B9C24C24C98692011430C930DA1A48BB1235' +
        '0171209001C2C2544');
        end;

      Procedure UberBright;

      Begin
        GameTab(11);
        Wait(400+random(12));
        If GetColor(712, 226) <> 16777215 Then
        Begin
          Mouse(712, 226, 2, 2, True);
          Wait(200+random(12));
        End;
      End;

      Procedure FindFeathers;
      begin
      ReadyDTMFiles;
      if(FindInvDTM(x, y, Bait)) then
        begin
        Feathers := True;
        end
        else
        begin
        Feathers := False;
        Writeln('Wheres your feathers?')
        terminatescript;
        end
      FreeDTM(Bait)
      end;

      Procedure FindRod;
      begin
      if(FindInvDTM(x, y, Rod)) then
        begin
        Reel := True
        end
        else
        begin
        Reel := False
        Writeln('Wheres your rod?')
        terminatescript;
        end
      FreeDTM(Rod)
      end;

      procedure FaceNorth;
      begin
        MakeCompass('N');
        Wait(500 + Random(500));
        MakeCompass('N');
        Wait(500 + Random(500));
        MakeCompass('N');
        Wait(500 + Random(500));
        HighestAngle;
        Writeln('Now Facing North')
      end;

      Procedure ClickBMP;
      begin
        Wait(1000+random(15))
        MMouse(x,y,0,0)
        Wait(30+random(8))
        Mouse(x+random(3),y+random(3),0,0,True)
      end;

      Procedure ClickSpotBMP;
      begin
        Wait(1000+random(15))
        MMouse(x,y,0,0)
        if(IsUpText('Lure')) then
        Wait(30+random(8))
        Mouse(x+random(3),y+random(3),0,0,True)
      end;

      Procedure FindFishSymbol;
      begin
        if(FindBitmap(FishSymbol, x,y)) then
        ClickBMP;
      end;

      Procedure FindFishSpot;
      begin
        if(FindBitmap(FishSpot, x, y)) then
        ClickSpotBMP;
      end;

      Procedure DropFish;
      begin
        if(Bank = False) and (InvFull) then
        DropTo(3,28)
        Writeln('Dropped fish, starting fishing again')
        Loads:=Loads+1
      end;

      Procedure BankTravel;
      begin
        If(Bank=True) and (InvFull) then
        SetRun; //PROBLEM <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
        MakeCompass('N')
        RadialRoadWalk(5921890, 90, 160, 60, 1, 1);
        FFlag(3)
        RadialRoadWalk(5921890, 105, 140, 60, 1, 1);
        FFlag(3)
        RadialRoadWalk(5855584, 75, 90, 60, 1, 1);
        FFlag(4)
        RadialRoadWalk(5855584, 55, 75, 60, 1, 1);
        FFlag(4)
        RadialRoadWalk(5855584, 67, 82, 70, 1, 1);
        FFlag(5)
        if(FindBitmap(BankSymbol, x, y)) then
        ClickBMP;
        end;

      Procedure OpenBank;
      begin
        if(FindBitmap(BankCounter,x,y)) then
        Wait(200+random(50))
        MMouse(x,y,0,0)
        Wait(50+random(12))
        Mouse(x,y,0,0,False)
        ChooseOption(x, y, 'quickly')
        Wait(1000+random(69))
        If (Bankscreen) then
        Writeln('Opened Bank')
      end;

      Procedure Deposit;
      begin
        if(FindInvDTM(Salmon,x,y)) then
        MMouse(x,y,0,0)
        Wait(500+Random(69))
        Mouse(x+random(3),y+random(3),0,0,False)
        ChooseOption('All')
        Wait(200+random(50))
        if(FindInvDTM(Trout,x,y)) then
        MMouse(x,y,0,0)
        Wait(500+random(69))
        Mouse(x+random(3),y+random(3),0,0,False)
        ChooseOption('All')
        Loads:= Loads+1
        Writeln('Load Successfully Banked')
      end;




    begin
      ActivateClient;
      UberBright;
      FindFeathers;
      FindRod;
      FaceNorth;
      FindFishSymbol;
      FindFishSpot;
      HandleWhirlPool;
      DropFish;
      BankTravel;
      OpenBank;
      Deposit;
    end.

    Thanks guys, all help is very much appreciated. Also any criticism (within reason) will be accepted and I'll try fix it up. Also is that the correct command to set run?

    Thanks again,
    Any-Key

    PS: Script is due to be released within the week.

  2. #2
    Join Date
    Apr 2007
    Location
    Australia
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Also, it isn't finished. I need to add setup players and the radialwalk to get back to barb

  3. #3
    Join Date
    Oct 2006
    Location
    Ireland
    Posts
    855
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program FushnChups;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Fishing.scar}

    /////  >>Any-Key's Barbarian Village Fisher<< \\\\\
    ////Start at The Barbarian Village fishing spot\\\\\
    /// Set Bank to false if dropping is preferred  \\\\\
    //         Setup players and click play          \\\\\

    const
       Bank = True; //Set to false to drop fish

    var
       Loads: Integer;
       BanksCompleted: Integer;
       Feathers: Boolean;
       Reel: Boolean;
       Trout, Salmon, Rod, Bait, FishSpot: Integer;
       FishSymbol, BankSymbol, BankCounter: Integer;

      Procedure ReadyDTMFiles;
        begin
          Trout := DTMFromString('78DA63D462646010616240067BD6AD01D38C5' +
           '03EA331902580AA86858905558D32902543408D2290254C408D1A' +
           '90C54F408D0E90C549408D0190C545408D1911E680EC9226A0461' +
           '6BF1A0E200600EBD20501');
          Salmon := DTMFromString('78DA63346664605808C448607E5C209886893' +
           '26A0159AB50D5C064E16A3431CDC150630664CD24A0C610C89A81' +
           '5B0D3388B605B2E610506309642D20A0C604C85A49408D1A90B58' +
           'C801A7B206B327E35001ADB09C9');
          Rod := DTMFromString('78DA63D4646460A86362400699FE9C609A11C' +
           'A675400B29A50D5C064E16A1481AC6E026AB480AC56026AF480AC' +
           '7A026ACC81AC42026AF481AC22026AD481AC0AFC6A0024D4062A');
          Bait := DTMFromString('78DA63746264606060624006DBB6AD02D38C5' +
           '03EA32790C584AA0606E06A7C80AC6F8CF8D5B803599F09A8B105' +
           'B2FE1150630D643113708F0390C5C544D82E1EDC6AD840B415916' +
           'A0408A8F106B27E33E255030017AC094D');
          FishSpot := BitmapFromString(25, 24, 'z78DAC59641928420' +
           '0C45AF14BB85846540B8FF9106858516A62780D3B3F94559A53CF' +
           'F4F02F826C38C458116B6ADDA48C0EB8D6E18F975A38CDE6D37EA' +
           '909D6F15C1510816919C2B3AC8E33130DC68278FB59817ADFE974' +
           'B480C219DFD19F32A7F056218F44AD85DF44AE0B9307CCCCED306' +
           'E92DF12079884E9F9D35B83AF39DEC9802C574594BEE29A87CFE4' +
           '282B13AE7DDC3858A57EAECA404C7FAEE26C7CEBED353D53F7D74' +
           '3AD52E83ACB6F5D08025F7FAC31925554EAB94152F93E19B33B37' +
           '1ECE2D2CEB64A54B542DA1CE7B353131686DAAD52E5485EF5EEAE' +
           'D1DDB1A9ECF2A941D18A8EF53A59AAAB9ED78FCECC87082B556F7' +
           '682964AC8FF0C7E99A2EDCD6E4CDB7D8FFAA96B38BA4F43D5E99E' +
           'A1FC563A3FA17C97F3D83D558A4ABBCFE8BCB70AAFA4B9916F3B9' +
           'FE6C90CA144A55181A456FB84B7BF4C8693B6335FC50947BD75D6' +
           '80743A8B77D1791DA26AB5B8A43AC71F22FC0107903479');
          FishSymbol := BitmapFromString(15, 5, 'z78DA8DCE410E80300844D12B4D5BA' +
          '9BAA404EE7F2413675343AA6EFE82D217D061682636ACCCADA779' +
          '045B641F117987CDAFB84D2479D67257B28A0EFD90B9C9F9BB3FD' +
          'FF02EC337F347B39977D83F37AFFEA2D76EDEA4543DE870B2922F' +
          'BB6B6878');
          BankSymbol := BitmapFromString(15, 5, 'z78DA33B434B4343473B' +
          '100421364D2D9D2C9C9D4C4CDCDD5D1CCD0C2D5DCC5D00299ED04' +
          '8226C824B25E43B0998664990C213175116F32B2F9C824B2F9A4B' +
          'A1997F9B842865493890F734C9301ACE46928');
          BankCounter := BitmapFromString(30, 1, 'z78DA333530B' +
        '130B1304521413484044218DB05C6868A1A98184144CC0C4D5C8C' +
        '8C9149134B6333034B9C24C24C98692011430C930DA1A48BB1235' +
        '0171209001C2C2544');
        end;

      Procedure UberBright;

      Begin
        GameTab(11);
        Wait(400+random(12));
        If GetColor(712, 226) <> 16777215 Then
        Begin
          Mouse(712, 226, 2, 2, True);
          Wait(200+random(12));
        End;
      End;

      Procedure FindFeathers;
      begin
      ReadyDTMFiles;
      if(FindInvDTM(x, y, Bait)) then
        begin
        Feathers := True;
        end
        else
        begin
        Feathers := False;
        Writeln('Wheres your feathers?')
        terminatescript;
        end
      FreeDTM(Bait)
      end;

      Procedure FindRod;
      begin
      if(FindInvDTM(x, y, Rod)) then
        begin
        Reel := True
        end
        else
        begin
        Reel := False
        Writeln('Wheres your rod?')
        terminatescript;
        end
      FreeDTM(Rod)
      end;

      procedure FaceNorth;
      begin
        MakeCompass('N');
        Wait(500 + Random(500));
        MakeCompass('N');
        Wait(500 + Random(500));
        MakeCompass('N');
        Wait(500 + Random(500));
        HighestAngle;
        Writeln('Now Facing North')
      end;

      Procedure ClickBMP;
      begin
        Wait(1000+random(15))
        MMouse(x,y,0,0)
        Wait(30+random(8))
        Mouse(x+random(3),y+random(3),0,0,True)
      end;

      Procedure ClickSpotBMP;
      begin
        Wait(1000+random(15))
        MMouse(x,y,0,0)
        if(IsUpText('Lure')) then
        Wait(30+random(8))
        Mouse(x+random(3),y+random(3),0,0,True)
      end;

      Procedure FindFishSymbol;
      begin
        if(FindBitmap(FishSymbol, x,y)) then
        ClickBMP;
      end;

      Procedure FindFishSpot;
      begin
        if(FindBitmap(FishSpot, x, y)) then
        ClickSpotBMP;
      end;

      Procedure DropFish;
      begin
        if(Bank = False) and (InvFull) then
        DropTo(3,28)
        Writeln('Dropped fish, starting fishing again')
        Loads:=Loads+1
      end;

      Procedure BankTravel;
      begin
        If(Bank=True) and (InvFull) then
        SetRun(true); //PROBLEM <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
        MakeCompass('N')
        RadialRoadWalk(5921890, 90, 160, 60, 1, 1);
        FFlag(3)
        RadialRoadWalk(5921890, 105, 140, 60, 1, 1);
        FFlag(3)
        RadialRoadWalk(5855584, 75, 90, 60, 1, 1);
        FFlag(4)
        RadialRoadWalk(5855584, 55, 75, 60, 1, 1);
        FFlag(4)
        RadialRoadWalk(5855584, 67, 82, 70, 1, 1);
        FFlag(5)
        if(FindBitmap(BankSymbol, x, y)) then
        ClickBMP;
        end;

      Procedure OpenBank;
      begin
        if(FindBitmap(BankCounter,x,y)) then
        Wait(200+random(50))
        MMouse(x,y,0,0)
        Wait(50+random(12))
        Mouse(x,y,0,0,False)
        ChooseOption(x, y, 'quickly')
        Wait(1000+random(69))
        If (Bankscreen) then
        Writeln('Opened Bank')
      end;

      Procedure Deposit;
      begin
        if(FindInvDTM(Salmon,x,y)) then
        MMouse(x,y,0,0)
        Wait(500+Random(69))
        Mouse(x+random(3),y+random(3),0,0,False)
        ChooseOption('All')
        Wait(200+random(50))
        if(FindInvDTM(Trout,x,y)) then
        MMouse(x,y,0,0)
        Wait(500+random(69))
        Mouse(x+random(3),y+random(3),0,0,False)
        ChooseOption('All')
        Loads:= Loads+1
        Writeln('Load Successfully Banked')
      end;

    It needs to be Setrun(true). Also rename ure bank procedure, the SRL one is already called that and it won't work.

  4. #4
    Join Date
    Dec 2006
    Location
    Australia
    Posts
    698
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    SCAR Code:
    program FushnChups;
    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Fishing.scar}
     
    /////  >>Any-Key's Barbarian Village Fisher<< \\\\\
    ////Start at The Barbarian Village fishing spot\\\\\
    /// Set Bank to false if dropping is preferred  \\\\\
    //         Setup players and click play          \\\\\
     
    const
       Bank = True; //Set to false to drop fish
     
    var
       Loads: Integer;
       BanksCompleted: Integer;
       Feathers: Boolean;
       Reel: Boolean;
       Trout, Salmon, Rod, Bait, FishSpot: Integer;
       FishSymbol, BankSymbol, BankCounter: Integer;
     
      Procedure ReadyDTMFiles;
        begin
          Trout := DTMFromString('78DA63D462646010616240067BD6AD01D38C5' +
           '03EA331902580AA86858905558D32902543408D2290254C408D1A' +
           '90C54F408D0E90C549408D0190C545408D1911E680EC9226A0461' +
           '6BF1A0E200600EBD20501');
          Salmon := DTMFromString('78DA63346664605808C448607E5C209886893' +
           '26A0159AB50D5C064E16A3431CDC150630664CD24A0C610C89A81' +
           '5B0D3388B605B2E610506309642D20A0C604C85A49408D1A90B58' +
           'C801A7B206B327E35001ADB09C9');
          Rod := DTMFromString('78DA63D4646460A86362400699FE9C609A11C' +
           'A675400B29A50D5C064E16A1481AC6E026AB480AC56026AF480AC' +
           '7A026ACC81AC42026AF481AC22026AD481AC0AFC6A0024D4062A');
          Bait := DTMFromString('78DA63746264606060624006DBB6AD02D38C5' +
           '03EA32790C584AA0606E06A7C80AC6F8CF8D5B803599F09A8B105' +
           'B2FE1150630D643113708F0390C5C544D82E1EDC6AD840B415916' +
           'A0408A8F106B27E33E255030017AC094D');
          FishSpot := BitmapFromString(25, 24, 'z78DAC59641928420' +
           '0C45AF14BB85846540B8FF9106858516A62780D3B3F94559A53CF' +
           'F4F02F826C38C458116B6ADDA48C0EB8D6E18F975A38CDE6D37EA' +
           '909D6F15C1510816919C2B3AC8E33130DC68278FB59817ADFE974' +
           'B480C219DFD19F32A7F056218F44AD85DF44AE0B9307CCCCED306' +
           'E92DF12079884E9F9D35B83AF39DEC9802C574594BEE29A87CFE4' +
           '282B13AE7DDC3858A57EAECA404C7FAEE26C7CEBED353D53F7D74' +
           '3AD52E83ACB6F5D08025F7FAC31925554EAB94152F93E19B33B37' +
           '1ECE2D2CEB64A54B542DA1CE7B353131686DAAD52E5485EF5EEAE' +
           'D1DDB1A9ECF2A941D18A8EF53A59AAAB9ED78FCECC87082B556F7' +
           '682964AC8FF0C7E99A2EDCD6E4CDB7D8FFAA96B38BA4F43D5E99E' +
           'A1FC563A3FA17C97F3D83D558A4ABBCFE8BCB70AAFA4B9916F3B9' +
           'FE6C90CA144A55181A456FB84B7BF4C8693B6335FC50947BD75D6' +
           '80743A8B77D1791DA26AB5B8A43AC71F22FC0107903479');
          FishSymbol := BitmapFromString(15, 5, 'z78DA8DCE410E80300844D12B4D5BA' +
          '9BAA404EE7F2413675343AA6EFE82D217D061682636ACCCADA779' +
          '045B641F117987CDAFB84D2479D67257B28A0EFD90B9C9F9BB3FD' +
          'FF02EC337F347B39977D83F37AFFEA2D76EDEA4543DE870B2922F' +
          'BB6B6878');
          BankSymbol := BitmapFromString(15, 5, 'z78DA33B434B4343473B' +
          '100421364D2D9D2C9C9D4C4CDCDD5D1CCD0C2D5DCC5D00299ED04' +
          '8226C824B25E43B0998664990C213175116F32B2F9C824B2F9A4B' +
          'A1997F9B842865493890F734C9301ACE46928');
          BankCounter := BitmapFromString(30, 1, 'z78DA333530B' +
        '130B1304521413484044218DB05C6868A1A98184144CC0C4D5C8C' +
        '8C9149134B6333034B9C24C24C98692011430C930DA1A48BB1235' +
        '0171209001C2C2544');
        end;
     
      Procedure UberBright;
     
      Begin
        GameTab(11);
        Wait(400+random(12));
        If GetColor(712, 226) <> 16777215 Then
        Begin
          Mouse(712, 226, 2, 2, True);
          Wait(200+random(12));
        End;
      End;
     
      Procedure FindFeathers;
      begin
      ReadyDTMFiles;
      if(FindInvDTM(x, y, Bait)) then
        begin
        Feathers := True;
        end
        else
        begin
        Feathers := False;
        Writeln('Wheres your feathers?')
        terminatescript;
        end
      FreeDTM(Bait)
      end;
     
      Procedure FindRod;
      begin
      if(FindInvDTM(x, y, Rod)) then
        begin
        Reel := True
        end
        else
        begin
        Reel := False
        Writeln('Wheres your rod?')
        terminatescript;
        end
      FreeDTM(Rod)
      end;
     
      procedure FaceNorth;
      begin
        MakeCompass('N');
        Wait(500 + Random(500));
        MakeCompass('N');
        Wait(500 + Random(500));
        MakeCompass('N');
        Wait(500 + Random(500));
        HighestAngle;
        Writeln('Now Facing North')
      end;
     
      Procedure ClickBMP;
      begin
        Wait(1000+random(15))
        MMouse(x,y,0,0)
        Wait(30+random(8))
        Mouse(x+random(3),y+random(3),0,0,True)
      end;
     
      Procedure ClickSpotBMP;
      begin
        Wait(1000+random(15))
        MMouse(x,y,0,0)
        if(IsUpText('Lure')) then
        Wait(30+random(8))
        Mouse(x+random(3),y+random(3),0,0,True)
      end;
     
      Procedure FindFishSymbol;
      begin
        if(FindBitmap(FishSymbol, x,y)) then
        ClickBMP;
      end;
     
      Procedure FindFishSpot;
      begin
        if(FindBitmap(FishSpot, x, y)) then
        ClickSpotBMP;
      end;
     
      Procedure DropFish;
      begin
        if(Bank = False) and (InvFull) then
        DropTo(3,28)
        Writeln('Dropped fish, starting fishing again')
        Loads:=Loads+1
      end;
     
      Procedure BankTravel;
      begin
        If(Bank=True) and (InvFull) then
        SetRun(true); //PROBLEM <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
        MakeCompass('N')
        RadialRoadWalk(5921890, 90, 160, 60, 1, 1);
        FFlag(3)
        RadialRoadWalk(5921890, 105, 140, 60, 1, 1);
        FFlag(3)
        RadialRoadWalk(5855584, 75, 90, 60, 1, 1);
        FFlag(4)
        RadialRoadWalk(5855584, 55, 75, 60, 1, 1);
        FFlag(4)
        RadialRoadWalk(5855584, 67, 82, 70, 1, 1);
        FFlag(5)
        if(FindBitmap(BankSymbol, x, y)) then
        ClickBMP;
        end;
     
      Procedure OpenBank;
      begin
        if(FindBitmap(BankCounter,x,y)) then
        Wait(200+random(50))
        MMouse(x,y,0,0)
        Wait(50+random(12))
        Mouse(x,y,0,0,False)
        ChooseOption(x, y, 'quickly')
        Wait(1000+random(69))
        If (Bankscreen) then
        Writeln('Opened Bank')
      end;
     
      Procedure Deposit;
      begin
        if(FindInvDTM(Salmon,x,y)) then
        MMouse(x,y,0,0)
        Wait(500+Random(69))
        Mouse(x+random(3),y+random(3),0,0,False)
        ChooseOption('All')
        Wait(200+random(50))
        if(FindInvDTM(Trout,x,y)) then
        MMouse(x,y,0,0)
        Wait(500+random(69))
        Mouse(x+random(3),y+random(3),0,0,False)
        ChooseOption('All')
        Loads:= Loads+1
        Writeln('Load Successfully Banked')
      end;

    You need to rename

    Bugger alex beat me

  5. #5
    Join Date
    Apr 2007
    Location
    Australia
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Argh! Same thing again except

    SCAR Code:
    Procedure DepositItems;
      begin
        if(FindInvDTM(Salmon,x,y)) then
        MMouse(x,y,0,0)
        Wait(500+Random(69))
        Mouse(x+random(3),y+random(3),0,0,False)
        ChooseOption('All')
        Wait(200+random(50)) //Problem
        if(FindInvDTM(Trout,x,y)) then
        MMouse(x,y,0,0)
        Wait(500+random(69))
        Mouse(x+random(3),y+random(3),0,0,False)
        ChooseOption('All')
        Loads:= Loads+1
        TotalLoads:=TotalLoads+1
        Writeln('Load Successfully Banked')
      end;

    Right there. Sorry to be a pain in the tail hole

    I love you guys that helped before I really do appreciate it

  6. #6
    Join Date
    Dec 2006
    Location
    Australia
    Posts
    698
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Your chooseoption is wrong i think, ChooseOption(x,y,'Store All');

  7. #7
    Join Date
    Oct 2006
    Location
    Ireland
    Posts
    855
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I prefer to use clickoption anyways :P use mouse()to right click it and use clickoption('Name',1) The 1 menas main screen, 2 for inv i think.

  8. #8
    Join Date
    Apr 2007
    Location
    Australia
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I cant thank you guys enough. You've really helped me!!! Script coming soon.

  9. #9
    Join Date
    Apr 2007
    Location
    Australia
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Sup fellas,

    SCAR Code:
    Line 214: [Error] (17695:1): Identifier expected in script C:\Program Files\SCAR 3.0\Scripts\FushnChups V.1.scar

    I get this error when trying to compile my script... but I can't find anything wrong...

    I modified my ubertalker procedure to have a degree of random responses, but now it won't even compile... any help much appreciated.

    SCAR Code:
    Procedure UberTalker;
      begin
        If (InChat('Fish lvls') or
        InChat('Fish lvls?') or
        InChat('Fishin lvls') or
        InChat('Fishin lvls?') or
        InChat('Fishing lvls') or
        InChat('Fishn lvls?') or
        InChat('Fishing lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Fishing')))
      end;

        If (InChat('Hi' + (Players[CurrentPlayer].Nick))) or
        InChat('Hello' + (Players[CurrentPlayer].Nick)) or
        InChat('Sup' + (Players[CurrentPlayer].Nick)) or
        InChat('Howdy' + (Players[CurrentPlayer].Nick)) or
        InChat('Hey' + (Players[CurrentPlayer].Nick)) then
      begin
        Wait(2000+Random(200))
        Case Random(3) of
        0:TypeSend('Heya there')
        1:TypeSend('Wat up?')
        2:TypeSend('Howdy')
        3:TypeSend('Yo man')
      end;

        If (InChat('Omg bot')) or
        InChat('Reported') or
        InChat('Stop Botting' + (Players[CurrentPlayer].Nick)) or
        InChat('You Suck' + (Players[CurrentPlayer].Nick)) or
        InChat((Players[CurrentPlayer].Nick) + 'is a bot') then
      begin
        Wait(2000+Random(200))
        Case Random(3) of
        0:TypeSend('Lol k noob')
        1:TypeSend('As if man')
        2:TypeSend('Watever dude')
        3:TypeSend('If u say so')
      end;
      end;

      Procedure ClickBMP; // Line 214
      begin
        Wait(1000+random(15))
        MMouse(x,y,0,0)
        Wait(30+random(8))
        Mouse(x+random(3),y+random(3),0,0,True)
      end;

    LOOKING TO RELEASE NEW BETTER FUSH N CHUPS WITHIN THE WEEK!!!

  10. #10
    Join Date
    Apr 2007
    Location
    Australia
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    anyone need the whole script to see the error?

  11. #11
    Join Date
    Apr 2007
    Location
    Australia
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    sorry it works, i added ends for the case and it made it work. Thanks anyway guys

  12. #12
    Join Date
    Mar 2007
    Posts
    79
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Triple post ftw!

    Glad you found the error on your own. =]

  13. #13
    Join Date
    Apr 2007
    Location
    Australia
    Posts
    18
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol sry bout that I tried for about a week to find that thing... so annoying!!!

    NEW FUSHNCHUPS IN THE FISHING SECTION!!!

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