pokecrystal/maps/Route36NationalParkgate.asm

877 lines
16 KiB
NASM

Route36NationalParkgate_MapScriptHeader:
.MapTriggers:
db 3
; triggers
dw .Trigger1, $0000
dw .Trigger2, $0000
dw .Trigger3, $0000
.MapCallbacks:
db 2
; callbacks
dbw 5, .CheckIfContestRunning
dbw 2, .CheckIfContestAvailable
.Trigger1:
end
.Trigger2:
end
.Trigger3:
priorityjump .LeftTheContestEarly
end
.CheckIfContestRunning:
checkflag ENGINE_BUG_CONTEST_TIMER
iftrue .BugContestIsRunning
dotrigger $0
return
.BugContestIsRunning:
dotrigger $2
return
.CheckIfContestAvailable:
checkevent EVENT_WARPED_FROM_ROUTE_35_NATIONAL_PARK_GATE
iftrue .Return
checkcode VAR_WEEKDAY
if_equal TUESDAY, .SetContestOfficer
if_equal THURSDAY, .SetContestOfficer
if_equal SATURDAY, .SetContestOfficer
checkflag ENGINE_BUG_CONTEST_TIMER
iftrue .SetContestOfficer
disappear $2
appear $d
return
.SetContestOfficer:
appear $2
disappear $d
.Return:
return
.LeftTheContestEarly:
spriteface PLAYER, UP
loadfont
checkcode VAR_CONTESTMINUTES
addvar $1
RAM2MEM $0
writetext UnknownText_0x6b284
yesorno
iffalse .GoBackToContest
writetext UnknownText_0x6b2c5
closetext
loadmovesprites
special Special_FadeBlackQuickly
special Special_ReloadSpritesNoPalettes
scall .CopyContestants
disappear $2
appear $d
applymovement PLAYER, MovementData_0x6add1
pause 15
special Special_FadeInQuickly
jumpstd bugcontestresults
.GoBackToContest:
writetext UnknownText_0x6b300
closetext
loadmovesprites
spriteface PLAYER, LEFT
playsound SFX_EXIT_BUILDING
special FadeBlackBGMap
waitbutton
warpfacing $2, NATIONAL_PARK_BUG_CONTEST, $21, $12
end
.CopyContestants:
checkevent EVENT_BUG_CATCHING_CONTESTANT_1A
iftrue .Not1
appear $3
.Not1:
checkevent EVENT_BUG_CATCHING_CONTESTANT_2A
iftrue .Not2
appear $4
.Not2:
checkevent EVENT_BUG_CATCHING_CONTESTANT_3A
iftrue .Not3
appear $5
.Not3:
checkevent EVENT_BUG_CATCHING_CONTESTANT_4A
iftrue .Not4
appear $6
.Not4:
checkevent EVENT_BUG_CATCHING_CONTESTANT_5A
iftrue .Not5
appear $7
.Not5:
checkevent EVENT_BUG_CATCHING_CONTESTANT_6A
iftrue .Not6
appear $8
.Not6:
checkevent EVENT_BUG_CATCHING_CONTESTANT_7A
iftrue .Not7
appear $9
.Not7:
checkevent EVENT_BUG_CATCHING_CONTESTANT_8A
iftrue .Not8
appear $a
.Not8:
checkevent EVENT_BUG_CATCHING_CONTESTANT_9A
iftrue .Not9
appear $b
.Not9:
checkevent EVENT_BUG_CATCHING_CONTESTANT_10A
iftrue .Not10
appear $c
.Not10:
special UpdateSprites
end
Route36OfficerScriptContest:
checkcode VAR_WEEKDAY
if_equal SUNDAY, _ContestNotOn
if_equal MONDAY, _ContestNotOn
if_equal WEDNESDAY, _ContestNotOn
if_equal FRIDAY, _ContestNotOn
faceplayer
loadfont
checkflag ENGINE_DAILY_BUG_CONTEST
iftrue Route36Officer_ContestHasConcluded
scall Route36Parkgate_DayToText
writetext UnknownText_0x6add5
yesorno
iffalse .DecidedNotToJoinContest
checkcode VAR_PARTYCOUNT
if_greater_than $1, .LeaveMonsWithOfficer
special CheckFirstMonFainted
clearevent EVENT_LEFT_MONS_WITH_CONTEST_OFFICER
.ResumeStartingContest:
setflag ENGINE_BUG_CONTEST_TIMER
special PlayMapMusic
writetext UnknownText_0x6ae87
keeptextopen
waitbutton
writetext UnknownText_0x6aeb1
playsound SFX_ITEM
waitbutton
writetext UnknownText_0x6aecc
closetext
loadmovesprites
setflag ENGINE_BUG_CONTEST_TIMER
special Special_GiveParkBalls
spriteface PLAYER, LEFT
playsound SFX_EXIT_BUILDING
special FadeBlackBGMap
waitbutton
special Special_SelectRandomBugContestContestants
warpfacing $2, NATIONAL_PARK_BUG_CONTEST, $21, $12
end
.LeaveMonsWithOfficer:
checkcode VAR_PARTYCOUNT
if_less_than $6, .ContinueLeavingMons
checkcode VAR_BOXSPACE
if_equal $0, .BoxFull
.ContinueLeavingMons:
special CheckFirstMonIsEgg
if_equal $1, .FirstMonIsEgg
writetext UnknownText_0x6afb0
yesorno
iffalse .RefusedToLeaveMons
special CheckFirstMonFainted
iftrue .FirstMonIsFainted
setevent EVENT_LEFT_MONS_WITH_CONTEST_OFFICER
writetext UnknownText_0x6b021
keeptextopen
writetext UnknownText_0x6b055
playsound SFX_GOT_SAFARI_BALLS
waitbutton
keeptextopen
jump .ResumeStartingContest
.DecidedNotToJoinContest:
writetext UnknownText_0x6b0c6
closetext
loadmovesprites
end
.RefusedToLeaveMons:
writetext UnknownText_0x6b081
closetext
loadmovesprites
end
.FirstMonIsFainted:
writetext UnknownText_0x6b0f2
closetext
loadmovesprites
end
.BoxFull:
writetext UnknownText_0x6b166
closetext
loadmovesprites
end
.FirstMonIsEgg:
writetext UnknownText_0x6b209
closetext
loadmovesprites
end
Route36Officer_ContestHasConcluded:
checkevent EVENT_CONTEST_OFFICER_HAS_SUN_STONE
iftrue .Sunstone
checkevent EVENT_CONTEST_OFFICER_HAS_EVERSTONE
iftrue .Everstone
checkevent EVENT_CONTEST_OFFICER_HAS_GOLD_BERRY
iftrue .GoldBerry
checkevent EVENT_CONTEST_OFFICER_HAS_BERRY
iftrue .Berry
writetext UnknownText_0x6b32b
closetext
loadmovesprites
end
.Sunstone:
writetext UnknownText_0x6b97f
keeptextopen
verbosegiveitem SUN_STONE, 1
iffalse .BagFull
clearevent EVENT_CONTEST_OFFICER_HAS_SUN_STONE
loadmovesprites
end
.Everstone:
writetext UnknownText_0x6b97f
keeptextopen
verbosegiveitem EVERSTONE, 1
iffalse .BagFull
clearevent EVENT_CONTEST_OFFICER_HAS_EVERSTONE
loadmovesprites
end
.GoldBerry:
writetext UnknownText_0x6b97f
keeptextopen
verbosegiveitem GOLD_BERRY, 1
iffalse .BagFull
clearevent EVENT_CONTEST_OFFICER_HAS_GOLD_BERRY
loadmovesprites
end
.Berry:
writetext UnknownText_0x6b97f
keeptextopen
verbosegiveitem BERRY, 1
iffalse .BagFull
clearevent EVENT_CONTEST_OFFICER_HAS_BERRY
loadmovesprites
end
.BagFull:
writetext UnknownText_0x6b910
closetext
loadmovesprites
end
_ContestNotOn:
jumptextfaceplayer UnknownText_0x6b370
OfficerScript_0x6acf4:
faceplayer
loadfont
checkflag ENGINE_DAILY_BUG_CONTEST
iftrue Route36Officer_ContestHasConcluded
writetext UnknownText_0x6b370
closetext
loadmovesprites
end
Route36Parkgate_DayToText:
jumpstd daytotext
end
YoungsterScript_0x6ad06:
faceplayer
loadfont
checkevent EVENT_GAVE_KURT_APRICORNS
iffalse UnknownScript_0x6ad14
writetext UnknownText_0x6b399
closetext
loadmovesprites
end
UnknownScript_0x6ad14:
writetext UnknownText_0x6b3c4
closetext
loadmovesprites
end
YoungsterScript_0x6ad1a:
faceplayer
loadfont
checkevent EVENT_GAVE_KURT_APRICORNS
iffalse UnknownScript_0x6ad28
writetext UnknownText_0x6b40f
closetext
loadmovesprites
end
UnknownScript_0x6ad28:
writetext UnknownText_0x6b440
closetext
loadmovesprites
end
RockerScript_0x6ad2e:
faceplayer
loadfont
checkevent EVENT_GAVE_KURT_APRICORNS
iffalse UnknownScript_0x6ad3c
writetext UnknownText_0x6b462
closetext
loadmovesprites
end
UnknownScript_0x6ad3c:
writetext UnknownText_0x6b496
closetext
loadmovesprites
end
PokefanMScript_0x6ad42:
faceplayer
loadfont
checkevent EVENT_GAVE_KURT_APRICORNS
iffalse UnknownScript_0x6ad50
writetext UnknownText_0x6b4da
closetext
loadmovesprites
end
UnknownScript_0x6ad50:
writetext UnknownText_0x6b50a
closetext
loadmovesprites
end
YoungsterScript_0x6ad56:
faceplayer
loadfont
checkevent EVENT_GAVE_KURT_APRICORNS
iffalse UnknownScript_0x6ad64
writetext UnknownText_0x6b54e
closetext
loadmovesprites
end
UnknownScript_0x6ad64:
writetext UnknownText_0x6b57c
closetext
loadmovesprites
end
YoungsterScript_0x6ad6a:
faceplayer
loadfont
checkevent EVENT_GAVE_KURT_APRICORNS
iffalse UnknownScript_0x6ad78
writetext UnknownText_0x6b5b0
closetext
loadmovesprites
end
UnknownScript_0x6ad78:
writetext UnknownText_0x6b5dd
closetext
loadmovesprites
end
LassScript_0x6ad7e:
faceplayer
loadfont
checkevent EVENT_GAVE_KURT_APRICORNS
iffalse UnknownScript_0x6ad8c
writetext UnknownText_0x6b64b
closetext
loadmovesprites
end
UnknownScript_0x6ad8c:
writetext UnknownText_0x6b698
closetext
loadmovesprites
end
YoungsterScript_0x6ad92:
faceplayer
loadfont
checkevent EVENT_GAVE_KURT_APRICORNS
iffalse UnknownScript_0x6ada0
writetext UnknownText_0x6b6b8
closetext
loadmovesprites
end
UnknownScript_0x6ada0:
writetext UnknownText_0x6b6e9
closetext
loadmovesprites
end
YoungsterScript_0x6ada6:
faceplayer
loadfont
checkevent EVENT_GAVE_KURT_APRICORNS
iffalse UnknownScript_0x6adb4
writetext UnknownText_0x6b71b
closetext
loadmovesprites
end
UnknownScript_0x6adb4:
writetext UnknownText_0x6b740
closetext
loadmovesprites
end
YoungsterScript_0x6adba:
faceplayer
loadfont
checkevent EVENT_GAVE_KURT_APRICORNS
iffalse UnknownScript_0x6adc8
writetext UnknownText_0x6b76f
closetext
loadmovesprites
end
UnknownScript_0x6adc8:
writetext UnknownText_0x6b7af
closetext
loadmovesprites
end
UnknownScript_0x6adce:
jumptext UnknownText_0x6b84c
MovementData_0x6add1:
big_step_down
big_step_right
turn_head_up
step_end
UnknownText_0x6add5:
text "Today's @"
text_from_ram StringBuffer3
text "."
line "That means the"
para "Bug-Catching Con-"
line "test is on today."
para "The rules are sim-"
line "ple."
para "Using one of your"
line "#MON, catch a"
para "bug #MON to be"
line "judged."
para "Would you like to"
line "give it a try?"
done
UnknownText_0x6ae87:
text "Here are the PARK"
line "BALLS for the"
cont "Contest."
done
UnknownText_0x6aeb1:
text "<PLAYER> received"
line "20 PARK BALLS."
done
UnknownText_0x6aecc:
text "The person who"
line "gets the strong-"
cont "est bug #MON"
cont "is the winner."
para "You have 20"
line "minutes."
para "If you run out of"
line "PARK BALLS, you're"
cont "done."
para "You can keep the"
line "last #MON you"
cont "catch as your own."
para "Go out and catch"
line "the strongest bug"
para "#MON you can"
line "find!"
done
UnknownText_0x6afb0:
text "Uh-oh…"
para "You have more than"
line "one #MON."
para "You'll have to use"
line "@"
text_from_ram StringBuffer3
text ", the"
para "first #MON in"
line "your party."
para "Is that OK with"
line "you?"
done
UnknownText_0x6b021:
text "Fine, we'll hold"
line "your other #MON"
cont "while you compete."
done
UnknownText_0x6b055:
text "<PLAYER>'s #MON"
line "were left with the"
cont "CONTEST HELPER."
done
UnknownText_0x6b081:
text "Please choose the"
line "#MON to be used"
para "in the Contest,"
line "then come see me."
done
UnknownText_0x6b0c6:
text "OK. We hope you'll"
line "take part in the"
cont "future."
done
UnknownText_0x6b0f2:
text "Uh-oh…"
line "The first #MON"
para "in your party"
line "can't battle."
para "Please switch it"
line "with the #MON"
para "you want to use,"
line "then come see me."
done
UnknownText_0x6b166:
text "Uh-oh…"
line "Both your party"
para "and your PC BOX"
line "are full."
para "You have no room"
line "to put the bug"
cont "#MON you catch."
para "Please make room"
line "in your party or"
para "your PC BOX, then"
line "come see me."
done
UnknownText_0x6b209:
text "Uh-oh…"
line "You have an EGG as"
para "the first #MON"
line "in your party."
para "Please switch it"
line "with the #MON"
para "you want to use,"
line "then come see me."
done
UnknownText_0x6b284:
text "You still have @"
text_from_ram StringBuffer3
text ""
line "minute(s) left."
para "Do you want to"
line "finish now?"
done
UnknownText_0x6b2c5:
text "OK. Please wait"
line "here for the"
para "announcement of"
line "the winners."
done
UnknownText_0x6b300:
text "OK. Please go back"
line "outside and finish"
cont "up."
done
UnknownText_0x6b32b:
text "Today's Contest is"
line "over. We hope you"
para "will participate"
line "in the future."
done
UnknownText_0x6b370:
text "Some #MON can"
line "only be seen in"
cont "the PARK."
done
UnknownText_0x6b399:
text "DON: Wow, you beat"
line "me. You're pretty"
cont "good."
done
UnknownText_0x6b3c4:
text "DON: Luck plays a"
line "big part in this."
para "You never know"
line "what #MON will"
cont "appear."
done
UnknownText_0x6b40f:
text "ED: I envy you."
line "I just couldn't"
cont "do it this time."
done
UnknownText_0x6b440:
text "ED: Maybe you win"
line "with big #MON?"
done
UnknownText_0x6b462:
text "NICK: Well done!"
line "I'm going to raise"
cont "my #MON better."
done
UnknownText_0x6b496:
text "NICK: Maybe you"
line "get a higher score"
para "for a #MON of"
line "an unusual color."
done
UnknownText_0x6b4da:
text "WILLIAM: You're"
line "the winner? What"
cont "did you catch?"
done
UnknownText_0x6b50a:
text "WILLIAM: Well, I'm"
line "satisfied because"
para "I caught a #MON"
line "that I wanted."
done
UnknownText_0x6b54e:
text "BENNY: Congrats!"
line "You have earned my"
cont "respect!"
done
UnknownText_0x6b57c:
text "BENNY: I caught a"
line "SCYTHER before,"
cont "but I didn't win."
done
UnknownText_0x6b5b0:
text "BARRY: That #-"
line "MON you caught…"
cont "it's awesome!"
done
UnknownText_0x6b5dd:
text "BARRY: It's easier"
line "to win if you get"
para "a high-level bug"
line "#MON."
para "But I think they"
line "also consider some"
cont "other points."
done
UnknownText_0x6b64b:
text "CINDY: You won?"
line "That's great!"
para "Do you feel like"
line "looking for bug"
cont "#MON with me?"
done
UnknownText_0x6b698:
text "CINDY: I really"
line "love bug #MON!"
done
UnknownText_0x6b6b8:
text "JOSH: I… I can't"
line "believe I lost at"
cont "bug-catching…"
done
UnknownText_0x6b6e9:
text "JOSH: I heard that"
line "somebody won with"
cont "a CATERPIE!"
done
UnknownText_0x6b71b:
text "SAMUEL: Next time,"
line "I'm going to win."
done
UnknownText_0x6b740:
text "SAMUEL: Darn."
line "I thought I would"
cont "score higher…"
done
UnknownText_0x6b76f:
text "KIPP: Could you"
line "give me some tips?"
para "I want to study"
line "your style."
done
UnknownText_0x6b7af:
text "KIPP: I study a"
line "lot, but that's"
para "not good enough to"
line "win."
done
; This text is unused and unreferenced in the final game.
; The tree Pokémon is Sudowoodo.
; The Silph Scope 2 was later reworked into the Squirtbottle.
UnusedSudowoodoText:
text "I hear there's a"
line "#MON that looks"
cont "just like a tree."
para "You can reveal its"
line "identity using a"
cont "SILPHSCOPE 2."
done
UnknownText_0x6b84c:
text "The Bug-Catching"
line "Contest is held on"
para "Tuesday, Thursday"
line "and Saturday."
para "Not only do you"
line "earn a prize just"
para "for participating,"
line "you also get to"
para "keep the bug"
line "#MON you may"
para "have at the end of"
line "the contest."
done
UnknownText_0x6b910:
text "Uh-oh… Your PACK"
line "is full."
para "We'll hold on to"
line "your prize, but"
cont "only for today."
para "Please make room,"
line "then come see me."
done
UnknownText_0x6b97f:
text "<PLAYER>?"
para "Here's the prize"
line "we were holding"
cont "for you."
done
Route36NationalParkgate_MapEventHeader:
; filler
db 0, 0
.Warps:
db 4
warp_def $4, $0, 1, NATIONAL_PARK
warp_def $5, $0, 2, NATIONAL_PARK
warp_def $4, $9, 1, ROUTE_36
warp_def $5, $9, 2, ROUTE_36
.XYTriggers:
db 0
.Signposts:
db 1
signpost 0, 6, SIGNPOST_READ, MapRoute36NationalParkgateSignpost0Script
.PersonEvents:
db 12
person_event SPRITE_OFFICER, 7, 4, $6, 0, 0, -1, -1, (PAL_OW_GREEN << 4) | $80, 0, Route36OfficerScriptContest, EVENT_ROUTE_36_NATIONAL_PARK_GATE_OFFICER_CONTEST_DAY
person_event SPRITE_YOUNGSTER, 9, 6, $7, 0, 0, -1, -1, (PAL_OW_RED << 4) | $80, 0, YoungsterScript_0x6ad06, EVENT_BUG_CATCHING_CONTESTANT_1B
person_event SPRITE_YOUNGSTER, 9, 8, $7, 0, 0, -1, -1, (PAL_OW_GREEN << 4) | $80, 0, YoungsterScript_0x6ad1a, EVENT_BUG_CATCHING_CONTESTANT_2B
person_event SPRITE_ROCKER, 10, 6, $7, 0, 0, -1, -1, (PAL_OW_BLUE << 4) | $80, 0, RockerScript_0x6ad2e, EVENT_BUG_CATCHING_CONTESTANT_3B
person_event SPRITE_POKEFAN_M, 9, 10, $7, 0, 0, -1, -1, (PAL_OW_BROWN << 4) | $80, 0, PokefanMScript_0x6ad42, EVENT_BUG_CATCHING_CONTESTANT_4B
person_event SPRITE_YOUNGSTER, 11, 6, $7, 0, 0, -1, -1, (PAL_OW_RED << 4) | $80, 0, YoungsterScript_0x6ad56, EVENT_BUG_CATCHING_CONTESTANT_5B
person_event SPRITE_YOUNGSTER, 10, 9, $7, 0, 0, -1, -1, (PAL_OW_GREEN << 4) | $80, 0, YoungsterScript_0x6ad6a, EVENT_BUG_CATCHING_CONTESTANT_6B
person_event SPRITE_LASS, 10, 7, $7, 0, 0, -1, -1, (PAL_OW_BLUE << 4) | $80, 0, LassScript_0x6ad7e, EVENT_BUG_CATCHING_CONTESTANT_7B
person_event SPRITE_YOUNGSTER, 11, 8, $7, 0, 0, -1, -1, (PAL_OW_RED << 4) | $80, 0, YoungsterScript_0x6ad92, EVENT_BUG_CATCHING_CONTESTANT_8B
person_event SPRITE_YOUNGSTER, 11, 10, $7, 0, 0, -1, -1, (PAL_OW_GREEN << 4) | $80, 0, YoungsterScript_0x6ada6, EVENT_BUG_CATCHING_CONTESTANT_9B
person_event SPRITE_YOUNGSTER, 10, 10, $7, 0, 0, -1, -1, (PAL_OW_BLUE << 4) | $80, 0, YoungsterScript_0x6adba, EVENT_BUG_CATCHING_CONTESTANT_10B
person_event SPRITE_OFFICER, 6, 7, $6, 0, 0, -1, -1, (PAL_OW_GREEN << 4) | $80, 0, OfficerScript_0x6acf4, EVENT_ROUTE_36_NATIONAL_PARK_GATE_OFFICER_NOT_CONTEST_DAY