Cookie Clicker 2

Name: Cookie Clicker 2 Author: kdnooij Download: CookieClicker2.zip Compatibility: TI-84/+/SE File Size: 4107 Bytes

The most addictive game is now made for the TI-84 Plus Calculator with nice graphics! Enjoy playing for a while! (maybe a bit longer than that)

What the community thinks:

O.O

Josiah W 05 Feb 2014 21:32

First of all…WOW! Amazing graphics!
Second of all, a severely warm welcome to the community…with milk! XD
Third of all, I think I could suggest some improvements.

1. The controls of the game, for instance. This took an hour of my life to figure out controls for, and you should really add a readme.
2. You don't need a closing quote or paren if all that's after them is a newline.
3. You should really use a list instead of a bunch of real variables to store the in game values. {15,100,500,3000,10000,…}
4. I don't know how you didn't tell me about this! Seeing as I've made a pretty good one for the +C, and a similar monochrome version is pending.

If you ever want to expand on this, please contact me. I'll be delighted to help.

---

:ClrHome:Disp "HOW DOES A","MATHEMATICIAN","LOSE WEIGHT?
:Pause "
:Pause "BINOMIALS!
:Pause "(BUY NO MEALS)":ClrHome

Last edited on 05 Feb 2014 21:34 by Josiah W Show more

Re: O.O

kdnooij 05 Feb 2014 22:22

Thank you for your comment and tips!

I must say that I started making this and while I was making it, I saw many points of improvements. Now that I have made a list of all the things I want to improve, I started making Cookie Clicker 3. I can tell you that there will be a complete GUI change, upgrades, game modes, highscores and achievements. It will take a lot longer to make than this one (I made this one in 1 day).

Your tips really help, because I didn't think about using lists instead of variables and I will make a readme, although there was a help page in the menu. I must say that I just like to close a paren because I'm used to do it in Java.

And thank you for the offer to help. I was actually thinking about making a version for +C and since you have one I would really like to help in such a collaboration! I could make the GUI and all the other graphics, but I don't know how the coding works since I don't have a +C. I will contact you when I finished CC3 so we can make Cookie Clicker +C or what the name may be :D

Re: O.O

Josiah W 06 Feb 2014 13:43

Sounds good to me. And I will happily work on it with you!

Just don't call it Cookie Clicker +C. That name is taken…by me.

---

:ClrHome:Disp "HOW DOES A","MATHEMATICIAN","LOSE WEIGHT?
:Pause "
:Pause "BINOMIALS!
:Pause "(BUY NO MEALS)":ClrHome

Extremely Entertaining While Staying Within The Bounds of TI-BASIC

Toothless the Dragon 11 Feb 2014 00:51

Throughout my time as a TI-BASIC programmer, the majority of the games created in this language fall in one of two categories.
A. The game is poorly created and slow to the point it isn't any fun. Or…
B. The game is too ambitious and tries to be something the language simply cannot do, like a very fluid fast-paced platformer.

This is not one of those games. Cookie Clicker 2 by kdnooij is a PERFECT example of an excellent game made in TI-BASIC. The concept is very simple, the controls straightforward, but most of all, it is REASONABLE. The author does not try to create a groundbreaking model that excels the limitations of the language, nor does he blow the game out of proportion by trying something as intense such as a 1st person shooter.

Instead, he takes what he has and makes something awesome out of it. THAT is what I believe TI-BASIC programmers should aim for nowadays. Sure, it's fun trying to push yourself to create intensive-RAM gameplay and pushing your goals higher, but come on, they're just calculators. Not monster-gaming computers. xD

I do have a few criticisms with the program though. For instance, the second screen has numbers too long for the boxes they contain. They look very buggy and low-quality, as well as drastically reducing the readability of these numbers when they're combined together. I suggest for the author to truncate them, replacing 40,000 with 40E3, 200,000 with 200E3, and so-forth. Also, the last option on the 1st screen with the pickaxe (I believe it's the Cookie Mine?) is actually 10,000, instead of 1000 of what it says. It also should be truncated to 10E3.

And I do admit, a readme.txt would be very useful. You can't view the help page in the menu if the game has been started already, which would be the case for the majority of players.

So overall, excellent graphics, very fast and fluid gameplay, and an absolutely perfect game concept for the TI-84+. I look forward to seeing what else kdnooij has up his sleeve. ^.^

Last edited on 11 Feb 2014 00:58 by Toothless the Dragon Show more

Re: Extremely Entertaining While Staying Within The Bounds of TI-BASIC

12Me21 02 Feb 2015 21:15

changeing it to numbers like "40E3" seems very annoying to read, why not "4E4", and "2E5"

Re: Extremely Entertaining While Staying Within The Bounds of TI-BASIC

(account deleted) 14 Apr 2016 03:12

I do have a few criticisms with the program though. For instance, the second screen has numbers too long for the boxes they contain. They look very buggy and low-quality, as well as drastically reducing the readability of these numbers when they're combined together. I suggest for the author to truncate them, replacing 40,000 with 40E3, 200,000 with 200E3, and so-forth. Also, the last option on the 1st screen with the pickaxe (I believe it's the Cookie Mine?) is actually 10,000, instead of 1000 of what it says. It also should be truncated to 10E3

I second Toothless the Dragon's request. I loved playing this game, as repetitive as it may be, but the numbers were extremely difficult to decipher. Other than that, beautiful work!

---

The waste basket is the writer’s best friend.

Jared (guest) 02 Feb 2015 17:42

Does anyone else have a corner of a square at the top left of the screen? I have a ti 84 plus… Also is there a fix for this. The square/rectangle covers the cookie a bit …

Looking at the source code

Trenly 14 Apr 2016 14:42

If ʟCSA(1)≠0:Then
//can be shortened to
If ʟCSA(1):Then

Alternatively:

If ʟCSA(1)≠0:Then
ʟCSA(1)→B
ʟCSA(2)→C
ʟCSA(3)→D
ʟCSA(4)→E
ʟCSA(5)→F
ʟCSA(6)→G
ʟCSA(7)→H
ʟCSA(8)→I
ʟCSA(9)→J
ʟCSA(10)→K
ʟCSA(11)→L
ʟCSA(12)→M
Else
Goto A
End
Goto C
// to avoid memory leak, shouldnt this be:
If not(ʟCSA(1):Goto A
ʟCSA(1)→B
ʟCSA(2)→C
ʟCSA(3)→D
ʟCSA(4)→E
ʟCSA(5)→F
ʟCSA(6)→G
ʟCSA(7)→H
ʟCSA(8)→I
ʟCSA(9)→J
ʟCSA(10)→K
ʟCSA(11)→L
ʟCSA(12)→M
Goto C
//this will test if LCSA(1) is zero and jump to A if it is, If it isnt then it recalls the list to variables
//by making it test for zero first, it leaves the only other option to run the variable recalling if and only if LCSA(1) is not zero
//this can also be applied to LCSB and LCSC

Can Someone give me the source code?

owentpanda 17 Aug 2019 02:06

i want the source code for this so i can manually input it. If someone could share it that would be great!

Re: Can Someone give me the source code?

(account deleted) 17 Aug 2019 02:57

I can easily give you the source code for this, but there is a small problem. It looks like the program uses picture files, which can cause problems if you try to use the program without it. I'll post it tomorrow when I'm on my Pi, but it's better if you download this if you can. :)

EDIT: Here is the source code, but the programs has 3 image files that you need for the graphics.

0->Xmin
94->Xmax
~62->Ymin
0->Ymax
AxesOff
FnOff 
ClrDraw
RecallPic 1
Text(51,1,"|v2.4.3")
Text(57,1,"[|b]y k[|d][n]ooij - 2014")
For(X,0,1000)
    Ans->A
End
ClrDraw

Lbl M
Menu("","N[|e]|w G[|a]m[|e]",A,"Lo[|a][|d] G[|a]m[|e]",B,"H[|e]l[p]",Z,"A[|b]o|u[t]",Y,"Q|ui[t]",R)

Lbl Z
ClrDraw
Text(3,40,"HELP")
Text(13,3,"G[|e][t] [|a][s] m[|a][n]y [|c]ooki[|e][s] [|a][s]")
Text(19,3,"[p]o[s][s]i[|b]l[|e]! Cli[|c]k |wi[t]h ENTER")
Text(25,3,"[|a][n][|d] [|b]|uy |wi[t]h [t]h[|e] F1-F5")
Text(31,3,"k[|e]y[s].To [s][|e][|e] mo[r][|e] [|b]|uil[|d]i[n]g[s]")
Text(37,3,"[p][r][|e][s][s] [t]h[|e] [|a][r][r]o|w k[|e]y[s].")
Pause 
Goto M

Lbl Y
ClrDraw
Text(3,3,"Cooki[|e] [|c]li[|c]k[|e][r] fo[r] TI-84+")
Text(9,3,"m[|a][|d][|e] [|b]y k[|d][n]ooij.")
Text(15,3,"V[|e][r][s]io[n] 2.4.3")
Pause 
Goto M

Lbl A
0->A
0->B
0->C
15->D
100->E
500->F
3000->G
10000->H
40000->I
200000->J
1666666->K
123456789->L
3999999999->M
1->S
0.15->Z
Goto C

Lbl B
Menu("","G[|a]m[|e] A",D,"G[|a]m[|e] B",E,"G[|a]m[|e] C",F)

Lbl D
26->dim(|LCSA)
If |LCSA(1)!=0:Then
    |LCSA(1)->B
    |LCSA(2)->C
    |LCSA(3)->D
    |LCSA(4)->E
    |LCSA(5)->F
    |LCSA(6)->G
    |LCSA(7)->H
    |LCSA(8)->I
    |LCSA(9)->J
    |LCSA(10)->K
    |LCSA(11)->L
    |LCSA(12)->M
Else
    Goto A
End
Goto C

Lbl E
26->dim(|LCSB)
If |LCSB(1)!=0:Then
    |LCSB(1)->B
    |LCSB(2)->C
    |LCSB(3)->D
    |LCSB(4)->E
    |LCSB(5)->F
    |LCSB(6)->G
    |LCSB(7)->H
    |LCSB(8)->I
    |LCSB(9)->J
    |LCSB(10)->K
    |LCSB(11)->L
    |LCSB(12)->M
Else
    Goto A
End
Goto C

Lbl F
26->dim(|LCSC)
If |LCSC(1)!=0:Then
    |LCSC(1)->B
    |LCSC(2)->C
    |LCSC(3)->D
    |LCSC(4)->E
    |LCSC(5)->F
    |LCSC(6)->G
    |LCSC(7)->H
    |LCSC(8)->I
    |LCSC(9)->J
    |LCSC(10)->K
    |LCSC(11)->L
    |LCSC(12)->M
Else
    Goto A
End
Goto C

Lbl C
ClrDraw
RecallPic 2
Text(52,3,round(D,0))
Text(52,22,round(E,0))
Text(52,40,round(F,0))
Text(52,58,round(G,0))
Text(52,76,round(H,0))

While 1
    getKey
    Ans->A

    If A=105:Then
        B+1+((C/Z)*0.1)->B
        Text(7,47,int(B))
    End

    If A=11:Then
        If S=1:Then

            If B>=D:Then
                B-D->B
                15*1.15^(log(D/15)/log(1.15)+1)->D
                Text(52,3,round(D,0))
                Text(7,47,"                                       ")
                C+.1Z->C
                Text(25,47,"                               ")
            End

        Else

            If B>=I:Then
                B-I->B
                40000*1.15^(log(I/40000)/log(1.15)+1)->I
                Text(52,3,round(I,0))
                Text(7,47,"                                       ")
                C+100Z->C
                Text(25,47,"                               ")
            End
        End
    End

    If A=12:Then
        If S=1:Then

            If B>=E:Then
                B-E->B
                100*1.15^(log(E/100)/log(1.15)+1)->E
                Text(52,22,round(E,0))
                Text(7,47,"                                       ")
                C+.5Z->C
                Text(25,47,"                               ")
            End

        Else

            If B>=J:Then
                B-J->B
                200000*1.15^(log(J/200000)/log(1.15)+1)->J
                Text(52,22,round(J,0))
                Text(7,47,"                                       ")
                C+400Z->C
                Text(25,47,"                               ")
            End
        End
    End

    If A=13:Then
        If S=1:Then
            If B>=F:Then
                B-F->B
                500*1.15^(log(F/500)/log(1.15)+1)->F
                Text(52,40,round(F,0))
                Text(7,47,"                                       ")
                C+4Z->C
                Text(25,47,"                               ")
            End

        Else

            If B>=K:Then
                B-K->B
                1666666*1.15^(log(K/1666666)/log(1.15)+1)->K
                Text(52,40,round(K,0))
                Text(7,47,"                                       ")
                C+6666Z->C
                Text(25,47,"                               ")
            End
        End
    End

    If A=14:Then
        If S=1:Then
            If B>=G:Then
                B-G->B
                3000*1.15^(log(G/3000)/log(1.15)+1)->G
                Text(52,58,round(G,0))
                Text(7,47,"                                       ")
                C+10Z->C
                Text(25,47,"                               ")
            End

        Else

            If B>=L:Then
                B-L->B
                123456789*1.15^(log(L/123456789)/log(1.15)+1)->L
                Text(52,58,round(L,0))
                Text(7,47,"                                       ")
                C+98765Z->C
                Text(25,47,"                               ")
            End
        End
    End

    If A=15:Then
        If S=1:Then
            If B>=H:Then
                B-H->B
                10000*1.15^(log(H/10000)/log(1.15)+1)->H
                Text(52,76,round(H,0))
                Text(7,47,"                                       ")
                C+40Z->C
                Text(25,47,"                               ")
            End

        Else

            If B>=M:Then
                B-M->B
                3999999999*1.15^(log(M/3999999999)/log(1.15)+1)->M
                Text(52,76,round(M,0))
                Text(7,47,"                                       ")
                C+999999Z->C
                Text(25,47,"                               ")
            End
        End
    End

    If A=24:Then
        If S=1:Then
            2->S
            ClrDraw
            RecallPic 3
            Text(52,3,round(I,0))
            Text(52,22,round(J,0))
            Text(52,40,round(K,0))
            Text(52,58,round(L,0))
            Text(52,76,round(M,0))
        Else
            1->S
            ClrDraw
            RecallPic 2
            Text(52,3,round(D,0))
            Text(52,22,round(E,0))
            Text(52,40,round(F,0))
            Text(52,58,round(G,0))
            Text(52,76,round(H,0))
        End
    End

    If A=26:Then
        If S=1:Then
            2->S
            ClrDraw
            RecallPic 3
            Text(52,3,round(I,0))
            Text(52,22,round(J,0))
            Text(52,40,round(K,0))
            Text(52,58,round(L,0))
            Text(52,76,round(M,0))
        Else
            1->S
            ClrDraw
            RecallPic 2
            Text(52,3,round(D,0))
            Text(52,22,round(E,0))
            Text(52,40,round(F,0))
            Text(52,58,round(G,0))
            Text(52,76,round(H,0))
        End
    End

    If A=22:Then
        Menu("Q|ui[t]?","No!",C,"Y[|e][s]...",Q)
    End

    B+C->B
    Text(25,47,C/Z)
    Text(7,47,int(B))
    0->A

End

Lbl Q
Menu("S[|a]|v[|e]?","Y[|e][s]",S,"No",R)

Lbl S
Menu("","G[|a]m[|e] A",G,"G[|a]m[|e] B",H,"G[|a]m[|e] C",I)

Lbl G
26->dim(|LCSA)
B->|LCSA(1)
C->|LCSA(2)
D->|LCSA(3)
E->|LCSA(4)
F->|LCSA(5)
G->|LCSA(6)
H->|LCSA(7)
I->|LCSA(8)
J->|LCSA(9)
K->|LCSA(10)
L->|LCSA(11)
M->|LCSA(12)
Goto R

Lbl H
26->dim(|LCSB)
B->|LCSB(1)
C->|LCSB(2)
D->|LCSB(3)
E->|LCSB(4)
F->|LCSB(5)
G->|LCSB(6)
H->|LCSB(7)
I->|LCSB(8)
J->|LCSB(9)
K->|LCSB(10)
L->|LCSB(11)
M->|LCSB(12)
Goto R

Lbl I
26->dim(|LCSC)
B->|LCSC(1)
C->|LCSC(2)
D->|LCSC(3)
E->|LCSC(4)
F->|LCSC(5)
G->|LCSC(6)
H->|LCSC(7)
I->|LCSC(8)
J->|LCSC(9)
K->|LCSC(10)
L->|LCSC(11)
M->|LCSC(12)
Goto R

Lbl R
ClrDraw
ClrHome
Stop

---

Hewwo, my name is Achak Claw. I was formerly BioHazard.

Last edited on 17 Aug 2019 15:51 by (account deleted) Show more

Re: Can Someone give me the source code?

owentpanda 17 Aug 2019 23:46

thanks!

i have a question

Unknown_502 28 Dec 2023 20:10

does it work for TI-84 plus CE cause i want to play it on mines.

Want to update this page?

• Upload new files to provide up-to-date versions of your program;
• or Edit the content of this page to provide up-to-date information about your program.

A moderator will only process these changes if you add the word update to the list of tags