Rock Paper Scissors Game - GameCreators Forum

Author

Message

Newbie Guy

18

Years of Service

User Offline

Joined: 3rd Feb 2006

Location:

Posted: 4th Feb 2006 00:12

Link

Does anyone have the code for Rock Paper Scissors game for Dark Basic?

Back to top

Profile PM

Flaming Ghost

19

Years of Service

User Offline

Joined: 29th Apr 2005

Location: Um...Right here

Posted: 4th Feb 2006 16:38

Link

You know, I seriously doubt that anyone will just give you code... you need to try it on your own first, then we will help you fix it if it has any problems.

LIGHT FRENZY (almost done!)
Best Noobish game ever.

Back to top

Profile PM Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 4th Feb 2006 22:29

Link

Yeah we don't like the "Gimmie da codez!" messages. We can break it down for him though.

You can pick 2 random numbers between 0 and 2 (look up the "rnd" in the help files). Make 0=Rock, 1=Paper, and 2=Scissors. Make if/then statements (look up "if" in the help files) that check the number player1 has vs the number player2 has to determine who won. And add to the score of whoever won. And of course print the results to the screen (look up "print" or "text" in the help files).

Back to top

Profile PM Email

Daemon

18

Years of Service

User Offline

Joined: 16th Dec 2005

Location: Everywhere

Posted: 5th Feb 2006 06:06

Link

Try to learn how this works.

+ Code Snippet

set text size 20
do
begin:
input "Rock Paper Scissors: ",choice$
if escapekey()=1
   end
endif
if choice$="rock" or choice$="ROCK" or choice$="Rock"
   c=1
else
   if choice$="paper" or choice$="PAPER" or choice$="Paper"
      c=2
   else
      if choice$="scissors" or choice$="SCISSORS" or choice$="Scissors"
         c=3
      else
         gosub begin
      endif
   endif
endif
ac=rnd(2)+1
if ac=1
   print "Rock"
else
   if ac=2
      print "Paper"
   else
      print "Scissors"
   endif
endif
print ""
if c=ac
   print "Tie"
else
   if c=1 and ac=2 or c=2 and ac=3 or c=3 and ac=1
      print "You Lose"
   else
      print "You Win"
   endif
endif
loop

Insanity is just a state of mind

Back to top

Profile PM Website

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 5th Feb 2006 06:39

Link

well, when this thread hit, i went to make one just for the heck of it:

p = 0 : c = 0 : t = 0
x = screen width()/2 : y = screen height()/2

do
 cls
 print "Current Score: ",p," vs ",c,"    Tie Games: ",t,"    Total Games: ",(p+c+t)
 print
 print "choose your weapon! "
 print "1) Rock"
 print "2) Paper"
 print "3) Scissors"
 input ">",weapon
 if weapon = 1 then gosub _rock
 if weapon = 2 then gosub _paper
 if weapon = 3 then gosub _scissors
sync
wait key
loop

_rock:
randomize timer() : comp = rnd(2)
if comp = 0 then center text x,y, "ROCK vs ROCK! It's a TIE!" : inc t
if comp = 1 then center text x,y, "ROCK vs PAPER! You LOSE!" : inc c
if comp = 2 then center text x,y, "ROCK vs SCISSORS! YOU WIN!" : inc p
return

_paper:
randomize timer() : comp = rnd(2)
if comp = 0 then center text x,y, "PAPER vs ROCK! YOU WIN!" : inc p
if comp = 1 then center text x,y, "PAPER vs PAPER! It's a TIE!" : inc t
if comp = 2 then center text x,y, "PAPER vs SCISSORS! You LOSE!" : inc c
return

_scissors:
randomize timer() : comp = rnd(2)
if comp = 0 then center text x,y, "SCISSORS vs ROCK! YOU LOSE!" : inc c
if comp = 1 then center text x,y, "SCISSORS vs PAPER! YOU WIN!" : inc p
if comp = 2 then center text x,y, "SCISSORS vs SCISSORS! It's a TIE!" : inc t
return

+ Code Snippet

p = 0 : c = 0 : t = 0
x = screen width()/2 : y = screen height()/2

do
 cls
 print "Current Score: ",p," vs ",c,"    Tie Games: ",t,"    Total Games: ",(p+c+t)
 print
 print "choose your weapon! "
 print "1) Rock"
 print "2) Paper"
 print "3) Scissors"
 input ">",weapon
 if weapon = 1 then gosub _rock
 if weapon = 2 then gosub _paper
 if weapon = 3 then gosub _scissors
sync
wait key
loop

_rock:
randomize timer() : comp = rnd(2)
if comp = 0 then center text x,y, "ROCK vs ROCK! It's a TIE!" : inc t
if comp = 1 then center text x,y, "ROCK vs PAPER! You LOSE!" : inc c
if comp = 2 then center text x,y, "ROCK vs SCISSORS! YOU WIN!" : inc p
return

_paper:
randomize timer() : comp = rnd(2)
if comp = 0 then center text x,y, "PAPER vs ROCK! YOU WIN!" : inc p
if comp = 1 then center text x,y, "PAPER vs PAPER! It's a TIE!" : inc t
if comp = 2 then center text x,y, "PAPER vs SCISSORS! You LOSE!" : inc c
return

_scissors:
randomize timer() : comp = rnd(2)
if comp = 0 then center text x,y, "SCISSORS vs ROCK! YOU LOSE!" : inc c
if comp = 1 then center text x,y, "SCISSORS vs PAPER! YOU WIN!" : inc p
if comp = 2 then center text x,y, "SCISSORS vs SCISSORS! It's a TIE!" : inc t
return

it's another approach. nearly the same amount of code as Daemon's. point is, learn from both sets of code, as well as the fact that there are different approaches to a situation when coding. good luck

Athlon XP1800+, Windows XP+SP2, Soyo K7V Dragon+ MB, 1.5Gb 333 RAM, ATI Radeon 8700LT (128Mb)
Drivers and Updates Kept Current

Back to top

Profile PM Website

Milky the purple crab

19

Years of Service

User Offline

Joined: 5th Aug 2005

Location:

Posted: 5th Feb 2006 06:43

Link

Isn't there a command that makes it unneccasary(sorry for spelling) to type if "ROCK" or "Rock" or "rock"?

I don't fear pain.....I fear feeling it.

Back to top

Profile PM

Milky the purple crab

19

Years of Service

User Offline

Joined: 5th Aug 2005

Location:

Posted: 5th Feb 2006 07:24 Edited at: 5th Feb 2006 08:00

Link

I had a crack at it too i think i did okay for a first try.

p = 0 : c = 0 : t = 0
x = screen width()/2 : y = screen height()/2

do
IF ESCAPEKEY()=1 THEN END
 cls
 print "Current Score: ",p," vs ",c,"    Tie Games: ",t,"    Total Games: ",(p+c+t)
 print
print " Welcome to ROCK, PAPER, SCISSORS! "
wait 1000
print " Choose your weapon "
wait 2000
print "(1)Rock "
wait 1000
print "(2)paper "
wait 1000
print "(3) scissors "
wait 1000
input ">",weapon
cls
IF weapon = 1 THEN GOSUB _rock
IF weapon = 2 THEN GOSUB _paper
IF weapon = 3 THEN GOSUB _scissors
SYNC
PRINT " Press any key to continue "
WAIT KEY
LOOP

_rock:
randomize timer() : comp = rnd(2)
if comp = 0 then center text x,y, "ROCK BLOCKS ROCK. TIE!"
if comp = 1 then center text x,y, "PAPER WRAPS ROCK. YOU LOSE!"
if comp = 2 then center text x,y, "ROCK SMASHES SICISSORS. YOU WIN!"
PRINT " Press enter to play again or any other key to end "
SUSPEND FOR KEY
IF RETURNKEY()=1 THEN RETURN : else end

_paper:
randomize timer() : comp = rnd(2)
if comp = 0 then center text x,y, "PAPER WRAPS ROCK! YOU WIN!" : inc p
if comp = 1 then center text x,y, "PAPER FOLDS PAPER! TIE!" : inc t
if comp = 2 then center text x,y, "SCISSORS CUTS PAPER You LOSE!" : inc c
PRINT " Press enter to play again or any other key to end "
SUSPEND FOR KEY
IF RETURNKEY()=1 THEN RETURN : else end

_scissors:
randomize timer() : comp = rnd(2)
if comp = 0 then center text x,y, "ROCK BREAKS SCISSORS! YOU LOSE!" : inc c
if comp = 1 then center text x,y, "SCISSORS CUTS PAPER! YOU WIN!" : inc p
if comp = 2 then center text x,y, "SCISSORS CLASHES WITH SCISSORS! TIE!" : inc t
PRINT " Press enter to play again or any other key to end "
SUSPEND FOR KEY
IF RETURNKEY()=1 THEN RETURN : else end

+ Code Snippet

p = 0 : c = 0 : t = 0
x = screen width()/2 : y = screen height()/2

do
IF ESCAPEKEY()=1 THEN END
 cls
 print "Current Score: ",p," vs ",c,"    Tie Games: ",t,"    Total Games: ",(p+c+t)
 print
print " Welcome to ROCK, PAPER, SCISSORS! "
wait 1000
print " Choose your weapon "
wait 2000
print "(1)Rock "
wait 1000
print "(2)paper "
wait 1000
print "(3) scissors "
wait 1000
input ">",weapon
cls
IF weapon = 1 THEN GOSUB _rock
IF weapon = 2 THEN GOSUB _paper
IF weapon = 3 THEN GOSUB _scissors
SYNC
PRINT " Press any key to continue "
WAIT KEY
LOOP

_rock:
randomize timer() : comp = rnd(2)
if comp = 0 then center text x,y, "ROCK BLOCKS ROCK. TIE!"
if comp = 1 then center text x,y, "PAPER WRAPS ROCK. YOU LOSE!"
if comp = 2 then center text x,y, "ROCK SMASHES SICISSORS. YOU WIN!"
PRINT " Press enter to play again or any other key to end "
SUSPEND FOR KEY
IF RETURNKEY()=1 THEN RETURN : else end

_paper:
randomize timer() : comp = rnd(2)
if comp = 0 then center text x,y, "PAPER WRAPS ROCK! YOU WIN!" : inc p
if comp = 1 then center text x,y, "PAPER FOLDS PAPER! TIE!" : inc t
if comp = 2 then center text x,y, "SCISSORS CUTS PAPER You LOSE!" : inc c
PRINT " Press enter to play again or any other key to end "
SUSPEND FOR KEY
IF RETURNKEY()=1 THEN RETURN : else end



_scissors:
randomize timer() : comp = rnd(2)
if comp = 0 then center text x,y, "ROCK BREAKS SCISSORS! YOU LOSE!" : inc c
if comp = 1 then center text x,y, "SCISSORS CUTS PAPER! YOU WIN!" : inc p
if comp = 2 then center text x,y, "SCISSORS CLASHES WITH SCISSORS! TIE!" : inc t
PRINT " Press enter to play again or any other key to end "
SUSPEND FOR KEY
IF RETURNKEY()=1 THEN RETURN : else end

i used virtual nomad's code as a basis. thanks virtual.

MILKY

I don't fear pain.....I fear feeling it.

Back to top

Profile PM

Milky the purple crab

19

Years of Service

User Offline

Joined: 5th Aug 2005

Location:

Posted: 5th Feb 2006 07:34 Edited at: 5th Feb 2006 07:35

Link

sorry i double posted

I don't fear pain.....I fear feeling it.

Back to top

Profile PM

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 5th Feb 2006 09:19

Link

Mine was made at the time of the my first post in this thread but I didn't post it because I wrote "We don't like gimmie da codez messages!"... I guess it's ok to post it now.

randomize timer()

` 0 = Rock
` 1 = Paper
` 2 = Scissors

do
 ` Pick a random object
 Player1=rnd(2)
 Player2=rnd(2)
 
 ` The variable stores which player actually wins
 Win=0
  
 ` Rock-Paper
 if Player1=0 and Player2=1 then Win=2
 if Player1=1 and Player2=0 then Win=1
 
 ` Rock-Scissors
 if Player1=0 and Player2=2 then Win=1
 if Player1=2 and Player2=0 then Win=2
 
 ` Scissors-Paper
 if Player1=2 and Player2=1 then Win=1
 if Player1=1 and Player2=2 then Win=2 
 
 ` Assign the proper object to the number in Player1
 if Player1=0 then P1$="Rock"
 if Player1=1 then P1$="Paper"
 if Player1=2 then P1$="Scissors"
 
 ` Assign the proper object to the number in Player2
 if Player2=0 then P2$="Rock"
 if Player2=1 then P2$="Paper"
 if Player2=2 then P2$="Scissors"

` Increase the score for the players
 if Win=1 then inc P1Score
 if Win=2 then inc P2Score

` Show results
 cls
 text 0,0,"Player 1 = "+P1$
 text 0,20,"Player 2 = "+P2$
 text 0,60,"Player "+str$(Win)+" Wins"
 text 0,100,"Player 1: "+str$(P1Score)
 text 0,120,"Player 2: "+str$(P2Score)
 wait key

loop

+ Code Snippet

randomize timer()

` 0 = Rock
` 1 = Paper
` 2 = Scissors

do
 ` Pick a random object
 Player1=rnd(2)
 Player2=rnd(2)
 
 ` The variable stores which player actually wins
 Win=0
  
 ` Rock-Paper
 if Player1=0 and Player2=1 then Win=2
 if Player1=1 and Player2=0 then Win=1
 
 ` Rock-Scissors
 if Player1=0 and Player2=2 then Win=1
 if Player1=2 and Player2=0 then Win=2
 
 ` Scissors-Paper
 if Player1=2 and Player2=1 then Win=1
 if Player1=1 and Player2=2 then Win=2 
 
 ` Assign the proper object to the number in Player1
 if Player1=0 then P1$="Rock"
 if Player1=1 then P1$="Paper"
 if Player1=2 then P1$="Scissors"
 
 ` Assign the proper object to the number in Player2
 if Player2=0 then P2$="Rock"
 if Player2=1 then P2$="Paper"
 if Player2=2 then P2$="Scissors"

 ` Increase the score for the players
 if Win=1 then inc P1Score
 if Win=2 then inc P2Score

 ` Show results
 cls
 text 0,0,"Player 1 = "+P1$
 text 0,20,"Player 2 = "+P2$
 text 0,60,"Player "+str$(Win)+" Wins"
 text 0,100,"Player 1: "+str$(P1Score)
 text 0,120,"Player 2: "+str$(P2Score)
 wait key

loop

Back to top

Profile PM Email

Newbie Guy

18

Years of Service

User Offline

Joined: 3rd Feb 2006

Location:

Posted: 5th Feb 2006 19:43

Link

Thanks everyone for your help. It will get me started on the right path. Sorry for not knowing all the rules. I am learning. Thanks again.

Back to top

Profile PM

Daemon

18

Years of Service

User Offline

Joined: 16th Dec 2005

Location: Everywhere

Posted: 5th Feb 2006 20:10

Link

I looked into it and yes, there is a way to make it so that you don't have to check Rock, rock, and ROCK. Here is my code with only that change.

+ Code Snippet

set text size 20
do
begin:
input "Rock Paper Scissors: ",choice$
if escapekey()=1
   end
endif
if upper$(choice$)="ROCK"
   c=1
else
   if upper$(choice$)="PAPER"
      c=2
   else
      if upper$(choice$)="SCISSORS"
         c=3
      else
         gosub begin
      endif
   endif
endif
ac=rnd(2)+1
if ac=1
   print "Rock"
else
   if ac=2
      print "Paper"
   else
      print "Scissors"
   endif
endif
print ""
if c=ac
   print "Tie"
else
   if c=1 and ac=2 or c=2 and ac=3 or c=3 and ac=1
      print "You Lose"
   else
      print "You Win"
   endif
endif
loop

Insanity is just a state of mind

Back to top

Profile PM Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 5th Feb 2006 22:37

Link

I always just add a line right after the input "choice$=upper$(choice$)"... that way you don't have to do the conversion everytime you want to check the string.

Back to top

Profile PM Email

The Short One

18

Years of Service

User Offline

Joined: 2nd Feb 2006

Location:

Posted: 5th Feb 2006 22:46

Link

thanx for your info

Back to top

Profile PM Email

RUCCUS

19

Years of Service

User Offline

Joined: 11th Dec 2004

Location: Canada

Posted: 8th Feb 2006 21:38

Link

I threw this together pretty quickly cuz' I had to go get my tonsels taken out, IT KILLS! omgz soo much pain!

Anyhoo here's teh c0d3z:

Main$="Select yer weapon! 1 = Rock | 2 = Paper | 3 = Scissorz"

DO

CLS

SET TEXT TO BOLD:SET TEXT SIZE 15
CENTER TEXT SCREEN WIDTH()/2,50,"r0xx0r, p4p3r, sc1ss0rz"

SET TEXT TO NORMAL:SET TEXT SIZE 10
CENTER TEXT (SCREEN WIDTH()/2)+Offset#,65+Offset#,Main$

TEXT 10,100,P1$
TEXT SCREEN WIDTH()-(TEXT WIDTH(P2$)), 100, P2$

IF Main$="Select yer weapon! 1 = Rock | 2 = Paper | 3 = Scissorz"

FOR Key = 1 TO 3

IF KEYSTATE(Key+1)=1
PDec=Key
Main$="Hold on while the computer d00d selects his sk4t"
ENDIF

NEXT Key

ENDIF

IF Main$="Hold on while the computer d00d selects his sk4t" OR Main$="LETS" OR Main$="LETS GET" OR Main$="LETS GET READY" OR Main$="LETS GET READY TO RUMBLE!!!"
IF Timer#<125

INC Timer#,1

IF Timer#<50 AND Timer#>=25 THEN Main$="LETS"

IF Timer#<75 AND Timer#>50 THEN Main$="LETS GET"

IF Timer#<100 AND Timer#>75 THEN Main$="LETS GET READY"

IF Timer#>100 THEN Main$="LETS GET READY TO RUMBLE!!!":Offset#=-3+rnd(6)

ELSE

Offset#=0:Timer#=0:CLS:Main$="":CDec=rnd(2):INC CDec,1

ENDIF
ENDIF

IF Main$=""

IF PDec=CDec-1 OR CDec=PDec-2 THEN Outcome=1
IF PDec=CDec THEN Outcome=2
IF CDec=PDec-1 OR PDec=CDec-2 THEN Outcome=0

IF PDec=1 THEN PWord$="Rock"
IF PDec=2 THEN PWord$="Paper"
IF PDec=3 THEN PWord$="Scissors"

IF CDec=1 THEN CWord$="Rock"
IF CDec=2 THEN CWord$="Paper"
IF CDec=3 THEN CWord$="Scissors"

P1$="You chose: "+PWord$
P2$="Teh other d00d chose: "+CWord$

IF Outcome = 0 THEN CENTER TEXT SCREEN WIDTH()/2,150,"w00t! j00 t0t411j pwn3d his ass! (you won)"
IF Outcome = 1 THEN CENTER TEXT SCREEN WIDTH()/2,150,"omgz0rz...j00 l4m3r (you lost)"
IF Outcome = 2 THEN CENTER TEXT SCREEN WIDTH()/2,150,"oh noes, j00 tied!"

CENTER TEXT SCREEN WIDTH()/2,200,"press space bar to restart, esc to quit"

IF SPACEKEY()=1

Main$="Select yer weapon! 1 = Rock | 2 = Paper | 3 = Scissorz"
P1$=""
P2$=""
IF Outcome = 0 THEN INC Pscore,1
IF Outcome = 1 THEN INC Cscore,1
ENDIF

ENDIF

CENTER TEXT SCREEN WIDTH()/2,400,"Player: "+str$(Pscore)+" wins | Computer: "+str$(Cscore)+" wins"

SYNC
LOOP

+ Code Snippet

Main$="Select yer weapon! 1 = Rock | 2 = Paper | 3 = Scissorz"

DO

CLS

SET TEXT TO BOLD:SET TEXT SIZE 15
CENTER TEXT SCREEN WIDTH()/2,50,"r0xx0r, p4p3r, sc1ss0rz"

SET TEXT TO NORMAL:SET TEXT SIZE 10
CENTER TEXT (SCREEN WIDTH()/2)+Offset#,65+Offset#,Main$

TEXT 10,100,P1$
TEXT SCREEN WIDTH()-(TEXT WIDTH(P2$)), 100, P2$

IF Main$="Select yer weapon! 1 = Rock | 2 = Paper | 3 = Scissorz"

FOR Key = 1 TO 3

IF KEYSTATE(Key+1)=1
PDec=Key
Main$="Hold on while the computer d00d selects his sk4t"
ENDIF

NEXT Key

ENDIF

IF Main$="Hold on while the computer d00d selects his sk4t" OR Main$="LETS" OR Main$="LETS GET" OR Main$="LETS GET READY" OR Main$="LETS GET READY TO RUMBLE!!!"
IF Timer#<125

INC Timer#,1

IF Timer#<50 AND Timer#>=25 THEN Main$="LETS"

IF Timer#<75 AND Timer#>50 THEN Main$="LETS GET"

IF Timer#<100 AND Timer#>75 THEN Main$="LETS GET READY"

IF Timer#>100 THEN Main$="LETS GET READY TO RUMBLE!!!":Offset#=-3+rnd(6)

ELSE

Offset#=0:Timer#=0:CLS:Main$="":CDec=rnd(2):INC CDec,1

ENDIF
ENDIF

IF Main$=""

IF PDec=CDec-1 OR CDec=PDec-2 THEN Outcome=1
IF PDec=CDec THEN Outcome=2
IF CDec=PDec-1 OR PDec=CDec-2 THEN Outcome=0

IF PDec=1 THEN PWord$="Rock"
IF PDec=2 THEN PWord$="Paper"
IF PDec=3 THEN PWord$="Scissors"

IF CDec=1 THEN CWord$="Rock"
IF CDec=2 THEN CWord$="Paper"
IF CDec=3 THEN CWord$="Scissors"

P1$="You chose: "+PWord$
P2$="Teh other d00d chose: "+CWord$

IF Outcome = 0 THEN CENTER TEXT SCREEN WIDTH()/2,150,"w00t! j00 t0t411j pwn3d his ass! (you won)"
IF Outcome = 1 THEN CENTER TEXT SCREEN WIDTH()/2,150,"omgz0rz...j00 l4m3r (you lost)"
IF Outcome = 2 THEN CENTER TEXT SCREEN WIDTH()/2,150,"oh noes, j00 tied!"

CENTER TEXT SCREEN WIDTH()/2,200,"press space bar to restart, esc to quit"

IF SPACEKEY()=1

Main$="Select yer weapon! 1 = Rock | 2 = Paper | 3 = Scissorz"
P1$=""
P2$=""
IF Outcome = 0 THEN INC Pscore,1
IF Outcome = 1 THEN INC Cscore,1
ENDIF

ENDIF

CENTER TEXT SCREEN WIDTH()/2,400,"Player: "+str$(Pscore)+" wins | Computer: "+str$(Cscore)+" wins"

SYNC
LOOP

While making it I dsicovered something cool, there's actually a formula to figure out who wins the match. Too tired to explain but check the code out and you'll see what I mean, it could've been written a lot more efficiently but im tired and in severe pain so thats all yer getin!

- RUC'

Back to top

Profile PM Email Website

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 9th Feb 2006 00:55 Edited at: 9th Feb 2006 00:56

Link

k, now this little tangent's got my attention again. heh.

ruc, re: formula
i've been thinking there's a 'formula' in the game somewhere too but i still don't see it. is this where the key lies?

+ Code Snippet

IF PDec=CDec-1 OR CDec=PDec-2 THEN Outcome=1
IF PDec=CDec THEN Outcome=2
IF CDec=PDec-1 OR PDec=CDec-2 THEN Outcome=0

still looks like it's manually comparing the possible combinations and stating a winner like the other code in this thread. please explain when the pain subsides? (btw, hope you're feeling better soon)

since i'm so very new to DBPro i don't know if such a thing exists, but it would sure be nice to 'declare' something like this:

+ Code Snippet

set ROCK > SCISSORS > PAPER > ROCK

for situations like this. there's gotta be a way. anyone know or have an idea on how to simplify?

Athlon XP1800+, Windows XP+SP2, Soyo K7V Dragon+ MB, 1.5Gb 333 RAM, ATI Radeon 8700LT (128Mb)
Drivers and Updates Kept Current

Back to top

Profile PM Website

RUCCUS

19

Years of Service

User Offline

Joined: 11th Dec 2004

Location: Canada

Posted: 9th Feb 2006 01:02

Link

Thats the formula I was talking about yes, I guess its not that much of a formula but its like...

Rock Paper Scissors has a specific order, Paper beating rock, Scissors beating Paper, and Rock beating Scissors. Lets say Rock = 1, Paper = 2 and Scissors = 3. If I choose 1, and the other player chooeses 3, I should win since I've gotten rock and they've gotten scissors. You can detect this by checking if my choise is 2 less than their choice. The same goes for 1 less except opposite, so if I chose 1 (rock) and the cp chose 2(paper), they win, you can then check this by checking if one choice is one less than the other.

So..

If user's choice is 2 less than opponents choice, user wins.

If user's choice is 1 less than opponents choice, user loses.

If user's choice is equal to opponents choice, user ties.

This is faster comparing the numbers rather than converting the numbers to their objects and then doing double the amount of checks to see who beat who, as you basically have to check each object against each other possible object.

Im gona look into finding the ASCII value of the first letter, or something like that. If they have a certain order then I could come up with an even faster formula.

Anyhoo I'm going to go watch Kong first

- RUC'

Back to top

Profile PM Email Website

x1b

20

Years of Service

User Offline

Joined: 19th Sep 2004

Location:

Posted: 9th Feb 2006 03:00 Edited at: 9th Feb 2006 03:01

Link

Quote: "Yeah we don't like the "Gimmie da codez!" messages."

Ya! Thats right!! we like "gimmeh multiple varities of t3h c0d3z!" messages

not even going to bother with posting mine,now. everyone and their mother "gibbed teh codez"

- Do it, Do it Right, Do it right now..

Back to top

Profile PM

Sonic 91 Software

19

Years of Service

User Offline

Joined: 19th Mar 2005

Location: In a Cryptic Crossworld!

Posted: 11th Feb 2006 15:20

Link

Quote: "Location: Cyberspace "

why, oh WHY are sooo many of you based in cyberspace!? I mean, nit just in this forum, but in all the others too!

I am a Christian and I know that God loves me. That is what makes my life so great!

Back to top

Profile PM Email Website

RUCCUS

19

Years of Service

User Offline

Joined: 11th Dec 2004

Location: Canada

Posted: 11th Feb 2006 16:39 Edited at: 11th Feb 2006 16:41

Link

<edit>

I'm foreign.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Rock Paper Scissors Game