kiss-lang/hollywoo
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

intercut feature for hollywoo

Browse Source
This commit is contained in:
Nat Quayle Nelson
2021-12-03 22:55:12 -07:00
parent bee142022c
commit 666bb1c33c
1 changed files with 16 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
src/hollywoo/Movie.kiss
View File

@@ -187,13 +187,26 @@
// Dialogue:
(prop &mut :Map<String,String> intercutMap)
(hollywooMethod intercut [:Map<String,String> actorNamesToSceneNames cc]
(set intercutMap actorNamesToSceneNames))
(hollywooMethod endIntercut [cc]
(set intercutMap null))
(method showDialog [actorName dialogType wryly text cc]
(when intercutMap
(whenLet [sceneForActor (dictGet intercutMap actorName)]
(setScene sceneForActor ->{})))
(director.showDialog actorName dialogType text cc))
(hollywooMethod superText [text cc]
(director.showDialog "" Super "" text cc))
(showDialog "" Super "" text cc))
(hollywooMethod normalSpeech [actorName wryly text cc]
(director.showDialog actorName (OnScreen (dictGet .characters (_currentScene) actorName)) wryly text cc))
(showDialog actorName (OnScreen (dictGet .characters (_currentScene) actorName)) wryly text cc))
(hollywooMethod onPhoneSpeech [actorName wryly text cc]
(director.showDialog actorName (ifLet [charOnScreen (dictGet .characters (_currentScene) actorName)]
(showDialog actorName (ifLet [charOnScreen (dictGet .characters (_currentScene) actorName)]
(OnScreen charOnScreen)
(FromPhone (dictGet actors actorName))) wryly text cc))