Version 2 (modified by 11 years ago) (diff) | ,
---|
Фишинг с пристани
Fishing:
for #y -6 6 1 for #x -6 6 1
:fishing
set lastobjectid 1099918735айди вашей удочки
set lastobjecttype 3519 тип вашей удочки
set lasttargetx charposx + #x
set lasttargety charposy + #y
set lasttargetkind 2 send F6 1000 ЛастОбжект?-ВаитФорТаргет?-ЛастТаргет?
set timer 0 while (lastmsg would you like) and (timer < 10000) wait 10
end_while
if_not (lastmsg are no fish) or (lastmsg fishing in) goto fishing
end_if
end_for
end_for
alarm