Text macros in text/.

text/phone/elm.asm

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