pokecrystal-board/maps/EcruteakItemfinderHouse.asm
2017-12-25 12:57:20 -05:00

185 lines
3.1 KiB
NASM

const_value set 2
const ECRUTEAKITEMFINDERHOUSE_COOLTRAINER_M
const ECRUTEAKITEMFINDERHOUSE_POKEDEX
EcruteakItemfinderHouse_MapScriptHeader:
.SceneScripts:
db 0
.MapCallbacks:
db 0
EcruteakItemfinderGuy:
faceplayer
opentext
checkevent EVENT_GOT_ITEMFINDER
iftrue .itemfinder
writetext EcruteakItemfinderAdventureText
yesorno
iffalse .no
writetext EcruteakItemfinderTrueSpiritText
buttonsound
verbosegiveitem ITEMFINDER
setevent EVENT_GOT_ITEMFINDER
.itemfinder:
writetext ItemfinderExplanationText
waitbutton
closetext
end
.no:
writetext EcruteakItemfinderToEachHisOwnText
waitbutton
closetext
end
EcruteakHistoryBook:
opentext
writetext EcruteakHistoryBookText
yesorno
iftrue .ReadBook
closetext
end
.ReadBook:
writetext EcruteakTwoTowersText
yesorno
iftrue .KeepReading
closetext
end
.KeepReading:
writetext EcruteakThreeMonText
waitbutton
closetext
end
ItemFinderHouseRadio:
jumpstd radio2
EcruteakItemfinderAdventureText:
text "Ah. You're on an"
line "adventure with"
cont "your #MON?"
para "Well, what's an"
line "adventure without"
cont "treasure hunting?"
para "Am I right, or am"
line "I right?"
done
EcruteakItemfinderTrueSpiritText:
text "Good! You under-"
line "stand the true"
para "spirit of adven-"
line "ture."
para "I like that! Take"
line "this with you."
done
ItemfinderExplanationText:
text "There are many"
line "items lying about"
para "that aren't ob-"
line "vious."
para "Use ITEMFINDER to"
line "check if there is"
para "an item on the"
line "ground near you."
para "It doesn't show"
line "the exact spot,"
para "so you'll have to"
line "look yourself."
para "Oh yeah--I heard"
line "there are items"
para "in ECRUTEAK's"
line "BURNED TOWER."
done
EcruteakItemfinderToEachHisOwnText:
text "Oh… To each his"
line "own, I suppose…"
done
EcruteakHistoryBookText:
text "HISTORY OF"
line "ECRUTEAK"
para "Want to read it?"
done
EcruteakTwoTowersText:
text "In ECRUTEAK, there"
line "were two towers."
para "Each tower was the"
line "roost of powerful"
cont "flying #MON."
para "But one of the"
line "towers burned to"
cont "the ground."
para "The two #MON"
line "haven't been seen"
cont "since…"
para "Keep reading?"
done
EcruteakThreeMonText:
text "ECRUTEAK was also"
line "home to three"
para "#MON that raced"
line "around the town."
para "They were said to"
line "have been born of"
para "water, lightning"
line "and fire."
para "But they could not"
line "contain their"
cont "excessive power."
para "So they say the"
line "three ran like the"
para "wind off into the"
line "grassland."
done
EcruteakItemfinderHouse_MapEventHeader:
; filler
db 0, 0
.Warps:
db 2
warp_def $7, $3, 11, ECRUTEAK_CITY
warp_def $7, $4, 11, ECRUTEAK_CITY
.CoordEvents:
db 0
.BGEvents:
db 1
bg_event 1, 2, BGEVENT_READ, ItemFinderHouseRadio
.ObjectEvents:
db 2
object_event SPRITE_COOLTRAINER_M, 3, 2, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, EcruteakItemfinderGuy, -1
object_event SPRITE_POKEDEX, 3, 3, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, EcruteakHistoryBook, -1