Merge pull request #87 from iimarckus/shootbreeze

phone call texts and phone call scripts
This commit is contained in:
Bryan Bishop 2013-01-14 20:44:50 -08:00
commit e92a9ead39
7 changed files with 2218 additions and 5 deletions

View File

@ -1,10 +1,15 @@
.SUFFIXES: .asm .tx .o .gbc
TEXTFILES = text/sweethoney.tx
TEXTFILES = text/sweethoney.tx \
text/phone/bill.tx \
text/phone/elm.tx \
text/phone/mom.tx \
text/phone/trainers1.tx \
main.tx
all: pokecrystal.gbc
pokecrystal.o: pokecrystal.asm main.tx constants.asm wram.asm ${TEXTFILES}
pokecrystal.o: pokecrystal.asm constants.asm wram.asm ${TEXTFILES}
rgbasm -o pokecrystal.o pokecrystal.asm
.asm.tx:

View File

@ -25,6 +25,11 @@ callba: MACRO
rst $08
ENDM
TX_RAM: MACRO
db 1
dw \1
ENDM
TX_FAR: MACRO
db $16
dw \1
@ -3339,4 +3344,4 @@ NUM_SRAM_BANKS EQU 4
Unkn1Pals EQU $d000 ; 8 4-color palettes little endian)
Unkn2Pals EQU $d040 ; 8 4-color palettes little endian)
BGPals EQU $d080 ; 8 4-color palettes little endian)
OBPals EQU $d0c0 ; 8 4-color palettes little endian)
OBPals EQU $d0c0 ; 8 4-color palettes little endian)

298
main.asm
View File

@ -84910,7 +84910,298 @@ INCBIN "baserom.gbc",$B83E5,$bc000 - $b83e5
SECTION "bank2F",DATA,BANK[$2F]
INCBIN "baserom.gbc",$BC000,$4000
INCBIN "baserom.gbc",$bc000,$bcea5-$bc000
UnusedPhoneScript: ; 0xbcea5
3writetext BANK(UnusedPhoneText), UnusedPhoneText
end
MomPhoneScript: ; 0xbceaa
checkbit1 $0040
iftrue .bcec5
checkbit1 $0041 ; if dude talked to you, then you left home without talking to mom
iftrue MomPhoneLectureScript
checkbit1 $001f
iftrue MomPhoneNoGymQuestScript
checkbit1 $001a
iftrue MomPhoneNoPokedexScript
2jump MomPhoneNoPokemonScript
.bcec5 ; 0xbcec5
checkbit1 $0007
iftrue MomPhoneHangUpScript
3writetext BANK(MomPhoneGreetingText), MomPhoneGreetingText
keeptextopen
mapnametotext $0
checkcode $f
if_equal $1, UnknownScript_0xbcee7
if_equal $2, $4f27
2jump UnknownScript_0xbcf2f
UnknownScript_0xbcedf: ; 0xbcedf
3writetext $6d, $4021
keeptextopen
2jump UnknownScript_0xbcf37
UnknownScript_0xbcee7: ; 0xbcee7
checkcode $c
if_equal GROUP_NEW_BARK_TOWN, .newbark
if_equal GROUP_CHERRYGROVE_CITY, .cherrygrove
if_equal GROUP_VIOLET_CITY, .violet
if_equal GROUP_AZALEA_TOWN, .azalea
if_equal GROUP_GOLDENROD_CITY, .goldenrod
3writetext BANK(MomPhoneGenericAreaText), MomPhoneGenericAreaText
keeptextopen
2jump UnknownScript_0xbcf37
.newbark ; 0xbcf05
3writetext BANK(MomPhoneNewBarkText), MomPhoneNewBarkText
keeptextopen
2jump UnknownScript_0xbcf37
.cherrygrove ; 0xbcf0d
3writetext BANK(MomPhoneCherrygroveText), MomPhoneCherrygroveText
keeptextopen
2jump UnknownScript_0xbcf37
.violet ; 0xbcf15
displaylocation $7 ; sprout tower
3call $3,$4edf
.azalea ; 0xbcf1b
displaylocation $d ; slowpoke well
3call $3,$4edf
.goldenrod ; 0xbcf21
displaylocation $11 ; radio tower
3call $3,$4edf
3writetext $6d, $411c
keeptextopen
2jump UnknownScript_0xbcf37
UnknownScript_0xbcf2f: ; 0xbcf2f
3writetext $6d, $4150
keeptextopen
2jump UnknownScript_0xbcf37
UnknownScript_0xbcf37: ; 0xbcf37
checkbit2 $0008
iffalse UnknownScript_0xbcf49
checkmoney $1, 0
if_equal $0, UnknownScript_0xbcf55
2jump UnknownScript_0xbcf63
UnknownScript_0xbcf49: ; 0xbcf49
checkmoney $1, 0
if_equal $0, UnknownScript_0xbcf79
2jump UnknownScript_0xbcf6e
UnknownScript_0xbcf55: ; 0xbcf55
readmoney $1, $0
3writetext $6d, $41a7
yesorno
iftrue MomPhoneSaveMoneyScript
2jump MomPhoneWontSaveMoneyScript
UnknownScript_0xbcf63: ; 0xbcf63
3writetext $6d, $41ea
yesorno
iftrue MomPhoneSaveMoneyScript
2jump MomPhoneWontSaveMoneyScript
UnknownScript_0xbcf6e: ; 0xbcf6e
3writetext $6d, $420d
yesorno
iftrue MomPhoneSaveMoneyScript
2jump MomPhoneWontSaveMoneyScript
UnknownScript_0xbcf79: ; 0xbcf79
readmoney $1, $0
3writetext $6d, $4249
yesorno
iftrue MomPhoneSaveMoneyScript
2jump MomPhoneWontSaveMoneyScript
MomPhoneSaveMoneyScript: ; 0xbcf87
setbit2 $0008
3writetext $6d, $4289
keeptextopen
2jump MomPhoneHangUpScript
MomPhoneWontSaveMoneyScript: ; 0xbcf92
clearbit2 $0008
3writetext BANK(MomPhoneWontSaveMoneyText), MomPhoneWontSaveMoneyText
keeptextopen
2jump MomPhoneHangUpScript
MomPhoneHangUpScript: ; 0xbcf9d
3writetext BANK(MomPhoneHangUpText), MomPhoneHangUpText
end
MomPhoneNoPokemonScript: ; 0xbcfa2
3writetext BANK(MomPhoneNoPokemonText), MomPhoneNoPokemonText
end
MomPhoneNoPokedexScript: ; 0xbcfa7
3writetext BANK(MomPhoneNoPokedexText), MomPhoneNoPokedexText
end
MomPhoneNoGymQuestScript: ; 0xbcfac
3writetext BANK(MomPhoneNoGymQuestText), MomPhoneNoGymQuestText
end
MomPhoneLectureScript: ; 0xbcfb1
setbit1 $0040
setbit2 $0009
specialphonecall $0000
3writetext BANK(MomPhoneLectureText), MomPhoneLectureText
yesorno
iftrue MomPhoneSaveMoneyScript
2jump MomPhoneWontSaveMoneyScript
BillPhoneScript1: ; 0xbcfc5
checktime $2
iftrue .daygreet
checktime $4
iftrue .nitegreet
3writetext BANK(BillPhoneMornGreetingText), BillPhoneMornGreetingText
keeptextopen
2jump .main
.daygreet ; 0xbcfd7
3writetext BANK(BillPhoneDayGreetingText), BillPhoneDayGreetingText
keeptextopen
2jump .main
.nitegreet ; 0xbcfdf
3writetext BANK(BillPhoneNiteGreetingText), BillPhoneNiteGreetingText
keeptextopen
2jump .main
.main ; 0xbcfe7
3writetext BANK(BillPhoneGeneriText), BillPhoneGeneriText
keeptextopen
checkcode $10
RAM2MEM $0
if_equal $0, .full
if_greater_than $6, .nearlyfull
3writetext BANK(BillPhoneNotFullText), BillPhoneNotFullText
end
.nearlyfull ; 0xbcffd
3writetext BANK(BillPhoneNearlyFullText), BillPhoneNearlyFullText
end
.full ; 0xbd002
3writetext BANK(BillPhoneFullText), BillPhoneFullText
end
BillPhoneScript2: ; 0xbd007
3writetext BANK(BillPhoneNewlyFullText), BillPhoneNewlyFullText
closetext
end
ElmPhoneScript1: ; 0xbd00d
checkcode $14
if_equal $1, .pokerus
checkbit1 $0055
iftrue .discovery
checkbit1 $002d
iffalse .next
checkbit1 $0054
iftrue .egghatched
.next
checkbit1 $002d
iftrue .eggunhatched
checkbit1 $0701
iftrue .assistant
checkbit1 $001f
iftrue .checkingegg
checkbit1 $0043
iftrue .stolen
checkbit1 $001e
iftrue .sawmrpokemon
3writetext BANK(ElmPhoneStartText), ElmPhoneStartText
end
.sawmrpokemon ; 0xbd048
3writetext BANK(ElmPhoneSawMrPokemonText), ElmPhoneSawMrPokemonText
end
.stolen ; 0xbd04d
3writetext BANK(ElmPhonePokemonStolenText), ElmPhonePokemonStolenText
end
.checkingegg ; 0xbd052
3writetext BANK(ElmPhoneCheckingEggText), ElmPhoneCheckingEggText
end
.assistant ; 0xbd057
3writetext BANK(ElmPhoneAssistantText), ElmPhoneAssistantText
end
.eggunhatched ; 0xbd05c
3writetext BANK(ElmPhoneEggUnhatchedText), ElmPhoneEggUnhatchedText
end
.egghatched ; 0xbd061
3writetext BANK(ElmPhoneEggHatchedText), ElmPhoneEggHatchedText
setbit1 $0077
end
.discovery ; 0xbd069
random $2
if_equal $0, .nextdiscovery
3writetext BANK(ElmPhoneDiscovery1Text), ElmPhoneDiscovery1Text
end
.nextdiscovery ; 0xbd074
3writetext BANK(ElmPhoneDiscovery2Text), ElmPhoneDiscovery2Text
end
.pokerus ; 0xbd079
3writetext BANK(ElmPhonePokerusText), ElmPhonePokerusText
specialphonecall $0000
end
ElmPhoneScript2: ; 0xbd081
checkcode $14
if_equal $2, .disaster
if_equal $3, .assistant
if_equal $4, .rocket
if_equal $5, .gift
if_equal $8, .gift
3writetext BANK(ElmPhonePokerusText), ElmPhonePokerusText
specialphonecall $0000
end
.disaster ; 0xbd09f
3writetext BANK(ElmPhoneDisasterText), ElmPhoneDisasterText
specialphonecall $0000
setbit1 $0043
end
.assistant ; 0xbd0aa
3writetext BANK(ElmPhoneEggAssistantText), ElmPhoneEggAssistantText
specialphonecall $0000
clearbit1 $0700
setbit1 $0701
end
.rocket ; 0xbd0b8
3writetext BANK(ElmPhoneRocketText), ElmPhoneRocketText
specialphonecall $0000
end
.gift ; 0xbd0c0
3writetext BANK(ElmPhoneGiftText), ElmPhoneGiftText
specialphonecall $0000
end
.unused ; 0xbd0c8
3writetext BANK(ElmPhoneUnusedText), ElmPhoneUnusedText
specialphonecall $0000
end
INCBIN "baserom.gbc",$bd0d0,$c0000-$bd0fa
SECTION "bank30",DATA,BANK[$30]
@ -131701,7 +131992,10 @@ Route10North_MapEventHeader: ; 0x1b2099
SECTION "bank6D",DATA,BANK[$6D]
INCBIN "baserom.gbc",$1B4000,$4000
INCLUDE "text/phone/mom.tx"
INCLUDE "text/phone/bill.tx"
INCLUDE "text/phone/elm.tx"
INCLUDE "text/phone/trainers1.tx"
SECTION "bank6E",DATA,BANK[$6E]

73
text/phone/bill.asm Normal file
View File

@ -0,0 +1,73 @@
BillPhoneMornGreetingText: ; 0x1b4427
db $0, "Good morning!", $51
db "This is the #-", $4f
db "MON STORAGE SYSTEM", $51
db "ADMINISTRATION", $4f
db "SERVICE.", $57
BillPhoneDayGreetingText: ; 0x1b4470
db $0, "Good day!", $51
db "This is the #-", $4f
db "MON STORAGE SYSTEM", $51
db "ADMINISTRATION", $4f
db "SERVICE.", $57
BillPhoneNiteGreetingText: ; 0x1b44b5
db $0, "Good evening!", $51
db "This is the #-", $4f
db "MON STORAGE SYSTEM", $51
db "ADMINISTRATION", $4f
db "SERVICE.", $57
BillPhoneGeneriText: ; 0x1b44fe
db $0, "Who's calling?", $51
db $14, ", is it?", $4f
db "Hang on a sec…", $51
db $56, $4f
db $56, $57
BillPhoneNotFullText: ; 0x1b452a
db $0, "Thanks for", $4f
db "waiting!", $51
db $14, ", your BOX", $4f
db "has room for @"
TX_RAM $d099
db $0, $55
db "more #MON.", $51
db "Get out there and", $4f
db "fill it up!", $57
BillPhoneNearlyFullText: ; 0x1b4587
db $0, "Thanks for", $4f
db "waiting!", $51
db $14, ", your BOX", $4f
db "has room for only", $55
db "@"
TX_RAM $d099
db $0, " more #MON.", $51
db "Maybe you should", $4f
db "switch your BOX.", $57
BillPhoneFullText: ; 0x1b45ed
db $0, "Thanks for", $4f
db "waiting!", $51
db $14, ", your BOX", $4f
db "is full!", $51
db "You'll have to", $4f
db "switch BOXES if", $51
db "you want to catch", $4f
db "more #MON.", $57
BillPhoneNewlyFullText: ; 0x1b4652
db $0, "Hi, ", $14, "?", $4f
db "It's me, BILL!", $51
db "Thanks for using", $4f
db "my STORAGE SYSTEM.", $51
db "That last #MON", $4f
db "you sent filled", $55
db "your BOX up.", $51
db "You'll have to", $4f
db "switch BOXES if", $51
db "you want to catch", $4f
db "more #MON.", $51
db "Bye now!", $57

149
text/phone/elm.asm Normal file
View File

@ -0,0 +1,149 @@
ElmPhoneStartText: ; 0x1b46fc
db $0, "Hello, ", $14, "?", $51
db "Try not to overdo", $4f
db "it.", $51
db "Be sure to heal", $4f
db "your #MON if", $55
db "they are hurt.", $57
ElmPhoneSawMrPokemonText: ; 0x1b4749
db $0, "Hello, ", $14, "?", $51
db "Did you meet MR.", $4f
db "#MON? Great!", $55
db "Come back safely!", $57
ElmPhonePokemonStolenText: ; 0x1b4784
db $0, $14, "? I'm very", $4f
db "upset now.", $51
db "We had a #MON", $4f
db "stolen from here.", $51
db "How could anyone", $4f
db "do that?", $57
ElmPhoneCheckingEggText: ; 0x1b47d5
db $0, "Hello, ", $14, "?", $51
db "We're checking the", $4f
db "EGG now. It does", $51
db "appear to be a", $4f
db "#MON EGG.", $57
ElmPhoneAssistantText: ; 0x1b481c
db $0, "Hello, ", $14, "?", $51
db "Did you see my", $4f
db "assistant? He's at", $51
db "the #MON CENTER", $4f
db "in VIOLET CITY.", $57
ElmPhoneEggUnhatchedText: ; 0x1b4868
db $0, "Hello, ", $14, "?", $51
db "How's the EGG? Has", $4f
db "anything changed?", $51
db "If anything hap-", $4f
db "pens, please call.", $57
ElmPhoneEggHatchedText: ; 0x1b48bb
db $0, "Hello, ", $14, "?", $4f
db "How is the EGG?", $51
db "What? It hatched?", $4f
db "Wow! What kind of", $55
db "#MON is it?", $51
db "Please come show", $4f
db "me now!", $57
ElmPhoneDiscovery1Text: ; 0x1b491f
db $0, "Hello, ", $14, "?", $51
db "I just made a new", $4f
db "discovery.", $51
db "The time it takes", $4f
db "for an EGG to", $51
db "hatch depends on", $4f
db "the #MON.", $57
ElmPhoneDiscovery2Text: ; 0x1b4982
db $0, "Hello, ", $14, "?", $51
db "It's still a", $4f
db "mystery what kinds", $51
db "of moves hatched", $4f
db "#MON have.", $51
db "We're investigat-", $4f
db "ing that now.", $57
ElmPhonePokerusText: ; 0x1b49e7
db $0, "Hello, ", $14, "?", $51
db "I discovered an", $4f
db "odd thing.", $51
db "Apparently there's", $4f
db "something called", $51
db "#RUS that in-", $4f
db "fects #MON.", $51
db "Yes, it's like a", $4f
db "virus, so it's", $55
db "called #RUS.", $51
db "It multiplies fast", $4f
db "and infects other", $51
db "#MON too. But", $4f
db "that's all.", $51
db "It doesn't seem to", $4f
db "do anything, and", $51
db "it goes away over", $4f
db "time.", $51
db "I guess it's", $4f
db "nothing to worry", $55
db "about. Bye!", $57
ElmPhoneDisasterText: ; 0x1b4b17
db $0, "H-hello? ", $14, "?", $4f
db "It's a disaster!", $51
db "Uh, um, it's just", $4f
db "terrible!", $51
db "What should I do?", $4f
db "It… Oh, no…", $51
db "Please get back", $4f
db "here now!", $57
ElmPhoneEggAssistantText: ; 0x1b4b87
db $0, "Hello, ", $14, "? We", $4f
db "discovered some-", $51
db "thing about the", $4f
db "EGG!", $51
db "My assistant is at", $4f
db "the #MON CENTER", $51
db "in VIOLET CITY. ", $4f
db "Could you talk to", $55
db "him?", $57
ElmPhoneRocketText: ; 0x1b4c06
db $0, $14, ", how are", $4f
db "things going?", $51
db "I called because", $4f
db "something weird is", $51
db "happening with the", $4f
db "radio broadcasts.", $51
db "They were talking", $4f
db "about TEAM ROCKET.", $51
db $14, ", do you", $4f
db "know anything", $55
db "about it?", $51
db "Maybe TEAM ROCKET", $4f
db "has returned. No,", $51
db "that just can't", $4f
db "be true.", $51
db "Sorry to bug you.", $4f
db "Take care!", $57
ElmPhoneGiftText: ; 0x1b4d09
db $0, "Hello, ", $14, "?", $51
db "I have something", $4f
db "here for you.", $51
db "Could you swing by", $4f
db "my LAB?", $51
db "See you later!", $57
ElmPhoneUnusedText: ; 0x1b4d5d
db $0, "Hello, ", $14, "?", $4f
db "How's it going?", $51
db "I got ahold of", $4f
db "something neat.", $51
db "Swing by my LAB", $4f
db "and pick it up!", $51
db "See you later!", $57

127
text/phone/mom.asm Normal file
View File

@ -0,0 +1,127 @@
MomPhoneGreetingText: ; 0x1b4000
db $0, "Hello?", $51
db "Oh, hi, ", $52, "!", $4f
db "Working hard?", $57
UnknownText_0x1b4021: ; 0x1b4021
db $0, "Oh, so you're in", $4f
db "@"
TX_RAM $d099
db $0, "…", $51
db "Isn't that where", $4f
db "@"
TX_RAM $d0ac
db $0, $51
db "is? Did you go", $4f
db "take a look?", $57
MomPhoneGenericAreaText: ; 0x1b406b
db $0, "Really, you're in", $4f
db "@"
TX_RAM $d099
db $0, "?", $51
db "I've never gone", $4f
db "there. That's kind", $55
db "of neat, ", $52, ".", $57
MomPhoneNewBarkText: ; 0x1b40b1
db $0, "What? You're in", $4f
db "@"
TX_RAM $d099
db $0, "?", $51
db "Come see your MOM", $4f
db "sometime!", $57
MomPhoneCherrygroveText: ; 0x1b40e4
db $0, "You're visiting", $4f
db "@"
TX_RAM $d099
db $0, "?", $51
db "How about coming", $4f
db "home for a bit?", $57
UnknownText_0x1b411c: ; 0x1b411c
db $0, "Wow, you're in", $4f
db "@"
TX_RAM $d099
db $0, "?", $51
db "Good luck on your", $4f
db "#MON quest!", $57
UnknownText_0x1b4150: ; 0x1b4150
db $0, "That sounds really", $4f
db "tough.", $51
db "But, ", $52, ", I", $4f
db "know you're really", $51
db "determined. You'll", $4f
db "be OK, right?", $57
UnknownText_0x1b41a7: ; 0x1b41a7
db $0, "By the way, you've", $4f
db "saved up ¥@"
TX_RAM $d099
db $0, ".", $51
db "Do you want to", $4f
db "keep on saving?", $57
UnknownText_0x1b41ea: ; 0x1b41ea
db $0, "It's important to", $4f
db "save your money.", $57
UnknownText_0x1b420d: ; 0x1b420d
db $0, "Oh, ", $52, ",", $4f
db "you're not saving", $51
db "any money. Would", $4f
db "you like to save?", $57
UnknownText_0x1b4249: ; 0x1b4249
db $0, "By the way, you've", $4f
db "saved up ¥@"
TX_RAM $d099
db $0, ".", $51
db "Want to start", $4f
db "saving again?", $57
UnknownText_0x1b4289: ; 0x1b4289
db $0, "OK. I'll save your", $4f
db "money.", $57
MomPhoneWontSaveMoneyText: ; 0x1b42a3
db $0, "OK. I won't save", $4f
db "your money.", $57
MomPhoneHangUpText: ; 0x1b42c0
db $0, $52, ", keep it", $4f
db "up! I'm rooting", $55
db "for you, baby!", $57
MomPhoneNoPokemonText: ; 0x1b42ea
db $0, "Hello?", $51
db "Oh, hi, ", $52, "!", $4f
db "Wasn't PROF.ELM", $55
db "waiting for you?", $57
MomPhoneNoPokedexText: ; 0x1b431d
db $0, "Hello?", $51
db "Oh, hi, ", $52, "!", $4f
db "You're on a big", $51
db "mission for PROF.", $4f
db "ELM? Be good!", $57
MomPhoneNoGymQuestText: ; 0x1b435f
db $0, "Hello?", $51
db "Hi, ", $52, "! If", $4f
db "you're done with", $51
db "your errand come", $4f
db "on home, dear.", $57
MomPhoneLectureText: ; 0x1b43a1
db $0, "Hello?", $51
db "…… ", $52, "?", $4f
db "I heard from PROF.", $51
db "ELM that you went", $4f
db "on a long trip.", $51
db "I wish you would", $4f
db "have told me…", $51
db "What about money?", $4f
db "Should I save it?", $57

1560
text/phone/trainers1.asm Normal file

File diff suppressed because it is too large Load Diff