here we go again, Pong in 19 lines with a title screen and all the thrills of a true classic, LOL, actualy, this is more than just pong, this has all those little tweaks like the paddle bounded to the screen and a human like player AI that makes mistakes without being too easy, try to beat 100
, you will need three sound fx for the "ball bounce", "you missed" and "you beat the AI player" routines the sounds named in the code are from the media folder of db classic, or you can just remove the load sound and play sound commands, it creates it`s own "graphics", cheers.
Mentor.
sync rate 60:sync on:ink rgb(255,255,255),0:box 0,0,45,45:get image 1,0,0,39,9:get image 2,0,0,4,4:load sound "bounce.wav",1:load sound "duck.wav",2:load sound "clapping.wav",3
cls:set text opaque:set text font "ariel":set text size 50:for i=1 to 400:repeat:r=rnd(255):g=rnd(255):b=rnd(255):until (r+g+b)>50:col=rgb(r,g,b):ink col,0:text rnd(700)-50,rnd(600)-50,"PONG!":next i
ink rgb(255,0,255),rgb(255,255,255):text 80,200,"PRESS A KEY TO START!":ink col,0:wait 1000:wait key:set text size 16:cls:sync:sprite 4,0,20,2:stretch sprite 4,100,10200:sprite 5,600,20,2
stretch sprite 5,100,10200:score=0:high=0:time=0:playerx=300:ballx=315:bally=28:ballxdir=4:ballydir=4:robox=300:sprite 1,ballx-15,20,1:sprite 2,playerx,420,1:sprite 3,ballx,bally,2:text 280,200,"GET READY!"
wait 2000:cls:ink rgb(255,0,0),0
do:ballx=ballx+ballxdir:bally=bally+ballydir:sprite 1,robox,20,1:sprite 2,playerx,420,1:sprite 3,ballx,bally,2
if sprite hit(3,4) then ballxdir=4:play sound 1 else if sprite hit(3,5) then ballxdir=-4:play sound 1
if sprite hit(3,1) then ballydir=4:play sound 1 else if sprite hit(3,2) then ballydir=-4:score=score+1:play sound 1
if score>high then high=score
if leftkey() then playerx=playerx-5 else if rightkey() then playerx=playerx+5
if playerx>560 then playerx=560 else if playerx420 then score=0:a=rnd(3):for i=1 to a+1:play sound 2:wait 500:next i:gosub newball
if ballytime:dither=rnd(20)-10:time=timer()+rnd(18000):endif:robox=curvevalue(ballx-15+dither,robox,5):return
