pokecrystal/maps/WarehouseEntrance.asm

784 lines
15 KiB
NASM

WarehouseEntrance_MapScriptHeader: ; 0x7c038
; trigger count
db 0
; callback count
db 3
; callbacks
dbw 5, UnknownScript_0x7c043
dbw 1, UnknownScript_0x7c076
dbw 2, UnknownScript_0x7c082
; 0x7c043
UnknownScript_0x7c043: ; 0x7c043
clearevent EVENT_SWITCH_1
clearevent EVENT_SWITCH_2
clearevent EVENT_SWITCH_3
clearevent EVENT_EMERGENCY_SWITCH
clearevent EVENT_SWITCH_4
clearevent EVENT_SWITCH_5
clearevent EVENT_SWITCH_6
clearevent EVENT_SWITCH_7
clearevent EVENT_SWITCH_8
clearevent EVENT_SWITCH_9
clearevent EVENT_SWITCH_10
clearevent EVENT_SWITCH_11
clearevent EVENT_SWITCH_12
clearevent EVENT_SWITCH_13
clearevent EVENT_SWITCH_14
writebyte $0
copyvartobyte UndergroundSwitchPositions
return
; 0x7c076
UnknownScript_0x7c076: ; 0x7c076
checkevent EVENT_USED_BASEMENT_KEY
iffalse UnknownScript_0x7c07d
return
; 0x7c07d
UnknownScript_0x7c07d: ; 0x7c07d
changeblock $12, $6, $3d
return
; 0x7c082
UnknownScript_0x7c082: ; 0x7c082
checkcode $b
if_equal MONDAY, UnknownScript_0x7c0a5
if_equal TUESDAY, UnknownScript_0x7c0b5
if_equal WEDNESDAY, UnknownScript_0x7c0be
if_equal THURSDAY, UnknownScript_0x7c0c7
if_equal FRIDAY, UnknownScript_0x7c0d0
if_equal SATURDAY, UnknownScript_0x7c0d9
disappear $7
disappear $8
appear $9
appear $a
return
; 0x7c0a5
UnknownScript_0x7c0a5: ; 0x7c0a5
disappear $7
checktime $1
iffalse UnknownScript_0x7c0ae
appear $7
UnknownScript_0x7c0ae: ; 0x7c0ae
disappear $8
disappear $9
disappear $a
return
; 0x7c0b5
UnknownScript_0x7c0b5: ; 0x7c0b5
disappear $7
appear $8
disappear $9
disappear $a
return
; 0x7c0be
UnknownScript_0x7c0be: ; 0x7c0be
disappear $7
disappear $8
appear $9
disappear $a
return
; 0x7c0c7
UnknownScript_0x7c0c7: ; 0x7c0c7
disappear $7
appear $8
disappear $9
disappear $a
return
; 0x7c0d0
UnknownScript_0x7c0d0: ; 0x7c0d0
disappear $7
disappear $8
appear $9
disappear $a
return
; 0x7c0d9
UnknownScript_0x7c0d9: ; 0x7c0d9
disappear $7
appear $8
disappear $9
appear $a
return
; 0x7c0e2
TrainerSupernerdEric: ; 0x7c0e2
; bit/flag number
dw $582
; trainer group && trainer id
db SUPER_NERD, ERIC
; text when seen
dw SupernerdEricSeenText
; text when trainer beaten
dw SupernerdEricBeatenText
; script when lost
dw $0000
; script when talk again
dw SupernerdEricScript
; 0x7c0ee
SupernerdEricScript: ; 0x7c0ee
talkaftercancel
loadfont
2writetext UnknownText_0x7c36c
closetext
loadmovesprites
end
; 0x7c0f6
TrainerSupernerdTeru: ; 0x7c0f6
; bit/flag number
dw $58a
; trainer group && trainer id
db SUPER_NERD, TERU
; text when seen
dw SupernerdTeruSeenText
; text when trainer beaten
dw SupernerdTeruBeatenText
; script when lost
dw $0000
; script when talk again
dw SupernerdTeruScript
; 0x7c102
SupernerdTeruScript: ; 0x7c102
talkaftercancel
loadfont
2writetext UnknownText_0x7c410
closetext
loadmovesprites
end
; 0x7c10a
TrainerPokemaniacIssac: ; 0x7c10a
; bit/flag number
dw $4ee
; trainer group && trainer id
db POKEMANIAC, ISSAC
; text when seen
dw PokemaniacIssacSeenText
; text when trainer beaten
dw PokemaniacIssacBeatenText
; script when lost
dw $0000
; script when talk again
dw PokemaniacIssacScript
; 0x7c116
PokemaniacIssacScript: ; 0x7c116
talkaftercancel
loadfont
2writetext UnknownText_0x7c498
closetext
loadmovesprites
end
; 0x7c11e
TrainerPokemaniacDonald: ; 0x7c11e
; bit/flag number
dw $4ef
; trainer group && trainer id
db POKEMANIAC, DONALD
; text when seen
dw PokemaniacDonaldSeenText
; text when trainer beaten
dw PokemaniacDonaldBeatenText
; script when lost
dw $0000
; script when talk again
dw PokemaniacDonaldScript
; 0x7c12a
PokemaniacDonaldScript: ; 0x7c12a
talkaftercancel
loadfont
2writetext UnknownText_0x7c52f
closetext
loadmovesprites
end
; 0x7c132
GrannyScript_0x7c132: ; 0x7c132
loadfont
checkcode $b
if_equal SUNDAY, UnknownScript_0x7c140
if_equal SATURDAY, UnknownScript_0x7c140
2jump UnknownScript_0x7c300
; 0x7c140
UnknownScript_0x7c140: ; 0x7c140
pokemart $1, $0021
loadmovesprites
end
; 0x7c146
GrampsScript_0x7c146: ; 0x7c146
loadfont
checkbit2 $0056
iftrue UnknownScript_0x7c300
checkcode $b
if_equal MONDAY, UnknownScript_0x7c156
2jump UnknownScript_0x7c300
; 0x7c156
UnknownScript_0x7c156: ; 0x7c156
checktime $1
iffalse UnknownScript_0x7c300
pokemart $2, $0000
loadmovesprites
end
; 0x7c161
SuperNerdScript_0x7c161: ; 0x7c161
loadfont
checkcode $b
if_equal TUESDAY, UnknownScript_0x7c173
if_equal THURSDAY, UnknownScript_0x7c173
if_equal SATURDAY, UnknownScript_0x7c173
2jump UnknownScript_0x7c300
; 0x7c173
UnknownScript_0x7c173: ; 0x7c173
checkbit2 $005a
iftrue UnknownScript_0x7c208
special $0051
2writetext UnknownText_0x7c5f9
yesorno
iffalse UnknownScript_0x7c1fc
checkmoney $0, 500
if_equal $2, UnknownScript_0x7c202
2writetext UnknownText_0x7c69a
keeptextopen
special $0061
if_equal $0, UnknownScript_0x7c1fc
if_equal $1, UnknownScript_0x7c1fc
setbit2 $005a
if_equal $2, UnknownScript_0x7c1a9
if_equal $3, UnknownScript_0x7c1b5
2jump UnknownScript_0x7c1c1
; 0x7c1a9
UnknownScript_0x7c1a9: ; 0x7c1a9
setevent $0000
clearevent $0001
clearevent $0002
2jump UnknownScript_0x7c1cd
; 0x7c1b5
UnknownScript_0x7c1b5: ; 0x7c1b5
clearevent $0000
setevent $0001
clearevent $0002
2jump UnknownScript_0x7c1cd
; 0x7c1c1
UnknownScript_0x7c1c1: ; 0x7c1c1
clearevent $0000
clearevent $0001
setevent $0002
2jump UnknownScript_0x7c1cd
; 0x7c1cd
UnknownScript_0x7c1cd: ; 0x7c1cd
takemoney $0, 500
special $0051
2writetext UnknownText_0x7c6b8
closetext
loadmovesprites
special $002e
playmusic $000d
pause 60
special $0031
special $003d
loadfont
2writetext UnknownText_0x7c6d8
closetext
checkevent $0000
iftrue UnknownScript_0x7c2bb
checkevent $0001
iftrue UnknownScript_0x7c2c4
2jump UnknownScript_0x7c2cd
; 0x7c1fc
UnknownScript_0x7c1fc: ; 0x7c1fc
2writetext UnknownText_0x7c6ea
closetext
loadmovesprites
end
; 0x7c202
UnknownScript_0x7c202: ; 0x7c202
2writetext UnknownText_0x7c709
closetext
loadmovesprites
end
; 0x7c208
UnknownScript_0x7c208: ; 0x7c208
2writetext UnknownText_0x7c72b
closetext
loadmovesprites
end
; 0x7c20e
SuperNerdScript_0x7c20e: ; 0x7c20e
loadfont
checkcode $b
if_equal SUNDAY, UnknownScript_0x7c220
if_equal WEDNESDAY, UnknownScript_0x7c220
if_equal FRIDAY, UnknownScript_0x7c220
2jump UnknownScript_0x7c300
; 0x7c220
UnknownScript_0x7c220: ; 0x7c220
checkbit2 $005a
iftrue UnknownScript_0x7c2b5
special $0051
2writetext UnknownText_0x7c75c
yesorno
iffalse UnknownScript_0x7c2a9
checkmoney $0, 300
if_equal $2, UnknownScript_0x7c2af
2writetext UnknownText_0x7c7f1
keeptextopen
special $0062
if_equal $0, UnknownScript_0x7c2a9
if_equal $1, UnknownScript_0x7c2a9
setbit2 $005a
if_equal $2, UnknownScript_0x7c256
if_equal $3, UnknownScript_0x7c262
2jump UnknownScript_0x7c26e
; 0x7c256
UnknownScript_0x7c256: ; 0x7c256
setevent $0000
clearevent $0001
clearevent $0002
2jump UnknownScript_0x7c27a
; 0x7c262
UnknownScript_0x7c262: ; 0x7c262
clearevent $0000
setevent $0001
clearevent $0002
2jump UnknownScript_0x7c27a
; 0x7c26e
UnknownScript_0x7c26e: ; 0x7c26e
clearevent $0000
clearevent $0001
setevent $0002
2jump UnknownScript_0x7c27a
; 0x7c27a
UnknownScript_0x7c27a: ; 0x7c27a
takemoney $0, 300
special $0051
2writetext UnknownText_0x7c80e
closetext
loadmovesprites
special $002e
playmusic $000d
pause 60
special $0031
special $003d
loadfont
2writetext UnknownText_0x7c82a
closetext
checkevent $0000
iftrue UnknownScript_0x7c2bb
checkevent $0001
iftrue UnknownScript_0x7c2c4
2jump UnknownScript_0x7c2cd
; 0x7c2a9
UnknownScript_0x7c2a9: ; 0x7c2a9
2writetext UnknownText_0x7c842
closetext
loadmovesprites
end
; 0x7c2af
UnknownScript_0x7c2af: ; 0x7c2af
2writetext UnknownText_0x7c85b
closetext
loadmovesprites
end
; 0x7c2b5
UnknownScript_0x7c2b5: ; 0x7c2b5
2writetext UnknownText_0x7c87b
closetext
loadmovesprites
end
; 0x7c2bb
UnknownScript_0x7c2bb: ; 0x7c2bb
2writetext UnknownText_0x7c8bf
special $0064
closetext
loadmovesprites
end
; 0x7c2c4
UnknownScript_0x7c2c4: ; 0x7c2c4
2writetext UnknownText_0x7c8dc
special $0064
closetext
loadmovesprites
end
; 0x7c2cd
UnknownScript_0x7c2cd: ; 0x7c2cd
2writetext UnknownText_0x7c8ee
special $0064
closetext
loadmovesprites
end
; 0x7c2d6
MapWarehouseEntranceSignpost0Script: ; 0x7c2d6
loadfont
checkevent EVENT_USED_BASEMENT_KEY
iftrue UnknownScript_0x7c2fa
checkitem BASEMENT_KEY
iftrue UnknownScript_0x7c2e8
2writetext UnknownText_0x7c5b0
closetext
loadmovesprites
end
; 0x7c2e8
UnknownScript_0x7c2e8: ; 0x7c2e8
playsound $0022
2writetext UnknownText_0x7c5d6
closetext
loadmovesprites
changeblock $12, $6, $2e
reloadmappart
loadmovesprites
setevent EVENT_USED_BASEMENT_KEY
end
; 0x7c2fa
UnknownScript_0x7c2fa: ; 0x7c2fa
2writetext UnknownText_0x7c5c3
closetext
loadmovesprites
end
; 0x7c300
UnknownScript_0x7c300: ; 0x7c300
2writetext UnknownText_0x7c904
closetext
loadmovesprites
end
; 0x7c306
ItemFragment_0x7c306: ; 0x7c306
db COIN_CASE, 1
; 0x7c308
MapWarehouseEntranceSignpost1Script: ; 0x7c308
jumptext UnknownText_0x7c91a
; 0x7c30b
MapWarehouseEntranceSignpostItem2: ; 0x7c30b
dw $008b
db PARLYZ_HEAL
; 0x7c30e
MapWarehouseEntranceSignpostItem3: ; 0x7c30e
dw $008c
db SUPER_POTION
; 0x7c311
MapWarehouseEntranceSignpostItem4: ; 0x7c311
dw $008d
db ANTIDOTE
; 0x7c314
SupernerdEricSeenText: ; 0x7c314
db $0, "I got booted out", $4f
db "of the GAME COR-", $55
db "NER.", $51
db "I was trying to", $4f
db "cheat using my", $55
db "#MON…", $57
; 0x7c361
SupernerdEricBeatenText: ; 0x7c361
db $0, "…Grumble…", $57
; 0x7c36c
UnknownText_0x7c36c: ; 0x7c36c
db $0, "I guess I have to", $4f
db "do things fair and", $55
db "square…", $57
; 0x7c39a
SupernerdTeruSeenText: ; 0x7c39a
db $0, "Do you consider", $4f
db "type alignments in", $55
db "battle?", $51
db "If you know your", $4f
db "type advantages,", $51
db "you'll do better", $4f
db "in battle.", $57
; 0x7c403
SupernerdTeruBeatenText: ; 0x7c403
db $0, "Ow, ow, ow!", $57
; 0x7c410
UnknownText_0x7c410: ; 0x7c410
db $0, "I know my #MON", $4f
db "type alignments.", $51
db "But I only use one", $4f
db "type of #MON.", $57
; 0x7c452
PokemaniacIssacSeenText: ; 0x7c452
db $0, "My #MON just", $4f
db "got a haircut!", $51
db "I'll show you how", $4f
db "strong it is!", $57
; 0x7c48e
PokemaniacIssacBeatenText: ; 0x7c48e
db $0, "Aiyeeee!", $57
; 0x7c498
UnknownText_0x7c498: ; 0x7c498
db $0, "Your #MON will", $4f
db "like you more if", $51
db "you give them", $4f
db "haircuts.", $57
; 0x7c4d1
PokemaniacDonaldSeenText: ; 0x7c4d1
db $0, "I think you have", $4f
db "some rare #MON", $55
db "with you.", $51
db "Let me see them!", $57
; 0x7c50d
PokemaniacDonaldBeatenText: ; 0x7c50d
db $0, "Gaah! I lost!", $4f
db "That makes me mad!", $57
; 0x7c52f
UnknownText_0x7c52f: ; 0x7c52f
db $0, "Are you making a", $4f
db "#DEX? Here's a", $55
db "hot tip.", $51
db "The HIKER on ROUTE", $4f
db "33, ANTHONY, is a", $55
db "good guy.", $51
db "He'll phone you if", $4f
db "he sees any rare", $55
db "#MON.", $57
; 0x7c5b0
UnknownText_0x7c5b0: ; 0x7c5b0
db $0, "The door's locked…", $57
; 0x7c5c3
UnknownText_0x7c5c3: ; 0x7c5c3
db $0, "The door is open.", $57
; 0x7c5d6
UnknownText_0x7c5d6: ; 0x7c5d6
db $0, "The BASEMENT KEY", $4f
db "opened the door.", $57
; 0x7c5f9
UnknownText_0x7c5f9: ; 0x7c5f9
db $0, "Welcome!", $51
db "I run the #MON", $4f
db "SALON!", $51
db "I'm the older and", $4f
db "better of the two", $55
db "HAIRCUT BROTHERS.", $51
db "I can make your", $4f
db "#MON beautiful", $55
db "for just ¥500.", $51
db "Would you like me", $4f
db "to do that?", $57
; 0x7c69a
UnknownText_0x7c69a: ; 0x7c69a
db $0, "Which #MON", $4f
db "should I work on?", $57
; 0x7c6b8
UnknownText_0x7c6b8: ; 0x7c6b8
db $0, "OK! Watch it", $4f
db "become beautiful!", $57
; 0x7c6d8
UnknownText_0x7c6d8: ; 0x7c6d8
db $0, "There! All done!", $57
; 0x7c6ea
UnknownText_0x7c6ea: ; 0x7c6ea
db $0, "Is that right?", $4f
db "That's a shame!", $57
; 0x7c709
UnknownText_0x7c709: ; 0x7c709
db $0, "You'll need more", $4f
db "money than that.", $57
; 0x7c72b
UnknownText_0x7c72b: ; 0x7c72b
db $0, "I do only one", $4f
db "haircut a day. I'm", $55
db "done for today.", $57
; 0x7c75c
UnknownText_0x7c75c: ; 0x7c75c
db $0, "Welcome to the", $4f
db "#MON SALON!", $51
db "I'm the younger", $4f
db "and less expen-", $55
db "sive of the two", $55
db "HAIRCUT BROTHERS.", $51
db "I'll spiff up your", $4f
db "#MON for just", $55
db "¥300.", $51
db "So? How about it?", $57
; 0x7c7f1
UnknownText_0x7c7f1: ; 0x7c7f1
db $0, "OK, which #MON", $4f
db "should I do?", $57
; 0x7c80e
UnknownText_0x7c80e: ; 0x7c80e
db $0, "OK! I'll make it", $4f
db "look cool!", $57
; 0x7c82a
UnknownText_0x7c82a: ; 0x7c82a
db $0, "There we go!", $4f
db "All done!", $57
; 0x7c842
UnknownText_0x7c842: ; 0x7c842
db $0, "No? ", $4f
db "How disappointing!", $57
; 0x7c85b
UnknownText_0x7c85b: ; 0x7c85b
db $0, "You're a little", $4f
db "short on funds.", $57
; 0x7c87b
UnknownText_0x7c87b: ; 0x7c87b
db $0, "I can do only one", $4f
db "haircut a day.", $51
db "Sorry, but I'm all", $4f
db "done for today.", $57
; 0x7c8bf
UnknownText_0x7c8bf: ; 0x7c8bf
text_from_ram $d099
db $0, " looks a", $4f
db "little happier.", $57
; 0x7c8dc
UnknownText_0x7c8dc: ; 0x7c8dc
text_from_ram $d099
db $0, " looks", $4f
db "happy.", $57
; 0x7c8ee
UnknownText_0x7c8ee: ; 0x7c8ee
text_from_ram $d099
db $0, " looks", $4f
db "delighted!", $57
; 0x7c904
UnknownText_0x7c904: ; 0x7c904
db $0, "We're not open", $4f
db "today.", $57
; 0x7c91a
UnknownText_0x7c91a: ; 0x7c91a
db $0, "NO ENTRY BEYOND", $4f
db "THIS POINT", $57
; 0x7c936
WarehouseEntrance_MapEventHeader: ; 0x7c936
; filler
db 0, 0
; warps
db 6
warp_def $2, $3, 7, GROUP_UNDERGROUND_PATH_SWITCH_ROOM_ENTRANCES, MAP_UNDERGROUND_PATH_SWITCH_ROOM_ENTRANCES
warp_def $22, $3, 4, GROUP_UNDERGROUND_PATH_SWITCH_ROOM_ENTRANCES, MAP_UNDERGROUND_PATH_SWITCH_ROOM_ENTRANCES
warp_def $6, $12, 4, GROUP_WAREHOUSE_ENTRANCE, MAP_WAREHOUSE_ENTRANCE
warp_def $1f, $15, 3, GROUP_WAREHOUSE_ENTRANCE, MAP_WAREHOUSE_ENTRANCE
warp_def $1f, $16, 3, GROUP_WAREHOUSE_ENTRANCE, MAP_WAREHOUSE_ENTRANCE
warp_def $1b, $16, 1, GROUP_UNDERGROUND_PATH_SWITCH_ROOM_ENTRANCES, MAP_UNDERGROUND_PATH_SWITCH_ROOM_ENTRANCES
; xy triggers
db 0
; signposts
db 5
signpost 6, 18, $0, MapWarehouseEntranceSignpost0Script
signpost 6, 19, $0, MapWarehouseEntranceSignpost1Script
signpost 13, 6, $7, MapWarehouseEntranceSignpostItem2
signpost 18, 4, $7, MapWarehouseEntranceSignpostItem3
signpost 8, 17, $7, MapWarehouseEntranceSignpostItem4
; people-events
db 9
person_event SPRITE_SUPER_NERD, 35, 9, $8, $0, 255, 255, $b2, 3, TrainerSupernerdEric, $ffff
person_event SPRITE_SUPER_NERD, 13, 10, $7, $0, 255, 255, $b2, 2, TrainerSupernerdTeru, $ffff
person_event SPRITE_SUPER_NERD, 31, 7, $a, $0, 255, 255, $92, 2, TrainerPokemaniacIssac, $ffff
person_event SPRITE_SUPER_NERD, 10, 6, $9, $0, 255, 255, $92, 3, TrainerPokemaniacDonald, $ffff
person_event SPRITE_POKE_BALL, 29, 11, $1, $0, 255, 255, $1, 0, ItemFragment_0x7c306, $0672
person_event SPRITE_GRAMPS, 15, 11, $8, $0, 255, 255, $b0, 0, GrampsScript_0x7c146, $0753
person_event SPRITE_SUPER_NERD, 18, 11, $8, $0, 255, 255, $90, 0, SuperNerdScript_0x7c161, $0754
person_event SPRITE_SUPER_NERD, 19, 11, $8, $0, 255, 255, $a0, 0, SuperNerdScript_0x7c20e, $0755
person_event SPRITE_GRANNY, 25, 11, $8, $0, 255, 255, $b0, 0, GrannyScript_0x7c132, $0752
; 0x7c9e8