Function KillBlock(x:Int,y:Int,c:Int)
	blockfield[x,y]=0
	If blockfield[x+1,y]=c And x+1<12 Then
		killblock(x+1,y,c)
	End If
	If blockfield[x,y+1]=c And y+1<8 Then
		killblock(x,y+1,c)
	End If
	If blockfield[x-1,y]=c And x-1>-1 Then
		killblock(x-1,y,c)
	End If
	If blockfield[x,y-1]=c And y-1>-1 Then
		killblock(x,y-1,c)
	End If
End Function