Results 1 to 2 of 2

Thread: getting error

  1. #1
    Join Date
    Aug 2013
    Posts
    4
    Mentioned
    0 Post(s)
    Quoted
    3 Post(s)

    Default getting error

    error is at the bottom, still learning to code with simba.


    program powerchopper;
    {$DEFINE SMART}
    {$I SRL/SRL.Simba}
    {$1 \SRL\SRL\Misc\Stats.simba}
    Const

    SRLStats_Username = ''; // Your SRL Stats Username
    SRLStats_Password = ''; // Your SRL Stats Password
    BreakEvery = 120; //how many minute to break after
    Breakfor = 5; //how long to break for
    numberofplayers =1; //how many players are you using
    startplayer =0; //starting player
    Version= '1.0';



    procedure DeclarePlayers;
    var i:integer;
    begin
    NumberOfPlayers(NumbOfPlayers);
    CurrentPlayer := StartPlayer;
    for i := 0 to NumbOfPlayers-1 do
    Players[i].BoxRewards := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];

    with Players[0] do
    begin
    Name := ''; //Player username.
    Pass := ''; //Player password.
    Active := True;
    Integers[1] := 4; //1=BrightCopper,2=DarkCopper,3=Tin,4=Iron.
    Integers[2] := 4; //Seconds to try mining rock before clicking another.
    end;

    end;
    Procedure StatsGuise(wat:String);
    Begin
    Status(wat);
    Disguise(wat);
    End;
    Function CheckAndClick(UpText:String; X,Y:Integer; RClick:String):Boolean;
    Begin
    MMouse(x, y, 5, 5);
    If WaitUptext(UpText, 5000) Then
    Begin
    Result:=True;
    GetMousePos(x, y);

    Case RClick Of

    'R':
    Begin
    Mouse(x, y, 0, 0, False);
    WaitOption('ine', 2000);
    FFlag(0);
    End;

    'L':
    Begin
    Mouse(x, y, 0, 0,True);
    Wait(100+Random(50));
    FFlag(0);
    End;

    End;
    End;

    End;
    Procedure Antiban;
    Begin
    Case Random(5000) Of

    0:
    Begin
    PaintReport;
    HoverSkill('woodcutting', False);
    PaintReport;
    GameTab(Tab_Inv);
    PaintReport;
    End;
    1:
    Begin
    PaintReport;
    PickUpMouse;
    SleepAndMoveMouse(3000 + Random(500));
    PaintReport;
    PickUpMouse;
    End;
    2: ExamineInv;
    3:
    Begin
    PaintReport;
    RandomAngle(SRL_ANGLE_HIGH);
    PaintReport;
    SetAngle(SRL_ANGLE_HIGH);
    PaintReport;
    End;
    4:
    Begin
    PaintReport;
    GameTab(Tab_Stats);
    PaintReport;
    Wait(3000 + Random(500));
    PaintReport;
    GameTab(Tab_Inv);
    End;
    5:
    Begin
    PaintReport;
    HoverSkill('random', False);
    PaintReport;
    GameTab(Tab_Inv);
    End;

    End;
    End;
    function chopdown:Boolean;
    var
    x,y:integer;
    begin
    if FindObjCustom(x,y,['chop','down'],[1585986,1585986,1388091],30)then
    writeln('horray, we found it');
    end;
    begin
    setupSRL;
    DeclarePlayers;
    repeat
    chopdown;
    until(false);
    end.

    Exception in Script: Unknown compiler directives at 5:3

  2. #2
    Join Date
    Dec 2006
    Location
    Sydney, New South Wales, Australia
    Posts
    4,603
    Mentioned
    15 Post(s)
    Quoted
    42 Post(s)

    Default

    You have a {$1 instead of {$I on line four. The number 1, and the letter I, are not the same thing.
    You may contact me with any concerns you have.
    Are you a victim of harassment? Please notify me or any other staff member.

    | SRL Community Rules | SRL Live Help & Chat | Setting up Simba | F.A.Q's |

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
  •