Virtual GI

Copy and paste the script in MaxScript Editor and run.
It work well to me in Max 9/2008/2009/2010
-----------------------------------------------------------

(
axis_angle = 0
axisX = 0
axisY = 0
axisZ = 0

if isValidNode objects and (objects != undefined) then
(
axis_angle = (objects.rotation as angleAxis).angle
vgi.spn5.value = axis_angle
)

fn geometry_filt obj = superclassof obj == Geometryclass

rf = newRolloutFloater "Virtual GI v.0.2" 398 490

rollout vgi "Setting Virtual GI" width:384 height:440 category:1
(

global sp, c, li, lig, li_Ta, objpos, centerobj, L, W, H, sel_a, se_li

GroupBox grp1 "Setting Preview Sky Light" pos:[8,8] width:368 height:296
Pickbutton btn1 "Select Object" pos:[24,56] width:120 height:24
button btn2 "Create Preview Sphere" pos:[24,88] width:120 height:24 enabled:false toolTip:"Create sphere for reference"
button btn3 "Delete Preview Sphere" pos:[24,120] width:120 height:24 enabled:false
spinner spn1 "Scale Sphere" pos:[88,176] width:56 height:16 enabled:false range:[0,1e+009,1] type:#float scale:0.01
spinner spn2 "N_Vertex Lights" pos:[88,152] width:56 height:16 enabled:false range:[4,100,4] type:#integer
GroupBox grp2 "Setting SL" pos:[16,32] width:136 height:168
GroupBox grp3 "Create SL" pos:[16,208] width:136 height:88
button btn4 "Create Sky Light" pos:[24,232] width:120 height:24 enabled:false
button btn5 "Delete All Sky Light" pos:[24,264] width:120 height:24
bitmap bmp1 "Bitmap" bitmap:(bitmap 184 104) pos:[168,152] width:184 height:104
button btn7 "Quick Render Preview" pos:[176,264] width:168 height:24
listbox lbx1 "Quick Select/Setting LS" items:(for i in lights collect i.name) pos:[168,48] width:184 height:3
button btn6 "Refresh List SL" pos:[176,120] width:168 height:24
GroupBox grp4 "List/Preview SL" pos:[160,24] width:200 height:272
GroupBox grp5 "Setting Quick Virtual Sun" pos:[8,312] width:368 height:120
button btn8 "Select All Obj Scene" pos:[24,360] width:136 height:24
GroupBox grp6 "Create VS" pos:[16,336] width:152 height:88
button btn9 "Create Orbital Sun" pos:[24,392] width:136 height:24 enabled:false
spinner spn3 "Virtual Hours " range:[1,24,12] type:#integer pos:[256,352] width:56 height:16 enabled:false
GroupBox grp7 "Adjust Scale/Angle/Hours VS" pos:[176,328] width:152 height:96
spinner spn4 "Scale Orbital % " pos:[248,376] width:64 height:16 range:[0,1e+009,1] scale:0.001 enabled:false
spinner spn5 "Angle Orbital " pos:[248,400] width:64 height:16 range:[0,48.632,0] type:#float enabled:false
button btn10 "QS" pos:[336,344] width:32 height:72 enabled:false

--- Start crete reference sphere ---------------------------------------------------------------------------------------------------------

on btn1 picked obj do
(
btn2.enabled = true
btn3.enabled = true

if obj != undefined do
(
btn1.text = obj.name
objpos= obj.pos
centerobj = centerpivot obj
objselect = select obj
)
)

on btn2 pressed do
(

L = $.max.x - $.min.x
W = $.max.y - $.min.y
H = $.max.z - $.min.z

if L > W AND L > H then
(
SceneSize = L
)
else if W > H then
(
SceneSize = W
)
else
(
SceneSize = H
)

--- End --------------------------------------------------------------------------------------------------------

sp = Sphere pos:objpos radius:(SceneSize*3.14) segs:4 renderable:false
sp.name = uniquename "PreviewSkySphere"

sp.material = StandardMaterial opacity:0

spn1.enabled = true
spn1.value = 1.0

spn2.enabled = true
spn2.value = 4
btn4.enabled = true
btn5.enabled = true

)

on btn3 pressed do
(
btn2.enabled = false
btn3.enabled = false
btn4.enabled = false
spn1.enabled = false
spn2.enabled = false

delete sp

)

on spn1 changed val do sp.scale = [val,val,val]
on spn2 changed val do sp.segs = val

on btn4 pressed do
(
if querybox "This's action destroy preview Sphere. Are you sure to Continue?" title:"Virtual GI message" then
(
spn1.enabled = false
spn2.enabled = false
btn2.enabled = false
btn3.enabled = false
btn4.enabled = false
-- This code was originally generated by Borislav 'Bobo' Petrov" after a my request for help
-- The code below is a stripped down version of Borislav 'Bobo' Petrov" original function with more changed.

lig = TargetDirectionallight position:[0,200,0] rgb:(color 222 227 255) multiplier:0.1 overShoot:true affectSpecular:off
lig_Ta =Targetobject pos:objpos

select lig
select sp
convertToMesh sp
tM = snapshotAsMesh sp

for V= 1 to tM.numVerts do

(
TargetDirectionallight_instance = copy lig
TargetDirectionallight_instance.name = uniquename "LightsSky_"
TargetDirectionallight_instance.target = lig_Ta
TargetDirectionallight_instance.pos = getVert tM v
TargetDirectionallight_instance.parent = lig_Ta
)

delete tM
delete lig
delete sp

--- end--------------------------------------------------------------------------------------------------------

seli_array = $lights* as array

lbx1.items = for i in lights collect i.name
)

)

on btn5 pressed do
(
btn4.enabled = false

if querybox "This's action delete ALL LightsSky. Are you sure to Continue?" title:"Virtual GI message" then
(
delete $lights* as string
delete $Target*
lbx1.items = for i in $lights* collect i.name
)
)

--- End create reference sphere -----------------------------------------------------------------------------

---Start List/Preview Sl --------------------------------------------------------------------------------------

on btn7 pressed do
(
rend_image = render outputsize:[184, 104] vfb:off
bmp1.bitmap = rend_image
)
on lbx1 selected nameIndex do
(
se_li = select (getnodebyname lbx1.items[nameIndex ])
)
on lbx1 doubleClicked itm do

(

rollout qsl "Quick Setting Sky Lights" width:160 height:386
(

GroupBox grp9 "General Parameters" pos:[8,8] width:144 height:320
checkbox chk1 "On" pos:[16,32] width:40 height:16 checked:$.enabled
GroupBox grp10 "Shadows" pos:[16,72] width:128 height:120
checkbox chk2 "On" pos:[24,96] width:40 height:16 checked:$.baseObject.castShadows
radiobuttons rdo1 "" pos:[32,120] width:101 height:64 labels:#("Mental Ray Map", "Area", "Map", "Ray Traced") default:4 columns:1
checkbox chk8 "Global Sett." pos:[64,96] width:72 height:16 checked:$.useGlobalShadowSettings
spinner spn9 "Multiplier " pos:[72,32] width:72 height:16 range:[0,1e+009,$.multiplier] type:#float scale:0.01
colorPicker cp1 "" pos:[8,56] width:136 height:8 default:(color 222 227 255) color:$.rgb
checkbox chk3 "OverShoot" pos:[16,200] width:72 height:16 checked:$.overShoot default:true
checkbox chk4 "Diffuse" pos:[16,232] width:56 height:16 checked:$.affectDiffuse default:true
checkbox chk5 "Specular" pos:[80,232] width:64 height:16 checked:$.affectSpecular default:false
checkbox chk6 "Ambient Only" pos:[16,248] width:80 height:16 checked:$.ambientOnly default:false
checkbox chk7 "Map Projector Lights" pos:[16,280] width:128 height:16 checked:$.projector default:false
mapButton btn26 "None" pos:[16,296] width:128 height:24 map: $.projectorMap
checkbutton cb "Name Ligths Selected" pos:[24,336] width:116 height:16
button btn27 "Close" pos:[24,360] width:116 height:16

on cb changed state do

if state == on then cb.text = $.name as string
else cb.text = "Name Ligths Selected"

on chk1 changed state do
(
if state == on then $.enabled = on
else
$.enabled = off
)
on chk2 changed state do
(
if state == on then $.baseObject.castShadows = true
else
$.baseObject.castShadows= false
)
on rdo1 changed state do
(
if state == 1 do $.shadowGenerator = mental_ray_Shadow_Map ()
if state == 2 do $.shadowGenerator = Area_Shadows ()
if state == 3 do $.shadowGenerator = shadowMap()
if state == 4 do $.shadowGenerator = raytraceShadow ()
)
on chk8 changed state do
(
if state == on then $.useGlobalShadowSettings = true
else
$.useGlobalShadowSettings = false
)
on spn9 changed val do $.multiplier = val

on cp1 changed nc do $.rgb = nc

on chk3 changed state do
(
if state == on then $.overShoot =true
else
$.overShoot= false
)
on chk4 changed state do
(
if state == on then $.affectDiffuse = true
else
$.affectDiffuse= false
)
on chk5 changed state do
(
if state == on then $.affectSpecular = true
else
$.affectSpecular= false
)

on chk6 changed state do
(
if state == on then
(
$.ambientOnly = true

)
else
$.ambientOnly= false

)

on chk7 changed state do
(
if state == on then $.projector = true
else
$.projector = false
)
on btn26 picked texmap do
(
$.projectorMap = texmap

btn26.text=classof texmap as string
)
on btn27 pressed do
(
destroydialog qsl
clearSelection()
)

)
destroydialog qsl
createdialog qsl
)

on btn6 pressed do lbx1.items = for i in lights collect i.name

---End List/Preview Sl ---------------------------------------------------------------------------------------

---Start Quick Virtual Sun ----------------------------------------------------------------------------------

on btn8 pressed do
(
max select all
btn9.enabled = true
)

on btn9 pressed do
(
L = $.max.x - $.min.x
W = $.max.y - $.min.y
H = $.max.z - $.min.z

if L > W AND L > H then
(
SceneSize = L
)
else if W > H then
(
SceneSize = W
)
else
(
SceneSize = H
)

c = Cylinder sides:24 height:100 radius:(SceneSize*3.14) pos:[0,0,0] renderable:false
c.name = "Circle Orbital"
rot_X= eulerangles 175.469 24.134 79.031
rotate c rot_X
mat = StandardMaterial()
c.material = mat
mat.opacity = 0
convertTo c PolyMeshObject
c.SetSelection #Face #{1..24, 26}
c.EditablePoly.delete #Face
c.EditablePoly.SetSelection #Face #{1}
c.EditablePoly.flipNormals 1
c.EditablePoly.SetSelection #Face #{1}
clearSelection()

co = Compass pos:[0,0,0]
co.scale = [10,10,10]

li = TargetDirectionallight color:(color 255 242 229) multiplier:63.084 castShadows:on \
raytraceShadow:on overshoot:on coneShape:1 target:(Targetobject transform:(matrix3 [1,0,0] [0,1,0] [0,0,1] [0,0,0]))
li.name = uniquename "VirtualSun"

sv = c.selectedVerts = #(12)
sv_pos = c.verts[12].pos
c.verts[23].pos as string

li.pos = sv_pos
li.parent = c
li.target.parent = co
c.parent = co
btn9.enabled = false
btn10.enabled = true
spn3.enabled = true
spn4.enabled = true
spn5.enabled = true
)

on spn3 changed val do
(
if val == 1 then li.pos = c.verts[1].pos
if val == 2 then li.pos = c.verts[2].pos
if val == 3 then li.pos = c.verts[3].pos
if val == 4 then li.pos = c.verts[4].pos
if val == 5 then li.pos = c.verts[5].pos
if val == 6 then li.pos = c.verts[6].pos
if val == 7 then li.pos = c.verts[7].pos

if val == 8 then li.pos = c.verts[8].pos
if val == 9 then li.pos = c.verts[9].pos
if val == 10 then li.pos = c.verts[10].pos
if val == 11 then li.pos = c.verts[11].pos
if val == 12 then li.pos = c.verts[12].pos
if val == 13 then li.pos = c.verts[13].pos

if val == 14 then li.pos = c.verts[14].pos
if val == 15 then li.pos = c.verts[15].pos
if val == 16 then li.pos = c.verts[16].pos
if val == 17 then li.pos = c.verts[17].pos
if val == 18 then li.pos = c.verts[18].pos
if val == 19 then li.pos = c.verts[19].pos
if val == 20 then li.pos = c.verts[20].pos

if val == 21 then li.pos = c.verts[21].pos
if val == 22 then li.pos = c.verts[22].pos
if val == 23 then li.pos = c.verts[23].pos
if val== 24 then li.pos = c.verts[24].pos

)

on spn4 changed val do
(
c.Scale= [val,val,val]
)

on spn5 changed val do
(

adjust_angle = (vgi.spn5.value - axis_angle)
rotate c (angleaxis adjust_angle [-1,0,0])
axis_angle = spn5.value
)

on btn10 pressed do
(
select li
rollout vst "Quick Setting Virtual Sun" width:328 height:470
(

GroupBox grp_vts "Sun General Setting" pos:[8,8] width:312 height:450
dropdownList ddl1 "" pos:[64,96] width:112 height:21 items:#("MentalRay", "Area", "Map","RayTraced") selection:4
checkbox onsha "On" pos:[64,72] width:32 height:16 checked:li.baseObject.castShadows

GroupBox grpgp "Base Parameters" pos:[16,32] width:176 height:104
GroupBox grps "Shadows" pos:[56,48] width:128 height:80
spinner smul "Multiplier" pos:[56,168] width:68 height:16 range:[1,10000,li.multiplier] type:#float
checkbutton btonoff "On" pos:[20,72] width:32 height:40 checked:li.enabled
checkbox ongs "Global Sett." pos:[104,72] width:72 height:16 checked:li.useGlobalShadowSettings
GroupBox grpica "Intensity Color Attenuation" pos:[16,144] width:176 height:96
colorPicker col "" pos:[130,160] width:50 height:40 defsault:(color 255 242 229) color:li.rgb
dropdownList ddec "Decay" pos:[24,192] width:80 height:40 items:#("---", "Inverse", "Inverse Square" ) selection:li.attenDecay
spinner spn9 "Start " pos:[124,210] width:64 height:16 range:[0,999999,li.DecayRadius] type:#float

GroupBox grpdir "Directional" pos:[200,24] width:112 height:216
checkbox chk17 "OverShoot" pos:[208,48] width:72 height:16 checked:li.overShoot
dropdownList ddl10 "" pos:[208,152] width:96 height:21 items:#("Circle", "Rectangle" ) selection:li.coneShape
spinner spn10 "Aspect " pos:[232,184] width:72 height:16 range:[0.001,100,li.aspect] type:#float
button bmfit "Sun View" pos:[208,208] width:96 height:24
spinner spn11 "HS_Beam " pos:[240,72] width:64 height:16 range:[0.5,4.19791e+008,li.hotspot] type:#float
spinner spn12 "FO_Field " pos:[240,96] width:64 height:16 range:[0.5,4.19791e+008,li.falloff] type:#float
checkbutton shc "Show Cone" pos:[208,120] width:96 height:24

GroupBox grpeff "Effect" pos:[16,248] width:296 height:72
checkbox chk25 "Diffuse" pos:[24,296] width:56 height:16 checked:li.affectDiffuse
checkbox chk26 "Specular" pos:[88,296] width:64 height:16 checked:li.affectSpecular
checkbox chk27 "Ambient" pos:[160,296] width:56 height:16 checked:li.ambientOnly
spinner spn23 "Contrast " pos:[256,296] width:52 height:16 range:[0,100,li.contrast] type:#float
spinner spn24 "Soft Edge " pos:[232,272] width:76 height:16 range:[0,100,li.softenDiffuseEdge] type:#float
checkbox chk28 "Map = " pos:[24,272] width:48 height:16 checked:li.projector
mapbutton btmap1 "---" pos:[80,272] width:104 height:16

GroupBox grpshad "Shadow" pos:[16,328] width:296 height:96
checkbox chk29 "Map = " pos:[24,344] width:48 height:16 checked:li.useShadowProjectorMap
mapbutton btmap2 "---" pos:[80,344] width:72 height:16
checkbox chk30 "Affects Color Shadows" pos:[24,368] width:128 height:16 checked:li.lightAffectsShadow
colorPicker cp10 "" pos:[160,344] width:144 height:16 default:(color 0 0 0) color:li.ShadowColor
spinner spn25 "Density " pos:[214,368] width:70 height:16 range:[-10000,10000,li.shadowMultiplier] type:#float
checkbutton ckb8 "On" pos:[24,392] width:48 height:24 checked: on
spinner spn26 "Opacity " pos:[104,392] width:64 height:16 range:[0,100,li.atmosOpacity] type:#float
spinner spn27 "Amount Color " pos:[220,392] width:84 height:16 range:[0,100,li.atmosColorAmt] type:#float
button clos "Exit" pos:[20,430] width:288 height:22

-----------------------------------------------------------------------------------------------------
-----------------------------------------------------------------------------------------------------

on ddl1 selected i do
(
if i == 1 do li.shadowGenerator = mental_ray_Shadow_Map ()
if i == 2 do li.shadowGenerator = Area_Shadows ()
if i == 3 do li.shadowGenerator = shadowMap()
if i == 4 do li.shadowGenerator = raytraceShadow ()

)

on onsha changed state do
(
if state == on then li.baseObject.castShadows = true
else
li.baseObject.castShadows= false

)

on ongs changed state do
(
if state == on then li.useGlobalShadowSettings = true
else
li.useGlobalShadowSettings = false
)

on btonoff changed state do
(
if state == on then
(
li.enabled = on
btonoff.text = "On"
)
else
(
li.enabled = off
btonoff.text = "Off"
)
)

on smul changed val do li.multiplier = val

on col changed nc do li.rgb = nc

on ddec selected i do
(
if i == 1 do li.attenDecay = 1
if i == 2 do li.attenDecay = 2
if i == 3 do li.attenDecay = 3
)

on spn9 changed val do li.DecayRadius = val

on chk17 changed state do
(
if state == on then li.overShoot =true
else
li.overShoot= false
)

on spn11 changed val do li.hotspot = val

on spn12 changed val do li.falloff = val

on shc changed state do
(
if state == on then li.showCone = true
else
li.showCone = false
)

on ddl10 selected i do
(

if i == 1 do
(
li.coneShape = 1

)
if i ==2 do
(
li.coneShape = 2

)
)

on spn10 changed val do li.aspect = val

on chk25 changed state do
(
if state == on then li.affectDiffuse = on
else
li.affectDiffuse = off

)

on chk26 changed state do
(
if state == on then li.affectSpecular = on
else
li.affectSpecular = off

)

on chk27 changed state do
(
if state == on then
(
li.ambientOnly = on
)
else
(
li.ambientOnly = off
)
)

on chk28 changed state do
(
if state == on then
(
li.projector = true

)
else
(
li.projector = false

)
)

on btmap1 picked texmap do
(
li.projectorMap = texmap
btmap1.text=classof texmap as string
chk28.checked = on
)

on spn23 changed val do li.contrast=val
on spn24 changed val do li.softenDiffuseEdge = val

on chk29 changed state do
(
if state == on then
(
li.useShadowProjectorMap = true

)
else
(
li.useShadowProjectorMap = false

)
)

on btmap2 picked texmap do
(
li.ShadowProjectorMap = texmap
btmap2.text=classof texmap as string
chk29.checked = on
li.useShadowProjectorMap = true
)

on spn25 changed val do li.shadowMultiplier = val

on chk30 changed state do
(
if state == on then li.lightAffectsShadow = true
else
li.lightAffectsShadow = false
)

on cp10 changed nc do li.ShadowColor=nc

on ckb8 changed state do
(
if state == on then
(
li.atmosShadows=on
ckb8.text = "On"
)
else
(
li.atmosShadows=off
ckb8.text = "Off"
)
)

on spn26 changed val do li.atmosOpacity =val
on spn27 changed val do li.atmosColorAmt = val

on bmfit pressed do
(
macros.run "Lights and Cameras" "Light_ActivateView"
)

on clos pressed do
(
destroydialog vst
)

)
createdialog vst

)

---End Quick Virtual Sun ----------------------------------------------------------------------------------

)

rollout _info "About" width:208 height:186 category:2
(

label _0 "Virtual GI v.0.2"
label _1 "by Michele71"
label _2 "Create for 3DSMax 9 / 2008 / 2009"
label _3 "release 2-23-2009"
label _4 "Medal71@hotmail.it"

)

addrollout vgi rf
addrollout _info rf rolledUp:True
)

-------------------------------------------------------
Enjoy!