pokecrystal-board/maps/Route43Gate.asm
2017-12-10 20:50:08 -05:00

270 lines
5.3 KiB
NASM

const_value set 2
const ROUTE43GATE_OFFICER
const ROUTE43GATE_ROCKET1
const ROUTE43GATE_ROCKET2
Route43Gate_MapScriptHeader:
.MapTriggers:
db 2
maptrigger .RocketShakedown
maptrigger .DummyTrigger
.MapCallbacks:
db 1
dbw MAPCALLBACK_NEWMAP, .CheckIfRockets
.RocketShakedown:
priorityjump .RocketTakeover
end
.DummyTrigger:
end
.CheckIfRockets:
checkevent EVENT_CLEARED_ROCKET_HIDEOUT
iftrue .NoRockets
domaptrigger ROUTE_43, $0
return
.NoRockets:
domaptrigger ROUTE_43, $1
return
.RocketTakeover:
playmusic MUSIC_ROCKET_ENCOUNTER
checkcode VAR_FACING
if_equal DOWN, RocketScript_Southbound
if_equal UP, RocketScript_Northbound
dotrigger $1
end
RocketScript_Southbound:
applymovement PLAYER, PlayerStepsIn
showemote EMOTE_SHOCK, ROUTE43GATE_ROCKET2, 15
applymovement ROUTE43GATE_ROCKET2, Rocket2Script_BlocksYouSouth
spriteface ROUTE43GATE_ROCKET1, UP
showemote EMOTE_SHOCK, ROUTE43GATE_ROCKET1, 15
applymovement ROUTE43GATE_ROCKET1, Rocket1Script_BlocksYouSouth
opentext
writetext RocketText_TollFee
buttonsound
checkmoney $0, 999
if_equal $0, RocketScript_TollSouth
jump RocketScript_YoureBrokeSouth
RocketScript_TollSouth:
takemoney $0, 1000
writetext RocketText_ThankYou
jump RocketScript_ShakeDownSouth
RocketScript_YoureBrokeSouth:
takemoney $0, 1000
writetext RocketText_AllYouGot
jump RocketScript_ShakeDownSouth
RocketScript_ShakeDownSouth:
buttonsound
closetext
applymovement ROUTE43GATE_ROCKET1, Rocket1Script_LetsYouPassSouth
applymovement ROUTE43GATE_ROCKET2, Rocket2Script_LetsYouPassSouth
dotrigger $1
special RestartMapMusic
end
RocketScript_Northbound:
showemote EMOTE_SHOCK, ROUTE43GATE_ROCKET1, 15
applymovement ROUTE43GATE_ROCKET1, Rocket1Script_BlocksYouNorth
spriteface ROUTE43GATE_ROCKET2, DOWN
showemote EMOTE_SHOCK, ROUTE43GATE_ROCKET2, 15
applymovement ROUTE43GATE_ROCKET2, Rocket2Script_BlocksYouNorth
opentext
writetext RocketText_TollFee
buttonsound
checkmoney $0, 999
if_equal $0, RocketScript_TollNorth
jump RocketScript_YoureBrokeNorth
RocketScript_TollNorth:
takemoney $0, 1000
writetext RocketText_ThankYou
jump RocketScript_ShakeDownNorth
RocketScript_YoureBrokeNorth:
takemoney $0, 1000
writetext RocketText_AllYouGot
jump RocketScript_ShakeDownNorth
RocketScript_ShakeDownNorth:
buttonsound
closetext
applymovement ROUTE43GATE_ROCKET2, Rocket2Script_LetsYouPassNorth
applymovement ROUTE43GATE_ROCKET1, Rocket1Script_LetsYouPassNorth
dotrigger $1
special RestartMapMusic
end
RocketScript_MakingABundle:
jumptextfaceplayer RocketText_MakingABundle
OfficerScript_GuardWithSludgeBomb:
faceplayer
opentext
checkevent EVENT_GOT_TM36_SLUDGE_BOMB
iftrue .GotSludgeBomb
writetext OfficerText_FoundTM
buttonsound
verbosegiveitem TM_SLUDGE_BOMB
iffalse .NoRoomForSludgeBomb
setevent EVENT_GOT_TM36_SLUDGE_BOMB
closetext
end
.GotSludgeBomb:
writetext OfficerText_AvoidGrass
waitbutton
.NoRoomForSludgeBomb:
closetext
end
PlayerStepsIn:
step DOWN
step_end
Rocket1Script_BlocksYouSouth:
big_step UP
big_step UP
big_step RIGHT
big_step RIGHT
turn_head UP
step_end
Rocket1Script_LetsYouPassSouth:
big_step LEFT
big_step LEFT
big_step DOWN
big_step DOWN
step_end
Rocket1Script_BlocksYouNorth:
big_step DOWN
big_step DOWN
big_step RIGHT
big_step RIGHT
turn_head DOWN
step_end
Rocket1Script_LetsYouPassNorth:
big_step LEFT
big_step LEFT
big_step UP
big_step UP
turn_head DOWN
step_end
Rocket2Script_BlocksYouSouth:
big_step UP
big_step UP
big_step LEFT
big_step LEFT
turn_head UP
step_end
Rocket2Script_LetsYouPassSouth:
big_step RIGHT
big_step RIGHT
big_step DOWN
big_step DOWN
turn_head UP
step_end
Rocket2Script_BlocksYouNorth:
big_step DOWN
big_step DOWN
big_step LEFT
big_step LEFT
turn_head DOWN
step_end
Rocket2Script_LetsYouPassNorth:
big_step RIGHT
big_step RIGHT
big_step UP
big_step UP
step_end
RocketText_TollFee:
text "Hold it there,"
line "kiddo!"
para "The toll is ¥1000"
line "to go through."
done
RocketText_ThankYou:
text "Thank you very"
line "much!"
done
RocketText_AllYouGot:
text "Then pay what you"
line "have, please."
done
RocketText_MakingABundle:
text "He-he-he. We're"
line "making a bundle."
para "Everyone wants to"
line "see what's going"
para "on up at LAKE OF"
line "RAGE."
done
OfficerText_FoundTM:
text "I got chased from"
line "my post by these"
cont "thugs in black."
para "They left this"
line "behind."
para "It makes me uncom-"
line "fortable. Could"
cont "you take it away?"
done
Text_ReceivedTM30:
text "<PLAYER> received"
line "TM30."
done
OfficerText_AvoidGrass:
text "Use this gate to"
line "avoid walking in"
cont "the grass."
done
Route43Gate_MapEventHeader:
; filler
db 0, 0
.Warps:
db 4
warp_def $0, $4, 4, ROUTE_43
warp_def $0, $5, 5, ROUTE_43
warp_def $7, $4, 3, ROUTE_43
warp_def $7, $5, 3, ROUTE_43
.XYTriggers:
db 0
.Signposts:
db 0
.PersonEvents:
db 3
person_event SPRITE_OFFICER, 4, 0, SPRITEMOVEDATA_STANDING_RIGHT, 0, 0, -1, -1, PAL_NPC_RED, PERSONTYPE_SCRIPT, 0, OfficerScript_GuardWithSludgeBomb, EVENT_LAKE_OF_RAGE_CIVILIANS
person_event SPRITE_ROCKET, 4, 2, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, PERSONTYPE_SCRIPT, 0, RocketScript_MakingABundle, EVENT_ROUTE_43_GATE_ROCKETS
person_event SPRITE_ROCKET, 4, 7, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, PERSONTYPE_SCRIPT, 0, RocketScript_MakingABundle, EVENT_ROUTE_43_GATE_ROCKETS