Code:program LazyFlyFisherman; {$I SRL/SRL.Simba} {$I SRL/SRL/Misc/Debug.Simba} {$I P07Include.Simba} var x,y: Integer; Text: TStringArray; procedure FindFish; begin repeat If P07_FindObjCustom(x, y, ['spot', 'Fishing'], [14597535, 14597268, 15123625, 14398100, 15058085], 5) Then ClickMouse2(mouse_left); Wait(RandomRange(8000,10000)) until(P07_InvFull) end; procedure DropFish; begin If P07_InvFull Then P07_DropAllExcept([1,2]); Wait(200 + Random(100)) end; begin SetupP07Include repeat FindFish; DropFish; until(false); end.
still getting error when i try to run script (it moves mouse to fishing spot then 07include pops up)
Error: Exception: Font [P07UpChars] not found. at line 108
The following DTMs were not freed: [0, 1]
line 108
WhiteT:=GetTextAtExWrap(8, 8, 80, 21, 0, 5, 1, 14541281, 55, 'P07UpChars');
I've got 07include extracted at fonts & includes


Reply With Quote







