KI



type gegner

field name

field modell

field leben

field state

end type


function creategegner(n,m,l,s,x,y,z)

1.gegner=new gegner

s\name=n
s\modell=m
s\leben=l
s\state=0

positionentity s\modell,x,y,z

if mausübergegner then text s\name

if state=0 then hideentity s\modell

if entitydistance(player,s\modell) < 100 then

 state =1
else

state=0



if state=1 then pointentity s\modell,waynet

if entitydistance(player,s\modell)<30 then state=3

if state =3 then pointentity s\modell,player

if entitydistance(player,S\modell) <10 then shoot()

if s\leben <10 then state=4

if state=4 then pointentity s\modell,fluchtwaynet

if s\leben=0 then hideentity s\modell



end function




function updategegner(s.gegner)

moveentity gegner,0,0,1

end function


while......


For s.gegner = Each gegner       
 Updategegner(s)
Next

wend