Function CreateBlock.TBlock(typ,ylb,yrb);Blocktyp,Anfangshöhe zum genrieren und max. Höhe
	Block.TBlock=New TBlock
	Block\img=CopyImage(sprites(typ))
	Block\typ=typ
	Select lastBlock[2];Je nach Blocktyp mögliche Pos errechenen.
		Case 0
			Block\x=Rand(10,width-10)
			Block\y=Rand(lastBlock[1]-15,lastBlock[1]-50)
		Case 2
			Block\x=Rand(10,width-10)
			Block\y=Rand(lastBlock[1]-15,lastBlock[1]-50)
		Case 3
			Block\x=Rand(10,width-10)
			Block\y=Rand(lastBlock[1]-30,lastBlock[1]-80)
		Case 4
			Block\x=Rand(10,width-10)
			Block\y=Rand(lastBlock[1]-20,lastBlock[1]-70)
	End Select	
	If Block\typ<>1;Alten Block in lastBlock schreiben
		lastBlock[0]=Block\x:lastBlock[1]=Block\y
		lastBlock[2]=Block\typ
	ElseIf Block\typ=1;Keine Blocküberschneidung bei typ 1
		Repeat 
			Block\y=Rand(ylb,yrb)
			Block\x=Rand(10,width-10)
		Until Abs(Block\y-lastBlock[1])>20 And Abs(Block\x-lastBlock[0])>10
	End If
	If Block\y>lowestBlock[1] And Block\typ<>1;Ist für Spielerstartpos.
		lowestBlock[0]=Block\x
		lowestBlock[1]=Block\y
	End If
	Block_anz=Block_anz+1
End Function
;Aufgerufen wird diese am Anfang durch:
Repeat ;Füllt das ganze Fenster
	CreateBlock(0,600,0)
Until Block\y<0