Guessing game Update

Forum Attachments

Summary:

This is the first game I made. It uses 4 strings (String 1, 2, and 3must be set to “--------“), it also uses 3 lists (lSCO1, lSCO2, lSCO3. Each should be set to “100”) Keep in mind that this is my first game. You can optimize it if you want. I might make an update that adds more difficulties. Please let me know what you think about this and if I should update it.

Guessing game

(account deleted) 01 Dec 2017 20:12

The programs name is “GUESS”

:ClrHome
:Goto  0
:Lbl  0
:Menu(“GUESS THE NUMBER”,”PLAY”,1,”HIGHSCORES”,2,”QUIT”,3
:Lbl  1
:0->S
:ClrHome
:Output(3,1,”RANGE IS 1-100”)
:Pause
:ClrHome
:randInt(1,100)->A
:Goto  4
:Lbl  4
:ClrHome
:Output(5,1,”GUESS”)
:Input  B
:If  B>100:Then
:S+1->S
:ClrHome
:Output(3,7,”!!!GUESS OUT!!!”)
:Output(4,7,”!!!OF RANGE.!!!”)
:Output(6,7,”YOUR GUESS: “)
:Output(6,19,B)
:Output(8,6,”NUMBER LIMIT: 100”)
:Output(10,2,”PRESS ENTER TO TRY AGAIN”)
:Pause
:Goto  4
:Else
:If  B<A:Then
:S+1->S
:ClrHome
:Output(5,9,”TOO LOW!”)
:Output(10,2,”PRESS ENTER TO TRY AGAIN”)
:Pause
:Goto  4
:Else
:If  B>A:Then
:S+1->S
:ClrHome
:Output(5,8,”!TOO HIGH!”)
:Output(10,2,”PRESS ENTER TO TRY AGAIN”)
:Pause
:Goto  4
:Else
:If  B=A:Then
:S+1->S
:ClrHome
:Output(5,6,”!!YOU GOT IT !!”)
:Output(10,2,”PRESS ENTER TO CONTINUE”)
:Pause
:ClrHome
:Output(4,9,”SCORE: “)
:Output(4,16,S)
:Output(10,2,”PRESS ENTER TO CONTINUE”)
:Pause
:ClrHome
:If  S<lSCO3(1):Then
:Goto  5
:Else
:Goto  0
:Lbl  5
:Output(1,1,”NEW HIGHSCORE!!!”)
:Output(3,1,”PRESS ENTER TO SAVE SCORE”)
:Pause
:ClrHome
:Input  Str4
:If  S<lSCO1(1):Then
:lSCO2(1)->lSCO3(1)
:lSCO1(1)->lSCO2(1)
:S->lSCO1(1)
:Str2->Str3
:Str1->Str2
:Str4->Str1
:Goto  0
:Else
:Goto  6
:Lbl  6
:If  S<lSCO2(1):Then
:lSCO2(1)->lSCO3(1)
:S->lSCO2(1)
:Str2->Str3
:Str4->Str2
:Else
:Goto  7
:Lbl  7
:If  S<lSCO3(1):Then
:S->lSCO3(1)
:Str4->Str3
:Else
:Goto  0
:Lbl  2
:ClrHome
:Output(1,1,”********HIGHSCORES********”)
:Output(2,1,”NAME:”)
:Output(2,21,”SCORE:”)
:Output(3,1,”----------------------------“)
:Output(4,1,”1)”)
:Output(5,1,”2)”)
:Output(6,1,”3)”)
:Output(4,4,Str1)
:Output(5,4,Str2)
:Output(6,4,Str3)
:Output(4,24,lSCO1(1))
:Output(5,24,lSCO2(1))
:Output(6,24,lSCO3(1))
:Output(9,8,”BACK=ENTER”)
:Pause
:Goto  0
:Lbl  3
:ClrHome
:Stop

Re: Guessing game

Michael2_3B 01 Dec 2017 20:44

Nice job, for a first time. It can be optimized quite a bit though, and there's no reason for it to take up as many lines as it did. Try looking here for some help with optimizations.

In addition, here's one thing I saw in your program:

Goto 0
Lbl 0

I saw the same thing with a lot of your other labels too. The Goto 0 before the Lbl 0 is unnecessary. If you remove it, the code will still function properly. What you were doing was basically telling the program to go do something when it was already going to do it a fraction of a second later.

Last edited on 01 Dec 2017 20:46 by Michael2_3B Show more

Re: Guessing game

Trenly 01 Dec 2017 21:12

I also see a lot of memory-leaks

Re: Guessing game

Michael2_3B 01 Dec 2017 21:16

Indeed. To expand on this, there are several If:Then statements in the program, but I see absolutely zero End statements to close them off.

Re: Guessing game

(account deleted) 01 Dec 2017 21:29

Trenly 1. What would you recommend me doing in order to fix these memory leaks?
I would like to know so I can make it take up as little memory as possible.

Last edited on 01 Dec 2017 21:37 by (account deleted) Show more

Re: Guessing game

Michael2_3B 01 Dec 2017 21:35

Well you need to make sure to include End statements, and when you're within a block of code like an If:Then, don't jump out of it with a Goto. You always need to close the block before going somewhere else.

I believe Battlesquid or someone may try to optimize/fix your program here in a bit.

Re: Guessing game

(account deleted) 01 Dec 2017 21:25

I have that Lbl 0 there because there are other places in the program that lead back to the spot where Lbl 0 is.

Re: Guessing game

Dr Professor Pat 01 Dec 2017 21:30

You can still have the Lbl with the Goto in front of it

---

JOIN THE SEUSCPC TODAY

_{South Eastern United States Calculator Programming Club}

A Proud Supporter of The Ti BASIC Community

Re: Guessing game

Michael2_3B 01 Dec 2017 21:32

I know that. You can keep the Lbl 0. But there's no need for the Goto 0 before it because the program will go to Lbl 0 by default anyways, just following the flow of the code.

This also applies to places where you have Goto 4: Lbl 4, or Goto 6: Lbl 6, etc.

Re: Guessing game

(account deleted) 07 Dec 2017 15:23

UPDATE!!!!!!!!!

New code without memory leaks. Courtesy of “Trenly”

prgm:GUESS

:ClrHome
:Lbl  0
:SetUpEditor ʟSCO
:3→dim(ʟSCO)
:0→W
:Menu("Guess the number","Play",1,"Highscores",2,”ABOUT”,3,”CREATORS”,4,"Quit",5
:Lbl  1
:0→S
:ClrHome
:Output(3,1,"Range is 1-100”)
:Pause 
:ClrHome
:randInt(1,100→A)
:Lbl  6
:ClrHome
:Output(5,1,"Guess”)
:Input  B
:S+1→S
:1→T
:ClrHome  
If  T(B>100):Then
:0→T
:Output(3,7,"!!!GUESS OUT!!!”)
:Output(4,7,"!!!OF RANGE.!!!”)
:Output(6,7,"YOUR GUESS:”)
:Output(6,19,B”)
:Output(8,6,"NUMBER LIMIT: 100”)
:Output(10,2,"PRESS ENTER TO TRY AGAIN”)
:End
:If  B<A:Then
:Output(5,9,"TOO LOW!”)
:Output(10,2,"PRESS ENTER TO TRY AGAIN”)
:End
:If  T(B>A):Then
:Output(5,8,"!TOO HIGH!”)
:Output(10,2,"PRESS ENTER TO TRY AGAIN”)
:End
:If  B=A:Then
:1→W
:Output(5,6,"!!YOU GOT IT !!”)
:Output(10,2,"PRESS ENTER TO CONTINUE”)
:Pause
:ClrHome 
:Output(4,9,"SCORE:”)
:Output(4,16,S)
:Output(10,2,"PRESS ENTER TO CONTINUE”)
:Pause 
:ClrHome 
:End
:If  not(W:Goto 6)
:If  sum(W(S<ʟSCO))
:Then
:Output(1,1,"NEW HIGHSCORE!!!”)
:Output(3,1,"PRESS ENTER TO SAVE SCORE”)
:Pause 
:ClrHome
:Input  Str4
:sum(S<ʟSCO→L)
:4→dim(ʟSCO)
:For(E,0,L)
:ʟSCO(3-E→ʟSCO(4-E)
:End
:S→ʟSCO(L)
:If L=1
:Str4→Str3
:If L=2
:Then
:Str2→Str3
:Str4→Str2
:End
:If L=3:Then
:Str2→Str3
:Str1→Str2
:Str4→Str1
:End
:ClrHome
:Output(1,1,"*** Output(2,1,"NAME:”)
:Output(2,21,"SCORE:”)
:Output(3,1,"--------------------------“)
:Output(4,1,"1)”)
:Output(5,1,"2)”)
:Output(6,1,"3)”)
:Output(4,4,Str1)
:Output(5,4,Str2)
:Output(6,4,Str3)
:Output(4,24,ʟSCO(1))
:Output(5,24,ʟSCO(2))
:Output(6,24,ʟSCO(3))
:Output(8,8,"BACK=ENTER”)
:End
:Pause
:Goto  0
:Lbl 2
:ClrHome
:Output(1,1,"***HIGHSCORES***”)
:Output(2,1,"NAME:”)
:Output(2,21,"SCORE:”)
:Output(3,1,"--------------------------“)
:Output(4,1,"1)”)
:Output(5,1,"2)”)
:Output(6,1,"3)”)
:Output(4,4,Str1)
:Output(5,4,Str2)
:Output(6,4,Str3)
:Output(4,24,ʟSCO(1))
:Output(5,24,ʟSCO(2))
:Output(6,24,ʟSCO(3))
:Output(8,8,"BACK=ENTER”)
:Pause
:Goto 0
:Lbl  3
:ClrHome
:Output(1,10,”ABOUT:”)
:Output(2,1,”--------------------------“)
:Output(3,1,”GUESS IS A GUESSING GAME IN WHICH THE CALCULATOR GENERATES ONE RANDOM NUMBER FROM 1-100 AND YOU HAVE TO GUESS THAT NUMBER IN THE LEAST AMOUNT OF TRYS.”)
:Output(9,3,”PRESS ENTER TO GO BACK”)
:Pause
:Goto 0
:Lbl  4
:ClrHome
:Output(1,1,”CREATORS::”)
:Output(1,21,”ROLE:”)
:Output(2,1,”--------------------------”)
:Output(3,1,”BIGBOI1234”)
:Output(3,7,”MAIN CREATOR”)
:Output(4,1,”TRENLY”)
:Output(4,9,”DEBUGGER
:Output(6,2,”TIBASICDEV.WIKIDOT.COM
:Output(8,8,”BACK=ENTER”)
:Pause
:Goto 0
:Lbl  5
:ClrHome
:Stop

Re: Guessing game

(account deleted) 07 Dec 2017 18:35

For simple optimization, take away the extra "'s and )'s.
On the

:SetUpEditor ʟSCO

part, all you nee to do is

:SetUpEditor SCO

Every byte helps!

---

Hewwo, my name is Achak Claw. I was formerly BioHazard.

Re: Guessing game

(account deleted) 01 Dec 2017 21:41

In fact, you don't even need labels. This is a much simpler game code I have found and editted it.

:ClrHome
:SetUpEditor GUESS
:1→dim(∟GUESS
:randInt(1,1000)→N
:Disp "Guess a number!
:For(I,1,10)
:Input "Guess=",G
:If N=G:Then
:Disp "You've got it!","Guesses:",I
:If I<∟GUESS(1:Then
:I→∟GUESS(1
:Disp "New High Score!
:Return
:End
:End
"Higher...
:If N<G
"Lower...
:Disp Ans
:End
:Disp "You lose!","The number was:",N

This version you can use, which has no memory leaks.

---

Hewwo, my name is Achak Claw. I was formerly BioHazard.

Last edited on 03 Dec 2017 03:25 by (account deleted) Show more