pokecrystal-board/maps/Route35NationalParkgate.asm

469 lines
9.6 KiB
NASM
Raw Normal View History

2015-11-26 21:22:14 -08:00
const_value set 2
const ROUTE35NATIONALPARKGATE_OFFICER1
const ROUTE35NATIONALPARKGATE_YOUNGSTER
const ROUTE35NATIONALPARKGATE_OFFICER2
2015-07-10 01:45:35 -07:00
Route35NationalParkgate_MapScriptHeader:
.MapTriggers:
db 3
; triggers
2015-11-02 11:37:02 -08:00
dw Route35NationalParkgate_Trigger1, 0
dw Route35NationalParkgate_Trigger2, 0
dw Route35NationalParkgate_Trigger3, 0
.MapCallbacks:
db 2
; callbacks
dbw 5, Route35NationalParkgate_CheckIfStillInContest
dbw 2, Route35NationalParkgate_CheckIfContestDay
Route35NationalParkgate_Trigger1:
end
Route35NationalParkgate_Trigger2:
end
Route35NationalParkgate_Trigger3:
priorityjump Route35NationalParkGate_LeavingContestEarly
end
Route35NationalParkgate_CheckIfStillInContest:
2015-07-10 05:08:03 -07:00
checkflag ENGINE_BUG_CONTEST_TIMER
iftrue Route35NationalParkgate_Yes
dotrigger $0
return
Route35NationalParkgate_Yes:
dotrigger $2
return
Route35NationalParkgate_CheckIfContestDay:
checkcode VAR_WEEKDAY
if_equal TUESDAY, Route35NationalParkgate_IsContestDay
if_equal THURSDAY, Route35NationalParkgate_IsContestDay
if_equal SATURDAY, Route35NationalParkgate_IsContestDay
2015-07-10 05:08:03 -07:00
checkflag ENGINE_BUG_CONTEST_TIMER
iftrue Route35NationalParkgate_Yes
2015-11-26 21:22:14 -08:00
disappear ROUTE35NATIONALPARKGATE_OFFICER1
appear ROUTE35NATIONALPARKGATE_YOUNGSTER
appear ROUTE35NATIONALPARKGATE_OFFICER2
return
Route35NationalParkgate_IsContestDay:
2015-11-26 21:22:14 -08:00
appear ROUTE35NATIONALPARKGATE_OFFICER1
disappear ROUTE35NATIONALPARKGATE_YOUNGSTER
disappear ROUTE35NATIONALPARKGATE_OFFICER2
return
Route35NationalParkGate_LeavingContestEarly:
applymovement PLAYER, MovementData_0x6a2e2
2015-11-26 21:22:14 -08:00
spriteface ROUTE35NATIONALPARKGATE_OFFICER1, RIGHT
loadfont
checkcode VAR_CONTESTMINUTES
addvar $1
RAM2MEM $0
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x6a79a
yesorno
iffalse Route35NationalParkgate_GoBackIn
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x6a7db
2015-11-25 07:16:29 -08:00
waitbutton
closetext
2015-06-24 18:26:24 -07:00
jumpstd bugcontestresultswarp
Route35NationalParkgate_GoBackIn:
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x6a823
2015-11-25 07:16:29 -08:00
waitbutton
closetext
scall Route35NationalParkgate_EnterContest
playsound SFX_ENTER_DOOR
2015-11-26 18:05:32 -08:00
special FadeOutPalettes
2015-11-25 07:16:29 -08:00
waitsfx
2015-11-03 12:05:19 -08:00
warpfacing UP, NATIONAL_PARK_BUG_CONTEST, $a, $2f
end
2015-07-10 01:45:35 -07:00
OfficerScript_0x6a204:
checkcode VAR_WEEKDAY
if_equal SUNDAY, Route35NationalParkgate_NoContestToday
if_equal MONDAY, Route35NationalParkgate_NoContestToday
if_equal WEDNESDAY, Route35NationalParkgate_NoContestToday
if_equal FRIDAY, Route35NationalParkgate_NoContestToday
faceplayer
loadfont
checkflag ENGINE_DAILY_BUG_CONTEST
iftrue Route35NationalParkgate_ContestIsOver
scall Route35NationalParkgate_GetDayOfWeek
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x6a2eb
yesorno
iffalse Route35NationalParkgate_DeclinedToParticipate
checkcode VAR_PARTYCOUNT
if_greater_than $1, Route35NationalParkgate_LeaveTheRestBehind
2015-11-11 13:11:08 -08:00
special ContestDropOffMons
clearevent EVENT_LEFT_MONS_WITH_CONTEST_OFFICER
Route35NationalParkgate_OkayToProceed:
2015-07-10 05:08:03 -07:00
setflag ENGINE_BUG_CONTEST_TIMER
special PlayMapMusic
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x6a39d
keeptextopen
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x6a3c7
playsound SFX_ITEM
2015-11-25 07:16:29 -08:00
waitsfx
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x6a3e2
2015-11-25 07:16:29 -08:00
waitbutton
closetext
special Special_GiveParkBalls
scall Route35NationalParkgate_EnterContest
playsound SFX_ENTER_DOOR
2015-11-26 18:05:32 -08:00
special FadeOutPalettes
2015-11-25 07:16:29 -08:00
waitsfx
special Special_SelectRandomBugContestContestants
2015-11-03 12:05:19 -08:00
warpfacing UP, NATIONAL_PARK_BUG_CONTEST, $a, $2f
end
Route35NationalParkgate_EnterContest:
checkcode VAR_FACING
if_equal LEFT, Route35NationalParkgate_FacingLeft
applymovement PLAYER, MovementData_0x6a2e5
end
Route35NationalParkgate_FacingLeft:
applymovement PLAYER, MovementData_0x6a2e9
end
Route35NationalParkgate_LeaveTheRestBehind:
checkcode VAR_PARTYCOUNT
if_less_than 6, Route35NationalParkgate_LessThanFullParty
checkcode VAR_BOXSPACE
if_equal 0, Route35NationalParkgate_NoRoomInBox
2014-04-30 02:40:22 -07:00
Route35NationalParkgate_LessThanFullParty: ; 6a27d
special CheckFirstMonIsEgg
if_equal $1, Route35NationalParkgate_FirstMonIsEgg
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x6a4c6
yesorno
iffalse Route35NationalParkgate_DeclinedToLeaveMonsBehind
2015-11-11 13:11:08 -08:00
special ContestDropOffMons
iftrue Route35NationalParkgate_FirstMonIsFainted
setevent EVENT_LEFT_MONS_WITH_CONTEST_OFFICER
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x6a537
keeptextopen
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x6a56b
playsound SFX_GOT_SAFARI_BALLS
2015-11-25 07:16:29 -08:00
waitsfx
keeptextopen
jump Route35NationalParkgate_OkayToProceed
Route35NationalParkgate_DeclinedToParticipate:
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x6a5dc
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
Route35NationalParkgate_DeclinedToLeaveMonsBehind:
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x6a597
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
Route35NationalParkgate_FirstMonIsFainted:
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x6a608
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
Route35NationalParkgate_NoRoomInBox:
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x6a67c
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
Route35NationalParkgate_FirstMonIsEgg:
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x6a71f
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
Route35NationalParkgate_ContestIsOver:
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x6a84f
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
Route35NationalParkgate_NoContestToday:
jumptextfaceplayer UnknownText_0x6a894
2015-07-10 01:45:35 -07:00
OfficerScript_0x6a2ca:
faceplayer
loadfont
checkflag ENGINE_DAILY_BUG_CONTEST
iftrue Route35NationalParkgate_ContestIsOver
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x6a894
2015-11-25 07:16:29 -08:00
waitbutton
closetext
end
2015-07-10 01:45:35 -07:00
YoungsterScript_0x6a2d8:
jumptextfaceplayer UnknownText_0x6a8d8
2015-07-10 01:45:35 -07:00
MapRoute36NationalParkgateSignpost0Script:
jumptext UnknownText_0x6a90e
Route35NationalParkgate_GetDayOfWeek:
2015-06-24 18:26:24 -07:00
jumpstd daytotext
end
2015-07-10 01:45:35 -07:00
MovementData_0x6a2e2:
step_down
turn_head_left
step_end
2015-07-10 01:45:35 -07:00
MovementData_0x6a2e5:
step_right
step_up
step_up
step_end
2015-07-10 01:45:35 -07:00
MovementData_0x6a2e9:
step_up
step_end
2015-07-10 01:45:35 -07:00
UnknownText_0x6a2eb:
text "Today's @"
2015-02-10 15:37:24 -08:00
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
2015-07-10 01:45:35 -07:00
UnknownText_0x6a39d:
text "Here are the PARK"
line "BALLS for the"
cont "Contest."
done
2015-07-10 01:45:35 -07:00
UnknownText_0x6a3c7:
text "<PLAYER> received"
line "20 PARK BALLS."
done
2015-07-10 01:45:35 -07:00
UnknownText_0x6a3e2:
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
2015-07-10 01:45:35 -07:00
UnknownText_0x6a4c6:
text "Uh-oh…"
para "You have more than"
line "one #MON."
para "You'll have to use"
line "@"
2015-02-10 15:37:24 -08:00
text_from_ram StringBuffer3
text ", the"
para "first #MON in"
line "your party."
para "Is that OK with"
line "you?"
done
2015-07-10 01:45:35 -07:00
UnknownText_0x6a537:
text "Fine, we'll hold"
line "your other #MON"
cont "while you compete."
done
2015-07-10 01:45:35 -07:00
UnknownText_0x6a56b:
text "<PLAYER>'s #MON"
line "were left with the"
cont "CONTEST HELPER."
done
2015-07-10 01:45:35 -07:00
UnknownText_0x6a597:
text "Please choose the"
line "#MON to be used"
para "in the Contest,"
line "then come see me."
done
2015-07-10 01:45:35 -07:00
UnknownText_0x6a5dc:
text "OK. We hope you'll"
line "take part in the"
cont "future."
done
2015-07-10 01:45:35 -07:00
UnknownText_0x6a608:
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
2015-07-10 01:45:35 -07:00
UnknownText_0x6a67c:
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
2015-07-10 01:45:35 -07:00
UnknownText_0x6a71f:
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
2015-07-10 01:45:35 -07:00
UnknownText_0x6a79a:
text "You still have @"
2015-02-10 15:37:24 -08:00
text_from_ram StringBuffer3
text ""
line "minute(s) left."
para "Do you want to"
line "finish now?"
done
2015-07-10 01:45:35 -07:00
UnknownText_0x6a7db:
text "OK. Please wait at"
line "the North Gate for"
para "the announcement"
line "of the winners."
done
2015-07-10 01:45:35 -07:00
UnknownText_0x6a823:
text "OK. Please get"
line "back outside and"
cont "finish up."
done
2015-07-10 01:45:35 -07:00
UnknownText_0x6a84f:
text "Today's Contest is"
line "over. We hope you"
para "will participate"
line "in the future."
done
2015-07-10 01:45:35 -07:00
UnknownText_0x6a894:
text "We hold Contests"
line "regularly in the"
para "PARK. You should"
line "give it a shot."
done
2015-07-10 01:45:35 -07:00
UnknownText_0x6a8d8:
text "When is the next"
line "Bug-Catching Con-"
cont "test going to be?"
done
2015-07-10 01:45:35 -07:00
UnknownText_0x6a90e:
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
2015-07-10 01:45:35 -07:00
Route35NationalParkgate_MapEventHeader:
; filler
db 0, 0
.Warps:
db 4
warp_def $0, $3, 3, NATIONAL_PARK
warp_def $0, $4, 4, NATIONAL_PARK
warp_def $7, $3, 3, ROUTE_35
warp_def $7, $4, 3, ROUTE_35
.XYTriggers:
db 0
.Signposts:
db 1
signpost 0, 5, SIGNPOST_READ, MapRoute36NationalParkgateSignpost0Script
.PersonEvents:
db 3
person_event SPRITE_OFFICER, 1, 2, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, (1 << 3) | PAL_OW_GREEN, PERSONTYPE_SCRIPT, 0, OfficerScript_0x6a204, EVENT_ROUTE_35_NATIONAL_PARK_GATE_OFFICER_CONTEST_DAY
person_event SPRITE_YOUNGSTER, 5, 6, SPRITEMOVEDATA_WANDER, 1, 1, -1, -1, (1 << 3) | PAL_OW_RED, PERSONTYPE_SCRIPT, 0, YoungsterScript_0x6a2d8, EVENT_ROUTE_35_NATIONAL_PARK_GATE_YOUNGSTER
person_event SPRITE_OFFICER, 3, 0, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, (1 << 3) | PAL_OW_GREEN, PERSONTYPE_SCRIPT, 0, OfficerScript_0x6a2ca, EVENT_ROUTE_35_NATIONAL_PARK_GATE_OFFICER_NOT_CONTEST_DAY