RUBYSAPPHIREDLC/SOURCE/mewevent/eonticket.asm
2023-04-27 10:48:20 -04:00

206 lines
2.7 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/scriptcommandsmew.asm"
Mystery_Event
db CHECKSUM_CRC
dd 0 ; checksum placeholder
GBAPTR DataStart
GBAPTR DataEnd
DataStart:
db IN_GAME_SCRIPT
db 0,35 ; Route 119
db 41 ; item
GBAPTR NormanScriptStart
GBAPTR NormanScriptEnd
db MIX_RECORDS_ITEM
db 1 ; ???
IF REGION == REGION_DE
db 5 ; distribution limit from German debug ROM
ELSE
db 30 ; distribution limit from English release
ENDC
dw EON_TICKET
db PRELOAD_SCRIPT
GBAPTR PreloadScriptStart
db END_OF_CHUNKS
GoSeeYourFather:
Text_DE "Lauf und besuche deinen Vater in der\n"
Text_DE "ARENA von BLÜTENBURG CITY.@"
Text_EN "A mirage was spotted on route 120.\n"
Text_EN "There are reports of an elusive Pokémon.@"
NormanScriptStart:
setvirtualaddress NormanScriptStart
checkitemroom LUM_BERRY, 1
compare LASTRESULT, 0
virtualgotoif 1, NoRoomToGive
setwildbattle $97, $1E, $00AE
copyvarifnotzero $8000, LUM_BERRY
copyvarifnotzero $8001, 1
checkitemtype $0005
callstd 1
closeonkeypress
fadeout $3
virtualmsgbox Mirage
waitmsg
waitkeypress
release
setvar $8004, $000F
setvar $8005, $000F
setvar $8006, $0FF3
setvar $8007, $000F
special $13D
sound $13
waitstate
pause $28
special $13D
sound $13
waitstate
pause $28
callasm $2028E5D
callasm $2028E75
callasm $2028E8D
callasm $2028E8D ; change to 2028EA1 for JP mew
virtualmsgbox Pokemon
waitmsg
waitkeypress
release
virtualmsgbox Mew
playmoncry $97, $0
waitmoncry
waitmsg
waitkeypress
release
special $138
playsong $0166, $0
.delete_script
killscript
EVENTLEGAL2
METLOCATION
GAMEORIGIN
GAMELANG
NoRoomToGive:
virtualmsgbox ItemsPocketIsFull
waitmsg
waitkeypress
release
end
ItemsPocketIsFull:
Text_DE "Lauf und besuche deinen Vater in der\n"
Text_DE "ARENA von BLÜTENBURG CITY.@"
Text_EN "The Berry Pocket in your Bag\n"
Text_EN "is full.@"
Mirage:
Text_DE "Lauf und besuche deinen Vater in der@"
Text_EN "Whats that light? A mirage?@"
Pokemon:
Text_DE "Lauf und besuche deinen Vater in der@"
Text_EN "No, its a Pokémon!@"
Mew:
Text_DE "Lauf und besuche deinen Vater in der@"
Text_EN "Mew: Mew!@"
NormanScriptEnd:
PreloadScriptStart:
setvirtualaddress PreloadScriptStart
clearflag $03DB
virtualloadpointer GoSeeYourFather
setbyte 2
end
DataEnd:
EOF