Type Sprite
  Field Alpha:Float
  Field Img:TImage
  Field x, y

  Method Draw()
    Local old_alpha:Float = GetAlpha()
    SetAlpha(Alpha)
    DrawImage Img, x, y
    SetAlpha(old_alpha)
  End Method

End Type

Type TSprite
   Global _list:TList
   
   Field x:Short
   Field y:Short
   Field alpha:Float
   Field color:Byte[3]
   Field image:TImage
   
   Method New()
      If _list:TList = Null Then _list:TList = New TList
      _list.AddLast(Self)
   End Method
   
   Method Add(x:Short,y:Short
      self.x = x
      self.y = y
   End Method
End Type



Type TSpriteHandler
   Field sprite:TSprite
   
   Method Add(x,y)
      sprite:TSprite = New TSprite
      sprite.Add(x,y)
   End Method
   
   Method Draw()
      If sprite:TSprite<>Null
         
         For sprite:TSprite = EachIn sprite._list
            SetAlpha sprite.alpha
            SetColor sprite.color[0],sprite.color[1],sprite.color[2]
            DrawImage sprite.image,sprite.x,sprite.y
         Next
      
      EndIf
      
      SetColor 255,255,255
      SetAlpha 1.0
   End Method
End Type