RUBYSAPPHIREDLC/SOURCE/jirachievent - Fr/eonticket.asm
2023-11-17 08:59:19 -05:00

225 lines
2.9 KiB
NASM
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

INCLUDE "../macros.asm"
INCLUDE "../constants/items.asm"
INCLUDE "../constants/scriptcommandsjirachibattlefr.asm"
Mystery_Event
db CHECKSUM_CRC
dd 0 ; checksum placeholder
GBAPTR DataStart
GBAPTR DataEnd
DataStart:
db IN_GAME_SCRIPT
db 0,6 ; mossdeep
db 8 ; girl near rock
GBAPTR NormanScriptStart
GBAPTR NormanScriptEnd
db PRELOAD_SCRIPT
GBAPTR PreloadScriptStart
db END_OF_CHUNKS
GoSeeYourFather:
Text_EN La PIERRE BLANCHE à ALGATIA\n"
Text_EN "brille…@"
NormanScriptStart:
setvirtualaddress NormanScriptStart
db $5A
virtualmsgbox Wish
waitmsg
db $6E, $17, $8
release
compare LASTRESULT, 0
virtualgotoif 5, checkspot
Changemind:
virtualmsgbox Change
waitmsg
waitkeypress
release
end
CHANNELRNG
STORAGETABLE
TEMPJIRACHI
STRUCTURETABLEG
MEMCOPYJIRACHI
RETURN
FIXJIRACHIANDCOPY
CAPTUREJIRACHI
FINALSTORAGE
MOVEPLAYERDOWNRIGHT
MOVEPLAYERRIGHTFACEUP
MOVEPLAYERQUESTION
checkspot:
virtualmsgbox Youdo
waitmsg
waitkeypress
release
db $43
compare LASTRESULT, 5
virtualgotoif 2, NoRoom
copyvar $800B, $800D
getplayerpos $8000, $8001
compare $8000, $37
virtualgotoif 5, Movement2
Movement1:
applymovement $FF, $02029034
waitmovement $FF
Movement2:
applymovement $FF, $02029037
battle:
waitmovement $FF
pause $10
special $13B
sound $83
pause $10
pause $10
applymovement $FF, $0202903C
waitmovement $FF
sound $15
virtualmsgbox Pokemon
waitmsg
waitkeypress
release
playmoncry $199, $0
virtualmsgbox Jirachi
waitmsg
waitkeypress
release
callasm $02028DF1
callasm $02028FBD
waitmoncry
special $139
playsong $01CE, $0
waitstate
db $43
comparevar LASTRESULT, $800B
virtualgotoif 3, FlewAway
Catch:
callasm $02028FF1
killscript
NoRoom:
virtualmsgbox NoSpace
waitmsg
waitkeypress
release
end
FlewAway:
db $97, $01
db $97, $00
virtualmsgbox Flew
waitmsg
waitkeypress
release
end
Wish:
Text_EN "As-tu un vœu?@"
Youdo:
Text_EN "Vraiment? Alors touche\n"
Text_EN "la PIERRE BLANCHE!@"
Change:
Text_EN "Tu es sûr? Tout le monde a\n"
Text_EN "un voeux…@"
Flew:
Text_EN "Le JIRACHI sest envolé!@"
NoSpace:
Text_EN "Tu ne peux pas faire un vœu\n"
Text_EN "avec une équipe pleine!@"
Pokemon:
Text_EN "Oh? Un Pokémon?@"
Jirachi:
Text_EN "Voeeeu!@"
NormanScriptEnd:
PreloadScriptStart:
setvirtualaddress PreloadScriptStart
virtualloadpointer GoSeeYourFather
setbyte 2
end
DataEnd:
EOF