Need help with FPS

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Berserker [swe]

I'm sorry i haven't answered sooner, im a busy man right now, im doing the "Lumpen" as its called in Sweden. Meaning im training to become a soldier for a couple of month.

Anyway im not home too often so that's why i havent replied. I did get a chanse to test youre code but it didnt work. it might have something to do with my "SpawnZombie()"-function... Im not sure i have the right code there and im experiencing problem with "Zombie\Ent = CopyEntity(Zombie)". Here is the code:

Function Spawn_Zombies(Degree)
Local TempScale
  
  For I = 1 To (3 * Degree)  
    Zombie.Zombies           = New Zombies
    Zombie\ID                = I
    Zombie\X#                = Rnd(5,90)
    Zombie\Y#                = 3
    Zombie\Z#                = Rnd(3,63)
    Zombie\Life#             = 100.0    
    Zombie\Ent               = LoadAnimMesh("gfx/Zombie/Zombie.b3d")
    ;Zombie\Ent               = CopyEntity(ZombieMesh)
    Zombie\Direction         = CreatePivot()
    Zombie\Status$           = "Roam"
        
    TempScale = (0.60+(Rand(0.21)))
    ScaleEntity Zombie\Ent,TempScale,TempScale,TempScale

    PositionEntity Zombie\Ent,Zombie\X#,Zombie\Y#,Zombie\Z#    
    PositionEntity Zombie\Direction,(Zombie\X#+Rnd(-20,20)),Zombie\Y#,(Zombie\Z#+Rnd(-20,20))    

    NameEntity Zombie\Ent,"Zombie nr."+Zombie\ID
    
    EntityType Zombie\Ent,Col_Zombie;<<<<<<<<< Maybe this is a problem.
    EntityPickMode Zombie\Ent,2    
    EntityAutoFade Zombie\Ent,90.0,250.0
        
    ShowEntity Zombie\Ent

  Next  
  
End Function

I've runned some test and it seems like only one of the zombies are correct. It all seems right to me but im new to programming in 3D.

Thank you for youre help but i wont be able to answer until next week again.