1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
| '***********DROP TARGETS***************
Sub bank_Hit()
Timer2.Set True, 15000
a1.state=1:a2.state=1:a3.state=1:a4.state=1:a5.state=1:a6.state=1:a7.state=1
AddScore(4000)
playsound ""
IncrementBonus(1)
Select Case (fpEventID)
Case 1: a1.FlashForMs 1000, 80, BulbOff:cka:ckb
Case 2: a2.FlashForMs 1000, 80, BulbOff:cka:ckb
Case 3: a3.FlashForMs 1000, 80, BulbOff:cka:ckb
Case 4: a4.FlashForMs 1000, 80, BulbOff:cka:ckb
Case 5: a5.FlashForMs 1000, 80, BulbOff:cka:ckb
Case 6: a6.FlashForMs 1000, 80, BulbOff:cka:ckb
case 7: a7.FlashForMs 1000, 80, BulbOff:cka:ckb
End Select
End Sub
Sub Timer2_Expired()
Timer2.Enabled = False
Timer3.Set True, 10000
b1.state=1:b2.state=1:b3.state=1:b4.state=1:b5.state=1:b6.state=1:b7.state=1
End Sub
Sub cka()
if a1.state=0 and a2.state=0 and a3.state=0 and a4.state=0 and a5.state=0 and a6.state=0 and a7.state=0 then
light54.state=1
AddScore(10000)
end if
End Sub
sub ckb()
if b1.state=0:b2.state=0:b3.state=0:b4.state=0:b5.state=0:b6.state=0:b7.state=0 then
light59.state=1
end if
end sub |
Partager