Preston

for #y -6 6 1
for #x -6 6 1
:fishing
set lastobjectid 1073769642
set lastobjecttype 3519
set lasttargetx charposx + #x
set lasttargety charposy + #y
set lasttargetkind 2
send F2 1000 // LastObject, WaitForTarget, LastTarget
set timer 0
while (lastmsg would you like) and (timer < 10000)
wait 10
end_while
if lastmsg you pull out
drag 321, 235 314, 194 all // перетаскивание рыбы
wait 1000
end_if
if hits < str
say guards
end_if
if_not (lastmsg are no fish) or (lastmsg fishing in)
goto fishing
end_if
if hits < str
say guards
end_if
if wght > 400
stop_script
end_if
end_for
end_for
alarm
end_script
Когда с кора*** ловишь, делаешь радиус деиствия то есть ловли чуть поменьше и все, если так работать не будет.