Find content
Male
set %FishingPole XHF
set %xCoord1 2907
set %yCoord1 652
set %xCoord2 2907
set %yCoord2 638
set %xCoord3 2907
set %yCoord3 624
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Start:
move %xCoord1 %yCoord1
gosub Fishing
move %xCoord2 %yCoord2
gosub Fishing
move %xCoord3 %yCoord3
gosub Fishing
goto start
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub Fishing
for %xx -5 5
{
for %yy -5 5
{
finditem %FishingPole
set #lobjectid #findid
event macro 17 0
target 20
set #ltargetx #charposx + %xx
set #ltargety #charposy + %yy
set #ltargetkind 3
event macro 22 0
wait 4
set %Overtime #SCNT + 25
gosub Scan
}
}
return
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub Scan
Scan:
scanjournal %Cnt
if That_is_too_far in #sysmsg
return
if There_are_no in #sysmsg
return
if Your_skill_in in #journal
return
if You_cannot_fish in #sysmsg
return
if Try_fishing_elsewhere in #sysmsg
return
if You_fail_to_catch in #sysmsg
return
if #SCNT >= %Overtime
return
goto Scan
return
Просто подойди к воде и корабляне надо )
