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