Function Update_SpiderKI(sp.spiderKI)
TranslateEntity sp\obj,0,-.5,0
sp\time = sp\time + 1
EntityAlpha sp\obj,sp\alpha/100

TurnEntity sp\obj,0,DeltaYaw(sp\obj,sp\target),0

If EntityDistance(sp\obj,camera)>100 Then MoveEntity sp\obj,0,.5,1

If EntityDistance(sp\obj,camera)<50 And EntityVisible(sp\obj,camera) Then
sp\att = 1 - sp\att

If sp\att = 1 Then
sp\weapon_laser = New laser
sp\weapon_laser\spr = CreateSphere(2,sp\obj)
FlipMesh sp\weapon_laser\spr
ScaleEntity sp\weapon_laser\spr,.1,.1,1
EntityType sp\weapon_laser\spr,k_M
EntityRadius sp\weapon_laser\spr,.3,.3
EntityColor sp\weapon_laser\spr,255,0,0
sp\weapon_laser\target = sp\target
PointEntity sp\weapon_laser\spr,sp\weapon_laser\target
sp\weapon_laser\rot = 1
sp\weapon_laser\time = 100
End If

End If

If EntityCollided(sp\obj,k_M) Then
sp\hp = sp\hp-1
EntityColor sp\obj,255,0,0
   Else
EntityColor sp\obj,255,255,255
End If


;--- Teleportieren ---

If sp\time >= 500 Then sp\time = 0:sp\port=1
If sp\port = 1 Then
   sp\alpha = sp\alpha-1
   EntityAlpha sp\obj,sp\alpha/100
   TurnEntity sp\obj,0,DeltaYaw(sp\obj,sp\port_target),0
   MoveEntity sp\obj,0,1,0
   If sp\alpha = 0 Then
      PositionEntity sp\obj,EntityX(sp\port_target),EntityY(sp\port_target)+1,EntityZ(sp\port_target)
      sp\port=0
      i=Rnd(33)
      sp\port_target = haus(i)
      sp\alpha = 100
   End If
End If
End Function

Function laserupdate(l.laser)

MoveEntity l\spr,0,0,.1
l\time = l\time - 1

If EntityCollided(l\spr,k_Cam) Then DoHP(-1)

If CountCollisions(l\spr)>1 Or l\time<0 Then
   FreeEntity l\spr
   Delete l
End If

End Function

ki\zeit=millisecs()

if millisecs()-ki\zeit>? and rand(0,?)=0 then
   ki\zeit=millisecs()
   ;Schießen
endif

WENN die Zeit > ? ist UND eine Zufallszahl zwischen 0 und ? gleich null ist DANN
  Zeit AKTUALISIEREN
  Schießen
ENDEWENN

Zielx=Zielx+rnd(-?,?)
Zielz=Zielz+rnd(-?,?)
;Vielleicht auch noch bei y (Ziely=Ziely+rnd(-?,?))

if Energie<50 then
 ;hohe Wahrscheinlichkeit für Teleportieren
 ;Deckung suchen
 ;...
endif

for i=0 to Gegneranzahl
  if entitydistance(Selectedgegner, Gegner(i))<100 then
   Gegner_in_der_Naehe=Gegner_in_der_Naehe+1
  endif
next
if Gegner_in_der_Naehe>5 then
 ;wagemutig schießen
endif
if Gegner_in_der_Naehe<=5 then
 ;Deckung suchen und von dort schießen
endif

zeit = zeit + 1

;schwerkraft, bla bla, suchen etc.

If distance > 300 Then
;warten und unsichtbarwerden
End If

If zeit >= 500 Then
zeit = 0
;Teleportieren
End If

If Distance > 100 And distance < 300 Then
;hochspringen, lage überblicken und streufeuer
End If

If distance < 100 Then

; Variablen für Zeitabstand checken
;feuern
;status checken -> wenn zu schlecht: Teleportieren
End iF

If getroffen Then
;blut, etc
;status checken -> wenn zu schlecht: Teleportieren, und aggressiver werden
End If

;___ Ich hab mir da noch sowas überlegt ___
...
;status checken -> wenn schlecht: Teleportieren
                          -> wenn zu schlecht: Teilen

Dim Haus(33)
...

;;;
;;;;[]   o
;;;

...
xOff = EntityX(haus)-EntityX(player)
yOff = EntityZ(haus)-EntityZ(player)
laenge = sqr(  xOff*xOff + yOff*yOff )
xOff = xOff / laenge
yOff = yOff / laenge
...
...
xOff2 = EntityX(haus)-EntityX(gegner)
yOff2 = EntityZ(haus)-EntityZ(gegner)
laenge2=  sqr(  xOff2*xOf2f + yOff2*yOff2 )
xOff2 = (xOff2 / laenge2)*(-1)
yOff2 = (yOff2 / laenge2)*(-1)

if xOff2 <> xOff And yOff2 <> yOff then
      ;Gegner läuft um Haus
end if
...

;Position der Deckung ermitteln
;Pivot direkt vor der KI platzieren
;Pointentity verwenden damit KI auf den Pivot ausgerichtet ist
;Pivot auf die Position der Deckung bringen

If EntityVisible(k\obj,camera) <> 0 Then
;deckung suchen, etc.
End If

Im schlausten Status:

;Wenn die KI zu sehen ist, weicht sie aus

If EntityVisible(KI, camera) <> 0 Then ausweichen = 1

;wenn sie beim ausweichen gesehen wird, feuert sie und weicht weiter aus

If EntityVisible(KI, camera) <> 0 And ausweichen = 1 Then feuern()

;wenn sie hinter der Deckung ist, und gerade ausgewichen ist, dann wartet sie hinter
;der Deckung und lädt ihre Waffe nach

If EntityVisible(KI, camera) = 0 Then
If ausweichen = 1 Then warten = 1
   If warten = 1 Then reload()
End If

;Wenn die KI in der nähe des Gegners ist, [und evtl auch zu sehen ist,]

If (EntityVisible(KI, camera) = 1) [OR (EntityDistance(KI, camera) < 20)] Then

;hinter der Deckung steht und wartet, dann springt sie aus der Deckung und feuert

If Warten = 1 Then
ausderdeckungspringen()
angreiffen = 1
warten = 0
End If
If Angreiffen = 1 Then
angreifftimer = angreifftimer - (90 - KI_Anzahl)
feuern()
End If

;bis es wieder an der Zeit wird Deckung zu suchen

If Angreifftimer <= 0 Or attacked = 1 Then
angreiffen = 0
ausweichen = 1
Angreifftimer = 500
warten = 0
reload()
End If

Else

;ist sie nicht zu sehen, und auch niemand in Sichtweite, dann

If Warten = 1 Then
ausweichen = 0
angreiffen = 0
;tut sie nichts und wartet
End If

;falls sie aber immernoch angreifft, und der Gegner deckung gesucht hat,
;dann feuert sie noch einmal und sucht selber auch wieder Deckung

If Angreiffen = 1 Then

feuern()
ausweichen = 1
angreiffen = 0
warten = 0
End If

If Angreifftimer <= 0 Then
angreiffen = 0
ausweichen = 1
Angreifftimer = 500
warten = 0
reload()
End If

End If