But make sure to return 0 if they are the same because you'll have no end of trouble.
Method compare(s:Object)
Local o:system=system(s)
If o <> Null
If o.distanceToPlayer=distanceToPlayer
Return 0
ElseIf o.distanceToPlayer > distanceToPlayer
Return 1
Else
Return -1
EndIf
EndIf
End Method