kiss-lang/kiss-vscode
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 d80b0c01a9
commit 2348de8978
1 changed files with 16 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
projects/hollywoo/src/hollywoo/Movie.kiss
View File

@@ -187,13 +187,26 @@
// Dialogue: // 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] (hollywooMethod superText [text cc]
(director.showDialog "" Super "" text cc)) (showDialog "" Super "" text cc))
(hollywooMethod normalSpeech [actorName wryly 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] (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) (OnScreen charOnScreen)
(FromPhone (dictGet actors actorName))) wryly text cc)) (FromPhone (dictGet actors actorName))) wryly text cc))