Betting game

Forum Attachments

Summary:

I created a betting if you want to take a look at it

Betting game

DestroboyB 24 Jan 2017 23:18

So I created a betting game. I was wondering if anyone wanted to take a look at it, see if I could optimize it, suggest any changes or fun additions, and have fun with it:

ClrHome
Lbl A
If J≥1000 or J≤0
100→J
End
ClrHome
rand2→B
rand2→C
Goto D
Lbl E
B≤1→H
Menu("How much?","1 Dollar",Q,"5 Dollars",R,"10 Dollars",S,"20 Dollars",T,"50 Dollars",U,"100 Dollars",V
Lbl F
B≤1 and C≤1→H
Menu("How much?","1 Dollar",K,"5 Dollars",L,"10 Dollars",M,"20 Dollars",N,"50 Dollars",O,"100 Dollars",P
Lbl D
Menu("What do you choose?","1/2",E,"1/4",F,"Exit",AC
Lbl I
If H:Then
Disp "It's your lucky day
Else
Disp "You saw a black cat
End
Pause
Lbl AF
Disp "You have",J,"Dollars
Pause
If J≥1000 or J=0:Then
Goto W
Else
Goto A
Lbl Q
If H<1:Then
J-1→J
Else 
J-1→J
End
Goto I
Lbl R
If (J-5)<(J=0):Then
Goto AA
End
If H<1:Then
J-5→J
Else
J+5→J
End
Goto I
Lbl S
If (J-10)<(J=0):Then
Goto AA
End
If H<1:Then
J-10→J
Else
J+10→J
End
Goto I
Lbl T
If (J-20)<(J=0):Then
Goto AA
End
If H<1:Then
J-20→J
Else
J+20→J
End
Goto I
Lbl U
If (J-50)<(J=0):Then
Goto AA
End
If H<1:Then
J-50→J
Else
J+50→J
End
Goto I
Lbl V
If (J-100)<(J=0):Then
Goto AA
End
If H<1:Then
J-100→J
0→G         «Zero
Else
J+100→J
1→G
End
Goto AE
Lbl K
If H<1:Then
J-1→J
Else
J+2→J
End
Goto I
Lbl L
If (J-5)<(J=0):Then
Goto AB
End
If H<1:Then
J-5→J
Else
J+10→J
End
Goto I
Lbl M
If (J-10)<(J=0):Then
Goto AB
End
If H<1:Then
J-10→J
Else
J+20→J
End
Goto I
Lbl N
If (J-20)<(J=0):Then
Goto AB
End
If H<1:Then
J-20→J
Else
J+40→J
End
Goto I
Lbl O
If (J-50)<(J=0):Then
Goto AB
End
If H<1:Then
J-50→J
Else
J+100→J
End
Goto I
Lbl P
If (J-100)<(J=0):Then
Goto AB
End
If H<1:Then
J-100→J
0→G
Else
J+200→J
1→G
End
Goto AE
Lbl AA
Disp "You can't do that
Pause
Disp "You only have",J,"Dollars
Pause
ClrHome
End
Goto E
Lbl AB
Disp "You can't do that 
Pause
Disp "You only have",J,"Dollars
Pause
ClrHome
End
Goto F
Lbl AE
End
If G=1:Then
Disp "Jackpot!!!
Pause
Else
Disp "You lost a lot
Pause 
End
Goto AF
Lbl W
End 
If J=0:Then
Goto Y
Else
Disp "You Won! :)
Pause
Goto Z
Lbl Y
Disp "You Lost! :(
Pause
End
Lbl Z
Menu("Want to play again?","Sure",A,"No thanks",AC
Lbl AC
End
Stop

I know it isn't that compact since I am fairly new to Ti-84 Basic, but I wanted to give it a go.
Tell me what you think and if I made any errors while typing this up.
I am open to all suggestions

---

I have no idea what I'm doing

Last edited on 25 Jan 2017 23:53 by DestroboyB Show more

Re: Betting game

Trenly 25 Jan 2017 00:24

I didn't look too closely, but based on the structure of your goto's and lbls im guessing you may have a memory leak or two.

Re: Betting game

DestroboyB 25 Jan 2017 01:57

I added in a couple of ends. Should that fix the problem

---

I have no idea what I'm doing

Re: Betting game

Trenly 25 Jan 2017 04:42

Just adding ends doesn't solve a memory leak, since the whole concept of a leak is that it leaves the loop before it reaches an end.

Consider the following code from the memory leak page:

prgmMEMLEAK
:Lbl A
:While 1
:Goto A
:End

This is what the calculator interprets (simplified)

Program Name = MEMLEAK
: Point to Jump to with the label "A"
: While 1=1; This is always true
: On Entering the loop, add an object to the stack. This will help me know which block in the code I am in
: Goto the point with the label "A"
: When the loop ends, remove the object from the stack

So what happens is using goto never ends the loop. So the object stays in the stack. It will then re-enter the loop (or a different one, depending on the code) and add another object to the stack. Eventually, the stack becomes larger and larger as objects are added, but not removed. This means that it will use more ram, and will potentially cause the program to run out of memory to run.
The same thing happens with Conditional statements sometimes. Consider the following:

Lbl A
If B=1
Goto A  //this does not cause a leak since there was no "Then" after the conditional statement, because only one line of code was being run
If B=2
Then     //the then adds the object to the stack
Disp "B=2  
Goto A    //the "end" is never reached, so the operator isnt removed
End
-------
Lbl A
If B=1
Goto A
If B=2
Disp "B=2  //by splitting the commands, it removes the leak. this is not a good solution in all programs, since the value of the variables may be changing or there may be many lines in between "Then" and "End"
If B=2
Goto A

Of course, as the Memory Leaks page says, not every code will cause a leak even when it is inside a conditional with a "Then" or a loop. Since the stack only keeps track of what "level" in the program you are. For Example, the following code would NOT be a memory leak, since the program jumps to the same "Level" (indented for readability). Since the label is after the "While 0" statement, the "While" doesn't add an object to the stack, therefore when the program reaches the "End" it removes the object from the "While 1" statement.

While 0
  Lbl 1
  Disp "1
End
While 1
  Disp "0
  Goto 1
End

---

Memory leaks can be hard to find in large programs, and even harder to remove. I hope this helped a little.

Re: Betting game

DestroboyB 25 Jan 2017 23:54

OK I think I understand and I think I fixed it completely now

---

I have no idea what I'm doing

Re: Betting game

Trenly 26 Jan 2017 00:21

Looking at your game, I think I may have optimized it, but I changed it quite a bit. Here is what I made from your code. I used a much different method for determining the probabilities of each, but I'm pretty sure it works similarly. The main difference is that my Jackpots hit very rarely. They could be made to be less rare by not using the value of the bet to compare it to.

(Bonus fact: My code has no memory leaks that I could find)

Variable	Use
J	Player Balance
H	Difficulty/Win Coeff.
G	Jackpot Chance
C	Win Chance
V	Bet Value

---

Lbl A
ClrHome
100→J
While J≤1000 and J>0 
Disp "You have",J,"Dollars
Pause 
ClrHome
0→H
Menu("Risk Level?","High Risk",E,"Low Risk",F,"Exit",0  //This was your 1/2 1/4 thing
Lbl E
H+.5→H   //since labels execute in order H will end up being 2 here.
Lbl F
H+1.5→H  //H would be 1.5 here
Lbl D
0→V
Menu("Value?","1 Dollar",Q,"5 Dollars",R,"10 Dollars",S,"20 Dollars",T,"50 Dollars",U,"100 Dollars",V,"All IN",X
Lbl X
J→V
Goto 4  //I use the Goto 4 here so that V doesn't increase further
Lbl V
V+50→V  //These amounts may seem odd, but remember that it adds all the ones underneath it also
Lbl U
V+30→V
Lbl T
V+10→V
Lbl S
V+5→V
Lbl R
V+4→V
Lbl Q
V+1→V
Lbl 4
If J<V:Disp "Impossible!","You only have",J   //using 3 conditionals to make sure there is no memory leak. 
If J<V:Pause "Dollars //since this code could be executed many times
If J<V:Goto D  //since there is no "Then" we don't have to worry about a leak
J-V→J
randInt(1,100)→G  //chance of jackpot is one in 100 or 1%  !!!This line will need to change if you are making it less rare!!!
If H=2:randInt(1,4)→C  //chance of winning on high risk is 1 in 4 or 25%
If H=1.5:randInt(1,2)→C //chance of winning on low risk is 1 in 2 or 50%
If G=V  //Replacing V with 1 would have no effect, but if your replace V with 1, you can change the rareness of a jackpot
Then
J+V+2iPart(HV)→J    //Give them their bet, plus twice what they normally would have won (more on that later)
ClrHome
Pause "Jackpot! You won:",2iPart(HV),"Dollars!"  //tell them how much they won
End
If G=V:Goto 3  //notice again that this is NOT included in the previous conditionals
If C=2
Then
ClrHome
J+iPart(HV)→J   //iPart(HV) returns an integer of their bet multiplied by either 1.5 or 2. If the difficulty is high risk, they win the value of their bet. If it is low risk, they get half the value of their bet.
Disp "You won",iPart(HV)-V,"Dollars!  //tell them how much they won. We subtract V from the winnings since they paid that, and got it back, so its not really winning it.
Pause 
Else
ClrHome
Disp "Sorry, you lost","your bet of",V,"dollars"
Pause 
End
Lbl 3
If J≤0 or J≥1000:Goto 1  //on a condition that would exit the loop, skip the next menu
Menu("Keep Betting?","Yes",1,"No",0
Lbl 0  //the order of labels is important here. we cannot put 1 before 0 or the program will stop early
ClrHome
Stop
Lbl 1
ClrHome
End  //this is the end of the while loop
If J≤0:Pause "You Lost! :(
If J≥1000:Pause "You won! :)
Menu("Play again?","Sure",A,"No thanks",0

So if you missed it, to change the rarity of a jackpot you will need to make the code look like this (only the lines which need to be changed are included)

...
randInt(1,10)→G  //This would change it to a 1 in 10 or 10% chance. randInt(1,5)→G would be a 1 in 5, or 20% chance
...
If G=1  //since the value will no longer match what V is
...
If G=1:Goto 3  //since we changed the first part of the split conditional

Last edited on 26 Jan 2017 00:22 by Trenly Show more

Re: Betting game

DestroboyB 26 Jan 2017 01:12

I haven't tried it yet but I'll say a few things. 1) You changed a lot, way more then I expected someone to. 2) I put in the 100→J after the if J≥1000 or J≤0 so that someone could leave, comeback, and have the same amount of money. And 3) I will try and change up my own program with the edits you made, but I will try and keep in the same sayings that I had. ( I like your actual jackpot system though, instead of my system where it said jackpot if you won the 100 Dollar bet)

---

I have no idea what I'm doing

Last edited on 26 Jan 2017 01:31 by DestroboyB Show more

Re: Betting game

Trenly 26 Jan 2017 02:22

I decided to have it reset, since anyone could do 999->J on the homescreen, and then have a better chance of winning

Also, since my code is a bit more generalized, my program runs at 929 bytes, where yours runs at 1669 bytes. I would also venture to guess that mine runs a bit faster. This would be since I use fewer goto's. The way an 83/84/+/CSE uses goto makes it go all the way to the beginning, and search for the first occurrence of whatever label it is looking for. Therefore since my code is shorter, it would find the labels faster (in general). Also, I'm not entirely sure, but I believe it is faster to test V>J than to test (J-100)<(J=0) (Note that (J-100)<(J=0) can be optimized to J-100<0).

Last edited on 26 Jan 2017 02:38 by Trenly Show more

Re: Betting game

DestroboyB 26 Jan 2017 04:04

Well this is my first program I've created from scratch, so I was sure it was going to be bigger than it had to. I also don't care if someone can just enter in 999→J because that's their problem if they want to ruin all of the fun. I'm going to enter in you code tomorrow at school and I will make a couple of changes, then post the final product.

---

I have no idea what I'm doing

Last edited on 26 Jan 2017 04:06 by DestroboyB Show more

Re: Betting game

Trenly 26 Jan 2017 16:00

If you wanted to save the game, you can use this at the beginning:

If J≠I%:100→J //using the I% finance variable

and this in Lbl 0:

J→I%

That code would save their value, and then if J was equal to the value that was saved, it would load it, else it would give them a new game.

Re: Betting game

DestroboyB 27 Jan 2017 01:08

Ok here is my final product. I wanted to make it that you win double if you go for high risk, and normal if you go for low risk. I also made it so that you go directly from the bet again screen to A.:

ClrDraw
AxesOff
FnOff 
ZStandard
ZInteger
Horizontal 41
Horizontal ­40
Vertical 65
Vertical ­66
StorePic 4
For(P,1,13
For(V,0,1,10
StorePic 4
Text(­80,5,13P,V,sub("WELCOME TO...",P,1
RecallPic 4
End
rand(1
End
Text(­9,40,70,"Betting
Line(­17.5,9,17.5,9,BLACK   // DONT PUT IN ",BLACK" UNLESS YOU HAVE A COLOR CALCULATOR
Line(17.5,9,17.5,­37,BLACK
Line(17.5,­37,­17.5,­37,BLACK
Line(­17.5,­37,­17.5,9,BLACK
Line(­12,3,­14,7,BLACK
Line(­14,7,­16,3,BLACK
Line(­13,4.5,­15,4.5,BLACK
Line(16,­31,14,­35,BLACK
Line(14,­35,12,­31,BLACK
Line(13,­32,15,­32,BLACK
Line(­15,­4,­13,­4,BLACK
Line(­13,­4,­14,­2,BLACK
Line(­14,­2,­11.5,­2.5,BLACK
Line(­11.5,­2.5,­11.5,­1.5,BLACK
Line(­11.5,­1.5,­14,1.5,BLACK
Line(­14,1.5,­16.5,­1.5,BLACK
Line(­16.5,­1.5,­16.5,­2.5,BLACK
Line(­16.5,­2.5,­14,­2,BLACK
Line(­14,­2,­15,­4,BLACK
Line(15.3,­24,13,­24,BLACK
Line(12.7,­24,14,­26,BLACK
Line(14,­26,11.5,­25.5,BLACK
Line(11.5,­25.5,11.5,­26.5,BLACK
Line(11.5,­26.5,14,­30,BLACK
Line(14,­30,16.5,­26.5,BLACK
Line(16.5,­26.5,16.5,­25.5,BLACK
Line(16.5,­25.5,14,­26,BLACK
Line(14,­26,15.3,­24,BLACK
Line(­3,­24,3,­24,BLACK
Line(3,­24,1,­18,BLACK
Line(1,­18,3,­19,BLACK
Line(3,­19,5,­19.5,BLACK
Line(5,­19.5,6,­19.5,BLACK
Line(6,­19.5,8,­19,BLACK
Line(8,­19,9.5,­17.5,BLACK
Line(9.5,­17.5,10,­16,BLACK
Line(10,­16,10,­14.5,BLACK
Line(10,­14.5,9.5,­12.5,BLACK
Line(9.5,­12.5,8,­10.5,BLACK
Line(8,­10.5,1,­3.5,BLACK
Line(1,­3.5,0,­2.5,BLACK
Line(0,­2.5,­1,­3.5,BLACK
Line(­1,­3.5,­8,­10.5,BLACK
Line(­8,­10.5,­9.5,­12.5,BLACK
Line(­9.5,­12.5,­10,­14.5,BLACK
Line(­10,­14.5,­10,­16,BLACK
Line(­10,­16,­9.5,­17.5,BLACK
Line(­9.5,­17.5,­8,­19,BLACK
Line(­8,­19,­6,­19.5,BLACK
Line(­6,­19.5,­5,­19.5,BLACK
Line(­5,­19.5,­3,­19,BLACK
Line(­3,­19,­1,­18,BLACK
Line(­1,­18,­3,­24,BLACK
StorePic 4
Pause
Lbl A
ClrHome
If J≠I:100->J
While J<1000 and J>0 
Disp "You have",J,"Dollars
Pause 
ClrHome
0→H
Menu("You feeling lucky?","High Risk:1/4:Double win",E,"Low Risk:1/2:Normal win",F,"Exit",0
Lbl E
H+.5→H  
Lbl F
H+1.5→H
Lbl D
ClrHome
0→V
Menu("How much are you betting?","1 Dollar",Q,"5 Dollars",R,"10 Dollars",S,"20 Dollars",T,"50 Dollars",U,"100 Dollars",V,"All IN",X
Lbl X
J→V
Goto 4 
Lbl V
V+50→V 
Lbl U
V+30→V
Lbl T
V+10→V
Lbl S
V+5→V
Lbl R
V+4→V
Lbl Q
V+1→V
Lbl 4
If J<V:Disp "You cant do that","You only have",J  
If J<V:Pause "Dollars 
If J<V:Goto D  
J-V→J
randInt(1,15)→G 
If H=2:randInt(1,4)→C  
If H=1.5:randInt(1,2)→C 
If G=1:Then
J+V+2iPart(HV)→J   
ClrHome
Disp "Jackpot!!!   You won:",2iPart(HV),"Dollars!"  
Pause
ClrHome
End
If G=1:Goto 3 
If C=2:Then
ClrHome
J+1.5iPart(HV)→J
If H=1.5:J+.5->J
Disp "You found a 4-leaf clover","You won:",iPart(HV),"Dollars! 
Else
Disp "You saw a black cat","You lost:",V,"dollars"
End
Pause
ClrHome
Lbl 3
If J≤0 or J≥1000:Goto 1
Menu("Bet Again?","Yes",2,"No",0
Lbl 0
J->I  
ClrHome
Stop
Lbl 1
ClrHome
End 
If J≤0:Pause "You Lost! :(
If J≥1000:Pause "You won! :)
100->J
Menu("Play again?","Sure",A,"No thanks",0
Lbl 2
End
Goto A
//If you use this code say thanks in reply

This code is about 2115 bytes for me

---

I have no idea what I'm doing

Last edited on 04 Feb 2017 17:40 by DestroboyB Show more

Re: Betting game

DestroboyB 02 Feb 2017 00:04

So I added this code to the beginning of the game to give it sort of a welcome display, but I don't know how to make it so that the 0 doesn't show up before the W and when it is gradually adding the letters on. Can anyone help fix this? Also don't use the BLACK thing if you don't have a color calculator. I would paste a picture (I created a yahoo account and flickr account just for this) but you have to have medium Karma to paste in pictures. It is a picture of an ace of spades. If anyone wants to see it without entering in the code go to flickr create a yahoo account, then a flickr account, search up "ace of spades on calculator". Sounds easy right. UPDATE: Search up WITH QUOTATION MARKS "Ace of spades on calculator" and there will be one link which has the picture of what it looks like.

ClrDraw
AxesOff
FnOff 
ZStandard
ZInteger
Horizontal 41
Horizontal ­40
Vertical 65
Vertical ­66
StorePic 4
For(P,1,13
For(V,0,1,10
StorePic 4
Text(­80,5,13P,V,sub("WELCOME TO...",P,1
RecallPic 4
End
rand(1
End
Text(­9,40,70,"Betting
Line(­17.5,9,17.5,9,BLACK
Line(17.5,9,17.5,­37,BLACK
Line(17.5,­37,­17.5,­37,BLACK
Line(­17.5,­37,­17.5,9,BLACK
Line(­12,3,­14,7,BLACK
Line(­14,7,­16,3,BLACK
Line(­13,4.5,­15,4.5,BLACK
Line(16,­31,14,­35,BLACK
Line(14,­35,12,­31,BLACK
Line(13,­32,15,­32,BLACK
Line(­15,­4,­13,­4,BLACK
Line(­13,­4,­14,­2,BLACK
Line(­14,­2,­11.5,­2.5,BLACK
Line(­11.5,­2.5,­11.5,­1.5,BLACK
Line(­11.5,­1.5,­14,1.5,BLACK
Line(­14,1.5,­16.5,­1.5,BLACK
Line(­16.5,­1.5,­16.5,­2.5,BLACK
Line(­16.5,­2.5,­14,­2,BLACK
Line(­14,­2,­15,­4,BLACK
Line(15.3,­24,13,­24,BLACK
Line(12.7,­24,14,­26,BLACK
Line(14,­26,11.5,­25.5,BLACK
Line(11.5,­25.5,11.5,­26.5,BLACK
Line(11.5,­26.5,14,­30,BLACK
Line(14,­30,16.5,­26.5,BLACK
Line(16.5,­26.5,16.5,­25.5,BLACK
Line(16.5,­25.5,14,­26,BLACK
Line(14,­26,15.3,­24,BLACK
Line(­3,­24,3,­24,BLACK
Line(3,­24,1,­18,BLACK
Line(1,­18,3,­19,BLACK
Line(3,­19,5,­19.5,BLACK
Line(5,­19.5,6,­19.5,BLACK
Line(6,­19.5,8,­19,BLACK
Line(8,­19,9.5,­17.5,BLACK
Line(9.5,­17.5,10,­16,BLACK
Line(10,­16,10,­14.5,BLACK
Line(10,­14.5,9.5,­12.5,BLACK
Line(9.5,­12.5,8,­10.5,BLACK
Line(8,­10.5,1,­3.5,BLACK
Line(1,­3.5,0,­2.5,BLACK
Line(0,­2.5,­1,­3.5,BLACK
Line(­1,­3.5,­8,­10.5,BLACK
Line(­8,­10.5,­9.5,­12.5,BLACK
Line(­9.5,­12.5,­10,­14.5,BLACK
Line(­10,­14.5,­10,­16,BLACK
Line(­10,­16,­9.5,­17.5,BLACK
Line(­9.5,­17.5,­8,­19,BLACK
Line(­8,­19,­6,­19.5,BLACK
Line(­6,­19.5,­5,­19.5,BLACK
Line(­5,­19.5,­3,­19,BLACK
Line(­3,­19,­1,­18,BLACK
Line(­1,­18,­3,­24,BLACK
StorePic 4
Pause

---

I have no idea what I'm doing

Last edited on 04 Feb 2017 17:39 by DestroboyB Show more