Type TFlyer
   Field Hp
   Field Sp
   Field Image:TImage[3,10,10]
   
   Function Create:TFlyer()
      Local Flieger:TFlyer=New TFlyer
     
      Flieger.Hp=200
      Flieger.Sp=200
     
      Flieger.LoadImage()
      Return Flieger
   End Function
   
   Method LoadImage()
      Local si:String
      Local array:String[]=["","_down","_up"]
      Local lol:String

      SetBlend AlphaBlend
     
      For i5=1 To 3
         For i=1 To 10
            For i3=1 To 10
               si=i
               si=RSet(si,4)
               si=Replace(si," ","0")
               'Self.Image[i5-1,i-1,i3-1]=
               'fghfh=LoadImage("flugzeug"+array[i5-1]+""+i3+""+si+".png")
               fghfh=brl.max2d.LoadImage("flugzeugpng") ' <-- Fehler?

            Next
         Next
      Next
   End Method
End Type