beautiful and plays great!
i updated the dof, here is an add for the rgb undercab toy to be dynamic like the gi :
Sub UpdateGI(no, Enabled)
If Enabled Then
dim xx
For each xx in GI:xx.State = 1: Next
For each xx in Plastics:xx.BlendDisableLighting = .41: Next
batleft.BlendDisableLighting = .11:batright.BlendDisableLighting = .11:batright1.BlendDisableLighting = .11
Primitive35.BlendDisableLighting = .11:Primitive36.BlendDisableLighting = .11 'sling cover
Primitive11.BlendDisableLighting = .11:Primitive12.BlendDisableLighting = .11
l66.BlendDisableLighting = .11:l67.BlendDisableLighting = .11
Wall26.BlendDisableLighting = .15 'ramp decal
Primitive45.BlendDisableLighting = .21 : Primitive46.BlendDisableLighting = .31' drive 65
donut.BlendDisableLighting = .11 ' donut heaven
dome1.BlendDisableLighting = .15:dome2.BlendDisableLighting = .15:dome3.BlendDisableLighting = .15 ' traffic lights
supercharger_p.BlendDisableLighting = .20:superramp_p.BlendDisableLighting = 1 ' supercharger and ramp
refL.opacity=7:refR.opacity=7
PlaySound "fx_relay"
DOF 101, DOFOn
Else
For each xx in GI:xx.State = 0: Next
For each xx in Plastics:xx.BlendDisableLighting =0: Next
batleft.BlendDisableLighting =0:batright.BlendDisableLighting =0:batright1.BlendDisableLighting =0
Primitive35.BlendDisableLighting =0:Primitive36.BlendDisableLighting =0 'sling cover
Primitive11.BlendDisableLighting = 0:Primitive12.BlendDisableLighting = 0
l66.BlendDisableLighting =0:l67.BlendDisableLighting =0
Wall26.BlendDisableLighting = 0 'ramp decal
Primitive45.BlendDisableLighting = 0 : Primitive46.BlendDisableLighting = 0 ' drive 65
donut.BlendDisableLighting = 0 ' donut heaven
dome1.BlendDisableLighting = 0:dome2.BlendDisableLighting = 0:dome3.BlendDisableLighting = 0 ' traffic lights
supercharger_p.BlendDisableLighting = 0:superramp_p.BlendDisableLighting = 0 ' supercharger and ramp
refL.opacity=0:refR.opacity=0
'PlaySound "fx_relay"
DOF 101, DOFOff
End If
End Sub
and another fix
Sub SolRampUp(Enabled)
If Enabled Then
Controller.Switch(54) = False
RampaMovil.Collidable = False
playsound SoundFX("fx_diverterUp",DOFContactors)
div_ramp.ObjRotY=15
ramptrig=0
End If
End Sub
Sub SolRampDown(Enabled)
If Enabled Then
Controller.Switch(54) = true
RampaMovil.Collidable = True
playsound SoundFX("fx_diverterUp",DOFContactors)
div_ramp.ObjRotY=0
ramptrig=1
End If
End sub