#dynamic 0x802C80

#org @start
checkflag 0x6000
if 0x1 goto @final
writebytetooffset 0x01 0x087F0000
writebytetooffset 0x02 0x087F0001
msgbox @texto_1 0x6
callstd 0x2
goto @introducir_contraseña

#org @introducir_contraseña
compare 0x4051 0x2
if 0x1 goto @contraseña_introducida
comparefarbytetobyte 0x4000130 0x7F
if 0x1 goto @comprobar_1
comparefarbytetobyte 0x4000130 0xDF
if 0x1 goto @comprobar_2
comparefarbytetobyte 0x4000130 0xBF
if 0x1 goto @comprobar_3
comparefarbytetobyte 0x4000130 0xEF
if 0x1 goto @comprobar_4
comparefarbytetobyte 0x4000130 0xF7
if 0x1 goto @comprobar_5
comparefarbytetobyte 0x4000130 0xFD
if 0x1 goto @comprobar_6
comparefarbytetobyte 0x4000130 0xFE
if 0x1 goto @comprobar_7
comparefarbytetobyte 0x4000130 0x01
if 0x1 goto @comprobar_8
comparefarbytetobyte 0x4000130 0x01
if 0x1 goto @comprobar_9
goto @introducir_contraseña

#org @comprobar_1
compare 0x4051 0x1
if 0x1 goto @comprobar_1_1
writebytetooffset 0x7F 0x087F1000
addvar 0x4051 0x1
goto @introducir_contraseña

#org @comprobar_1_1
writebytetooffset 0x7F 0x087F1001
addvar 0x4051 0x1
goto @introducir_contraseña

#org @comprobar_2
compare 0x4051 0x1
if 0x1 goto @comprobar_2_1
writebytetooffset 0xDF 0x087F1000
addvar 0x4051 0x1
goto @introducir_contraseña

#org @comprobar_2_1
writebytetooffset 0xDF 0x087F1001
addvar 0x4051 0x1
goto @introducir_contraseña

#org @comprobar_3
compare 0x4051 0x1
if 0x1 goto @comprobar_3_1
writebytetooffset 0xBF 0x087F1000
addvar 0x4051 0x1
goto @introducir_contraseña

#org @comprobar_3_1
writebytetooffset 0xBF 0x087F1001
addvar 0x4051 0x1
goto @introducir_contraseña

#org @comprobar_4
compare 0x4051 0x1
if 0x1 goto @comprobar_4_1
writebytetooffset 0xEF 0x087F1000
addvar 0x4051 0x1
goto @introducir_contraseña

#org @comprobar_4_1
writebytetooffset 0xEF 0x087F1001
addvar 0x4051 0x1
goto @introducir_contraseña

#org @comprobar_5
compare 0x4051 0x1
if 0x1 goto @comprobar_5_1
writebytetooffset 0xF7 0x087F1000
addvar 0x4051 0x1
goto @introducir_contraseña

#org @comprobar_5_1
writebytetooffset 0xF7 0x087F1001
addvar 0x4051 0x1
goto @introducir_contraseña

#org @comprobar_6
compare 0x4051 0x1
if 0x1 goto @comprobar_6_1
writebytetooffset 0xFD 0x087F1000
addvar 0x4051 0x1
goto @introducir_contraseña

#org @comprobar_6_1
writebytetooffset 0xFD 0x087F1001
addvar 0x4051 0x1
goto @introducir_contraseña

#org @comprobar_7
compare 0x4051 0x1
if 0x1 goto @comprobar_7_1
writebytetooffset 0xFE 0x087F1000
addvar 0x4051 0x1
goto @introducir_contraseña

#org @comprobar_7_1
writebytetooffset 0xFE 0x087F1001
addvar 0x4051 0x1
goto @introducir_contraseña

#org @comprobar_8
compare 0x4051 0x1
if 0x1 goto @comprobar_8_1
writebytetooffset 0x01 0x087F1000
addvar 0x4051 0x1
goto @introducir_contraseña

#org @comprobar_8_1
writebytetooffset 0x01 0x087F1001
addvar 0x4051 0x1
goto @introducir_contraseña

#org @comprobar_9
compare 0x4051 0x1
if 0x1 goto @comprobar_9_1
writebytetooffset 0x02 0x087F1000
addvar 0x4051 0x1
goto @introducir_contraseña

#org @comprobar_9_1
writebytetooffset 0x02 0x087F1001
addvar 0x4051 0x1
goto @introducir_contraseña

#org @contraseña_introducida
comparefarbytetobyte 0x087F0000 0x087F1000
if 0x0 goto @error_contraseña
sound @confirmation
goto @todo_correcto

#org @error_contraseña
msgbox @texto_2 0x6
callstd 0x2
end

#org @todo_correcto
sound @fanfare
msgbox @texto_3 0x6
callstd 0x2
givepokemon 0xFB 0x100 0xA 0x0 0x0 0x0
release
end

#org @final
msgbox @texto_4 0x6
callstd 0x2
release
end

#org @texto_1
= Oh una caja fuerte, pero está\ncerrada hay que abrirla con una\lcontraseña, vamos a\lintroducirla.." "Presiona\lcualquier tecla que creas que es\lla contraseña"

#org 08texto_3
= La contraseña es correcta, y la\ncaja se abriá...

#org @texto_2
= la contraseña introducida es\nincorrecta, vuelve a intentarlo\lmás tarde.