Wednesday Workshop - BlitzCoder.net

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|449\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #029 (28 Dec 2005) The Pong Challenge Make Pong. HOWEVER.. Your game of Pong may not be 2 bats, 1 ball, 1 line, 2 scores, black and white, basic, generic Pong. You must add something else into the mix. What you add is your own choice.

SnakePong by Jayenkai for Workshop #029 Guide the ball around, picking up the Blue dots, using the mouse to guide the paddle around. (Nice and slow!) Mouse Graphics 800,600,32,2 SetBuffer BackBuffer() maxp=10 Dim path(maxp,2,2) Dim plar(2,2) Dim xd(2) Dim yd(2) Type ect Field x Field y Field col End Type Dim score(2) chka=CreateImage(16,16):MaskImage chka,255,255,255 chkb=CreateImage(32,32) xd(1)=1:yd(1)=1:xd(2)=1:yd(2)=1 plar(1,1)=100 plar(2,1)=300 ballx=400 bally=300 ballxg=Rand(-4,4) ballyg=Rand(-4,4) ballp=1 endofgame=0 Repeat Cls ;For plr=1 To 2 plr=2 If plar(1,plr)<>path(maxp,1,plr) Or plar(2,plr)<>path(maxp,2,plr) spx=path(maxp,1,plr)-plar(1,plr) spy=path(maxp,2,plr)-plar(2,plr) For n=1 To maxp-1 path(n,1,plr)=path(n+1,1,plr) path(n,2,plr)=path(n+1,2,plr) Next path(maxp,1,plr)=plar(1,plr) path(maxp,2,plr)=plar(2,plr) EndIf If plr=1 Then Color 255,0,0 If plr=2 Then Color 0,0,255 For n=1 To maxp ;Line path(n,1,plr),path(n,2,plr),path(n+1,1,plr),path(n+1,2,plr) Rect path(n,1,plr),path(n,2,plr),16,16,1 Next If plr=1 plar(1,plr)=plar(1,plr)+(KeyDown(205)-KeyDown(203))16xd(1) plar(2,plr)=plar(2,plr)+(KeyDown(208)-KeyDown(200))16yd(1) If plar(1,plr)>800-16 Then xd(plr)=0-(xd(plr)):plar(1,plr)=800-16 If plar(2,plr)>600-16 Then yd(plr)=0-yd(plr):plar(2,plr)=600-16 If plar(1,plr)<0 Then xd(plr)=0-xd(plr):plar(1,plr)=0 If plar(2,plr)<0 Then yd(plr)=0-yd(plr):plar(2,plr)=0 If KeyDown(205)=0 And KeyDown(203)=0 Then xd(plr)=1 If KeyDown(208)=0 And KeyDown(200)=0 Then yd(plr)=1 EndIf If plr=2 plar(1,plr)=plar(1,plr)+(mx)16xd(2) plar(2,plr)=plar(2,plr)+(my)16yd(2) If plar(1,plr)>800-16 Then xd(plr)=0-(xd(plr)):plar(1,plr)=800-16 If plar(2,plr)>600-16 Then yd(plr)=0-yd(plr):plar(2,plr)=600-16 If plar(1,plr)<0 Then xd(plr)=0-xd(plr):plar(1,plr)=0 If plar(2,plr)<0 Then yd(plr)=0-yd(plr):plar(2,plr)=0 If mx=0 Then xd(plr)=1 If my=0 Then yd(plr)=1 EndIf ;Next CopyRect ballx-8,bally-8,32,32,0,0,BackBuffer(),ImageBuffer(chkb) mx=0 my=0 lmx=400-MouseX() If lmx>0 Then mx=-1 If lmx<0 Then mx=1 lmy=300-MouseY() If lmy>0 Then my=-1 If lmy<0 Then my=1 MoveMouse 400,300 If ballp=1 Then Color 255,0,0 If ballp=2 Then Color 0,0,255 Rect ballx,bally,16,16,1 If Rand(1,50)=1 coll.ect=New ect coll\x=Rand(0,800-16) coll\y=Rand(0,600-16) coll\col=Rand(1,4):If coll\col>2 Then coll\col=2 EndIf For coll.ect=Each ect If coll\col=1 Then Color 255,200,200 If coll\col=2 Then Color 200,200,255 Rect coll\x,coll\y,16,16,1 If ImagesCollide(chka,coll\x,coll\y,0,chka,ballx,bally,0)=1 If coll\col=2 Then score(2)=score(2)+1 If coll\col=1 Then score(2)=score(2)-1 Delete coll.ect EndIf Next If ImagesCollide(chkb,ballx-8,bally-8,0,chka,ballx,bally,0)=0 tx=0 ty=0 If ImagesCollide(chkb,ballx-8,bally-8,0,chka,ballx+6,bally,0)=1 Then tx=Rand(-1,-4) If ImagesCollide(chkb,ballx-8,bally-8,0,chka,ballx-6,bally,0)=1 Then tx=Rand(1,4) If ImagesCollide(chkb,ballx-8,bally-8,0,chka,ballx,bally+6,0)=1 Then ty=Rand(-1,-4) If ImagesCollide(chkb,ballx-8,bally-8,0,chka,ballx,bally-6,0)=1 Then ty=Rand(1,4) EndIf If tx<>0 Then ballxg=tx If ty<>0 Then ballyg=ty ballx=ballx+ballxg bally=bally+ballyg If ballx>816 Then score(2)=score(2)-10:ballx=400:ballxg=Rand(-4,4) If bally>600-16 Then bally=600-16:ballyg=Rand(-4,-1) If ballx<-16 Then score(2)=score(2)-10:ballx=400:ballxg=Rand(-4,4) If bally<0 Then bally=0:ballyg=Rand(4,1) If score(2)<0 Then score(2)=0 Color 255,255,255 Text 400,10,score(2),1,1 Flip If KeyDown(1) Then endofgame=1 Until endofgame<>0

S.T.I.N.K by tobo for Workshop #029 Color the walls to match the ball. Cursor keys Graphics 800,600,32,2 SetBuffer BackBuffer() HidePointer SeedRnd MilliSecs() Global rc1 = 255 Global rc2 = 255 Global rc3 = 0 Global bc1 = 255 Global bc2 = 0 Global bc3 = 0 Global lc1 = 0 Global lc2 = 255 Global lc3 = 0 Global tc1 = 0 Global tc2 = 0 Global tc3 = 255 Global x=400 Global y=300 Global xspeed = 1 Global yspeed = 1 Global xx=xspeed Global yy=yspeed Global balltimer = MilliSecs() Global gametimer = MilliSecs() Global ball1 = 255 Global ball2 = 255 Global ball3 = 255 Global score = 0 startgame() While Not KeyHit(1) Cls topborder() leftborder() bottomborder() rightborder() If KeyHit(205) Then changeright() If KeyHit(203) Then changeleft() If KeyHit(208) Then changebottom() If KeyHit(200) Then changetop() Color 255,255,255 Text 0,0,"Time: "+score If MilliSecs()>gametimer+1000 Then score=score+1 gametimer=MilliSecs() End If If score = 20 Then xspeed=xspeed+1 yspeed=yspeed+1 score=score+1 End If If score = 40 Then xspeed=xspeed+1 yspeed=yspeed+1 score=score+1 End If If score = 60 Then wingame() balltime() Color ball1,ball2,ball3 Rect x,y,20,20 x=x+xx y=y+yy checkball() Flip Wend End ; end game Function endgame() For f=0 To 50 Color ball1,ball2,ball3 Rect Rnd(40)+x-10,Rnd(40)+y-10,4,4 Flip Next Delay 500 For f=0 To 600 Step 20 Color 0,0,0 Rect 0,f,800,10 Flip Next For f=10 To 600 Step 20 Color 0,0,0 Rect 0,f,800,10 Flip Next FlushKeys Cls Color 255,255,255 Text 310,300,"Game Over" Text 310,320,"Your time was "+score+" seconds." Flip WaitKey End End Function ;top Function topborder() Color tc1,tc2,tc3 Rect 0,0,800,30 End Function ;left Function leftborder() Color lc1,lc2,lc3 Rect 0,30,30,540 End Function ;bottom Function bottomborder() Color bc1,bc2,bc3 Rect 0,570,800,30 End Function ;right Function rightborder() Color rc1,rc2,rc3 Rect 770,30,30,540 End Function ;change right Function changeright() If rc1=255 And rc2=0 And rc3=0 Then ;if red rc1=0:rc2=255:rc3=0 ;make green Else If rc1=0 And rc2=255 And rc3=0 Then ;if green rc1=0:rc2=0:rc3=255 ;make blue Else If rc1=0 And rc2=0 And rc3=255 Then ;if blue rc1=255:rc2=255:rc3=0 ;make yellow Else If rc1=255 And rc2=255 And rc3=0 Then ;if yellow rc1=255:rc2=0:rc3=0 ;make red End If End Function ;change left Function changeleft() If lc1=255 And lc2=0 And lc3=0 Then ;if red lc1=0:lc2=255:lc3=0 ;make green Else If lc1=0 And lc2=255 And lc3=0 Then ;if green lc1=0:lc2=0:lc3=255 ;make blue Else If lc1=0 And lc2=0 And lc3=255 Then ;if blue lc1=255:lc2=255:lc3=0 ;make yellow Else If lc1=255 And lc2=255 And lc3=0 Then ;if yellow lc1=255:lc2=0:lc3=0 ;make red End If End Function ;change bottom Function changebottom() If bc1=255 And bc2=0 And bc3=0 Then ;if red bc1=0:bc2=255:bc3=0 ;make green Else If bc1=0 And bc2=255 And bc3=0 Then ;if green bc1=0:bc2=0:bc3=255 ;make blue Else If bc1=0 And bc2=0 And bc3=255 Then ;if blue bc1=255:bc2=255:bc3=0 ;make yellow Else If bc1=255 And bc2=255 And bc3=0 Then ;if yellow bc1=255:bc2=0:bc3=0 ;make red End If End Function ;change top Function changetop() If tc1=255 And tc2=0 And tc3=0 Then ;if red tc1=0:tc2=255:tc3=0 ;make green Else If tc1=0 And tc2=255 And tc3=0 Then ;if green tc1=0:tc2=0:tc3=255 ;make blue Else If tc1=0 And tc2=0 And tc3=255 Then ;if blue tc1=255:tc2=255:tc3=0 ;make yellow Else If tc1=255 And tc2=255 And tc3=0 Then ;if yellow tc1=255:tc2=0:tc3=0 ;make red End If End Function ;ball timer Function balltime() If MilliSecs()>balltimer+1000 And x>200 And x<700 And y>200 And y<400 Then col=Int(Rnd(3)+1) Select col Case 1 ball1 = 255 ball2 = 0 ball3 = 0 Case 2 ball1 = 0 ball2 = 255 ball3 = 0 Case 3 ball1 = 0 ball2 = 0 ball3 = 255 Case 4 ball1 = 255 ball2 = 255 ball3 = 0 End Select balltimer=MilliSecs() End If End Function ; check ball collision Function checkball() ;check top bounce If y<30 And tc1=ball1 And tc2=ball2 And tc3=ball3 Then yy=yspeed Else If y<30 Then endgame() End If ;check right bounce If x>750 And rc1=ball1 And rc2=ball2 And rc3=ball3 Then xx=-xspeed Else If x>750 Then endgame() End If ;check bottom bounce If y>550 And bc1=ball1 And bc2=ball2 And bc3=ball3 Then yy=-yspeed Else If y>550 Then endgame() End If ;check left bounce If x<30 And lc1=ball1 And lc2=ball2 And lc3=ball3 Then xx=xspeed Else If x<30 Then endgame() End If End Function ;start game Function startgame() FlushKeys Cls Color 255,255,255 Text 100,85,"S.T.I.N.K" Text 100,115,"A variation on the Pong theme for the Wednesday Workshop #29." Text 100,145,"As usual, a ball will bounce around the screen. As it does, it will change colour." Text 100,160,"It will randomly pick from 4 colours, red, green, blue and yellow." Text 100,190,"The walls are coloured in the same way. In order for the ball to bounce off of the" Text 100,205,"walls, they need to be the same colour. the wall's colour can be changed using the" Text 100,220,"relevant arrow key. They follow the above order of red, green, blue and yellow." Text 100,250,"Try to last as long as is possible. Every 20 seconds, the game speed will increase" Text 100,265,"and a second added to your time. Can you last a minute? ...I couldn't!" Text 100,295,"Press H for a hint, or any other key to start the game." Flip WaitKey If KeyHit(35) Then Text 100,325,"Personally I found it easier to have all the walls coloured the same, and change" Text 100,340,"them all as required." Text 100,370,"Press any key to start." Flip FlushKeys WaitKey End If End Function ;win game Function wingame() For f=0 To 50 Color 255,255,255 Rect Rnd(40)+x-10,Rnd(40)+y-10,4,4 Flip Next Delay 500 For f=0 To 600 Step 20 Color 0,0,0 Rect 0,f,800,10 Flip Next For f=10 To 600 Step 20 Color 0,0,0 Rect 0,f,800,10 Flip Next FlushKeys Cls Color 255,255,255 Text 310,300,"YOU LASTED A MINUTE !" Text 310,320,"Your time was "+score+" seconds." Flip WaitKey End End Function

Monkey Butt by cermit for Workshop #029 Hit the ball towards the other Monkey Cursors and Spacebar Click to download this entry

Trippy Dink Donk by magicman for Workshop #029 Hit the ball, Shoot the aliens, look at the face. Cursors and Spacebar Click to download this entry

Balloon Pong by Foppy for Workshop #029 Hit the balloon with the ball. Mouse ; BALLOON-PONG v1.1 ; (C)2005 Foppygames ; changes in v1.1: added blobs and bumps ; Written for Wednesday Workshop #29: The Pong Challenge (www.codersworkshop.com) Const SCREEN_WIDTH = 800 Const SCREEN_HEIGHT = 600 Graphics(SCREEN_WIDTH,SCREEN_HEIGHT) SetBuffer(BackBuffer()) SeedRnd(MilliSecs()) ; #################################################################################################### ; CONSTANTS ; #################################################################################################### Const KEY_ESC = 1 Const BAT_COUNT = 4 ; number of lives for player Const BAT_SLOWNESS = 4 ; slowness in updating bat position to mouse position Const BAT_BUMP_DY# = 0.5 ; base amount of movement when hit by ball Const BALL_START_DY# = 0.7 ; initial vertical speed of ball Const BALL_SPEED_COUNT = 16 ; number of times ball will accelerate Const BALL_SPEED_FACTOR# = 1.1 ; factor used in acceleration Const BALL_BUMP_FACTOR# = 0.7 ; base amount of scaling factor when hitting upper wall or bat ; #################################################################################################### ; BAT TYPE DEFINITION AND FUNCTIONALITY ; #################################################################################################### Type BAT Field fX#,fY# Field fW,fH Field fOldX# Field fMoved# Field fBumpDy# End Type Function BAT_create.BAT() bat.BAT = New BAT bat\fX = MouseX() bat\fY = SCREEN_HEIGHT - SCREEN_HEIGHT/10 bat\fOldX = bat\fX bat\fW = SCREEN_WIDTH/10 bat\fH = bat\fW/4 bat\fBumpDy = 0 Return(bat) End Function Function BAT_updatePosition(pBat.BAT,pSlowness) ; new x is weighted average of old x and mouse position: ; old x gets weight "pSlowness", mouse position gets weight 1; ; bigger "pSlowness" means slower update towards mouse position pBat\fX = (pSlownesspBat\fOldX + MouseX())/(pSlowness + 1) ; check that bat remains on screen If (pBat\fX < 0) Then pBat\fX = 0 End If If (pBat\fX > SCREEN_WIDTH-pBat\fW) Then pBat\fX = SCREEN_WIDTH-pBat\fW End If ; store movement of bat for wave effect in main loop pBat\fMoved = pBat\fX - pBat\fOldX ; store updated x as old x for next round pBat\fOldX = pBat\fX ; update bump If (pBat\fBumpDy > 0) Then pBat\fBumpDy = pBat\fBumpDy - 0.1 End If End Function Function BAT_draw(pBat.BAT) ; draw filled rectangle Color(255,255,255) W = pBat\fW X = pBat\fX + pBat\fW/2 - W/2 H = pBat\fH Y = pBat\fY + pBat\fH/2 - H/2 + pBat\fBumpDy Rect(X,Y,W,H,True) ; draw outline of rectangle Color(128,128,128) Rect(X,Y,W,H,False) End Function Function BAT_bump(pBat.BAT,pBall.BALL) pBat\fBumpDy = BAT_BUMP_DY pBall\fSpeedUps End Function ; #################################################################################################### ; BALL TYPE DEFINITION AND FUNCTIONALITY ; #################################################################################################### Type BALL Field fX#,fY# Field fDx#,fDy# Field fW,fH Field fSpeedUps Field fBumpFactor# End Type Function BALL_create.BALL() ball.BALL = New BALL ball\fW = SCREEN_WIDTH/40 ball\fH = ball\fW BALL_reset(ball) Return(ball) End Function Function BALL_reset(pBall.BALL) pBall\fX = SCREEN_WIDTH/2 - pBall\fW/2 pBall\fY = SCREEN_HEIGHT/4 pBall\fDx = 0 pBall\fDy = BALL_START_DY pBall\fSpeedUps = 0 pBall\fBumpFactor = 1 End Function Function BALL_updatePosition%(pBall.BALL) ; returns false when leaving at bottom of screen, true otherwise pBall\fX = pBall\fX + pBall\fDx pBall\fY = pBall\fY + pBall\fDy ; update bump If (pBall\fBumpFactor < 1) Then pBall\fBumpFactor = pBall\fBumpFactor + 0.008 End If ; ball hits top of screen If (pBall\fY <= 0) Then pBall\fY = -pBall\fY pBall\fDy = -pBall\fDy BALL_bump(pBall) End If ; ball hits left or right sides of screen If (pBall\fX <= 0) Then pBall\fX = -pBall\fX pBall\fDx = -pBall\fDx Else If (pBall\fX >= SCREEN_WIDTH-pBall\fW) Then pBall\fX = SCREEN_WIDTH-pBall\fW-(pBall\fX-(SCREEN_WIDTH-pBall\fW)) pBall\fDx = -pBall\fDx End If ; ball leaves screen at bottom Return(Not(pBall\fY > SCREEN_HEIGHT-pBall\fH)) End Function Function BALL_checkWithBat(pBall.BALL,pBat.BAT) ballX1 = pBall\fX ballY1 = pBall\fY ballX2 = pBall\fX + pBall\fW ballY2 = pBall\fY + pBall\fH batX1 = pBat\fX batY1 = pBat\fY batX2 = pBat\fX + pBat\fW batY2 = pBat\fY + pBat\fH ; ball is in horizontal range If (ballX2 >= batX1 And ballX1 <= batX2) Then ; ball hits top of bat If (ballY1 < batY1 And ballY2 >= batY1) Then pBall\fY = pBat\fY - pBall\fH - (ballY2-batY1) pBall\fDy = -pBall\fDy ; compute difference with center batCenter = pBat\fX + pBat\fW/2 ballCenter = pBall\fX + pBall\fW/2 difference = ballCenter - batCenter pBall\fDx = difference/25.0 BAT_bump(pBat,pBall) BALL_bump(pBall) BALL_increaseSpeed(pBall) End If End If End Function Function BALL_checkWithBalloon%(pBall.BALL,pBalloon.BALLOON) ; returns true if balloon was hit, false otherwise ; compute horizontal and vertical differences between centers of ball and balloon horDiff = Abs((pBall\fX + pBall\fW/2) - (pBalloon\fX + pBalloon\fW/2)) verDiff = Abs((pBall\fY + pBall\fH/2) - (pBalloon\fY + pBalloon\fH/2)) ; when close enough, balloon is hit Return((horDiff < pBalloon\fW/2) And (verDiff < pBalloon\fH/2)) End Function Function BALL_increaseSpeed(pBall.BALL) If (pBall\fSpeedUps < BALL_SPEED_COUNT) Then pBall\fDx = pBall\fDx * BALL_SPEED_FACTOR pBall\fDy = pBall\fDy * BALL_SPEED_FACTOR pBall\fSpeedUps = pBall\fSpeedUps + 1 End If End Function Function BALL_draw(pBall.BALL) H = pBall\fH * pBall\fBumpFactor W = pBall\fW * (1.0 + (1.0-pBall\fBumpFactor)) extraWidth = W - pBall\fW Color(255,255,255) Oval(pBall\fX-extraWidth/2,pBall\fY,W,H,True) Color(128,128,128) Oval(pBall\fX-extraWidth/2,pBall\fY,W,H,False) End Function Function BALL_bump(pBall.BALL) pBall\fBumpFactor = BALL_BUMP_FACTOR End Function ; #################################################################################################### ; BALLOON TYPE DEFINITION AND FUNCTIONALITY ; #################################################################################################### Type BALLOON Field fX,fY Field fW,fH End Type Function BALLOON_create.BALLOON() balloon.BALLOON = New BALLOON balloon\fW = SCREEN_WIDTH/20 balloon\fH = balloon\fW1.5 BALLOON_resetPosition(balloon) Return(balloon) End Function Function BALLOON_resetPosition(pBalloon.BALLOON) pBalloon\fX = Rand(0,SCREEN_WIDTH-pBalloon\fW) pBalloon\fY = Rand(0,SCREEN_HEIGHT/6) End Function Function BALLOON_draw(pBalloon.BALLOON) ; balloon body Color(255,0,0) Oval(pBalloon\fX,pBalloon\fY,pBalloon\fW,pBalloon\fH,True) ; thingy underneath Oval(pBalloon\fX+pBalloon\fW/2-pBalloon\fW/20,pBalloon\fY+pBalloon\fH,pBalloon\fW/10,pBalloon\fH/10,True) ; piece of string Color(255,255,255) wave = 90 For y = pBalloon\fY+pBalloon\fH To pBalloon\fY+pBalloon\fH+40 wave = wave + 26 Plot(pBalloon\fX+pBalloon\fW/2+Cos(wave)3,y) Next ; highlight on balloon body Oval(pBalloon\fX+pBalloon\fW/6,pBalloon\fY+pBalloon\fH/6,pBalloon\fW/4,pBalloon\fH/4,True) End Function ; #################################################################################################### ; BLOB TYPE DEFINITION AND FUNCTIONALITY ; #################################################################################################### Type BLOB Field fX#,fY# Field fDx#,fDy# Field fW,fH Field fR,fG,fB End Type Function BLOB_create(pX,pY,pR,pG,pB,pDx#,pDy#) blob.BLOB = New BLOB blob\fX = pX blob\fY = pY blob\fR = pR blob\fG = pG blob\fB = pB blob\fDx = pDx blob\fDy = pDy blob\fW = SCREEN_WIDTH/40 blob\fH = blob\fW End Function Function BLOB_createExplosion(pX,pY,pR,pG,pB,pAmount) For i = 1 To pAmount BLOB_create(pX,pY,pR,pG,pB,Rnd(-2,2),Rnd(-3,-1)) Next End Function Function BLOB_updateAll() For blob.BLOB = Each BLOB blob\fX = blob\fX + blob\fDx blob\fY = blob\fY + blob\fDy blob\fDx = blob\fDx * 0.999 blob\fDy = blob\fDy + 0.01 If (blob\fDy > 2) Then Delete(blob) End If Next End Function Function BLOB_drawAll() For blob.BLOB = Each BLOB Color(blob\fR,blob\fG,blob\fB) Oval(blob\fX-blob\fW/2,blob\fY-blob\fH/2,blob\fW,blob\fH,True) Next End Function ; #################################################################################################### ; MISC FUNCTIONS ; #################################################################################################### Function titleScreen%(pHiScore) Cls Color(255,255,255) Text(SCREEN_WIDTH/2,SCREEN_HEIGHT/20 ,"Foppygames is proud to present:",True,False) Text(SCREEN_WIDTH/2,SCREEN_HEIGHT/202 ,"BALLOON-PONG",True,False) Text(SCREEN_WIDTH/2,SCREEN_HEIGHT/204 ,"instructions: move bat with mouse - deflect ball to hit balloon",True,False) Text(SCREEN_WIDTH/2,SCREEN_HEIGHT/206 ,"click left mouse button to start or press Escape to quit",True,False) Text(SCREEN_WIDTH/2,SCREEN_HEIGHT/2015,"hi-score: "+pHiScore,True,False) Flip FlushKeys FlushMouse ; wait for escape or left mousebutton Repeat If (KeyHit(KEY_ESC)) Then Return(False) Else If (MouseHit(1)) Then Return(True) End If Forever End Function ; #################################################################################################### ; MAIN GAME LOOP ; #################################################################################################### ; game speed control (Swerdnik's method) fpsCountTargetTime = MilliSecs() + 1000 renderFrames = 0 renderFps = 0 logicFrames = 0 logicFps = 0 lastTime = MilliSecs()/3 lastNumTicks = 1 continue = True hiScore = 0 While (continue) continue = titleScreen(hiScore) If (continue) Then score = 0 lives = BAT_COUNT gameOver = False wave = 0 ; create bat, ball, and balloon player.BAT = BAT_create() BALL_create() balloon.BALLOON = BALLOON_create() While (Not(KeyHit(KEY_ESC) Or gameOver)) ; get time and make sure at least 1 tick expired Repeat tempMS = MilliSecs()/3 If (tempMS < lastTime) Then lastTime = tempMS - lastNumTicks End If numTicks = tempMS - lastTime Until numTicks > 0 lastTime = tempMS ; account for user alt-tabbing If (numTicks > 20) Then numTicks = lastNumTicks End If lastNumTicks = numTicks For i = 1 To numTicks ; ############## ; # game logic # ; ############## ; move bat BAT_updatePosition(player,BAT_SLOWNESS) For ball.BALL = Each BALL ; move ball and check if ball leaves screen If (Not(BALL_updatePosition(ball))) Then BLOB_createExplosion(ball\fX+ball\fW/2,ball\fY+ball\fH/2,0,0,255,8) BALL_reset(ball) lives = lives - 1 End If ; check if ball hits bat BALL_checkWithBat(ball,player) ; check if ball hits balloon If (BALL_checkWithBalloon(ball,balloon)) Then BLOB_createExplosion(balloon\fX+balloon\fW/2,balloon\fY+balloon\fH/2,255,0,0,8) BALLOON_resetPosition(balloon) score = score + 1 End If Next ; move blobs BLOB_updateAll() If (lives <= 0) Then gameOver = True End If ; count logic frame logicFrames = logicFrames + 1 Next ; ################## ; # game rendering # ; ################## Cls ; draw border Color(100,100,100) Rect(0,0,SCREEN_WIDTH,SCREEN_HEIGHT,False) ; hide lowest part of rectangle by drawing black rectangle on top of it Color(0,0,0) Rect(0,SCREEN_HEIGHT-1,SCREEN_WIDTH,1,False) ; draw a sinus curve that is moved by the bat batMid = player\fX + player\fW/2 Color(0,0,255) For x = 0 To SCREEN_WIDTH Step 2 waveHeight = Sin(x4+wave)10 diff = Abs(batMid - x) rise = 90 - diff/2 If (rise < 0) Then rise = 0 End If rise = Sin(rise)50.0 Rect(x,SCREEN_HEIGHT-62+rise-waveHeight,2,4,True) Next wave = wave + player\fMoved4 If (wave >= 360) Then wave = 0 End If ; draw bat BAT_draw(player) ; draw balls For ball.BALL = Each BALL BALL_draw(ball) Next ; draw balloon BALLOON_draw(balloon) ; draw blobs BLOB_drawAll() ; draw score and hi-score Color(255,255,255) Text(20,SCREEN_HEIGHT-26,"score: "+Str(score),False,False) Text(120,SCREEN_HEIGHT-26,"hi-score: "+Str(hiScore),False,False) ; draw extra lives For i = 0 To lives-2 Rect(SCREEN_WIDTH-40-i*40,SCREEN_HEIGHT-20,20,5,True) Next Flip renderFrames = renderFrames + 1 ; fps stuff If (MilliSecs() >= fpsCountTargetTime) Then renderFps = renderFrames renderFrames = 0 logicFps = logicFrames logicFrames = 0 fpsCountTargetTime = fpsCountTargetTime + 1000 End If Wend ; update hi-score If (score > hiScore) Then hiScore = score End If End If Delete Each BAT Delete Each BALL Delete Each BALLOON Delete Each BLOB Wend End

MouseBall by Jayenkai for Workshop #029 Move the ball with the mouse. Mouse Graphics 800,600,32,2 SetBuffer BackBuffer() HidePointer() MoveMouse 400,300 a=MouseXSpeed() a=MouseYSpeed() plrx#=400 plry#=300 Dim bat(6) bat(1)=Rand(0,600-64) bat(2)=Rand(0,600-64) bat(3)=Rand(0,600-64) bat(4)=Rand(0,600-64) bat(5)=0 bat(6)=0 hit=0 font=LoadFont("Courier",52) SetFont font tscore=10 ttime=MilliSecs()+500 playtime=MilliSecs()+(1000*60) Repeat Cls If MilliSecs()>ttime Then tscore=tscore-1:ttime=MilliSecs()+500 If tscore<0 Then tscore=0 Color 255,255,255 Text 200,30,score,1,1 Text 600,30,tscore,1,1 timeleft=(playtime-MilliSecs()) If timeleft<=0 Then endofgame=1 timeleft2=timeleft/1000 Text 400,570,timeleft2,1,1 plrx#=plrx#+spdx#/20 plry#=plry#+spdy#/20 spdx#=spdx-(400-MouseX()) spdy#=spdy-(300-MouseY()) MoveMouse 400,300 If plrx<30 And plrx>0 And plry=>bat(1)-16 And plry<=bat(1)+64 Then spdx=Abs(spdx)/2:bat(5)=1:If hit=1 Or hit=0 Then score=score+tscore:tscore=10:ttime=MilliSecs()+500:hit=2 If plry<1 Then spdy=Abs(spdy)/2 If plrx>800-46 And plrx<800-16 And plry=>bat(2)-16 And plry<=bat(2)+64 Then spdx=0-Abs(spdx)/2:bat(6)=1:If hit=0 Or hit=2 Then score=score+tscore:tscore=10:ttime=MilliSecs()+500:hit=1 If plry>600-16 Then spdy=0-Abs(spdy)/2 If plrx<0-16 Then plrx=400:plry=300:spdx=0:spdy=0 If plrx>800 Then plrx=400:plry=300:spdx=0:spdy=0 Color 200,255,200 If hit=0 Or hit=1 Then Color 255,255,255 Rect 16,bat(1),16,64,1 Color 200,255,200 If hit=0 Or hit=2 Then Color 255,255,255 Rect 800-50,bat(2),16,64,1 If bat(5)=1 Then bat(1)=bat(1)-(bat(1)-bat(3))/8 If bat(6)=1 Then bat(2)=bat(2)-(bat(2)-bat(4))/8 If Abs(bat(1)-bat(3))<8 Then bat(3)=Rand(0,600-64):bat(5)=0 If Abs(bat(2)-bat(4))<8 Then bat(4)=Rand(0,600-64):bat(6)=0 Color 255,255,255 Rect plrx,plry,16,16,1 Flip If KeyDown(1) Then endofgame=99 Until endofgame<>0 Text 400,300,"GAME OVER",1,1 Flip Delay 2500

Drill Pits by flame the great for Workshop #029 Stare at the amazing 3D effects Cursors Click to download this entry

Rock Pong by Evil Roy Ferguson for Workshop #029 "Balls can be harmed over time, the closer they are to red indicates their damage. If they get hurt too much, they cease to be." ArrowKeys/WASD Click to download this entry

Pong Extreme by moleman for Workshop #029 Defeat the boss, before he defeats you. Cursors Click to download this entry

Multiball Pong by Pebu for Workshop #029 Keep the balls bouncing Mouse ; MULTI-BALL PONG ; Created by Pebu for the Coders Workshop Pong Compo ; CONSTANTS Const TARGET_FPS = 60 Const SCREEN_WIDTH = 640 Const SCREEN_HEIGHT = 480 Const SCREEN_HALFWIDTH = SCREEN_WIDTH / 2 Const SCREEN_HALFHEIGHT = SCREEN_HEIGHT / 2 Const TOP_WALL_Y = 20 Const BOT_WALL_Y = SCREEN_HEIGHT - TOP_WALL_Y Const END_WALL_X = SCREEN_WIDTH - TOP_WALL_Y Const PLAYER_1_X = 50 Const PLAYER_WIDTH = 20 Const PLAYER_HEIGHT = 80 Const BALL_MINSPEED = 2 Const BALL_MAXSPEED = 15 Const BALL_SIZE = 20 Const BALL_ACCEL# = 0.25 ; TYPE DEFINITIONS Type tBall Field x#, y# Field dx#, dy# Field speed# Field angle# End Type Type tPlayer Field x#, y# Field dy# Field score End Type ; GLOBALS Global gPlayer.tPlayer Global gbGameOver Global gBounces, gNumBalls Global gGameTimer, gbQuit ; INITIALISE Graphics SCREEN_WIDTH, SCREEN_HEIGHT, 0, 2 SetBuffer BackBuffer() HidePointer() gGameTimer = CreateTimer(TARGET_FPS) ; MAIN GAME LOOP Repeat ; Set up new game gNumBalls = 0: gBounces = 1 gPlayer = CreatePlayer() ball.tBall = CreateBall(BALL_MINSPEED) gbGameOver = False gbQUit = False ; Play the game until player quits or loses Repeat UpdatePlayer(gPlayer) For b.tBall = Each tBall UpdateBall(b) Next If KeyHit(1) Then gbQuit = True Cls DrawBackground() DrawPlayer(gPlayer) For b.tBall = Each tBall DrawBall(b) Next WaitTimer gGameTimer Flip False Until gbQuit Or gbGameOver ; Game Over routine If gbGameOver Then Repeat k = GetKey() If KeyHit(1) Then gbQuit = True Cls DrawBackground() DrawPlayer(gPlayer) For b.tBall = Each tBall DrawBall(b) Next Color 255, 0, 0 Text SCREEN_HALFWIDTH, SCREEN_HALFHEIGHT - 25, "GAME OVER", True, True Color 200, 200, 255 Text SCREEN_HALFWIDTH, SCREEN_HALFHEIGHT + 25, "You scored: " + Str(gPlayer\Score), True, True Text SCREEN_HALFWIDTH, SCREEN_HEIGHT - 50, "Press Esc to quit or any other key to play again.", True, True WaitTimer gGameTimer Flip False Until gbQuit Or k <> 0 EndIf ; Clear up Delete Each tPlayer Delete Each tBall Until gbQuit ShowPointer() FreeTimer gGameTimer End ; PLAYER FUNCTIONS Function CreatePlayer.tPlayer() Local p.tPlayer = New tPlayer p\x = PLAYER_1_X p\y = SCREEN_HALFHEIGHT p\score = 0 Return p End Function Function UpdatePlayer(p.tPlayer) ; Get mouse movement this frame p\dy = MouseYSpeed() MoveMouse SCREEN_HALFWIDTH, SCREEN_HALFHEIGHT ; Update player position, prevent player from overlapping walls. p\y = p\y + p\dy If p\y < TOP_WALL_Y Then p\y = TOP_WALL_Y ElseIf p\y > BOT_WALL_Y - PLAYER_HEIGHT Then p\y = BOT_WALL_Y - PLAYER_HEIGHT EndIf End Function Function DrawPlayer(p.tPlayer) Color 255, 255, 255 Rect p\x, p\y, PLAYER_WIDTH, PLAYER_HEIGHT, True End Function ; BALL FUNCTIONS Function CreateBall.tBall(speed = BALL_MINSPEED) SeedRnd MilliSecs() Local b.tBall = New tBall ; Randomise ball's position and direction b\y = Rand(TOP_WALL_Y, BOT_WALL_Y - BALL_SIZE) b\x = Rand(SCREEN_HALFWIDTH, END_WALL_X - BALL_SIZE) If speed < BALL_MINSPEED Then speed = BALL_MINSPEED If speed > BALL_MAXSPEED Then speed = BALL_MAXSPEED b\speed = speed If b\y < SCREEN_HALFHEIGHT Then b\angle = Rand(190,260) Else b\angle = Rand(100,170) EndIf ComputeBallDXDY(b) ; Keep track of total number of balls gNumBalls = gNumBalls + 1 Return b End Function Function ComputeBallDXDY(b.tBall) ; Calculate DX and DY based on angle and speed b\dx = Cos(b\angle) * b\speed b\dy = -Sin(b\angle) * b\speed End Function Function UpdateBall(b.tBall) ; Move ball b\x = b\x + b\dx b\y = b\y + b\dy ; Bounce off walls. ; No need to calculate angle, just reverse dy or dx depending on the wall that was hit If b\y < TOP_WALL_Y Then b\dy = -b\dy b\y = TOP_WALL_Y ElseIf b\y > BOT_WALL_Y - BALL_SIZE Then b\dy = -b\dy b\y = BOT_WALL_Y - BALL_SIZE EndIf If b\x > END_WALL_X - BALL_SIZE Then b\dx = -b\dx b\x = END_WALL_X - BALL_SIZE EndIf ; Check for going out of bounds If b\x < 0 Then gbGameOver = True ElseIf b\x <= PLAYER_1_X + PLAYER_WIDTH Then ; Check for bat/ball collision If RectsOverlap(gPlayer\x, gPlayer\y, PLAYER_WIDTH, PLAYER_HEIGHT, b\x, b\y, BALL_SIZE, BALL_SIZE) Then ; Update the player's score gPlayer\score = gPlayer\score + 1 ; Reverse the ball's direction and increase its speed ; b\angle won't reflect the ball's current angle because it is not updated when hitting ; walls, so we have to recalculate it. b\x = gPlayer\x + PLAYER_WIDTH ang# = ATan2(b\dy, b\dx) b\angle = ang# + 180 ; Alter angle of the ball based on speed of the bat when the ball hit. b\angle = b\angle - (gPlayer\dy * 2) b\speed = b\speed + BALL_ACCEL ComputeBallDXDY(b) ; Check if it's time to add another ball gBounces = gBounces - 1 If gBounces <= 0 Then CreateBall(gNumBalls + 1) gBounces = gNumBalls EndIf EndIf EndIf End Function Function DrawBall(b.tBall) Color 255, 255, 0 Oval b\x, b\y, BALL_SIZE, BALL_SIZE, True End Function ; BACKGROUND DRAWING FUNCTIONS Function DrawBackground() Color 0, 255, 0 Rect 0, 0, SCREEN_WIDTH, TOP_WALL_Y, True Rect 0, BOT_WALL_Y, SCREEN_WIDTH, TOP_WALL_Y, True Rect END_WALL_X, 0, TOP_WALL_Y, SCREEN_HEIGHT, True Color 0, 0, 0 Text 100, 5, "Score: " + Str(gPlayer\score) Text SCREEN_HALFWIDTH + 100, 5, "Balls: " + Str(gNumBalls) End Function

Pong : Homeworld Assault by realm_master for Workshop #029 Defeat the Red Planet Mouse Click to download this entry

Krakong by jayparker for Workshop #029 Destroy the tiles and score against your opponent to win. AZ/Cursors Click to download this entry

Wednesday Workshop #029

The Pong Challenge

SnakePong

S.T.I.N.K

Monkey Butt

Trippy Dink Donk

Balloon Pong

MouseBall

Drill Pits

Rock Pong

Pong Extreme

Multiball Pong

Pong : Homeworld Assault

Krakong