Portail
Rechercher
Connexion
Chatbox externe
Derniers sujets
Partenaires
| TI-Planet | Espace-TI : Forum |
|
|
|
Faire un don à Tout-82...
Où va cet argent ?
Membres donateurs:- Persalteas (10€)
- Wistaro (5€)
- jo2geek (22€)
Les posteurs les plus actifs du mois
| Aucun utilisateur |
Cookie Clicker
4 participants
Page 1 sur 1
Cookie Clicker
par grmycaire Dim 4 Jan 2015 - 12:46
bonjour à tous, voici un cookie clicker en ti-basic!!
screen:
Téléchargement
n'hesitez pas à me faire part de vos avis/conseils.
à la prochaine
screen:
Téléchargement
- COOKIES:
- Code:
FnOff
ClrDraw
ClrHome
If W=1:Then
Goto 0
Else
ClrHome
2→U
Repeat getKey=45
Output(6,5,"V 1.2.3
Output(1,1,"+*+*+*+*+*+*+*+*
Output(8,1,"*+*+*+*+*+*+*+*+
Output(U,1,"*
Output(U,16,"*
Output(U-1,1," "
Output(U-1,16," "
If U=8:1→U
U+1→U
Output(3,5,"COOKIES
Output(4,5,"CLICKER
Output(1,1,"*+*+*+*+*+*+*+*+
Output(8,1,"+*+*+*+*+*+*+*+*
For(F,0,30
End
End
End
Lbl 0
1→W
ClrHome
Menu("T COOKIES","CONTINUER",1,"SHOP",3,"STATS",4,"AIDE",A,"",0,"NOUVELLE PARTI",2,"QUITTER",Q
Lbl 2
ClrHome
Menu("ES TU SUR?","NON",0,"OUI",NN
Lbl NN
{0,1,0}→⌊COK
{0,200,0,0,0,0,0,0,0,0,0,0,0,0,0}→⌊SHOP
Goto 0
Lbl 1
ClrHome
Output(1,1,"X**************X
Output(8,1,"X**************X
For(A,2,7
Output(A,1,"*
Output(A,16,"*
End
Repeat K=45
Output(4,3,int(⌊COK(1
Output(7,4,"CC:
Output(7,7,⌊COK(2
Output(2,4,"AC:
Output(2,7,⌊COK(3
getKey→K
If K≥1:⌊COK(1)+⌊COK(2→⌊COK(1
⌊COK(1)+⌊COK(3→⌊COK(1
End
Goto 0
Lbl 3
ClrHome
prgmθCOOKIES
Goto QQ
Lbl 4
ClrHome
Output(1,1,"COOKIES:
Output(2,1,int(⌊COK(1
Output(4,1,"COOKIE PAR CLICK
Output(5,1,⌊COK(2
Output(7,1,"AUTO CLICK:
Output(8,1,⌊COK(3
Pause
ClrHome
Output(1,1,"GRAND MERE:
Output(1,12,⌊SHOP(3
Output(3,1,"ESCLAVES:
Output(3,10,⌊SHOP(4
Output(5,1,"RESTAURANTS:
Output(5,13,⌊SHOP(5
Pause
If ⌊SHOP(1)<1:Goto 0
Output(7,1,"LABORATOIRES:
Output(7,14,⌊SHOP(6
Pause
ClrHome
Output(1,1,"MINES:
Output(1,7,⌊SHOP(7
Output(3,1,"ILES:
Output(3,6,⌊SHOP(8
Output(5,1,"CHINES:
Output(5,8,⌊SHOP(9
Output(7,1,"TERRES:
Output(7,8,⌊SHOP(10
Pause
If ⌊SHOP(1)<2
Goto 0
ClrHome
Output(1,1,"LUNES:
Output(1,7,⌊SHOP(11
Output(3,1,"MARS:
Output(3,6,⌊SHOP(12
Output(5,1,"SYSTEME SOL:
Output(5,13,⌊SHOP(13
Output(7,1,"GALAXIES:
Output(7,10,⌊SHOP(14
Pause
ClrHome
Output(4,2,"TROUS NOIRS:
Output(4,14,⌊SHOP(15
Pause
Goto 0
Lbl A
0→Xmin
94→Xmax
0→Ymin
62→Ymax
AxesOff
ClrDraw
Text(0,0,"CC:COOKIES PAR CLIQUES
Text(6,0,"AC:AUTO CLIQUE
Text(12,0,"GRAND MERE:PRODUIT 0.1 COO
Text(18,0,"CLICK*3:3* PLUS DE COOKIE
Text(24,0,"EN UN CLIQUE
Text(30,0,"ESLAVE*10:PRODUIT 1 COO
Text(36,0,"ESCLAVE*100:PRODUIT 11 CO
Text(42,0,"RESTAURANT:PRODUIT 80 CO
Text(48,0,"LABORATOIRE:PRODUIT 500 C
Text(54,0,"MINE:PRODUIT 6300 COOKIES
Pause
ClrDraw
Text(0,0,"ILE:PRODUIT 11500 COOKIES
Text(6,0,"CHINE:PRODUIT 50000 COOKI
Text(12,0,"LA TERRE:PRODUIT 550 000 C
Text(18,0,"LUNE:PRODUIT 800 000 CO
Text(24,0,"MARS:PRODUIT 3 500 000 CO
Text(30,0,"SYSTEME SOLAIRE:PRODUIT
Text(36,0,"35 000 000
Text(42,0,"GALAXIE:PROD 95 000 000
Pause
Goto 0
Lbl Q
0→W
ClrHome
- ΘCOOKIES:
- Code:
Lbl 0
0→θ
ClrHome
Menu("SHOP","GRAND MERE",1,"CLICK*3",2,"ESCLAVE*10",3,"ESCLAVE*100",4,"RESTAURANT",5,"SUIVANT",S2,"QUITTER",QQ
Lbl S2
If ⌊SHOP(1)<1:Then
ClrHome
Output(1,1,"DEVEROUILLER
Output(2,1,"POUR 750 000 ?
Pause
Menu("DEVEROUILLER?","NON",0,"OUI",X1
Lbl X1
If ⌊COK(1)≥750000:Then
⌊COK(1)-750000→⌊COK(1
1→⌊SHOP(1
Else
ClrHome
Output(1,1,"PAS ASSEZ
Pause
Goto 0
End
End
ClrHome
Menu("SHOP(2)","LABORATOIRE",6,"MINE",7,"ILE",8,"CHINE",9,"LA TERRE",10,"SUIVANT",S3,"QUITTER",QQ
Lbl S3
If ⌊SHOP(1)<2:Then
ClrHome
Output(1,1,"DEVEROUILLER
Output(2,1,"POUR
Output(3,1,"20 000 000 000
Pause
Menu("DEVEROUILLER?","NON",S2,"OUI",X2
Lbl X2
If ⌊COK(1)≥20000000000:Then
⌊COK(1)-20000000000→⌊COK(1
2→⌊SHOP(1
Else
ClrHome
Output(1,1,"PAS ASSEZ
Pause
Goto S2
End
End
ClrHome
Menu("SHOP(2)","LUNE",11,"MARS",12,"SYSTEME SOLAIR",13,"GALAXIE",14,"TROU NOIRE",15,"",S3,"QUITTER",QQ
Lbl 1
Menu("ACHETER A 700?","NON",0,"OUI",1O
Lbl 1O
If ⌊COK(1)≥700:Then
⌊COK(1)-700→⌊COK(1)
⌊COK(3)+0.1→⌊COK(3)
⌊SHOP(3)+1→⌊SHOP(3
Goto 0
Else
ClrHome
Output(1,1,"PAS ASSEZ
Pause
Goto 0
Lbl 4
1→θ
Lbl 3
If θ≠1:Then
5000→P
1→Q
10→R
Menu("ACHETER A 5000?","NON",0,"OUI",3O
Else
50000→P
11→Q
100→R
Menu("ACHETER A 50 000?","NON",0,"OUI",3O
End
Lbl 3O
If ⌊COK(1)≥P:Then
⌊COK(1)-P→⌊COK(1)
⌊COK(3)+Q→⌊COK(3)
⌊SHOP(4)+R→⌊SHOP(4
Else
Output(1,1,"PAS ASSEZ
Pause
End
Goto 0
Lbl 2
ClrHome
Output(1,1,"COUT:
Output(1,6,⌊SHOP(2
Pause
Menu("ACHETER?","NON",0,"OUI",2O
Lbl 2O
If ⌊COK(1)≥⌊SHOP(2):Then
⌊COK(2)*3→⌊COK(2
⌊COK(1)-⌊SHOP(2→⌊COK(1
⌊SHOP(2)*10→⌊SHOP(2
Else
ClrHome
Output(1,1,"PAS ASSEZ
Pause
End
Goto 0
Lbl 5
Menu("350 000 ?","NON",0,"OUI",5O
Lbl 5O
If ⌊COK(1)≥350000:Then
⌊COK(1)-350000→⌊COK(1
⌊COK(3)+80→⌊COK(3
⌊SHOP(5)+1→⌊SHOP(5
Else
ClrHome
Output(1,1,"PAS ASSEZ
Pause
End
Goto 0
Lbl 6
Menu("1 600 000 ?","NON",S2,"OUI",O6
Lbl O6
If ⌊COK(1)≥1600000:Then
⌊COK(1)-1600000→⌊COK(1
⌊COK(3)+500→⌊COK(3
⌊SHOP(6)+1→⌊SHOP(6
Else
ClrHome
Output(1,1,"PAS ASSEZ
Pause
End
Goto S2
Lbl 7
Menu("15 500 000 ?","NON",S2,"OUI",O7
Lbl O7
If ⌊COK(1)≥15500000:Then
⌊COK(1)-15500000→⌊COK(1
⌊COK(3)+6300→⌊COK(3
⌊SHOP(7)+1→⌊SHOP(7
Else
Output(1,1,"PAS ASSEZ
Pause
End
Goto S2
Lbl 8
Menu("43 000 000 ?","NON",S2,"OUI",O8
Lbl O8
If ⌊COK(1)≥43000000:Then
⌊COK(1)-43000000→⌊COK(1)
⌊COK(3)+11500→⌊COK(3
⌊SHOP(8)+1→⌊SHOP(8
Else
ClrHome
Output(1,1,"PAS ASSEZ"
Pause
End
Goto S2
Lbl 9
Menu("130 000 000 ?","NON",S2,"OUI",O9
Lbl O9
If ⌊COK(1)≥130000000:Then
⌊COK(1)-130000000→⌊COK(1
⌊SHOP(9)+1→⌊SHOP(9
⌊COK(3)+50000→⌊COK(3)
Else
ClrHome
Output(1,1,"PAS ASSEZ"
Pause
End
Goto S2
Lbl 10
Menu("1 500 000 000 ?","NON",S2,"OUI",P0
Lbl P0
If ⌊COK(1)≥1500000000:Then
⌊COK(1)-1500000000→⌊COK(1)
⌊COK(3)+550000→⌊COK(3
⌊SHOP(10)+1→⌊SHOP(10
Else
ClrHome
Output(1,1,"PAS ASSEZ
Pause
End
Goto S2
Lbl 11
Menu("2.710?","NON",S3,"OUI",P1
Lbl P1
If ⌊COK(1)≥27000000000:Then
⌊COK(1)-27000000000→⌊COK(1
⌊COK(3)+800000→⌊COK(3)
⌊SHOP(11)+1→⌊SHOP(11
Else
ClrHome
Output(1,1,"PAS ASSEZ
Pause
End
Goto S3
Lbl 12
Menu("1,611?","NON",S3,"OUI",P2
Lbl P2
If ⌊COK(1)≥160000000000:Then
⌊COK(1)-160000000000→⌊COK(1
⌊COK(3)+3500000→⌊COK(3
⌊SHOP(12)+1→⌊SHOP(12
Else
ClrHome
Output(1,1,"PAS ASSEZ
Pause
End
Goto S3
Lbl 13
Menu("1,312?","NON",S3,"OUI",P3
Lbl P3
If ⌊COK(1)≥1300000000000:Then
⌊COK(1)-1300000000000→⌊COK(1
⌊COK(3)+130000000→⌊COK(3)
⌊SHOP(13)+1→⌊SHOP(13
Else
ClrHome
Output(1,1,"PAS ASSEZ
Pause
End
Goto S3
Lbl 14
Menu("812?","NON",S3,"OUI",P4
Lbl P4
If ⌊COK(1)≥8000000000000:Then
⌊COK(1)-8000000000000→⌊COK(1
⌊SHOP(14)+1→⌊SHOP(14
⌊COK(3)+95000000→⌊COK(3
Else
Output(1,1,"PAS ASSEZ
Pause
End
Goto S3
Lbl 15
Output(1,1,"PROCHAINEMENT...
Pause
Goto S3
Lbl QQ
prgmCOOKIES
n'hesitez pas à me faire part de vos avis/conseils.
à la prochaine
grmycaire- Intéressé
- Messages : 79
Points Concours : 14
Productivité : 7
Date d'inscription : 13/12/2013
Localisation : Embrun
Calculatrice(s) :- TI-82 Stats.fr
. :
Re: Cookie Clicker
par Linkakro Dim 4 Jan 2015 - 20:45
Potable à première vue.
La quantité de travail surpasse largement ceux que j'ai commenté par le passé.
Détails pour améliorer le codage.
Appeler le maître depuis le secondaire réalise une récursion à chaque fois. Dans des algorithmes plus complexes et causant souvent des appels, la pile de mémoire de l'interpréteur de TI-Basic saturera.
Et c'est dommage de placer une alternative qui ne sert à rien : le Goto évite l'exécution du Else. Si on enlève l'alternative alors on évite en même temps la fuite mémoire du Then. Le If sans Then ne cause pas de fuite mémoire bien que ce ne soit pas pour autant plus élégant.
Tandis qu'une liste peut simplement recevoir une dimension au début du programme, cela la remplit de zéros si elle n'existait pas. Et si son nom ne porte pas à confusion avec un autre programme, alors aucun problème.
La quantité de travail surpasse largement ceux que j'ai commenté par le passé.
Détails pour améliorer le codage.
- Code:
La condition se simplifie en exploitant la convention faux=0
If K≥1
If K
Appeler le maître depuis le secondaire réalise une récursion à chaque fois. Dans des algorithmes plus complexes et causant souvent des appels, la pile de mémoire de l'interpréteur de TI-Basic saturera.
- Code:
If W=1:Then
Goto 0
Else
Et c'est dommage de placer une alternative qui ne sert à rien : le Goto évite l'exécution du Else. Si on enlève l'alternative alors on évite en même temps la fuite mémoire du Then. Le If sans Then ne cause pas de fuite mémoire bien que ce ne soit pas pour autant plus élégant.
- Code:
If W=1
Goto 0
// tu enlèveras le End plus loin qui fermais le bloc du Else.
Tandis qu'une liste peut simplement recevoir une dimension au début du programme, cela la remplit de zéros si elle n'existait pas. Et si son nom ne porte pas à confusion avec un autre programme, alors aucun problème.
Linkakro- ----------------------
- Messages : 533
Points Concours : 55
Productivité : 31
Date d'inscription : 30/07/2013
Localisation : origine région centre, puis perpignan
Calculatrice(s) :- TI-82 Stats.fr
. :
Re: Cookie Clicker
par Wistaro Mar 6 Jan 2015 - 19:06
J'ai peut-être l'air bête, mais c'est quoi le principe du jeu?
Wistaro- Passioné
- Messages : 918
Points Concours : 86
Productivité : 28
Date d'inscription : 16/06/2013
Localisation : Tarbes - DUT GEII
Calculatrice(s) :- TI-82
- TI-82 Stats
- TI-82 Stats.fr
. : -
Re: Cookie Clicker
par Linkakro Mar 6 Jan 2015 - 20:12
L'original est un jeu par navigateur codé en javascript.
Chaque clic produit un ou plusieurs cookie et les cookies sont investis dans des productions automatiques de cookies et des améliorations du rendement de certains moyens, y compris les clics. Un des moyens de production automatique est un clic virtuel automatique.
J'ai trouvé l'univers désopilant (absurde et jeux de mots) mais je me suis lassé.
Chaque clic produit un ou plusieurs cookie et les cookies sont investis dans des productions automatiques de cookies et des améliorations du rendement de certains moyens, y compris les clics. Un des moyens de production automatique est un clic virtuel automatique.
J'ai trouvé l'univers désopilant (absurde et jeux de mots) mais je me suis lassé.
Linkakro- ----------------------
- Messages : 533
Points Concours : 55
Productivité : 31
Date d'inscription : 30/07/2013
Localisation : origine région centre, puis perpignan
Calculatrice(s) :- TI-82 Stats.fr
. :
Re: Cookie Clicker
par m@thieu41 Mar 6 Jan 2015 - 23:07
C'est vrai que c'est pas mal recherche ton jeu, je ne m'attendais pas a autant d'après le titre, bravo
m@thieu41- ----------------------
- Messages : 939
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :- TI-82 Stats.fr
. :
Wistaro- Passioné
- Messages : 918
Points Concours : 86
Productivité : 28
Date d'inscription : 16/06/2013
Localisation : Tarbes - DUT GEII
Calculatrice(s) :- TI-82
- TI-82 Stats
- TI-82 Stats.fr
. : -
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
» Bonne année 2018!
» Lancement du TI-Concours 2017 !
» Chaînes Youtube des membres
» cacul du taux d'intêret
» [Projet] Un mario by tout82
» Cherche documentation assembleur TI82stat
» Probleme Ti-82 Stats fr
» ROM 82 stats.fr