Recent Forum Posts

Looking for something?

Don't see a match? Post to the community

From categories:
page 1123...next »

Could you also use Ans instead of Str1? Would that save on any memory?

I posted this, went on with my life, and forgot about it. Summations (Σ) was what I was looking for. Thank you though!


Have a good day 👍

TrenlyTrenly 16 Jan 2017 22:38
in discussion Forum 101 / Wiki Page Discussions » Flappy Bird

try Output(10,10,"P instead


-live the life because the life is good -vivir la vida, porque la vida es buena
-Vie la vie que la vie est bonne -quod est bonum vitae in vita
-lebe das Leben, weil das Leben ist gut -vivere la vita, perché la vita è buona

by TrenlyTrenly, 16 Jan 2017 22:38
Hawked (guest) 16 Jan 2017 22:38
in discussion Forum 101 / Wiki Page Discussions » Flappy Bird

Nvm i fixed the other error but now it zooms in on
:Output (Y,3,"0

Its a domain error
Im on ti 83

by Hawked (guest), 16 Jan 2017 22:38
Hawked (guest) 16 Jan 2017 22:27
in discussion Forum 101 / Wiki Page Discussions » Flappy Bird

Never mind the first comment i made but i was doing the original one and then every time the bird "dies" it zooms in on
:Output(100,100,"P

It says it after the P
It says error domain
Im on ti 83+ if that helps

by Hawked (guest), 16 Jan 2017 22:27

Thanks for that! I'm new to posting but i follow this web page. I might in the future provide a screenshot. Ill post it here

Took your code (see below) and built it into a program attached as a file to this thread for people to download. Also, I think perhaps the program archives would be a better place for programs in the future. There is a how-to guide on how to do this.

0→A
1→B
0→C
0→D
0→E
0→F
0→G
0→H
0→I
0→J
0→Q
0→R
0→S
0→T
0→U
0→V
0→X
0→N
1000000000000→P
ZSquare
ClrHome
Lbl L
Lbl 7
C*.1+D*1+E*10+F*50+G*100+H*1000→I
RecallPic Pic6
Text(0,0,"Insert Your Bakery Here"
Text(57,5,C
Text(57,29,D
Text(57,48,E
Text(57,69,F
Text(57,82,G
Text(35,62,H
Lbl 9
While 1
getKey→Z
P-A→P
If P=0
1→Q
Text(29,77,"Pre:"
Text(29,77,N
Text(38,0,P," Left"
Text(2,58,A," Cook"
Text(12,58,"I,"/Sec"
A+I→A
If Z=34
Goto 8
If Z=11
Goto 1
If Z=12
Goto 2
If Z=13
Goto 3
If Z=14
Goto 4
If Z=15
Goto 5
If Z=25
Goto 6
If Z=24
Goto S
If Z=105
A+B→A
If Z=31
Goto G
If Z=21
Goto O
If Z=22
Stop
End
Lbl 8
Menu("Click upgrades:","X2 250",R,"X4 800",S,"X6 1200",T
Lbl R
If A<250
Goto L
B*2→B
A-250→A
Goto L
Lbl S
If A<800
Goto L
B*4→B
A-800→A
Goto L
Lbl T
If A<1200
Goto L
B*8→B
A-1200→A
Goto L
Lbl G
Menu("Save Options:","Save",H,"Restore",I
Lbl H
Menu("Save File:","Save File 1",T,"Save File 2",U
Lbl T
{C,D,E,F,G,H,A}→L₁
{Q,R,S,T,U,V}→L₃
{O,B}→L₅
Goto L
Lbl U
{C,D,E,F,G,H,A}→L₂
{Q,R,S,T,U,V}→L₄
{P,B}→L₆
Goto L
Lbl I
Menu("Save File:","Save File 1",W,"Save File 2",X
Lbl W
L₁(1)→C
L₁(2)→D
L₁(3)→E
L₁(4)→F
L₁(5)→G
L₁(6)→H
L₁(7)→A
L₃(1)→Q
L₃(2)→R
L₃(3)→S
L₃(4)→T
L₃(5)→U
L₃(6)→V
L₅(1)→P
L₅(2)→B
Lbl X
L₂(1)→C
L₂(2)→D
L₂(3)→E
L₂(4)→F
L₂(5)→G
L₂(6)→H
L₂(7)→A
L₄(1)→Q
L₄(2)→R
L₄(3)→S
L₄(4)→T
L₄(5)→U
L₄(6)→V
L₆(1)→P
L₆(2)→B
Goto 7
Lbl S
ClrDraw
Text(0,0"COST: BUILDING: OUTPUT:"
Text(6,0,Q+15," CURSOR .1"
Text(12,0,R+100," GRANDMA 1"
Text(18,0,S+110," FARM 10"
Text(24,0,T+1200," MINE 50"
Text(30,0,U+130000," FACTORY 100"
Text(36,0,V+1600000," BANK 1000"
Pause
ClrDraw
Goto L
Lbl 2
If A<R+15
Goto L
A-(R+15)→A
R+15→R
C+1→C
Goto 7
Lbl 1
If A<Q+15
Goto L
A-(Q+15)→A
Q+15→Q
C+1→C
Goto 7
Lbl 3
If A<S+15
Goto L
A-(S+15)→A
S+15→S
C+1→C
Goto 7
Lbl 4
If A<T+15
Goto L
A-(T+15)→A
T+15→T
C+1→C
Goto 7
Lbl 5
If A<U+15
Goto L
A-(U+15)→A
U+15→U
C+1→C
Goto 7
Lbl 6
If A<V+15
Goto L
A-(V+15)→A
V+15→V
C+1→C
Goto 7
Lbl O
Menu("Prestige?","Yes",R,"No",7
Lbl R
0→A
0→I
0→C
0→D
0→E
0→F
0→G
0→H
If P≤1
N+1→N
1000000000000→P
Goto 7

-live the life because the life is good -vivir la vida, porque la vida es buena
-Vie la vie que la vie est bonne -quod est bonum vitae in vita
-lebe das Leben, weil das Leben ist gut -vivere la vita, perché la vita è buona

this is the next portion

Goto 7
Lbl S
ClrDraw
Text(0,0"COST: BUILDING: OUTPUT:"
Text(6,0,Q+15," CURSOR .1"
Text(12,0,R+100," GRANDMA 1"
Text(18,0,S+110," FARM 10"
Text(24,0,T+1200," MINE 50"
Text(30,0,U+130000," FACTORY 100"
Text(36,0,V+1600000," BANK 1000"
Pause
ClrDraw
Goto L
Lbl 2
If A<R+15
Goto L
A-(R+15)▶A
R+15▶R
C+1▶C
Goto 7
Lbl 1
If A<Q+15
Goto L
A-(Q+15)▶A
Q+15▶Q
C+1▶C
Goto 7
Lbl 3
If A<S+15
Goto L
A-(S+15)▶A
S+15▶S
C+1▶C
Goto 7
Lbl 4
If A<T+15
Goto L
A-(T+15)▶A
T+15▶T
C+1▶C
Goto 7
Lbl 5
If A<U+15
Goto L
A-(U+15)▶A
U+15▶U
C+1▶C
Goto 7
Lbl 6
If A<V+15
Goto L
A-(V+15)▶A
V+15▶V
C+1▶C
Goto 7
Lbl O
Menu("Prestige?","Yes",R,"No",7
Lbl R
0▶A
0▶I
0▶C
0▶D
0▶E
0▶F
0▶G
0▶H
If P≤ 1
N+1▶N
1000000000000▶P
Goto 7

Controls
2ND Prestige
Left - Prestige
ALPHA - Load or Save To File
Y= - Buy cursor
WINDOW - Buy grandma
ZOOM - Buy farm
TRACE - buy mine
GRAPH - buy factory
Up - buy bank
MODE - Quit

Note:
Make your own picture around the source code and store it to Pic6

I might post mine later

Ill start typing it up here…

0▶A
1▶B
0▶C
0▶D
0▶E
0▶F
0▶G
0▶H
0▶I
0▶J
0▶Q
0▶R
0▶S
0▶T
0▶U
0▶V
0▶X
0▶N
1000000000000▶P
ZSquare
ClrHome
Lbl L
Lbl 7
C*.1+D*1+E*10+F*50+G*100+H*1000▶I
RecallPic Pic6
Text(0,0,"Insert Your Bakery Here"
Text(57,5,C
Text(57,29,D
Text(57,48,E
Text(57,69,F
Text(57,82,G
Text(35,62,H
Lbl 9
While 1
getKey▶Z
P-A▶P
If P=0
1▶Q
Text(29,77,"Pre:"
Text(29,77,N
Text(38,0,P," Left"
Text(2,58,A," Cook"
Text(12,58,"I,"/Sec"
A+I▶A
If Z=34
Goto 8
If Z=11
Goto 1
If Z=12
Goto 2
If Z=13
Goto 3
If Z=14
Goto 4
If Z=15
Goto 5
If Z=25
Goto 6
If Z=24
Goto S
If Z=105
A+B▶A
If Z=31
Goto G
If Z=21
Goto O
If Z=22
Stop
End
Lbl 8
Menu("Click upgrades:","X2 250",R,"X4 800",S,"X6 1200",T
Lbl R
If A<250
Goto L
B*2▶B
A-250▶A
Goto L
Lbl S
If A<800
Goto L
B*4▶B
A-800▶A
Goto L
Lbl T
If A<1200
Goto L
B*8▶B
A-1200▶A
Goto L
Lbl G
Menu("Save Options:","Save",H,"Restore",I
Lbl H
Menu("Save File:","Save File 1",T,"Save File 2",U
Lbl T
{C,D,E,F,G,H,A}▶L1
{Q,R,S,T,U,V}▶L3
{O,B}▶L5
Goto L
Lbl U
{C,D,E,F,G,H,A}▶L2
{Q,R,S,T,U,V}▶L4
{P,B}▶L6
Goto L
Lbl I
Menu("Save File:","Save File 1",W,"Save File 2",X
Lbl W
L1(1)▶C
L1(2)▶D
L1(3)▶E
L1(4)▶F
L1(5)▶G
L1(6)▶H
L1(7)▶A
L3(1)▶Q
L3(2)▶R
L3(3)▶S
L3(4)▶T
L3(5)▶U
L3(6)▶V
L5(1)▶P
L5(2)▶B
Lbl X
L2(1)▶C
L2(2)▶D
L2(3)▶E
L2(4)▶F
L2(5)▶G
L2(6)▶H
L2(7)▶A
L4(1)▶Q
L4(2)▶R
L4(3)▶S
L4(4)▶T
L4(5)▶U
L4(6)▶V
L6(1)▶P
L6(2)▶B

This is only incompete ill finish it later

Please post in the comments column if you would like me to type up my cookie clicker version 2 code. Thanks, Nick

Cookie Clicker for TI-83 Plus by NPEASENPEASE, 15 Jan 2017 00:18

Thanks man! I think this is definitely what I'm looking for! Yay! Now I can work on the graph screen!

HG

Re: Sprites on TI-84 by Heroic GamerHeroic Gamer, 14 Jan 2017 18:48

In TI-BASIC, text sprites are often the best way to display sprites in a game. You can also refer to this page for more specific information

Re: Sprites on TI-84 by jonbushjonbush, 14 Jan 2017 18:41
Zeda Thomas (guest) 14 Jan 2017 12:23
in discussion Programming & Design / TI-83/84 Programming » Battery check

Two posts up there is a link, I believe. It will not work for the color models, though.

by Zeda Thomas (guest), 14 Jan 2017 12:23
Brandon (guest) 14 Jan 2017 12:08
in discussion Programming & Design / TI-83/84 Programming » Battery check

Do you know the code for it preferably in asm

by Brandon (guest), 14 Jan 2017 12:08

So I'm making a graphics heavy game on TI-84 that relies on using sprites. I've read the wiki's page on sprites; however, these pertain specifically for TI-89 Basic. I want to know what the optimal way to print sprites in quickly on TI-84. My current method involves running through and putting a pixel on a set of coordinates compiled together in a list. Is there a better way?

Thanks
HG

Sprites on TI-84 by Heroic GamerHeroic Gamer, 13 Jan 2017 19:17

Thank you. I had completely forgotten about the prod( command


-live the life because the life is good -vivir la vida, porque la vida es buena
-Vie la vie que la vie est bonne -quod est bonum vitae in vita
-lebe das Leben, weil das Leben ist gut -vivere la vita, perché la vita è buona

Re: Optimize this by TrenlyTrenly, 10 Jan 2017 20:40

This should work for the first part

If dim(L1)≠dim(L2
Return
Disp prod(L1^L2

I don't think there's much you can do for the second part, except for using all capital letters.

Re: Optimize this by jonbushjonbush, 10 Jan 2017 20:09

I'm creating a program for equillibrium constants in chemistry. The formula is
[A^a][B^b]/[C^c][D^d] where a reaction is given in the form c[C]+d[D]->a[A]+b[B]. This however is limited to two reactants and two products, when there are times that there may be more than two of each, or imbalanced numbers of each.

My code for this equation looks like this:

If not(dim(L1)=dim(L2):Return
1->B
For(A,1,dim(L1
B(L1(A)^L2(A)->B
End
Disp B

Now, I realize that that does not allow user input inside the program. Simply adding this code to the beginning of the program changes the input to a comma separated values input (e.g. 3,4.57,9.21,-2.8)
Input "Molarities:",Str1
Input "Powers:",Str2
expr("{"+Str1->L1
expr("{"+Str2->L2

The way the code works is by entering a negative value for the power of any molarity which is intended to be in the denominator.

I was wondering if this code could be optimized at all


-live the life because the life is good -vivir la vida, porque la vida es buena
-Vie la vie que la vie est bonne -quod est bonum vitae in vita
-lebe das Leben, weil das Leben ist gut -vivere la vita, perché la vita è buona

Optimize this by TrenlyTrenly, 09 Jan 2017 20:15

This will test if exactly one of the values is zero

If 1=sum(not({A,B,C,D...

To determine which one is zero:

1+sum(not(cumSum(not({A,B,C,D...
page 1123...next »