Hot Line (Williams 1966).directb2s

Updated to work with the Hot Line table published by SG1bsoN

To get the most out of this update:

1) change the file name to Hot Line (Williams 1966) SG1bsoN.directb2s to work with the table.

2) Add a timer for the flasher called "Lightflash" with interval 378 (enabled)

3) to make the "Hot Line" flashers work, add the following somewhere in the script -

'**** flashing lights - backglass

DIM min
Dim max
Dim lampe1, lampe2, lampe3, lampe4, lampe5, lampe6, lampe7
Dim zero

Sub lightflash_Timer()
min =0
max =6
lampe1=(Int((max-min+1)*Rnd+min))
lampe2=(Int((max-min+1)*Rnd+min))
lampe3=(Int((max-min+1)*Rnd+min))
lampe4=(Int((max-min+1)*Rnd+min))
lampe5=(Int((max-min+1)*Rnd+min))
lampe6=(Int((max-min+1)*Rnd+min))
lampe7=(Int((max-min+1)*Rnd+min))

if b2son then
    If lampe1 >0 then Controller.B2SSetData 62, 1    'H
    If lampe1 =0 then Controller.B2SSetData 62, 0    'H
    If lampe2 >0 then Controller.B2SSetData 68, 1    'O
    If lampe2 =0 then Controller.B2SSetData 68, 0    'O
    If lampe3 >0 then Controller.B2SSetData 70, 1    'T
    If lampe3 =0 then Controller.B2SSetData 70, 0    'T
    If lampe4 >0 then Controller.B2SSetData 64, 1    'L
    If lampe4 =0 then Controller.B2SSetData 64, 0    'L
    If lampe5 >0 then Controller.B2SSetData 63, 1    'I
    If lampe5 =0 then Controller.B2SSetData 63, 0    'I
    If lampe6 >0 then Controller.B2SSetData 67, 1    'N
    If lampe6 =0 then Controller.B2SSetData 67, 0    'N
    If lampe7 >0 then Controller.B2SSetData 61, 1    'E
    If lampe7 =0 then Controller.B2SSetData 61, 0    'E
end if

if VRroom or FSSmode then
    If lampe1 >0 then fuflash.visible = 1    'H
    If lampe1 =0 then fuflash.visible = 0    'H
    If lampe2 >0 then llflash.visible = 1    'O
    If lampe2 =0 then llflash.visible = 0    'O
    If lampe3 >0 then hoflash.visible = 1    'T
    If lampe3 =0 then hoflash.visible = 0    'T
    If lampe4 >0 then useflash.visible = 1    'L
    If lampe4 =0 then useflash.visible = 0    'L
end if

min =250
max =500
zero=(Int((max-min+1)*Rnd+min))
lightflash.Interval = zero
End Sub