Так, скачал посмотрел. тебе надо переставит огонек?
Немного переделал код
Type tsmog
Field sHandle%
Field sTime%
Field sSpeed#
Field scaleIndex#
Field scaleI#
Field sAlpha#
Field sAlphaSpeed#
Field sxsmog
Field sysmog
Field szsmog
End Type
If CreateStep=0
Smog.tsmog=New tsmog
Smog\SHandle=CopyEntity(sm1)
Smog\STime=0
Smog\SSpeed=0.3
Smog\ScaleIndex=3
Smog\ScaleI=-0.1
Smog\SAlpha=1
Smog\SAlphaSpeed=-0.03
Smog\sxsmog=ТВОЯ X
Smog\sysmog=ТВОЯ Y
Smog\szsmog=ТВОЙЯ Z
PositionEntity Smog\SHandle,Smog\sxsmog,Smog\sysmog,Smog\szsmog
CreateStep=3+Rnd(-2,2)
EndIf