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

lufthansa747

Sat Dec 05, 2009 10:43 pm


help with pong

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

here is the pong game. it works fin until it restarts. some one help

View.Set ("graphics:max;max,nobuttonbar")

var player1Score : int := 0
var player2Score : int := 0
var playerWinFont : int := Font.New ("sans serif:100:bold")
var continue : char
var fontWidth : int
var gamePlay : string := ""
var scoreToReach : int
var player1Dif : char
var player2Dif : char

class player
    export start, player2, move, x2, y, y2, x, AI, changeColour, changeColourAt, changeColourNow, changeCol
    var sizex : int := 20
    var sizey : int := 200
    var x : int := 0
    var x2 : int := x + sizex
    var y : int := maxy div 2 - sizey div 2
    var y2 : int := maxy div 2 + sizey div 2
    var yint : int := 5
    var col : int := white
    var changeColour : int := 0
    var changeColourAt : int := 100

    procedure start
        Draw.FillBox (x, y, x2, y2, white)
    end start

    procedure move (userAction : char)
        if changeColour > 0 then
            col := brightred
            changeColour -= 1
        elsif changeColour = 0 then
            col := white
        end if

        if userAction = 'w' and y2 + yint = 0 then
            Draw.FillBox (x, y, x2, y2, black)
            y -= yint
            y2 -= yint
            Draw.FillBox (x, y, x2, y2, col)
        elsif userAction = '1' then
            Draw.FillBox (x, y, x2, y2, black)
            Draw.FillBox (x, y, x2, y2, col)
        end if

        if userAction = KEY_UP_ARROW and y2 + yint = 0 then
            Draw.FillBox (x, y, x2, y2, black)
            y -= yint
            y2 -= yint
            Draw.FillBox (x, y, x2, y2, col)
        elsif userAction = '2' then
            Draw.FillBox (x, y, x2, y2, black)
            Draw.FillBox (x, y, x2, y2, col)
        end if
    end move

    procedure player2
        x := maxx - sizex
        x2 := maxx
    end player2

    procedure AI (upState, bally : int, level : char)
        if level = 'i' then
            if upState > 0 and bally > y + yint and bally < y2 + yint then
                move (KEY_UP_ARROW)
            elsif upState < 0 and bally > y - yint and bally < y2 - yint then
                move (KEY_DOWN_ARROW)
            end if
        else
            if upState > 0 and bally > y - yint and bally < y2 - yint then
                move (KEY_UP_ARROW)
            elsif upState < 0 and bally > y + yint and bally < y2 + yint then
                move (KEY_DOWN_ARROW)
            end if
        end if
    end AI

    procedure changeColourNow (add : boolean)
        if add = false then
            changeColour := 0
        else
            changeColour := changeColourAt
            col := brightred
        end if
    end changeColourNow

    procedure changeCol
        if changeColour > 0 then
            Draw.FillBox (x, y, x2, y2, col)
            changeColour -= 1
        else
            col := white
            Draw.FillBox (x, y, x2, y2, col)
        end if

    end changeCol

end player
var p : pointer to player
var p2 : pointer to player

class ball
    import p, p2
    export start, draw, upState, y
    var x : int := maxx div 2
    var y : int := maxy div 2
    var radius : int := 20
    var xint, yint : int := 3
    var upState, sideState : int
    loop
        upState := Rand.Int (-1, 1)
        exit when upState not= 0
    end loop
    loop
        sideState := Rand.Int (-1, 1)
        exit when sideState not= 0
    end loop

    procedure start
        Draw.FillBox (0, 0, maxx, maxy, black)
        Draw.FillOval (x, y, radius, radius, white)
    end start

    procedure draw (x1, x3, y1, y2, y3, y4 : int)
        if x - xint  changeColourNow (true)
            p2 -> changeCol
        end if
        if x + xint >= maxx and sideState = 1 then     % check right wall
            sideState := -1
            player1Score += 1
            p -> changeColourNow (true)
            p -> changeCol
        end if
        if y + yint >= maxy and upState = 1 then     %check top wall
            upState := -1
        end if
        if y - yint = x3 and sideState = 1 and y > y3 and y < y4 then     % check left guy hits ball
            sideState := -1
        end if

        Draw.FillOval (x, y, radius, radius, black)
        x += xint * sideState
        y += yint * upState
        Draw.FillOval (x, y, radius, radius, white)
    end draw
end ball

procedure updateScore ()
    locate (1, 1)
    put "Player 1: ", player1Score, " Player 2: ", player2Score
end updateScore
loop
    View.Set ("graphics:max;max,nobuttonbar")
    put "do you want to play pvp(player vs player), pvc (player vs computure) or cvc (computure vs computure)"
    put "Note you can click Esc to end a cvc mach: " ..
    loop
        get gamePlay
        exit
            when gamePlay = "pvp" or gamePlay = "pvc" or gamePlay = "cvc"
    end loop
    if gamePlay = "cvc" then
        put "what dfficulty do you want player 1 to be set to. Easy or imposible(e/i): " ..
        loop
            player1Dif := getchar
            exit when player1Dif = 'e' or player1Dif = 'i'
        end loop
        put player1Dif
    end if
    if gamePlay = "pvc" or gamePlay = "cvc" then
        put "what dfficulty do you want player 2 to be set to. Easy or imposible(e/i): " ..
        loop
            player2Dif := getchar
            exit when player2Dif = 'e' or player2Dif = 'i'
        end loop
        put player2Dif
    end if
    put "How many points will the game be up to: " ..
    get scoreToReach
    put "Press any Key when you are ready to play: " ..
    continue := getchar

    View.Set ("graphics:max;max,offscreenonly,nobuttonbar,nocursor")

    player1Score := 0
    player2Score := 0

    var userAction : array char of boolean

    var ball1 : pointer to ball
    new ball, ball1
    ball1 -> start


    new player, p
    p -> start

    new player, p2
    p2 -> player2
    p2 -> start

    for decreasing count : 5 .. 1
        var countDown : string := intstr (count)
        fontWidth := Font.Width (countDown, playerWinFont)
        Font.Draw (countDown, maxx div 2 - fontWidth div 2, maxy div 2, playerWinFont, brightblue)
        View.Update
        delay (1000)
        ball1 -> start
        p -> start
        p2 -> start
        View.Update
    end for

    loop
        Input.KeyDown (userAction)
        if gamePlay not= "cvc" then
            if userAction ('w') then
                p -> move ('w')
            elsif userAction ('s') then
                p -> move ('s')
            else
                p -> changeCol
            end if
        elsif gamePlay = "cvc" then
            p -> AI (ball1 -> upState, ball1 -> y, player1Dif)
        end if

        if gamePlay = "pvp" then
            if userAction (KEY_UP_ARROW) then
                p2 -> move (KEY_UP_ARROW)
            elsif userAction (KEY_DOWN_ARROW) then
                p2 -> move (KEY_DOWN_ARROW)
            else
                p2 -> changeCol
            end if
        elsif gamePlay not= "pvp" then
            p2 -> AI (ball1 -> upState, ball1 -> y, player2Dif)
        end if

        ball1 -> draw (p -> x2, p2 -> x, p -> y, p -> y2, p2 -> y, p2 -> y2)
        updateScore
        exit when player1Score = scoreToReach or player2Score = scoreToReach or userAction (KEY_ESC)
        View.Update
    end loop

    if player1Score = scoreToReach then
        fontWidth := Font.Width ("Player 1 Wins !!!!!", playerWinFont)
        Draw.Text ("Player 1 Wins!!!!!", maxx div 2 - fontWidth div 2, maxy div 2, playerWinFont, brightred)
    elsif player2Score = scoreToReach then
        fontWidth := Font.Width ("Player 2 Wins !!!!!", playerWinFont)
        Draw.Text ("Player 2 Wins!!!!!", maxx div 2 - fontWidth div 2, maxy div 2, playerWinFont, brightred)
    else
        fontWidth := Font.Width ("It is a Tie", playerWinFont)
        Draw.Text ("It is a Tie", maxx div 2 - fontWidth div 2, maxy div 2, playerWinFont, brightred)
    end if
    View.Update

    continue := getchar
    cls
    View.Update
end loop


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

Zren

Sun Dec 06, 2009 1:46 pm


RE:help with pong

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

View.Set on line 175.

You go from OffScreenonly and don't change back. Try putting the opposite of offscreenonly in View.Set.