|
Сообщение от GoodWin
Function CreateNebula()
s=CreateMesh()
For i=0 To 30
Local s1=CreateQuad(s,"nebula.tga")
EntityColor s1,RandomINT(100,255),RandomINT(0,10),RandomINT(20 0,255)
EntityAlpha s1,.5
ShowEntity s1
RotateEntity s1,RandomINT(-90,90),RandomINT(0,350),RandomINT(0,360)
MoveEntity s1,0,0,10
ScaleEntity s1,RandomINT(2,5),RandomINT(2,6),1
AddMesh s1,s
Next
FreeEntity s1
Return s
End Function
|