23 lines
728 B
Plaintext
23 lines
728 B
Plaintext
(import flixel.FlxG)
|
|
(import flixel.FlxState)
|
|
(import kiss_flixel.KissExtendedSprite)
|
|
(import flixel.util.FlxColor)
|
|
(import flixel.math.FlxRect)
|
|
(import flixel.addons.plugin.FlxMouseControl)
|
|
|
|
(extends FlxState)
|
|
|
|
(method &override :Void create []
|
|
(super.create)
|
|
(FlxG.plugins.add (new FlxMouseControl))
|
|
(let [sprites (for i (range 3)
|
|
(new KissExtendedSprite (* i 150) 0))]
|
|
(doFor s sprites
|
|
(set s.boundsRect (new FlxRect 0 0 FlxG.width FlxG.height))
|
|
(s.makeGraphic 100 100 FlxColor.WHITE)
|
|
(s.enableMouseDrag false)
|
|
(s.enableDragToSelect)
|
|
(add s))))
|
|
|
|
(method &override :Void update [:Float elapsed]
|
|
(super.update elapsed)) |