ras le cul des maths - Page 13

G remplacé les deux variables mais ca met toujours domain error au lancement du prog.

If pxltest(c,b)=true:Exit

le probleme vient forcemment de c et b

()
Prgm
Local x,y,k,t,a,b,c,d
DispG
340»t:2»x:3»y
While t?264
getKey()»k
If k=337 or k=340 or k=338 or k=344 or k=2:k»t
If x=0 or x=238 or y=0 or y=107:Exit
If pxlTest(y,x)=true:Exit
PxlOn y,x
If t=337:x-1»x
If t=338:y-1»y
If t=340:x+1»x
If t=344:y+1»y

97»a:50»c:50»b
getkey()»d
If d=119 or d=115 or d=97 or d=122 or d=2:d»a
If b=0 or b=238 or c=0 or c=107:Exit
If pxlTest (c,b)=true:Exit
PxlOn c,b
If a=97:b-1»b
If a=119:c-1»c
If a=115:b+1»b
If a=122:c+1»c
EndWhile
ClrDraw
DispHome
EndPrgm

G bien regardé je vois que dalle. Je vais reprendre depuis le début et je verrais bien.

Voilà une excellente occasion d'utiliser les indiretions.
T'as une routine qui fonctionne, autant l'utiliser pour les deux joueurs...
Tu fais une boucle for de 1 à 2, et tu utilise des variable avec des noms comme key1 key2, dir1 dir2 (en évitant les x1 x2 et y1 y2).

tu peux d'ailleurs lire le tuto de bob sur les indirections

Nan, il est pas assez complet, je pense

Je m'excuse mais la g pas trop pigé vot' truc.

Ben, c'est simple...

Tu passe une première fois avec la boucle for en traitant les variables du premier joueur. Sur le deuxième passage, tu traites les variables du second joueur. Si aucun joueur n'as perdu, tu remet la boucle de comptage à 0, et tu refait ton passage sur le premier joueur...

pourquoi une indirection ?
une liste suffit !

ya plus de boucle while alors?

c les indirections un bob ...

c goret les indirections
cpas "propre" comme programmation je trouve

C sur son site son tuto?

va dire ca a qui tu sais

Krän>
Azerty>oui, aussi. Je pense même que ce serait plus rapide. Et puis foutres des Lbl...Goto partous, c'est pas spécialement élégant non plus
Microbug>Vaut mieux pas

Chuis decalqué je sais même pu ce que je dis....

les indirections c pas un truc de newbie je pense

non mais il ne faut pas en abuser !
(pour les operation sur les variables ou pour un brabchement su rdes lbl multiple pkoi pas)

c koi une indirection?

Ben... en fait, c'est une opération qui permet d'influencer le contenus de la variable utiliser.
Par exple, si t'as une variable qui s'appelle test et qui contient "vala", et que tu fait 25->#test, et ben c'est vala qui contiendrat 25. test garde "vala" comme contenus.

tu accede a une variable par l'intermediaire d'une string contenant le nom de cette variable
exemple
tu peux faire :
1->a
ou bien
"a"->str
1->#str

ou # est le signe "indirection"

Et c utile? parce que ca a l'air plus long que d'ecrire 1->a.

A moins que ca soit utile juste pour les phrses ou les mots.

ben c utile quand tu veux acceder a une variable dont le nom peux changer par exemple

et c aussi utile car tu oeux creer des indirections pour les goto

Ça sert par exemple pour les Gotos calculés:
Goto #("label"&string(exact(n)))
ou
Goto #({"foo","bar","machin","toto"}[n])

Mais attention :

try
goto #"label"
else
text "ça a merdé"
endtry

ne marche jamais, même si 'lbl label' existe. c un bug du TiOS.

A ben voilà un de mes prbm de régler
Sauf que chez moi, Goto #label ne marche pas tous le temps, au lieu de jamais

Ce n'est pas un bogue. C'est juste que tu n'as pas le droit de sauter en dehors d'un Try avec Goto. Même ceci n'est pas valable:
:Try
:Goto x
:Else
:ClrErr
:EndTry
:Lbl x

Ceci marche:
:Try
:Goto x
:Lbl x
:Else
:ClrErr
:EndTry
de même que ceci:
:"x"->y
:Try
:Goto #y
:Lbl x
:Else
:ClrErr
:EndTry

C'est des prbm de ce type que je te disais d'inclure dans ton tuto

Voui je c tous les gotos sont impossibles à l'interieur d'une boucle try. Mais si ce n'est pas un bug pourquoi est-ce que ça fait ça ???