Function spiel()
  For einheit.einheit = Each einheit
	pathfinding(einheit\x,einheit\y,einheit\zielx,einheit\ziely)
  Next
  
Cls
 
path = Last path
If Not path = Null Then   / <--- Hier laufe ich den Weg der Einheit ab, damit sie ihn  langsam entlangläuft und sich nicht einfach beamt...
	path = Before path
	 Rect path\node\x*32,path\node\y*32,32,32,1
    nodes3=nodes3+1	
	For einheit.einheit = Each einheit		
		einheit\x = path\node\x
		einheit\y = path\node\y	
	DrawImage einheit\bild, einheit\x*32-scrollx,einheit\y*32-scrolly-32, einheit\frame
	Next
EndIf

karte()
einheiten_malen()
einheitenauswahl()
karte2() 
Flip
End Function

Function pathfinding(startx,starty,endx,endy)
  Delete Each node
  Delete Each open
  Delete Each path
  Dim nodemap(mapwidth,mapheight)
  If startx=endx And starty=endy Then Return

  node.node=New node
  node\x=startx
  node\y=starty
  open.open=New open
  open\node=node
  nodemap(startx,starty)=1

  .again0
  node=Null
  cost=2147483647
  For open=Each open
    delta=Abs(open\node\x-endx)+Abs(open\node\y-endy)
    If open\node\cost+delta<cost Then
      cost=open\node\cost+delta
      node=open\node
      tempopen.open=open
    EndIf
  Next
  If node=Null Then Return
  Delete tempopen

  For i=0 To 3
	x=node\x+dirx(i)
    y=node\y+diry(i)

    If x=>0 And y=>0 And x<=mapwidth And y<=mapheight Then
      If map(x,y, 2)=0 And nodemap(x,y)=0 Then
        tempnode.node=New node
        tempnode\parent=node
        tempnode\cost=node\cost+1
        tempnode\x=x
        tempnode\y=y
        open.open=New open
        open\node=tempnode
        nodemap(x,y)=1
        If x=endx And y=endy Then finish=1:Exit
      EndIf
    EndIf
  Next
  If finish=0 Then Goto again0

  While tempnode\parent<>Null
    path=New path
    path\node=tempnode
    tempnode=tempnode\parent
  Wend
  path=New path
  path\node=tempnode
End Function