;___________gegner
	For z = Each zomb
		;___________wegfinden
		;___________bei space zu bob
		If KeyDown(57)
			z\x=a\x
			z\y=a\y
		End If
		;___________koordinaten von nase etc.
		naseb=1
		naseh=1
		z\nasex = z\x+(z\xspeed*4)
		z\nasey = z\y+(z\yspeed*4)
		If Sqr((z\zielx-z\x)^2+(z\ziely-z\y)^2) > 2
			z\winkel=ATan2((z\ziely-z\y),(z\zielx-z\x))
			If z\winkel <0
				z\winkel=z\winkel +360
			End If
			z\xspeed#=z\s# * Cos(z\winkel)
			z\yspeed#=z\s# * Sin(z\winkel)
			z\x = z\x + z\xspeed#
			z\y = z\y + z\yspeed#
		End If
		;___________ziel der zombies
		z\zielxtemp = a\x
		z\zielytemp = a\y
		If Sqr((z\zielx-z\x)^2+(z\ziely-z\y)^2) < 2
			z\zielx = z\zielxtemp
			z\ziely = z\zielytemp
		EndIf
		If ImageRectCollide(map, 1, 1, Rect, z\nasex,z\nasey,naseb,naseh)
			k=5
			n=1
			i=0
			Repeat
				i=i+1
				n=n*(-1)
				z\nasex = z\x+Cos(z\winkel+n*i)*k
				z\nasey = z\y+Sin(z\winkel+n*i)*k
				If i=360
					i=0
					k=k+1
				EndIf
			Until ImageRectCollide(map, 1, 1, Rect, z\nasex,z\nasey,naseb,naseh)=0
			z\zielx = z\nasex
			z\ziely = z\nasey
		End If
		;___________wegfinden ende
		w2=ATan2((z\zielytemp-z\y),(z\zielxtemp-z\x))/5
		If w2 <0 
			w2=w2+72
		EndIf	
		DrawImage zombieturn(w2),z\x,z\y

AppTitle("kollision")
timer = CreateTimer(60)
Graphics 500,200,0,2
SetBuffer BackBuffer()

Global b= LoadImage("b.bmp")
Global b2 = LoadImage("b2.bmp")
MidHandle b
MidHandle b2

Dim map(1,1)

	tilemapping(b,1);wie ermittel ich die maskcolor, bzw was ist die maskcolor "schwarz" als integerwert? hab hier einfach eine 1 genommen, damit das programm erstmal läuft!
While Not KeyDown(1)
	Cls
	
	
	For u=1 To 10
		For p=1 To 10
			Print map (u,p)	;map(u,p) ist bei mir immer 0
		Next
	Next


	
	Flip 0
	WaitTimer timer
Wend
End

Function tilemapping(bild,maskcolor)
	y=ImageHeight(bild)
	x=ImageWidth(bild)
	tilebreite = 10
	tilehohe = 10
	tileX=x/tilebreite ;in meinem beispiel ist das ungefähr 13, das bild ist quadratisch
	tileY=y/tilehohe
	Dim map(tilex,tiley)
	Cls
	DrawImage bild ,0,0
	LockBuffer
	For i=1 To tilex ;sind diese "for next" schleifen sinnvoll?
		For j=1 To tiley
			For b = 0 To tilebreite
				For h = 0 To tilehohe
					If ReadPixelFast(b,h) <> maskcolor ;ist diese if bedingung richtig?
						map(i,j)=1
					Else
						map(i,j)=0
					EndIf
				Next
			Next			
		Next
	Next
	UnlockBuffer
	Cls
	Return
End Function