l_pathing(auto1,kiauto,w_p_auto1,pivot,"testkoords.txt",1,4)


Function l_pathing(name,mesh,pivot_n,c_pivot,datei$,start,ende)
   name.t_pathing = New t_pathing
   name\model = CopyEntity(mesh)
   name\pivot_n = CopyEntity(c_pivot)
   dat = OpenFile(datei$)
   For i = 1 To ende
      name\x[i] = ReadInt(dat)
      name\z[i] = ReadInt(dat)
   Next
   PositionEntity name\model,name\x[start],0,name\z[start]
   PositionEntity name\pivot_n,name\x[start+1],0,name\z[start+1]
   PointEntity name\model,name\pivot_n   
End Function

"name".Typenamen = Each Typenamen

Function waffenwahl()
   For pistole.waffe = Each waffe
   If KeyHit(2) = 1 And pistole\vis = 0 Then
      pistole\vis = 1
      sniper\vis = 0
      gatling\vis = 0
   Else If KeyHit(3) = 1 And sniper\vis = 0 Then
      sniper\vis = 1
      gatling\vis = 0
      pistole\vis = 0
   Else If KeyHit(4) = 1 And gatling\vis = 0Then
      gatling\vis = 1
      sniper\vis = 0
      pistole\vis = 0
   End If
   If pistole\vis = 1 Then
      ShowEntity pistole\model
      HideEntity sniper\model
      HideEntity gatling\model
   Else If sniper\vis = 1 Then
      HideEntity pistole\model
      ShowEntity sniper\model
      HideEntity gatling\model
   Else If gatling\vis = 1 Then
      HideEntity pistole\model
      HideEntity sniper\model
      ShowEntity gatling\model
   End If
   Next               
End Function