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

Function create_flame(sp,px#,py#,pz#,sc#,cr,cg,cb)
fl.atoms=New atoms
If sp=0 Then sp=CreateSprite(): HideEntity sp
fl\spark=CopyEntity(sp)
PositionEntity fl\spark,px#,py#,pz#
EntityColor fl\spark,cr,cg,cb
fl\scle#=sc#
fl\alph#=1
End Function

;--------------------------------------------------------------------

Function update_flame(lt,spx#,spy#,spz#,sa#,sc#,an#)
For fl.atoms=Each atoms
MoveEntity fl\spark,spx#,spy#,spz#
TurnEntity fl\spark,Rnd#(an,-1*an),0,Rnd#(an,-1*an)
fl\alph#=fl\alph#+sa
EntityAlpha fl\spark,fl\alph#
fl\scle#=fl\scle#+sc#
ScaleSprite fl\spark,fl\scle#,fl\scle#
fl\lvtime=fl\lvtime+1
If fl\lvtime=lt Then
FreeEntity fl\spark
Delete fl
End If
Next
End Function

UpdateNormals watermesh

End Function

Function CreateRain(parent,num,scx#,scy#,nx#,fx#,ny#,fy#,nz#,fz#,spx#,spy#,spz#,s2y#,spa#,lf%,lf2%,s2c#,spr)

If num>50 Then num=50

For i=1 To num
flg.rain=New rain
flg\sprt=CreateSprite()
SpriteViewMode flg\sprt,4
If parent<>0
PositionEntity flg\sprt,EntityX(parent)+Rnd#(nx#,fx#),EntityY(parent)+Rnd#(ny#,fy#),EntityZ(parent)+Rnd#(nz#,fz#)
Else
PositionEntity flg\sprt,Rnd#(nx#,fx#),Rnd#(ny#,fy#),Rnd#(nz#,fz#)
End If
ScaleSprite flg\sprt,scx#,scy#
EntityColor flg\sprt,150,150,255
flg\alph#=1
Next

For flg.rain=Each rain
MoveEntity flg\sprt,spx#,spy#,spz#
flg\alph#=flg\alph#+spa#
EntityAlpha flg\sprt,0.3
flg\life=flg\life+1

If flg\life=lf2

If spr<>0
flg\sprt2=CopyEntity(spr)
Else
flg\sprt2=CreateSprite(spr)
End If

SpriteViewMode flg\sprt2,2
RotateEntity flg\sprt2,90,0,0
PositionEntity flg\sprt2,EntityX(flg\sprt),s2y#,EntityZ(flg\sprt)
ScaleSprite flg\sprt2,flg\sp2x#,flg\sp2x#
flg\alph2#=1
End If

If flg\sprt2<>0
flg\sp2x#=flg\sp2x#+s2c#
ScaleSprite flg\sprt2,flg\sp2x#,flg\sp2x#
flg\alph2#=flg\alph2#-0.02
EntityAlpha flg\sprt2#,flg\alph2#

End If If flg\life=lf%
FreeEntity flg\sprt
FreeEntity flg\sprt2
Delete flg
End If
Next

End Function

хз у меня пашет

Это в цикл

TranslateEntity cam,0,0,0.01
Createrain(cam,4,0.005,0.2,-8,8,5,6,2,15,0,-0.4,0,-100,-0.03,75,20,0.01,circ)