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.


Reply With Quote