Aquí está :(
#dynamic 0x800000

#org @inicio
comparevars 0x7FFF 0x1
if 0x1 goto @inicio2
applymovement 0xFF @movimiento
waitmovement 0xFF
msgbox @mensaje
callstd 0x2
applymovement 0xFF @movimiento1
waitmovement 0xFF
msgbox @mensaje1
callstd 0x5
compare LASTRESULT 0x1
if 0x1 goto @no
msgbox @mensaje3
callstd 0x2
goto @no

#org @no
setmaptile 0x06 0x01 0x61 0x0
msgbox @mensaje4
callstd 0x2
applymovement 0x1 @movimiento1
waitmovement 0x1
msgbox @mensaje5
callstd 0x2
msgbox @mensaje6
callstd 0x2
msgbox @mensaje7
callstd 0x2
msgbox @mensaje8
callstd 0x2
setvar 0x7FFF 0x1
release
end

#org @movimiento
#raw 0x8
#raw 0x2
#raw 0xA
#raw 0xFE

#org @movimiento1
#raw 0x1
#raw 0x9
#raw 0x2
#raw 0xA
#raw 0xA
#raw 0xA
#raw 0x1
#raw 0x9
#raw 0xFE

#org @inicio2
release
end

PD: los mensajes no están, aposta