mirror of https://github.com/pret/pokecrystal.git
434 lines
7.9 KiB
NASM
434 lines
7.9 KiB
NASM
object_const_def ; object_event constants
|
|
const EARLSPOKEMONACADEMY_EARL
|
|
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
|
|
|
|
AcademyEarl:
|
|
applymovement EARLSPOKEMONACADEMY_EARL, AcademyEarlSpinMovement
|
|
faceplayer
|
|
opentext
|
|
writetext AcademyEarlIntroText
|
|
yesorno
|
|
iffalse .Part1
|
|
writetext AcademyEarlTeachHowToWinText
|
|
yesorno
|
|
iffalse .Done
|
|
.Part1:
|
|
writetext AcademyEarlTeachMoreText
|
|
yesorno
|
|
iffalse .Done
|
|
writetext AcademyEarlTeachHowToRaiseWellText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
.Done:
|
|
writetext AcademyEarlNoMoreToTeachText
|
|
waitbutton
|
|
closetext
|
|
end
|
|
|
|
EarlsPokemonAcademyYoungster1Script:
|
|
jumptextfaceplayer EarlsPokemonAcademyYoungster1Text
|
|
|
|
EarlsPokemonAcademyGameboyKid1Script:
|
|
faceplayer
|
|
opentext
|
|
writetext EarlsPokemonAcademyGameboyKid1Text
|
|
waitbutton
|
|
closetext
|
|
turnobject EARLSPOKEMONACADEMY_GAMEBOY_KID1, DOWN
|
|
end
|
|
|
|
EarlsPokemonAcademyGameboyKid2Script:
|
|
faceplayer
|
|
opentext
|
|
writetext EarlsPokemonAcademyGameboyKid2Text
|
|
waitbutton
|
|
closetext
|
|
turnobject EARLSPOKEMONACADEMY_GAMEBOY_KID2, DOWN
|
|
end
|
|
|
|
EarlsPokemonAcademyYoungster2Script:
|
|
jumptextfaceplayer EarlsPokemonAcademyYoungster2Text
|
|
|
|
AcademyBlackboard:
|
|
opentext
|
|
writetext AcademyBlackboardText
|
|
.Loop:
|
|
loadmenu .BlackboardMenuHeader
|
|
_2dmenu
|
|
closewindow
|
|
ifequal 1, .Poison
|
|
ifequal 2, .Paralysis
|
|
ifequal 3, .Sleep
|
|
ifequal 4, .Burn
|
|
ifequal 5, .Freeze
|
|
closetext
|
|
end
|
|
|
|
.Poison:
|
|
writetext AcademyPoisonText
|
|
waitbutton
|
|
sjump .Loop
|
|
|
|
.Paralysis:
|
|
writetext AcademyParalysisText
|
|
waitbutton
|
|
sjump .Loop
|
|
|
|
.Sleep:
|
|
writetext AcademySleepText
|
|
waitbutton
|
|
sjump .Loop
|
|
|
|
.Burn:
|
|
writetext AcademyBurnText
|
|
waitbutton
|
|
sjump .Loop
|
|
|
|
.Freeze:
|
|
writetext AcademyFreezeText
|
|
waitbutton
|
|
sjump .Loop
|
|
|
|
.BlackboardMenuHeader:
|
|
db MENU_BACKUP_TILES ; flags
|
|
menu_coords 0, 0, 11, 8
|
|
dw .MenuData
|
|
db 1 ; default option
|
|
|
|
.MenuData:
|
|
db STATICMENU_CURSOR ; 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
|
|
|
|
AcademyEarlSpinMovement:
|
|
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
|
|
|
|
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
|
|
|
|
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
|
|
|
|
AcademyEarlTeachMoreText:
|
|
text "So, want to know"
|
|
line "how to raise"
|
|
cont "#MON well?"
|
|
done
|
|
|
|
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
|
|
|
|
AcademyEarlNoMoreToTeachText:
|
|
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_MapEvents:
|
|
db 0, 0 ; filler
|
|
|
|
db 2 ; warp events
|
|
warp_event 3, 15, VIOLET_CITY, 3
|
|
warp_event 4, 15, VIOLET_CITY, 3
|
|
|
|
db 0 ; coord events
|
|
|
|
db 4 ; bg events
|
|
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
|
|
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
|