map 4 directions in handloose

projects/handloose/source/TypingState.hx

@@ -7,6 +7,8 @@ import flixel.util.FlxColor;
 import flixel.input.gamepad.FlxGamepad;
 import flixel.text.FlxText;
 import haxe.ds.Option;
+import kiss.Prelude;
+import kiss.List;
 
 using flixel.util.FlxSpriteUtil;
 
@@ -36,13 +38,6 @@ class TypingState extends FlxState
 		return spr;
 	}
 
-	override public function update(elapsed:Float)
-	{
-		super.update(elapsed);
-
-		var lastId = getFirstInputId();
-	}
-
 	function getFirstInputId():Option<Int> {
 		// Important: can be null if there's no active gamepad yet!
 		var gamepad:FlxGamepad = FlxG.gamepads.lastActive;

projects/handloose/source/TypingState.kiss

@@ -44,6 +44,32 @@
 (var SPRITE_SIZE 100)
 (var TEXT_SIZE 24)
 
+(prop :Map<Int,ArrowDir> inputCodes (new Map))
+(var DIR_ORDER [ Left Down Up Right ])
+
+(prop &mut :FlxText instructionText null)
+(method &override :Void update [:Float elapsed]
+    #|{
+		super.update(elapsed);
+
+		var lastId = getFirstInputId();
+    }|#
+
+    // Prompt to map the arrows
+    (let [mappedCodes (count inputCodes)
+            nextToMap (nth DIR_ORDER mappedCodes)]
+        (if (= DIR_ORDER.length mappedCodes)
+                (set instructionText.text "")
+            {
+                (unless instructionText
+                    (set instructionText (new FlxText "" TEXT_SIZE))
+                    (add instructionText))
+                (set instructionText.text "Press $nextToMap")
+                (instructionText.screenCenter)
+                (whenLet [(Some id) (getFirstInputId)]
+                    (dictSet inputCodes id nextToMap))
+            })))
+
 (method :FlxSprite makeTriangleSprite [:ArrowDir dir :String text :Int x :Int y]
     #|{
 		var spr = new FlxSprite();