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

Metaxu

Thu Jan 03, 2013 2:44 pm


Help with on-screen writing

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

What is it you are trying to achieve?
I'm trying to get the program to write over the score for the left side player. 


What is the problem you are having?
The new score will not write over the 0 that is there

Describe what you have tried to solve this problem
locatexy to the location of the previous score


Post any relevant code (You may choose to attach the file instead of posting the code if it is too long)




%Turing Pong remake
%ICS 201 Final Project 2012 - 2013
%Thomas Jack

var name, nameconfirm : string
var menufont, titlefont, scorefont, mousex, mousey, mouseclick, x, y, z, w, y1, y2, speed, p1point, p2point : int
y1 := maxy div 2
y2 := maxy div 2
w := 3
z := 3
x := maxx div 2
y := maxy div 2
speed := 50
titlefont := Font.New ("rod:72")
menufont := Font.New ("serif:20")


proc leftsidepoint
    colourback (black)
    colour (white)
    p1point := 0
    p1point := p1point + 1
    locatexy (200, 370)
    put p1point
end leftsidepoint




proc multiplayer
    var chars : array char of boolean
    loop
        Input.KeyDown (chars)
        x := x + w
        y := y + z
        if chars ('w') then
            if y1 + 50 >= maxy then
            else
                y1 := y1 + 5
            end if
        end if

        if chars ('s') then
            if y1 - 50 = maxy then
            else
                y2 := y2 + 5
            end if
        end if

        if chars (KEY_DOWN_ARROW) then
            if y2 - 50 = maxx - 2 then
            leftsidepoint
        end if

        if x - 4 = maxy - 2 then
            z := -3
        end if
        if x >= 10 and x = y1 - 50 and y = 620 and x = y2 - 50 and y = 240 and mousex = 210 and mousey = 245 and mousex = 160 and mousey = 245 and mousex = 210 and mousey = 245 and mousex = 160 and mousey