Bonjour tout le monde,
Voici un pong de Coc5 il est très bien.
Si vous rencontrer [Liste <2nd +1>], ce n'est pas une instruction ! c'est juste les touches qu'il faut taper pour avoir la bonne instruction.
Lien du sujet d'origine : http://tout82.free.fr/forum/sujet.php?sujet=989
Lien de téléchargement : http://www.4shared.com/file/nykv6VTd/POC3.html
edit 31/08/2014 : hébergement par Linkakro http://www.mediafire.com/download/dgfgz8bl2p60jpq/poc3.83p
Edit (STV) : Lien de téléchargement : http://ti-pla.net/a369809
(remerciez moi je me suis farci tout le recopiage pour vous avoir ce lien!)
Voici un pong de Coc5 il est très bien.
Si vous rencontrer [Liste <2nd +1>], ce n'est pas une instruction ! c'est juste les touches qu'il faut taper pour avoir la bonne instruction.
Lien du sujet d'origine : http://tout82.free.fr/forum/sujet.php?sujet=989
Lien de téléchargement : http://www.4shared.com/file/nykv6VTd/POC3.html
edit 31/08/2014 : hébergement par Linkakro http://www.mediafire.com/download/dgfgz8bl2p60jpq/poc3.83p
Edit (STV) : Lien de téléchargement : http://ti-pla.net/a369809
(remerciez moi je me suis farci tout le recopiage pour vous avoir ce lien!)
- Code:
1->Y
2->dim( [Liste <2nd puis 1>]
{1,9->dim([F] // aller chercher [F] dans [matrice] (2nde + x^-1) sinon ça va bugguer
Lbl M
ClrHome
Menu("POC3 COC5(C)2007","COMMENCER",C,"CONTINUER",3,"NIVEAU A.I",4,"QUITTER",5
Lbl 5:Stop
Lbl 4
10P->A
ClrHome
Disp "NIVEAU A.I",""," DEBUTANT"," FACILE"," MOYEN"," DIFFICILE"," HARDCORE
1->F
Repeat K=105
getKey->K
A->C
min(5,max(1,A+(K=34)-(K=25->A
If F:A->C
0->F
Output(C+2,1," "
Output(A+2,1,"*
End
A/10->P
Goto M
Lbl C
{3,3-> [Liste <2nd puis 1>]
Lbl D
If P>.5 or P<.1:.3->P
6->F:7->A:7->E:8->B
7->G:7->H:0->C:0->D
2->Y
Goto 0
Lbl 3
If not([F](1,1
Goto M
[F](1,1->A
[F](1,7->D
[F](1,2->B
[F](1,8->C
[F](1,3->E
Ans->G
[F](1,4->F
Ans->H
[F](1,9->P
{ [F](1,5),[F](1,6-> [Liste <2nd puis 1>]
1->Y
Lbl 0
A->Q
B->S
Repeat K=22
Repeat not(Y
Output(Q,S," "
B+(B=17)+not(B->B
Output(A,B,"*
Output(1,H," "
Output(1,F,"===
getKey->K
If Y-1:Then
(Ans=26)-(Ans=24->M
Output(8,E," "
min(14,max(1,E+M->E
Output(8,E,"===
B+C(A-1->O
F->H
If O>16:32-O->O
If O<1:2-O->O
3rand2P(O-F-1+(A<4)2rand
If P>.3 and A=2 and F=B-1:9E-9F
min(14,max(1,F+(Ans>1-2P)-(Ans<2P-1->F
End
If Y=2
Output(4,4,"APPUYEZ SUR UNE TOUCHE
If Y:Then
If K and K-24 and K-26:0->Y
If Y=2:min(E+2,max(E,B->B
ClrHome
Output(1,16, [Liste <2nd puis 1>] (2
Output(8,1, [Liste <2nd puis 1>] (1
End
End
If K=21:Pause
A->Q
B->S
A+D->A:B+C->B
If A=9 or not(A
Then
1+not(A
-1+ [Liste <2nd puis 1>] (Ans-> [Liste <2nd puis 1>] (Ans
ClrHome
If Ans
Goto D
If [Liste <2nd puis 1>] (2:Disp "VOUS AVEZ PERDU!
If [Liste <2nd puis 1>] (1:Disp "VOUS AVEZ","GAGNE !
Stop
End
C-2C(B+C>16 or B+C<1->C
A>6->V
A<3->W
If V and E [INFERIEUR OU EGAL] B and E [SUPERIEUR OU EGAL ]B-2 or W and F [INFERIEUR OU EGAL] B and F [SUPERIEUR OU EGAL] B-2:Then
(B-(F+1)W-(E+1)V)(1+(A=8 or A=1->C
W-V->D
End
End
Menu("SAUVEGARDER ?","OUI",O,"NON",N
Lbl O
[[A,B,E,F, [Liste <2nd puis 1>] (1), [Liste <2nd puis 1>] (2),D,C,P->[F]
Lbl N
ClrHome
Output(1,9,"
Dernière édition par ashtrail le Sam 5 Oct 2013 - 18:55, édité 2 fois