Import mojo.app
Import mojo.graphics
Import mojo.input
Global myGame:MyGame

   ' diese Methode benötigt man für das Sortieren
   ' a.x entspricht dabei der indes Variable
   ' nachder die Classe sortiert wird.

Class SpriteList Extends List<Sprite>
   Method Compare:Int(a:Sprite, b:Sprite)
      If a.x > b.x Return 1
      If a.x = b.x Return 0
      Return -1
   End
End

Class Sprite
   Global list:SpriteList = New SpriteList

   Field x:Float = 1.0
   Field y:Float = 1.0
   
   ' index Variable
   
   Method New(a:Float)
      x=a
   End
End


Function Main:Int()
   myGame = New MyGame
   Return 0
End Function

Class MyGame Extends App

   Method OnCreate()
      
      SetUpdateRate 30
      
      ''with with float data
      For Local i:= 0 To 1000
         Local alien:Sprite = New Sprite(Rnd(0,100.0))
         Sprite.list.AddLast(alien)
      Next
      
      Print "ascending"
      Sprite.list.Sort(True) ''ascending
      
      For Local temp:Sprite = Eachin Sprite.list
         Print temp.x
      Next
      
      Print ""
      Print "descending"
      
      Sprite.list.Sort(False) ''descending
      
      For Local temp:Sprite = Eachin Sprite.list
         Print temp.x
      Next
      
   End
   
   Method OnUpdate()
      If KeyHit(KEY_ESCAPE) Then Error ""
   End
   
   Method OnRender()
      Cls
      DrawText "Done.",0,0
   End   
End