Graphics 800,600,32,1

Global teil0 = LoadAnimImage ("gfx/teil0.bmp",100,100,0,4)
Global teil1 = LoadAnimImage ("gfx/teil1.bmp",100,100,0,4)
Global teil2 = LoadAnimImage ("gfx/teil2.bmp",100,100,0,4)
Global teil3 = LoadAnimImage ("gfx/teil3.bmp",100,100,0,4)
Global teil4 = LoadAnimImage ("gfx/teil4.bmp",100,100,0,4)
Global teil5 = LoadAnimImage ("gfx/teil5.bmp",100,100,0,4)
Global teil6 = LoadAnimImage ("gfx/teil6.bmp",100,100,0,4)
Global begrenzung = LoadImage ("gfx/begrenzung.bmp")
Global boden = LoadImage ("gfx/boden.bmp")
Global randrechts = LoadImage ("gfx/randrechts.bmp")
Global randlinks = LoadImage ("gfx/randlinks.bmp")


MaskImage teil0,255,0,255
MaskImage teil1,255,0,255
MaskImage teil2,255,0,255
MaskImage teil3,255,0,255
MaskImage teil4,255,0,255
MaskImage teil5,255,0,255
MaskImage teil6,255,0,255
MaskImage begrenzung,255,0,255
MaskImage randrechts,255,0,255
MaskImage randlinks,255,0,255


;legt teile 0-6 in ein blitzarray
Global teilblz[6]
   teilblz[0]=teil0
   teilblz[1]=teil1
   teilblz[2]=teil2   
   teilblz[3]=teil3   
   teilblz[4]=teil4   
   teilblz[5]=teil5   
   teilblz[6]=teil6

; sorte = welches teil, frame = in welcher position das teil ist
Global x=175,y=50,frame=0,sorte=Rand(0,6)

Cls
Locate 250,300
Global geschw = Input("Gib die gewünschte Geschwindigkeit an: ")

;legt den type teiltyp an, der die daten der liegenden teile speichert
Type teiltyp
   Field teilx
   Field teily
   Field teilframe
   Field teilsorte
End Type

Global a.teiltyp


Repeat
   SetBuffer BackBuffer()
   Cls
   
   ; zeichnet das spielfeld
   spielfeld()
      
   ; steuerung des aktuellen teiles
   y = y+geschw
   steuerung()   
      
   ; legt den rand des spielfeldes fest
   randspielfeld()
      
   ;zeichnet aktuelles teil
   aktteil()
   
   ; zeichnet liegende teile
   liegendeteile()
   
   ; prüft ob die teile den boden berühren, wenn ja -> legt sie in teiltyp ab und setzt die daten für den neuen stein wieder auf die anfangswerte
   bodenkolission()
   
      
   Flip
Until KeyHit(1)

End




Function spielfeld()
   DrawImage begrenzung,100,95
   DrawImage boden,95,500
   DrawImage randrechts,350,95
   DrawImage randlinks,95,95
End Function
   


Function steuerung()
   If KeyHit(203) Then x = x-25
   If KeyHit(205) Then x = x+25
   If KeyHit(200) Then frame = frame + 1
   If frame = 4 Then frame = 0
End Function   



Function randspielfeld()
   If ImagesCollide (teilblz[sorte],x,y,frame,randlinks,95,95,0) Then x=x+25
   If ImagesCollide (teilblz[sorte],x,y,frame,randrechts,350,95,0) Then x=x-25
End Function



Function aktteil()
   DrawImage (teilblz[sorte],x,y,frame)
End Function



Function liegendeteile()
   For a.teiltyp = Each teiltyp
      DrawImage (teilblz[a\teilsorte],a\teilx,a\teily-1,a\teilframe)
   Next
End Function



Function bodenkolission()
   If ImagesCollide (boden,95,500,0,teilblz[sorte],x,y,frame) Then
      
      a.teiltyp = New teiltyp
      a\teilx = x
      a\teily = y
      a\teilframe = frame
      a\teilsorte = sorte
      
      x = 175
      y = 50
      frame = 0
      sorte = Rand(0,6)
   
   EndIf
End Function

teilblz[0]=teil0

teilblz[0]=copyimage(teil0)

For i = 0 to 6
    image[i] = loadanimimage("pfad/name"+i+".png",....)
next