mirror of https://github.com/pret/pokecrystal.git
442 lines
7.8 KiB
NASM
442 lines
7.8 KiB
NASM
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:
|
|
.SceneScripts:
|
|
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
|
|
|
|
EarlsPokemonAcademyYoungster1Script:
|
|
jumptextfaceplayer EarlsPokemonAcademyYoungster1Text
|
|
|
|
EarlsPokemonAcademyGameboyKid1Script:
|
|
faceplayer
|
|
opentext
|
|
writetext EarlsPokemonAcademyGameboyKid1Text
|
|
waitbutton
|
|
closetext
|
|
spriteface EARLSPOKEMONACADEMY_GAMEBOY_KID1, DOWN
|
|
end
|
|
|
|
EarlsPokemonAcademyGameboyKid2Script:
|
|
faceplayer
|
|
opentext
|
|
writetext EarlsPokemonAcademyGameboyKid2Text
|
|
waitbutton
|
|
closetext
|
|
spriteface EARLSPOKEMONACADEMY_GAMEBOY_KID2, DOWN
|
|
end
|
|
|
|
EarlsPokemonAcademyYoungster2Script:
|
|
jumptextfaceplayer EarlsPokemonAcademyYoungster2Text
|
|
|
|
AcademyBlackboard:
|
|
opentext
|
|
writetext AcademyBlackboardText
|
|
.Loop:
|
|
loadmenudata .BlackboardMenuData
|
|
_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
|
|
|
|
.BlackboardMenuData:
|
|
db $40 ; flags
|
|
db 00, 00 ; start coords
|
|
db 08, 11 ; end coords
|
|
dw .MenuData2
|
|
db 1 ; default option
|
|
|
|
.MenuData2:
|
|
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
|
|
|
|
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
|
|
|
|
EarlsPokemonAcademyGameboyKid1Text:
|
|
text "I traded my best"
|
|
line "#MON to the"
|
|
cont "guy beside me."
|
|
done
|
|
|
|
EarlsPokemonAcademyGameboyKid2Text:
|
|
text "Huh? The #MON I"
|
|
line "just got is hold-"
|
|
cont "ing something!"
|
|
done
|
|
|
|
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
|
|
|
|
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
|
|
|
|
.CoordEvents:
|
|
db 0
|
|
|
|
.BGEvents:
|
|
db 4
|
|
bg_event 1, 0, BGEVENT_READ, AcademyBookshelf
|
|
bg_event 1, 1, BGEVENT_READ, AcademyBookshelf
|
|
bg_event 0, 3, BGEVENT_READ, AcademyBlackboard
|
|
bg_event 0, 4, BGEVENT_READ, AcademyBlackboard
|
|
|
|
.ObjectEvents:
|
|
db 6
|
|
object_event SPRITE_FISHER, 2, 4, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, PAL_NPC_GREEN, OBJECTTYPE_SCRIPT, 0, AcademyEarl, EVENT_EARLS_ACADEMY_EARL
|
|
object_event SPRITE_YOUNGSTER, 5, 2, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, EarlsPokemonAcademyYoungster1Script, -1
|
|
object_event SPRITE_GAMEBOY_KID, 11, 3, SPRITEMOVEDATA_STANDING_DOWN, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, EarlsPokemonAcademyGameboyKid1Script, -1
|
|
object_event SPRITE_GAMEBOY_KID, 11, 4, SPRITEMOVEDATA_STANDING_LEFT, 0, 0, -1, -1, PAL_NPC_RED, OBJECTTYPE_SCRIPT, 0, EarlsPokemonAcademyGameboyKid2Script, -1
|
|
object_event SPRITE_YOUNGSTER, 7, 4, SPRITEMOVEDATA_STANDING_UP, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, EarlsPokemonAcademyYoungster2Script, -1
|
|
object_event SPRITE_POKEDEX, 4, 2, SPRITEMOVEDATA_ITEM_TREE, 0, 0, -1, -1, 0, OBJECTTYPE_SCRIPT, 0, AcademyNotebook, -1
|