Autorisation : Membre
Nb de messages : 36
Inscrit le : Dim 12 Jui 2011, 17:50
Posté le : Jeu 14 Juil 2011, 14:48
TANK TI V1
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.
A savoir : Pourquoi le tank ennemi ne tir pas?
->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.
PS : Je vous invite à jeter un petit coup d'oeil à mon "COPTER V2" ^^.
Taille du programme : 1511 KO.
Conseil : mettez vous en "luminosité" 5 ou 6.
****Graphismes****
Tank ennemi :
-<O>
[---]
Votre Bazooka :
1) -]O
2) ] O
3) --]O
Prgm CAMTANK
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
Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Jeu 14 Juil 2011, 19:08
Je n'ai pas testé, mais tu devrait éditer en vitesse ton copright, on peu l'interprété comme quoi on peut copier le programme à condition de ne pas recopier le copright, ce qui est propablement le contraire de ce que tu veut dire.
Sandro
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
