-----------------------------------

unknownturing123

Thu Jan 15, 2015 9:15 pm


Rock Papers scissors

-----------------------------------

I'm currently making a basic rock paper scissors game and so far I'm having trouble with the score counter that keeps track of your score. Specifically, it always keeps track of your score(good part) the bad part is it also adds the computer's score to yours. There are some other errors with my game I'm having difficulty figuring out.


%Screen Size & Background
setscreen ("graphics:max;max") %Screen Size
setscreen ("nocursor") %no cursor
colourback (3) %Colour Background
cls

%variables
var font : int
var key : string (1)
var countw : int := 0
var p : string (1)  %Controls
var b : string (1)
var c : string (1)
var r, a : int
%Pictures used
var mypic1 : int := Pic.FileNew ("rock.jpg")
var mypic2 : int := Pic.FileNew ("scissor.jpg")
var mypic3 : int := Pic.FileNew ("paper.jpg")




%font
font := Font.New ("Copperplate Gothic Bold:20")

%Visuals
loop
    %Title(first screen)
    Font.Draw ("The Rock Paper Scissors Game. Press Any Key to continue.", 200, 600, font, black)
    getch (key)
    cls
    loop
        %Instructions
        Font.Draw ("Instructions. Press any key to continue.", 200, 600, font, black)
        Font.Draw ("1.Rock smashes scissors", 200, 500, font, black)
        Font.Draw ("2.Scissors cut paper", 200, 450, font, black)
        Font.Draw ("3.Paper covers rock", 200, 400, font, black)
        getch (key)
        cls
        loop
            %Words: Win and Lose and Options

            Font.Draw ("Wins(You):", 0, 700, font, black)
            Font.Draw ("Loses(You):", 0, 650, font, black)
            Font.Draw ("You:", 100, 600, font, black)
            Font.Draw ("Computer", 1140, 550, font, black)
            drawfillbox (0, 220, 230, 200, white) %White Box over the word "Paper"
            drawfillbox (0, 150, 265, 170, 8) %Grey Box over the word "Scissor"
            drawfillbox (0, 250, 205, 270, yellow) %Yellow Box over the word "Rock"
            Font.Draw ("Rock(Press1)", 0, 250, font, black)
            Font.Draw ("Paper(Press2)", 0, 200, font, black)
            Font.Draw ("Scissors(Press3)", 0, 150, font, black)



            loop %Controls

                %Player output
                getch (p)

                if p = "2" then
                    Font.Draw ("Paper", 100, 420, font, blue) %Pictures to be shown on screen
                    Pic.Draw (mypic3, 100, 450, 0)

                elsif p = "1" then
                    Pic.Draw (mypic1, 100, 450, 0)
                    Font.Draw ("Rock", 100, 420, font, blue)

                elsif p = "3" then
                    Font.Draw ("Scissors", 100, 420, font, blue)
                    Pic.Draw (mypic2, 100, 450, 0)
                else
                    Font.Draw ("INVALID ENTRY", 550, 420, font, red) %INVALID ENTRY MESSAGE

                end if
                randint (r, 1, 3) %computer picks  from one of the three pictures to be displayed on screen

                if r = 2 then
                    Font.Draw ("Paper", 1150, 420, font, blue) %Pictures to be shown on screen
                    Pic.Draw (mypic3, 1150, 450, 0)
                elsif r = 1 then
                    Pic.Draw (mypic1, 1150, 450, 0)
                    Font.Draw ("Rock", 1150, 420, font, blue)
                elsif r = 3 then
                    Font.Draw ("Scissors", 1150, 420, font, blue)
                    Pic.Draw (mypic2, 1150, 450, 0)
                end if
                delay (1200)
                drawfillbox (0, 550, 10000, 300, 3) %box that covers the previous pictures

                if p = "1" then
                    a := 1
                elsif p = "2" then
                    a := 2
                elsif p = "3" then
                    a := 3


                    % Points scoring
                    if a = 2 and r = 1 then
                        countw := countw + 1
                        Font.Draw (intstr (countw), 200, 700, font, black)
                        delay (1200)
                        drawfillbox (200, 900, 900, 900, 3)
                    elsif a = 1 and r = 2 then
                        countw := countw + 1
                        Font.Draw (intstr (countw), 200, 700, font, black)
                        delay (1200)
                        drawfillbox (200, 800, 900, 600, 3)
                    elsif a = 1 and r = 3 then
                        countw := countw + 1
                        Font.Draw (intstr (countw), 200, 700, font, black)
                        delay (1200)
                        drawfillbox (200, 800, 900, 600, 3)
                    elsif a = 3 and r = 1 then
                        countw := countw + 1
                        Font.Draw (intstr (countw), 200, 700, font, black)
                        delay (1200)
                        drawfillbox (200, 800, 900, 600, 3)
                    elsif a = 2 and r = 3 then
                        countw := countw + 1
                        Font.Draw (intstr (countw), 200, 700, font, black)
                        delay (1200)
                        drawfillbox (200, 800, 900, 600, 3)
                    elsif a = 3 and r = 2 then
                        countw := countw + 1
                        Font.Draw (intstr (countw), 200, 700, font, black)
                        delay (1200)
                        drawfillbox (200, 800, 900, 600, 3)
                    elsif a = 3 and r = 3 then
                        Font.Draw ("TIE!", 500, 600, font, yellow)
                        countw := countw + 0
                        Font.Draw (intstr (countw), 200, 700, font, black)
                        delay (1200)
                        drawfillbox (200, 800, 900, 600, 3)
                    elsif a = 2 and r = 2 then
                        Font.Draw ("TIE!", 500, 600, font, yellow)
                        countw := countw + 0
                        Font.Draw (intstr (countw), 200, 700, font, black)
                        delay (1200)
                        drawfillbox (200, 800, 900, 600, 3)
                    elsif a = 1 and r = 1 then
                        Font.Draw ("TIE!", 500, 600, font, yellow)
                        countw := countw + 0
                        Font.Draw (intstr (countw), 200, 700, font, black)
                        delay (1200)
                        drawfillbox (200, 800, 700, 600, 3)
                    end if
                end if
            end loop      %Loops end
        end loop
    end loop
end loop
getch (key)



%End Game


-----------------------------------

Insectoid

Thu Jan 15, 2015 9:22 pm


RE:Rock Papers scissors

-----------------------------------

Well, I'd say the reason that the CPU scores are being added to the player scores is that you're adding the CPU score to the player score. What is countw? It looks like whenever anyone wins you add one to it. You're gonna need an extra variable in there somewhere.