TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Input

Version: 1.0

Information

Uploaded: 4th Aug 2009 11:39

Modified: 1st Jan 1970 01:00

Author: Daygamer

Summary

The more you risk the bigger the reward. (Multiplayer) No Media!

Full Description

What's up! You need two people to play this game. You take turns picking a number between 0-100. Your enemy picks a random number between 0-100 also. If you're enemy's number is lower than yours then you lose. If your number is less than the enemy's number than you get win. When you win your number is added onto your score. So basically the higher your number the bigger reward and risk! You take turns with your friend (or rival) until 5 rounds are over. Whoever has the higher score wins! Good day to ya.

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

text 5,10,"Welcome to Risk. You need two people to play. You take turns picking a number bewteen 0-100"

text 5,30,"You're enemy picks a random number bewteen 0-100 also. If you're enemy's nubmer is lower"

text 5,50,"than your's then you lose. If your number is less than the enemy's number than you get win."

text 5,70,"When you win your number is added onto your score. So basicly the higher your number the"

text 5,90,"bigger reward and risk! You take turns with your friend (or rival) until 5 rounds are over."

text 5,110,"Whoever has the higher score wins! press any key..."

suspend for key

menu:

S1=0

S2=0

R = 1

startover:

cls

E = rnd(100)

print "Round ",R

print "Player 1 Score ",S1

print "Player 2 Score ",S2

input "Player 1 Type: ";1N

print "Enemy Score ",E

if E < 1N

print "Dead" : 1N = 0

goto skip

endif

if E > 1N

print "Live" : S1 = S1+1N : 1N = 0

endif

skip:

print "press any key..."

suspend for key

cls

E = rnd(100)

print "Round ",R

print "Player 1 Score ",S1

print "Player 2 Score ",S2

input "Player 2 Type: ";2N

print "Enemy Score ",E

if E < 2N

print "Dead" : 2N = 0

goto skip2

endif

if E > 2N

print "Live" : S2 = S2+2N : 2N = 0

endif

skip2:

print "press any key..."

R = R+1

if R = 6 then goto rend

suspend for key

goto startover

cls

R = R+1

if R = 6 then goto rend

print "Player 1 Score ",S1

print "Player 2 Score ",S2

suspend for key

goto startover

rend:

cls

print "Player 1 Score ",S1

print "Player 2 Score ",S2

print "Final"

print "press any key to restart or escape to quit."

suspend for key

goto menu

Download

Please login to download

Comments

No comments yet.

Author Name:	Daygamer
CodeBase Entries:	22

CodeBase - Risk

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments