|
если делать просто через нью тайп, то не получается удалять лишний хвост
|
Время жизни партиклам делай и усё.
Graphics3D 1024,768,32,1
Type particle
Field entity, age#
End Type
light=CreateLight()
TurnEntity light, 45,45,0
Player=CreateCube()
PositionEntity Player,0,5,15
cam=CreateCamera()
PositionEntity cam,14,0,-20
CameraRange cam,0.1,110000
plane=CreatePlane()
PositionEntity plane,0,-20,0
EntityColor plane,20,120,20
asp = LoadTexture("media/tex.jpg")
ScaleTexture asp, 50, 50
EntityTexture plane, asp
hvost=LoadSprite("media/lens.jpg")
Repeat
For i=1 To 5
p.particle = New particle
p\entity=CopyEntity(hvost,p\entity)
p\age=25
PositionEntity p\entity,EntityX(Player)+Rnd(-1,1),EntityY(Player)+Rnd(-0.5,0.5),EntityZ(Player)
Next
For w.particle =Each particle
w\age=w\age-1
If w\age<=0 Then : FreeEntity w\entity : Delete w :EndIf
Next
MoveEntity cam,1,0,0
MoveEntity player,0,-0.3,0
MoveEntity player,1,0,0
If KeyDown(200) Then MoveEntity player,0,0.4,0
If KeyDown(1) Then Exit
UpdateWorld
RenderWorld
Flip
Forever