Code archives/Algorithms/Ai

; Ai
; ------------------
;Made By Nathanael Senn - The Black Knight
;-------------------

;Set Graphics
Graphics3D 1024,768,32,1
SetBuffer BackBuffer()

; Create the timer to 60 fps
frameTimer=CreateTimer(60)

;Make Player Cam
camera=CreateCamera()

;Make light
light=CreateLight()
RotateEntity light,90,0,0

;Set types
enemy_type = 1
box_type   = 2
allie_type = 3

;Make enemy
enemy=CreateSphere()
EntityType enemy,enemy_type

;Make Allie
allie=CreateSphere()
EntityType allie,allie_Type
PositionEntity allie, 130, 0, 130

; Create cubes
hun=100
Dim cube(hun)

For box = 1 To 100

    If x >= 100
        x=10
        z=z+10
    EndIf
    
    x=x+10
    cube(box)=CreateCube()
    EntityType cube(box),box_type
    PositionEntity cube(box),x,0,z
    
Next

;Make ran points
nine = 9
Dim ranpoint(nine)

For r=1 To 9

    If r = 1
        x = 120
        z = 120
    EndIf
    
    If r = 2
        x = 120
        z = 55
    EndIf
    
    If r = 3
        x = 120
        z = 0
    End If

    If r = 4
        x = 55
        z = 120
    End If

    If r = 5
        x = 55
        z = 55
    EndIf

    If r = 6
        x = 55
        z = 0
    EndIf

    If r = 7
        x = 0
        z = 120
    EndIf
    
    If r = 8
        x = 0
        z = 55
    EndIf
    
    If r = 9
        x = 0
        z = 0
    End If
    
    ranpoint(r) = CreateCone()
    PositionEntity ranpoint(r), x, 0, z
    
Next

;Set enemy move
moveenemy = 0
moveallie = 0

;Set Collisions
Collisions enemy_type,box_type,2,2
Collisions allie_type,box_type,2,2

;Main Loop
While Not KeyDown( 1 )

;Set enemy and allie radius
EntityRadius enemy ,1
EntityRadius allie ,1

;Set fps to 60
WaitTimer(frameTimer) ; Pause until the timer reaches 60
Cls

;Add 1 to ran timer
entime = entime + 1
altime = altime + 1

;Enemy ai
If moveenemy = 1
    MoveEntity enemy, 0, 0, .3
EndIf

If moveenemy = 0
    e = Rnd (1,9)
    PointEntity enemy,ranpoint(e)
    moveenemy = 1
EndIf

For rote=1 To 100

    If entime >=25
        PointEntity enemy,ranpoint(e)
    EndIf

Next

If EntityDistance (enemy, ranpoint(e)) <= 1
    moveenemy = 0
EndIf

For rote=1 To 100
    
    If EntityDistance (enemy, cube(rote)) <=2
        rot = Rnd(1,10)
        entime = 0
    
    If rot <= 5
        TurnEntity enemy, 0,45,0
    EndIf
    
    If rot >= 6
        TurnEntity enemy, 0,-45,0
    EndIf
    
    EndIf

Next

;Allie ai
If moveallie = 1
    MoveEntity allie, 0, 0, .3
EndIf

If moveallie = 0
    r = Rnd (1,9)
    PointEntity allie,ranpoint(r)
    moveallie = 1
EndIf

For rote=1 To 100

    If altime >=25
        PointEntity allie,ranpoint(r)
    EndIf

Next

If alchase = 1 And altime >=25
    PointEntity allie,enemy
EndIf

If EntityDistance (allie, enemy) <=10
    moveallie = 3
EndIf  

If EntityDistance (allie, enemy) <=20 And EntityDistance (allie, enemy) >= 10 And EntityVisible ( allie,enemy )
    alchase = 1
    moveallie = 1
EndIf

If EntityDistance (allie, ranpoint(r)) <= 1
    moveallie = 0
EndIf

For rote=1 To 100
    
    If EntityDistance (allie, cube(rote)) <=2
        rot = Rnd(1,10)
        altime = 0
    
    If rot <= 5
        TurnEntity allie, 0,45,0
    EndIf
    
    If rot >= 6
        TurnEntity allie, 0,-45,0
    EndIf
    
    EndIf

Next

;Player movement
If KeyDown( 200 )=True Then MoveEntity camera,0,0,1
If KeyDown( 208 )=True Then MoveEntity camera,0,0,-1
If KeyDown( 205)=True Then yaw#=yaw#-1
If KeyDown( 203 )=True Then yaw#=yaw#+1
If KeyDown( 45 )=True Then roll#=roll#-1
If KeyDown( 44 )=True Then roll#=roll#+1

;Mouse look
myspd#=MouseYSpeed()*0.1
mxspd#=MouseXSpeed()*.1
MoveMouse GraphicsWidth()/2,GraphicsHeight()/2
yaw#=yaw#-mxspd#
pitch#=pitch#+myspd#
RotateEntity camera,pitch#,yaw#,roll#

UpdateWorld
RenderWorld
Text 0,20,"Roll: "+EntityRoll#( enemy )
Text 0,35,"Roll: "+EntityYaw#( enemy )
Text 0,50,"Roll: "+EntityPitch#( enemy )
Flip

Wend

End