23Fermer25
myst6re n2Le 04/10/2008 à 16:32
Nan ! Bon d'accord, sous quelle forme ? copier-coller ? ou alors je t'envoie ttriad.8xp ?

edit : Voila :

==distribution des cartes==

Au niveau du premier appel de TTDB, j'ai mis ça :
:θ→[B](D,5
:iPart(10fPart(∟Z(THETA)/{E}5→[B](D,6
:If D<6 and Y
:Then
:For(V,1,4
:iPart(10fPart(&#8735;Z(THETA)/10^V&#8594;[B](D,V
:if not(Ans
:10&#8594;[B](D,6
:End
:End


Ici c'est l'affichage un peu plus loin
:iPart(10fPart(&#8735;Z(THETA)/{E}1
:Text(J,I-4,sub(Str9,Ans+1,1
:iPart(10fPart(&#8735;Z(THETA)/{E}4
:Text(J+3,I,sub(Str9,Ans+1,1
:iPart(10fPart(&#8735;Z(THETA)/{E}2
:Text(J,I+4,sub(Str9,Ans+1,1
:iPart(10fPart(&#8735;Z(THETA)/{E}3
:Text(J-3,I,sub(Str9,Ans+1,1


==navigation avec le curseur pour choisir une carte==

Au niveau du deuxième appel de TTDB :
:Lbl M
: DelVar K[B](J,5&#8594;&#952;
:sub(Str6,&#952;12-11,12&#8594;Str5
:inString(Ans,"-",3
:If Ans
:sub(Str5,1,Ans-1&#8594;Str5
:If U and [B](J,6
:Then
:sub("TPNEFSRV",[B](J,6),1
:Text({-}1,56,24,Str0
:Text(57,45-2length(Str5+Ans),Str5," (",Ans,")
:Else
:Text({-}1,56,24,Str0
:Text(57,48-2length(Str5),Str5
:End


==On pose une carte==

Affectation des valeurs de la carte choisie à [A]
:For(&#952;,1,4
:iPart(10fPart(&#8735;Z([A](X,6))/10^&#952;&#8594;[A](X,&#952;
:if not(Ans
:10&#8594;[B](X,&#952;
:End


Affichage un peu plus loin :

:iPart(10fPart(&#8735;Z([A](X,6))/10
:Text(I-5,H+4,sub(Str9,Ans+1,1
:iPart(10fPart(&#8735;Z([A](X,6))/{E}3
:Text(I-8,H+8,sub(Str9,Ans+1,1
:iPart(10fPart(&#8735;Z([A](X,6))/{E}4
:Text(I-2,H+8,sub(Str9,Ans+1,1
:iPart(10fPart(&#8735;Z([A](X,6))/{E}2
:Text(I-5,R-6,sub(Str9,Ans+1,1


Bon, tu l'auras remarqué, à cause du A(=10), je suis obligé d'utiliser pleins de fois la liste. (je dois afficher A et pas 10, je dois affecter 10 et pas A)

De plus j'ai optimisé dans la même optique le truc avec "if K"
sub("TPNEFSRV",[B](J,6),1 avec [-B-](J,6) une valeur entre 1 et 8.