pokecrystal/maps/Route36NationalParkgate.asm

884 lines
18 KiB
NASM

Route36NationalParkgate_MapScriptHeader: ; 0x6aafd
; trigger count
db 3
; triggers
dw UnknownScript_0x6ab11, $0000
dw UnknownScript_0x6ab12, $0000
dw UnknownScript_0x6ab13, $0000
; callback count
db 2
; callbacks
dbw 5, UnknownScript_0x6ab17
dbw 2, UnknownScript_0x6ab23
; 0x6ab11
UnknownScript_0x6ab11: ; 0x6ab11
end
; 0x6ab12
UnknownScript_0x6ab12: ; 0x6ab12
end
; 0x6ab13
UnknownScript_0x6ab13: ; 0x6ab13
priorityjump UnknownScript_0x6ab47
end
; 0x6ab17
UnknownScript_0x6ab17: ; 0x6ab17
checkbit2 $0011
iftrue UnknownScript_0x6ab20
dotrigger $0
return
; 0x6ab20
UnknownScript_0x6ab20: ; 0x6ab20
dotrigger $2
return
; 0x6ab23
UnknownScript_0x6ab23: ; 0x6ab23
checkevent $02d2
iftrue UnknownScript_0x6ab46
checkcode $b
if_equal TUESDAY, UnknownScript_0x6ab42
if_equal THURSDAY, UnknownScript_0x6ab42
if_equal SATURDAY, UnknownScript_0x6ab42
checkbit2 $0011
iftrue UnknownScript_0x6ab42
disappear $2
appear $d
return
; 0x6ab42
UnknownScript_0x6ab42: ; 0x6ab42
appear $2
disappear $d
UnknownScript_0x6ab46: ; 0x6ab46
return
; 0x6ab47
UnknownScript_0x6ab47: ; 0x6ab47
spriteface $0, $1
loadfont
checkcode $11
addvar $1
RAM2MEM $0
2writetext UnknownText_0x6b284
yesorno
iffalse UnknownScript_0x6ab76
2writetext UnknownText_0x6b2c5
closetext
loadmovesprites
special $0030
special $0033
2call UnknownScript_0x6ab8c
disappear $2
appear $d
applymovement $0, MovementData_0x6add1
pause 15
special $0032
jumpstd $0017
; 0x6ab76
UnknownScript_0x6ab76: ; 0x6ab76
2writetext UnknownText_0x6b300
closetext
loadmovesprites
spriteface $0, $2
playsound $0023
special $002e
waitbutton
warpfacing $2, GROUP_NATIONAL_PARK_BUG_CONTEST, MAP_NATIONAL_PARK_BUG_CONTEST, $21, $12
end
; 0x6ab8c
UnknownScript_0x6ab8c: ; 0x6ab8c
checkevent $0716
iftrue UnknownScript_0x6ab94
appear $3
UnknownScript_0x6ab94: ; 0x6ab94
checkevent $0717
iftrue UnknownScript_0x6ab9c
appear $4
UnknownScript_0x6ab9c: ; 0x6ab9c
checkevent $0718
iftrue UnknownScript_0x6aba4
appear $5
UnknownScript_0x6aba4: ; 0x6aba4
checkevent $0719
iftrue UnknownScript_0x6abac
appear $6
UnknownScript_0x6abac: ; 0x6abac
checkevent $071a
iftrue UnknownScript_0x6abb4
appear $7
UnknownScript_0x6abb4: ; 0x6abb4
checkevent $071b
iftrue UnknownScript_0x6abbc
appear $8
UnknownScript_0x6abbc: ; 0x6abbc
checkevent $071c
iftrue UnknownScript_0x6abc4
appear $9
UnknownScript_0x6abc4: ; 0x6abc4
checkevent $071d
iftrue UnknownScript_0x6abcc
appear $a
UnknownScript_0x6abcc: ; 0x6abcc
checkevent $071e
iftrue UnknownScript_0x6abd4
appear $b
UnknownScript_0x6abd4: ; 0x6abd4
checkevent $071f
iftrue UnknownScript_0x6abdc
appear $c
UnknownScript_0x6abdc: ; 0x6abdc
special $0037
end
; 0x6abe0
OfficerScript_0x6abe0: ; 0x6abe0
checkcode $b
if_equal SUNDAY, UnknownScript_0x6acf1
if_equal MONDAY, UnknownScript_0x6acf1
if_equal WEDNESDAY, UnknownScript_0x6acf1
if_equal FRIDAY, UnknownScript_0x6acf1
faceplayer
loadfont
checkbit2 $0051
iftrue UnknownScript_0x6ac91
2call UnknownScript_0x6ad02
2writetext UnknownText_0x6add5
yesorno
iffalse UnknownScript_0x6ac73
checkcode $1
if_less_than $1, UnknownScript_0x6ac41
special $0016
clearevent $0308
UnknownScript_0x6ac10: ; 0x6ac10
setbit2 $0011
special $003c
2writetext UnknownText_0x6ae87
keeptextopen
waitbutton
2writetext UnknownText_0x6aeb1
playsound $0001
waitbutton
2writetext UnknownText_0x6aecc
closetext
loadmovesprites
setbit2 $0011
special $0018
spriteface $0, $2
playsound $0023
special $002e
waitbutton
special $0047
warpfacing $2, GROUP_NATIONAL_PARK_BUG_CONTEST, MAP_NATIONAL_PARK_BUG_CONTEST, $21, $12
end
; 0x6ac41
UnknownScript_0x6ac41: ; 0x6ac41
checkcode $1
if_greater_than $6, UnknownScript_0x6ac4d
checkcode $10
if_equal $0, UnknownScript_0x6ac85
UnknownScript_0x6ac4d: ; 0x6ac4d
special $005a
if_equal $1, UnknownScript_0x6ac8b
2writetext UnknownText_0x6afb0
yesorno
iffalse UnknownScript_0x6ac79
special $0016
iftrue UnknownScript_0x6ac7f
setevent $0308
2writetext UnknownText_0x6b021
keeptextopen
2writetext UnknownText_0x6b055
playsound $000c
waitbutton
keeptextopen
2jump UnknownScript_0x6ac10
; 0x6ac73
UnknownScript_0x6ac73: ; 0x6ac73
2writetext UnknownText_0x6b0c6
closetext
loadmovesprites
end
; 0x6ac79
UnknownScript_0x6ac79: ; 0x6ac79
2writetext UnknownText_0x6b081
closetext
loadmovesprites
end
; 0x6ac7f
UnknownScript_0x6ac7f: ; 0x6ac7f
2writetext UnknownText_0x6b0f2
closetext
loadmovesprites
end
; 0x6ac85
UnknownScript_0x6ac85: ; 0x6ac85
2writetext UnknownText_0x6b166
closetext
loadmovesprites
end
; 0x6ac8b
UnknownScript_0x6ac8b: ; 0x6ac8b
2writetext UnknownText_0x6b209
closetext
loadmovesprites
end
; 0x6ac91
UnknownScript_0x6ac91: ; 0x6ac91
checkevent $0313
iftrue UnknownScript_0x6acaf
checkevent $0314
iftrue UnknownScript_0x6acbe
checkevent $0315
iftrue UnknownScript_0x6accd
checkevent $0316
iftrue UnknownScript_0x6acdc
2writetext UnknownText_0x6b32b
closetext
loadmovesprites
end
; 0x6acaf
UnknownScript_0x6acaf: ; 0x6acaf
2writetext UnknownText_0x6b97f
keeptextopen
verbosegiveitem SUN_STONE, 1
iffalse UnknownScript_0x6aceb
clearevent $0313
loadmovesprites
end
; 0x6acbe
UnknownScript_0x6acbe: ; 0x6acbe
2writetext UnknownText_0x6b97f
keeptextopen
verbosegiveitem EVERSTONE, 1
iffalse UnknownScript_0x6aceb
clearevent $0314
loadmovesprites
end
; 0x6accd
UnknownScript_0x6accd: ; 0x6accd
2writetext UnknownText_0x6b97f
keeptextopen
verbosegiveitem GOLD_BERRY, 1
iffalse UnknownScript_0x6aceb
clearevent $0315
loadmovesprites
end
; 0x6acdc
UnknownScript_0x6acdc: ; 0x6acdc
2writetext UnknownText_0x6b97f
keeptextopen
verbosegiveitem BERRY, 1
iffalse UnknownScript_0x6aceb
clearevent $0316
loadmovesprites
end
; 0x6aceb
UnknownScript_0x6aceb: ; 0x6aceb
2writetext UnknownText_0x6b910
closetext
loadmovesprites
end
; 0x6acf1
UnknownScript_0x6acf1: ; 0x6acf1
jumptextfaceplayer UnknownText_0x6b370
; 0x6acf4
OfficerScript_0x6acf4: ; 0x6acf4
faceplayer
loadfont
checkbit2 $0051
iftrue UnknownScript_0x6ac91
2writetext UnknownText_0x6b370
closetext
loadmovesprites
end
; 0x6ad02
UnknownScript_0x6ad02: ; 0x6ad02
jumpstd $0015
end
; 0x6ad06
YoungsterScript_0x6ad06: ; 0x6ad06
faceplayer
loadfont
checkevent $0000
iffalse UnknownScript_0x6ad14
2writetext UnknownText_0x6b399
closetext
loadmovesprites
end
; 0x6ad14
UnknownScript_0x6ad14: ; 0x6ad14
2writetext UnknownText_0x6b3c4
closetext
loadmovesprites
end
; 0x6ad1a
YoungsterScript_0x6ad1a: ; 0x6ad1a
faceplayer
loadfont
checkevent $0000
iffalse UnknownScript_0x6ad28
2writetext UnknownText_0x6b40f
closetext
loadmovesprites
end
; 0x6ad28
UnknownScript_0x6ad28: ; 0x6ad28
2writetext UnknownText_0x6b440
closetext
loadmovesprites
end
; 0x6ad2e
RockerScript_0x6ad2e: ; 0x6ad2e
faceplayer
loadfont
checkevent $0000
iffalse UnknownScript_0x6ad3c
2writetext UnknownText_0x6b462
closetext
loadmovesprites
end
; 0x6ad3c
UnknownScript_0x6ad3c: ; 0x6ad3c
2writetext UnknownText_0x6b496
closetext
loadmovesprites
end
; 0x6ad42
PokefanMScript_0x6ad42: ; 0x6ad42
faceplayer
loadfont
checkevent $0000
iffalse UnknownScript_0x6ad50
2writetext UnknownText_0x6b4da
closetext
loadmovesprites
end
; 0x6ad50
UnknownScript_0x6ad50: ; 0x6ad50
2writetext UnknownText_0x6b50a
closetext
loadmovesprites
end
; 0x6ad56
YoungsterScript_0x6ad56: ; 0x6ad56
faceplayer
loadfont
checkevent $0000
iffalse UnknownScript_0x6ad64
2writetext UnknownText_0x6b54e
closetext
loadmovesprites
end
; 0x6ad64
UnknownScript_0x6ad64: ; 0x6ad64
2writetext UnknownText_0x6b57c
closetext
loadmovesprites
end
; 0x6ad6a
YoungsterScript_0x6ad6a: ; 0x6ad6a
faceplayer
loadfont
checkevent $0000
iffalse UnknownScript_0x6ad78
2writetext UnknownText_0x6b5b0
closetext
loadmovesprites
end
; 0x6ad78
UnknownScript_0x6ad78: ; 0x6ad78
2writetext UnknownText_0x6b5dd
closetext
loadmovesprites
end
; 0x6ad7e
LassScript_0x6ad7e: ; 0x6ad7e
faceplayer
loadfont
checkevent $0000
iffalse UnknownScript_0x6ad8c
2writetext UnknownText_0x6b64b
closetext
loadmovesprites
end
; 0x6ad8c
UnknownScript_0x6ad8c: ; 0x6ad8c
2writetext UnknownText_0x6b698
closetext
loadmovesprites
end
; 0x6ad92
YoungsterScript_0x6ad92: ; 0x6ad92
faceplayer
loadfont
checkevent $0000
iffalse UnknownScript_0x6ada0
2writetext UnknownText_0x6b6b8
closetext
loadmovesprites
end
; 0x6ada0
UnknownScript_0x6ada0: ; 0x6ada0
2writetext UnknownText_0x6b6e9
closetext
loadmovesprites
end
; 0x6ada6
YoungsterScript_0x6ada6: ; 0x6ada6
faceplayer
loadfont
checkevent $0000
iffalse UnknownScript_0x6adb4
2writetext UnknownText_0x6b71b
closetext
loadmovesprites
end
; 0x6adb4
UnknownScript_0x6adb4: ; 0x6adb4
2writetext UnknownText_0x6b740
closetext
loadmovesprites
end
; 0x6adba
YoungsterScript_0x6adba: ; 0x6adba
faceplayer
loadfont
checkevent $0000
iffalse UnknownScript_0x6adc8
2writetext UnknownText_0x6b76f
closetext
loadmovesprites
end
; 0x6adc8
UnknownScript_0x6adc8: ; 0x6adc8
2writetext UnknownText_0x6b7af
closetext
loadmovesprites
end
; 0x6adce
UnknownScript_0x6adce: ; 0x6adce
jumptext UnknownText_0x6b84c
; 0x6add1
MovementData_0x6add1: ; 0x6add1
big_step_down
big_step_right
turn_head_up
step_end
; 0x6add5
UnknownText_0x6add5: ; 0x6add5
db $0, "Today's @"
text_from_ram $d099
db $0, ".", $4f
db "That means the", $51
db "Bug-Catching Con-", $4f
db "test is on today.", $51
db "The rules are sim-", $4f
db "ple.", $51
db "Using one of your", $4f
db "#MON, catch a", $51
db "bug #MON to be", $4f
db "judged.", $51
db "Would you like to", $4f
db "give it a try?", $57
; 0x6ae87
UnknownText_0x6ae87: ; 0x6ae87
db $0, "Here are the PARK", $4f
db "BALLS for the", $55
db "Contest.", $57
; 0x6aeb1
UnknownText_0x6aeb1: ; 0x6aeb1
db $0, $52, " received", $4f
db "20 PARK BALLS.", $57
; 0x6aecc
UnknownText_0x6aecc: ; 0x6aecc
db $0, "The person who", $4f
db "gets the strong-", $55
db "est bug #MON", $55
db "is the winner.", $51
db "You have 20", $4f
db "minutes.", $51
db "If you run out of", $4f
db "PARK BALLS, you're", $55
db "done.", $51
db "You can keep the", $4f
db "last #MON you", $55
db "catch as your own.", $51
db "Go out and catch", $4f
db "the strongest bug", $51
db "#MON you can", $4f
db "find!", $57
; 0x6afb0
UnknownText_0x6afb0: ; 0x6afb0
db $0, "Uh-oh…", $51
db "You have more than", $4f
db "one #MON.", $51
db "You'll have to use", $4f
db "@"
text_from_ram $d099
db $0, ", the", $51
db "first #MON in", $4f
db "your party.", $51
db "Is that OK with", $4f
db "you?", $57
; 0x6b021
UnknownText_0x6b021: ; 0x6b021
db $0, "Fine, we'll hold", $4f
db "your other #MON", $55
db "while you compete.", $57
; 0x6b055
UnknownText_0x6b055: ; 0x6b055
db $0, $52, "'s #MON", $4f
db "were left with the", $55
db "CONTEST HELPER.", $57
; 0x6b081
UnknownText_0x6b081: ; 0x6b081
db $0, "Please choose the", $4f
db "#MON to be used", $51
db "in the Contest,", $4f
db "then come see me.", $57
; 0x6b0c6
UnknownText_0x6b0c6: ; 0x6b0c6
db $0, "OK. We hope you'll", $4f
db "take part in the", $55
db "future.", $57
; 0x6b0f2
UnknownText_0x6b0f2: ; 0x6b0f2
db $0, "Uh-oh…", $4f
db "The first #MON", $51
db "in your party", $4f
db "can't battle.", $51
db "Please switch it", $4f
db "with the #MON", $51
db "you want to use,", $4f
db "then come see me.", $57
; 0x6b166
UnknownText_0x6b166: ; 0x6b166
db $0, "Uh-oh…", $4f
db "Both your party", $51
db "and your PC BOX", $4f
db "are full.", $51
db "You have no room", $4f
db "to put the bug", $55
db "#MON you catch.", $51
db "Please make room", $4f
db "in your party or", $51
db "your PC BOX, then", $4f
db "come see me.", $57
; 0x6b209
UnknownText_0x6b209: ; 0x6b209
db $0, "Uh-oh…", $4f
db "You have an EGG as", $51
db "the first #MON", $4f
db "in your party.", $51
db "Please switch it", $4f
db "with the #MON", $51
db "you want to use,", $4f
db "then come see me.", $57
; 0x6b284
UnknownText_0x6b284: ; 0x6b284
db $0, "You still have @"
text_from_ram $d099
db $0, $4f
db "minute(s) left.", $51
db "Do you want to", $4f
db "finish now?", $57
; 0x6b2c5
UnknownText_0x6b2c5: ; 0x6b2c5
db $0, "OK. Please wait", $4f
db "here for the", $51
db "announcement of", $4f
db "the winners.", $57
; 0x6b300
UnknownText_0x6b300: ; 0x6b300
db $0, "OK. Please go back", $4f
db "outside and finish", $55
db "up.", $57
; 0x6b32b
UnknownText_0x6b32b: ; 0x6b32b
db $0, "Today's Contest is", $4f
db "over. We hope you", $51
db "will participate", $4f
db "in the future.", $57
; 0x6b370
UnknownText_0x6b370: ; 0x6b370
db $0, "Some #MON can", $4f
db "only be seen in", $55
db "the PARK.", $57
; 0x6b399
UnknownText_0x6b399: ; 0x6b399
db $0, "DON: Wow, you beat", $4f
db "me. You're pretty", $55
db "good.", $57
; 0x6b3c4
UnknownText_0x6b3c4: ; 0x6b3c4
db $0, "DON: Luck plays a", $4f
db "big part in this.", $51
db "You never know", $4f
db "what #MON will", $55
db "appear.", $57
; 0x6b40f
UnknownText_0x6b40f: ; 0x6b40f
db $0, "ED: I envy you.", $4f
db "I just couldn't", $55
db "do it this time.", $57
; 0x6b440
UnknownText_0x6b440: ; 0x6b440
db $0, "ED: Maybe you win", $4f
db "with big #MON?", $57
; 0x6b462
UnknownText_0x6b462: ; 0x6b462
db $0, "NICK: Well done!", $4f
db "I'm going to raise", $55
db "my #MON better.", $57
; 0x6b496
UnknownText_0x6b496: ; 0x6b496
db $0, "NICK: Maybe you", $4f
db "get a higher score", $51
db "for a #MON of", $4f
db "an unusual color.", $57
; 0x6b4da
UnknownText_0x6b4da: ; 0x6b4da
db $0, "WILLIAM: You're", $4f
db "the winner? What", $55
db "did you catch?", $57
; 0x6b50a
UnknownText_0x6b50a: ; 0x6b50a
db $0, "WILLIAM: Well, I'm", $4f
db "satisfied because", $51
db "I caught a #MON", $4f
db "that I wanted.", $57
; 0x6b54e
UnknownText_0x6b54e: ; 0x6b54e
db $0, "BENNY: Congrats!", $4f
db "You have earned my", $55
db "respect!", $57
; 0x6b57c
UnknownText_0x6b57c: ; 0x6b57c
db $0, "BENNY: I caught a", $4f
db "SCYTHER before,", $55
db "but I didn't win.", $57
; 0x6b5b0
UnknownText_0x6b5b0: ; 0x6b5b0
db $0, "BARRY: That #-", $4f
db "MON you caught…", $55
db "it's awesome!", $57
; 0x6b5dd
UnknownText_0x6b5dd: ; 0x6b5dd
db $0, "BARRY: It's easier", $4f
db "to win if you get", $51
db "a high-level bug", $4f
db "#MON.", $51
db "But I think they", $4f
db "also consider some", $55
db "other points.", $57
; 0x6b64b
UnknownText_0x6b64b: ; 0x6b64b
db $0, "CINDY: You won?", $4f
db "That's great!", $51
db "Do you feel like", $4f
db "looking for bug", $55
db "#MON with me?", $57
; 0x6b698
UnknownText_0x6b698: ; 0x6b698
db $0, "CINDY: I really", $4f
db "love bug #MON!", $57
; 0x6b6b8
UnknownText_0x6b6b8: ; 0x6b6b8
db $0, "JOSH: I… I can't", $4f
db "believe I lost at", $55
db "bug-catching…", $57
; 0x6b6e9
UnknownText_0x6b6e9: ; 0x6b6e9
db $0, "JOSH: I heard that", $4f
db "somebody won with", $55
db "a CATERPIE!", $57
; 0x6b71b
UnknownText_0x6b71b: ; 0x6b71b
db $0, "SAMUEL: Next time,", $4f
db "I'm going to win.", $57
; 0x6b740
UnknownText_0x6b740: ; 0x6b740
db $0, "SAMUEL: Darn.", $4f
db "I thought I would", $55
db "score higher…", $57
; 0x6b76f
UnknownText_0x6b76f: ; 0x6b76f
db $0, "KIPP: Could you", $4f
db "give me some tips?", $51
db "I want to study", $4f
db "your style.", $57
; 0x6b7af
UnknownText_0x6b7af: ; 0x6b7af
db $0, "KIPP: I study a", $4f
db "lot, but that's", $51
db "not good enough to", $4f
db "win.", $57
; 0x6b7e7
; This text is unused and unreferenced in the final game.
; The tree Pokémon is Sudowoodo.
; The Silph Scope 2 was later reworked into the Squirtbottle.
UnusedSudowoodoText: ; 0x6b7e7
db 0, "I hear there's a", $4f
db "#MON that looks", $55
db "just like a tree.", $51
db "You can reveal its", $4f
db "identity using a", $55
db "SILPHSCOPE 2.", $57
UnknownText_0x6b84c: ; 0x6b84c
db $0, "The Bug-Catching", $4f
db "Contest is held on", $51
db "Tuesday, Thursday", $4f
db "and Saturday.", $51
db "Not only do you", $4f
db "earn a prize just", $51
db "for participating,", $4f
db "you also get to", $51
db "keep the bug", $4f
db "#MON you may", $51
db "have at the end of", $4f
db "the contest.", $57
; 0x6b910
UnknownText_0x6b910: ; 0x6b910
db $0, "Uh-oh… Your PACK", $4f
db "is full.", $51
db "We'll hold on to", $4f
db "your prize, but", $55
db "only for today.", $51
db "Please make room,", $4f
db "then come see me.", $57
; 0x6b97f
UnknownText_0x6b97f: ; 0x6b97f
db $0, $52, "?", $51
db "Here's the prize", $4f
db "we were holding", $55
db "for you.", $57
; 0x6b9ac
Route36NationalParkgate_MapEventHeader: ; 0x6b9ac
; filler
db 0, 0
; warps
db 4
warp_def $4, $0, 1, GROUP_NATIONAL_PARK, MAP_NATIONAL_PARK
warp_def $5, $0, 2, GROUP_NATIONAL_PARK, MAP_NATIONAL_PARK
warp_def $4, $9, 1, GROUP_ROUTE_36, MAP_ROUTE_36
warp_def $5, $9, 2, GROUP_ROUTE_36, MAP_ROUTE_36
; xy triggers
db 0
; signposts
db 1
signpost 0, 6, $0, MapRoute36NationalParkgateSignpost0Script
; people-events
db 12
person_event SPRITE_OFFICER, 7, 4, $6, $0, 255, 255, $a0, 0, OfficerScript_0x6abe0, $0747
person_event SPRITE_YOUNGSTER, 9, 6, $7, $0, 255, 255, $80, 0, YoungsterScript_0x6ad06, $0720
person_event SPRITE_YOUNGSTER, 9, 8, $7, $0, 255, 255, $a0, 0, YoungsterScript_0x6ad1a, $0721
person_event SPRITE_ROCKER, 10, 6, $7, $0, 255, 255, $90, 0, RockerScript_0x6ad2e, $0722
person_event SPRITE_POKEFAN_M, 9, 10, $7, $0, 255, 255, $b0, 0, PokefanMScript_0x6ad42, $0723
person_event SPRITE_YOUNGSTER, 11, 6, $7, $0, 255, 255, $80, 0, YoungsterScript_0x6ad56, $0724
person_event SPRITE_YOUNGSTER, 10, 9, $7, $0, 255, 255, $a0, 0, YoungsterScript_0x6ad6a, $0725
person_event SPRITE_LASS, 10, 7, $7, $0, 255, 255, $90, 0, LassScript_0x6ad7e, $0726
person_event SPRITE_YOUNGSTER, 11, 8, $7, $0, 255, 255, $80, 0, YoungsterScript_0x6ad92, $0727
person_event SPRITE_YOUNGSTER, 11, 10, $7, $0, 255, 255, $a0, 0, YoungsterScript_0x6ada6, $0728
person_event SPRITE_YOUNGSTER, 10, 10, $7, $0, 255, 255, $90, 0, YoungsterScript_0x6adba, $0729
person_event SPRITE_OFFICER, 6, 7, $6, $0, 255, 255, $a0, 0, OfficerScript_0x6acf4, $0748
; 0x6ba67