Autorisation : Membre
Nb de messages : 228
Inscrit le : Mer 17 Jui 2009, 0:54
Posté le : Mer 16 Déc 2009, 20:45
Voilà un petit programme dev en coopération avec dysto :
(PRE-VERSION)
Code
EffEcr
8->X:4->Y
{8,16}->dim([A
Remplir(0,[A]
1->G:1->H
0->S
Lbl 1
S+1->S
If Y=<0:1->Y
If Y>=9:8->Y
If X=<0:1->X
If X>=17:16->X
Output(G,H,"*
If A=/=Y or B=/=X
Output(A,B,"
Output(Y,X,"O
codeTouche->K
(K=26)-(K=24)+X->X
(K=34)-(K=25)+Y->Y
If K
Then
Y+(K=25)-(K=34)->A
X+(K=24)-(K=26)->B
End
entAléat(1,8)->G
entAléat(1,16)->H
1->[A](G,H
If [A](X,Y)
Goto 2
Goto 1
Lbl 2
EffEcr
Output(3,5,"PERDU !
Output(4,5,"SCORES :
Output(5,8,S
Pause
EffEcr
Output(1,1,"--------
Output(8,1,"--------
Output(4,1,"TIP TEAM (C)2009
Pause
EffEcr
Output(1,1,"
:
!