Glitch City Laboratories Forums

Lab δ: Tech => Computers and Technology Discussion => Topic started by: Sherkel on February 22, 2008, 07:28:12 pm

Title: TI-83/TI-83+/TI-83+ SE/TI-84+/TI-84+ SE, etc. programs (in BASIC) NOW TAKING REQ
Post by: Sherkel on February 22, 2008, 07:28:12 pm
So anyway, one of my main pastimes at school is "fiddling" with my "calculator" (TI-84+). So I've decided to post a few of the tons of programs I have. Maybe you could even learn a bit about the programming if you didn't know. I don't want anybody saying "come on this stuff's simple and pointless!" I know some of them are, but one's actually an awesome (I guess) game called DX. So anyway, I'll post source codes and all. Once I find my link I'll be able to upload them as files.
NOW TAKING REQUESTS!
prgmBLACKJA2 - This is called "Blackjack2" as it being made after the original BLACKJAC, which just wasn't good at all. The code for this is pretty long, but anyway:
0->(arrow, store to)J
0->K
0->L
0->O
0->P
0->Q
randInt(2,11)->H
randInt(2,11)->I
randInt(2,11)->M
If H+I=21 and H=11
1->H
If H+I=21 and I=11
1->I
H+I->R
Pause {H,I,J,K,L,R}
If H+I=21
Disp "BLACKJACK!"
If H+I=21
Goto Y
Disp "HIT?"
Prompt S
If S≠0 and S≠1
Goto X
If S=1
randInt(2,11)->J
If S=0
Goto Y
If H+I+J>21 and J=11
1->J
H+I+J->R
Pause {H,I,J,K,L,R}
If R>21
Disp "BUST"
If R>21
Goto Y
Disp "HIT?"
Prompt S
If S≠1 and S≠0
Goto X
If S=1
randInt(2,11)->K
If S=0
Goto Y
If H+I+J+K>21 and K=11
1->K
H+I+J+K->R
Pause {H,I,J,K,L,R}
If R>21
Disp "BUST"
If R>21
Goto Y
Disp "HIT?"
Prompt S
If S≠1 and S≠0
Goto X
If S=1
randInt(2,11)->L
If S=0
Goto Y
If H+I+J+K+L>21 and L=11
1->L
H+I+J+K+L->R
If R>21
Disp "BUST"
If R>21
Goto Y
Lbl Y
randInt(2,11)->M
randInt(2,11)->N
If M+N>21 and M=11
1->M
M+N->T
If M+N≤16
randInt(2,11)->o
If M+N+O->21 and O=11
1->O
M+N+O->T
If M+N+O≤16
randInt(2,11)->P
If M+N+O+P>21 and P=11
1->P
M+N+O+P->T
If M+N+O+P≤16
randInt(2,11)->Q
If M+N+O+P+Q>21 and Q=11
1->Q
M+N+O+P+Q->T
Lbl Y
Pause {H,I,J,K,L,R}
Pause {M,N,O,P,Q,T}
If R>21 and T>21
Disp "TIE"
If R=T
Disp "TIE"
If R>T and R<22 and T<22
Disp "YOU WN"
If T>R and R<22 and T<22
Disp "YOU LOSE"
If R<22 and T>21
Disp "YOU WIN"
If T<22 and R>21
Disp "YOU LOSE"
Lbl X
If S≠0 and S≠1
Disp "ERROR"

There are a few messy things in the coding in this I realized, such as two "Lbl Y"s, but they haven't seemed to ever affect the programming. Also I programmed it to say "BUST" on the first turn if the total was over 21, but that's not possible in Blackjack, so it never comes into effect. This was also before my knowledge of "Output(", but it looks cleaner without overlapping things on the screen. When it prompts you to hit (S), choose 1 to hit and 0 not to. This was before I thought of "1 or anything else" so I wasted my time on an error thing. The way the AI works is it keeps hitting until it is over 16. Anyway, hope you enjoy! (if you have a compatible calculator!)
EDIT: Nothing! :???: Seriously I didn't change anything!
Title: Re: TI-83/TI-83+/TI-83+ SE/TI-84+/TI-84+ SE, etc. programs (in BASIC)
Post by: SCf3 on February 25, 2008, 04:53:38 pm
Damn the teacher took all the games outta ours.
We use Navigator...for school stuff :P
but its pretty intense.
I <3 the Alpha function
Title: Re: TI-83/TI-83+/TI-83+ SE/TI-84+/TI-84+ SE, etc. programs (in BASIC)
Post by: Sherkel on February 26, 2008, 04:49:06 pm
What? The delete your hard work every time you finish? Or do you mean Apps like PuzzPack? Did you put Blackjack by the way?
Also that gives me an idea. What about a fake memory menu to fool them? I suck at custom menus, but it could work!
Title: Re: TI-83/TI-83+/TI-83+ SE/TI-84+/TI-84+ SE, etc. programs (in BASIC)
Post by: Sherkel on March 01, 2008, 05:42:36 pm
I'm bored...here's more, if anybody wants...
prgmCOUNTDON - This counts down seconds! This probaly won't work on any below 84+, as you do need the time support. Good if you're bored in class or something I guess.
Menu("   Countdown    ","Start",A) (you will need to have somehow gotten lowercase for this. Also, there's 3 spaces before Countdown and 4 after)
Lbl A
ClrHome
Disp "Minutes?"
Prompt M
Disp "Seconds?"
Prompt S
60M+S->S
S
Ans->A
Lbl D
ClrHome
If Ans≠A
S-1->S
Lbl B
Output(1,1,S)
If S=0
Goto E
startTmr->A
Lbl C
startTmr
If Ans≠A
Goto D
If Ans=A
Goto C
Lbl E
If you don't got lowercase, simply use uppercase instead.
And here's another we may like...Decamark invasion!
prgmDECAMARK
ClrDraw
0->Xmin
0->Ymin
94->Xmax
62->Ymax
For(A,0,10)
randInt(0,94)->B
randInt(0,62)->C
Circle(B,C,5)
Circle(B,C,8)
B-1->D
62-(C+3)->E
Text(E,D,"?")
End
If it appears too near the edgeof the screen it causes an error :( so that's why it only does it 10 times. Still pretty cool though!
Title: Re: TI-83/TI-83+/TI-83+ SE/TI-84+/TI-84+ SE, etc. programs (in BASIC)
Post by: Jolteon on April 19, 2008, 11:29:39 am
errr... Makes no sense to me.. :???: :???: :???:
Title: Re: TI-83/TI-83+/TI-83+ SE/TI-84+/TI-84+ SE, etc. programs (in BASIC)
Post by: SCf3 on April 19, 2008, 06:22:15 pm
Haha I wanna find out how to screw one of these calculators up xD
Lol.
GLITCHEZZ FOO!
Title: Re: TI-83/TI-83+/TI-83+ SE/TI-84+/TI-84+ SE, etc. programs (in BASIC)
Post by: Zach the Glitch Buster on April 20, 2008, 12:35:06 pm
Haha I wanna find out how to screw one of these calculators up xD
Lol.
GLITCHEZZ FOO!

Um, yeah about that. If you asked the question in a slightly formal way, then there would be no problem. But seeing as you ended with unintelligent words, your look like an idiot.
Warn O Meter 2.0 + 5
Title: Re: TI-83/TI-83+/TI-83+ SE/TI-84+/TI-84+ SE, etc. programs (in BASIC)
Post by: Sherkel on April 24, 2008, 05:16:30 pm
Now taking requests! Please post here people!
EDIT: Bored, meh I'll post more:
prgmSECURIT2
This is a security program that prompts a password. It is made to run on startup (there is an App you can get somewhere that lets you do that). The starting password is 4824, the key being "TI84" (T is on 9, on the I is x squared to get a 2 from, and then 84). If you want to change it then just change the number to something else (it appears a couple of times in the code). Note, it has to be a number.
Lbl B
ClrHome
Disp "Enter password"
Prompt A
If A=4284
Goto A
ClrHome
Disp "Invalid password"
Pause
Disp "Stop using this"
Disp "calculator"
Disp "immediately!"
Pause
Goto B
Lbl A
Simple, but effective. Perfect for those people that are all over you for your progs!
Anyway, you were wondering about SECURIT1? Hahahahaha!
prgmSECURITY
This is a prank program! Good for people who don't know much about the TI's capabilities. Note it doesn't actually scan your finger! XD
Lbl C
ClrHome
Disp "CALCULATOR IDLE"
Disp "SECURITY" (you're meant to run it when you leave the table)
Disp "PRESS ENTER TO"
Disp "START SCAN"
Pause
ClrHome
Disp "PUT FINGER IN"
Disp "MIDDLE OF SCREEN"
Pause
ClrDraw
0->Xmin:0->Ymin
94->Xmax
62->Ymax
Circle(47,31,13)
0->A
Lbl A
If A=62
Goto B
Line(0,62-A,94,62-A)
A+1->A
Goto A
Lbl B
ClrHome
Disp "INVALID USER"
Pause
Disp "STOP USING THIS"
Disp "CALCULATOR"
Disp "IMMEDIATELY!"
Pause
Goto C
There is actually no way to get out of it, just use on to get a Break error.