Need help on a tutorial challenge

Author

Message

Lifebandit

14

Years of Service

User Offline

Joined: 27th Mar 2010

Location: Texas USA

Posted: 31st Mar 2010 06:22

Link

I have been trying to figure this challenge out now for 2 days. It walked me through creating a simple slot machine program. Original code here

`Assign ten dollars to the player's account
AccountBalance = 10

CLS RGB(255, 255, 255) 
SET TEXT FONT "Arial" 
SET TEXT SIZE 48 
ForegroundColor = RGB(0, 0, 160) 
BackgroundColor = RGB(255, 255, 255) 
INK ForegroundColor, BackgroundColor 
CENTER TEXT 320, 150, "Welcome to The" 
CENTER TEXT 320, 220, "Slot Machine Game"
SET TEXT SIZE 18
CENTER TEXT 320, 380, "Press any key to continue."

WAIT KEY

CLS RGB(255, 255, 255) 
SET TEXT SIZE 24 
TEXT 100, 120, "Instructions:"
TEXT 100, 160, "Press any key to place a bet."
TEXT 100, 190, "3 of a kind adds 2 dollars to your account"
TEXT 100, 220, "2 of a kind adds 1 dollar to your account"
TEXT 100, 250, "No matches subtracts 3 dollars from your account"
SET TEXT SIZE 18 
CENTER TEXT 320, 380, "Press any key to continue" 
WAIT KEY

do

FOR i = 1 TO 40 `Iterate nineteen times

ForegroundColor = RGB(0, 0, 160) 
BackgroundColor = RGB(255, 255, 255) 
INK ForegroundColor, BackgroundColor 
CLS RGB(255, 255, 255)

SET TEXT SIZE 24

`Display the player account balance
TEXT 75, 30, "Account Balance: " + STR$(AccountBalance)
 
SET TEXT SIZE 36 
CENTER TEXT 320, 90, "___________________________"
SET TEXT SIZE 72

`Display random numbers representing slot machines dials
CENTER TEXT 320, 150, STR$(RND(2) + 1) + " " + STR$(RND(2) + 1) + " " + STR$(RND(2) + 1)

SET TEXT SIZE 36 
CENTER TEXT 320, 210, "___________________________"

SLEEP 50 `Pause game execution for a fifth of a second

NEXT i

SET TEXT SIZE 72 
CLS RGB(255, 255, 255)

`Generate the final set of numbers representing dial values
DialOne = RND(2) + 1
DialTwo = RND(2) + 1
DialThree = RND(2) + 1

SET TEXT SIZE 36 
CENTER TEXT 320, 90, "___________________________"
SET TEXT SIZE 72

`Display random numbers representing slot machine dials
CENTER TEXT 320, 150, STR$(DialOne) + " " + STR$(DialTwo) + " " + STR$(DialThree)

SET TEXT SIZE 36 
CENTER TEXT 320, 210, "___________________________"

`Add up the final result for each dial
Result = DialOne + DialTwo + DialThree

SET TEXT SIZE 36

`Look for a jackpot made up of 3 ones or 3 threes
IF (Result = 3) OR (Result = 9)
CENTER TEXT 320, 260, "Three of a kind - Jackpot!"

`Add 2 dollars to the player's account
AccountBalance = AccountBalance + 2

ENDIF

`Look for a jackpot made up of 3 twos
IF Result = 6 
IF DialOne = DialTwo `There are 3 twos
CENTER TEXT 320, 260, "Three of a kind - Jackpot!"

`Add 2 dollars to the player's account
AccountBalance = AccountBalance + 2

ELSE

`Look to see if a one, two, and three were generated
CENTER TEXT 320, 260, "No matches - You Lose!"

`Subtract 3 dollars from the player's account
AccountBalance = AccountBalance - 3

ENDIF
ENDIF

`Anything other than 3, 6, or 9 means a pair was generated
IF (Result <> 3) AND (Result <> 6) AND (Result <> 9)
CENTER TEXT 320, 260, "Two of a kind - Winner!"

`Add 1 dollar to the player's account
AccountBalance = AccountBalance + 1

ENDIF

SET TEXT SIZE 24

`Display the player account balance
TEXT 75, 30, "Account Balance: " + STR$(AccountBalance)
SET TEXT SIZE 18

`Display instructions for continuing
CENTER TEXT 320, 420, "Press Escape to quit or any other key to continue."

`End game play if the player has gone broke
IF AccountBalance <= 0

SET TEXT SIZE 24 
ForegroundColor = RGB(255, 0, 0) 
BackgroundColor = RGB(255, 255, 255) 
INK ForegroundColor, BackgroundColor `Apply color settings

`Notify the player that the game is over
CENTER TEXT 320, 310, "G A M E O V E R"
CENTER TEXT 320, 350, "You have gone broke!"

WAIT KEY

EXIT `Terminate the loop

ENDIF

WAIT KEY

loop

CLS RGB(255, 255, 255) 
ForegroundColor = RGB(0, 0, 160) 
INK ForegroundColor, BackgroundColor `Apply color settings

SET TEXT SIZE 24

`Display the game's closing message
CENTER TEXT 320, 150, "Thanks for playing the Slot Machine Game!"
SET TEXT SIZE 16
CENTER TEXT 320, 240, "Developed by Jerry Lee Ford, Jr."
CENTER TEXT 320, 260, "Copyright 2008"
CENTER TEXT 320, 280, "http://www.tech-publishing.com"
SET TEXT SIZE 18 
CENTER TEXT 320, 380, "Press any key to end game."

WAIT KEY

END

+ Code Snippet

`Assign ten dollars to the player's account
AccountBalance = 10

CLS RGB(255, 255, 255) 
SET TEXT FONT "Arial" 
SET TEXT SIZE 48 
ForegroundColor = RGB(0, 0, 160) 
BackgroundColor = RGB(255, 255, 255) 
INK ForegroundColor, BackgroundColor 
CENTER TEXT 320, 150, "Welcome to The" 
CENTER TEXT 320, 220, "Slot Machine Game"
SET TEXT SIZE 18
CENTER TEXT 320, 380, "Press any key to continue." 

WAIT KEY 

CLS RGB(255, 255, 255) 
SET TEXT SIZE 24 
TEXT 100, 120, "Instructions:"
TEXT 100, 160, "Press any key to place a bet."
TEXT 100, 190, "3 of a kind adds 2 dollars to your account"
TEXT 100, 220, "2 of a kind adds 1 dollar to your account"
TEXT 100, 250, "No matches subtracts 3 dollars from your account"
SET TEXT SIZE 18 
CENTER TEXT 320, 380, "Press any key to continue" 
WAIT KEY 

do


FOR i = 1 TO 40 `Iterate nineteen times

ForegroundColor = RGB(0, 0, 160) 
BackgroundColor = RGB(255, 255, 255) 
INK ForegroundColor, BackgroundColor 
CLS RGB(255, 255, 255)

SET TEXT SIZE 24 

`Display the player account balance
TEXT 75, 30, "Account Balance: " + STR$(AccountBalance)
 
SET TEXT SIZE 36 
CENTER TEXT 320, 90, "___________________________"
SET TEXT SIZE 72 

`Display random numbers representing slot machines dials
CENTER TEXT 320, 150, STR$(RND(2) + 1) + " " + STR$(RND(2) + 1) + " " + STR$(RND(2) + 1)

SET TEXT SIZE 36 
CENTER TEXT 320, 210, "___________________________"

SLEEP 50 `Pause game execution for a fifth of a second

NEXT i

SET TEXT SIZE 72 
CLS RGB(255, 255, 255) 


`Generate the final set of numbers representing dial values
DialOne = RND(2) + 1
DialTwo = RND(2) + 1
DialThree = RND(2) + 1

SET TEXT SIZE 36 
CENTER TEXT 320, 90, "___________________________"
SET TEXT SIZE 72 

`Display random numbers representing slot machine dials
CENTER TEXT 320, 150, STR$(DialOne) + " " + STR$(DialTwo) + " " + STR$(DialThree)

SET TEXT SIZE 36 
CENTER TEXT 320, 210, "___________________________"

`Add up the final result for each dial
Result = DialOne + DialTwo + DialThree

SET TEXT SIZE 36 

`Look for a jackpot made up of 3 ones or 3 threes
IF (Result = 3) OR (Result = 9)
CENTER TEXT 320, 260, "Three of a kind - Jackpot!"

`Add 2 dollars to the player's account
AccountBalance = AccountBalance + 2

ENDIF

`Look for a jackpot made up of 3 twos
IF Result = 6 
IF DialOne = DialTwo `There are 3 twos
CENTER TEXT 320, 260, "Three of a kind - Jackpot!"

`Add 2 dollars to the player's account
AccountBalance = AccountBalance + 2

ELSE

 `Look to see if a one, two, and three were generated
CENTER TEXT 320, 260, "No matches - You Lose!"

`Subtract 3 dollars from the player's account
AccountBalance = AccountBalance - 3

ENDIF
ENDIF

`Anything other than 3, 6, or 9 means a pair was generated
IF (Result <> 3) AND (Result <> 6) AND (Result <> 9)
CENTER TEXT 320, 260, "Two of a kind - Winner!"

`Add 1 dollar to the player's account
AccountBalance = AccountBalance + 1

ENDIF

SET TEXT SIZE 24 

`Display the player account balance
TEXT 75, 30, "Account Balance: " + STR$(AccountBalance)
SET TEXT SIZE 18 

`Display instructions for continuing
CENTER TEXT 320, 420, "Press Escape to quit or any other key to continue."

`End game play if the player has gone broke
IF AccountBalance <= 0

SET TEXT SIZE 24 
ForegroundColor = RGB(255, 0, 0) 
BackgroundColor = RGB(255, 255, 255) 
INK ForegroundColor, BackgroundColor `Apply color settings

`Notify the player that the game is over
CENTER TEXT 320, 310, "G A M E O V E R"
CENTER TEXT 320, 350, "You have gone broke!"

WAIT KEY 

EXIT `Terminate the loop

ENDIF

WAIT KEY 

loop

CLS RGB(255, 255, 255) 
ForegroundColor = RGB(0, 0, 160) 
INK ForegroundColor, BackgroundColor `Apply color settings

SET TEXT SIZE 24 

`Display the game's closing message
CENTER TEXT 320, 150, "Thanks for playing the Slot Machine Game!"
SET TEXT SIZE 16
CENTER TEXT 320, 240, "Developed by Jerry Lee Ford, Jr."
CENTER TEXT 320, 260, "Copyright 2008"
CENTER TEXT 320, 280, "http://www.tech-publishing.com"
SET TEXT SIZE 18 
CENTER TEXT 320, 380, "Press any key to end game."

WAIT KEY 

END

Then it challenged me to change the dial numbers from 1 through 3 to 1 through 5.

Here is what I have and as you can see when you run it, it will land on a jackpot and display all msges:

Rem Project: slotmachine5s
Rem Created: Sunday, March 28, 2010

Rem ***** Main Source File *****
REM Version: 1.0
REM Author: Scott Watkins
REM Description: This DarkBASIC Professional game simulates a Las Vegas
REM Slot Machine
`Assign ten dollars to the player's account
AccountBalance = 10

CLS RGB(255, 255, 255) 
SET TEXT FONT "Arial" 
SET TEXT SIZE 48 
ForegroundColor = RGB(0, 0, 160) 
BackgroundColor = RGB(255, 255, 255) 
INK ForegroundColor, BackgroundColor 
CENTER TEXT 320, 150, "Welcome to The" 
CENTER TEXT 320, 220, "Slot Machine Game"
SET TEXT SIZE 18
CENTER TEXT 320, 380, "Press any key to continue."

WAIT KEY

CLS RGB(255, 255, 255) 
SET TEXT SIZE 24 
TEXT 100, 120, "Instructions:"
TEXT 100, 160, "Press any key to place a bet."
TEXT 100, 190, "3 of a kind adds 2 dollars to your account"
TEXT 100, 220, "2 of a kind adds 1 dollar to your account"
TEXT 100, 250, "No matches subtracts 3 dollars from your account"
SET TEXT SIZE 18 
CENTER TEXT 320, 380, "Press any key to continue" 
WAIT KEY

do

FOR i = 1 TO 30 `Iterate nineteen times

ForegroundColor = RGB(0, 0, 160) 
BackgroundColor = RGB(255, 255, 255) 
INK ForegroundColor, BackgroundColor 
CLS RGB(255, 255, 255)

SET TEXT SIZE 24

`Display the player account balance
TEXT 75, 30, "Account Balance: " + STR$(AccountBalance)
 
SET TEXT SIZE 36 
CENTER TEXT 320, 90, "___________________________"
SET TEXT SIZE 72

`Display random numbers representing slot machines dials
CENTER TEXT 320, 150, STR$(RND(4) + 1) + " " + STR$(RND(4) + 1) + " " + STR$(RND(4) + 1)

SET TEXT SIZE 36 
CENTER TEXT 320, 210, "___________________________"

SLEEP 200 `Pause game execution for a fifth of a second

NEXT i

SET TEXT SIZE 72 
CLS RGB(255, 255, 255)

`Generate the final set of numbers representing dial values
DialOne = RND(4) + 1
DialTwo = RND(4) + 1
DialThree = RND(4) + 1

SET TEXT SIZE 36 
CENTER TEXT 320, 90, "___________________________"
SET TEXT SIZE 72

`Display random numbers representing slot machine dials
CENTER TEXT 320, 150, STR$(DialOne) + " " + STR$(DialTwo) + " " + STR$(DialThree)

SET TEXT SIZE 36 
CENTER TEXT 320, 210, "___________________________"

`Add up the final result for each dial
result = dialone + dialtwo + dialthree

SET TEXT SIZE 36

`Look for a jackpot
IF dialone = dialtwo and dialtwo = dialthree
 
CENTER TEXT 320, 260, "Three of a kind - Jackpot!"

`Add 2 dollars to the player's account
AccountBalance = AccountBalance + 2

ENDIF

`Look for two of a kind
 IF dialone = dialtwo and dialthree <> dialone or dialone = dialthree and dialtwo <> dialone or dialthree = dialtwo and dialone <> dialthree 
 
     CENTER TEXT 320, 260, "Two of a kind - Winner!"

`Add 2 dollars to the player's account
AccountBalance = AccountBalance + 1

ELSE

CENTER TEXT 320, 260, "No matches - You Lose!"

`Subtract 3 dollars from the player's account
AccountBalance = AccountBalance - 3

endif
 
SET TEXT SIZE 24

`Display the player account balance
TEXT 75, 30, "Account Balance: " + STR$(AccountBalance)
SET TEXT SIZE 18

`Display instructions for continuing
CENTER TEXT 320, 420, "Press Escape to quit or any other key to continue."

`End game play if the player has gone broke
IF AccountBalance <= 0

SET TEXT SIZE 24 
ForegroundColor = RGB(255, 0, 0) 
BackgroundColor = RGB(255, 255, 255) 
INK ForegroundColor, BackgroundColor `Apply color settings

`Notify the player that the game is over
CENTER TEXT 320, 310, "G A M E O V E R"
CENTER TEXT 320, 350, "You have gone broke!"

WAIT KEY

EXIT `Terminate the loop

ENDIF

WAIT KEY

loop

CLS RGB(255, 255, 255) 
ForegroundColor = RGB(0, 0, 160) 
INK ForegroundColor, BackgroundColor `Apply color settings

SET TEXT SIZE 24

`Display the game's closing message
CENTER TEXT 320, 150, "Thanks for playing the Slot Machine Game!"
SET TEXT SIZE 16
CENTER TEXT 320, 240, "Developed by Jerry Lee Ford, Jr."
CENTER TEXT 320, 260, "Copyright 2008"
CENTER TEXT 320, 280, "http://www.tech-publishing.com"
SET TEXT SIZE 18 
CENTER TEXT 320, 380, "Press any key to end game."

WAIT KEY

END

+ Code Snippet

Rem Project: slotmachine5s
Rem Created: Sunday, March 28, 2010

Rem ***** Main Source File *****
REM Version: 1.0
REM Author: Scott Watkins
REM Description: This DarkBASIC Professional game simulates a Las Vegas
REM Slot Machine
`Assign ten dollars to the player's account
AccountBalance = 10

CLS RGB(255, 255, 255) 
SET TEXT FONT "Arial" 
SET TEXT SIZE 48 
ForegroundColor = RGB(0, 0, 160) 
BackgroundColor = RGB(255, 255, 255) 
INK ForegroundColor, BackgroundColor 
CENTER TEXT 320, 150, "Welcome to The" 
CENTER TEXT 320, 220, "Slot Machine Game"
SET TEXT SIZE 18
CENTER TEXT 320, 380, "Press any key to continue." 

WAIT KEY 

CLS RGB(255, 255, 255) 
SET TEXT SIZE 24 
TEXT 100, 120, "Instructions:"
TEXT 100, 160, "Press any key to place a bet."
TEXT 100, 190, "3 of a kind adds 2 dollars to your account"
TEXT 100, 220, "2 of a kind adds 1 dollar to your account"
TEXT 100, 250, "No matches subtracts 3 dollars from your account"
SET TEXT SIZE 18 
CENTER TEXT 320, 380, "Press any key to continue" 
WAIT KEY 

do


FOR i = 1 TO 30 `Iterate nineteen times

ForegroundColor = RGB(0, 0, 160) 
BackgroundColor = RGB(255, 255, 255) 
INK ForegroundColor, BackgroundColor 
CLS RGB(255, 255, 255)

SET TEXT SIZE 24 

`Display the player account balance
TEXT 75, 30, "Account Balance: " + STR$(AccountBalance)
 
SET TEXT SIZE 36 
CENTER TEXT 320, 90, "___________________________"
SET TEXT SIZE 72 

`Display random numbers representing slot machines dials
CENTER TEXT 320, 150, STR$(RND(4) + 1) + " " + STR$(RND(4) + 1) + " " + STR$(RND(4) + 1)

SET TEXT SIZE 36 
CENTER TEXT 320, 210, "___________________________"

SLEEP 200 `Pause game execution for a fifth of a second

NEXT i

SET TEXT SIZE 72 
CLS RGB(255, 255, 255) 


`Generate the final set of numbers representing dial values
DialOne = RND(4) + 1
DialTwo = RND(4) + 1
DialThree = RND(4) + 1

SET TEXT SIZE 36 
CENTER TEXT 320, 90, "___________________________"
SET TEXT SIZE 72 

`Display random numbers representing slot machine dials
CENTER TEXT 320, 150, STR$(DialOne) + " " + STR$(DialTwo) + " " + STR$(DialThree)

SET TEXT SIZE 36 
CENTER TEXT 320, 210, "___________________________"

`Add up the final result for each dial
result = dialone + dialtwo + dialthree

SET TEXT SIZE 36 

`Look for a jackpot
IF dialone = dialtwo and dialtwo = dialthree
 
CENTER TEXT 320, 260, "Three of a kind - Jackpot!"

`Add 2 dollars to the player's account
AccountBalance = AccountBalance + 2


ENDIF
  

`Look for two of a kind
 IF dialone = dialtwo and dialthree <> dialone or dialone = dialthree and dialtwo <> dialone or dialthree = dialtwo and dialone <> dialthree 
 
     CENTER TEXT 320, 260, "Two of a kind - Winner!"

`Add 2 dollars to the player's account
AccountBalance = AccountBalance + 1

ELSE

CENTER TEXT 320, 260, "No matches - You Lose!"

`Subtract 3 dollars from the player's account
AccountBalance = AccountBalance - 3


endif
 
SET TEXT SIZE 24 

`Display the player account balance
TEXT 75, 30, "Account Balance: " + STR$(AccountBalance)
SET TEXT SIZE 18 

`Display instructions for continuing
CENTER TEXT 320, 420, "Press Escape to quit or any other key to continue."

`End game play if the player has gone broke
IF AccountBalance <= 0

SET TEXT SIZE 24 
ForegroundColor = RGB(255, 0, 0) 
BackgroundColor = RGB(255, 255, 255) 
INK ForegroundColor, BackgroundColor `Apply color settings

`Notify the player that the game is over
CENTER TEXT 320, 310, "G A M E O V E R"
CENTER TEXT 320, 350, "You have gone broke!"

WAIT KEY 

EXIT `Terminate the loop

ENDIF

WAIT KEY 

loop

CLS RGB(255, 255, 255) 
ForegroundColor = RGB(0, 0, 160) 
INK ForegroundColor, BackgroundColor `Apply color settings

SET TEXT SIZE 24 

`Display the game's closing message
CENTER TEXT 320, 150, "Thanks for playing the Slot Machine Game!"
SET TEXT SIZE 16
CENTER TEXT 320, 240, "Developed by Jerry Lee Ford, Jr."
CENTER TEXT 320, 260, "Copyright 2008"
CENTER TEXT 320, 280, "http://www.tech-publishing.com"
SET TEXT SIZE 18 
CENTER TEXT 320, 380, "Press any key to end game."

WAIT KEY 

END

Can you guys tell me where I'm going wrong?

Back to top

Profile PM

Dia

19

Years of Service

User Offline

Joined: 16th Jan 2005

Location:

Posted: 31st Mar 2010 16:10 Edited at: 31st Mar 2010 16:27

Link

If you seperate the text (i.e. put the text strings at different y coords) you will see that in the event of a 3 of a kind you only actually get the "Three of a kind - Jackpot!" and "No matches - You Lose!" messages, not all three messages

at the moment, in your code you are running two seperate logic checks:

the first is to see if you have 3 of a kind, and the second logic check (to look for two of a kind) is run REGARDLESS of whether or not you have a 3 of a kind

so, if your numbers come up as a 3 of a kind, the first logic check is made, comes up as "true" and the 3 of a kind message is printed to screen.

Then it moves on to the next logic check, which comes up "false" for a two of a kind. Anything that ISN'T a 2 of a kind is therefore a loss, and hence the "you lose" message is generated

simply swap the first ENDIF to an ELSE, and add the ENDIF to the end to close the loop, something like this:

+ Code Snippet


`Look for a jackpot
  IF dialone = dialtwo and dialtwo = dialthree
    TEXT 120, 260, "Three of a kind - Jackpot!"

`Add 2 dollars to the player's account
    AccountBalance = AccountBalance + 2

`Look for two of a kind next
  ELSE IF dialone = dialtwo and dialthree <> dialone or dialone = dialthree and dialtwo <> dialone or dialthree = dialtwo and dialone <> dialthree
    TEXT 220, 280, "Two of a kind - Winner!"

    `Add 2 dollars to the player's account
    AccountBalance = AccountBalance + 1

    `if it isnt a two or three of a kind, you must have no matches, and therefore:
    ELSE
      TEXT 320, 300, "No matches - You Lose!"

      `Subtract 3 dollars from the player's account
      AccountBalance = AccountBalance - 3

      `don't forget to close both if/endif conditions
    endif
  endif

basically, in normal speak, you are now doing the following:

if it is 3 of a kind - do the 3 of a kind stuff
otherwise (else)
if it is 2 of a kind - do the 2 of a kind stuff
otherwise (else)
it must be a 1 of a kind - do the no match stuff

This is not the Sig you are looking for....

Back to top

Profile PM

Lifebandit

14

Years of Service

User Offline

Joined: 27th Mar 2010

Location: Texas USA

Posted: 1st Apr 2010 02:34

Link

I see said the blind man. I knew it had to be something simple lol. Thank you! Can I also get some constructive feedback on my logic check method? I did away with their result integer since I didn't want to write an essay in code for a simple app lol.

Back to top

Profile PM

Dia

19

Years of Service

User Offline

Joined: 16th Jan 2005

Location:

Posted: 1st Apr 2010 12:01 Edited at: 1st Apr 2010 12:02

Link

The logic is fine, sure there are different ways to do it using case statements etc, but what you have used is perfectly functional.

It was an awesome idea to steer away from the whole 'result' variable, especially if you are using 3 numbers from 1-5.

This is not the Sig you are looking for....

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Need help on a tutorial challenge