Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Connexion

Récupérer mon mot de passe

Chatbox externe


Derniers sujets
» [JEU] Mon voisin du dessous
Ven 21 Juil 2017 - 11:52 par Clément.7

» Lancement du TI-Concours 2017 !
Sam 20 Mai 2017 - 0:27 par Paulo1026

» Chaînes Youtube des membres
Ven 19 Mai 2017 - 22:41 par Wistaro

» cacul du taux d'intêret
Ven 24 Mar 2017 - 21:50 par m@thieu41

» [Projet] Un mario by tout82
Dim 29 Jan 2017 - 14:09 par Wistaro

» Cherche documentation assembleur TI82stat
Mer 25 Jan 2017 - 12:29 par Ti64CLi++

» Probleme Ti-82 Stats fr
Jeu 12 Jan 2017 - 13:56 par Ti64CLi++

» ROM 82 stats.fr
Jeu 15 Déc 2016 - 10:24 par Ti64CLi++

» flappy bird
Jeu 15 Déc 2016 - 10:23 par Ti64CLi++

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
Wistaro
 
Clément.7
 


Cookie Clicker

Poster un nouveau sujet   Répondre au sujet

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

Cookie Clicker

Message par grmycaire le Dim 4 Jan 2015 - 12:46

bonjour à tous, voici un cookie clicker en ti-basic!!
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.710?","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,611?","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,312?","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("812?","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 Very Happy

grmycaire
Intéressé
Intéressé

Messages : 79
Points Concours : 14
Productivité : 7
Date d'inscription : 13/12/2013
Localisation : Embrun
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Cookie Clicker

Message par Linkakro le Dim 4 Jan 2015 - 20:45

Potable à première vue.
La quantité de travail surpasse largement ceux que j'ai commenté par le passé. Bien Joué

Détails pour améliorer le codage.
Code:
La condition se simplifie en exploitant la convention faux=0
If K≥1
If K
Tu ne devrais pas appeler le programme maître depuis le programme secondaire mais utiliser le retour Return. Lors d'un retour l'exécution se place après l'appel au secondaire par le maître, pas au début du maître donc la méthode change.
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
Vade retro satanas. Utiliser un Goto après un Then est source de ralentissement voire même saturation de l'interpréteur. Article de l'abus des Goto.
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.
Tu devrais utiliser une cellule des listes mémoire plutôt que la variable W. Rien ne garantit qu'elle soit correctement initialisée.
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.

__________________________________________________________________________
Vétéran du TI-Basic Zilog80. Ti82statfr sur Tout82 depuis 2009 et ti84pocketfr depuis noël 2012. Ti83plusfrUSB (été 2014, concours tiplanet suite du geek). Bidouille un peu d'assembleur Z80.
Incappable de gérer le temps et manque de tact, plutôt serviable.
Je prend les commandes de programme. Je suis motivé par les maths et la physique tant que ce n'est pas une simple copie d'antisèche.
Vous pouvez trouver une grande partie de mes données hébergées dans mon mediafire. Le ZIP et la liste sont périmées depuis longtemps.
coucou Invité What a Face
avatar
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

. : TI-82 Stats.fr

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Cookie Clicker

Message par Wistaro le Mar 6 Jan 2015 - 19:06

J'ai peut-être l'air bête, mais c'est quoi le principe du jeu?

__________________________________________________________________________
Clique ici pour retrouver tout mes programmes en TIbasic

Tu es curieux, Invité? Alors clique ici:


Coucou Invité !Ta dernière visite sur ce forum date de . Tu as posté un total de 78 message(s) sur Tout 82 et enfin, tu as 0 ans.
Si nous sommes le 0, je te souhaite un joyeux anniversaire ;-)

avatar
Wistaro
Passioné
Passioné

Messages : 906
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

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://www.youtube.com/user/Wistaro

Revenir en haut Aller en bas

Re: Cookie Clicker

Message par Linkakro le 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é.

__________________________________________________________________________
Vétéran du TI-Basic Zilog80. Ti82statfr sur Tout82 depuis 2009 et ti84pocketfr depuis noël 2012. Ti83plusfrUSB (été 2014, concours tiplanet suite du geek). Bidouille un peu d'assembleur Z80.
Incappable de gérer le temps et manque de tact, plutôt serviable.
Je prend les commandes de programme. Je suis motivé par les maths et la physique tant que ce n'est pas une simple copie d'antisèche.
Vous pouvez trouver une grande partie de mes données hébergées dans mon mediafire. Le ZIP et la liste sont périmées depuis longtemps.
coucou Invité What a Face
avatar
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

. : TI-82 Stats.fr

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Cookie Clicker

Message par m@thieu41 le 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 Very Happy

__________________________________________________________________________
ZSNAKE Mon premier (et unique) jeu en ASM:
Un Snake 2 joueurs (2caltos)
-> Je travaille sur une version plus stable du jeu, je poste dès que possible.
avatar
m@thieu41
----------------------
----------------------

Messages : 934
Points Concours : 65
Productivité : 47
Date d'inscription : 02/06/2013
Localisation : Nice, France
Calculatrice(s) :
  • TI-82 Stats.fr

. : TI-82 Stats.fr

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Cookie Clicker

Message par Wistaro le Mer 7 Jan 2015 - 13:47

Beau travail !

Addictif ce jeu^^

__________________________________________________________________________
Clique ici pour retrouver tout mes programmes en TIbasic

Tu es curieux, Invité? Alors clique ici:


Coucou Invité !Ta dernière visite sur ce forum date de . Tu as posté un total de 78 message(s) sur Tout 82 et enfin, tu as 0 ans.
Si nous sommes le 0, je te souhaite un joyeux anniversaire ;-)

avatar
Wistaro
Passioné
Passioné

Messages : 906
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

. : TI-82 Stats.fr

Voir le profil de l'utilisateur http://www.youtube.com/user/Wistaro

Revenir en haut Aller en bas

Re: Cookie Clicker

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

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

- Sujets similaires

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