Results 1 to 4 of 4

Thread: Need help

  1. #1
    Join Date
    May 2012
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Need help

    Hi lols. I am creating a powerchopper. But when compiling at middle getting this error.

    [Error] (1:1): Unexpected end of file at line 0
    Compiling failed.

    Simba Code:
    Program PowerChopper;
    {$DEFINE SMART}
    {$i srl/srl.simba}


    Const
     SRLStats_Username = '';
     SRLStats_Password = '';
     BreakEvery        = '';
     BreakFor          = '';
     Version           = '1.0';

    Procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

    With Players[0] do
    begin
      Players[0].Name :='';
      Players[0].Pass :='';
      Players[0].Nick :='';
      Players[0].Active:=True;
    end;

    With Players[1] do
    begin
      Players[1].Name :='';
      Players[1].Pass :='';
      Players[1].Nick :='';
      Players[1].Active:=True;
    end;
    End;


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

    Function CheckAndClick(Uptext, Option:String; X,Y:Integer; RClick:Boolean) :Boolean;
    begin
     MMouse(x, y, 5, 5);
     If WaitUptext(UpText, 1500+Random(500)) Then
     Begin
      Result:=True;
      GetMousePos(x, y);
      If RClick Then
      Begin
       Mouse(x, y, 0, 0, False);
       Result:= WaitOption(Option, 2000);
       If Result Then FFlag(0);
      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('Woodcutting', False)GameTab(20) End;
      1: Begin StatsGuise('AntiBan')SleepAndMoveMouse(7000 + Random(500)); End;
      2: Begin StatsGuise('AntiBan')GameTab(tab_Inv) ExamineInv; GameTab(20); End;
      3: Begin StatsGuise('AntiBan')RandomAngle(1);End;
     End;
    End;

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

    Function ChopTree:Boolean;
    Var
      X, Y: Integer;
    Begin
     //FindObjCustom(x, y, ['', '']
     If findObjCustom(X,Y, ['Chop','down', 'p d'], [1058866, 3493208, 3098710, 1450018], 30) Then
     WriteLn('Ureka, We found a tree');


    begin
     SetUpSrl;
     ActivateClient;
     DeclarePlayers;
     LoginPlayer;
     Repeat
      ChopTree;
     Until(false);
    end;

    Please help me.

  2. #2
    Join Date
    Mar 2012
    Location
    Australia
    Posts
    625
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    no "end." at the end?

    also in the antiban section, a unbolded end, need a space to make it bold, dont know if this affects it, but try it.

    and also no end in the chop tree function.
    Bored of playing rs, and bored of botting it, why am i here?

  3. #3
    Join Date
    May 2012
    Posts
    31
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Thanks lol. Got fixed that error.

  4. #4
    Join Date
    Mar 2012
    Location
    Australia
    Posts
    625
    Mentioned
    0 Post(s)
    Quoted
    18 Post(s)

    Default

    you're welcome!
    Bored of playing rs, and bored of botting it, why am i here?

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
  •