Baseball-guess-the-number

wifijoe 27 Jan 2017 20:50

This is one of the first things I made on my calculator, and after going through it and optimizing it myself, I was wondering if it could be any smaller and do the same thing, so, here it is

*side note* This is meant for a ti-83+! This code will run perfectly on it and it only, ti-84(or newer) will run the buffer For( loops too fast(and ti-83 and older will run it too slow), and on any digital display, the game will not stretch to fit the screen. I do not have any time commands at my fingertips.

```
ClrHome
Disp "1-6
Repeat K
getKey→K
End
If K=92:Then
"1-3→Str1
3→D
End
If K=93:Then
5→D
"1-5→Str1
End
If K=94:Then
"1-10→Str1
10→D
End
if K=82:Then
"1-50→Str1
50→D
End
If K=84:Then
1000→D
"1-1000→Str1
End
randInt(1,D→E
ForC,1,3
ClrHome
Disp Str1
Input A
ClrHome
Disp"---------------- //16 - signs
For(B,1,12
If B=1:Then
Output(5,9,"θ
Output(2,8,"º //a little square-thing
End
If B=6:Then
Output(2,8," //one space
Output(4,8,"º
Output(5,8,"-
End
If B=12:then
Output(4,8," //one space
Output(5,8," //one space
Output(4,10,"/
If A>E
Output(8,10,"º
If A<E
Output(8,6,"º
If A=E
Output(1,8,"º
End
End
For(B,1,100
End
ClrHome
If A≠E and C=1
Disp " STRIKE ONE!
If A≠E and C=2
disp" STRIKE TWO!
If A≠E and C=3:Then
Disp " STRIKE THREE!
For(B,1,125
End
ClrHome
Output(1,4,"YOU'RE OUT!
Stop
End
If A=E:Then
Output(1,4,"HOME RUN!
Stop
End
For(B,1,125
End
End
```