pokecrystal-board/maps/LakeofRage.asm
2013-07-12 17:06:11 -04:00

599 lines
12 KiB
NASM

LakeofRage_MapScriptHeader: ; 0x70000
; trigger count
db 2
; triggers
dw UnknownScript_0x70010, $0000
dw UnknownScript_0x70011, $0000
; callback count
db 2
; callbacks
dbw 5, UnknownScript_0x70012
dbw 2, UnknownScript_0x70016
; 0x70010
UnknownScript_0x70010: ; 0x70010
end
; 0x70011
UnknownScript_0x70011: ; 0x70011
end
; 0x70012
UnknownScript_0x70012: ; 0x70012
setbit2 $004a
return
; 0x70016
UnknownScript_0x70016: ; 0x70016
checkcode $b
if_equal WEDNESDAY, UnknownScript_0x7001f
disappear $b
return
; 0x7001f
UnknownScript_0x7001f: ; 0x7001f
appear $b
return
; 0x70022
LanceScript_0x70022: ; 0x70022
checkbit1 $0026
iftrue UnknownScript_0x70057
loadfont
2writetext UnknownText_0x70157
keeptextopen
faceplayer
2writetext UnknownText_0x701b4
yesorno
iffalse UnknownScript_0x7004e
UnknownScript_0x70035: ; 0x70035
2writetext UnknownText_0x702c6
closetext
loadmovesprites
playsound $0013
applymovement $2, MovementData_0x70155
disappear $2
clearbit1 $06d5
setbit1 $0060
domaptrigger GROUP_MAHOGANY_MART_1F, MAP_MAHOGANY_MART_1F, $1
end
; 0x7004e
UnknownScript_0x7004e: ; 0x7004e
2writetext UnknownText_0x70371
closetext
loadmovesprites
setbit1 $0026
end
; 0x70057
UnknownScript_0x70057: ; 0x70057
faceplayer
loadfont
2writetext UnknownText_0x703a5
yesorno
iffalse UnknownScript_0x7004e
2jump UnknownScript_0x70035
; 0x70063
GyaradosScript_0x70063: ; 0x70063
loadfont
2writetext UnknownText_0x703cb
pause 15
cry GYARADOS
loadmovesprites
loadpokedata GYARADOS, 30
writecode $3, $7
startbattle
if_equal $1, UnknownScript_0x7007a
disappear $a
UnknownScript_0x7007a: ; 0x7007a
returnafterbattle
loadfont
giveitem RED_SCALE, $1
waitbutton
2writetext UnknownText_0x703df
playsound $0001
waitbutton
itemnotify
loadmovesprites
dotrigger $0
appear $2
end
; 0x7008e
GrampsScript_0x7008e: ; 0x7008e
faceplayer
loadfont
checkbit1 $0022
iftrue UnknownScript_0x7009c
2writetext UnknownText_0x703f8
closetext
loadmovesprites
end
; 0x7009c
UnknownScript_0x7009c: ; 0x7009c
2writetext UnknownText_0x70421
closetext
loadmovesprites
end
; 0x700a2
SuperNerdScript_0x700a2: ; 0x700a2
jumptextfaceplayer UnknownText_0x70444
; 0x700a5
CooltrainerFScript_0x700a5: ; 0x700a5
jumptextfaceplayer UnknownText_0x704bb
; 0x700a8
MapLakeofRageSignpost0Script: ; 0x700a8
jumptext UnknownText_0x708d7
; 0x700ab
MapLakeofRageSignpost1Script: ; 0x700ab
loadfont
2writetext UnknownText_0x70903
checkbit1 $0022
iftrue UnknownScript_0x700b8
closetext
loadmovesprites
end
; 0x700b8
UnknownScript_0x700b8: ; 0x700b8
keeptextopen
special $001a
loadmovesprites
end
; 0x700be
TrainerFisherAndre: ; 0x700be
; bit/flag number
dw $455
; trainer group && trainer id
db FISHER, ANDRE
; text when seen
dw FisherAndreSeenText
; text when trainer beaten
dw FisherAndreBeatenText
; script when lost
dw $0000
; script when talk again
dw FisherAndreScript
; 0x700ca
FisherAndreScript: ; 0x700ca
talkaftercancel
loadfont
2writetext UnknownText_0x7058f
closetext
loadmovesprites
end
; 0x700d2
TrainerFisherRaymond: ; 0x700d2
; bit/flag number
dw $456
; trainer group && trainer id
db FISHER, RAYMOND
; text when seen
dw FisherRaymondSeenText
; text when trainer beaten
dw FisherRaymondBeatenText
; script when lost
dw $0000
; script when talk again
dw FisherRaymondScript
; 0x700de
FisherRaymondScript: ; 0x700de
talkaftercancel
loadfont
2writetext UnknownText_0x70611
closetext
loadmovesprites
end
; 0x700e6
TrainerCooltrainermAaron: ; 0x700e6
; bit/flag number
dw $549
; trainer group && trainer id
db COOLTRAINERM, AARON
; text when seen
dw CooltrainermAaronSeenText
; text when trainer beaten
dw CooltrainermAaronBeatenText
; script when lost
dw $0000
; script when talk again
dw CooltrainermAaronScript
; 0x700f2
CooltrainermAaronScript: ; 0x700f2
talkaftercancel
loadfont
2writetext UnknownText_0x7069c
closetext
loadmovesprites
end
; 0x700fa
TrainerCooltrainerfLois: ; 0x700fa
; bit/flag number
dw $55c
; trainer group && trainer id
db COOLTRAINERF, LOIS
; text when seen
dw CooltrainerfLoisSeenText
; text when trainer beaten
dw CooltrainerfLoisBeatenText
; script when lost
dw $0000
; script when talk again
dw CooltrainerfLoisScript
; 0x70106
CooltrainerfLoisScript: ; 0x70106
talkaftercancel
loadfont
2writetext UnknownText_0x70752
closetext
loadmovesprites
end
; 0x7010e
SuperNerdScript_0x7010e: ; 0x7010e
faceplayer
loadfont
checkbit1 $006b
iftrue UnknownScript_0x7013c
checkcode $b
if_not_equal WEDNESDAY, UnknownScript_0x70142
checkbit1 $006a
iftrue UnknownScript_0x70129
2writetext UnknownText_0x70784
keeptextopen
setbit1 $006a
UnknownScript_0x70129: ; 0x70129
2writetext UnknownText_0x707dd
keeptextopen
verbosegiveitem BLACKBELT, 1
iffalse UnknownScript_0x70140
setbit1 $006b
2writetext UnknownText_0x7080b
closetext
loadmovesprites
end
; 0x7013c
UnknownScript_0x7013c: ; 0x7013c
2writetext UnknownText_0x70844
closetext
UnknownScript_0x70140: ; 0x70140
loadmovesprites
end
; 0x70142
UnknownScript_0x70142: ; 0x70142
2writetext UnknownText_0x708a9
closetext
loadmovesprites
end
; 0x70148
ItemFragment_0x70148: ; 0x70148
db ELIXER, 1
; 0x7014a
ItemFragment_0x7014a: ; 0x7014a
db TM_43, 1
; 0x7014c
MapLakeofRageSignpostItem2: ; 0x7014c
dw $00b5
db FULL_RESTORE
; 0x7014f
MapLakeofRageSignpostItem3: ; 0x7014f
dw $00b6
db RARE_CANDY
; 0x70152
MapLakeofRageSignpostItem4: ; 0x70152
dw $00b7
db MAX_POTION
; 0x70155
MovementData_0x70155: ; 0x70155
teleport_from
step_end
; 0x70157
UnknownText_0x70157: ; 0x70157
db $0, "This lake is full", $4f
db "of GYARADOS but", $55
db "nothing else…", $51
db "So the MAGIKARP", $4f
db "are being forced", $55
db "to evolve…", $57
; 0x701b4
UnknownText_0x701b4: ; 0x701b4
db $0, "Did you come here", $4f
db "because of the", $55
db "rumors?", $51
db "You're ", $52, "?", $4f
db "I'm LANCE, a", $55
db "trainer like you.", $51
db "I heard some ru-", $4f
db "mors, so I came to", $55
db "investigate…", $51
db "I saw the way you", $4f
db "battled earlier,", $55
db $14, ".", $51
db "I can tell that", $4f
db "you're a trainer", $51
db "with considerable", $4f
db "skill.", $51
db "If you don't mind,", $4f
db "could you help me", $55
db "investigate?", $57
; 0x702c6
UnknownText_0x702c6: ; 0x702c6
db $0, "LANCE: Excellent!", $51
db "It seems that the", $4f
db "LAKE's MAGIKARP", $51
db "are being forced", $4f
db "to evolve.", $51
db "A mysterious radio", $4f
db "broadcast coming", $51
db "from MAHOGANY is", $4f
db "the cause.", $51
db "I'll be waiting", $4f
db "for you, ", $14, ".", $57
; 0x70371
UnknownText_0x70371: ; 0x70371
db $0, "Oh… Well, if you", $4f
db "change your mind,", $55
db "please help me.", $57
; 0x703a5
UnknownText_0x703a5: ; 0x703a5
db $0, "LANCE: Hm? Are you", $4f
db "going to help me?", $57
; 0x703cb
UnknownText_0x703cb: ; 0x703cb
db $0, "GYARADOS: Gyashaa!", $57
; 0x703df
UnknownText_0x703df: ; 0x703df
db $0, $52, " obtained a", $4f
db "RED SCALE.", $57
; 0x703f8
UnknownText_0x703f8: ; 0x703f8
db $0, "The GYARADOS are", $4f
db "angry!", $51
db "It's a bad omen!", $57
; 0x70421
UnknownText_0x70421: ; 0x70421
db $0, "Hahah! The MAGI-", $4f
db "KARP are biting!", $57
; 0x70444
UnknownText_0x70444: ; 0x70444
db $0, "I heard this lake", $4f
db "was made by ram-", $55
db "paging GYARADOS.", $51
db "I wonder if there", $4f
db "is any connection", $51
db "to their mass out-", $4f
db "break now?", $57
; 0x704bb
UnknownText_0x704bb: ; 0x704bb
db $0, "Did my eyes de-", $4f
db "ceive me? I saw a", $51
db "red GYARADOS in", $4f
db "the LAKE…", $51
db "But I thought", $4f
db "GYARADOS were", $55
db "usually blue?", $57
; 0x70522
FisherAndreSeenText: ; 0x70522
db $0, "Let me battle with", $4f
db "the #MON I just", $55
db "caught!", $57
; 0x7054e
FisherAndreBeatenText: ; 0x7054e
db $0, "I might be an ex-", $4f
db "pert angler, but", $51
db "I stink as a #-", $4f
db "MON trainer…", $57
; 0x7058f
UnknownText_0x7058f: ; 0x7058f
db $0, "I won't lose as an", $4f
db "angler! I catch", $55
db "#MON all day.", $57
; 0x705c0
FisherRaymondSeenText: ; 0x705c0
db $0, "No matter what I", $4f
db "do, all I catch", $51
db "are the same #-", $4f
db "MON…", $57
; 0x705f7
FisherRaymondBeatenText: ; 0x705f7
db $0, "My line's all", $4f
db "tangled up…", $57
; 0x70611
UnknownText_0x70611: ; 0x70611
db $0, "Why can't I catch", $4f
db "any good #MON?", $57
; 0x70632
CooltrainermAaronSeenText: ; 0x70632
db $0, "If a trainer spots", $4f
db "another trainer,", $51
db "he has to make a", $4f
db "challenge.", $51
db "That is our", $4f
db "destiny.", $57
; 0x70688
CooltrainermAaronBeatenText: ; 0x70688
db $0, "Whew…", $4f
db "Good battle.", $57
; 0x7069c
UnknownText_0x7069c: ; 0x7069c
db $0, "#MON and their", $4f
db "trainer become", $51
db "powerful through", $4f
db "constant battling.", $57
; 0x706df
CooltrainerfLoisSeenText: ; 0x706df
db $0, "What happened to", $4f
db "the red GYARADOS?", $51
db "It's gone?", $51
db "Oh, darn. I came", $4f
db "here for nothing?", $51
db "I know--let's", $4f
db "battle!", $57
; 0x70745
CooltrainerfLoisBeatenText: ; 0x70745
db $0, "Good going!", $57
; 0x70752
UnknownText_0x70752: ; 0x70752
db $0, "Come to think of", $4f
db "it, I've seen a", $55
db "pink BUTTERFREE.", $57
; 0x70784
UnknownText_0x70784: ; 0x70784
db $0, "WESLEY: Well, how", $4f
db "do you do?", $51
db "Seeing as how it's", $4f
db "Wednesday today,", $51
db "I'm WESLEY of", $4f
db "Wednesday.", $57
; 0x707dd
UnknownText_0x707dd: ; 0x707dd
db $0, "Pleased to meet", $4f
db "you. Please take a", $55
db "souvenir.", $57
; 0x7080b
UnknownText_0x7080b: ; 0x7080b
db $0, "WESLEY: BLACKBELT", $4f
db "beefs up the power", $55
db "of fighting moves.", $57
; 0x70844
UnknownText_0x70844: ; 0x70844
db $0, "WESLEY: Since you", $4f
db "found me, you must", $51
db "have met my broth-", $4f
db "ers and sisters.", $51
db "Or did you just", $4f
db "get lucky?", $57
; 0x708a9
UnknownText_0x708a9: ; 0x708a9
db $0, "WESLEY: Today's", $4f
db "not Wednesday.", $55
db "That's too bad.", $57
; 0x708d7
UnknownText_0x708d7: ; 0x708d7
db $0, "LAKE OF RAGE,", $4f
db "also known as", $55
db "GYARADOS LAKE.", $57
; 0x70903
UnknownText_0x70903: ; 0x70903
db $0, "FISHING GURU'S", $4f
db "HOUSE", $57
; 0x70919
LakeofRage_MapEventHeader: ; 0x70919
; filler
db 0, 0
; warps
db 2
warp_def $3, $7, 1, GROUP_LAKE_OF_RAGE_HIDDEN_POWER_HOUSE, MAP_LAKE_OF_RAGE_HIDDEN_POWER_HOUSE
warp_def $1f, $1b, 1, GROUP_LAKE_OF_RAGE_MAGIKARP_HOUSE, MAP_LAKE_OF_RAGE_MAGIKARP_HOUSE
; xy triggers
db 0
; signposts
db 5
signpost 27, 21, $0, MapLakeofRageSignpost0Script
signpost 31, 25, $0, MapLakeofRageSignpost1Script
signpost 28, 11, $7, MapLakeofRageSignpostItem2
signpost 4, 4, $7, MapLakeofRageSignpostItem3
signpost 5, 35, $7, MapLakeofRageSignpostItem4
; people-events
db 12
person_event SPRITE_LANCE, 32, 25, $7, $0, 255, 255, $0, 0, LanceScript_0x70022, $06d4
person_event SPRITE_GRAMPS, 30, 24, $7, $0, 255, 255, $0, 0, GrampsScript_0x7008e, $ffff
person_event SPRITE_SUPER_NERD, 17, 40, $8, $0, 255, 255, $0, 0, SuperNerdScript_0x700a2, $ffff
person_event SPRITE_COOLTRAINER_F, 33, 29, $5, $1, 255, 255, $0, 0, CooltrainerFScript_0x700a5, $ffff
person_event SPRITE_FISHER, 27, 34, $8, $0, 255, 255, $92, 1, TrainerFisherAndre, $0735
person_event SPRITE_FISHER, 30, 28, $7, $0, 255, 255, $92, 1, TrainerFisherRaymond, $0735
person_event SPRITE_COOLTRAINER_M, 19, 8, $9, $0, 255, 255, $82, 1, TrainerCooltrainermAaron, $0735
person_event SPRITE_COOLTRAINER_F, 11, 40, $8, $0, 255, 255, $82, 0, TrainerCooltrainerfLois, $0735
person_event SPRITE_GYARADOS, 26, 22, $16, $0, 255, 255, $80, 0, GyaradosScript_0x70063, $0751
person_event SPRITE_SUPER_NERD, 8, 8, $6, $0, 255, 255, $0, 0, SuperNerdScript_0x7010e, $075c
person_event SPRITE_POKE_BALL, 14, 11, $1, $0, 255, 255, $1, 0, ItemFragment_0x70148, $0645
person_event SPRITE_POKE_BALL, 6, 39, $1, $0, 255, 255, $1, 0, ItemFragment_0x7014a, $0646
; 0x709de