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

set $anm An mani
set $ane An Ex Por
set $por Por Ort Grav
set $inpor In Vas Por
set $inpr In Por Ylem
set $u you see
set $inhur In Hur Jux Ylem
set $vas Vas Corp Por
set $iep In Ex Grav 

set #basex 1249 //base X
set #basey 1919 //nase y
start_script 0
:lol
if ( charposx <> #basex ) or ( charposy <> #basey )
if (lastmsg = $ignor1)
goto lol
end_if 
if ( lastmsg = $iep ) or( lastmsg = $inpr ) or ( lastmsg = $inpor ) or ( lastmsg = $anm ) or ( lastmsg = $por ) or ( lastmsg = $ane ) or ( hits < str ) or ( lastmsg = $u ) or ( lastmsg = $inhur ) or ( lastmsg = $vas )
pause_script 0
send f2 1500 //recoll book
end_if
if lastmsg fizzle
send f4 1500 //recoll scroll
end_if
if hits < 100
send f4 1500 //invisiblr, recoll scroll 
end_if
end_if