Coin Tossing Program - GameCreators Forum

Author

Message

Davido01

14

Years of Service

User Offline

Joined: 28th Oct 2009

Location:

Posted: 20th Nov 2009 19:33 Edited at: 20th Nov 2009 19:37

Link

I had written a coin tossing program which worked well, so I decided to go one step further. The selection of coin!

Unfortunately I am having a bit of trouble with it as when I press the return key when it says press it to throw a coin, it goes crazy and throws loads. Tried a few things but just can't work it out.

REM "Coin Tossing"
REM **PROGRAM TOSSES A COIN AND COUNTS HOW MANY HEADS AND TAILS THERE HAVE BEEN
REM **START**

Gosub Setup
Gosub Menu

Main:

Do

Set Text Opaque
   Set Cursor 200,1
   Print "HEADS ";H
   Set Cursor 400,1
   Print "TAILS ";T
   Text 5,50,"Press Enter to toss a coin"
   Do
       if returnkey()=1 then exit
   Loop
   Randomize Timer()
   C=RND(1)
   Set Cursor 5,50
   Do
      If P=2 And C=0 then Print "Heads":Inc H:Paste Image 1,5,100:exit
      If P=2 And C=1 then Print "Tails":Inc T: Paste Image 2,5,100:exit
   Loop
   Set Cursor 5,150
   Print "Press Enter to throw again"
      Do
         If returnkey()=1 then:cls:exit
      Loop
Loop
Menu:
Set Cursor 5,10
Print "Press the corresponding number to select a coin"
Set Cursor 5,50
Print "1. 1p Coin"
Set Cursor 5,100
Print "2. 2p Coin"
Set Cursor 5,150
Print "3. 5p Coin"
Set Cursor 5,200
Print "4. 10p Coin"
Set Cursor 5,250
Print "5. 20p Coin"
Set Cursor 5,300
Print "6. 50p Coin"
Set Cursor 5,350
Print "7. £1 Coin"
Set Cursor 5,400
Print "8. £2 Coin"

Do
   If Keystate(2)=1 then p=1:Return
   If Keystate(3)=1 then p=2:Return
   If Keystate(4)=1 then p=3:Return
   If Keystate(5)=1 then p=4:Return
   If Keystate(6)=1 then p=5:Return
   If Keystate(7)=1 then p=6:Return
   If Keystate(8)=1 then p=7:Return
   If Keystate(9)=1 then p=8:Return
Loop

Setup:
`Sets variables
H=0:T=0:P=0
`Loads images for coins
Load Image "Media\2pheads.jpg",1
Load Image "Media\2ptails.jpg",2
Return

+ Code Snippet

REM "Coin Tossing"
REM **PROGRAM TOSSES A COIN AND COUNTS HOW MANY HEADS AND TAILS THERE HAVE BEEN
REM **START**


Gosub Setup
Gosub Menu

Main:

Do

   Set Text Opaque
   Set Cursor 200,1
   Print "HEADS ";H
   Set Cursor 400,1
   Print "TAILS ";T
   Text 5,50,"Press Enter to toss a coin"
   Do
       if returnkey()=1 then exit
   Loop
   Randomize Timer()
   C=RND(1)
   Set Cursor 5,50
   Do
      If P=2 And C=0 then Print "Heads":Inc H:Paste Image 1,5,100:exit
      If P=2 And C=1 then Print "Tails":Inc T: Paste Image 2,5,100:exit
   Loop
   Set Cursor 5,150
   Print "Press Enter to throw again"
      Do
         If returnkey()=1 then:cls:exit
      Loop
Loop
Menu:
Set Cursor 5,10
Print "Press the corresponding number to select a coin"
Set Cursor 5,50
Print "1. 1p Coin"
Set Cursor 5,100
Print "2. 2p Coin"
Set Cursor 5,150
Print "3. 5p Coin"
Set Cursor 5,200
Print "4. 10p Coin"
Set Cursor 5,250
Print "5. 20p Coin"
Set Cursor 5,300
Print "6. 50p Coin"
Set Cursor 5,350
Print "7. £1 Coin"
Set Cursor 5,400
Print "8. £2 Coin"


Do
   If Keystate(2)=1 then p=1:Return
   If Keystate(3)=1 then p=2:Return
   If Keystate(4)=1 then p=3:Return
   If Keystate(5)=1 then p=4:Return
   If Keystate(6)=1 then p=5:Return
   If Keystate(7)=1 then p=6:Return
   If Keystate(8)=1 then p=7:Return
   If Keystate(9)=1 then p=8:Return
Loop


Setup:
`Sets variables
H=0:T=0:P=0
`Loads images for coins
Load Image "Media\2pheads.jpg",1
Load Image "Media\2ptails.jpg",2
Return

Any help much appreciated.

EDIT: Using a keystate makes it go more crazy. Think I need to use inkey$ or something.

Back to top

Profile PM Email

Davido01

14

Years of Service

User Offline

Joined: 28th Oct 2009

Location:

Posted: 20th Nov 2009 19:42

Link

Had made a coin tossing program which worked, so I decided to go one step further. Selection of coin!

Unfortunately I have ran into a problem which I just can't solve. Basically when I press enter for it to toss the coin it keeps on tossing it over and over. Think I have to change it to inkey$ but couldn't work out how to do that. Keystates just make it do the same.

REM "Coin Tossing"
REM **PROGRAM TOSSES A COIN AND COUNTS HOW MANY HEADS AND TAILS THERE HAVE BEEN
REM **START**

Gosub Setup
Gosub Menu

Main:

Do

Set Text Opaque
   Set Cursor 200,1
   Print "HEADS ";H
   Set Cursor 400,1
   Print "TAILS ";T
   Text 5,50,"Press Enter to toss a coin"
   Do
       if returnkey()=1 then exit
   Loop
   Randomize Timer()
   C=RND(1)
   Set Cursor 5,50
   Do
      If P=2 And C=0 then Print "Heads":Inc H:Paste Image 1,5,100:exit
      If P=2 And C=1 then Print "Tails":Inc T: Paste Image 2,5,100:exit
   Loop
   Set Cursor 5,150
   Print "Press Enter to throw again"
      Do
         If returnkey()=1 then:cls:exit
      Loop
Loop
Menu:
Set Cursor 5,10
Print "Press the corresponding number to select a coin"
Set Cursor 5,50
Print "1. 1p Coin"
Set Cursor 5,100
Print "2. 2p Coin"
Set Cursor 5,150
Print "3. 5p Coin"
Set Cursor 5,200
Print "4. 10p Coin"
Set Cursor 5,250
Print "5. 20p Coin"
Set Cursor 5,300
Print "6. 50p Coin"
Set Cursor 5,350
Print "7. £1 Coin"
Set Cursor 5,400
Print "8. £2 Coin"

Do
   If Keystate(2)=1 then p=1:Return
   If Keystate(3)=1 then p=2:Return
   If Keystate(4)=1 then p=3:Return
   If Keystate(5)=1 then p=4:Return
   If Keystate(6)=1 then p=5:Return
   If Keystate(7)=1 then p=6:Return
   If Keystate(8)=1 then p=7:Return
   If Keystate(9)=1 then p=8:Return
Loop

Setup:
`Sets variables
H=0:T=0:P=0
`Loads images for coins
Load Image "Media\2pheads.jpg",1
Load Image "Media\2ptails.jpg",2
Return

+ Code Snippet

REM "Coin Tossing"
REM **PROGRAM TOSSES A COIN AND COUNTS HOW MANY HEADS AND TAILS THERE HAVE BEEN
REM **START**


Gosub Setup
Gosub Menu

Main:

Do

   Set Text Opaque
   Set Cursor 200,1
   Print "HEADS ";H
   Set Cursor 400,1
   Print "TAILS ";T
   Text 5,50,"Press Enter to toss a coin"
   Do
       if returnkey()=1 then exit
   Loop
   Randomize Timer()
   C=RND(1)
   Set Cursor 5,50
   Do
      If P=2 And C=0 then Print "Heads":Inc H:Paste Image 1,5,100:exit
      If P=2 And C=1 then Print "Tails":Inc T: Paste Image 2,5,100:exit
   Loop
   Set Cursor 5,150
   Print "Press Enter to throw again"
      Do
         If returnkey()=1 then:cls:exit
      Loop
Loop
Menu:
Set Cursor 5,10
Print "Press the corresponding number to select a coin"
Set Cursor 5,50
Print "1. 1p Coin"
Set Cursor 5,100
Print "2. 2p Coin"
Set Cursor 5,150
Print "3. 5p Coin"
Set Cursor 5,200
Print "4. 10p Coin"
Set Cursor 5,250
Print "5. 20p Coin"
Set Cursor 5,300
Print "6. 50p Coin"
Set Cursor 5,350
Print "7. £1 Coin"
Set Cursor 5,400
Print "8. £2 Coin"


Do
   If Keystate(2)=1 then p=1:Return
   If Keystate(3)=1 then p=2:Return
   If Keystate(4)=1 then p=3:Return
   If Keystate(5)=1 then p=4:Return
   If Keystate(6)=1 then p=5:Return
   If Keystate(7)=1 then p=6:Return
   If Keystate(8)=1 then p=7:Return
   If Keystate(9)=1 then p=8:Return
Loop


Setup:
`Sets variables
H=0:T=0:P=0
`Loads images for coins
Load Image "Media\2pheads.jpg",1
Load Image "Media\2ptails.jpg",2
Return

Any help appreciated.

Back to top

Profile PM Email

xguild

15

Years of Service

User Offline

Joined: 19th Oct 2008

Location:

Posted: 20th Nov 2009 21:18

Link

its a bit tough to test since you didn't include the media, it would be helpful.

Newbie Alert

Back to top

Profile PM

Davido01

14

Years of Service

User Offline

Joined: 28th Oct 2009

Location:

Posted: 20th Nov 2009 23:02

Link

Sorry for double post, thought my first post got deleted. Will attach media then. Don't worry about the the other coins apart from the 2p one, as haven't done those ones yet because of the problem. Press 2 to select the 2p coin then you should be able to see the problem.

How you upload 2 files in one post, only lets me do one.

Attachments

Login to view attachments

Back to top

Profile PM Email

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 20th Nov 2009 23:19

Link

You're making it a lot more complicated than it needs to be. You want RANDOMIZE TIMER() and SET TEXT OPAQUE to only be seen once so they need to be at the top.

With this program a simple WAIT KEY is only needed instead of a DO/LOOP with a check for the return key with an EXIT.

The SET CURSOR command is nice but it's better to use TEXT that combines SET CURSOR and PRINT in one command.

You don't really need a check for P=2 because P is the number of points you want (I assume) which can be added to the INC command. Otherwise you'll be making IF/THEN statements for each amount of points.

I put each KEYSTATE() check in a FOR/NEXT loop so you can see an easier way to check for multiple keys without having to repeat several lines.

REM "Coin Tossing"
REM **PROGRAM TOSSES A COIN AND COUNTS HOW MANY HEADS AND TAILS THERE HAVE BEEN
REM **START**
Randomize Timer()
Set Text Opaque

Gosub Setup
Gosub Menu

Main:
cls

Do

text 200,1,"HEADS "+str$(H)
   text 400,1,"TAILS "+str$(T)

C=RND(1)
 
   If C=0
    text 5,50,"Heads"
    Inc H,P
    Paste Image 1,5,100
   endif
   
   If C=1
    text 5,50,"Tails"
    Inc T,P
    Paste Image 2,5,100
   endif
   
   text 5,150,"Press any key to throw again"
   ` Wait for a keypress
   wait key

Loop

Menu:
 text 5,10,"Press the corresponding number to select a coin"
 text 5,50,"1. 1p Coin"
 text 5,100,"2. 2p Coin"
 text 5,150,"3. 5p Coin"
 text 5,200,"4. 10p Coin"
 text 5,250,"5. 20p Coin"
 text 5,300,"6. 50p Coin"
 text 5,350,"7. £1 Coin"
 text 5,400,"8. £2 Coin"

` Repeat this...
 repeat

` Go through all the keys
    for t=2 to 9
   
     ` Check if the key has been hit
     if keystate(t)
      ` Set the points
      P=t-1
      exit
     endif
    
    next t
   
 ` ... Until P is more than zero
 until P>0

return

Setup:
 `Sets variables
 H=0:T=0:P=0
 `Loads images for coins
 Load Image "Media\2pheads.jpg",1
 Load Image "Media\2ptails.jpg",2
Return

+ Code Snippet

REM "Coin Tossing"
REM **PROGRAM TOSSES A COIN AND COUNTS HOW MANY HEADS AND TAILS THERE HAVE BEEN
REM **START**
Randomize Timer()
Set Text Opaque

Gosub Setup
Gosub Menu

Main:
cls

Do

   text 200,1,"HEADS "+str$(H)
   text 400,1,"TAILS "+str$(T)

   C=RND(1)
 
   If C=0
    text 5,50,"Heads"
    Inc H,P
    Paste Image 1,5,100
   endif
   
   If C=1
    text 5,50,"Tails"
    Inc T,P
    Paste Image 2,5,100
   endif
   
   text 5,150,"Press any key to throw again"
   ` Wait for a keypress
   wait key

Loop

Menu:
 text 5,10,"Press the corresponding number to select a coin"
 text 5,50,"1. 1p Coin"
 text 5,100,"2. 2p Coin"
 text 5,150,"3. 5p Coin"
 text 5,200,"4. 10p Coin"
 text 5,250,"5. 20p Coin"
 text 5,300,"6. 50p Coin"
 text 5,350,"7. £1 Coin"
 text 5,400,"8. £2 Coin"


 ` Repeat this...
 repeat

    ` Go through all the keys
    for t=2 to 9
   
     ` Check if the key has been hit
     if keystate(t)
      ` Set the points
      P=t-1
      exit
     endif
    
    next t
   
 ` ... Until P is more than zero
 until P>0

return


Setup:
 `Sets variables
 H=0:T=0:P=0
 `Loads images for coins
 Load Image "Media\2pheads.jpg",1
 Load Image "Media\2ptails.jpg",2
Return

Back to top

Profile PM Email

Davido01

14

Years of Service

User Offline

Joined: 28th Oct 2009

Location:

Posted: 21st Nov 2009 00:11

Link

Thank you. Learnt a few timesavers with that. What I meant by P was the type of coin it would have. So if p=1 it would be a 1p coin, p=3 a 5p coin. Then through it checking the variable it prints a relevant image to the coin.

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Coin Tossing Program

Attachments