//Macros has been loaded with http://o-player.narod.ru

set #idpole 1099514988 //id удочки
set #idshield 1099305952  //id щита
set #idveap 1099899127  //id оружия
set #hits str
set #gh 1099942112
set $s1 Sea Monster
:b
set #chx charposx
set #chy charposy
set #xn #chx - 6
set #xk #chx + 6
set #yn #chy - 6
set #yk #chy + 6
for #y #yn #yk 1
for #x #xn #xk 1
 set lasttargetx #x
 set lasttargety #y
 set lastobjectid 1099514988
set lasttargetkind 2
send f1 //lastobject lasttarget
 if (lastmsg = see) or (hits < 154)
wait 500
alarm
wait 500 
 set lastobjectid 1099899127 //Оружие.
 send f3 //lastobject
wait 1000
set lastobjectid 1099305952 //Щит.
send f3
wait 1000
wait 100
 send Tab
wait 100
send Tab 
wait 100
set #time timer
:w
set #temp timer - #time
if (lastmsg you have gained) or #temp > 120000
goto heal
end_if
while hits < 90
flash
set lastobjectid 1099337133
send F1
wait 2000
send Tab
wait 100
send Tab 
wait 100
end_while
goto w
:heal 
while hits < #hits
set lastobjectid 1099598032
 send F1
 wait 2000
 end_while
 end_if
 wait 2400
end_for
end_for
say !
wait 1000
say FORWARD
wait 18000
 say stop
 end_if
 goto b