timedTitleCard conversion

tct/src/tct/conversions/FountainToHollywoo.kiss

@@ -104,6 +104,16 @@
                 "TIMEDSUPERTEXT ##\"${text}\"## ##\"Delay for supertext '${text}'\"##\n")
         }))
 
+(FileConversionProject.registerConversion
+    (new tct.StreamConversion "Timed title card" "fountain" "hollywoo"
+        ->stream (stream.startsWith "SUPER:")
+        ->stream {
+            (stream.dropString "SUPER:")
+            (stream.dropWhitespace)
+            (let [text (stream.expect "super text" ->(stream.takeLine))]
+                "TIMEDTITLECARD ##\"Delay for titlecard '${text}'\"## [##\"${text}\"##]\n")
+        }))
+
 (FileConversionProject.registerConversion
     (new tct.StreamConversion "Delay" "fountain" "hollywoo"
         ->stream (isScreenLine stream.content)