Results 1 to 3 of 3

Thread: Please help anti leech flyfisher 07

  1. #1
    Join Date
    Feb 2013
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default Please help anti leech flyfisher 07

    Hello,
    I read the tutorials on the forum and even the video series.
    After 4 hours of trying still no succes.
    I get Identifier expected at line 42
    I dont see what's wrong i see a begin a repeat even a untill and a end with a . because it is the last one
    Code:
    program FishFlyV2;
    
    {$I SRL/SRL.Simba}
    {$I SRL/SRL/Misc/Debug.Simba}
    {$I P07Include.Simba}
    
    
    var
    x,y: Integer;
    PBox: TBox;
    
    procedure Fish;
    begin
    If P07_FindObjCustom(x, y, ['ure'], [14597535, 14597268, 15123625, 14398100, 15058085], 5) Then
          ClickMouse2(mouse_left);
    Wait(Random(100))
    end;
    
    procedure DropFish;
    begin
     If P07_InvFull Then
      P07_DropAllExcept([1,2]);
     Wait(Random(45))
    end;
    
    function isFishing: Boolean;
    begin
       PBox := IntToBox(238, 169, 279, 217);
      Result := (AveragePixelShift(PBox, 250, 350) > 40);
    end;
    
    begin
    SetupP07Include;
     repeat
     P07_MakeCameraAngleHigh;
     P07_MakeCompassWest;
     Fish;
     while isFishing do;
     Wait(1);
     DropFish;
     //until(false);
    end.

  2. #2
    Join Date
    Apr 2012
    Posts
    92
    Mentioned
    0 Post(s)
    Quoted
    23 Post(s)

    Default

    Are you sure the repeat and until are correct? Have a look at http://villavu.com/forum/showthread.php?t=58935

  3. #3
    Join Date
    Feb 2013
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    nvm found it omg im a retard !

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
  •