Global Anzahl=10 ;Gegner Anzahl

;Felder
Dim Unit(Anzahl,3)
Dim Unit_Schuss(Anzahl,100,1)
Dim distance#(Anzahl)
;

;Reichweite
Global range#=50
;

;Distanz mesh mit Gegnern
For I=0 To Anzahl
distance(I)=EntityDistance(mesh,Unit(J,0))
Next 
;

;Funktion
Function KI()

;Gegnermodell laden + Startkoordinaten
For I=0 To Anzahl
   Unit(I,0) = LoadMesh("Meshs/tarnkappe.3ds")
   Unit(I,1) = Rnd(300) ;X
   Unit(I,2) = Rnd(300) ;Y
   Unit(I,3) = Rnd(300) ;Z
    PositionEntity Unit(I,0),Unit(I,1),Unit(I,2),Unit(I,3)
Next
;

;Distance überprüfen
For I=0 To Anzahl
If distance#(I) =< range# Then
   Schuss=Schuss+1
   If Schuss=100 Then Schuss=1
   Unit_Schuss(I,Schuss,0)=1
   Unit_Schuss(I,Schuss,1)=Unit(I,3)+10
EndIf
Next
;

;Schiessen
For I=0 To Anzahl
For K=0 To 100
   If Unit_Schuss(I,K,3) > 300 Then Unit_Schuss(I,K,0)=0
   If Unit_Schuss(I,K,0) = 1 Then
      laser = LoadMesh("Meshs/laser.3ds")
      MoveEntity laser,0,0,Unit_Schuss(I,K,1)
      Unit_Schuss(I,K,1) = Unit_Schuss(I,K,1)+10
   EndIf
Next
Next
;

;Gegner bewegen
For I=0 To Anzahl
   MoveEntity Unit(I,0),0,0,3
Next
;

End Function