[Randomize]

Type sprite
    Field order:Int
    
    Method Compare:Int(otherObject:Object)
        s:sprite = sprite(otherObject)
        If Not s Then Return 1
        Return order - s.order
    End Method
End Type



' ----------------------------
SeedRnd(MilliSecs())
Local sprite_list:TList = New TList


For Local i:Int=1 To 100
    s:sprite = New sprite
    s.order = Rand(100)
    ListAddLast sprite_list, s
Next



SortList(sprite_list)

For Local s:Int = EachIn sprite_list
    Print s.order
Next