Main Menu
Main Page
Forums
Recent changes
Random page
Help

Databases
GlitchDex
AttackDex
ItemDex
TrainerDex
TypeDex
UnownDex
More

Major Glitches
Trainer escape glitch
Old man trick
Celebi Egg trick
Select glitches (Japan)
SRAM glitch
CoolTrainer♀ corruption
LOL glitch
Rival LOL glitch
Super Glitch
ZZAZZ glitch
Pomeg corruption glitch (Glitzer Popping)
Tweaking
Elite Four door glitch (Japan)
Pokémon merge glitch
Pokémon cloning
Time Capsule exploit
Arbitrary code execution
Coin Case glitches
More

Other Glitch Categories
Glitches by generation
Glitches between two generations
Japan-only/language specific glitches
Music glitches
Natural glitches
Non-core series glitches
Non-Pokémon glitches
Officially acknowledged glitches
Recurring glitches
Dead glitches

References
Pokémon GameShark codes
The Big HEX List
Glitch Pokémon cries
GB programming
Curiosities
Debugging features
Easter eggs
Error traps
Glitch areas
Glitch myths
Non-glitch exploits
Placeholder texts
Pokémon glitch terminology
Unused content and prerelease information

Useful Tools
8F Helper
GBz80 to Items
Old man trick name generator
PATH (Prama's Advanced Tweaking Heaven)
Save file editors
Special stat/Pokémon converter
Trainer escape Trainer Pokémon finder

Affiliates
Legendary Star Blob 2 (Hakuda)
Pokémon Speedruns wiki
PRAMA Initiative
Become an affiliate!

Technical
Site Source Code

Search Wiki

 

Search Forums

 

Author Topic: TI-83/TI-83+/TI-83+ SE/TI-84+/TI-84+ SE, etc. programs (in BASIC) NOW TAKING REQ  (Read 1598 times)

0 Members and 1 Guest are viewing this topic.

Sherkel

  • Reasonably.
  • Staff
  • *****
  • Offline Offline
  • Gender: Male
  • Reasonably.
    • View Profile
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!
« Last Edit: April 24, 2008, 05:18:21 pm by Prof. Sherkel »

SCf3

  • Member+
  • *
  • Offline Offline
  • Gender: Female
  • I like shorts! They're comfy and easy to wear.
    • View Profile
Re: TI-83/TI-83+/TI-83+ SE/TI-84+/TI-84+ SE, etc. programs (in BASIC)
« Reply #1 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
Posts:  1,023 (1.746 per day) Date Registered:  May 08, 2006, 02:54:50 am


Sherkel

  • Reasonably.
  • Staff
  • *****
  • Offline Offline
  • Gender: Male
  • Reasonably.
    • View Profile
Re: TI-83/TI-83+/TI-83+ SE/TI-84+/TI-84+ SE, etc. programs (in BASIC)
« Reply #2 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!

Sherkel

  • Reasonably.
  • Staff
  • *****
  • Offline Offline
  • Gender: Male
  • Reasonably.
    • View Profile
Re: TI-83/TI-83+/TI-83+ SE/TI-84+/TI-84+ SE, etc. programs (in BASIC)
« Reply #3 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!
« Last Edit: March 01, 2008, 05:47:55 pm by Prof. Sherkel »

Jolteon

  • DESU~
  • Decamark Researcher+
  • *
  • Offline Offline
  • Gender: Male
  • DESU~
    • View Profile
    • DESU~
Re: TI-83/TI-83+/TI-83+ SE/TI-84+/TI-84+ SE, etc. programs (in BASIC)
« Reply #4 on: April 19, 2008, 11:29:39 am »
errr... Makes no sense to me.. :???: :???: :???:
« Last Edit: April 19, 2008, 11:30:03 am by ?????(000) »
DESU~ DESU~ DESU~ DESU~ DESU~ DESU~ DESU~? DESU~ DESU~ DESU~ DESU~ DESU~ DESU~ DESU~ DESU~ DESU~ DESU~.

DESU~ DESU~ DESU~

SCf3

  • Member+
  • *
  • Offline Offline
  • Gender: Female
  • I like shorts! They're comfy and easy to wear.
    • View Profile
Re: TI-83/TI-83+/TI-83+ SE/TI-84+/TI-84+ SE, etc. programs (in BASIC)
« Reply #5 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!
Posts:  1,023 (1.746 per day) Date Registered:  May 08, 2006, 02:54:50 am


Zach the Glitch Buster

  • Scientist
  • Administrator
  • *****
  • Offline Offline
  • Gender: Male
    • View Profile
Re: TI-83/TI-83+/TI-83+ SE/TI-84+/TI-84+ SE, etc. programs (in BASIC)
« Reply #6 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
« Last Edit: April 25, 2008, 01:22:57 am by zach the glitch buster »

I have a Youtube account, pass it on
     http://www.youtube.com/user/zachtheglitchbuster
I have a twitter as well
@ZacGlitchBuster
I'm a Mac user.

Sherkel

  • Reasonably.
  • Staff
  • *****
  • Offline Offline
  • Gender: Male
  • Reasonably.
    • View Profile
Re: TI-83/TI-83+/TI-83+ SE/TI-84+/TI-84+ SE, etc. programs (in BASIC)
« Reply #7 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.
« Last Edit: April 24, 2008, 05:32:05 pm by Prof. Sherkel »