Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Dim 01 Juil 2007, 14:54
J'ai beaucoup hésité à le mettre ce programme...
C'est en fait - dans l'ordre - le deuxième programme de ma création, autant dire qu'il n'est pas génial
Mais ça ne coute rien de le mettre
Code
ClrDraw
1->Xmin
1->Ymin
100->Xmax
100->Ymax
For(B,22,52
If B=23:Text(25,B,"C
If B=27:Text(25,B,"O
If B=31:Text(25,B,"C
If B=35:Text(25,B,"5
getKey->K
End
Lbl 7
For(B,1,15
If B=2:Text(25,60,"PRESENTE"
If B=6:Text(25,60,"
If B=11:Text(25,60,"PRESENTE
End
0->[Liste n°4](1)
Text(32,48,"PING
Pause
ClrHome
0->X
5->J
7->C
1->R
0->G
0->H
11->B
10->A
1->E
0->F
A->S
1->I
Lbl 0
If S>14:14->S
If S<1:1->S
If K=83:G+1->G
If C÷1
Then
If B<S or B>S+2
Then
G+1->G
1->F
End
End
B+E->B
C+F->C
Lbl 25
If I>0
Then
7->C
A->S
Output(4,3,"APPUYEZ SUR [ENTER]"
If B<A:A->B
If B>A+2:A+2->B
End
getKey->K
If K=26:A+1->A
If K=105:0->I
If K=24:A-1->A
If A<1
Then
1->A
B-1->B
End
If A>14
Then
14->A
B+1->B
End
If B<1:1->B
If B>16:16->B
ClrHome
Output(C,B,".
Output(1,S,"===
Output(8,A,"===
Output(1,1,H
Output(8,1,G
If I>0:Goto 25
If C÷3 and A>S
Then
If S=B-1 or S=B+1:B->S
End
If S<1:1->S
If S>14:14->S
If F=-1
Then
(C-2)E+B->O
If O>16:-O+32->O
If O<1:-O->O
If OùS and S>O-3:0->D
If S>O:-1->D
If S<O-2:1->D
If O=0:0->D
S+D->S
End
If E=0 and C=4 and F=-1
Then
If B=S or B=S+2:B-1->S
End
If E=0 and C=3 and F=-1 and B=S+1:randInt(-1,1)+S->S
If F=1
Then
randInt(0,2)->W
If B>S+2 and W>0:S+1->S
If B<S and 0<W:S-1->S
End
If B=16 or B=1:-E->E
If BùS and B÷S+2 and C÷2
Then
1->F
If C=1:-E2->E
If C=2
Then
If B=S:-1->E
If B=S+1:0->E
If B=S+2:1->E
End
End
If BùA and B<A+4 and Cù7
Then
-1->F
If C=8:2*-E->E
If C=7
Then
If B=A:-1->E
If B=A+1:0->E
If B+-1=A+2-1:1->E
End
End
X+1->X
If Cù8 and B<A or B>A+2 and Cù8
Then
H+1->H
7->C
A+1->B
1->I
End
If G=3 or H=3:Then
If G=3:Output(1,4,"GAGNE !
If H=3:Output(1,4,"PERDU !"
Disp " "
If Hø3
Then
Disp "TEMPS",X
If X<[Liste n°4](1):X->[Liste n°4](1)
Disp "RECORD"
If Xø[Liste n°4](1):Output(4,8,X
If X=[Liste n°4](1):Output(4,8,"BATTUE !"
End
Stop:End
If A>14:14->A
If A<1:1->A
Goto 0
Peut - être que je vais m'y remmettre pour l'améliorer, je ne sais pas^^
