pokecrystal/maps/CharcoalKiln.asm

174 lines
3.2 KiB
NASM

const_value set 2
const CHARCOALKILN_BLACK_BELT
const CHARCOALKILN_YOUNGSTER
const CHARCOALKILN_MOLTRES
CharcoalKiln_MapScripts:
.SceneScripts:
db 0
.MapCallbacks:
db 0
CharcoalKilnBoss:
faceplayer
opentext
checkevent EVENT_GOT_HM01_CUT
iftrue .GotCut
checkevent EVENT_CLEARED_SLOWPOKE_WELL
iftrue .SavedSlowpoke
writetext CharcoalKilnBossText1
waitbutton
closetext
end
.SavedSlowpoke:
writetext CharcoalKilnBossText2
waitbutton
closetext
end
.GotCut:
writetext CharcoalKilnBossText3
waitbutton
closetext
end
CharcoalKilnApprentice:
faceplayer
opentext
checkevent EVENT_GOT_CHARCOAL_IN_CHARCOAL_KILN
iftrue .YoureTheCoolest
checkevent EVENT_GOT_HM01_CUT
iftrue .Thanks
writetext CharcoalKilnApprenticeText1
waitbutton
closetext
end
.Thanks:
writetext CharcoalKilnApprenticeText2
buttonsound
verbosegiveitem CHARCOAL
iffalse .Done
setevent EVENT_GOT_CHARCOAL_IN_CHARCOAL_KILN
closetext
end
.YoureTheCoolest:
writetext CharcoalKilnApprenticeText3
waitbutton
.Done:
closetext
end
CharcoalKilnFarfetchd:
faceplayer
opentext
writetext FarfetchdText
cry FARFETCH_D
waitbutton
closetext
end
CharcoalKilnBookshelf:
jumpstd magazinebookshelf
CharcoalKilnRadio:
jumpstd radio2
CharcoalKilnBossText1:
text "All the SLOWPOKE"
line "have disappeared"
cont "from the town."
para "The forest's pro-"
line "tector may be"
cont "angry with us…"
para "It may be a bad"
line "omen. We should"
cont "stay in."
done
CharcoalKilnBossText2:
text "The SLOWPOKE have"
line "returned…"
para "But my APPRENTICE"
line "hasn't come back"
cont "from ILEX FOREST."
para "Where in the world"
line "is that lazy guy?"
done
CharcoalKilnBossText3:
text "You chased off"
line "TEAM ROCKET and"
para "went to ILEX"
line "FOREST alone?"
para "That takes guts!"
line "I like that. Come"
cont "train with us."
done
CharcoalKilnApprenticeText1:
text "Where have all the"
line "SLOWPOKE gone?"
para "Are they out play-"
line "ing somewhere?"
done
CharcoalKilnApprenticeText2:
text "I'm sorry--I for-"
line "got to thank you."
para "This is CHARCOAL"
line "that I made."
para "Fire-type #MON"
line "would be happy to"
cont "hold that."
done
CharcoalKilnApprenticeText3:
text "The SLOWPOKE came"
line "back, and you even"
cont "found FARFETCH'D."
para "You're the cool-"
line "est, man!"
done
FarfetchdText:
text "FARFETCH'D: Kwaa!"
done
CharcoalKiln_MapEvents:
; filler
db 0, 0
.Warps:
db 2
warp_def 2, 7, 2, AZALEA_TOWN
warp_def 3, 7, 2, AZALEA_TOWN
.CoordEvents:
db 0
.BGEvents:
db 3
bg_event 0, 1, BGEVENT_READ, CharcoalKilnBookshelf
bg_event 1, 1, BGEVENT_READ, CharcoalKilnBookshelf
bg_event 7, 1, BGEVENT_READ, CharcoalKilnRadio
.ObjectEvents:
db 3
object_event 2, 3, SPRITE_BLACK_BELT, SPRITEMOVEDATA_SPINRANDOM_SLOW, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CharcoalKilnBoss, EVENT_CHARCOAL_KILN_BOSS
object_event 5, 3, SPRITE_YOUNGSTER, SPRITEMOVEDATA_WANDER, 1, 1, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, CharcoalKilnApprentice, EVENT_CHARCOAL_KILN_APPRENTICE
object_event 5, 6, SPRITE_MOLTRES, SPRITEMOVEDATA_POKEMON, 2, 2, -1, -1, PAL_NPC_BROWN, OBJECTTYPE_SCRIPT, 0, CharcoalKilnFarfetchd, EVENT_CHARCOAL_KILN_FARFETCH_D