Type Tfliege
   Field x:Float
   Field y:Float
   Field speed:Float
   Field richtung:Byte
   Field life:Byte
   Field scale:Float = 0.6
   Method Draw(fspeed:Float)
      x = x + (speed*(richtung-1))*fspeed
      SetScale((richtung-1)*scale,1*scale)
      DrawImage(fliege,x,y)
      SetScale(1,1)
   End Method
End Type

... 25 fliegen sind erstellt ...

         For Local flie:Tfliege = EachIn fliegenlist
            flie.Draw(fspeed)
            if flie.x < 0 or flie.x > 800 Then
               flie.y = Rnd(0,300)
               flie.speed = Rnd(0.1,0.3)
               flie.richtung = Rand(0,2)
               if flie.richtung = 0 Then
                  flie.x = 400
               Else
                  flie.x = 400
               End If
            End If
         Next