TGC Codebase Backup



Risk by Daygamer

4th Aug 2009 11:39
Summary

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



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.



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