Voici un jeu tank complet avec prise en compte de la force et de la gravité.
Plus vous mettez de force et plus la bombe irra vite et loin.
Appuyer sur MODE pour voir la position du tank ennemi.
->J'y travaille, mais la je suis une peu ":S" car ce programme est mon plus long et je n'étais pas habitué a en faire
d'aussi longs.
Je n'ai pas de cable, alors si vous voulez le tester il vous faudra le recopier!
De plus, il est fait sur TI 82 STATS FR et non sur 82 eng, 83, 84 ou encore 89.
Code
EffEcr
Output(4,4,"CAM! (C) 2011
EffEcr
Output(1,1,"TOUR ENNEMI
entAléat(1,11->D
12->C
Repeat C=D
Output(7,C,"-<O>
Output(8,C,"[---]
For(L,1,200:End
Output(7,C," "
Output(8,C," "
C-1->C:End
Output(7,C,"-<O>
Output(8,C,"[---]
Output(1,1," "
Output(4,4,"PRET?
Pause:EffEcr
1->N:4->Y
Output(1,1,"VISEE+CHOIX ARME
Repeat K=105
If N=1
Output(Y,1,"-]O
If N=2
Output(Y,1,"-]<>
codeTouche->K
If K=24:Then
N-1->N
If N=0:2->N:End
If K=26:Then
N+1->N
If N=3:1->N:End
If K=22:Then
EffEcr:0->K
Repeat K=22
codeTouche->K
Output(1,1,"ZONE ENNEMIE
Output(7,C,"-<O>
Output(8,C,"[---]
End:EffEcr
Output(1,1,"VISEE+CHOI8X ARME
If N=1
Output(Y,1,"-]O
If N=2
Output(Y,1,"-]<>
End
If K=25 ou K=34
Output(Y,1," "
If K=25 et Y>2
Y-1->Y
If K=34 et Y<7
Y+1->Y:End
Output(1,1,"FORCE
7->X:1->A
Repeat K=105
For(L,1,20
Output(8,X,"+
End
If X=7:1->A
If X=16:2->A
If A=1:X+1->X
If A=2:Then
Output(8,X," "
X-1->X:End
codeTouche->K
End:EffEcr
If N=1
Output(Y,1,"-]O
If N=2
Output(Y,1,"-]<>
For(L,1,200:End
If N=1
Output(Y,1,"] O
If N=2
Output(Y,1,"] <>
For(L,1,200:End
If X=7:80->F
If X=8:72->F
If X=9:64->F
If X=10:56->F
If X=11:48->F
If X=12:40->F
If X=13:32->F
If X=14:24->F
If X=15:8->F
If X=16:0->F
4->X
Repeat X=16
Output(Y,1,"--]
If N=1
Output(Y,X,"O
If N=2
Output(Y,X,"<>
For(L,1,F:End
Output(Y,X," "
X+1->X:End
EffEcr:1->X
Repeat X=8
If N=1
Output(Y,X,"O
If N=2
Output(Y,X,"<>
For(L,1,F:End
Output(Y,X," "
X+1->X:End
If N=1
Output(Y,X,"O
If N=2
Output(Y,X,"<>
For(B,1,2
16->A
Repeat A=0
Output(Y-1,A,"-
Output(Y+1,A,"-
For(L,1,F:End
Output(Y-1,A," "
Output(Y+1,A," "
A-1->A:End:End
Repeat X=16
If N=1
Output(Y,X,"O
If N=2
Output(Y,X,"<>
For(L,1,F:End
Output(Y,X," "
X+1->X:End
EffEcr
If F=80:1->X
If F=72:2->X
If F=64:3->X
If F=56:4->X
If F=48:5->X
If F=40:6->X
If F=32:7->X
If F=24:8->X
If F=16:9->X
If F=8:10->X
If F=0:11->X
Output(7,C,"-<O>
Output(8,C,"[---]
If X>1:Then
For(A,1,X-1
If N=1
Output(Y,A,"O
If N=2
Output(Y,A,"<>
For(L,1,F:End
Output(Y,A," "
End:EndFor(B,Y,8
If N=1
Output(Y,X,"O
If N=2
Output(Y,X,"<>
For(L,1,F:End
Output(Y,X," "
Y+1->Y:X+1->X:End
If N=2 et X>1 et X<16:Then
Output(8,X-1,"< >
For(L,1,200:End
8->A
Repeat A=4
Output(A,X,"**
For(L,1,20:End
A-1->A:End
Repeat A=9
Output(A,X," "
For(L,1,20:End
A+1->A:End:End
For(L,1,200:End
EffEcr
If X<C ou X>C+4
Then
Output(4,4,"RATE!
Else
Output(4,4,"TOUCHE!
End
Menu("","REESSAYER",I,"QUITTER",J
Lbl I:prgmCAMTANK
Lbl J:EffEcr
Output(4,4,"COPRIGHT CAM!
Pause:EffEcr
