Игростроение - Создание игр

if keydown(..)
..
if millicesc()>shotdelay+1000
shotdelay=millicesc()
..
endif
endif

Graphics3D 640,480,32,2
SetBuffer BackBuffer()
cam=CreateCamera()
time=MilliSecs()
PositionEntity cam,0,3,-10
lit=CreateLight()
Type Dude
Field entity,speed#
End Type
Repeat

For d.Dude=Each Dude
MoveEntity d\entity,0,0,1
If EntityDistance(cam,d\entity)>200
FreeEntity d\entity
    Delete d
    EndIf
     Next

If MouseDown(1)
If MilliSecs()> time+1000;(Задержка на одну сек.)
time=MilliSecs()
For k=1 To 1
sphere=CreateSphere()
HideEntity sphere
If bul=0
d.Dude=New Dude
d\entity=CopyEntity( sphere )
EndIf

Next
EndIf
EndIf

RenderWorld
UpdateWorld
Flip
Until KeyHit(1)
End

  If MouseHit(1) create_shot(EntityX(user),EntityY(user),EntityZ(user),EntityPitch(cam),EntityYaw(user),0)

Function create_shot(x#,y#,z#,pitch#,yaw#,roll#)
shottime=MilliSecs()
If MilliSecs()>shottime=1000
    s.shot=New shot
    s\entity=CopyEntity(shot_sprite)
    EntityType s\entity,SHOTT
    PositionEntity s\entity,x#,y#,z#,1
    RotateEntity s\entity,pitch#,yaw#,roll#,1
    patrons=patrons-1
EndIf  
End Function

Function update_shot()
pt_patrons=30-patrons
   v#=1
   max_dist#=1000
   For a.shot=Each shot
     ;=
     If a\time=0 a\time=MilliSecs()
     new_time=MilliSecs()
     delta_t=new_time-a\time
     a\time=new_time
     vs#=v*delta_t
     ;=
     MoveEntity a\entity,0,0,vs#
     a\dist#=a\dist#+vs#
If a\dist#>max_dist#
       FreeEntity a\entity
       Delete a
     ElseIf EntityCollided(a\entity,KARTA)<>0
       FreeEntity a\entity
       Delete a
EndIf
If patrons=0 Then
patrons2=patrons2-pt_patrons
patrons=patrons+pt_patrons
EndIf
      
   Next
End Function