bonjour

j'ai un souci avec un then au sub ckb ; il me demande then 'attendu' , je ne vois pas le problème ?? (j'ai la même syntaxe avec cka et aucun message d'erreur).
a1--a7 et b1--b7 sont des lumieres. bank est une drop targets de 7 targets.
c'est une programmation d'un pinball . Pour les specialistes , il s'agit de counterforce. il y a plusieurs series de lumières temporisées , en mode séquentiels (a1--a7) pour le spécial ; (b1--b7) pour l’extra-bille ; (c1--c7) pour le bonus.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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