opérations sur les listes de true et false

[natha]

bonjour a tous
En fait je voudrais faire une opération sur une liste de true et de false.
Avec pxltest, quand on rentre plusieurs coordonnée on obtient une liste de ce genre.
j'ai découvert que si je met

Code: Select all

If liste[1] = true
instructions


ca marche mais j'arive pas a faire un opération sur toute la liste.
Je voudrais savoir comment on peut executer telle action si il y a au moins un true dans la liste.
Autrement dit, je rentre une liste de coordonnées et quand un des pixel s'allume, j'insere ma commande.

Merci beaucoup a celui qui pourait m'aider.

[tama]

comprend pas
tu peux mettre ton code et ce que tu veux faire ?

[natha]

Mon programme est un petit serpent qui evolue dans un labyrinte.
La difficultée et que je veux que quand il franchis une certaine zone, on as 1 point en plus.
Voici mon programme:

Code: Select all

Clrdraw
Rclpic mainlablvl1
60 -- x
10 -- y
0 -- a
1 -- b
0 -- p
{15,15,15} -- list1
{23,24,25} -- list2
/j'entre les coordonnées des trois points de ma porte
loop
getkey() -- z
if z =/= 0 then
if z = 338 then
-1 -- a
0 -- b
endif
/pareil pour toutes les touches...
endif
a+x -- x
b+y -- y
if pxltest(x,y)
exit
pxlon x,y

if XXXXX(pxltest(list1,list2))
p+1 -- p
/quand on detecte un true dans la liste (quand un des 3 pxl est allumé = quand on passe la porte) on as 1 pts

/OU

XXXX(pxltest(list1,list2)) -- p
/un truc qui me fait compter le nombre de "true" qu'il y a dans ma liste

endloop


J'espère que cette fois ci j'ai été clair... a défaut d'être court!

[tama]

Mon programme est un petit serpent qui evolue dans un labyrinte.
La difficultée et que je veux que quand il franchis une certaine zone, on as 1 point en plus.
Voici mon programme:

Code: Select all

Clrdraw
Rclpic mainlablvl1
60 -- x
10 -- y
0 -- a
1 -- b
0 -- p
{15,15,15} -- list1
{23,24,25} -- list2
/j'entre les coordonnées des trois points de ma porte
loop
getkey() -- z
if z =/= 0 then
if z = 338 then
-1 -- a
0 -- b
endif
/pareil pour toutes les touches...
endif
a+x -- x
b+y -- y
if pxltest(x,y)
exit
pxlon x,y

if XXXXX(pxltest(list1,list2))
p+1 -- p
/quand on detecte un true dans la liste (quand un des 3 pxl est allumé = quand on passe la porte) on as 1 pts

/OU

XXXX(pxltest(list1,list2)) -- p
/un truc qui me fait compter le nombre de "true" qu'il y a dans ma liste

endloop


J'espère que cette fois ci j'ai été clair... a défaut d'être court!

ah ok
j'ai compris

dans ce cas mets un compteur n qui compte le nombre de true au début de ton code et puis tu fais ton code comme ça :

Code: Select all

0-n
...(ton code)
For c,1,dim(list1)
If PxlTest(list1[c],list2[c])=TRUE then
n+1-n
Endif
EndFor
If n0 then
p+1-p //si p est la variable pour compter les points
Endif
EndLoop


[natha]

bien vu
j'essaie tout de suite pour voir si c'est assez rapide!

[natha]

apres quelques modifications* le programme est tres bien. J'ai été un peu tardif parce que je viens de me faire un autre programme qui me fait les 2 listes juste en selectionnant les points sur l'écran graphique (tres pratique!)
*Calcul des true au game over, le programme est ainsi beaucoup plus rapide et remplacement de n directement par p.
merci beaucoup en tout cas.
Grace a ca je peut me preparer un exellent programme et ca vas m'aider pour les autres!!
Natha

[tama]

de rien
si t'as d'autres questions tu peux les poser ici