rename some standalone projects

projects/_standalone/nat-flixel-playground/source/EntrySpriteSystem.kiss

@@ -0,0 +1,56 @@
+(loadFrom "nat-archive-tool" "src/nat/Lib.kiss")
+
+(defNew [&prop :PlayState playState
+            :ArchiveController controller]
+    (super
+        "EntrySpriteSystem"
+        playState
+        ->[archive e]
+            ?(or (hasComponent e Name) (hasComponent e Circle) (hasComponent e Rectangle))
+        ->[archive e pos &opt ui]
+            (let [sprite (new EntrySprite this _playgroundKey pos archive e controller)]
+                (set sprite.cameras [FlxG.camera])
+                (sprite.enableDragToSelect
+                    ->:Void {
+                        (controller.AddSelectEntry e)
+                        (sprite.updateColor)
+                    }
+                    ->:Void {
+                        (controller.DeSelectEntry e)
+                        (sprite.updateColor)
+                    })
+                (playState.entryGroup.add sprite)
+                sprite)
+        ->[archive e pos e2 pos2 &opt ui]
+            (let [o .origin (dictGet entryReps e.id)
+                    o2 .origin (dictGet entryReps e2.id)]
+                (playState.debugLayer.drawLine (+ pos.x o.x) (+ pos.y o.y) (+ pos2.x o2.x) (+ pos2.y o2.y) FlxColor.LIME))
+        ->[archive e &opt ui]
+            {
+                (whenLet [sprite (dictGet entryReps e.id)]
+                    (sprite.kill)
+                    (playState.entryGroup.remove sprite true))
+            }))
+
+(method &override :Void clear [:ColorF color]
+    (set playState.bgColor (FlxColor.fromRGBFloat color.r color.g color.b color.a))
+    (playState.debugLayer.clear)
+    (entryReps.clear)
+    (playState.entryGroup.kill)
+    (playState.entryGroup.clear)
+    (playState.entryGroup.revive))
+
+(method z [:Entry e]
+    .z (dictGet (readComponent e Positions) _playgroundKey))
+
+// override process to z-sort all sprites after making them
+(method &override :Void process [:Archive archive &opt :ArchiveUI ui]
+    (super.process archive ui)
+    (FlxG.camera.calculateScrollBounds playState.entryGroup PlayState.SCROLL_BOUND_MARGIN)
+    (playState.entryGroup.sort ->[o s1 s2] (FlxSort.byValues o (z s1.e) (z s2.e))))
+
+(prop defaultSpacing 50)
+(prop &mut defaultY 0)
+(method &override :Position defaultPosition [_] 
+    (+= defaultY defaultSpacing)
+    (object x 0 y defaultY z 0.0))