Muddling out hollywoo-flixel basics

haxelib.json

@@ -0,0 +1,17 @@
+{
+	"name": "hollywoo-flixel",
+	"description": "",
+	"classPath": "src/",
+	"dependencies": {
+		"kiss": "",
+		"hollywoo": ""
+	},
+	"url": "https://github.com/NQNStudios/kisslang",
+	"contributors": [
+		"NQNStudios"
+	],
+	"version": "0.0.0",
+	"releasenote": "",
+	"tags": [],
+	"license": "LGPL"
+}

src/hollywoo_flixel/FlxActorSprite.hx

@@ -0,0 +1,8 @@
+package hollywoo_flixel;
+
+import kiss.Prelude;
+import kiss.List;
+import flixel.FlxSprite;
+
+@:build(kiss.Kiss.build())
+class FlxActorSprite extends FlxSprite {}

src/hollywoo_flixel/FlxDirector.hx

@@ -0,0 +1,11 @@
+package hollywoo_flixel;
+
+import kiss.Prelude;
+import kiss.List;
+import hollywoo.Director;
+import hollywoo.Stage;
+
+import hollywoo_flixel.FlxStageState;
+
+@:build(kiss.Kiss.build())
+class FlxDirector implements Director<FlxSetState, FlxStagePosition, FlxStageFacing, FlxScreenPosition, FlxActorSprite> {}

src/hollywoo_flixel/FlxDirector.kiss

@@ -0,0 +1,7 @@
+(defNew [])
+
+(method :Void showSet [:FlxSetState set :Appearance appearance :Continuation cc]
+    (print "Shneezy"))
+
+(method :Void showCharacter [:Character<FlxStagePosition,FlxStageFacing,FlxActorSprite> character :Appearance appearance :Continuation cc]
+    (print "Character shneezy"))

src/hollywoo_flixel/FlxSetState.hx

@@ -0,0 +1,8 @@
+package hollywoo_flixel;
+
+import kiss.Prelude;
+import kiss.List;
+import flixel.FlxState;
+
+@:build(kiss.Kiss.build())
+class FlxSetState extends FlxState {}

src/hollywoo_flixel/FlxSetState.kiss

@@ -0,0 +1,5 @@
+(method &override :Void create []
+    (super.create))
+
+(method &override :Void update [:Float elapsed]
+    (super.update elapsed))

src/hollywoo_flixel/FlxStageState.hx

@@ -0,0 +1,28 @@
+package hollywoo_flixel;
+
+import flixel.FlxState;
+import hollywoo.Stage;
+
+enum FlxStagePosition {
+    Left;
+    Right;
+}
+
+enum FlxStageFacing {
+    Left;
+    Right;
+}
+
+enum FlxScreenPosition {
+    UpperLeft;
+    UpperRight;
+    LowerLeft;
+    LowerRight;
+    LowerCenter;
+    UpperCenter;
+}
+
+typedef FlxStage = Stage<FlxSetState, FlxStagePosition, FlxStageFacing, FlxScreenPosition, FlxActorSprite>;
+
+@:build(kiss.Kiss.build())
+class FlxStageState extends FlxState {}

src/hollywoo_flixel/FlxStageState.kiss

@@ -0,0 +1,11 @@
+(prop &mut :FlxDirector director)
+(prop &mut :FlxStage stage)
+
+(method &override :Void create []
+    (super.create)
+    (set director (new FlxDirector))
+    //(this.run)
+    )
+
+(method &override :Void update [:Float elapsed]
+    (super.update elapsed))