pokecrystal-board/maps/EarlsPokemonAcademy.asm

434 lines
7.0 KiB
NASM
Raw Normal View History

2015-07-10 01:45:35 -07:00
EarlsPokemonAcademy_MapScriptHeader:
.MapTriggers:
db 0
.MapCallbacks:
db 0
2015-06-25 21:01:08 -07:00
AcademyEarl:
applymovement $2, MovementData_0x68b2d
faceplayer
loadfont
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x68b3b
yesorno
2015-06-25 21:01:08 -07:00
iffalse .Part1
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x68bbd
yesorno
2015-06-25 21:01:08 -07:00
iffalse .Done
.Part1
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x68c51
yesorno
2015-06-25 21:01:08 -07:00
iffalse .Done
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x68c7b
closetext
loadmovesprites
end
2015-06-25 21:01:08 -07:00
.Done
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x68d31
closetext
loadmovesprites
end
2015-07-10 01:45:35 -07:00
YoungsterScript_0x68a83:
jumptextfaceplayer UnknownText_0x68d80
2015-07-10 01:45:35 -07:00
GameboyKidScript_0x68a86:
faceplayer
loadfont
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x68dda
closetext
loadmovesprites
spriteface $4, DOWN
end
2015-07-10 01:45:35 -07:00
GameboyKidScript_0x68a91:
faceplayer
loadfont
2015-01-20 00:01:23 -08:00
writetext UnknownText_0x68e07
closetext
loadmovesprites
spriteface $5, DOWN
end
2015-07-10 01:45:35 -07:00
YoungsterScript_0x68a9c:
jumptextfaceplayer UnknownText_0x68e39
2015-06-25 21:01:08 -07:00
AcademyBlackboard:
loadfont
2015-06-25 21:01:08 -07:00
writetext AcademyBlackboardText
.Loop
loadmenudata .MenuHeader
interpretmenu
writebackup
2015-06-25 21:01:08 -07:00
if_equal $1, .Poison
if_equal $2, .Paralysis
if_equal $3, .Sleep
if_equal $4, .Burn
if_equal $5, .Freeze
loadmovesprites
end
2015-06-25 21:01:08 -07:00
.Poison
writetext AcademyPoisonText
closetext
2015-06-25 21:01:08 -07:00
jump .Loop
2015-06-25 21:01:08 -07:00
.Paralysis
writetext AcademyParalysisText
closetext
2015-06-25 21:01:08 -07:00
jump .Loop
2015-06-25 21:01:08 -07:00
.Sleep
writetext AcademySleepText
closetext
2015-06-25 21:01:08 -07:00
jump .Loop
2015-06-25 21:01:08 -07:00
.Burn
writetext AcademyBurnText
closetext
2015-06-25 21:01:08 -07:00
jump .Loop
2015-06-25 21:01:08 -07:00
.Freeze:
writetext AcademyFreezeText
closetext
2015-06-25 21:01:08 -07:00
jump .Loop
2015-06-25 21:01:08 -07:00
.MenuHeader
2013-05-01 02:22:24 -07:00
db $40 ; flags
db 00, 00 ; start coords
db 08, 11 ; end coords
2015-06-25 21:01:08 -07:00
dw .Data
2013-05-01 02:22:24 -07:00
db 1 ; default option
2015-06-25 21:01:08 -07:00
.Data
2013-05-01 02:22:24 -07:00
db $80 ; flags
dn 3, 2 ; rows, columns
db 5 ; spacing
2015-06-25 21:01:08 -07:00
dbw BANK(.Text), .Text
2013-05-01 02:22:24 -07:00
dbw $1a, $0000
2015-06-25 21:01:08 -07:00
.Text
2013-05-01 02:22:24 -07:00
db "PSN@"
db "PAR@"
db "SLP@"
db "BRN@"
db "FRZ@"
db "QUIT@"
2015-06-25 21:01:08 -07:00
AcademyNotebook:
loadfont
2015-06-25 21:01:08 -07:00
writetext AcademyNotebookText
yesorno
2015-06-25 21:01:08 -07:00
iffalse .Done
writetext AcademyNotebookText1
yesorno
2015-06-25 21:01:08 -07:00
iffalse .Done
writetext AcademyNotebookText2
yesorno
2015-06-25 21:01:08 -07:00
iffalse .Done
writetext AcademyNotebookText3
closetext
2015-06-25 21:01:08 -07:00
.Done
loadmovesprites
end
2015-06-25 21:01:08 -07:00
AcademyStickerMachine:
; unused
jumptext AcademyStickerMachineText
2015-06-25 21:01:08 -07:00
AcademyBookshelf:
jumpstd difficultbookshelf
2015-07-10 01:45:35 -07:00
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
2015-07-10 01:45:35 -07:00
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
2015-07-10 01:45:35 -07:00
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
2015-07-10 01:45:35 -07:00
UnknownText_0x68c51:
text "So, want to know"
line "how to raise"
cont "#MON well?"
done
2015-07-10 01:45:35 -07:00
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
2015-07-10 01:45:35 -07:00
UnknownText_0x68d31:
text "Oh! Smart student"
line "you are! Nothing"
cont "more do I teach!"
para "Good to #MON"
line "you must be!"
done
2015-07-10 01:45:35 -07:00
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
2015-07-10 01:45:35 -07:00
UnknownText_0x68dda:
text "I traded my best"
line "#MON to the"
cont "guy beside me."
done
2015-07-10 01:45:35 -07:00
UnknownText_0x68e07:
text "Huh? The #MON I"
line "just got is hold-"
cont "ing something!"
done
2015-07-10 01:45:35 -07:00
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
2015-06-25 21:01:08 -07:00
AcademyBlackboardText:
text "The blackboard"
line "describes #MON"
para "status changes in"
line "battle."
done
2015-06-25 21:01:08 -07:00
AcademyBlackboardText2:
; unused
text "Read which topic?"
done
2015-06-25 21:01:08 -07: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-25 21:01:08 -07: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-25 21:01:08 -07: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-25 21:01:08 -07: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-25 21:01:08 -07: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-25 21:01:08 -07: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-25 21:01:08 -07: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-25 21:01:08 -07: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-25 21:01:08 -07: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-25 21:01:08 -07:00
AcademyStickerMachineText:
text "This super machine"
line "prints data out as"
para "stickers!"
done
2015-07-10 01:45:35 -07:00
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, 6, 8, $6, 0, 0, -1, -1, 8 + PAL_OW_GREEN, 0, 0, AcademyEarl, EVENT_EARLS_ACADEMY_EARL
person_event SPRITE_YOUNGSTER, 9, 6, $7, 0, 0, -1, -1, 8 + PAL_OW_RED, 0, 0, YoungsterScript_0x68a83, -1
person_event SPRITE_GAMEBOY_KID, 15, 7, $6, 0, 0, -1, -1, 0, 0, 0, GameboyKidScript_0x68a86, -1
person_event SPRITE_GAMEBOY_KID, 15, 8, $8, 0, 0, -1, -1, 8 + PAL_OW_RED, 0, 0, GameboyKidScript_0x68a91, -1
person_event SPRITE_YOUNGSTER, 11, 8, $7, 0, 0, -1, -1, 0, 0, 0, YoungsterScript_0x68a9c, -1
person_event SPRITE_POKEDEX, 8, 6, $1, 0, 0, -1, -1, 0, 0, 0, AcademyNotebook, -1