Forum | TOUT sur la TI-82

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Code pour jeu

Code pour jeu

Auteur

Message

momo30

Autorisation : Membre
Nb de messages : 54
Inscrit le : Mar 13 Déc 2011, 21:58

Posté le : Mar 13 Déc 2011, 23:38

Bonjour je voudrai savoir si quelqu'un pourrai me donner le code du jeu du pendu avec des indice a partir de la 3ème chance (ma calculatrice est une TI82 stat.fr)
S'il vous plaît
Merci d'avance

snap

Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17

Posté le : Mar 13 Déc 2011, 23:48

Moi je connais mon pendu que j'ai fait

Mais y a pas d'indice :/

----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes

Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr

momo30

Autorisation : Membre
Nb de messages : 54
Inscrit le : Mar 13 Déc 2011, 21:58

Posté le : Mar 13 Déc 2011, 23:50

tu pe me le doner s'il te plaît

snap

Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17

Posté le : Mer 14 Déc 2011, 0:29

Code

:EffVar QEffVar ZPleinEcr
:For(A,1,16
:Output(1,A,"*
:Output(8,A,"*
:If non(PartDec(A/2:Then
:Output(A/2,1,"*
:Output(A/2,16,"*
:End
:End
:Output(4,2,PENDU BY SNAP!
:Pause
:EffEcr
:Horiz
:0 -> Xmin
:94 -> Xmax
:0 -> Ymin
:31 -> Ymax
:FonctOff
:AxesNAff
:EffDessin
:Input "MOT? ",Chaîne1 <-- 12 espaces
:Longueur(Chaîne1 -> dim(L1
:For(A,1,dim(L1
:sous-Chaîne(Chaîne1,A,1
:carChaîne("ABCDEFGHIJKLMONOPQRSTUVWXYZ",Rép
:47+Rép-2(Rép<4)+5int((Rép-4)/5->L1(A:End
:While 1
:EffEcr
:0 -> C
:For(A,1,dim(L1
:Output(3,A,"-
:If non(L1(A : Output(2,A,sous-Chaîne(Chaîne1,A,1
:If non(L1(A : C+1 -> C
:End
:If C = dim(L1 : Goto GG
:Output(4,5,"LETTRE?
:Repeat K<94 et K>40 et K [pas égal à] 44 et K [pas égal à] 45
:CodeTouche -> K
:End
:Q+1 -> Q
:EffVar C
:For(A,1,dim(L1
:If K=L1(A : Then
:0 -> L1(A
:C+1 -> C
:End
:End
:If non(C : Then
:Z+1 -> Z
:If Z=1 : Ligne(61,7.23,36,7.23
:If Z=2 : Ligne(36,7.23,36,26.87
:If Z=3 : Ligne(36,13.43,42,7.23
:If Z=4 : Ligne(36,26.87,49,26.87
:If Z=5 : Ligne(41,26.87,36,21.7
:If Z=6 : Ligne(49,22.73,49,26.87,
:If Z=7 : Cercle(49,20.67,2
:If Z=8 : Ligne(49,17.57,49,13.43
:If Z=9 : Ligne(52,10.33,49,13.43
;If Z=10 : Ligne(45,15.5,53,15.5
:If Z=10 : Goto MO
:End
:End
:Lbl MO
:EffEcr
:disp "T PENDU! LE MOT","ETAIT",Chaîne1
:Pause
:PleinEcr
:EffEcr
:Output(1,1," " <-- pas besoin du dernier guillemet
:Stop
:lbl GG
:EffEcr
:disp "BRAVO! TU AS","TROUVE LE MOT :",Chaîne1
:Output(4,1,"EN COUPS <-- 4 espaces
:Output(4,4,Q
:Pause
:EffEcr
:PleinEcr
:Output(1,1," " <-- pas besoin du dernier guillemet

----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes

Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr

Google_AdSense

momo30

Autorisation : Membre
Nb de messages : 54
Inscrit le : Mar 13 Déc 2011, 21:58

Posté le : Mer 14 Déc 2011, 0:31

Merci je te di si ya une faute

snap

Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17

Posté le : Mer 14 Déc 2011, 0:33

Wé parce que la ou je l'avais mis quelqu'un m'avait dit de rajouter une modif mais j'avais pas éditez donc la je l'ai mis et e pense que c'est au bon endroit^^

----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes

Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr

Google_AdSense

The K

Autorisation : Membre
Nb de messages : 878
Inscrit le : Sam 15 Oct 2011, 11:07

Posté le : Mer 14 Déc 2011, 13:49

Moi j'ai une question !
Plein écran et horiz ce sont des modes quand à l'affichage graphique/non graphique ?

Oh et sinon, j'ai trouvé un "0->C" ! Pas bon

Et "0->L1(A" ne peut pas se remplacer par EffVar L1(A ?

----------------------
La la la ...

Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Un problème de programmation ? Allez consulter ce tutoriel crée pour cela : TUTORIEL PROGRAMMATION
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO

Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind

Mes nouveaux programmes de calcul formel : FCarré FPrime

Projet base de données : ici mais abandonné. Trop de travail ...

snap

Autorisation : Membre
Nb de messages : 369
Inscrit le : Dim 13 Fév 2011, 14:17

Posté le : Mer 14 Déc 2011, 13:56

Si, normalement tout les 0 -> C sont bons :/ c'est lequel qui va pas?
Et pour L1(A je sais pas^^ essaie

----------------------
Commence un monopoly non graphique et compte bien le finir!
Lycée de l'escaut Valenciennes

Fan de reflets d'acide!
le meilleur jeu du monde
http://snap-le-terrible.minitroopers.fr

The K

Autorisation : Membre
Nb de messages : 878
Inscrit le : Sam 15 Oct 2011, 11:07

Posté le : Mer 14 Déc 2011, 14:02

Citer

:While 1
:EffEcr
:0 -> C
:For(A,1,dim(L1

Sinon le EffVar n'a pas l'air de marcher avec les listes ;(

----------------------
La la la ...

Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Un problème de programmation ? Allez consulter ce tutoriel crée pour cela : TUTORIEL PROGRAMMATION
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO

Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind

Mes nouveaux programmes de calcul formel : FCarré FPrime

Projet base de données : ici mais abandonné. Trop de travail ...

sandro

Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58

Posté le : Mer 14 Déc 2011, 15:34

EffVar marche pour effacer une liste, mais pas pour mettre 0 à un rand donné.

Sandro

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes

TOUT sur la TI-82/TI-82 STATS/TI-82 STATS.fr - Index -> Programmes -> Les programmes des internautes -> Code pour jeu

Flux RSS