pokecrystal-board/maps/Route37.asm
2018-01-31 11:38:45 -05:00

257 lines
5.3 KiB
NASM

const_def 2 ; object constants
const ROUTE37_WEIRD_TREE1
const ROUTE37_WEIRD_TREE2
const ROUTE37_YOUNGSTER
const ROUTE37_FRUIT_TREE1
const ROUTE37_SUNNY
const ROUTE37_FRUIT_TREE2
const ROUTE37_FRUIT_TREE3
Route37_MapScripts:
db 0 ; scene scripts
db 1 ; callbacks
callback MAPCALLBACK_OBJECTS, .Sunny
.Sunny:
checkcode VAR_WEEKDAY
if_equal SUNDAY, .SunnyAppears
disappear ROUTE37_SUNNY
return
.SunnyAppears:
appear ROUTE37_SUNNY
return
TrainerTwinsAnnandanne1:
trainer TWINS, ANNANDANNE1, EVENT_BEAT_TWINS_ANN_AND_ANNE, TwinsAnnandanne1SeenText, TwinsAnnandanne1BeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext TwinsAnnandanne1AfterBattleText
waitbutton
closetext
end
TrainerTwinsAnnandanne2:
trainer TWINS, ANNANDANNE2, EVENT_BEAT_TWINS_ANN_AND_ANNE, TwinsAnnandanne2SeenText, TwinsAnnandanne2BeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext TwinsAnnandanne2AfterBattleText
waitbutton
closetext
end
TrainerPsychicGreg:
trainer PSYCHIC_T, GREG, EVENT_BEAT_PSYCHIC_GREG, PsychicGregSeenText, PsychicGregBeatenText, 0, .Script
.Script:
end_if_just_battled
opentext
writetext PsychicGregAfterBattleText
waitbutton
closetext
end
SunnyScript:
faceplayer
opentext
checkevent EVENT_GOT_MAGNET_FROM_SUNNY
iftrue SunnySundayScript
checkcode VAR_WEEKDAY
if_not_equal SUNDAY, SunnyNotSundayScript
checkevent EVENT_MET_SUNNY_OF_SUNDAY
iftrue .MetSunny
writetext MeetSunnyText
buttonsound
setevent EVENT_MET_SUNNY_OF_SUNDAY
.MetSunny:
checkflag ENGINE_PLAYER_IS_FEMALE
iftrue .Kris
writetext SunnyGivesGiftText1
buttonsound
jump .next
.Kris:
writetext SunnyGivesGiftText2
buttonsound
.next
verbosegiveitem MAGNET
iffalse SunnyDoneScript
setevent EVENT_GOT_MAGNET_FROM_SUNNY
writetext SunnyGaveGiftText
waitbutton
closetext
end
SunnySundayScript:
writetext SunnySundayText
waitbutton
SunnyDoneScript:
closetext
end
SunnyNotSundayScript:
writetext SunnyNotSundayText
waitbutton
closetext
end
Route37Sign:
jumptext Route37SignText
FruitTreeScript_0x1a8e09:
fruittree FRUITTREE_ROUTE_37_1
FruitTreeScript_0x1a8e0b:
fruittree FRUITTREE_ROUTE_37_2
FruitTreeScript_0x1a8e0d:
fruittree FRUITTREE_ROUTE_37_3
Route37HiddenEther:
hiddenitem ETHER, EVENT_ROUTE_37_HIDDEN_ETHER
TwinsAnnandanne1SeenText:
text "ANN: ANNE and I"
line "are in this to-"
cont "gether!"
done
TwinsAnnandanne1BeatenText:
text "ANN & ANNE: Nnn… A"
line "little too strong."
done
TwinsAnnandanne1AfterBattleText:
text "ANN: I can tell"
line "what my sister and"
para "my #MON are"
line "thinking."
done
TwinsAnnandanne2SeenText:
text "ANNE: ANN and I"
line "are in this to-"
cont "gether!"
done
TwinsAnnandanne2BeatenText:
text "ANN & ANNE: Nnn… A"
line "little too strong."
done
TwinsAnnandanne2AfterBattleText:
text "ANNE: We share the"
line "same feelings as"
cont "our #MON."
done
PsychicGregSeenText:
text "#MON can't do a"
line "thing if they are"
cont "asleep."
para "I'll show you how"
line "scary that is!"
done
PsychicGregBeatenText:
text "I lost. That's"
line "pretty sad…"
done
PsychicGregAfterBattleText:
text "Putting #MON to"
line "sleep or paralyz-"
cont "ing them are good"
cont "battle techniques."
done
MeetSunnyText:
text "SUNNY: Hi!"
para "I'm SUNNY of Sun-"
line "day, meaning it's"
cont "Sunday today!"
done
SunnyGivesGiftText1:
text "I was told to give"
line "you this if I saw"
cont "you!"
done
SunnyGivesGiftText2:
text "I was told to give"
line "you this if I saw"
cont "you!"
done
SunnyGaveGiftText:
text "SUNNY: That thing…"
para "Um…"
para "… What was it now…"
para "…"
para "Oh! I remember"
line "now!"
para "A #MON that"
line "knows electric"
para "moves should hold"
line "it."
para "My sis MONICA said"
line "it powers up"
cont "electric moves!"
done
SunnySundayText:
text "SUNNY: My sisters"
line "and brothers are"
cont "MONICA, TUSCANY,"
cont "WESLEY, ARTHUR,"
cont "FRIEDA and SANTOS."
para "They're all older"
line "than me!"
done
SunnyNotSundayText:
text "SUNNY: Isn't today"
line "Sunday?"
cont "Um… I forgot!"
done
Route37SignText:
text "ROUTE 37"
done
Route37_MapEvents:
db 0, 0 ; filler
db 0 ; warp events
db 0 ; coord events
db 2 ; bg events
bg_event 5, 3, BGEVENT_READ, Route37Sign
bg_event 4, 2, BGEVENT_ITEM, Route37HiddenEther
db 7 ; object events
object_event 6, 12, SPRITE_WEIRD_TREE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 1, TrainerTwinsAnnandanne1, -1
object_event 7, 12, SPRITE_WEIRD_TREE, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_TRAINER, 1, TrainerTwinsAnnandanne2, -1
object_event 6, 6, SPRITE_YOUNGSTER, SPRITEMOVEDATA_SPINRANDOM_FAST, 0, 0, -1, -1, PAL_NPC_BLUE, OBJECTTYPE_TRAINER, 1, TrainerPsychicGreg, -1
object_event 13, 5, SPRITE_FRUIT_TREE, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, FruitTreeScript_0x1a8e09, -1
object_event 16, 8, SPRITE_BUG_CATCHER, SPRITEMOVEDATA_WANDER, 1, 1, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, SunnyScript, EVENT_ROUTE_37_SUNNY_OF_SUNDAY
object_event 16, 5, SPRITE_FRUIT_TREE, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, FruitTreeScript_0x1a8e0b, -1
object_event 15, 7, SPRITE_FRUIT_TREE, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, FruitTreeScript_0x1a8e0d, -1