5 replies to this topic

[jrolson]

How do I script a light to turn on after hitting a target, then after hitting the same target it turns off that light and turns on a different one?

Something like this,

CODE

Sub Target1_Hit()
    CheckLights()
End Sub

Sub CheckLights()
    If

    End If
End Sub

[petecoomali]

sub target_hit
if (light1.state=BulbOff) then
light1.state=BulbOn
light2.state=BulbOff
exit sub
end if
if (light1.state=BulbOn) then
light1.state=BulbOff
light2.state=BulbOn
end if
end sub

This will rotate between two lights.

[jrolson]

Problem is I need this to work with 4 targets and 10 lights... and each target needs to switch the light to the next one.

Edited by jrolson, 09 January 2012 - 08:56 AM.

[petecoomali]

dim lighttempstate

sub target1_hit
rotatelight
end sub

sub target2_hit
rotatelight
end sub

sub target3_hit
rotatelight
end sub

sub target4_hit
rotatelight
end sub

sub rotatelight
lighttempstate=ligh1.state
ligh1.state=ligh2.state
light2.state=light3.state
light3.state=light4.state
.
.
.
light9.state=light10.state
light10.state=lighttempstate
end sub

thankx f666

[s1500]

I would just have an integer variable that keeps track of what light you are at.

[jrolson]

sub target_hit
if (light1.state=BulbOff) then
light1.state=BulbOn
light2.state=BulbOff
exit sub
end if
if (light1.state=BulbOn) then
light1.state=BulbOff
light2.state=BulbOn
end if
end sub

This will rotate between two lights.

Thanks got it working!