TheGameCreators - CodeBase - rock, paper, scissors!!!!!!!!

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 4th Jan 2009 02:49

Modified: 1st Jan 1970 01:00

Author: awsumman4

Summary

rock paper scissors duh

Full Description

rock paper scissors took me forever to figure it out have fun and dont press escape.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

set text size 24 : set text font "Arial" : set text to bold

print "dont press escape!!!!!!!"

set cursor 180,10

print "ROCK, PAPER, SCISSORS!!!!!!!!!!!!!!!!"

set text size 18 : set cursor 180,30

print "Press any key to begin!!"

wait key

wins = 0

losses = 0

ties = 0

gosub start

start:

cls

set cursor 170,50

print "Wins: ";wins;"   Losses: ";losses;"     Ties: ";ties

set cursor 170,30

print "Press 'SPACE' to QUIT."

if spacekey() = 1 then end

set cursor 170,10

input " 1 for ROCK, 2 for PAPER, 3 for SCISSORS... ";playerchoice

if playerchoice = 1 then playerchoicetxt$ = "ROCK"

if playerchoice = 2 then playerchoicetxt$ = "PAPER"

if playerchoice = 3 then playerchoicetxt$ = "SCISSORS"

cls

aichoice = rnd (3)

if aichoice = 0 then aichoice = 1

if aichoice = 1 then aichoicetxt$ = "ROCK"

if aichoice = 2 then aichoicetxt$ = "PAPER"

if aichoice = 3 then aichoicetxt$ = "SCISSORS"

gosub compare

compare:

cls

if playerchoice = 1 and aichoice = 2 then gosub aiwin

if playerchoice = 1 and aichoice = 3 then gosub playerwin

if playerchoice = 2 and aichoice = 1 then gosub playerwin

if playerchoice = 2 and aichoice = 3 then gosub aiwin

if playerchoice = 3 and aichoice = 1 then gosub aiwin

if playerchoice = 3 and aichoice = 2 then gosub playerwin

if playerchoice = aichoice then gosub tie

aiwin:

losses = losses + 1

set cursor 170,10

print "You Lose!!!"

set cursor 170,30

print aichoicetxt$;" beats ";playerchoicetxt$;"!!!"

set cursor 170,50

print "Press any key to try again..."

set cursor 170,70

wait key

gosub start

playerwin:

wins = wins + 1

set cursor 170,10

print "You Win!!!"

set cursor 170,30

print playerchoicetxt$;" beats ";aichoicetxt$;"!!!"

set cursor 170,50

print "Press any key to try again..."

wait key

gosub start

tie:

ties = ties + 1

set cursor 170,10

print "It's a Tie!!!"

set cursor 170,30

print "Press any key to try again..."

wait key

gosub start

Download

Please login to download

Comments

No comments yet.

Author Name:	awsumman4
CodeBase Entries:	4

CodeBase - rock, paper, scissors!!!!!!!!

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments