pokecrystal-board/maps/VictoryRoadGate.asm
Remy Oukaour 62f5913943 All map triggers use the maptrigger macro, not dw
.MapTriggers and .MapCallbacks lists are formatted consistently with .Warps, .XYTriggers, .Signposts, and .PersonEvents
2017-12-10 17:53:21 -05:00

127 lines
2.7 KiB
NASM

const_value set 2
const VICTORYROADGATE_OFFICER
const VICTORYROADGATE_BLACK_BELT1
const VICTORYROADGATE_BLACK_BELT2
VictoryRoadGate_MapScriptHeader:
.MapTriggers:
db 2
maptrigger .DummyTrigger0
maptrigger .DummyTrigger1
.MapCallbacks:
db 0
.DummyTrigger0:
end
.DummyTrigger1:
end
VictoryRoadGateBadgeCheckTrigger:
spriteface PLAYER, LEFT
jump VictoryRoadGateBadgeCheckScript
VictoryRoadGateOfficerScript:
faceplayer
VictoryRoadGateBadgeCheckScript:
opentext
writetext VictoryRoadGateOfficerText
buttonsound
checkcode VAR_BADGES
if_greater_than 7, .AllEightBadges
writetext VictoryRoadGateNotEnoughBadgesText
waitbutton
closetext
applymovement PLAYER, VictoryRoadGateStepDownMovement
end
.AllEightBadges:
writetext VictoryRoadGateEightBadgesText
waitbutton
closetext
dotrigger $1
end
VictoryRoadGateLeftBlackBeltScript:
jumptextfaceplayer VictoryRoadGateLeftBlackBeltText
VictoryRoadGateRightBlackBeltScript:
jumptextfaceplayer VictoryRoadGateRightBlackBeltText
VictoryRoadGateStepDownMovement:
step DOWN
step_end
VictoryRoadGateOfficerText:
text "Only trainers who"
line "have proven them-"
cont "selves may pass."
done
VictoryRoadGateNotEnoughBadgesText:
text "You don't have all"
line "the GYM BADGES of"
cont "JOHTO."
para "I'm sorry, but I"
line "can't let you go"
cont "through."
done
VictoryRoadGateEightBadgesText:
text "Oh! The eight"
line "BADGES of JOHTO!"
para "Please, go right"
line "on through!"
done
VictoryRoadGateLeftBlackBeltText:
text "This way leads to"
line "MT.SILVER."
para "You'll see scary-"
line "strong #MON out"
cont "there."
done
VictoryRoadGateRightBlackBeltText:
text "Off to the #MON"
line "LEAGUE, are you?"
para "The ELITE FOUR are"
line "so strong it's"
para "scary, and they're"
line "ready for you!"
done
VictoryRoadGate_MapEventHeader:
; filler
db 0, 0
.Warps:
db 8
warp_def $7, $11, 1, ROUTE_22
warp_def $7, $12, 1, ROUTE_22
warp_def $11, $9, 1, ROUTE_26
warp_def $11, $a, 1, ROUTE_26
warp_def $0, $9, 1, VICTORY_ROAD
warp_def $0, $a, 1, VICTORY_ROAD
warp_def $7, $1, 2, ROUTE_28
warp_def $7, $2, 2, ROUTE_28
.XYTriggers:
db 1
xy_trigger 0, $b, $a, $0, VictoryRoadGateBadgeCheckTrigger, $0, $0
.Signposts:
db 0
.PersonEvents:
db 3
person_event SPRITE_OFFICER, 11, 8, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, PERSONTYPE_SCRIPT, 0, VictoryRoadGateOfficerScript, -1
person_event SPRITE_BLACK_BELT, 5, 7, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, 0, PERSONTYPE_SCRIPT, 0, VictoryRoadGateLeftBlackBeltScript, EVENT_OPENED_MT_SILVER
person_event SPRITE_BLACK_BELT, 5, 12, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, 0, PERSONTYPE_SCRIPT, 0, VictoryRoadGateRightBlackBeltScript, EVENT_FOUGHT_SNORLAX