Rosetta Code

Rock-paper-scissors: Difference between revisions

Page Discussion

Rock-paper-scissors (view source)

Revision as of 06:18, 3 May 2020

2,927 bytes added ,  4 years ago
→‎{{header|Ring}}
(Rename Perl 6 -> Raku, alphabetize, minor clean-up)
Line 4,515:
# Project : Rock-paper-scissors
 
load "stdlib.ring"
see "
load "guilib.ring"
welcome to the game of rock-paper-scissors.
 
each player guesses one of these three, and reveals it at the same time.
width = 200
rock blunts scissors, which cut paper, which wraps stone.
height = 200
if both players choose the same, it is a draw!
 
when you've had enough, choose q.
myChose = 1
"
compChose = 1
g = ["rock","paper","scissors"]
nextPlayer = 1
total=0 draw=0
myScore = 0
pwin=0 cwin=0
compScore = 0
see "what is your move (press r, p, or s)?"
C_FONTSIZE = 15
while true
 
c=random(2)+1
C_ROCK = "images/rock.jpg"
give q
C_PAPER = "images/paper.jpg"
gs = floor((substr("rpsq",lower(q))))
C_SCISSORS = "images/scissors.jpg"
if gs>3 or gs<1
 
summarise()
ChoseList = [C_ROCK,C_PAPER,C_SCISSORS]
exit
 
ok
Button = list(len(ChoseList))
total = total + 1
 
see"you chose " + g[gs] + " and i chose " + g[c] + nl
app = new QApp
temp = gs-c
{
if temp = 0
 
see ". it's a draw"
StyleFusion()
draw = draw + 1
 
ok
win = new QWidget() {
if temp = 1 or temp = -2
 
see ". you win!"
setWindowTitle('Stone Paper Scissors Game')
pwin = pwin + 1
setWinIcon(self,C_ROCK)
ok
setStyleSheet("background-color:cyan;")
if temp = (-1) or temp = 2
setWindowFlags(Qt_Window | Qt_WindowTitleHint | Qt_WindowCloseButtonHint | Qt_CustomizeWindowHint)
see ". i win!"
reSize(900,600)
cwin = cwin + 1
winheight = height()
ok
fontSize = 8 + (winheight / 100)
end
 
</lang>
for Col = 1 to len(ChoseList)
Output:
Button[Col] = new QPushButton(win) {
<pre>
x = 150+(Col-1)*height
welcome to the game of rock-paper-scissors.
setgeometry(x,35,width,height)
each player guesses one of these three, and reveals it at the same time.
setStyleSheet("background-color:white;")
rock blunts scissors, which cut paper, which wraps stone.
seticon(new qicon(new qpixmap(ChoseList[Col])))
if both players choose the same, it is a draw!
setIconSize(new qSize(200,200))
when you've had enough, choose q.
setclickevent("ButtonPress(" + string(Col) + ")")
setSizePolicy(1,1)
}
next
 
labelMyChose = new QLabel(win) {
setgeometry(200,250,150,30)
setFont(new qFont("Verdana",C_FONTSIZE,50,0))
settext("My Chose:")
}
 
labelCompChose = new QLabel(win) {
setgeometry(580,250,150,30)
setFont(new qFont("Verdana",C_FONTSIZE,50,0))
settext("Comp Chose:")
}
 
labelScoreEnd = new QLabel(win) {
setgeometry(0,510,win.width(),30)
setAlignment(Qt_AlignHCenter | Qt_AlignVCenter)
setFont(new qFont("Verdana",C_FONTSIZE,50,0))
settext("")
}
 
btnMyChose = new QPushButton(win) {
setgeometry(150,300,width,height)
setStyleSheet("background-color:white;")
}
 
btnCompChose = new QPushButton(win) {
setgeometry(550,300,width,height)
setStyleSheet("background-color:white;")
}
 
btnNewGame = new QPushButton(win) {
setgeometry(170,550,150,40)
setFont(new qFont("Verdana",C_FONTSIZE,50,0))
setclickevent("NewGame()")
settext("New Game")
}
 
btnExit = new QPushButton(win) {
setgeometry(580,550,150,40)
setFont(new qFont("Verdana",C_FONTSIZE,50,0))
setclickevent("Close()")
settext("Exit")
}
 
labelMyScore = new QLabel(win) {
setgeometry(170,0,100,30)
setFont(new qFont("Verdana",C_FONTSIZE,50,0))
settext("My Score: ")
}
 
labelMyScoreSum = new QLabel(win) {
setgeometry(300,0,100,30)
setFont(new qFont("Verdana",C_FONTSIZE,50,0))
settext("")
}
 
labelCompScore = new QLabel(win) {
setgeometry(580,0,130,30)
setFont(new qFont("Verdana",C_FONTSIZE,50,0))
settext("Comp Score: ")
}
 
labelCompScoreSum = new QLabel(win) {
setgeometry(730,0,100,30)
setFont(new qFont("Verdana",C_FONTSIZE,50,0))
settext("")
}
 
show()
 
}
 
exec()
 
}
 
func ButtonPress Col
 
if nextPlayer = 1
myChose = Col
btnMyChose {
seticon(new qicon(new qpixmap(ChoseList[Col])))
setIconSize(new qSize(width,height))
}
nextPlayer = 2
compChose()
ok
 
func compChose
 
rndChose = random(len(ChoseList)-1) + 1
compChose = rndChose
btnCompChose {
seticon(new qicon(new qpixmap(ChoseList[compChose])))
setIconSize(new qSize(width,height))
}
nextPlayer = 1
Result()
 
func Result
 
if (myChose = compChose)
labelScoreEnd.settext("Draw!")
ok
if (myChose = 1) and (compChose = 2)
labelScoreEnd.settext("Computer Win!")
compScore = compScore + 1
labelCompScoreSum.settext(string(compScore))
ok
if (myChose = 1) and (compChose = 3)
labelScoreEnd.settext("I Win!")
myScore = myScore + 1
labelMyScoreSum.settext(string(myScore))
ok
if (myChose = 2) and (compChose = 3)
labelScoreEnd.settext("Computer Win!")
compScore = compScore + 1
labelCompScoreSum.settext(string(compScore))
ok
if (myChose = 2) and (compChose = 1)
labelScoreEnd.settext("I Win!")
myScore = myScore + 1
labelMyScoreSum.settext(string(myScore))
ok
if (myChose = 3) and (compChose = 1)
labelScoreEnd.settext("Computer Win!")
compScore = compScore + 1
labelCompScoreSum.settext(string(compScore))
ok
if (myChose = 3) and (compChose = 2)
labelScoreEnd.settext("I Win!")
myScore = myScore + 1
labelMyScoreSum.settext(string(myScore))
ok
 
func NewGame
 
nextPlayer = 1
myScore = 0
compScore = 0
btnMyChose {
seticon(new qicon(new qpixmap("")))
setIconSize(new qSize(200,200))
}
 
btnCompChose {
seticon(new qicon(new qpixmap("")))
setIconSize(new qSize(200,200))
}
 
labelScoreEnd.settext("")
labelMyScoreSum.settext("0")
labelCompScoreSum.settext("0")
 
func Close
 
win.close()
app.quit()
 
what is your move (press r, p, or s)?
r
you chose rock and i chose rock
. it's a draw
p
you chose paper and i chose paper
. it's a draw
s
you chose scissors and i chose rock
. i win!
R
you chose rock and i chose paper
. i win!
P
you chose paper and i chose paper
. it's a draw
S
you chose scissors and i chose paper
. you win!
q
you won 1, and i won 2. there were 3 draws
thanks for playing!
</pre>
 
CalmoSoft
2,468

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/192355"