bueno hice este script en XSE y no se por que no funciona, alguien me podría decir el error?

#dynamic 0x800000

#org @inicio
lock
faceplayer
checkflag 0x800
if 0x0 goto @chao
msgbox @toma 0x4
givepokemon 0x3c 0x5 0x0 0x0 0x0 0x0
#raw 0x68
msgbox @nombre 0x5
Compare LASTRESULT 0x1
if b_true gosub @name
msgbox @chao 0x6
setflag 0x800
release
end

#org @nombre
= ¿Quieres ponerle nombre?

#org @name
lock
special 0x009E
#raw 0x27
return

#org @toma
= Toma este POLIWAG

#org @chao
= ¡Cuida a ese POLIWAG!

Se los agradecería mucho:D