ref: d554b997c590825f030bd1be71989653b16a2ae0
dir: /maps/EarlsPokemonAcademy.asm/
const_value set 2 const EARLSPOKEMONACADEMY_EARL const EARLSPOKEMONACADEMY_YOUNGSTER1 const EARLSPOKEMONACADEMY_GAMEBOY_KID1 const EARLSPOKEMONACADEMY_GAMEBOY_KID2 const EARLSPOKEMONACADEMY_YOUNGSTER2 const EARLSPOKEMONACADEMY_POKEDEX EarlsPokemonAcademy_MapScriptHeader: .MapTriggers: db 0 .MapCallbacks: db 0 AcademyEarl: applymovement EARLSPOKEMONACADEMY_EARL, MovementData_0x68b2d faceplayer opentext writetext UnknownText_0x68b3b yesorno iffalse .Part1 writetext UnknownText_0x68bbd yesorno iffalse .Done .Part1: writetext UnknownText_0x68c51 yesorno iffalse .Done writetext UnknownText_0x68c7b waitbutton closetext end .Done: writetext UnknownText_0x68d31 waitbutton closetext end YoungsterScript_0x68a83: jumptextfaceplayer UnknownText_0x68d80 GameboyKidScript_0x68a86: faceplayer opentext writetext UnknownText_0x68dda waitbutton closetext spriteface EARLSPOKEMONACADEMY_GAMEBOY_KID1, DOWN end GameboyKidScript_0x68a91: faceplayer opentext writetext UnknownText_0x68e07 waitbutton closetext spriteface EARLSPOKEMONACADEMY_GAMEBOY_KID2, DOWN end YoungsterScript_0x68a9c: jumptextfaceplayer UnknownText_0x68e39 AcademyBlackboard: opentext writetext AcademyBlackboardText .Loop: loadmenudata .MenuHeader _2dmenu closewindow if_equal $1, .Poison if_equal $2, .Paralysis if_equal $3, .Sleep if_equal $4, .Burn if_equal $5, .Freeze closetext end .Poison: writetext AcademyPoisonText waitbutton jump .Loop .Paralysis: writetext AcademyParalysisText waitbutton jump .Loop .Sleep: writetext AcademySleepText waitbutton jump .Loop .Burn: writetext AcademyBurnText waitbutton jump .Loop .Freeze: writetext AcademyFreezeText waitbutton jump .Loop .MenuHeader: db $40 ; flags db 00, 00 ; start coords db 08, 11 ; end coords dw .Data db 1 ; default option .Data: db $80 ; flags dn 3, 2 ; rows, columns db 5 ; spacing dba .Text dbw BANK(AcademyBlackboard), 0 .Text: db "PSN@" db "PAR@" db "SLP@" db "BRN@" db "FRZ@" db "QUIT@" AcademyNotebook: opentext writetext AcademyNotebookText yesorno iffalse .Done writetext AcademyNotebookText1 yesorno iffalse .Done writetext AcademyNotebookText2 yesorno iffalse .Done writetext AcademyNotebookText3 waitbutton .Done: closetext end AcademyStickerMachine: ; unused jumptext AcademyStickerMachineText AcademyBookshelf: jumpstd difficultbookshelf MovementData_0x68b2d: 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 UnknownText_0x68b3b: 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 UnknownText_0x68bbd: 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 UnknownText_0x68c51: text "So, want to know" line "how to raise" cont "#MON well?" done UnknownText_0x68c7b: 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 UnknownText_0x68d31: text "Oh! Smart student" line "you are! Nothing" cont "more do I teach!" para "Good to #MON" line "you must be!" done UnknownText_0x68d80: 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 UnknownText_0x68dda: text "I traded my best" line "#MON to the" cont "guy beside me." done UnknownText_0x68e07: text "Huh? The #MON I" line "just got is hold-" cont "ing something!" done UnknownText_0x68e39: 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 AcademyBlackboardText: text "The blackboard" line "describes #MON" para "status changes in" line "battle." done AcademyBlackboardText2: ; unused text "Read which topic?" done 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 AcademyParalysisText: text "Paralysis reduces" line "speed and may" cont "prevent movement." para "It remains after" line "battle, so use" cont "a PARLYZ HEAL." done 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 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 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 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 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 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 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 AcademyStickerMachineText: text "This super machine" line "prints data out as" para "stickers!" done EarlsPokemonAcademy_MapEventHeader: ; filler db 0, 0 .Warps: db 2 warp_def $f, $3, 3, VIOLET_CITY warp_def $f, $4, 3, VIOLET_CITY .XYTriggers: db 0 .Signposts: db 4 signpost 1, 0, SIGNPOST_READ, AcademyBookshelf signpost 1, 1, SIGNPOST_READ, AcademyBookshelf signpost 0, 3, SIGNPOST_READ, AcademyBlackboard signpost 0, 4, SIGNPOST_READ, AcademyBlackboard .PersonEvents: db 6 person_event SPRITE_FISHER, 2, 4, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, (1 << 3) | PAL_OW_GREEN, PERSONTYPE_SCRIPT, 0, AcademyEarl, EVENT_EARLS_ACADEMY_EARL person_event SPRITE_YOUNGSTER, 5, 2, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, (1 << 3) | PAL_OW_RED, PERSONTYPE_SCRIPT, 0, YoungsterScript_0x68a83, -1 person_event SPRITE_GAMEBOY_KID, 11, 3, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, PERSONTYPE_SCRIPT, 0, GameboyKidScript_0x68a86, -1 person_event SPRITE_GAMEBOY_KID, 11, 4, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, (1 << 3) | PAL_OW_RED, PERSONTYPE_SCRIPT, 0, GameboyKidScript_0x68a91, -1 person_event SPRITE_YOUNGSTER, 7, 4, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, PERSONTYPE_SCRIPT, 0, YoungsterScript_0x68a9c, -1 person_event SPRITE_POKEDEX, 4, 2, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, 0, PERSONTYPE_SCRIPT, 0, AcademyNotebook, -1