...                                                                     
global loch = LoadSprite("media\loch.bmp")
scalesprite loch, 0.25, 0.25
entityalpha loch, 1
EntityBlend loch,2
SpriteViewMode loch,2   
...
function updatesprites()
 For eloch.loecher = Each loecher
  eloch\time = eloch\time + 1
  if eloch\time >= 300 Then eloch\alpha# = eloch\alpha# - 0.01
  If eloch\alpha > 0.0 Then   EntityAlpha eloch\sprite,eloch\alpha#
  if eloch\alpha <= 0.0 Then FreeEntity eloch\sprite : Delete eloch
 Next
end function