Results 1 to 8 of 8

Thread: [Error] (70:1): Semicolon (';') expected at line 69

  1. #1
    Join Date
    Dec 2011
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default [Error] (70:1): Semicolon (';') expected at line 69

    The script is not finished I just want to be able to compile what I have done so far.
    Thanks

    Simba Code:
    Code:
    program PowerChopper
    {$DEFINE SRL5}
      {$DEFINE SMART}
    
      {$i SRL/srl.simba}
      {$i SRL/SRL/misc/reports.simba}
      {$i SRL/SRL/misc/paintsmart.simba}
    
    Const
    
    //SRL Stats
      SRLStats_Username = '';
      SRLStats_Password = '';
    
    //General settings
      DebugMode    = True;    //On-screen debugging?
      SwitchWorlds = True;    //Switch worlds after a break?
    
    //Break settings
      BreakIn      = 302;     //How long before we take a break? (minutes)
      BreakFor     = 4;      //How long will we break for? (minutes)
    
     Procedure DeclarePlayers;
      begin
        HowManyPlayers := 1;
        NumberOfPlayers(HowManyPlayers);
        CurrentPlayer := 0;
        with Players[0] do
        begin
          Name        := '';
          Pass        := '';
          BoxRewards  := ['XP','xp','lamp'];
          LampSkill   := Skill_Agility;
          Active      := True;
        end;
      end;
           Function CheckAndClick(X,Y:Integer):Boolean;
    Begin
      MMouse(x, y, 5, 5);
      {Wait(100 + Random(50));
      If CountUpColor('B', 41, 5, 86, 24, 70, 140) Then}
      If WaitUpTextMulti(['Chop','hop'], 150) Then
      Begin
        Result:=True;
        GetMousePos(x, y);
        Mouse(x, y, 0, 0,True);
        Wait(100+Random(50));
        FFlag(0);
      End;
    End;
    Procedure Antiban;
    Begin
      Case Random(192) Of
        0: HoverSkill('Woodcutting', False);
        1: Begin PickUpMouse; SleepAndMoveMouse(3000 + Random(500)); End;
        2: ExamineInv;
        3: RandomAngle(1);
        4: Begin GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(Tab_Inv); End;
        5: HoverSkill('random', False);
      End;
    End;
    
     Procedure StatsGuise(wat:String);
    Begin
      Status(wat);
      Disguise(wat);
    End;
    Procedure Failsafe
    Begin;
      Players(CurrentPlayer).Lnc:-Reason;
      Logout;
      Stats_Commit
      //ProgressReport;
      TerminateScript;
     End;
     procedure SuperWindMouse(xs, ys, xe, ye, gravity, wind, minWait, maxWait, maxStep, targetArea: extended);
      var
        veloX,veloY,windX,windY,veloMag,dist,randomDist,lastDist,step: extended;
        lastX,lastY,MSP,W: integer;
        sqrt2,sqrt3,sqrt5: extended;
      begin
        MSP  := MouseSpeed;
        sqrt2:= sqrt(2);
        sqrt3:= sqrt(3);
        sqrt5:= sqrt(5);
        while hypot(xs - xe, ys - ye) > 1 do
        begin
          dist:= hypot(xs - xe, ys - ye);
          wind:= minE(wind, dist);
          if dist >= targetArea then
          begin
            windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
            windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
          end else
          begin
            windX:= windX / sqrt2;
            windY:= windY / sqrt2;
            if (maxStep < 3) then
            begin
              maxStep:= random(3) + 3.0;
            end else
            begin
              maxStep:= maxStep / sqrt5;
            end;
          end;
          veloX:= veloX + windX;
          veloY:= veloY + windY;
          veloX:= veloX + gravity * (xe - xs) / dist;
          veloY:= veloY + gravity * (ye - ys) / dist;
          if hypot(veloX, veloY) > maxStep then
          begin
            randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
            veloMag:= sqrt(veloX * veloX + veloY * veloY);
            veloX:= (veloX / veloMag) * randomDist;
            veloY:= (veloY / veloMag) * randomDist;
          end;
          lastX:= Round(xs);
          lastY:= Round(ys);
          xs:= xs + veloX;
          ys:= ys + veloY;
    
          case Random(50) of
            1..25: W := (MSP + (Random((MSP/4))));
            26..50: W := (MSP - (RandomRange((MSP/2), MSP-1)));
          end;
          if (W < 1) then
            W := 1;
    
          if (lastX <> Round(xs)) or (lastY <> Round(ys)) then
            MoveMouse(Round(xs), Round(ys));
    
          if not DebugMode then
            SMART_DrawDotsEx(False, [Point(lastX, lastY)], 65280);
    
          step:= hypot(xs - lastX, ys - lastY);
          wait(W);
          lastdist:= dist;
        end;
    
        if (Round(xe) <> Round(xs)) or (Round(ye) <> Round(ys)) then
          MoveMouse(Round(xe), Round(ye));
    
        MouseSpeed := MSP;
      end;
      Procedure HumanRandomMouse;
      var
        randSpeed: extended;
        x, y, firstSpeed: integer;
      begin
        case(Random(10)) of
          2..8:
          begin
            firstSpeed := mouseSpeed;
    
            mouseSpeed := RandomRange(5,10);
            randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
            GetMousePos(x, y);
            SuperWindMouse(x, y, RandomRange(x - 75, x + 75), RandomRange(y - 75, y + 75),
                    30, 55, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
    
            mouseSpeed := firstSpeed;
            Smart_ClearCanvas;
          end;
        end;
      end;
    
    Function IvyChop:Boolean;
    
     var
           x, y, PlusOne: Integer;
    Begin
    If FindObjCustom(var x, y ['Chop', 'Ivy', '2','C I'] ['4223833','10001823 ','4149077 ' ,'11186098  ' ,'3695950  ' ,'8291204  ' ,'3233860'],30 ): Then
       GetMousePos(x, y);
       Case Random(2)
       0: Mouse(x, y, 6, 6, True);
       1: Begin
          Mouse(X, Y, 6, 6, False);
          WaitOption('Chop',500)
          ChooseOption('Chop')
          End;
          End;
    
       End.
    
    
    Begin
    setup SRL;
    DeclarePlayers;
    Repeat
    IvyChop;
    Until(false);
    
    End.
    Last edited by afastngr; 05-16-2012 at 09:26 AM.

  2. #2
    Join Date
    Mar 2012
    Location
    Color :D
    Posts
    938
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You should post the whole script with simba tags. If not we can't know whats the problem.

  3. #3
    Join Date
    Dec 2006
    Location
    Program TEXAS home of AUTOERS
    Posts
    7,934
    Mentioned
    26 Post(s)
    Quoted
    237 Post(s)

    Default

    In order to actually give you good help, I'd like to see the line... or maybe the snippet of the procedure/function.

  4. #4
    Join Date
    Apr 2007
    Location
    Los Angeles
    Posts
    622
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Check line 55 and remove the semicolon from 69 and add it at 68. Didn't read the rest though. I'm in my phone
    Last edited by punkd; 05-16-2012 at 09:58 AM.

  5. #5
    Join Date
    Mar 2012
    Location
    Color :D
    Posts
    938
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Simba Code:
    Procedure Failsafe; //Always put semicolon after the name of the procedure
    Begin //Begin shouldn't have semicolon behind
      Players(CurrentPlayer).Lnc:-Reason;
      Logout;
      Stats_Commit
      //ProgressReport;
      TerminateScript;
     End;

  6. #6
    Join Date
    Dec 2011
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Quote Originally Posted by CephaXz View Post
    Simba Code:
    Procedure Failsafe; //Always put semicolon after the name of the procedure
    Begin //Begin shouldn't have semicolon behind
      Players(CurrentPlayer).Lnc:-Reason;
      Logout;
      Stats_Commit
      //ProgressReport;
      TerminateScript;
     End;
    [Error] C:\Simba\Includes\SRL/SRL/misc/smart.simba(3:1): Semicolon (';') expected at line 2
    Compiling failed.

    Code:
    {$DEFINE SRL_SMART}
    {$DEFINE SMART}
    {.loadlib libsmart}
    
    function IsKeyDown(C:Byte): Boolean;
    begin
      Result := SmartIsKeyDown(C);
    end;
    
    procedure MoveMouse(x, y: Integer);
    begin
      SmartMoveMouse(x, y);
    end;

  7. #7
    Join Date
    Mar 2012
    Location
    Color :D
    Posts
    938
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Semicolon after your program name.

  8. #8
    Join Date
    Dec 2011
    Posts
    39
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    fixed/
    Last edited by afastngr; 05-16-2012 at 11:28 AM.

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
  •