Autorisation : Membre
Nb de messages : 9
Inscrit le : Mar 01 Nov 2011, 2:35
Posté le : Ven 11 Nov 2011, 2:23
Si vous voulez unz machine à sous rapide a tapper faites demi-tour!
Pour les plus courageux bienvenue.
vous me direz "Une machine à sous? Encore?"
je sais il existe plein de programme machine a sous mais celui-la est au depart un defi entre amis ou je devais créer un MAS a sauvegarde.
NB: Ce programme marche aussi sur TI-83+ (voir autre) en remplaceant les
Code
lMAS(I)
par
Code
lMAS(1)
Pour commencer, crée une liste MAS.
Puis copier se lourd programme (1305ko) avec 50% de lignes pour la déco.
Code
EffEcr
lMAS(I)->S
Output(3,7,"MAS
Output(8,3,"SAXOTUS (C)
Lbl S
Output(5,2,"APPUIEZ SUR 5
For(T,1,6
codeTouche->@ @ pour Théta
If @=83:Goto M
69!
End
Output(5,2," <-8-> 8 espaces
For(T,1,6
codeTouche->@
If @=83:Goto M
69!
End
Goto S
Lbl M
EffEcr
Menu(" MACHINE A SOUS!","COMMENCER",1,"SCORE",2,"EFFACER",3,"QUITTER",4
Lbl 2
EffEcr
Output(4,2,"Score:
Output(4,9,S
For(T,1,10
69!
End
codeTouche->O /!\ Ne pas confondre 0 et O /!\
Goto M
Lbl 3
100->S
EffListe lMAS
100->lMAS(I
Goto M
Lbl 4
Stop
Lbl 1
10->M
lMAS(I)->S
Output(4,3,"0 0 0
Output(2,15,"O
Output(3,15,"!
Output(4,15,"=
Output(7,3,"SOUS:
Output(8,3,"MISE:
Lbl 11
Output(7,9," <-8->
Output(8,9," <-8->
Output(7,9,S
Output(8,9'M
codeTouche->@
If @=25 et M<S:M+10->M
If @=34 et M>10:M-10->M
If @=26 et M<S:S->M
If @=24 et M>10:10->M
If @=105:Goto 12
69!
Goto 11
Lbl 12
Output(2,15,"_ _ symbolise un espace simple
Output(3,15,"_
Output(5,15,"!
Output(6,15,"O
Output(7,9," <-8->
Output(7,9,S-M
If O=72
Then
1->A
1->B
1->C
0->O
Else
If O=54:Goto 13
entAléat(1,3)->A
entAléat(1,3)->B
entAléat(1,3)->C
End
For(T,1,10
Output(4,3,"! ! !
69!
Output(4,3,"0 0 0
69!
End
If A=1:Output(4,3,"7
If A=2:Output(4,3,"!
If A=3:Output(4,3,"0
For(T,1,10
Output(4,5,"! !
69!
Output(4,5,"0 0
69!
End
If B=1:Output(4,5,"7
If B=2:Output(4,5,"!
If B=3:Output(4,5,"0
For(T,1,10
Output(4,7,"!
69!
Output(4,7,"0
69!
End
If C=1:Output(4,7,"7
If C=2:Output(4,7,"!
If C=3:Output(4,7,"0
For(T,1,5
69!
End
If A=1 et B=1 et C=1
Then
M*2+S-M->S
EffEcr
Output(4,5,"J
69!
Output(4,6,"A
69!
Output(4,7,"C
69!
Output(4,8,"K
69!
Output(4,9,"P
69!
Output(4,10,"O
69!
Output(4,11,"T
For(T,1,5
69!
End
Output(5,6,"+
Output(5,7,S
For(T,1,10
69!
End
Else
If A=2 et B=2 et C=2
Then
M*1.5+S-M->S
EffEcr
Output(5,6,"+
Output(5,6,S
For(T,1,10
69!
End
Else
If A=2 ou B=2 ou C=2
Then
Goto 12
Else
S-M->S
End
End
End
For(T,1,3
69!
End
If S=<0:Goto 13 =< inférieur ou égal
EffListe lMAS
S->lMAS(I
Goto M
Lbl 13
69!
EffEcr
Output(4,7,"G
69!
Output(4,8,"A
69!
Output(4,9,"M
69!
Output(4,10,"E
69!
Output(5,7,"O
69!
Output(5,8,"V
69!
Output(5,9,"E
69!
Output(5,10,"R
For(T,1,10
69!
End
0->O
Goto 3
Quel programme de fou !!!
pour choisir la mise les 4 fleches sont utile!
il y a aussi 2 code de triche. je vous laisse les chercher et si vous trouvez merci de ne pas le dire!
chances: (aproximatif)
1/9 jackpot (gagne la mise)
1/9 demi-mise
3/9 relance sans perdre ni gagner
4/9 de perdre
Bonne chance pour recopier!
---------------------- Humm...
Interresant tout sa!
PS: j'ai une TI-82 stats.fr
Autorisation : Membre
Nb de messages : 22
Inscrit le : Jeu 10 Nov 2011, 13:12
Posté le : Ven 11 Nov 2011, 11:54
tu devrais faire une version allegee pour que plus de monde puisse tester car taper 1300 octets pour une machine a sous ...
---------------------- -----------------------------------
&amp;amp;quot;on monte plus vite un escalier fait pour descendre que si on descend un escalier fait pour monter...&amp;amp;quot;
&amp;amp;quot;si ton tonton thon tond ton tonton thon,ton tonton tondu sera...&amp;amp;quot; http://www.chucknorrisfacts.fr/:LE site qu'il faut avoir vu dans sa vie
Autorisation : Membre
Nb de messages : 364
Inscrit le : Dim 13 Fév 2011, 14:17
Posté le : Ven 11 Nov 2011, 12:46
qualques petits truc pour racourcir ton programme.
Code
EffEcr
69 -> D <-- tu marque beaucoup de 69! alors autant prendre une variable sa te raccourci un octet à chaque fois ;)
lMAS(I)->S
Output(3,7,"MAS
Output(8,3,"SAXOTUS (C)
Lbl S
Output(5,2,"APPUIEZ SUR 5
For(T,1,6
codeTouche->@ @ pour Théta
If @=83:Goto M
D!
End
Output(5,2," <-8-> 8 espaces
For(T,1,6
codeTouche->@
If @=83:Goto M
D!
End
Goto S
Lbl M
EffEcr
Menu(" MACHINE A SOUS!","COMMENCER",1,"SCORE",2,"EFFACER",3,"QUITTER",4
Lbl 2
EffEcr
Output(4,2,"Score:
Output(4,9,S
For(T,1,10
D!
End
codeTouche->O /!\ Ne pas confondre 0 et O /!\
Goto M
Lbl 3
100->S
EffListe lMAS
100->lMAS(I
Goto M
Lbl 4
Stop
Lbl 1
10->M
lMAS(I->S <-- 1 octet
Output(4,3,"0 0 0
Output(2,15,"O
Output(3,15,"!
Output(4,15,"=
Output(7,3,"SOUS:
Output(8,3,"MISE:
Repeat @=105 <-- boucle qui te fait economiser plusieurs octets
Output(7,9," <-8->
Output(8,9," <-8->
Output(7,9,S
Output(8,9'M
codeTouche->@
Max(10,min(S,M+10(@=25)-10(@=34 -> M <-- essaie sa et dit moi si sa marche
If @=26 et M<S:S->M
If @=24 et M>10:10->M
D!
End
Lbl 12
Output(2,15,"_ _ symbolise un espace simple
Output(3,15,"_
Output(5,15,"!
Output(6,15,"O
Output(7,9," <-8->
Output(7,9,S-M
If O=72
Then
1->A
1->B
1->C
Effvar O <-- 1 octet
Else
If O=54:Goto 13
entAléat(1,3->A <-- 3 lignes = 3 octets
entAléat(1,3->B
entAléat(1,3->C
End
For(T,1,10
Output(4,3,"! ! !
D!
Output(4,3,"0 0 0
D!
End
If A=1:Output(4,3,"7
If A=2:Output(4,3,"!
If A=3:Output(4,3,"0
For(T,1,10
Output(4,5,"! !
D!
Output(4,5,"0 0
D!
End
If B=1:Output(4,5,"7
If B=2:Output(4,5,"!
If B=3:Output(4,5,"0
For(T,1,10
Output(4,7,"!
D!
Output(4,7,"0
D!
End
If C=1:Output(4,7,"7
If C=2:Output(4,7,"!
If C=3:Output(4,7,"0
For(T,1,5
D!
End
If ABC=1 <-- au moins 5 octets
Then
2M+S-M->S <-- 1 octet
EffEcr
Output(4,5,"J
D!
Output(4,6,"A
D!
Output(4,7,"C
D!
Output(4,8,"K
D!
Output(4,9,"P
D!
Output(4,10,"O
D!
Output(4,11,"T
For(T,1,5
D!
End
Output(5,6,"+
Output(5,7,S
For(T,1,10
D!
End
Else
If AB=4 et BC=4 <-- quelques octets
Then
.5M+S-M->S <-- 2 octets
EffEcr
Output(5,6,"+
Output(5,6,S
For(T,1,10
D!
End
Else
If A=2 ou B=2 ou C=2
Then
Goto 12
Else
S-M->S
End
End
End
For(T,1,3
D!
End
If S=<0:Goto 13 =< inférieur ou égal
EffListe lMAS <-- une question : pourquoi le Effliste?? ET pourquoi lMAS(I) ?
Autorisation : Membre
Nb de messages : 9
Inscrit le : Mar 01 Nov 2011, 2:35
Posté le : Sam 12 Nov 2011, 0:52
Merci a toi snap!
pour la commande
Code
max(10,min(S,M+10(@=25)-10(@=34->M
marche bien
pour répondre a tes questions,
le
Code
EffList lMas
car comme sont nom l'indique MAS et un liste. les donnée y sont stocké et si elle ne sont pas effacer je me demande bien se qui peux se passer.
et ppourquoi
Code
lMAS(I)
Car sinon on ne peut sortir ou stocker dans lMAS (du moins c'est ce que j'ai appris)
sinon je ne connais pas la commande max(),min(),... peut tu me l'expliquer stp
tapenade:
ce programme et a la basse un defi entre amis pour avoir une "tres" belle Machine à sous avec enregistrement du porte-monnaie.
le reduir ne m'interesse pas et si qqn veut une machine a sous courte a tapper qui prend pas trop de place, il a cas regarder sur le fofo il y en a.
---------------------- Humm...
Interresant tout sa!
PS: j'ai une TI-82 stats.fr
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 12 Nov 2011, 2:10
max(A,B) donne le maximum entre A et B. Ne marche que pour deux valeurs.
max({A,B,C}) donne le maximum des termes de la liste. On peut utiliser les liste L1 L2 lMAS et le reste. La longueur de la liste n'a pas d'importance.
max(L1,L2) les termes de même position sont chacun comparés et chaque maximum est renvoyé dans une liste résultat. Par exemple max({0,1,1},{3,0,2})={3,1,2}
Les listes doivent avoir la même taille.
min( fonctionne pareil à max(.
---------------------- ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)
"111111GAME -> Chaine1
For (K,7,10
Output (4,K,sous-chaîne Chaine1,K,1
69!
End
Et par le même procédé, d'autres morceaux aussi.
Mais j'ai quand même quelques doutes sur son fonctionnement ... je ne sais pas si ça marche super bien. EN théorie, oui (du moins dans la mienne), mais dans la pratique je sais pas
---------------------- La la la ...
Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO
