I made a number guessing program using xlib and anything I could do to attempt to make a space wasting game. It is in TI BASIC. There is settings. The inverse screen doesn't work and I need some suggestions on what settings to add besides difficulty. I might post the source.


update: Ironically, I optimized it out of habit Laughing
add everything from animations to extreme guessing (1 digit to 34879328579475725 digits) Smile
I was thinking of making it like two people talking. The guessing part is a good idea (in my opinion)! I think I could make that as the "easy" difficulty as a joke. Everyone that tests this gets the number in under 10 tries. My max. record is 30 tries.
Also add a feature in which they cannot guess the number right (extreme mode) It will be fun, looking at the user's faces when they've tried every single number in the known world and still cannot get it right. Smiling Cat
imagine the look on their faces if I used random decimals (rand) Smile
guess: 1
too high
guess:0
too low
... (rage quit)
Or exact strings. Like "the quick brown fox jumps over the lazy bat" Then they will quit before they try. Or you can set a constant string every time so only you can reset it.
hm... I am updating with my calc sitting in front of my computer refreshing the page.
or even make it super slow.
apparently the default is easy(1-10), but it swaps to hard (1-1000) when you play. Let's call that a feature, not a bug.

Update:
Here's the source after your features(note: inverse does not work. Help me plz?)[I used source coder]:

Code:
If 1337!=DetectDCS(
Then
Disp "Need Doors CS","dcs.cemetech.net
Return
End
1->D:DelVar G
Lbl M
Menu(" Guessing Game  ","Play!",P,"Settings!",S,"Credits/Info!",C,"Quit?",Q
Lbl S
Menu("Settings","Difficulty",SD,"Inverse",SI,"Back",SB
Lbl SD
Menu("Difficulty","Impossible",DI,"Extreme",DX,"Hard",DH,"Normal",DN,"Easy(Default)",DE,"Random",DR,"Back",SB
Lbl DI:5->D
Goto M
Lbl DX:4->D
Goto M
Lbl DH:3->D
Goto M
Lbl DN:2->D
Goto M
Lbl DE:1->D
Goto M
Lbl DR
randInt(1,5->D
Goto M
Goto SD
Lbl SB
Goto M
Lbl SI
DrawText(6,2,2
Goto M
Goto SI
Lbl P
ClrHome
If D=4
randInt(999999999999999996499,10000199466579647958796986943795679567961395->N
If D=4
rand->N
If D=3
randInt(1,1000->N
If D=2
randInt(1,100->N
If D=1
randInt(1,10->N
While G!=N
A+1->A
Input "Guess a number:",G
If G>N:Then
Pause "Too high!
ClrHome
End
If G<N:Then
Pause "Too low!
ClearScreen(
End
End
ClrHome
Disp "You got it!
Disp "It took you
Output(2,13,A
Output(3,1,"guesses.
Pause :Goto M
Goto P
Lbl C
ClrHome
AxesOff:GridOff:CoordOff
Text(0,0,"Game by Andy X.
For(theta,1,500
End
Text(6,0,"Code by Andy X.
For(theta,1,500
End
Text(12,0,"Idea sort of by Andy X.
For(theta,1,500
End
Text(18,0,"Debugged by Andy X.
For(theta,1,500
End
Text(24,0,"Uses Xlib by Tr1p1ea and"
Text(30,0,"Picarc by lambian"
Pause :Goto M
Goto C
Lbl Q
ClrHome
TextMode(0)
Disp "Thank you for","playing!
Stop
Goto Q
There is a Flappy 2048 clone. Why not a Flappy Number Guesser? (You have to guess the number from 1 to 30 before you can jump, then once you do, you can jump as much as you want until you crossed the next pipe. Once you crossed a pipe, you need to guess another number before you can jump again.
princetonlion.tibd wrote:

Code:
If D=4
randInt(999999999999999996499,10000199466579647958796986943795679567961395->N
If D=4
rand->N

Dear me, that IS a waste of space. Laughing

Small trick: "For(theta,1,500:End" can be switched out for "rand(43)" – that should be accurate to within one second over 100 passes.
try and make it so you cannot end program without guessing correctly.
1. The theta part is for a delay(think that's obvious)
2. I have just started learning TI BASIC (sort of)
3. I have no idea how to do some of these.
DJ_O wrote:
There is a Flappy 2048 clone. Why not a Flappy Number Guesser? (You have to guess the number from 1 to 30 before you can jump, then once you do, you can jump as much as you want until you crossed the next pipe. Once you crossed a pipe, you need to guess another number before you can jump again.


Also, I have no idea how to make that with BASIC. I'm thinking of using sprites to do something. Have to work out xlib first
Why not Axe?
Eightx84 wrote:
Why not Axe?


Why not assembly? Smile Could be a great learning experience!
MateoConLechuga wrote:
Eightx84 wrote:
Why not Axe?


Why not assembly? Smile Could be a great learning experience!

Yeah... I'll try to learn that. I am still struggling with axe and don't have the proper software(and probably wont get it) to program Assembly. I learn most of my programming by reading manuals.
Well, Axe is for people experienced with BASIC. It has many more features optimized for speed. However, most of my DIY Axe programs crash the entire calc. Not recommended without downloading the app for TI-83+.

http://www.ticalc.org/archives/files/fileinfo/456/45659.html

Because it has a command list.
I do have the app and a printed out manual

UPDATE:
I might need some help for the axe version.
I think I fixed some bugs with the BASIC version.




updated source (from source coder 3)

:"Advanced Guessing Game V.1.2
:DCS
"1E22040810100010"
If 1337!=DetectDCS(
Then
Disp "Need Doors CS","dcs.cemetech.net
Return
End
1->D:DelVar G
Lbl M
Menu("-Guessing Game--","Play the game!",P,"Settings!",S,"Credits/Info!",C,"Cheat Code",CC,"Quit Game",Q
Lbl S
Menu("Settings","Difficulty",SD,"Back",SB
Lbl SD
Menu("Difficulty","Impossible",DI,"Extreme",DX,"Hard",DH,"Normal",DN,"Easy(Default)",DE,"Random",DR,"Back",S
Lbl DI
5->D
Goto M
Lbl DX
4->D
Goto M
Lbl DH
3->D
Goto M
Lbl DN
2->D
Goto M
Lbl DE
1->D
Goto M
Lbl DR
randInt(1,5->D
Goto M
Goto SD
Lbl SB
Goto M
Goto SI
Lbl P
DelVar A
DelVar G
ClrHome
If D=5
randInt(999999999999999996499,10000199466579647958796986943795679567961395->N
If D=4
rand->N
If D=3
randInt(1,1000000->N
If D=2
randInt(1,100000->N
If D=1
randInt(1,10000->N
While G!=N
A+1->A
Input "Guess a number:",G
If G>N:Then
Pause "Too high!
ClrHome
End
If G<N:Then
Pause "Too low!
ClrHome
End
End
ClrHome
Disp "You got it!
Disp "It took you
Output(2,13,A
Output(3,1,"guesses.
Pause
Goto M
Lbl C
ClrHome
AxesOff
GridOff:CoordOff
Text(0,0,"Game by princetonlion.tibd
Text(6,0,"Uses Xlib by Tr1p1ea and
Text(12,0,"Picarc by lambian"
Text(18,0,"Contact game creator at:"
Text(24,0,"princetonlion.tibd@gmail.com
Pause
Goto M
Lbl CC
ClrHome
Input "Cheat code:",Str1
If Str1="TI-BASIC-RULZ"
Then
Goto Q
Else
Pause "Fail"
Goto M
Lbl Q
ClrHome
DelVar ADelVar GDelVar NDelVar D
Disp "Thank you for","playing!
Pause
Return
Update source:
It is now 1768 bytes (but not in my calc, on source coder 3)
:"Advanced Guessing Game V.1.3
:DCS
"1E22040810100010"
If 1337!=DetectDCS(
Then
Disp "Need Doors CS","dcs.cemetech.net
Return
End
1->D:DelVar G
Pause "Warning: Work in progress"
Menu("Continue?", "Yes",M,"No", Q


Lbl M
Menu("-Guessing Game--","Play the game!",P,"Settings!",S,"Credits/Info!",C,"Cheat Code",CC,"Quit Game",Q
Lbl S
Menu("Settings","Difficulty",SD,"Back",SB
Lbl SD
Menu("Difficulty","Impossible",DI,"Extreme",DX,"Hard",DH,"Normal",DN,"Easy(Default)",DE,"Random",DR,"Back",S
Lbl DI
5->D
Goto M
Lbl DX
4->D
Goto M
Lbl DH
3->D
Goto M
Lbl DN
2->D
Goto M
Lbl DE
1->D
Goto M
Lbl DR
randInt(1,5->D
Goto M
Goto SD
Lbl SB
Goto M
Goto SI
Lbl P
DelVar A
DelVar G
ClrHome
If D=5
randInt(-1234567891000023139091084,100001994665791920394859647958796986943795679567961395->N
If D=4
rand->N
If D=3
randInt(1,1000000->N
If D=2
randInt(1,100000->N
If D=1
randInt(1,10000->N
While G!=N
A+1->A
Input "Guess a number:",G
If G>N:Then
Pause "Too high!
ClrHome
End
If G<N:Then
Pause "Too low!
ClrHome
End
End
ClrHome
Disp "You got it!,
Disp "It took you
Output(2,13,A
Output(3,1,"guesses.
Pause
Goto M
Lbl C
ClrHome
AxesOff
GridOff:CoordOff
Text(0,0,"Game by princetonlion.tibd
Text(6,0,"Uses Xlib by Tr1p1ea and
Text(12,0,"Picarc by lambian
Text(18,0,"Contact game creator at:
Text(24,0,"princetonlion.tibd@gmail.com
Pause
Goto M
Lbl CC
ClrHome
Input "Cheat code:",Str1
If Str1="TI-BASIC-RULZ"
Then
Goto Q
Else
Pause "Wrong!!"
Goto M
Lbl Q
ClrHome
DelVar ADelVar GDelVar NDelVar D
Disp "Thank you for","playing!
Pause
Return
  
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
Page 1 of 2
» All times are UTC - 5 Hours
 
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

 

Advertisement