[Septembre / Octobre 2010] Machine à sous

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!

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

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).

Ok.

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

encore deux jours...

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

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.

Pourquoi avant le 15 novembre?

Est-ce que tu as toujours le mien Alexis ?

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.)

Ok

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

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

Tu veux que je te le revoi ?

Oui je veux bien.

Ok.

Merci

De rien.

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:

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

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

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

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

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

je lui demande par mail.