Results 1 to 5 of 5

Thread: Help with declareplayer

  1. #1
    Join Date
    Mar 2012
    Posts
    66
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Help with declareplayer

    Ive been watching YoHoJo's tutorial videos. Im on the 2nd one and when i try to compile my script it highlights declareplayers and it says: [Error] (19:1): Semicolon (';') expected at line 18
    Compiling failed.


    Ive tried copying and pasting the declareplayers part from another script thinking mabey i mistyped something when i typed it.

    This is what my script looks like right now:


    program PowerChoper;

    {$DEFINE SMART}
    {$i SRL\SRL.simba}




    Const
    SRLSTATS_USERNAME = ''; // SRL Stats Username.
    SRLSTATS_PASSWORD = ''; // SRL Stats Password.
    BreakEvery= 120; // How many minutes to break after.
    BreakFor= '5'; // How long to break for.
    NumbOfPlayers= 1; // How many players are you using?
    StartPlayer= 0; // Player to start autoing with.
    Version= '1.0' // NO TOUCHY!

    procedure DeclarePlayers;
    begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;
    with Players[0] do
    begin
    Name := ''; // Player Username
    Pass := ''; // Player Password
    Pin := ''; //Pin for bank
    Active := true;
    end;
    end;


    Procedure StatsGuise(wat:String);
    Begin
    Status(wat);
    Disguiese(wat);
    End;

    Function CheckAndClick(UpText:String; X,Y:Integer; Stronger:Boolean):Boolean;
    Begin
    MMouse(x, y, 5, 5);
    If WaitUptext(UpText, 5000) Then
    Begin
    GetMousePos(x, y);
    If Stronger Then
    Begin
    Mouse(X, Y, 0, 0, False);
    Result:=WaitOption('tta', 3000)
    End Else
    Begin
    Mouse(x, y, 0, 0,True);
    Wait(100+Random(50));
    FFlag(0);
    End;
    End;
    End;


    Procedure Antiban;
    Begin
    Case Random(250) Of
    0: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('Woodcut', False) GameTab(28) End;
    1: Begin StatsGuise('AntiBan') SleepAndMoveMouse(7000 + Random(500)); End;
    2: Begin StatsGuise('AntiBan') GameTab(tab_Inv) ExamineInv; GameTab(28); End;
    3: Begin StatsGuise('AntiBan') RandomAngle(1); End;
    4: Begin StatsGuise('AntiBan') GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(28); End;
    5: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('random', False); GameTab(28); End;
    End;
    End;

    Procedure FailSafe(Reason:String);
    Begin
    Players[CurrentPlayer].Loc:=Reason;
    Logout;
    Stats_Commit;
    //ProgressReport;
    TerminateScript;
    End;

    Function ChopDown;
    Var
    x, x:Integer;
    Begin
    //FindObjCustom(x, y, ['att', 'ack'], [123456, 345678], 5;
    If FindObjCustom(x, y, ['Chop', 'down', 'p d'], [725522, 988951, 2043700, 1384222], 30) Then
    WriteLn('FK YEA..IMA CHOP YU DOWN TREE');
    End











    begin
    SetupSRL:
    DeclarePlayers;
    Repeat
    ChopDown
    Until(false);
    end.



    Please comment with any ideas on what im doing wrong.





    Thank you tehq, I will do that.






    After doing what tehq suggested, its still saying the same thing when I try to compile it.
    My declareplayers now looks like this:

    procedure DeclarePlayers;
    begin
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);
    CurrentPlayer := 0;
    with Players[0] do
    begin
    Name := ''; // Player Username
    Pass := ''; // Player Password
    Pin := ''; //Pin for bank
    Active := true;
    Smart_Members := False;
    Smart_Server := 0;
    Smart_Signed := True;
    Smart_SuperDetail := False;
    end;
    end;
    Last edited by jkrules22; 03-18-2012 at 04:16 AM. Reason: Thanking tehq

  2. #2
    Join Date
    Nov 2011
    Location
    MA
    Posts
    545
    Mentioned
    3 Post(s)
    Quoted
    10 Post(s)

    Default

    add
    Simba Code:
    Smart_Members := False;
      Smart_Server := 0;
      Smart_Signed := True;
      Smart_SuperDetail := False;
    before SetupSRL and
    Simba Code:
    LoginPlayer;
    after DeclarePlayers

  3. #3
    Join Date
    Oct 2010
    Posts
    1,255
    Mentioned
    0 Post(s)
    Quoted
    15 Post(s)

    Default

    Try to post in the correct section.
    I'm back

  4. #4
    Join Date
    Jul 2010
    Posts
    1,115
    Mentioned
    1 Post(s)
    Quoted
    10 Post(s)

    Default

    Version= '1.0' // NO TOUCHY!
    you are missing a semicolon
    Version= '1.0'; // NO TOUCHY!
    should fix that part

  5. #5
    Join Date
    Mar 2012
    Posts
    66
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by bolshak25 View Post
    Version= '1.0' // NO TOUCHY!
    you are missing a semicolon
    Version= '1.0'; // NO TOUCHY!
    should fix that part
    Thanks you very much! that worked!

Thread Information

Users Browsing this Thread

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

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •