fix conversion when there are multiple wrylies in a speech

This commit is contained in:
2021-12-14 14:45:40 -07:00
parent ccb6e23cb6
commit a9d89839a1

View File

@@ -13,7 +13,7 @@
&mut output ""]
(stream.takeLine)
(loop
(let [wryly (ifLet [(Some w) (stream.takeBetween "(" ")")] w "")
(let [wryly (ifLet [(Some w) (stream.takeBetween "(" ")\n")] w "")
line (ifLet [(Some l) (stream.takeLine)] (l.trim) (break))]
(when line
(+= output "ONPHONESPEECH \"${name}\" \"${wryly}\" ##\"${line}\"##\n"))))
@@ -28,7 +28,7 @@
(let [name (whenLet [(Some name) (stream.takeLine)] name)
&mut output ""]
(loop
(let [wryly (ifLet [(Some w) (stream.takeBetween "(" ")")] w "")
(let [wryly (ifLet [(Some w) (stream.takeBetween "(" ")\n")] w "")
line (ifLet [(Some l) (stream.takeLine)] (l.trim) (break))]
(when line
(+= output "NORMALSPEECH \"${name}\" \"${wryly}\" ##\"${line}\"##\n"))))