Sorry your browser is not supported!

load_level_1()

rem make enemies
For i = 8 To 13
    CreateEnemies(i)
Next i

rem ================LOOP =============================

DO

Function CreateEnemies(nObject)
   
    load object "media/zombie1/zomes.x",nObject
    sc_setupObject nObject,1,1
    loop object nObject,83,101
    radio#=10
    sc_drawobjectbounds nObject
    PositionX# = 10 + RND(900)
    Position Object nObject, PositionX#, 0,rnd(-250)
    Inc TotalEnemies
EndFunction

Rem IA enemies
Function EnemyIA(EnemyNumber)
    
   
   CamX# =  Position X()
   CamY# = Camera Position Y()
   CamZ# = Camera Position Z()
   
   
grupooldzomx# = object position x(EnemyNumber)
grupooldzomy# = object position y(EnemyNumber)
grupooldzomz# = object position z(EnemyNumber)


   
    Point Object EnemyNumber,camX#,camY#,camz#
    Move Object EnemyNumber,0.7
   
grupozomx# = object position x(EnemyNumber)
grupozomy# = object position y(EnemyNumber)
grupozomz# = object position z(EnemyNumber)

grupoPared=sc_SphereSlideGroup(1,grupooldzomx#,grupooldzomy#,grupooldzomz#,grupozomx#,grupozomy#,grupozomz#,radio#,0)
if grupoPared > 0
        grupozomx# = sc_getCollisionSlideX()
        grupozomy# = sc_getCollisionSlidey()
        grupozomz# = sc_getCollisionSlideZ()
        rem re-position the player
        gravedadgrupo#=0.3
else
 inc gravedadgrupo#,0.3
endif


   
position object EnemyNumber,grupozomx#,grupozomy#,grupozomz#   
sc_updateobject EnemyNumber 

EndFunction

rem mapa para colisiones
load object "levelbank\testlevel\universe.dbo",99
load image "media\t.dds",99
texture object 99,99
SC_setupComplexObject 99 ,1,2

FUNCTION group_zombies1()
    
    For e = 8 To TotalEnemies 
        EnemyIA(e)
    Next e
    
    
ENDFUNCTION  

Sync On : Sync Rate 60

Global TotalEnemies as integer = 0

For i = 1 To 5
    CreateEnemies(i)
Next i


Position Camera 0, 0, -100


DO
    
    For e = 1 To TotalEnemies
        EnemyIA(e)
    Next e
    Control Camera Using Arrowkeys 0, 1.5, 3.5
   
    Sync
LOOP


Function EnemyIA(EnemyNumber)
    Rem Guardamos las coordenadas de la cámara
    CamX# = Camera Position X()
    CamY# = Camera Position Y()
    CamZ# = Camera Position Z()
    Point Object EnemyNumber, CamX#, CamY#, CamZ#
    Move Object EnemyNumber, 0.2
EndFunction


Function CreateEnemies(nObject)
    Make Object Cube nObject, 5
    PositionX# = -50 + RND(100)
    Position Object nObject, PositionX#, 0, 0
    Inc TotalEnemies
EndFunction