This is my code for a Cookie Clicker game with support for a TI-83+ OS 1.19 (and possibly other platforms).
DelVar L₁ClrHome
SetUpEditor CLICK
10→dim(∟CLICK
∟CLICK→L₁
9→dim(L₁
Output(3,5,"=----------- OO !CURSOR OO*O!PRICE: O*OO! O*OO!OWNED: OO !
∟CLICK(10→C
"CURSOR GRANDMA FARM FACTORY MINE SHIPMENT PORTAL TIMEMACHINEANTIMATTER →Str1
DelVar S1→B
{15,E2,500,3E3,E4,4E4,1666666,123456789,4E9-1→L₂
For(X,1,9
int(L₂(X)1.15^L₁(X→L₄(X
End
{.1,.5,4,10,40,E2,6666,98765,E6-1→L₃
Output(6,6,L₄(1
Output(8,6,L₁(1
Repeat K=45
getKey→K
If K=105
Then
Output(1,1," "
C+1→C
Output(1,1,int(C
End
B+(K=26)-(K=24
Ans-9(Ans=10)+9not(Ans→B
Output(4,6,sub(Str1,11B-10,11
If sum(K={24,26
Then
Output(6,6," "
Output(6,6,L₄(B
Output(8,6," "
Output(8,6,L₁(B
End
L₁(B)-(K=85 and L₁(B))+(K=95 and C≥L₄(B→L₁(B
If K=95 and C≥L₄(B
Then
int(L₂(B)1.15^L₁(B→L₄(B
Output(6,6," "
Output(6,6,L₄(B
Output(8,6," "
Output(8,6,L₁(B
Output(1,1," "
Output(1,1,int(C
End
If K=85
Then
int(L₂(B)1.15^L₁(B→L₄(B
Output(6,6," "
Output(6,6,L₄(B
Output(8,6," "
Output(8,6,L₁(B
End
If not(S
Then
C+sum(L₁L₃→C
Output(1,1,int(Ans
End
Output(2,1," "
Output(2,1,int(sum(L₁L₃
S+1-4(S=3→S
End
C→L₁(10
L₁→∟CLICK
ClrHome
What do you think?
