Results 1 to 4 of 4

Thread: Need help with errors in my fishing script

  1. #1
    Join Date
    Jul 2008
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need help with errors in my fishing script

    I need help fixing errors in the first part of my fishing script its still under development and this is not the whole script


    SCAR Code:
    program LobbyFishNBank;
    {.Include SRL\SRL.SCAR}

    var
    x, y, DTM, LoadsDone, BankDTM, LobsterDTM:Integer; //Dont Touch unless you know what your doing


    procedure DeclarePlayers;
    begin
         SRLID:= '';  //Your SRL ID here if you dont have one register
         SRLPassword:= ''; //Your SRL Password here


         HowManyPlayers := 5; //How many players to bot with
         CurrentPlayer  := 0; //Player to start on
         NumberOfPlayers(HowManyPlayers); //Dont Touch this

         Players[0].Name :='';  //Username
         Players[0].Pass :='';  //Password
         Players[0].Nick :='';  //Use 3-4 letters of username not first letter Ex:Username would be 'ser'
         Players[0].Active:=True; //Is this player going to bot? (True=yes, False=no)?

         Players[1].Name :='';  //Username
         Players[1].Pass :='';  //Password
         Players[1].Nick :='';  //Use 3-4 letters of username not first letter Ex:Username would be 'ser'
         Players[1].Active:=True; //Is this player going to bot? (True=yes, False=no)?


         Players[2].Name :='';  //Username
         Players[2].Pass :='';  //Password
         Players[2].Nick :='';  //Use 3-4 letters of username not first letter Ex:Username would be 'ser'
         Players[2].Active:=True; //Is this player going to bot (True=yes, False=no)?

         Players[3].Name :='';  //Username
         Players[3].Pass :='';  //Password
         Players[3].Nick :='';  //Use 3-4 letters of username not first letter Ex:Username would be 'ser'
         Players[3].Active:=True; //Is this player going to bot (True=yes, False=no)?


         Players[4].Name :='';  //Username
         Players[4].Pass :='';  //Password
         Players[4].Nick :='';  //Use 3-4 letters of username not first letter Ex:Username would be 'ser'
         Players[4].Active:=True; //Is this player going to bot (True=yes, False=no)?
    end;



    procedure LoadDTMS(TheDTM:String); //Holds The DTMS
    begin
       Case LowerCase(TheDTM) of
       'lobster' : LobsterDTM := DTMFromString('78DA6334676060D0644001196622609A11CA6' +
           '7B40212320C688011558D2B909027A0C616489813506300248C08' +
           'A851031206F8D50000A7D5030A');
           

       'bank' : BankDTM := DTMFromString('78DA6354656060D06640011F9FE9806946289' +
           'F511D4888A1AAF9F74F18558D2990904357C387AA4617482832A0' +
           '01465435DAD8CC41B34B0348C8E3B70B0034FD0C01');
           
    end;

    procedure AntiRandoms; //Handles Randoms  Error here
    var
    i : Integer;
    begin
      Status('Doing AntiRandoms');
        for i := 0 to 3 do
          FindNormalRandoms;
          FindFightEx;
          FindNonInventoryRandoms;
          wait(1);
    end;


    procedure AntiBan; //Lots of antiban :D Error here to
      if not LoggedIn then Exit;
      case Random(9) of
        0:
          begin
            HoverSkill('Fishing', False)
          end;
        1:
          begin
            GameTab(1 + Random(13));
            wait(800 + Random(700));
            Gametab(4);
          end;
        2:
          begin
            BoredHuman;
          end;
        3:
          begin
          AlmostLogout;
          end;
        4:
          begin
          PickUpMouse
          end;
        5:
          begin
          RandomRClick;
          end;
      end;
    end;




    begin
      SetUpSRL;
      LoginPlayer;
      AntiRandoms;
      AntiBan;
    end.

    Line 62: [Error] (12669:1): Identifier expected in script

  2. #2
    Join Date
    Dec 2006
    Posts
    908
    Mentioned
    1 Post(s)
    Quoted
    17 Post(s)

    Default

    SCAR Code:
    procedure LoadDTMS(TheDTM:String); //Holds The DTMS
    begin
       Case LowerCase(TheDTM) of
       'lobster' : LobsterDTM := DTMFromString('78DA6334676060D0644001196622609A11CA6' +
           '7B40212320C688011558D2B909027A0C616489813506300248C08' +
           'A851031206F8D50000A7D5030A');


       'bank' : BankDTM := DTMFromString('78DA6354656060D06640011F9FE9806946289' +
           'F511D4888A1AAF9F74F18558D2990904357C387AA4617482832A0' +
           '01465435DAD8CC41B34B0348C8E3B70B0034FD0C01');

    end;

    Problem?

    SCAR Code:
    procedure LoadDTMS(TheDTM:String); //Holds The DTMS
    begin
       Case LowerCase(TheDTM) of
       'lobster' : LobsterDTM := DTMFromString('78DA6334676060D0644001196622609A11CA6' +
           '7B40212320C688011558D2B909027A0C616489813506300248C08' +
           'A851031206F8D50000A7D5030A');


       'bank' : BankDTM := DTMFromString('78DA6354656060D06640011F9FE9806946289' +
           'F511D4888A1AAF9F74F18558D2990904357C387AA4617482832A0' +
           '01465435DAD8CC41B34B0348C8E3B70B0034FD0C01');
       end;

    end;

    There you go, try it now.

    If you need more help, i am happy to do so.

  3. #3
    Join Date
    Apr 2007
    Posts
    994
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program LobbyFishNBank;
    {.Include SRL\SRL.SCAR}

    var
    x, y, DTM, LoadsDone, BankDTM, LobsterDTM:Integer; //Dont Touch unless you know what your doing


    procedure DeclarePlayers;
    begin
         SRLID:= '';  //Your SRL ID here if you dont have one register
         SRLPassword:= ''; //Your SRL Password here


         HowManyPlayers := 5; //How many players to bot with
         CurrentPlayer  := 0; //Player to start on
         NumberOfPlayers(HowManyPlayers); //Dont Touch this

         Players[0].Name :='';  //Username
         Players[0].Pass :='';  //Password
         Players[0].Nick :='';  //Use 3-4 letters of username not first letter Ex:Username would be 'ser'
         Players[0].Active:=True; //Is this player going to bot? (True=yes, False=no)?

         Players[1].Name :='';  //Username
         Players[1].Pass :='';  //Password
         Players[1].Nick :='';  //Use 3-4 letters of username not first letter Ex:Username would be 'ser'
         Players[1].Active:=True; //Is this player going to bot? (True=yes, False=no)?


         Players[2].Name :='';  //Username
         Players[2].Pass :='';  //Password
         Players[2].Nick :='';  //Use 3-4 letters of username not first letter Ex:Username would be 'ser'
         Players[2].Active:=True; //Is this player going to bot (True=yes, False=no)?

         Players[3].Name :='';  //Username
         Players[3].Pass :='';  //Password
         Players[3].Nick :='';  //Use 3-4 letters of username not first letter Ex:Username would be 'ser'
         Players[3].Active:=True; //Is this player going to bot (True=yes, False=no)?


         Players[4].Name :='';  //Username
         Players[4].Pass :='';  //Password
         Players[4].Nick :='';  //Use 3-4 letters of username not first letter Ex:Username would be 'ser'
         Players[4].Active:=True; //Is this player going to bot (True=yes, False=no)?
    end;



    procedure LoadDTMS(TheDTM:String); //Holds The DTMS
    begin
       Case LowerCase(TheDTM) of
       'lobster' : LobsterDTM := DTMFromString('78DA6334676060D0644001196622609A11CA6' +
           '7B40212320C688011558D2B909027A0C616489813506300248C08' +
           'A851031206F8D50000A7D5030A');


       'bank' : BankDTM := DTMFromString('78DA6354656060D06640011F9FE9806946289' +
           'F511D4888A1AAF9F74F18558D2990904357C387AA4617482832A0' +
           '01465435DAD8CC41B34B0348C8E3B70B0034FD0C01');
       end;               //All cases need an end.

    end;

    procedure AntiRandoms; //Handles Randoms  Error here
    var
    i : Integer;
    begin
      Status('Doing AntiRandoms');
      for i := 0 to 3 do                   //for to do with more than one line? Add begin + end.
      begin
        FindNormalRandoms;
        //FindFightEx;
        FindNonInventoryRandoms;
        wait(1);
      end;
    end;


    procedure AntiBan; //Lots of antiban :D Error here to
    begin            //BEGIN!!!
      if not LoggedIn then Exit;
      case Random(9) of
        0:
          begin
            HoverSkill('Fishing', False)
          end;
        1:
          begin
            GameTab(1 + Random(13));
            wait(800 + Random(700));
            Gametab(4);
          end;
        2:
          begin
            BoredHuman;
          end;
        3:
          begin
          AlmostLogout;
          end;
        4:
          begin
          PickUpMouse
          end;
        5:
          begin
          RandomRClick;
          end;
      end;
    end;




    begin
      SetUpSRL;
      LoginPlayer;
      AntiRandoms;
      AntiBan;
    end.

    A lot of little errors fixed. Read the comments, then press the blue tick on the top right corner
    [QUOTE]<GoF`> oh no its Raymooond
    <Raymooond> Heya
    <GoF`> is it ray or some other ray?
    <LeeLokHin> No idea
    <LeeLokHin> Raymond, what's the game you like the most?
    <Raymooond> Runescape
    <-- LeeLokHin has kicked Raymooond from #srl (Faker.)[/QUOTE]

  4. #4
    Join Date
    Jul 2008
    Posts
    21
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    thanks for help guys one step closer o makeing this work now just need to put in my walking procedures oh and + rep to you both

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Replies: 6
    Last Post: 04-16-2009, 06:40 AM
  2. Fishing Script Help
    By wand2658 in forum OSR Help
    Replies: 5
    Last Post: 03-02-2009, 09:58 PM
  3. Help with Fishing Script
    By joelster134 in forum OSR Help
    Replies: 4
    Last Post: 10-04-2008, 11:24 PM
  4. Help with Net Fishing Script
    By asdf101 in forum OSR Help
    Replies: 4
    Last Post: 01-19-2008, 02:02 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
  •