[Septembre / Octobre 2010] Machine à sous

Page 3 sur 4 Précédent  1, 2, 3, 4  Suivant

Voir le sujet précédent Voir le sujet suivant Aller en bas

Re: [Septembre / Octobre 2010] Machine à sous

Message par kindermoumoute le Lun 18 Oct - 16:21

Euh.. je ne vous avait pas dit que je suis en train de faire un tuto?
Lien : [Vous devez être inscrit et connecté pour voir ce lien]
En bas du post de mon plan vous trouverez une première version hors ligne, donnez moi le plus de retour!

kindermoumoute
Or 4
Or 4

Sexe : Masculin
Age : 22
Messages : 797
Date d'inscription : 07/10/2010
Points Forum : 21
Points Concours : 1
Langages :
  • - TI-Basic Z80
  • - Axe Parser
Calculatrices :
  • - TI-83+

TI-83+


Revenir en haut Aller en bas

Re: [Septembre / Octobre 2010] Machine à sous

Message par Metallica le Lun 18 Oct - 17:50

Super tuto! J'en suis à "mon premier programme" c'est super bien expliquer mais il y a des questions vachement bizarre.
Ex:
l

:arrow: p
:arrow: iu
:arrow: i
:arrow: lm

_________________
[Vous devez être inscrit et connecté pour voir cette image]
[Vous devez être inscrit et connecté pour voir cette image]

Commencer Dropbox avec 500mo offert en étant parrainé !

Metallica
Or 4
Or 4

Sexe : Masculin
Age : 20
Messages : 926
Date d'inscription : 30/06/2010
Etudes : DUT Info
Points Forum : 17
Points Concours : 9
Langages :
  • - TI-Basic Z80
  • - Axe Parser
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83+ SE

TI-83+ SE


Revenir en haut Aller en bas

Re: [Septembre / Octobre 2010] Machine à sous

Message par kindermoumoute le Lun 18 Oct - 19:10

Merci ^^, pour ce qui est des QCM, cherchez pas à comprendre, j'ai mis des lettres pour pouvoir les éditer hors-ligne (un petit bug de zEditor), il y a bien des QCM dans certains chapitres, mais je ne me rappelle plus lesquelles (tu verra bien).

kindermoumoute
Or 4
Or 4

Sexe : Masculin
Age : 22
Messages : 797
Date d'inscription : 07/10/2010
Points Forum : 21
Points Concours : 1
Langages :
  • - TI-Basic Z80
  • - Axe Parser
Calculatrices :
  • - TI-83+

TI-83+


Revenir en haut Aller en bas

Re: [Septembre / Octobre 2010] Machine à sous

Message par Metallica le Mar 19 Oct - 8:14

Ok. Clin Oeil

_________________
[Vous devez être inscrit et connecté pour voir cette image]
[Vous devez être inscrit et connecté pour voir cette image]

Commencer Dropbox avec 500mo offert en étant parrainé !

Metallica
Or 4
Or 4

Sexe : Masculin
Age : 20
Messages : 926
Date d'inscription : 30/06/2010
Etudes : DUT Info
Points Forum : 17
Points Concours : 9
Langages :
  • - TI-Basic Z80
  • - Axe Parser
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83+ SE

TI-83+ SE


Revenir en haut Aller en bas

Re: [Septembre / Octobre 2010] Machine à sous

Message par kindermoumoute le Mer 27 Oct - 21:32

Plop,
J'ai un peu avancé mon schmilblik, petit screen :
[Vous devez être inscrit et connecté pour voir cette image]
Quand on atteint 10000, la vitesse augmente (après une mise à zero) :
[Vous devez être inscrit et connecté pour voir cette image]
(bon je changerais le temps de défilement c'est sur)

Mais le programme est loin d'être fini, donc je demande vos impressions, mais surtout vos remarques et conseils =D

kindermoumoute
Or 4
Or 4

Sexe : Masculin
Age : 22
Messages : 797
Date d'inscription : 07/10/2010
Points Forum : 21
Points Concours : 1
Langages :
  • - TI-Basic Z80
  • - Axe Parser
Calculatrices :
  • - TI-83+

TI-83+


Revenir en haut Aller en bas

Re: [Septembre / Octobre 2010] Machine à sous

Message par persalteas le Jeu 28 Oct - 8:45

encore deux jours...

mais il a la classe ton prog, j'ai rien a dire la dessus.

_________________
[Vous devez être inscrit et connecté pour voir cette image]

persalteas
Platinum 2
Platinum 2

Sexe : Masculin
Age : 21
Messages : 2068
Date d'inscription : 30/06/2010
Etudes : PACES (médecine)
Points Forum : 114
Points Concours : 10
Langages :
  • - TI-Basic Z80
  • - xLib
  • - Grammer
  • - TI-Basic Nspire
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83
  • - TI-83+
  • - TI-84+ SE
  • - TI-86
  • - TI-Nspire
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84 Pocket.fr


http://tiemulation.kegtux.org

Revenir en haut Aller en bas

Re: [Septembre / Octobre 2010] Machine à sous

Message par Alexis le Jeu 28 Oct - 11:33

Je rappel que tout comme le premier concours les programmes doivent être remis avant le 15 novembre par E-mail ou MP avec un lien Internet vers votre programme hébergé sur Mediafire par exemple.

_________________
L'administrateur du forum.

Salut Invité, tu as posté 11 messages sur le forum.

Mes projets:
[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

Alexis
Platinum 2
Platinum 2

Sexe : Masculin
Age : 23
Messages : 2320
Date d'inscription : 28/06/2010
Etudes : DUT Informatique
Points Forum : 40
Points Concours : 3
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - Axe Parser
Calculatrices :
  • - TI-Collège
  • - TI-82 Stats.fr
  • - TI-84+

TI-84+


http://espace-ti.e-monsite.com

Revenir en haut Aller en bas

Re: [Septembre / Octobre 2010] Machine à sous

Message par kindermoumoute le Jeu 28 Oct - 12:22

Pourquoi avant le 15 novembre?

kindermoumoute
Or 4
Or 4

Sexe : Masculin
Age : 22
Messages : 797
Date d'inscription : 07/10/2010
Points Forum : 21
Points Concours : 1
Langages :
  • - TI-Basic Z80
  • - Axe Parser
Calculatrices :
  • - TI-83+

TI-83+


Revenir en haut Aller en bas

Re: [Septembre / Octobre 2010] Machine à sous

Message par Metallica le Jeu 28 Oct - 15:46

Est-ce que tu as toujours le mien Alexis ?

_________________
[Vous devez être inscrit et connecté pour voir cette image]
[Vous devez être inscrit et connecté pour voir cette image]

Commencer Dropbox avec 500mo offert en étant parrainé !

Metallica
Or 4
Or 4

Sexe : Masculin
Age : 20
Messages : 926
Date d'inscription : 30/06/2010
Etudes : DUT Info
Points Forum : 17
Points Concours : 9
Langages :
  • - TI-Basic Z80
  • - Axe Parser
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83+ SE

TI-83+ SE


Revenir en haut Aller en bas

Re: [Septembre / Octobre 2010] Machine à sous

Message par Alexis le Jeu 28 Oct - 16:11

Metallica oui j'ai ton programme "CASINO83.8xp".
kindermoumoute car c'est un concours se déroulant pendant le mois de Septembre et Octobre et que je commencerais un nouveau dès que j'aurais reçu tous les programmes des participants. (Sauf si il m'en manque le 15 Novembre je fais quand même l'évaluation.)

_________________
L'administrateur du forum.

Salut Invité, tu as posté 11 messages sur le forum.

Mes projets:
[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

Alexis
Platinum 2
Platinum 2

Sexe : Masculin
Age : 23
Messages : 2320
Date d'inscription : 28/06/2010
Etudes : DUT Informatique
Points Forum : 40
Points Concours : 3
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - Axe Parser
Calculatrices :
  • - TI-Collège
  • - TI-82 Stats.fr
  • - TI-84+

TI-84+


http://espace-ti.e-monsite.com

Revenir en haut Aller en bas

Re: [Septembre / Octobre 2010] Machine à sous

Message par Metallica le Jeu 28 Oct - 16:14

Ok Clin Oeil

_________________
[Vous devez être inscrit et connecté pour voir cette image]
[Vous devez être inscrit et connecté pour voir cette image]

Commencer Dropbox avec 500mo offert en étant parrainé !

Metallica
Or 4
Or 4

Sexe : Masculin
Age : 20
Messages : 926
Date d'inscription : 30/06/2010
Etudes : DUT Info
Points Forum : 17
Points Concours : 9
Langages :
  • - TI-Basic Z80
  • - Axe Parser
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83+ SE

TI-83+ SE


Revenir en haut Aller en bas

Re: [Septembre / Octobre 2010] Machine à sous

Message par Alexis le Jeu 28 Oct - 16:16

Je l'ai précisé sur la première page si c'est ce que tu voulais. Clin Oeil

_________________
L'administrateur du forum.

Salut Invité, tu as posté 11 messages sur le forum.

Mes projets:
[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

Alexis
Platinum 2
Platinum 2

Sexe : Masculin
Age : 23
Messages : 2320
Date d'inscription : 28/06/2010
Etudes : DUT Informatique
Points Forum : 40
Points Concours : 3
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - Axe Parser
Calculatrices :
  • - TI-Collège
  • - TI-82 Stats.fr
  • - TI-84+

TI-84+


http://espace-ti.e-monsite.com

Revenir en haut Aller en bas

Re: [Septembre / Octobre 2010] Machine à sous

Message par Metallica le Jeu 28 Oct - 16:23

Ouais, c'était parce que moi j'ai plus mon programme. Après un RAM Clear ... :pale:

_________________
[Vous devez être inscrit et connecté pour voir cette image]
[Vous devez être inscrit et connecté pour voir cette image]

Commencer Dropbox avec 500mo offert en étant parrainé !

Metallica
Or 4
Or 4

Sexe : Masculin
Age : 20
Messages : 926
Date d'inscription : 30/06/2010
Etudes : DUT Info
Points Forum : 17
Points Concours : 9
Langages :
  • - TI-Basic Z80
  • - Axe Parser
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83+ SE

TI-83+ SE


Revenir en haut Aller en bas

Re: [Septembre / Octobre 2010] Machine à sous

Message par Alexis le Jeu 28 Oct - 16:48

Tu veux que je te le revoi ?

_________________
L'administrateur du forum.

Salut Invité, tu as posté 11 messages sur le forum.

Mes projets:
[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

Alexis
Platinum 2
Platinum 2

Sexe : Masculin
Age : 23
Messages : 2320
Date d'inscription : 28/06/2010
Etudes : DUT Informatique
Points Forum : 40
Points Concours : 3
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - Axe Parser
Calculatrices :
  • - TI-Collège
  • - TI-82 Stats.fr
  • - TI-84+

TI-84+


http://espace-ti.e-monsite.com

Revenir en haut Aller en bas

Re: [Septembre / Octobre 2010] Machine à sous

Message par Metallica le Jeu 28 Oct - 16:59

Oui je veux bien.

_________________
[Vous devez être inscrit et connecté pour voir cette image]
[Vous devez être inscrit et connecté pour voir cette image]

Commencer Dropbox avec 500mo offert en étant parrainé !

Metallica
Or 4
Or 4

Sexe : Masculin
Age : 20
Messages : 926
Date d'inscription : 30/06/2010
Etudes : DUT Info
Points Forum : 17
Points Concours : 9
Langages :
  • - TI-Basic Z80
  • - Axe Parser
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83+ SE

TI-83+ SE


Revenir en haut Aller en bas

Re: [Septembre / Octobre 2010] Machine à sous

Message par Alexis le Jeu 28 Oct - 17:19

Ok.

_________________
L'administrateur du forum.

Salut Invité, tu as posté 11 messages sur le forum.

Mes projets:
[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

Alexis
Platinum 2
Platinum 2

Sexe : Masculin
Age : 23
Messages : 2320
Date d'inscription : 28/06/2010
Etudes : DUT Informatique
Points Forum : 40
Points Concours : 3
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - Axe Parser
Calculatrices :
  • - TI-Collège
  • - TI-82 Stats.fr
  • - TI-84+

TI-84+


http://espace-ti.e-monsite.com

Revenir en haut Aller en bas

Re: [Septembre / Octobre 2010] Machine à sous

Message par Metallica le Ven 29 Oct - 7:03

Merci

_________________
[Vous devez être inscrit et connecté pour voir cette image]
[Vous devez être inscrit et connecté pour voir cette image]

Commencer Dropbox avec 500mo offert en étant parrainé !

Metallica
Or 4
Or 4

Sexe : Masculin
Age : 20
Messages : 926
Date d'inscription : 30/06/2010
Etudes : DUT Info
Points Forum : 17
Points Concours : 9
Langages :
  • - TI-Basic Z80
  • - Axe Parser
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83+ SE

TI-83+ SE


Revenir en haut Aller en bas

Re: [Septembre / Octobre 2010] Machine à sous

Message par Alexis le Ven 29 Oct - 8:42

De rien.

_________________
L'administrateur du forum.

Salut Invité, tu as posté 11 messages sur le forum.

Mes projets:
[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

Alexis
Platinum 2
Platinum 2

Sexe : Masculin
Age : 23
Messages : 2320
Date d'inscription : 28/06/2010
Etudes : DUT Informatique
Points Forum : 40
Points Concours : 3
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - Axe Parser
Calculatrices :
  • - TI-Collège
  • - TI-82 Stats.fr
  • - TI-84+

TI-84+


http://espace-ti.e-monsite.com

Revenir en haut Aller en bas

Re: [Septembre / Octobre 2010] Machine à sous

Message par kindermoumoute le Ven 29 Oct - 10:26

Metallica a écrit:Ouais, c'était parce que moi j'ai plus mon programme. Après un RAM Clear ... :pale:

Alexis a écrit:Tu veux que je te le revoi ?

Metallica a écrit:Oui je veux bien.

Alexis a écrit:Ok.

Metallica a écrit:Merci

Alexis a écrit:De rien.

Je veut bien croire qu'il n'y a pas beaucoup de gens sur ce forum, mais ça.. c'est du beau flood :D

PS : il manquerait plus que :

Metallica a écrit:Non mais j'insiste.

Alexis a écrit:Y'a pas de quoi.

Metallica a écrit:Cacahuète

Alexis a écrit:moule

etc.

Je suis pas modo, mais ce genre de truc c'est par MP que l'on échange :suspect:

kindermoumoute
Or 4
Or 4

Sexe : Masculin
Age : 22
Messages : 797
Date d'inscription : 07/10/2010
Points Forum : 21
Points Concours : 1
Langages :
  • - TI-Basic Z80
  • - Axe Parser
Calculatrices :
  • - TI-83+

TI-83+


Revenir en haut Aller en bas

Re: [Septembre / Octobre 2010] Machine à sous

Message par Alexis le Ven 29 Oct - 11:08

Est-ce une demande d'entrée dans la modération ?

_________________
L'administrateur du forum.

Salut Invité, tu as posté 11 messages sur le forum.

Mes projets:
[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

[Vous devez être inscrit et connecté pour voir cette image]

Alexis
Platinum 2
Platinum 2

Sexe : Masculin
Age : 23
Messages : 2320
Date d'inscription : 28/06/2010
Etudes : DUT Informatique
Points Forum : 40
Points Concours : 3
Langages :
  • - TI-Basic Z80
  • - ASM TI-82 Stats / TI-83
  • - Axe Parser
Calculatrices :
  • - TI-Collège
  • - TI-82 Stats.fr
  • - TI-84+

TI-84+


http://espace-ti.e-monsite.com

Revenir en haut Aller en bas

Re: [Septembre / Octobre 2010] Machine à sous

Message par kindermoumoute le Ven 29 Oct - 11:17

O_o surement pas, c'est juste qu'après ma boite mail est saturée de 'nouveau message dans le sujet machine à sous'.

kindermoumoute
Or 4
Or 4

Sexe : Masculin
Age : 22
Messages : 797
Date d'inscription : 07/10/2010
Points Forum : 21
Points Concours : 1
Langages :
  • - TI-Basic Z80
  • - Axe Parser
Calculatrices :
  • - TI-83+

TI-83+


Revenir en haut Aller en bas

Re: [Septembre / Octobre 2010] Machine à sous

Message par Metallica le Ven 29 Oct - 11:40

Tu peux désactiver les mails après des réponses dans les sujets où tu as posté.

_________________
[Vous devez être inscrit et connecté pour voir cette image]
[Vous devez être inscrit et connecté pour voir cette image]

Commencer Dropbox avec 500mo offert en étant parrainé !

Metallica
Or 4
Or 4

Sexe : Masculin
Age : 20
Messages : 926
Date d'inscription : 30/06/2010
Etudes : DUT Info
Points Forum : 17
Points Concours : 9
Langages :
  • - TI-Basic Z80
  • - Axe Parser
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83+ SE

TI-83+ SE


Revenir en haut Aller en bas

Re: [Septembre / Octobre 2010] Machine à sous

Message par kindermoumoute le Mer 10 Nov - 21:48

Désolé je pourrais vraiment pas le finir, si un jour je le finis ça pourrait être intéressant (pour vous) de voir son fonctionnement.
Le donc code TO DO (version normal) :
Code:
:.MACHINE
:Fix 5
:[Pic1]→Pic8
:[Pic2]→Pic9
:[1C1C3C387870F0E0→Pic0
:[00F8ACAAAAAAACF8→Pic1
:[00]
:[2030284C72929C60]
:[00]
:[FF81F912244890E0]
:[00]
:[314E46223179E6C0]
:[00]
:[00F8ACAAAAAAACF8
:[7CFCFEFAFAFAFCF8→Pic2
:[00]
:[2030284C7EFEFC60]
:[00]
:[FFFFFF1E3C78F0E0]
:[00]
:[317E7E3E3E7EE6C0]
:[00]
:[7CFCFEFAFAFAFCF8]
:"vPOINT"→Str1
:0→I→J→K→T
:101→Q
:
:GetCalc(Str1)→P
:If P
:   Goto GRA
:End
:UnArchive Str1
:GetCalc(Str1)→P
:If P
:   Goto GRA
:End
:GetCalc(Str1,1)→P
:conj(P,S,1)
:!If S
:   50→S
:End
:
:Lbl GRA
:Pic9→DispGraph
:StoreGDB
:StorePic
:For(Θ,1,5)
:   Pic8→DispGraph
:   StoreGDB
:   If Θ=1 or (Θ=5
:      sub(LEV)
:End
:If Θ=2 or (Θ=4
:   For(Z,5,8)
:   Line(79,24+Z,90,24+Z)
:End
:Circle(92,24+6,3)
:End
:If Θ=3
:   sub(LEV)
:End
:DispGraph
:Pause 100
:End
:
:Text(26,3,"GOOD LUCK")
:0→X→M→N→O→A→B→C
:!If S
:   50→S
:Text(1,45,"NOOB
:ElseIf S<100
:   10→T
:ElseIf S<1000
:   100→T
:ElseIf S<10000
:   1000→T
:Else
:50→S
:!If Q=1
:   Q-10→Q
:Text(0,28,"LVL
:Text(0,36,(Q/10)►Dec
:End
:End
:
:Repeat getKey(15)
:   sub(A
:   If getKey
:      sub(GET)
:End
:If X=3
:   sub(INI)
:End
:End
:GetCalc(Str1,1)→P
:conj(S,P,1)
:ClrHome
:Archive Str1
:Fix 4
:Return
:
:Lbl A
:sub(PIC)
:Pause Q
:!If M=2
:   I+1→I
:If I=36
:   0→I
:End
:End
:!If N=2
:   J+1→J
:If J=36
:   0→J
:End
:End
:!If O=2
:   K+1→K
:If K=36
:   0→K
:End
:End
:Return
:
:Lbl PIC
:sub(CHG)
:Text(0,0,S►Dec
:Text(0,13,T►Dec
:DispGraphr
:sub(CHG)
:Return
:
:Lbl CHG
:Pt-Change(26,24,I+Pic1)
:Pt-Change(26,24,I+Pic2)r
:Pt-Change(43,24,J+Pic1)
:Pt-Change(43,24,J+Pic2)r
:Pt-Change(60,24,K+Pic1)
:Pt-Change(60,24,K+Pic2)r
:Return
:
:Lbl GET
:If (M=0) and getKey(34)
:   sub(M1)
:Repeat (I^9)=0
:   sub(A
:End
:sub(X1)
:I/9→A
:sub(M1)
:End
:If (N=0) and getKey(26)
:   sub(N1)
:Repeat (J^9)=0
:   sub(A
:End
:sub(X1)
:J/9→B
:sub(N1)
:End
:If (O=0) and getKey(18)
:   sub(O1)
:Repeat (K^9)=0
:   sub(A
:End
:sub(X1)
:K/9→C
:sub(O1)
:End
:Return
:
:Lbl X1
:X+1→X
:Return
:
:Lbl M1
:M+1→M
:Return
:
:Lbl N1
:N+1→N
:Return
:
:Lbl O1
:O+1→O
:Return
:
:Lbl INI
:If A=B and (C=B
:   Text(24,44,"WIN")
:!If A or (A=4)
:   4*T→W
:ElseIf A=1
:   2*T→W
:ElseIf A=2
:   6*T→W
:Else
:8*T→W
:End
:Else
:S-T→S
:End
:Repeat (getKey(9) or getKey(15)) and (W=0)
:   If W
:      W-1→W
:   S+1→S
:End
:sub(PIC)
:End
:sub(CLB)
:Goto GRA
:
:Lbl CLB
:ref(24,44,46,15)
:rref(24,44,46,15)
:Return
:
:Lbl CLH
:ref(26,3,42,11)
:rref(26,3,42,11)
:Return
:
:Lbl CL1
:ref(0,0,18,12)
:rref(0,0,18,12)
:Return
:
:Lbl CL2
:ref(0,13,18,14)
:rref(0,13,18,14)
:Return
:
:Lbl CL3
:ref(0,28,18,16)
:rref(0,28,18,16)
:Return
:
:Lbl CL4
:ref(0,45,18,19)
:rref(0,45,18,19)
:Return
:
:Lbl LE1
:If Θ=1 or (Θ=5
:   Pt-On(79+Z,24-R,Pic0)
:Circle(79+13,24-14,3)
:ElseIf Θ=3
:   Pt-On(79+Z,24+R+8,ShadeϜ(Pic0))
:Circle(79+13,24+14+8+8,3)
:End
:Return
:
:Lbl LEV
:0→R
:For(Z,0,6)
:   sub(LE1)
:   R+6→R
:   Z+2→Z
:End

Et version TI-Editor :
Code:
:.MACHINE
:Fix 5
:[Pic1]→Pic8
:[Pic2]→Pic9
:[1C1C3C387870F0E0→Pic0
:[00F8ACAAAAAAACF8→Pic1
:[00]
:[2030284C72929C60]
:[00]
:[FF81F912244890E0]
:[00]
:[314E46223179E6C0]
:[00]
:[00F8ACAAAAAAACF8
:[7CFCFEFAFAFAFCF8→Pic2
:[00]
:[2030284C7EFEFC60]
:[00]
:[FFFFFF1E3C78F0E0]
:[00]
:[317E7E3E3E7EE6C0]
:[00]
:[7CFCFEFAFAFAFCF8]
:"<fonct>v</fonct>POINT"→Str1
:0→I→J→K→T
:101→Q
:
:GetCalc(Str1)→P
:If P
:Goto GRA
:End
:UnArchive Str1
:GetCalc(Str1)→P
:If P
:Goto GRA
:End
:GetCalc(Str1,1)→P
:conj(P,S,1)
:!If S
:50→S
:End
:
:Lbl GRA
:Pic9→DispGraph
:StoreGDB
:StorePic
:For(Θ,1,5)
:Pic8→DispGraph
:StoreGDB
:If Θ=1 or (Θ=5
:sub(LEV)
:End
:If Θ=2 or (Θ=4
:For(Z,5,8)
:Line(79,24+Z,90,24+Z)
:End
:Circle(92,24+6,3)
:End
:If Θ=3
:sub(LEV)
:End
:DispGraph
:Pause 100
:End
:
:Text(26,3,"GOOD LUCK")
:0→X→M→N→O→A→B→C
:!If S
:50→S
:Text(1,45,"NOOB
:ElseIf S<100
:10→T
:ElseIf S<1000
:100→T
:ElseIf S<10000
:1000→T
:Else
:50→S
:!If Q=1
:Q-10→Q
:Text(0,28,"LVL
:Text(0,36,(Q/10)►Dec
:End
:End
:
:Repeat getKey(15)
:sub(A
:If getKey
:sub(GET)
:End
:If X=3
:sub(INI)
:End
:End
:GetCalc(Str1,1)→P
:conj(S,P,1)
:ClrHome
:Archive Str1
:Fix 4
:Return
:
:Lbl A
:sub(PIC)
:Pause Q
:!If M=2
:I+1→I
:If I=36
:0→I
:End
:End
:!If N=2
:J+1→J
:If J=36
:0→J
:End
:End
:!If O=2
:K+1→K
:If K=36
:0→K
:End
:End
:Return
:
:Lbl PIC
:sub(CHG)
:Text(0,0,S►Dec
:Text(0,13,T►Dec
:DispGraph<sup>r</sup>
:sub(CHG)
:Return
:
:Lbl CHG
:Pt-Change(26,24,I+Pic1)
:Pt-Change(26,24,I+Pic2)<sup>r</sup>
:Pt-Change(43,24,J+Pic1)
:Pt-Change(43,24,J+Pic2)<sup>r</sup>
:Pt-Change(60,24,K+Pic1)
:Pt-Change(60,24,K+Pic2)<sup>r</sup>
:Return
:
:Lbl GET
:If (M=0) and getKey(34)
:sub(M1)
:Repeat (I^9)=0
:sub(A
:End
:sub(X1)
:I/9→A
:sub(M1)
:End
:If (N=0) and getKey(26)
:sub(N1)
:Repeat (J^9)=0
:sub(A
:End
:sub(X1)
:J/9→B
:sub(N1)
:End
:If (O=0) and getKey(18)
:sub(O1)
:Repeat (K^9)=0
:sub(A
:End
:sub(X1)
:K/9→C
:sub(O1)
:End
:Return
:
:Lbl X1
:X+1→X
:Return
:
:Lbl M1
:M+1→M
:Return
:
:Lbl N1
:N+1→N
:Return
:
:Lbl O1
:O+1→O
:Return
:
:Lbl INI
:If A=B and (C=B
:Text(24,44,"WIN")
:!If A or (A=4)
:4*T→W
:ElseIf A=1
:2*T→W
:ElseIf A=2
:6*T→W
:Else
:8*T→W
:End
:Else
:S-T→S
:End
:Repeat (getKey(9) or getKey(15)) and (W=0)
:If W
:W-1→W
:S+1→S
:End
:sub(PIC)
:End
:sub(CLB)
:Goto GRA
:
:Lbl CLB
:ref(24,44,46,15)
:rref(24,44,46,15)
:Return
:
:Lbl CLH
:ref(26,3,42,11)
:rref(26,3,42,11)
:Return
:
:Lbl CL1
:ref(0,0,18,12)
:rref(0,0,18,12)
:Return
:
:Lbl CL2
:ref(0,13,18,14)
:rref(0,13,18,14)
:Return
:
:Lbl CL3
:ref(0,28,18,16)
:rref(0,28,18,16)
:Return
:
:Lbl CL4
:ref(0,45,18,19)
:rref(0,45,18,19)
:Return
:
:Lbl LE1
:If Θ=1 or (Θ=5
:Pt-On(79+Z,24-R,Pic0)
:Circle(79+13,24-14,3)
:ElseIf Θ=3
:Pt-On(79+Z,24+R+8,ShadeϜ(Pic0))
:Circle(79+13,24+14+8+8,3)
:End
:Return
:
:Lbl LEV
:0→R
:For(Z,0,6)
:sub(LE1)
:R+6→R
:Z+2→Z
:End

kindermoumoute
Or 4
Or 4

Sexe : Masculin
Age : 22
Messages : 797
Date d'inscription : 07/10/2010
Points Forum : 21
Points Concours : 1
Langages :
  • - TI-Basic Z80
  • - Axe Parser
Calculatrices :
  • - TI-83+

TI-83+


Revenir en haut Aller en bas

Re: [Septembre / Octobre 2010] Machine à sous

Message par Metallica le Jeu 11 Nov - 9:02

Maintenant, il ne manque plus que le programme d'harven mais nous ne savons pas où il en est.

_________________
[Vous devez être inscrit et connecté pour voir cette image]
[Vous devez être inscrit et connecté pour voir cette image]

Commencer Dropbox avec 500mo offert en étant parrainé !

Metallica
Or 4
Or 4

Sexe : Masculin
Age : 20
Messages : 926
Date d'inscription : 30/06/2010
Etudes : DUT Info
Points Forum : 17
Points Concours : 9
Langages :
  • - TI-Basic Z80
  • - Axe Parser
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83+ SE

TI-83+ SE


Revenir en haut Aller en bas

Re: [Septembre / Octobre 2010] Machine à sous

Message par persalteas le Jeu 11 Nov - 14:43

je lui demande par mail.

_________________
[Vous devez être inscrit et connecté pour voir cette image]

persalteas
Platinum 2
Platinum 2

Sexe : Masculin
Age : 21
Messages : 2068
Date d'inscription : 30/06/2010
Etudes : PACES (médecine)
Points Forum : 114
Points Concours : 10
Langages :
  • - TI-Basic Z80
  • - xLib
  • - Grammer
  • - TI-Basic Nspire
Calculatrices :
  • - TI-82 Stats.fr
  • - TI-83
  • - TI-83+
  • - TI-84+ SE
  • - TI-86
  • - TI-Nspire
  • - TI-Nspire CX
  • - Casio Collège
  • - Casio Graph

TI-84 Pocket.fr


http://tiemulation.kegtux.org

Revenir en haut Aller en bas

Re: [Septembre / Octobre 2010] Machine à sous

Message par Contenu sponsorisé Aujourd'hui à 14:06


Contenu sponsorisé


Revenir en haut Aller en bas

Page 3 sur 4 Précédent  1, 2, 3, 4  Suivant

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum