55 lines
2.2 KiB
Plaintext
55 lines
2.2 KiB
Plaintext
(loadFrom "nat-archive-tool" "src/nat/Lib.kiss")
|
|
|
|
(defNew [&prop :PlayState playState
|
|
:ArchiveController controller]
|
|
(super
|
|
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)) |