TheGameCreators - CodeBase

Return to the CodeBase listing

Category: Text

Version: 1.0

Information

Uploaded: 4th Aug 2009 12:26

Modified: 1st Jan 1970 01:00

Author: Daygamer

Summary

Stop the number on 100 to get a WOW! No Media!

Full Description

Welcome to WOW! You need two people to play. WOW! is all about timing. There is a number that starts at 0 and rises. Try to stop it by pressing the spacebar when it reaches 100. The closer you are the more points you get. If you stop the number on 100 then you get a WOW! and 100 points! You and your partner take turns until five rounds are over, and then see who has more points.

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Menu:

set text size 1000

ink rgb(rnd(1000),rnd(1000),rnd(1000)),0

text 225,150,"WOW!"

WOW=WOW+1

if WOW>200 then exit

loop

set text size 10

ink rgb(10,10,1000),0

if firstime=0

cls

text 5,10,"Welcome to WOW! You need two people to play. WOW! is all about timing. There is a number"

text 5,30,"that starts at 0 and rises. Try to stop it by pressing the spacebar when it reaches 100."

text 5,50,"The closer you are the more points you get. If you stop the number on 100 then you get a"

text 5,70,"WOW! and 100 points! You and your partner take turns until five rounds are over, and then"

text 5,90,"see who has more points. press any key..."

suspend for key

endif

firstime=1

rem >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Gamestart:

cls

R = 1

set cursor 10,10

input "type name player 1: ";P1$

cls

set cursor 10,10

input "type name player 2: ";P2$

cls

Game:

set cursor 10,10

print P1$

set cursor 10,30

print P2$

set cursor 10,50

print "Round ",R

set cursor 10,70

print "press any key..."

suspend for key

Gstartover:

A = 0

cls

set cursor 10,10

print "Get Ready, ",P1$

wait 3000

cls

A = A+1

set cursor 10,10

print A

set cursor 10,30

print P1$

if spacekey()=1 then B = A : goto Grend

loop

Grend:

cls

set cursor 10,10

print B

set cursor 10,30

if B = 100 then print "!!!WOW!!! | 100" : S = S+100

if B = 101 then print "CLOSE | 50" : S = S+50

if B = 102 then print "CLOSE | 30" : S = S+30

if B = 103 then print "CLOSE | 20" : S = S+20

if B = 104 then print "NOT BAD | 10" : S = S+10

if B = 105 then print "NOT BAD | 8" : S = S+8

if B = 106 then print "NOPE | 7" : S = S+7

if B = 107 then print "NOPE | 5" : S = S+5

if B = 108 then print "NO WAY | 3" : S = S+3

if B = 109 then print "NO WAY | 1" : S = S+1

if B = 99 then print "CLOSE | 50" : S = S+50

if B = 98 then print "CLOSE | 30" : S = S+30

if B = 97 then print "CLOSE | 20" : S = S+20

if B = 96 then print "NOT BAD | 10" : S = S+10

if B = 95 then print "NOT BAD | 9" : S = S+9

if B = 94 then print "NOPE | 8" : S = S+8

if B = 93 then print "NOPE | 7" : S = S+7

if B = 92 then print "NOPE | 5" : S = S+5

if B = 91 then print "NO WAY | 3" : S = S+3

if B = 90 then print "NO WAY | 1" : S = S+1

set cursor 10,70

print "Press any key..."

wait 200

suspend for key

goto Gsoe

Gsoe:

cls

set cursor 10,10

print P1$,"'s Score: ",S

set cursor 10,30

print P2$,"'s Score: ",S2

set cursor 10,50

print "Round ",R

set cursor 10,70

print "Press Enter..."

if returnkey()=1

goto GPlayer

endif

loop

GPlayer:

cls

set cursor 10,10

print "Get Ready, ",P2$

wait 3000

cls

A = 0

cls

A = A+1

set cursor 10,10

print A

set cursor 10,30

print P2$

if spacekey()=1 then B = A : goto Grend2

loop

Grend2:

cls

set cursor 10,10

print B

set cursor 10,30

if B = 100 then print "!!!WOW!!! | 100" : S2 = S2+100

if B = 101 then print "CLOSE | 50" : S2 = S2+50

if B = 102 then print "CLOSE | 30" : S2 = S2+30

if B = 103 then print "CLOSE | 20" : S2 = S2+20

if B = 104 then print "NOT BAD | 10" : S2 = S2+10

if B = 105 then print "NOT BAD | 8" : S2 = S2+8

if B = 106 then print "NOPE | 7" : S2 = S2+7

if B = 107 then print "NOPE | 5" : S2 = S2+5

if B = 108 then print "NO WAY | 3" : S2 = S2+3

if B = 109 then print "NO WAY | 1" : S2 = S2+1

if B = 99 then print "CLOSE | 50" : S2 = S2+50

if B = 98 then print "CLOSE | 30" : S2 = S2+30

if B = 97 then print "CLOSE | 20" : S2 = S2+20

if B = 96 then print "NOT BAD | 10" : S2 = S2+10

if B = 95 then print "NOT BAD | 9" : S2 = S2+9

if B = 94 then print "NOPE | 8" : S2 = S2+8

if B = 93 then print "NOPE | 7" : S2 = S2+7

if B = 92 then print "NOPE | 5" : S2 = S2+5

if B = 91 then print "NO WAY | 3" : S2 = S+3

if B = 90 then print "NO WAY | 1" : S2 = S2+1

set cursor 10,70

print "Press any key..."

wait 200

suspend for key

goto Gsoe2

Gsoe2:

R = R+1

cls

set cursor 10,10

print P1$,"'s Score: ",S

set cursor 10,30

print P2$,"'s Score: ",S2

set cursor 10,50

print "Round ",R

set cursor 10,70

print "Press Enter..."

if R = 6

goto Gfinal

endif

if returnkey()=1

goto Gstartover

endif

loop

Gfinal:

cls

set cursor 10,10

print P1$,"'s Score: ",S

set cursor 10,30

print P2$,"'s Score: ",S2

set cursor 10,50

print "Final"

set cursor 10,70

print "If you want to play again press Enter. If you want to quit press Escape."

CodeBase - WOW!

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments

Author Name:	Daygamer
CodeBase Entries:	22