'###############################################################################
' NAME: Cluods Generator
' 
' Instruction: -start a new scene
'              -create one or more geometries 
'              -Run the script 
'              
'
' author:Fabio Leporelli  
'
' Enjoy
'###############################################################################
ActivateObjectSelTool

set SelList = GetValue("SelectionList")

if SelList.count > 1 then


ToggleVisibility
ApplyOp "MeshMerge"
SetValue ".Name", "Clouds Generator"
CreateParticleCloud "Clouds_Generator"
SetValue "Clouds_Generator.Clouds_Generator_emission.Rate", 600
SetValue "Clouds_Generator.Clouds_Generator_emission.Spread", 25
SetValue "ParTypes.PType.Red", 1
SetValue "ParTypes.PType.Green", 1
SetValue "ParTypes.PType.Red", 1
SetValue "ParTypes.PType.Green", 1
SetValue "ParTypes.PType.Red", 1
SetValue "ParTypes.PType.Green", 1
SetValue "ParTypes.PType.Red", 1
SetValue "ParTypes.PType.Green", 1
SetValue "ParTypes.PType.Red", 1
SetValue "ParTypes.PType.Green", 1
SetValue "ParTypes.PType.Red", 1
SetValue "ParTypes.PType.Green", 1
SetValue "ParTypes.PType.Red", 1
SetValue "ParTypes.PType.Green", 1
SetValue "ParTypes.PType.Blue", 1
SetValue "ParTypes.PType.Alpha", 1
SetValue "Clouds_Generator.Clouds_Generator_emission.Speed", 0.01
SetValue "ParTypes.PType.Life", 4
SetValue "ParTypes.PType.Size", 4
SetValue "ParTypes.PType.SizeVar", 2
SetValue "ParTypes.PType.Particle_Billboard.Shape", 2
SetValue "ParTypes.PType.Particle_Billboard.NormalType", 1
SetValue "ParTypes.PType.Particle_Billboard.AmbientType", 1
SetValue "ParTypes.PType.Particle_Billboard.Ambient.red", 0.4
SetValue "ParTypes.PType.Particle_Billboard.Ambient.green", 0.4
SetValue "ParTypes.PType.Particle_Billboard.Ambient.red", 0.4
SetValue "ParTypes.PType.Particle_Billboard.Ambient.green", 0.4
SetValue "ParTypes.PType.Particle_Billboard.Ambient.red", 0.4
SetValue "ParTypes.PType.Particle_Billboard.Ambient.green", 0.4
SetValue "ParTypes.PType.Particle_Billboard.Ambient.blue", 0.4
SetValue "ParTypes.PType.Particle_Billboard.Particle_Shape.FalloffType", 5
SetValue "ParTypes.PType.Particle_Billboard.Particle_Shape.ShapeType", 7
SelectObj "Clouds_Generator", , True
ToggleVisibility
SelectObj "cloud.cloud.ParticlesOp.Clouds_Generator_emission"
InspectObj , "All"
SetValue "PlayControl.Current", 60

end if

if SelList.count = 1 then

SetValue ".Name", "Clouds Generator"
CreateParticleCloud "Clouds_Generator"
SetValue "Clouds_Generator.Clouds_Generator_emission.Rate", 600
SetValue "Clouds_Generator.Clouds_Generator_emission.Spread", 25
SetValue "ParTypes.PType.Red", 1
SetValue "ParTypes.PType.Green", 1
SetValue "ParTypes.PType.Red", 1
SetValue "ParTypes.PType.Green", 1
SetValue "ParTypes.PType.Red", 1
SetValue "ParTypes.PType.Green", 1
SetValue "ParTypes.PType.Red", 1
SetValue "ParTypes.PType.Green", 1
SetValue "ParTypes.PType.Red", 1
SetValue "ParTypes.PType.Green", 1
SetValue "ParTypes.PType.Red", 1
SetValue "ParTypes.PType.Green", 1
SetValue "ParTypes.PType.Red", 1
SetValue "ParTypes.PType.Green", 1
SetValue "ParTypes.PType.Blue", 1
SetValue "ParTypes.PType.Alpha", 1
SetValue "Clouds_Generator.Clouds_Generator_emission.Speed", 0.01
SetValue "ParTypes.PType.Life", 4
SetValue "ParTypes.PType.Size", 4
SetValue "ParTypes.PType.SizeVar", 2
SetValue "ParTypes.PType.Particle_Billboard.Shape", 2
SetValue "ParTypes.PType.Particle_Billboard.NormalType", 1
SetValue "ParTypes.PType.Particle_Billboard.AmbientType", 1
SetValue "ParTypes.PType.Particle_Billboard.Ambient.red", 0.4
SetValue "ParTypes.PType.Particle_Billboard.Ambient.green", 0.4
SetValue "ParTypes.PType.Particle_Billboard.Ambient.red", 0.4
SetValue "ParTypes.PType.Particle_Billboard.Ambient.green", 0.4
SetValue "ParTypes.PType.Particle_Billboard.Ambient.red", 0.4
SetValue "ParTypes.PType.Particle_Billboard.Ambient.green", 0.4
SetValue "ParTypes.PType.Particle_Billboard.Ambient.blue", 0.4
SetValue "ParTypes.PType.Particle_Billboard.Particle_Shape.FalloffType", 5
SetValue "ParTypes.PType.Particle_Billboard.Particle_Shape.ShapeType", 7
SelectObj "Clouds_Generator", , True
ToggleVisibility
SelectObj "cloud.cloud.ParticlesOp.Clouds_Generator_emission"
InspectObj , "All"
SetValue "PlayControl.Current", 60

end if


		
	SelectObj "Scene_Root"
		
	AddProp "Custom_parameter_list", , , "cloud_settings"
	SelectObj "cloud_settings"
	SIAddCustomParameter "cloud_settings", "particle size", siDouble, 0, 0, 30, , 5, 0, 30
	AddExpr "ParTypes.PType.Size"
      SetExpr "ParTypes.PType.Size", "cloud_settings.particle_size"
      SetValue "cloud_settings.particle_size", 4 
      SelectObj "cloud_settings"
      SIAddCustomParameter "cloud_settings", "particles rate", siDouble, 0, 0, 6000, , 5, 0, 6000
      AddExpr "Clouds_Generator.Clouds_Generator_emission.Rate"
      SetExpr "Clouds_Generator.Clouds_Generator_emission.Rate", "cloud_settings.particles_rate"
      SetValue "cloud_settings.particles_rate", 600