pokecrystal/maps/EarlsPokemonAcademy.asm

434 lines
7.9 KiB
NASM
Raw Normal View History

object_const_def ; object_event constants
2016-04-07 10:13:59 +00:00
const EARLSPOKEMONACADEMY_EARL
2015-11-27 05:22:14 +00:00
const EARLSPOKEMONACADEMY_YOUNGSTER1
const EARLSPOKEMONACADEMY_GAMEBOY_KID1
const EARLSPOKEMONACADEMY_GAMEBOY_KID2
const EARLSPOKEMONACADEMY_YOUNGSTER2
const EARLSPOKEMONACADEMY_POKEDEX
EarlsPokemonAcademy_MapScripts:
db 0 ; scene scripts
db 0 ; callbacks
2015-06-26 04:01:08 +00:00
AcademyEarl:
2018-03-01 18:18:51 +00:00
applymovement EARLSPOKEMONACADEMY_EARL, AcademyEarlSpinMovement
faceplayer
2015-12-09 23:25:44 +00:00
opentext
2018-08-19 17:56:41 +00:00
writetext AcademyEarlIntroText
yesorno
2015-06-26 04:01:08 +00:00
iffalse .Part1
2018-08-19 17:56:41 +00:00
writetext AcademyEarlTeachHowToWinText
yesorno
2015-06-26 04:01:08 +00:00
iffalse .Done
.Part1:
2018-08-19 17:56:41 +00:00
writetext AcademyEarlTeachMoreText
yesorno
2015-06-26 04:01:08 +00:00
iffalse .Done
2018-08-19 17:56:41 +00:00
writetext AcademyEarlTeachHowToRaiseWellText
2015-11-25 15:16:29 +00:00
waitbutton
closetext
end
.Done:
2018-08-19 17:56:41 +00:00
writetext AcademyEarlNoMoreToTeachText
2015-11-25 15:16:29 +00:00
waitbutton
closetext
end
2017-12-18 00:48:04 +00:00
EarlsPokemonAcademyYoungster1Script:
jumptextfaceplayer EarlsPokemonAcademyYoungster1Text
2017-12-18 01:45:04 +00:00
EarlsPokemonAcademyGameboyKid1Script:
faceplayer
2015-12-09 23:25:44 +00:00
opentext
2017-12-18 01:45:04 +00:00
writetext EarlsPokemonAcademyGameboyKid1Text
2015-11-25 15:16:29 +00:00
waitbutton
closetext
turnobject EARLSPOKEMONACADEMY_GAMEBOY_KID1, DOWN
end
2017-12-18 01:45:04 +00:00
EarlsPokemonAcademyGameboyKid2Script:
faceplayer
2015-12-09 23:25:44 +00:00
opentext
2017-12-18 01:45:04 +00:00
writetext EarlsPokemonAcademyGameboyKid2Text
2015-11-25 15:16:29 +00:00
waitbutton
closetext
turnobject EARLSPOKEMONACADEMY_GAMEBOY_KID2, DOWN
end
2017-12-18 00:48:04 +00:00
EarlsPokemonAcademyYoungster2Script:
jumptextfaceplayer EarlsPokemonAcademyYoungster2Text
2015-06-26 04:01:08 +00:00
AcademyBlackboard:
2015-12-09 23:25:44 +00:00
opentext
2015-06-26 04:01:08 +00:00
writetext AcademyBlackboardText
.Loop:
loadmenu .BlackboardMenuHeader
2015-12-15 23:59:49 +00:00
_2dmenu
closewindow
2018-02-03 02:09:17 +00:00
ifequal 1, .Poison
ifequal 2, .Paralysis
ifequal 3, .Sleep
ifequal 4, .Burn
ifequal 5, .Freeze
2015-11-25 15:16:29 +00:00
closetext
end
.Poison:
2015-06-26 04:01:08 +00:00
writetext AcademyPoisonText
2015-11-25 15:16:29 +00:00
waitbutton
sjump .Loop
.Paralysis:
2015-06-26 04:01:08 +00:00
writetext AcademyParalysisText
2015-11-25 15:16:29 +00:00
waitbutton
sjump .Loop
.Sleep:
2015-06-26 04:01:08 +00:00
writetext AcademySleepText
2015-11-25 15:16:29 +00:00
waitbutton
sjump .Loop
.Burn:
2015-06-26 04:01:08 +00:00
writetext AcademyBurnText
2015-11-25 15:16:29 +00:00
waitbutton
sjump .Loop
2015-06-26 04:01:08 +00:00
.Freeze:
writetext AcademyFreezeText
2015-11-25 15:16:29 +00:00
waitbutton
sjump .Loop
.BlackboardMenuHeader:
db MENU_BACKUP_TILES ; flags
menu_coords 0, 0, 11, 8
dw .MenuData
2013-05-01 09:22:24 +00:00
db 1 ; default option
.MenuData:
db STATICMENU_CURSOR ; flags
2013-05-01 09:22:24 +00:00
dn 3, 2 ; rows, columns
db 5 ; spacing
2015-11-04 00:43:47 +00:00
dba .Text
2015-12-15 23:59:49 +00:00
dbw BANK(AcademyBlackboard), 0
2013-05-01 09:22:24 +00:00
.Text:
2013-05-01 09:22:24 +00:00
db "PSN@"
db "PAR@"
db "SLP@"
db "BRN@"
db "FRZ@"
db "QUIT@"
2015-06-26 04:01:08 +00:00
AcademyNotebook:
2015-12-09 23:25:44 +00:00
opentext
2015-06-26 04:01:08 +00:00
writetext AcademyNotebookText
yesorno
2015-06-26 04:01:08 +00:00
iffalse .Done
writetext AcademyNotebookText1
yesorno
2015-06-26 04:01:08 +00:00
iffalse .Done
writetext AcademyNotebookText2
yesorno
2015-06-26 04:01:08 +00:00
iffalse .Done
writetext AcademyNotebookText3
2015-11-25 15:16:29 +00:00
waitbutton
.Done:
2015-11-25 15:16:29 +00:00
closetext
end
2015-06-26 04:01:08 +00:00
AcademyStickerMachine:
; unused
jumptext AcademyStickerMachineText
2015-06-26 04:01:08 +00:00
AcademyBookshelf:
jumpstd DifficultBookshelfScript
2018-03-01 18:18:51 +00:00
AcademyEarlSpinMovement:
2016-05-14 17:46:14 +00:00
turn_head DOWN
turn_head LEFT
turn_head UP
turn_head RIGHT
turn_head DOWN
turn_head LEFT
turn_head UP
turn_head RIGHT
turn_head DOWN
turn_head LEFT
turn_head UP
turn_head RIGHT
turn_head DOWN
step_end
2018-08-19 17:56:41 +00:00
AcademyEarlIntroText:
text "EARL, I am!"
para "Wonderful are"
line "#MON, yes!"
para "Teach you I will"
line "to be a better"
cont "trainer!"
para "What you want to"
line "know? Want to be"
cont "a winner is you?"
done
2018-08-19 17:56:41 +00:00
AcademyEarlTeachHowToWinText:
text "Good! Teach you,"
line "I will!"
para "In battle, #MON"
line "top on list jump"
cont "out first!"
para "Change order in"
line "list, make battle"
cont "easy, maybe!"
para "More from me you"
line "want to hear?"
done
2018-08-19 17:56:41 +00:00
AcademyEarlTeachMoreText:
text "So, want to know"
line "how to raise"
cont "#MON well?"
done
2018-08-19 17:56:41 +00:00
AcademyEarlTeachHowToRaiseWellText:
text "Fine! Teach you,"
line "I will!"
para "If #MON come"
line "out in battle even"
para "briefly, some EXP."
line "Points it gets."
para "At top of list put"
line "weak #MON."
para "Switch in battle"
line "quick!"
para "This way, weak"
line "#MON strong"
cont "become!"
done
2018-08-19 17:56:41 +00:00
AcademyEarlNoMoreToTeachText:
text "Oh! Smart student"
line "you are! Nothing"
cont "more do I teach!"
para "Good to #MON"
line "you must be!"
done
2017-12-18 00:48:04 +00:00
EarlsPokemonAcademyYoungster1Text:
text "I'm taking notes"
line "of the teacher's"
cont "lecture."
para "I'd better copy"
line "the stuff on the"
cont "blackboard too."
done
2017-12-18 01:45:04 +00:00
EarlsPokemonAcademyGameboyKid1Text:
text "I traded my best"
line "#MON to the"
cont "guy beside me."
done
2017-12-18 01:45:04 +00:00
EarlsPokemonAcademyGameboyKid2Text:
text "Huh? The #MON I"
line "just got is hold-"
cont "ing something!"
done
2017-12-18 00:48:04 +00:00
EarlsPokemonAcademyYoungster2Text:
text "A #MON holding"
line "a BERRY will heal"
cont "itself in battle."
para "Many other items"
line "can be held by"
cont "#MON…"
para "It sure is tough"
line "taking notes…"
done
2015-06-26 04:01:08 +00:00
AcademyBlackboardText:
text "The blackboard"
line "describes #MON"
para "status changes in"
line "battle."
done
2015-06-26 04:01:08 +00:00
AcademyBlackboardText2:
; unused
text "Read which topic?"
done
2015-06-26 04:01:08 +00:00
AcademyPoisonText:
text "If poisoned, a"
line "#MON steadily"
cont "loses HP."
para "Poison lingers"
line "after the battle,"
para "and HP is lost as"
line "you walk."
para "To cure it, use an"
line "ANTIDOTE."
done
2015-06-26 04:01:08 +00:00
AcademyParalysisText:
text "Paralysis reduces"
line "speed and may"
cont "prevent movement."
para "It remains after"
line "battle, so use"
cont "a PARLYZ HEAL."
done
2015-06-26 04:01:08 +00:00
AcademySleepText:
text "If asleep, your"
line "#MON can't make"
cont "a move."
para "A sleeping #MON"
line "doesn't wake up"
cont "after battle."
para "Wake it up with"
line "an AWAKENING."
done
2015-06-26 04:01:08 +00:00
AcademyBurnText:
text "A burn steadily"
line "consumes HP."
para "It also reduces"
line "attack power."
para "A burn lingers"
line "after battle."
para "Use a BURN HEAL as"
line "the cure."
done
2015-06-26 04:01:08 +00:00
AcademyFreezeText:
text "If your #MON is"
line "frozen, it can't"
cont "do a thing."
para "It remains frozen"
line "after battle."
para "Thaw it out with"
line "an ICE HEAL."
done
2015-06-26 04:01:08 +00:00
AcademyNotebookText:
text "It's this kid's"
line "notebook…"
para "Catch #MON"
line "using # BALLS."
para "Up to six can be"
line "in your party."
para "Keep reading?"
done
2015-06-26 04:01:08 +00:00
AcademyNotebookText1:
text "Before throwing a"
line "# BALL, weaken"
cont "the target first."
para "A poisoned or"
line "burned #MON is"
cont "easier to catch."
para "Keep reading?"
done
2015-06-26 04:01:08 +00:00
AcademyNotebookText2:
text "Some moves may"
line "cause confusion."
para "Confusion may make"
line "a #MON attack"
cont "itself."
para "Leaving battle"
line "clears up any"
cont "confusion."
para "Keep reading?"
done
2015-06-26 04:01:08 +00:00
AcademyNotebookText3:
text "People who catch"
line "and use #MON"
para "in battle are"
line "#MON trainers."
para "They are expected"
line "to visit #MON"
para "GYMS and defeat"
line "other trainers."
para "The next page"
line "is… Blank!"
para "Boy: E-he-he…"
para "I haven't written"
line "anymore…"
done
2015-06-26 04:01:08 +00:00
AcademyStickerMachineText:
text "This super machine"
line "prints data out as"
para "stickers!"
done
EarlsPokemonAcademy_MapEvents:
db 0, 0 ; filler
db 2 ; warp events
2018-02-02 03:22:07 +00:00
warp_event 3, 15, VIOLET_CITY, 3
warp_event 4, 15, VIOLET_CITY, 3
db 0 ; coord events
db 4 ; bg events
2018-02-02 03:22:07 +00:00
bg_event 0, 1, BGEVENT_READ, AcademyBookshelf
bg_event 1, 1, BGEVENT_READ, AcademyBookshelf
bg_event 3, 0, BGEVENT_READ, AcademyBlackboard
bg_event 4, 0, BGEVENT_READ, AcademyBlackboard
db 6 ; object events
2018-02-02 03:22:07 +00:00
object_event 4, 2, SPRITE_FISHER, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, AcademyEarl, EVENT_EARLS_ACADEMY_EARL
object_event 2, 5, SPRITE_YOUNGSTER, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, EarlsPokemonAcademyYoungster1Script, -1
object_event 3, 11, SPRITE_GAMEBOY_KID, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, EarlsPokemonAcademyGameboyKid1Script, -1
object_event 4, 11, SPRITE_GAMEBOY_KID, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, EarlsPokemonAcademyGameboyKid2Script, -1
object_event 4, 7, SPRITE_YOUNGSTER, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, EarlsPokemonAcademyYoungster2Script, -1
object_event 2, 4, SPRITE_POKEDEX, SPRITEMOVEDATA_STILL, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, AcademyNotebook, -1