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

compile-guard hank which is incompatible with hscriptPos

Browse Source
This commit is contained in:
Nat Quayle Nelson
2025-11-03 12:02:29 -06:00
parent cd6191c53e
commit 369b636597
2 changed files with 32 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/kiss_flixel/SimpleWindow.hx
View File

@@ -22,7 +22,9 @@ import flixel.input.mouse.FlxMouseEvent;
import kiss_flixel.KissExtendedSprite;
import flixel.addons.plugin.FlxMouseControl;
import hx.strings.Strings;
#if !hscriptPos
import hank.Story;
#end
using haxe.io.Path;
using StringTools;

59
src/kiss_flixel/SimpleWindow.kiss
View File

@@ -1066,32 +1066,33 @@
(+ (or choiceWindow.selectionMarker?.width 0) (* textSize 2) (or choiceWindow.xText?.width 0) (apply max (for control choiceWindow.controls control.width)))
(Std.int choiceWindow.nextControlY)))))
(function hankStoryWindow [:String file :ConstructorArgs args &opt :Map<String,HankChoiceTagEvent> onChoiceTags]
(let [story (Story.FromFile file)
window (SimpleWindow.create args)]
(localFunction :Void showNextFrame []
(let [frame (story.nextFrame)]
(case frame
(Finished
(window.makeTextV2 "Done"
(object
onClick ->_ (window.hide))))
((HasText text)
(window.makeTextV2 text)
(showNextFrame))
((HasChoices choices tags)
(doFor [idx choice] (enumerate choices)
(window.makeTextV2 "[$(+ idx 1)] $choice"
(object onClick
->_ {
// Call events for tags
(doFor tag (nth tags idx)
(when (onChoiceTags?.exists tag)
((dictGet onChoiceTags tag) choice)))
(story.choose idx)
(window.clearControls)
(showNextFrame)
}))))
(never null))))
(showNextFrame)
window))
(#unless hscriptPos
(function hankStoryWindow [:String file :ConstructorArgs args &opt :Map<String,HankChoiceTagEvent> onChoiceTags]
(let [story (Story.FromFile file)
window (SimpleWindow.create args)]
(localFunction :Void showNextFrame []
(let [frame (story.nextFrame)]
(case frame
(Finished
(window.makeTextV2 "Done"
(object
onClick ->_ (window.hide))))
((HasText text)
(window.makeTextV2 text)
(showNextFrame))
((HasChoices choices tags)
(doFor [idx choice] (enumerate choices)
(window.makeTextV2 "[$(+ idx 1)] $choice"
(object onClick
->_ {
// Call events for tags
(doFor tag (nth tags idx)
(when (onChoiceTags?.exists tag)
((dictGet onChoiceTags tag) choice)))
(story.choose idx)
(window.clearControls)
(showNextFrame)
}))))
(never null))))
(showNextFrame)
window)))