Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 8072
Réponses : 34
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Un pti jeu sympa : space

xeros le 28/05/2006 à 20:30
slt tt le monde
G fé qql modification
l'obstacle se deplace plu ou moin vite suivant le niveau de difficulté
voci le code :
Code
menu("jouer",J,"quitter",Q)
7ù ( ) V
lbl J
menu("niveau","facile",F,"difficile",D)
lbl D
4ù ( ) V
lbl F
lbl C
4ù ( ) B
0ù ( ) S
lbl6
2ù ( ) D
16ù ( ) A
int(5rand+2)ù ( ) C
clrhome
lbl 15
clrhome
D+1ù ( ) D
0ù ( ) G
lbl2
G+1ù ( ) G
getgeyù ( ) K
if K
clrhome
if k=25
B-1ù ( ) B
if K=34
B+1ù ( ) B
if B(inferieur ou egal a )1:1ù ( ) B
if B(superieur ou egal a )8:8ù ( ) B
if G=V
goto 15
output(B,A,"<
output(C,D,"°
if K=21
goto1
goto2
lbl1
A-1ù ( ) A
output(B,A,"-
if A=D and B=C
goto3
if A(inferieur ou egal a)1
goto7
goto1
lbl3
S+1ù ( ) S
output(C,D,"*
for(T,0,5)
end
output(C-1,D,"*
output(C+1,D,"*
output(C,D-1,"*
output(C,D+1,"*
for(T,0,10)
end
output(C,D,".
for(T,0,5)
end
output(C,D-1,".
output(C,D+1,".
output(C-1,D,".
output(C+1,D,".
goto6
lbl7
disp"loose
for(T,0,50)
end
clrhome
if S(superieur ou egal a)l4(1)
then
Sù ( ) l4(1)
output(1,2,"nouveau score:
output(4,6,l4(1)
else
output(3,6,"score:
output(4,6,S
for(T,0,500)
end
menu("loose","continuer",C,"quitter",Q)
lbl Q
stop
Jcotnys le 28/05/2006 à 20:37
uai cool mé essai de le mettre en ".82p" stp .
moi perso jutilise vti pour ti82 ! minied.gif
xeros le 28/05/2006 à 20:47
pour le meilleur score L4(1)
il fo d'abor rentré une valeur,par exemple 0
dsl pour le bug
webmaster le 28/05/2006 à 20:53
Bienvenue à toi !

@+ Le Webmaster beer.gif

PS : Connecte-toi pour que tu ne sois plus "invité" !
xeros le 28/05/2006 à 20:56
merci beaucou
slt a toi oci
pouV vou me dire les PB ke vou rencontrerè avec mon programme
ou d'eventuelle modification
merci d'avance happy.gif
ratuss le 28/05/2006 à 21:19
salut xeros et bienvenue,

Si tu veux tu peux mettre "se connecter automatiquement" lorsque tu te loges, comme ca après tu est detecté automatiquement sur le site, et puis ca t'eviteras de poster en tant qu'invité

Sinon pour le "bug", il y a une commande qui s'apelle dim et qui te permet de dimenssionner ta liste.

Rajoute :
Code
1->dim L4
if S(superieur ou egal a)l4(1)


Ici si le score n'extiste pas, "dim" permettras de mettre L4(1) à 0.
Sinon si L4(1) existe deja, l'instruction dim ne touchera pas à son contenu.
xeros le 29/05/2006 à 20:59
slt tt le monde
g fé kkl modification au programme mé elle pose kkl petits PB :
il y a des decalage entre le moment ou on apui sur la touche et le moment ou le jeu tire crazy.gif
pourié vous m'aidé je ne trouve pa le bug cry.gif angry.gif
merci d'avance
bye cupsmiley.gif



ps: g directement mi les modification sur le code d'origine
explosivetnt le 30/05/2006 à 17:40
je vais le mettre sur ma TI, je te dirais ce que j'en pense apres... merci Xeros
xeros le 30/05/2006 à 18:37
slt
de rien explosiveTNT
merci de tesT ce tt peti truc cupsmiley.gif
bye
xeros
explosivetnt le 31/05/2006 à 15:03
Code
goto 15
output(B,A,"<
output(C,D,"°
if K=24
goto1
goto2
lbl1
A-1ù ( ) A

ya un petit prob a ce niveau et j'ai ds prob avc le score...
sinnon il est cool.
par contre g pas trouvé de moyen d'éviter les problemes au niveau du tir.
@+
xeros le 29/08/2006 à 12:30
aprè de longue vacance G pu modifié encore une foi ce pti jeu
le changement de niveau ce fé automatikement
voici le code :
Code
clrhome
16}w
lbr R
W-1}W
clrhome
output(4,W,"SPACE
if W=7
goto 65
goto R
lbl 65
output(3,6,"-
output(5,12,"-
for(T,0,50
end
output(3,8,"-
output(5,10,"-
for(T,0,50
end
output(5,9,"-
output(3,9,"-
for(T,0,50
end
output(5,8,"-
output(3,10,"-
for(T,0,50
end
output(5,7,"-
output(3,11,"-
for(T,0,50
end
output(3,12,"-
output(4,12,"-
for(T,0,700
end
output(4,9,"*
for(T,0,20
end
output(4,8,"*
output(4,10,"*
output(3,9,"*
output(5,9,"*
for(T,0,20
end
output(3,6,"*
output(5,6,"*
output(3,12,"*
output(5,12,"*
for(T,0,20
end
output(2,7,"*
output(2,11,"*
output(6,7,"*
output(6,11,"*
for(T,0,20
end
output(1,9,"*
output(7,9,"*
for(T,0,20
end
output(4,9,".
output(4,10,".
output(4,8,".
output(3,9,".
output(5,9,".
for(T,0,20
end
output(2,7,".
output(2,11,".
output(6,7,".
output(6,11,".
for(T,0,20
end
output(3,8,".
output(5,8,".
output(4,7,".
output(4,11,".
output(5,10,".
output(3,10,".
for(T,0,20
end
clrhome
output(3,7,".
output(5,7,".
output(3,11,".
output(5,11,".
for(T,0,20
end
clrhome
menu(">>>>>>SPACE<<<<<<","JOUER",J,"QUITTER",Q)
lbl J
lbl C
10}V
0}Q
4}B
0}S
0}F
10}H
lbl 6
2}D
16}A
if F=H
then
Q+1}Q
V-1}V
if V=1
then
goto 16
end
H+10}H
for(T,0,50
output(1,6,"NIVEAU
output(1,12,Q
end
end
int(5rand+2)}C
clrhome
lbl 15
clrhome
D+1}D
0}G
lbl 2
G+1}G
getkey}K
if K
clrhome
if K=105
pause
if K=25
B-1}B
if K=34
B+1}B
if B(inferieur ou egal)1:1}B
if B(superieur ou egal)8:8}B
if G=V
goto 15
output(B,A,"<
output(C,D,"(py)
if D(superieur ou egal)16
goto 7
if K=21
goto 1
goto 2
lbl 1
A-1}A
if A(inferieur ou egal)1
yhen
S-1}S
for(T,0,20
output(1,1,"-1
end
16}A
goto 15
end
output(B,A,"-
if A=D and B=C
goto 3
goto 1
lbl 3
S+1}S
F+1}F
output(C,D,"*
for(T,0,5
end
output(C-1,D,"*"
output(C+1,D,"*
output(C,D-1,"*
output(C,D+1,"*
for(T,0,10
end
output(C,D,".
for(T,0,5
end
output(C,D-1,".
output(C,D+1,".
output(C-1,D,".
output(C+1,D,".
goto 6
output(B,D,"*
output(B-1,D,"*
output(B+1,D,"*
for(T,0,50
end
output(B,D,"*
output(B-1,D,".
output(B+1,D,".
for(T,0,50
end
output(B,D-1,".
for(T,0,150
end
disp "loose
for(T,0,150
end
clrhome
if S(superieur ou egal)L4(1)
then
S}L4(1)
output(1,2,"NOUVEAU SCORE:
output(4,6,L4(1)
else
output(3,6,"SCORE:
output(4,6,S
pause
lbl 13
menu(">>>>>>loose<<<<<<","continuer",C,"quitter",Q
lbl 16
clrhome
for(T,0,100
output(4,6,"you Win"
end
menu(">>>>>>>WIN<<<<<<<","recommencer",C,"quitter",Q
lbl Q
clrhome
stop
xeros le 29/08/2006 à 17:49
si qql pouV le tesT ce serè sympa
merci a+
webmaster le 29/08/2006 à 18:35
Merci d'écrire en français !

@+ Le Webmaster beer.gif
Sangohan38 le 29/08/2006 à 18:49
J'ai vu marqué "Goto 65".
Soit c'est une faute de frappe soit tu as une TI-82 STATS au minimum.
Dans le 2ème cas, je te conseil de mettre un autre goto parceque les 82 n'ont pas la joie d'avoir 90 Gotos en plus.
ratuss le 30/08/2006 à 11:16
Ouais et en + ca fait un octet d'économisé bigmouth.gif
Sangohan38 le 30/08/2006 à 14:06
1 Octet: tu as faux, il y en aura au moin 2.
Ceci s'explique parceque un chiffre=1 octet.
Si il y a le goto 65, ça veut dire qu'il y a le lbl 65 donc ça fait au minimum 2 octets de plus puisqu'il peut y avoir encor d'autre goto 65.

Mais bon on va pas pleurer pour 2 octets de gaspiller.
ratuss le 31/08/2006 à 08:56
Bah si justement... extraterre.gif
Sangohan38 le 31/08/2006 à 13:59
2 octets c'est pas énorme.
Bien sur quand tu a fait plein de programme avec a chaque fois 100 octets d'inutile, ca commence a faire mais sinon c'est pas grand chose.
ratuss le 31/08/2006 à 14:18
2 octet + 2 octet + 2octet...
Sangohan38 le 01/09/2006 à 10:44
=6 octets! glasses.gif
T'a vu, j'ai appris a compter sans ma calculette.

Mais sinon, c'est ce que je vien de dire.
Jcotnys le 24/08/2007 à 09:36
oula 1 an le topic mé tant pis, oh moins moi je teste et y un petit pb au nivo des scores :il ne saffiche pa...et pour les goto :goto 16 ca existe pa pour ma calculatrice..
voila minied.gif
ratuss le 25/08/2007 à 09:46
essaye ca pour voir...

if S(superieur ou egal a)l4(1)
then
Sùl4(1)
output(1,2,"nouveau score:
output(4,6,l4(1)
else
output(3,6,"score:
output(4,6,S
end
for(T,0,500)
end


sinon pour les labels t'as qu'à les réduire toi même eyeonly.gif


+
Jcotnys le 05/12/2007 à 11:18
ok jvé essayé et g rouvé pr les label winkle.gif
ratuss le 05/12/2007 à 19:07
ah ? bon bah tant mieux :p (en fait je vois plus trop de quoi il s'agissait.
Jcotnys le 20/01/2008 à 19:24
en fait il n'existe pa de labels égaux ou au dessus de 10 donc il fo les remodifier.
pour le score voici ce kil faut mettre :
Code
S->L4(1)
if S(superieur ou egal a)L4(1)
then
S->L4(1)
output(1,2,"nouveau score:
output(4,6,L4(1)
else
output(3,6,"score:
output(4,6,S
end
for(T,0,500)
end   

voila winkle.gif
ratuss le 20/01/2008 à 19:27
ah bon ok. :p
englef69 le 27/10/2008 à 14:10
cry.gif moi j'ai un err:syntax au niveau du J (première ligne entre virgule ) comment la résoudre .
merci,j'ai une ti 82.
@+
ratuss le 27/10/2008 à 15:14
t'as bien mis des virgules (pas des points ?)
englef69 le 30/10/2008 à 12:25
non je n'ai pas mis de point j'ai utilisé la touche , au dessus du 7.J'ai entre Menu("JOUER",J,"QUITTER",Q).
je vois pas d'erreur.
ratuss le 30/10/2008 à 14:36
ah oui d'accord, rajoute ca winkle.gif :

Menu("SPACE","JOUER",J,"QUITTER",Q)

a+
englef69 le 30/10/2008 à 15:06
ahh.gif merci, ça fonctionne mais une autre erreur syntaxe et arrivée.au niveau de
:ClrHome
:Lbl 15
:ClrHome
angry.gif L'erreur est situer sur le 5 evil.gif .
POURQUOI???
merci de me répondre.
englef69 le 30/10/2008 à 15:08
dsl c'est ligne 16 pour trouver + vite.
merci de me répondre.
Sangohan38 le 30/10/2008 à 15:45
Pas besoin de s'ennerver, on répond quand on viens sur le forum.
Pour ton problème, à mon avis, c'est simplement parceque ta calculatrice doit être une ti-82 non stats et donc tu ne peut utiliser ce label.
Pour y corrigé, remplace le label 15 par un autre label non utilisé.

Sangohan38
lol le 09/02/2009 à 12:44
salut a tous
merci pour les reponses
j'ai un bug et c un truc tout simple je pense (donc desolé pour le flood)
l 30 a peu pres:
il me dit le truc de domaine apres
output(A,B,"<

et je pense que ca vas etre pareil une lgne en dessous....
merci
ps: quelqu'un connait un tetris, un snake, ou un TANK bien
merci
coc5 le 09/02/2009 à 21:20
Ce n'est malheureusement pas simple...
Met à la place
Code
Output(max(1,min(8,A)),max(1,min(16,B)),"<

Et dis nous ce que ça produit.
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.