New PongClone Demo

[bplus]

+1 AI for the nice added touch!

Code: (Select All)

Sub CreateBurst (x, y, num)
    For i = 1 To MAX_PARTICLES
        If parts(i).active = 0 And num > 0 Then
            parts(i).active = 1: parts(i).x = x: parts(i).y = y
            parts(i).xv = (Rnd * 10) - 5: parts(i).yv = (Rnd * 10) - 5
            parts(i).life = 255: num = num - 1
        End If
    Next
End Sub

As long as we are wasting time here is Infinite Pong - The Movie!

Code: (Select All)

_Title "Infinite Pong the Movie.bas for QB64 B+ 2018-09-16"
p1y = 1: p2y = 25 'paddle y
bx = 30: by = 10: bdx = 2: bdy = 1 'ball x, y, dx, dy
While 1
    Cls
    For row = 2 To 24
        Locate row, 5: Print "|";
        Locate row, 75: Print "|";
    Next
    p1x = bx - 5: _PrintString (p1x, p1y), "1111111111" ' draw paddle 1
    p2x = bx - 5: _PrintString (p2x, p2y), "2222222222" ' draw paddle 2
    If bx + bdx < 6 Then bdx = bdx * -1 + Int(Rnd * 3) - 1
    If bx + bdx > 74 Then bdx = bdx * -1 + Int(Rnd * 3) - 1
    If by + bdy < 2 Then bdy = bdy * -1: bdx = bdx + Int(Rnd * 3) - 1
    If by + bdy > 24 Then bdy = bdy * -1: bdx = bdx + Int(Rnd * 3) - 1
    bx = bx + bdx: by = by + bdy
    _PrintString (bx, by), "O"
    _Limit 10
Wend

Sorry you cant play this one either bLOL