Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|525\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #001 (15 Jun 2005) The Five Object Challenge Using only Blitz's internal 2D drawing commands (Plot, Line, Rect, Oval, Text) to draw, you must create a game which only ever draws 5 objects onscreen per frame. You may not use CopyRect, or otherwise, to replicate more objects. A single Object = 1 single drawing command. If you use Text, you can have as many characters in that line of text as you wish.

Ball-Up by Jayenkai for Workshop #001 This game features a ball bouncing up a rather large staircase. Cursors Left+Right ;Ball Up Graphics 640,480,0,2 SetBuffer BackBuffer() Dim array(2000) .restart SeedRnd MilliSecs() x=9 For y=1 To 2000 array(y)=x32 x=x+Rand(-3,3) If x<0 Then x=Rand(0,2) If x>19 Then x=Rand(17,19) Next bally=0 ballx=320 jumparc=0 scry=0 py=0 Repeat jumparc=jumparc+4 If jumparc=>180 Then jumparc=jumparc-180 Cls Color 140,80,40 baty=(446-bally)-(Sin(jumparc)180) baty=baty+scry Oval ballx,baty,16,16 ballx=ballx+((KeyDown(205)-KeyDown(203))4) Color 80,140,40 If bally>-32 Then Rect 0,460+bally,640,32 land=1 For x=1 To 2000 atx=array(x) aty=(460-(x140))+scry If aty>0 And aty<480 Rect atx,aty,32,32 If jumparc>89 And jumparc<110 And aty>baty And aty<baty+60 And atx<ballx+8 And atx+32>ballx+8 py=py+140 EndIf If jumparc=0 And aty>baty-16 And (atx>ballx+8 Or atx+32<ballx+8) Then land=0 EndIf Next If land=0 Then dead=1 If py<>0 Then scry=scry+20:bally=bally+20:py=py-20 Flip If KeyDown(1) Then dead=9 Until dead>0 Repeat Cls If dead=9 Then End If dead=1 Then Text 320,240,"You Fell",1,1:Text 320,280,"Hit Space to Try Again",1,1 Flip Until KeyDown(57) dead=0 Goto restart

Vortex Game by Jayenkai for Workshop #001 Shoot the oncoming enemies Cursors and Space ;THE SUPER FLASHY VORTEX GAME ;A Game with only 5 Draw Commands per frame Graphics 640,480,0,2 SetBuffer BackBuffer() Dim baddy(17,2) Dim bullet(17,2) .restart .TitleScreen Repeat Cls Text 320,240,"THE SUPER FLASHY VORTEX GAME",1,1 ;1 Text 320,280,"Hit Space to Start",1,1 ;2 Text 320,440,"Disclaimer : This game contains flashing lines, and is",1,1 ;3 Text 320,460,"unsuitable for people with photosensitive epilepsy",1,1 ;4 Text 320,340,"Hi-Score : "+hiscore,1,1 ;5 Flip If KeyDown(1) Then End Until KeyDown(57) plra=0 dead=0 score=0 hiscore=0 mudown=0 target=250 For n=0 To 17 baddy(n,1)=Rand(0,1800) baddy(n,2)=Rand(-2000,0) Next badspd=1 Repeat ang=ang+1 n=n+1 If ang=>16 And n=>17 Then Cls:ang=ang-16:n=0 atx=320+(Sin(ang20)300) aty=240+(Cos(ang20)220) atx2=320+(Sin((ang+1)20)300) aty2=240+(Cos((ang+1)20)220) Color 0,180,0 Line atx,aty,320,240 ;1 First object per frame = Background Drawn Outwards Line atx,aty,atx2,aty2 ;2 Second object per frame = Background Outline Color 0,150,255 plra=plra+KeyDown(203)-KeyDown(205) Rect 318+(Sin(plra/5)300),238+(Cos(plra/5)220),4,4,0 ;3 Third object per frame = Rectangle for Player If KeyDown(200)=0 Then mudown=0 If KeyDown(200) And mudown=0 mudown=1 free=-1 For b=0 To 4 If bullet(b,2)<=0 Then free=b Next If free>-1 Then bullet(free,2)=3000:bullet(free,1)=plra EndIf If n<18 Color 250,00,0 baddy(n,2)=baddy(n,2)+badspd If baddy(n,2)>3000 Then dead=1 If baddy(n,2)>0 baddy(n,1)=baddy(n,1)+Rand(-4,4) an=baddy(n,1) dx=(baddy(n,2)300)/3000 dy=(baddy(n,2)220)/3000 x=320+(Sin(an/5)dx) y=240+(Cos(an/5)dy) Rect x-2,y-2,4,4,0 ;4 Fourth object per frame = Rectangle for Baddy EndIf Color 60,255,60 bullet(n,2)=bullet(n,2)-32 If bullet(n,2)>0 an=bullet(n,1) dx=(bullet(n,2)300)/3000 dy=(bullet(n,2)220)/3000 x=320+(Sin(an/5)dx) y=240+(Cos(an/5)dy) Rect x-2,y-2,4,4,0 For b=0 To 17 If baddy(b,2)>0 an=baddy(b,1) dx=(baddy(b,2)300)/3000 dy=(baddy(b,2)220)/3000 x2=320+(Sin(an/5)dx) y2=240+(Cos(an/5)dy) If Abs(x2-x)<6 And Abs(y2-y)<6 baddy(b,2)=Rand(-2000,0):score=score+10::DebugLog "score "+score:If score=>target Then badspd=badspd+1:target=target+250 EndIf EndIf Next EndIf EndIf Flip False ; If you would like to check my code, uncomment the following line.. ;Flip:Cls:Delay 25 If KeyDown(1) Then dead=9 Until dead>0 Text 320,240,"They Killed You",1,1 ;1 Text 320,280,"You scored "+score,1,1 ;2 Text 320,320,"Hit Space to continue",1,1 ;3 Flip If score>hiscore Then hiscore=score If dead=9 Then End Repeat:Until KeyDown(57) Repeat:Until KeyDown(57)=0 Goto restart

Road Chaser by GoSsE for Workshop #001 Use the mouse to move your car, avoid hitting other cars. When you crash, push space to restart. Press ESC anytime to quit. Mouse ; This source code is copyrighted (c) to Jocelyn Perreault. ; Version 1.0.0 - June 17 2005 ; Thanks, ; Jocelyn "GoSsE Korupted" Perreault ; gosse@nuloen.com ; Nuclear Loaded Entertainment ; https://www.nuloen.com/ Const SCRW = 640 Const SCRH = 480 Const ROADY = SCRH / 3 Const ROADW = SCRH / 3 Const CARX = 70 Const CARL = 70 Const CARW = CARL * 5 / 9 Const MAXCARS = 3 Const CRASHSIZE = 5 Const CRASHL = CARL * CRASHSIZE Const CRASHW = CARW * CRASHSIZE Const CRASHX = SCRW / 2 - CRASHL / 2 Const CRASHY = SCRH / 2 - CRASHW / 2 Graphics SCRW, SCRH, 0, 2 SetBuffer BackBuffer() SeedRnd MilliSecs() HidePointer tmrFPS = CreateTimer(60) tmrFPSSlow = CreateTimer(25) font = LoadFont("Garamond", 18) SetFont font ClsColor 50, 160, 0 Points = 0 LastPoints = -1 Cars = 0 Score = 10 CarY = ROADY + ROADW / 2 - CARW / 2 Speed = 3 Dim CarsX(MAXCARS) Dim CarsR(MAXCARS) Dim CarsG(MAXCARS) Dim CarsB(MAXCARS) For i = 1 To MAXCARS GenerateAI(i) Next Function GenerateAI(i) Repeat valid = True CarsX(i) = Rand(SCRW, SCRW + MAXCARS * MAXCARS * CARL) For j = 1 To MAXCARS If i <> j Then If RectsOverlap( CarsX(i), 0, CARL, 1, CarsX(j) - CARL * 1, 0, CARL * 3, 1) Then valid = False End If End If Next Until valid Repeat valid = True CarsR(i) = Rand(0, 255) CarsG(i) = Rand(0, 255) CarsB(i) = Rand(0, 255) avg = (CarsR(i) + CarsG(i) + CarsB(i)) / 3 If avg > 15 And avg < 65 Then valid = False End If Until valid End Function While Not KeyDown(1) ; Player Control If Points <> LastPoints Then AppTitle "Road Chaser - Points: " + Points LastPoints = Points End If CarY = MouseY() If CarY < ROADY Then CarY = ROADY End If If CarY > ROADY + ROADW - CARW Then CarY = ROADY + ROADW - CARW End If MoveMouse SCRW/2, CarY ; AI Control For i = 1 To MAXCARS CarsX(i) = CarsX(i) - SPEED If CarsX(i) < -CARL Then GenerateAI(i) Points = Points + Score Cars = Cars + 1 If Cars Mod Score = 0 Then Score = Score + 1 Speed = Speed + 1 Cars = 0 End If End If Next ; Collision For i = 1 To MAXCARS If RectsOverlap(CARX+2, CarY+2, CARL-4, CARW-4, CarsX(i), ROADY + ROADW * (i - 1) / 3 + 8, CARL, CARW) Then ClsColor 40, 40, 40 While (Not KeyDown(57)) And (Not KeyDown(1)) cx = (CARX - CarsX(i)) * CRASHSIZE cy = (CarY - (ROADY + ROADW * (i - 1) / 3 + 8)) * CRASHSIZE WaitTimer(tmrFPSSlow) Cls DrawCar(CRASHX, CRASHY, 255, 255, 255, CRASHSIZE) DrawCar(CRASHX - cx, CRASHY - cy, CarsR(i), CarsG(i), CarsB(i), CRASHSIZE) For j = 1 To MAXCARS r = Rand(50, 250) g = Rand(0, r - 50) b = Rand(0, g / 5) Color r, g, b x = Rand(CRASHX - CRASHW / 2, CRASHX + CRASHL / 2) y = Rand(CRASHY - CRASHW / 2, CRASHY + CRASHW / 2) s = Rand(CRASHW / 2, CRASHL) Oval x, y, s, s Next Flip False Wend Points = 0 LastPoints = -1 Cars = 0 Score = 10 CarY = ROADY + ROADW / 2 - CARW / 2 Speed = 3 For j = 1 To MAXCARS GenerateAI(j) Next ClsColor 50, 160, 0 Exit End If Next WaitTimer(tmrFPS) Cls Color 40, 40, 40 Rect 0, ROADY, SCRW, ROADW DrawCar(CARX, CarY, 255, 255, 255) For i = 1 To MAXCARS DrawCar(CarsX(i), ROADY + ROADW * (i - 1) / 3 + 8, CarsR(i), CarsG(i), CarsB(i)) Next Flip False Wend End Function DrawCar(x, y, r, g, b, size=1) l = CARLsize w = CARWsize Color r, g, b Rect x, y, l, w End Function

Bisexual Tron by Ryan Moody for Workshop #001 Tron! Cursors Graphics 640,480 SetBuffer FrontBuffer() SeedRnd(MilliSecs()) Type Player Field X Field Y Field Colour$ Field Direction$ End Type Function InitialiseGame() Delay 2000 Delete Each Player p.Player = New Player p\X = 30 p\Y = 240 p\Colour = "Red" P\Direction = "Right" p.Player = New Player p\X = 610 p\Y = 240 p\Colour = "Yellow" P\Direction = "Left" Color 50,255,0 Rect 0,0,640,480 Color 0,100,0 Rect 10,10,620,460 End Function Function UpdateGame() For p.Player = Each Player Select p\Direction Case "Up" p\Y = p\Y - 1 Case "Right" p\X = p\X + 1 Case "Down" p\Y = p\Y + 1 Case "Left" p\X = p\X - 1 End Select GetColor p\X, p\Y If p\Colour = "Red" If ColorRed() <> 0 Color 255,255,255 Text 320,20,"RED LOSES",True InitialiseGame() Exit EndIf If KeyDown(200) Then p\Direction = "Up" If KeyDown(203) Then p\Direction = "Left" If KeyDown(205) Then p\Direction = "Right" If KeyDown(208) Then p\Direction = "Down" Else If ColorRed() <> 0 Color 255,255,255 Text 320,20,"YELLOW LOSES",True InitialiseGame() Exit EndIf Select p\Direction Case "Up" GetColor p\X, p\Y - 1 If ColorRed() <> 0 Then p\Direction = "Right" Case "Right" GetColor p\X + 1, p\Y If ColorRed() <> 0 Then p\Direction = "Down" Case "Down" GetColor p\X, p\Y + 1 If ColorRed() <> 0 Then p\Direction = "Left" Case "Left" GetColor p\X - 1, p\Y If ColorRed() <> 0 Then p\Direction = "Up" End Select EndIf Next End Function Function RenderGame() For p.Player = Each Player If p\Colour = "Red" Color 255, 0, 0 Else Color 255, 255, 0 EndIf Plot p\X, p\Y Next End Function InitialiseGame() While Not KeyDown(1) UpdateGame() RenderGame() Delay 10 Wend

Mini Tron by firemaker103 for Workshop #001 Tron, too! WAXD for Player 1, Cursors for Player 2 Graphics 640,480 SetBuffer BackBuffer() Repeat o1x=21 o1y=240 p1x=21 p1y=240 p1dir=1 ;right o2x=618 o2y=240 p2x=618 p2y=240 p2dir=3 ;left Color 255,255,255 Text 320,10,"Tron",1,1 Text 320,150,"Player 1 controls: W-up X-down A-left D-right",1,1 Text 320,180,"Player 2 controls: Numpad 8-up 2-down 4-left 6-right",1,1 Text 320,400,"Press Enter to start",1,1 Flip Repeat Until KeyDown(28)=1 Or KeyDown(1)=1 If KeyDown(1)=1 Then End Cls Flip Cls Repeat Color 255,255,255 Rect 0,0,639,479,0 Color 255,0,0 Plot p1x,p1y Plot o1x,o1y Color 0,0,255 Plot p2x,p2y Plot o2x,o2y o1x=p1x o1y=p1y o2x=p2x o2y=p2y If KeyDown(72) Then p2dir=0 If KeyDown(80) Then p2dir=2 If KeyDown(75) Then p2dir=3 If KeyDown(77) Then p2dir=1 If KeyDown(17) Then p1dir=0 If KeyDown(45) Then p1dir=2 If KeyDown(30) Then p1dir=3 If KeyDown(32) Then p1dir=1 If p1dir=0 Then p1y=p1y-1 If p1dir=1 Then p1x=p1x+1 If p1dir=2 Then p1y=p1y+1 If p1dir=3 Then p1x=p1x-1 If p2dir=0 Then p2y=p2y-1 If p2dir=1 Then p2x=p2x+1 If p2dir=2 Then p2y=p2y+1 If p2dir=3 Then p2x=p2x-1 p1death=0 GetColor p1x,p1y If ColorRed()>0 Or ColorGreen()>0 Or ColorBlue()>0 Then p1death=1 If p1x<1 Then p1death=1 If p1x>638 Then p1death=1 If p1y<1 Then p1death=1 If p1y>478 Then p1death=1 p2death=0 GetColor p2x,p2y If ColorRed()>0 Or ColorGreen()>0 Or ColorBlue()>0 Then p2death=1 If p2x<1 Then p2death=1 If p2x>638 Then p2death=1 If p2y<1 Then p2death=1 If p2y>478 Then p2death=1 Color 255,255,255 If p1death=1 Text 320,240,"Player 1 crashed",1,1 Flip Delay 5000 EndIf If p2death=1 Text 320,240,"Player 2 crashed",1,1 Flip Delay 5000 EndIf Flip Until KeyDown(1)=1 Or p1death=1 Or p2death=1 If p1death=0 And p2death=0 Then End Until p1death=0 And p2death=0 End

Paddle Ball by WillK for Workshop #001 Try to beat the computer player. Cursors ;========================================================================== ;=============================== Paddle Ball ============================== ;=========================== Programmed by WillK ========================== ;================== Coders Workshop Wednesday Workshop #001 =============== ;=============================== 16 June 2005 ============================= ;========================================================================== ;========================================================================== ;=============================== Initialise Game Variables ================ ;========================================================================== Graphics 640,480,32,2 SetBuffer BackBuffer() SeedRnd MilliSecs() AppTitle "Silly Little Paddle Ball Game" ;game variables Const VICTORY=5 Const BORDER=40 Global pspeed#=1 Global pause=False,quit=False,pausetime Global frames,fpstimer,gwidth=GraphicsWidth(),gheight=GraphicsHeight() Global fps=60,state$ ;declare paddle variables Const PFLASH=250 Global rectw=gwidth/32 Global recth=(gheight/4) Dim pcolor(1,2) Dim ptimer(1) ;declare player variables Global px,py,pscore ;declare computer variables Global cx,cy,cscore ;declare ball variables Global bw=gwidth/64 Global bh=bw Global bx#,by#,bspeedx#,bspeedy#,lx,ly,btimer,bred,bgreen,bblue ;load fonts Global arial=LoadFont("Arial",36,True) Global arialc=LoadFont("Arial",18,True) Global arialb=LoadFont("Arial",72,True) drawTitle() initGame() ;========================================================================== ;=============================== Main Game Loop ========================== ;========================================================================== Repeat getInput() checkCollisions() ClsColor 128,0,0 Cls ;draw court Color 0,64,0 Rect rectw,BORDER,gwidth-2rectw,gheight-2BORDER ;draw paddles Color pcolor(1,0),pcolor(1,1),pcolor(1,2) Rect cx,cy,rectw,recth,True Color pcolor(0,0),pcolor(0,1),pcolor(0,2) Rect px,py,rectw,recth,True ;draw ball Color 255,255,255 If pause=0 Or pause=10 Rect bx,by,bw,bh,True ;draw HUD drawHUD() Flip True Until quit=True ClsColor 0,0,0 Cls updateHUD(7) drawHUD(2) Flip While MilliSecs()<pausetime Wend End ;========================================================================== ;=============================== Get User Input =========================== ;========================================================================== Function getInput() If KeyDown(1) quit=True ElseIf KeyHit(197) Or KeyHit(25) If pause=11 pause=0 ElseIf pause=0 pause=11 EndIf EndIf If pause=0 If KeyDown(200) py=py-pspeed ElseIf KeyDown(208) py=py+pspeed EndIf updateBall() updateAI() updatepaddle() ElseIf pause=6 If KeyDown(21) initGame() If KeyDown(49) quit=True Else If MilliSecs()>pausetime If pause=1 Or pause=2 Or pause=3 updateHUD(10) ElseIf pause=4 Or pause=5 updateHUD(6) ElseIf pause=11 Else pause=0 EndIf EndIf EndIf End Function ;========================================================================== ;=============================== Initialise Game Variables ================ ;========================================================================== Function initGame() ;setup paddles For i=0 To 1 pcolor(i,0)=247 pcolor(i,1)=235 pcolor(i,2)=5 Next ;initialise player px=20 py=(gheight-recth)/2 pscore=0 ;initialise computer cx=gwidth-(20+rectw) cy=py cscore=0 ;setup game pspeed#=gheight/64 initBall() updateHUD() End Function ;========================================================================== ;=============================== Update Ball ============================== ;========================================================================== Function updateBall() lx=bx bx=bspeedx+bx ly=by by=bspeedy+by If by<BORDER bspeedy=-bspeedy by=by+bh ElseIf by>(gheight-BORDER-bh) bspeedy=-bspeedy by=by-bh EndIf If bx>gwidth pscore=pscore+1 If pscore=VICTORY updateHUD(4) Else updateHUD(1) EndIf initBall() Return ElseIf bx<0 cscore=cscore+1 If cscore=VICTORY updateHUD(5) Else updateHUD(2) EndIf initBall() Return EndIf End Function ;========================================================================== ;============================== Check Collisions ========================== ;========================================================================== Function checkCollisions() w=Abs(bx-lx) h=Abs(by-ly) ;top third of paddle If RectsOverlap (bx,by,w,h,px,py,rectw,(recth/3)) If bspeedy<1 And bspeedy>-1 bspeedy=1 bspeedy=bspeedy1.25 bspeedx=-bspeedx1.05 bx=bx+5 ptimer(0)=MilliSecs()+PFLASH ;middle third of paddle ElseIf RectsOverlap (bx,by,w,h,px,(py+recth/3),rectw,(recth/3)) bspeedy=-bspeedy0.75 bspeedx=-bspeedx1.1 bx=bx+5 ptimer(0)=MilliSecs()+PFLASH ;bottom third of paddle ElseIf RectsOverlap (bx,by,w,h,px,(py+recth2/3),rectw,(recth/3)) If bspeedy<1 And bspeedy>-1 bspeedy=1 bspeedy=-bspeedy1.25 bspeedx=-bspeedx1.05 bx=bx+5 ptimer(0)=MilliSecs()+PFLASH ;top third of paddle ElseIf RectsOverlap (bx,by,w,h,cx,cy,rectw,(recth/3)) bspeedy=bspeedy1.25 bspeedx=-bspeedx1.05 bx=bx-5 ptimer(1)=MilliSecs()+PFLASH ;middle third of paddle ElseIf RectsOverlap (bx,by,w,h,cx,(cy+recth/3),rectw,(recth/3)) bspeedy=-bspeedy0.75 bspeedx=-bspeedx1.1 bx=bx-5 ptimer(1)=MilliSecs()+PFLASH ;bottom third of paddle ElseIf RectsOverlap (bx,by,w,h,cx,(cy+recth2/3),rectw,(recth/3)) bspeedy=-bspeedy1.25 bspeedx=-bspeedx1.05 bx=bx-5 ptimer(1)=MilliSecs()+PFLASH EndIf End Function ;========================================================================== ;=============================== Initialise Ball ========================== ;========================================================================== Function initBall() ;initialise ball bx=gwidth/2 lx=bx by=gheight/2 ly=by bspeedx=gwidth/(Rnd(1,2)fps) If Rand(0,1) bspeedx=-bspeedx bspeedy=gheight/(Rnd(2,3)fps) If Rand(0,1) bspeedy=-bspeedy py=(gheight-recth)/2 cy=(gheight-recth)/2 End Function ;========================================================================== ;=============================== Update AI ================================ ;========================================================================== Function updateAI() If bspeedx<0 If (cy+recth/2)<(gheight2/5) cy=cy+pspeed ElseIf (cy+recth/2)>(gheight3/5) cy=cy-pspeed EndIf ElseIf bspeedx>0 ;if ball is going up If bspeedy<0 ;if ball is higher than bat If by<(cy+recth/4) cy=cy-pspeed ;if ball is lower than bat ElseIf by>(cy+recth3/4) cy=cy+pspeed EndIf ;if ball is going down Else ;if ball is lower than bat If by>(cy+recth3/4) cy=cy+pspeed ;if ball is higher ElseIf by<(cy+recth/4) cy=cy-pspeed EndIf EndIf EndIf End Function ;========================================================================== ;=============================== Update Paddles =========================== ;========================================================================== Function updatePaddle() If cy<BORDER cy=BORDER ElseIf (cy+recth)>gheight-BORDER cy=gheight-recth-BORDER EndIf If py<BORDER py=BORDER ElseIf (py+recth)>gheight-BORDER py=gheight-recth-BORDER EndIf ;color paddle flash For i=0 To 1 pcolor(i,0)=247 pcolor(i,1)=235 pcolor(i,2)=5 If ptimer(i)>MilliSecs()+PFLASH4/5 pcolor(i,0)=125 pcolor(i,1)=119 pcolor(i,2)=2 ElseIf ptimer(i)>MilliSecs()+PFLASH3/5 pcolor(i,0)=148 pcolor(i,1)=140 pcolor(i,2)=3 ElseIf ptimer(i)>MilliSecs()+PFLASH2/5 pcolor(i,0)=173 pcolor(i,1)=165 pcolor(i,2)=3 ElseIf ptimer(i)>MilliSecs()+PFLASH1/5 pcolor(i,0)=200 pcolor(i,1)=190 pcolor(i,2)=4 ElseIf ptimer(i)>MilliSecs() pcolor(i,0)=228 pcolor(i,1)=218 pcolor(i,2)=5 EndIf Next End Function ;========================================================================== ;=============================== Update HUD =============================== ;========================================================================== Function updateHUD(p=3) If p=10 pausetime=500+MilliSecs() ElseIf p=1 pausetime=2000+MilliSecs() ElseIf p=2 pausetime=2000+MilliSecs() ElseIf p4=4 pausetime=3000+MilliSecs() ElseIf p=5 pausetime=3000+MilliSecs() ElseIf p=7 pausetime=2000+MilliSecs() Else pausetime=1500+MilliSecs() EndIf pause=p End Function ;========================================================================== ;=============================== Draw HUD ================================= ;========================================================================== Function drawHUD(i=1) If pause>0 SetFont arialb If pause=3 Color 191,49,13 Text gwidth/2,gheight/2,"Get Ready!",True,True ElseIf pause=1 Color 255,128,0 Text gwidth/2,gheight/2,"Player Scores!",True,True ElseIf pause=2 Color 0,128,0 Text gwidth/2,gheight/2,"Computer Scores!",True,True ElseIf pause=4 Color 255,128,0 Text gwidth/2,gheight/2,"Player Wins!",True,True ElseIf pause=5 Color 0,128,0 Text gwidth/2,gheight/2,"Computer Wins!",True,True ElseIf pause=6 Color 191,49,13 Text gwidth/2,gheight/2,"Play Again? Y/N",True,True ElseIf pause=7 Color 255,255,255 Text gwidth/2,(gheight-FontHeight())/2,"Thanks for Playing",True,True Color 51,51,255 Text gwidth/2,(gheight+FontHeight())/2,"Paddle Ball",True,True Color 191,49,13 Text gwidth/2,(gheight+2*FontHeight())/2,"Presented by WillK",True ElseIf pause=11 Color 255,255,255 Text gwidth/2,(gheight-FontHeight())/2,"Game Paused!",True,True EndIf Color 192,192,192 SetFont arial If i=1 Text gwidth/2,0,"PLAYER: "+pscore +" "+"COMPUTER: "+cscore,True End Function ;========================================================================== ;============================= Draw Title Screen ========================== ;========================================================================== Function drawTitle() Color 191,49,13 SetFont arial Text gwidth/2,50,"Silly Little Paddle Ball Game",True Color 0,128,64 SetFont arialc Text gwidth/2,100,"Up/Down arrows move paddle",True Text gwidth/2,100+FontHeight(),"Press P to Pause the Action",True Color 250,250,250 Text gwidth/2,300,"Press Space to Begin",True Flip WaitKey End Function

Ninja Attack by Eikon for Workshop #001 Your sword only has collision on its tip, so you must be skillful to deflect incoming shurikens. Cursors and Space AppTitle "Ninja Attack" Graphics 320, 240, 16, 2 SetBuffer BackBuffer() SeedRnd MilliSecs() Global pX = 150, pY = 110, pS = 20, pA = 0, pL# = 15, bSwing = False Global bEnemy = False, eX, eY, bStar = False, eA = 0, eR = 0, eSX, eSY, eSD Dim bC(3) .Title FlushKeys() pX = 150: pY = 110: pS = 20: pA = 0: pL = 15: bSwing = False: bEnemy = False: bStar = False Repeat Color 0, 255, 255: Text 1, 1, "Ninja Attack" Color 255, 255, 255: Text 1, 16, "by Eikon" Color 255, 255, 0: Text 1, 48, "Press Enter to play" Text 1, 64, "Press Escape to exit" Color 0, 255, 0: Text 1, 226, "Instructions: Hold space to attack" If KeyDown(1) Then End Flip: Cls Until KeyHit(28) FlushKeys() While Not KeyDown(1) If bSwing = True Then Color 178, 178, 178: Line pX + 5, pY + 5, 20 * Cos(pA) + (pX + 5), 20 * Sin(pA) + (pY + 5) ; 1 If pA < 360 Then pA = pA + 15 Else bSwing = False ;Color 255, 0, 0: Rect 20 * Cos(pA) + pX, 20 * Sin(pA) + pY, 6, 6 If bEnemy = True Then If RectsOverlap(20 * Cos(pA) + pX, 20 * Sin(pA) + pY, 6, 6, eX, eY, 10, 10) Then bEnemy = False: pS = pS + 10 EndIf EndIf EndIf Color 255, 255, 0: Oval pX, pY, 10, 10 ; 2 If bEnemy = True Then ; 4 Color bC(0), bC(1), bC(2): Rect eX, eY, 10, 10 If pX < eX Then eX = eX - 1 ElseIf pX > eX Then eX = eX + 1 If pY < eY Then eY = eY - 1 ElseIf pY > eY Then eY = eY + 1 If RectsOverlap(pX, pY, 10, 10, eX, eY, 10, 10) Then If Int(pL) >= 1 Then pL = pL - .05 Else Goto GameOver EndIf If Rand(1, 100) = 50 And bStar = False Then bStar = True eA = ATan2(pY - eY, pX - eX): eR = 0: eSD = 1 If eA < 0 Then eA = eA + 360 eSX = eX: eSY = eY EndIf If bStar = True Then Color 178, 178, 178: Rect eR * Cos(eA) + eSX, eR * Sin(eA) + eSY, 2, 2 If eSD = 1 Then eR = eR + 2 Else eR = eR - 2 If eR * Cos(eA) + eSX < 0 Or eR * Cos(eA) + eSX > 320 Then bStar = False If eR * Sin(eA) + eSY < 20 Or eR * Sin(eA) + eSY > 240 Then bStar = False If RectsOverlap(pX, pY, 10, 10, eR * Cos(eA) + eSX, eR * Sin(eA) + eSY, 2, 2) Then If Int(pL) >= 1 Then pL = pL - 1: bStar = False Else Goto GameOver EndIf If RectsOverlap(20 * Cos(pA) + pX, 20 * Sin(pA) + pY, 6, 6, eR * Cos(eA) + eSX, eR * Sin(eA) + eSY, 2, 2) Then eSD = 0 EndIf EndIf Color 0, 255, 255: Text 1, 1, "Score: " + pS + " Life: " + Int(pL) ; 3 If KeyDown(203) And pX > 0 Then pX = pX - 2 If KeyDown(205) And pX < 310 Then pX = pX + 2 If KeyDown(200) And pY > 20 Then pY = pY - 2 If KeyDown(208) And pY < 230 Then pY = pY + 2 If KeyDown(57) Then If bSwing = False And pS > 0 Then bSwing = True: pA = 0: pS = pS - 1 EndIf If bEnemy = False Then bEnemy = True For i = 0 To 2: bC(i) = Rand(78, 255): Next eX = Rand(0, 310) tmp = Rand(1, 2) If tmp = 1 Then eY = 20 Else eY = 230 EndIf If Int(pL) < 1 Then Goto GameOver Flip: Cls Wend: End .GameOver FlushKeys() Repeat Color 255, 255, 0: Text 1, 1, "Final Score: " + pS Color 255, 255, 255: Text 1, 224, "Press Enter" Flip: Cls Until KeyHit(28) Goto Title

Flight of the Pixel by pebu for Workshop #001 Guide the pixel in it's flight. Cursors ; Flight of the Pixel ; Written by Pebu for the CodersWorkshop '5 Objects' compo Const SCREEN_WIDTH = 800 Const SCREEN_HEIGHT = 600 Const HALF_WIDTH = SCREEN_WIDTH / 2 Const HALF_HEIGHT = SCREEN_HEIGHT / 2 Const FPS = 30 Const STATE_QUIT = -1 Const STATE_TITLE = 0 Const STATE_PLAYING = 1 Const STATE_GAMEOVER = 2 Const STATE_WON = 3 Const FRICTION# = 0.1 Const GRAVITY# = 0.25 Const ACCELERATION# = 0.5 Const MAX_SPEED# = 10 Const MAX_OBJECTS = 4 Const OBJ_RECT = 1 Const OBJ_OVAL = 2 Const EXPLO_MAXSIZE# = 10 Const EXPLO_GROWTH# = 0.5 Type tPlayerData Field x#, y#, dx#, dy# End Type Type tObjectData Field r, g, b ; Colour Field ObType ; Rect or Oval Field x, y, w, h ; Dimensions of object End Type Type tRoomData Field id ; Room id = index into array Field r, g, b ; ClsColor for this room Field NumObjects Field Objects.tObjectData[MAX_OBJECTS-1] End Type Global gPlayer.tPlayerData Global gFPSTimer Dim gaRooms.tRoomData(0) Global gNumRooms, gCurrentRoom Global gStartTime Global geGameState ; Initialise Graphics SCREEN_WIDTH, SCREEN_HEIGHT, 0, 1 SetBuffer BackBuffer() HidePointer gFPSTimer = CreateTimer(FPS) InitRooms() geGameState = STATE_TITLE ; Play Repeat Select geGameState Case STATE_TITLE TitleScreen() Case STATE_PLAYING PlayGame() Case STATE_GAMEOVER GameOver() Case STATE_WON WinGame() End Select Until geGameState = STATE_QUIT ; Finish up Delete Each tPlayerData Delete Each tObjectData Delete Each tRoomData FreeTimer gFPSTimer ShowPointer End ; TitleScreen() - show the title screen and wait for player to start a game Function TitleScreen() ; Set current room to 0, which is important as room 0 only has ; 2 objects, leaving 3 free for title screen text EnterRoom(0) ; Loop drawing title screen until use presses space to play ; or esc to quit Repeat If KeyHit(57) Then geGameState = STATE_PLAYING If KeyHit(1) Then geGameState = STATE_QUIT ; Wait for next frame, then draw WaitTimer gFPSTimer Cls DrawRoom(gCurrentRoom) ; Title screen text - 3 objects Color 255, 255, 255 Text HALF_WIDTH, HALF_HEIGHT -100, "FLIGHT OF THE PIXEL", True, True Text HALF_WIDTH, HALF_HEIGHT, "Guide your little dot to the safety of the yellow screen", True, True Text HALF_WIDTH, HALF_HEIGHT+20, "Left and Right cursors to move, Up cursor to thrust. Press Space to play", True, True Flip Until geGameState <> STATE_TITLE ; Prepare for a new game If geGameState = STATE_PLAYING Then InitGame() EndIf End Function ; InitGame() - set up for new game Function InitGame() Delete Each tPlayerData gPlayer = New tPlayerData gPlayer\x = HALF_WIDTH gPlayer\y = HALF_HEIGHT gPlayer\dx = 0 gPlayer\dy = 0 EnterRoom(0) MoveMouse HALF_WIDTH, HALF_HEIGHT gStartTime = MilliSecs() End Function ; PlayGame() - play a single frame of the game Function PlayGame() Local pixel ; Get input and update player UpdatePlayer() ; Wait for next frame, then draw WaitTimer gFPSTimer Cls DrawRoom(gCurrentRoom) ; Grab the colour of the pixel underneath the player now, before we draw him pixel = ReadPixel(gPlayer\x, gPlayer\y, BackBuffer()) Color 255, 255,255 Oval gPlayer\x-2, gPlayer\y-2, 4, 4, True Flip ; Perform collision checks using the colour we grabbed earlier If CollisionCheck(gPlayer\x, gPlayer\y, pixel) Then geGameState = STATE_GAMEOVER ElseIf (gCurrentRoom = gNumRooms - 1) And (gPlayer\x > 52) Then ; Made it into the final room geGameState = STATE_WON EndIf If KeyHit(1) Then geGameState = STATE_QUIT End Function ; GameOver() - do the explosion when the player dies and then ; display game over message and wait till player presses space Function GameOver() Local exploSize# = 1 Repeat If exploSize < EXPLO_MAXSIZE Then exploSize = exploSize + EXPLO_GROWTH EndIf If KeyHit(57) Then geGameState = STATE_TITLE If KeyHit(1) Then geGameState = STATE_QUIT ; Wait for next frame, then draw WaitTimer gFPSTimer Cls DrawRoom(gCurrentRoom) If exploSize < EXPLO_MAXSIZE Then Color 255, 0, 0: Oval gPlayer\x-exploSize, gPlayer\y-exploSize, exploSize2, exploSize2, True Else Color 255, 0, 0: Text HALF_WIDTH, HALF_HEIGHT, "GAME OVER - PRESS SPACE TO PLAY AGAIN", True, True EndIf Flip Until geGameState <> STATE_GAMEOVER End Function ; WinGame() - Display "Well Done" message if player makes it to final screen Function WinGame() ; Calculate final time TimeTaken# = (MilliSecs() - gStartTime) / 1000.0 Repeat If KeyHit(57) Then geGameState = STATE_TITLE If KeyHit(1) Then geGameState = STATE_QUIT ; Wait for next frame, then draw WaitTimer gFPSTimer Cls DrawRoom(gCurrentRoom) ; Title screen text - 3 objects Color 255, 255, 255 Text HALF_WIDTH, HALF_HEIGHT - 100, "WELL DONE - YOU MADE IT!!", True, True Text HALF_WIDTH, HALF_HEIGHT, "Time taken: " + Str(TimeTaken) + " seconds.", True, True Text HALF_WIDTH, HALF_HEIGHT+50, "Press Space to Play or Esc to Quit", True, True Flip Until geGameState <> STATE_WON End Function ; CollisionCheck() - detect if pixel at x,y is wall or floor Function CollisionCheck(x#, y#, pixelColour) Local bHit = False Local r,g,b ; Get the red, green and blue components of the colour r = pixelColour Shr 16 And 255 g = pixelColour Shr 8 And 255 b = pixelColour And 255 ; If r,g,b are all zero then OK - floor tile ; Otherwise it's a wall tile If r+g+b = 0 Then bHit = False Else bHit = True EndIf Return bHit End Function ; UpdatePlayer() - get player input and update their position on screen Function UpdatePlayer() ; Get keypresses and update dx/dy accordingly If KeyDown(205) Then gPlayer\dx = gPlayer\dx + ACCELERATION ElseIf KeyDown(203) Then gPlayer\dx = gPlayer\dx - ACCELERATION EndIf If KeyDown(200) Then gPlayer\dy = gPlayer\dy - ACCELERATION Else ; If player is not pressing Up, apply gravity gPlayer\dy = gPlayer\dy + GRAVITY EndIf ; Apply friction to horizontal movement If gPlayer\dx > 0 Then gPlayer\dx = gPlayer\dx - FRICTION If gPlayer\dx < 0 Then gPlayer\dx = 0 ElseIf gPlayer\dx < 0 Then gPlayer\dx = gPlayer\dx + FRICTION If gPlayer\dx > 0 Then gPlayer\dx = 0 EndIf ; Prevent speed from going too high If gPlayer\dx > MAX_SPEED Then gPlayer\dx = MAX_SPEED ElseIf gPlayer\dx < -MAX_SPEED Then gPlayer\dx = -MAX_SPEED EndIf If gPlayer\dy > MAX_SPEED Then gPlayer\dy = MAX_SPEED ElseIf gPlayer\dy < -MAX_SPEED Then gPlayer\dy = -MAX_SPEED EndIf ; Update player coordinates gPlayer\x = gPlayer\x + gPlayer\dx gPlayer\y = gPlayer\y + gPlayer\dy ; Check for wrap around screen on left and right ; and update the current room If gPlayer\x < 0 Then If gCurrentRoom > 0 Then gPlayer\x = SCREEN_WIDTH EnterRoom(gCurrentRoom - 1) EndIf ElseIf gPlayer\x > SCREEN_WIDTH Then If gCurrentRoom < gNumRooms - 1 Then gPlayer\x = 0 EnterRoom(gCurrentRoom + 1) EndIf EndIf End Function ; EnterRoom() - set globals and cls colour upon entering a room Function EnterRoom(iRoom) gCurrentRoom = iRoom ClsColor gaRooms(iRoom)\r, gaRooms(iRoom)\g, gaRooms(iRoom)\b End Function ; DrawRoom() - draws the specified room objects ; Note - assumes CLS has already been called. Function DrawRoom(iRoom) Local iCtr Local ob.tObjectData For iCtr = 0 To gaRooms(iRoom)\NumObjects - 1 ob = gaRooms(iRoom)\Objects[iCtr] Color ob\r, ob\g, ob\b Select ob\ObType Case OBJ_RECT Rect ob\x, ob\y, ob\w, ob\h, True Case OBJ_OVAL Oval ob\x, ob\y, ob\w, ob\h, True End Select Next End Function ; InitRooms() - Initialise rooms array Function InitRooms() Local nRooms, iRoom, nObjects, iObject Local rm.tRoomData Local ob.tObjectData Local bWall Delete Each tObjectData Delete Each tRoomData Restore ROOM_DATA Read gNumRooms Dim gaRooms.tRoomData(gNumRooms - 1) For iRoom = 0 To gNumRooms - 1 rm = New tRoomData rm = New tRoomData rm\id = iRoom Read rm\r, rm\g, rm\b Read rm\NumObjects For iObject = 0 To rm\NumObjects - 1 ob = New tObjectData Read ob\ObType, bWall Read ob\x, ob\y, ob\w, ob\h If bWall Then ob\r = rm\r: ob\g = rm\g: ob\b = rm\b Else ob\r = 0: ob\g = 0: ob\b = 0 EndIf rm\Objects[iObject] = ob Next gaRooms(iRoom) = rm Next End Function .ROOM_DATA Data 7 ; ROOM 0 - start room Data 0, 200, 0 Data 2 Data OBJ_RECT, 0, 50, 50, SCREEN_WIDTH-100, SCREEN_HEIGHT-100 Data OBJ_RECT, 0, SCREEN_WIDTH-100, HALF_HEIGHT-50, 100, 100 ; ROOM 1 Data 128, 0, 128 Data 3 Data OBJ_RECT, 0, 0, HALF_HEIGHT-50, SCREEN_WIDTH, 100 Data OBJ_RECT, 0, 100, 100, SCREEN_WIDTH-200, SCREEN_HEIGHT-200 Data OBJ_OVAL, 1, HALF_WIDTH-100, HALF_HEIGHT-100, 200, 200 ; ROOM 2 Data 0, 50, 200 Data 3 Data OBJ_RECT, 0, 0, HALF_HEIGHT-50, HALF_WIDTH, 100 Data OBJ_RECT, 0, HALF_WIDTH-50, 50, HALF_WIDTH+50, SCREEN_HEIGHT-100 Data OBJ_RECT, 1, HALF_WIDTH + 50, 100, HALF_WIDTH, SCREEN_HEIGHT-200 ; ROOM 3 Data 20, 100, 20 Data 3 Data OBJ_OVAL, 0, -500, 50, 1000, SCREEN_HEIGHT-100 Data OBJ_RECT, 0, HALF_WIDTH, HALF_HEIGHT-25, HALF_WIDTH, 50 Data OBJ_OVAL, 1, -450, 100, 900, SCREEN_HEIGHT-200 ; ROOM 4 Data 50, 200, 200 Data 3 Data OBJ_RECT, 0, 0, HALF_HEIGHT-25, SCREEN_WIDTH, 50 Data OBJ_RECT, 0, HALF_WIDTH/2, 50, HALF_WIDTH, HALF_HEIGHT-75 Data OBJ_RECT, 1, (HALF_WIDTH/2)+50, 100, HALF_WIDTH-100, HALF_HEIGHT-75 ; ROOM 5 Data 200, 150, 150 Data 3 Data OBJ_RECT, 0, 0, HALF_HEIGHT-25, SCREEN_WIDTH, 50 Data OBJ_OVAL, 0, HALF_WIDTH-(HALF_HEIGHT-50), 50, SCREEN_HEIGHT-100, SCREEN_HEIGHT-100 Data OBJ_OVAL, 1, HALF_WIDTH-(HALF_HEIGHT-100), 100, SCREEN_HEIGHT-200, SCREEN_HEIGHT-200 ; Last room Data 200, 200, 0 Data 2 Data OBJ_RECT, 0, 50, 50, SCREEN_WIDTH-100, SCREEN_HEIGHT-100 Data OBJ_RECT, 0, 0, HALF_HEIGHT-25, 100, 50 ; End of room data

Mothership Attack by Foppy for Workshop #001 Avoid the Mothership Cursors and Space for shield ; Mothership Attack (C)2005 Foppygames ;##################################################################################################### ; INITIALIZATION ;##################################################################################################### Const SCREEN_WIDTH = 800 Const SCREEN_HEIGHT = 600 Graphics(SCREEN_WIDTH,SCREEN_HEIGHT) SetBuffer(BackBuffer()) SeedRnd(MilliSecs()) ;##################################################################################################### ; CONSTANTS ;##################################################################################################### Const KEY_ESCAPE = 1 Const KEY_UP = 200 Const KEY_DOWN = 208 Const KEY_LEFT = 203 Const KEY_RIGHT = 205 Const KEY_SPACE = 57 Const SHIP_MAX_SPEED# = 0.8 Const SHIP_MIN_SPEED# = 0.5 Const SHIP_TURN_SPEED# = 0.45 Const BULLET_SPEED# = 2.5 Const SHIP_MOVE_ACC# = 0.025 Const SHIP_MOVE_DEC# = 0.01 Const BRAIN_HUMAN = 0 Const BRAIN_CPU = 1 Const SHIP_TYPE_TRIANGLE = 0 Const SHIP_TYPE_RECTANGLE = 1 Const SHIP_ROLE_MOTHERSHIP = 0 Const SHIP_ROLE_FIGHTER = 1 Const FIGHTER_ENERGY = 500 Const MOTHERSHIP_ENERGY = 5000 ;##################################################################################################### ; GLOBALS ;##################################################################################################### Global g_bulletCount = 0 Global g_shipObjectCount = 0 Global g_hiScore = 999 ;##################################################################################################### ; NON TYPE-RELATED FUNCTIONS ;##################################################################################################### Function titleScreen() Cls Color(255,255,255) Text(SCREEN_WIDTH/2,20,"Mothership Attack",True,False) Text(SCREEN_WIDTH/2,40,"(C)2005 Foppygames",True,False) Text(SCREEN_WIDTH/2,80,"Controls: arrow keys to steer and slow down, space bar to activate force field",True,False) Text(SCREEN_WIDTH/2,120,"Press space to start, escape to quit",True,False) Color(0,255,0) Rect(SCREEN_WIDTH/2-50,SCREEN_HEIGHT/2-50,100,100,True) Flip FlushKeys Repeat If (KeyHit(KEY_ESCAPE)) Then Return(False) End If If (KeyHit(KEY_SPACE)) Then Return(True) End If Forever End Function Function endGameScreen(p_victory,p_time) Cls Color(255,255,255) If (p_victory) Then If (p_time < g_hiScore) Then g_hiScore = p_time End If resultLine$ = "You have destroyed the mothership!" timeLine$ = "Your time: "+p_time+" seconds Hi-score: "+g_hiScore+" seconds" Else resultLine$ = "The mothership is victorious once again" timeLine$ = "Current hi-score: "+g_hiScore+" seconds" End If Text(SCREEN_WIDTH/2,100,resultLine,True,False) Text(SCREEN_WIDTH/2,120,timeLine,True,False) Text(SCREEN_WIDTH/2,160,"Press space",True,False) Flip FlushKeys Repeat Until(KeyHit(KEY_SPACE)) End Function ;##################################################################################################### ; SHIP TYPE DEFINITION AND RELATED FUNCTIONS ;##################################################################################################### Type SHIP Field f_brain Field f_type Field f_role Field f_x# Field f_y# Field f_reload Field f_reloadTime Field f_moveSpeed# Field f_minSpeed# Field f_turnSpeed# Field f_angle# Field f_dX# Field f_dY# Field f_w Field f_h Field f_target.SHIP Field f_targetX# Field f_targetY# Field f_fieldOn Field f_fieldDisplay Field f_glowOn Field f_glowDisplay Field f_fieldSize Field f_energy End Type Function SHIP_create.SHIP(p_role,p_brain,p_type,p_x,p_y,p_w,p_h) ship.SHIP = New SHIP ship\f_role = p_role ship\f_brain = p_brain ship\f_type = p_type ship\f_x = p_x ship\f_y = p_y ship\f_minSpeed = SHIP_MIN_SPEED ship\f_turnSpeed = SHIP_TURN_SPEED ship\f_angle = 0 ship\f_w = p_w ship\f_h = p_h ship\f_fieldSize = p_w6 If (p_role = SHIP_ROLE_FIGHTER) Then ship\f_energy = FIGHTER_ENERGY Else If (p_role = SHIP_ROLE_MOTHERSHIP) Then ship\f_energy = MOTHERSHIP_ENERGY ship\f_minSpeed = SHIP_MIN_SPEED/4 End If ship\f_moveSpeed = ship\f_minSpeed If (p_type = SHIP_TYPE_RECTANGLE) Then objects = 1 Else If (p_type = SHIP_TYPE_TRIANGLE) Then objects = 2 End If g_shipObjectCount = g_shipObjectCount + objects Return(ship) End Function Function SHIP_delete(p_ship.SHIP) If (p_ship\f_type = SHIP_TYPE_RECTANGLE) Then objects = 1 Else If (p_ship\f_type = SHIP_TYPE_TRIANGLE) Then objects = 2 End If Delete(p_ship) g_shipObjectCount = g_shipObjectCount - objects End Function Function SHIP_moveAll() For ship.SHIP = Each SHIP SHIP_move(ship) Next End Function Function SHIP_move(p_ship.SHIP) Select p_ship\f_brain Case BRAIN_HUMAN SHIP_controlHuman(p_ship) Case BRAIN_CPU SHIP_controlCPU(p_ship) End Select If (p_ship\f_angle > 360) Then p_ship\f_angle = p_ship\f_angle - 360 End If If (p_ship\f_angle < 0) Then p_ship\f_angle = p_ship\f_angle + 360 End If If (p_ship\f_moveSpeed < p_ship\f_minSpeed) Then p_ship\f_moveSpeed = p_ship\f_minSpeed End If If (p_ship\f_moveSpeed > SHIP_MAX_SPEED) Then p_ship\f_moveSpeed = SHIP_MAX_SPEED End If SHIP_computeDeltas(p_ship) p_ship\f_x = p_ship\f_x + p_ship\f_dX p_ship\f_moveSpeed p_ship\f_y = p_ship\f_y + p_ship\f_dY * p_ship\f_moveSpeed Select p_ship\f_type Case SHIP_TYPE_RECTANGLE If (p_ship\f_x < 0) Then p_ship\f_x = 0 End If If (p_ship\f_x > SCREEN_WIDTH-p_ship\f_w) Then p_ship\f_x = SCREEN_WIDTH-p_ship\f_w End If If (p_ship\f_y < 0) Then p_ship\f_y = 0 End If If (p_ship\f_y > SCREEN_HEIGHT-p_ship\f_h) Then p_ship\f_y = SCREEN_HEIGHT-p_ship\f_h End If Case SHIP_TYPE_TRIANGLE If (p_ship\f_x < 0) Then p_ship\f_x = 0 End If If (p_ship\f_x > SCREEN_WIDTH-p_ship\f_w) Then p_ship\f_x = SCREEN_WIDTH-p_ship\f_w End If If (p_ship\f_y < 0) Then p_ship\f_y = 0 End If If (p_ship\f_y > SCREEN_HEIGHT-p_ship\f_h) Then p_ship\f_y = SCREEN_HEIGHT-p_ship\f_h End If End Select End Function Function SHIP_controlHuman(p_ship.SHIP) If (KeyDown(KEY_LEFT)) Then p_ship\f_angle = p_ship\f_angle + p_ship\f_turnSpeed End If If (KeyDown(KEY_RIGHT)) Then p_ship\f_angle = p_ship\f_angle - p_ship\f_turnSpeed End If If (KeyDown(KEY_DOWN)) Then p_ship\f_moveSpeed = p_ship\f_moveSpeed - SHIP_MOVE_DEC Else p_ship\f_moveSpeed = p_ship\f_moveSpeed + SHIP_MOVE_ACC End If p_ship\f_fieldOn = KeyDown(KEY_SPACE) End Function Function SHIP_controlCPU(p_ship.SHIP) Select p_ship\f_role Case SHIP_ROLE_MOTHERSHIP ; random steering in 45 degree steps If (Rand(1000) > 990) Then p_ship\f_angle = p_ship\f_angle + (Rand(0,2)-1)45 End If Case SHIP_ROLE_FIGHTER ; steering targetAngle = ATan2(-(p_ship\f_targetY+Rand(-30,30)-p_ship\f_y),p_ship\f_targetX+Rand(-30,30)-p_ship\f_x) If (targetAngle < 0) Then targetAngle = targetAngle + 360 End If normal = targetAngle - p_ship\f_angle If (normal < 0) Then normal = normal + 360 End If If ((normal < 358) And (normal > 180)) Then p_ship\f_angle = p_ship\f_angle - p_ship\f_turnSpeed End If If ((normal > 2) And (normal <= 180)) Then p_ship\f_angle = p_ship\f_angle + p_ship\f_turnSpeed End If p_ship\f_angle = p_ship\f_angle Mod 360 + (p_ship\f_angle<0)360 ; changing speed If ((normal > 350) Or (normal < 10)) Then p_ship\f_moveSpeed = p_ship\f_moveSpeed + SHIP_MOVE_ACC Else p_ship\f_moveSpeed = p_ship\f_moveSpeed - SHIP_MOVE_DEC End If ; shooting If ((Rand(1000)>998) And (g_bulletCount = 0)) Then BULLET_create(p_ship) End If End Select End Function Function SHIP_drawAll() For ship.SHIP = Each SHIP SHIP_draw(ship) Next End Function Function SHIP_draw(p_ship.SHIP) If (p_ship\f_glowOn) If (p_ship\f_glowDisplay) Then Color(255,255,255) End If p_ship\f_glowDisplay = Not(p_ship\f_glowDisplay) End If If (p_ship\f_fieldOn And p_ship\f_fieldDisplay) Then SHIP_drawAsOval(p_ship) Else Select p_ship\f_type Case SHIP_TYPE_TRIANGLE SHIP_drawAsTriangle(p_ship) Case SHIP_TYPE_RECTANGLE SHIP_drawAsRectangle(p_ship) End Select End If If (p_ship\f_fieldOn) Then p_ship\f_fieldDisplay = Not(p_ship\f_fieldDisplay) End If If (p_ship\f_glowOn) Then p_ship\f_glowOn = False End If End Function Function SHIP_drawAsTriangle(p_ship.SHIP) leftAngle = p_ship\f_angle + 150 If leftAngle > 360 Then leftAngle = leftAngle - 360 End If leftDx# = Cos(leftAngle) leftDy# = -Sin(leftAngle) leftX = p_ship\f_x + leftDx * p_ship\f_w/2 leftY = p_ship\f_y + leftDy * p_ship\f_w/2 rightAngle = p_ship\f_angle - 150 If rightAngle < 0 Then rightAngle = rightAngle + 360 End If rightDx# = Cos(rightAngle) rightDy# = -Sin(rightAngle) rightX = p_ship\f_x + rightDx * p_ship\f_w/2 rightY = p_ship\f_y + rightDy * p_ship\f_w/2 frontX = p_ship\f_x + p_ship\f_dX * p_ship\f_h/2 frontY = p_ship\f_y + p_ship\f_dY * p_ship\f_h/2 Color(255,255,255) Line(frontX,frontY,leftX,leftY) Line(frontX,frontY,rightX,rightY) End Function Function SHIP_drawAsRectangle(p_ship.SHIP) If (Not(p_ship\f_glowOn) Or (p_ship\f_glowOn And (Not(p_ship\f_glowDisplay)))) Then Color(0,255,0) End If Rect(p_ship\f_x,p_ship\f_y,p_ship\f_w,p_ship\f_h,True) End Function Function SHIP_drawAsOval(p_ship.SHIP) Color(255,255,0) w = p_ship\f_fieldSize h = p_ship\f_fieldSize Oval(p_ship\f_x-w/2,p_ship\f_y-h/2,w,h,True) End Function Function SHIP_computeDeltas(p_ship.SHIP) p_ship\f_dX = Cos(p_ship\f_angle) p_ship\f_dY = -Sin(p_ship\f_angle) End Function Function SHIP_setTargetLocation(p_ship.SHIP,p_target.SHIP) p_ship\f_target = p_target If (p_target <> Null) Then Select p_target\f_type Case SHIP_TYPE_RECTANGLE targetX = p_target\f_x + p_target\f_w/2 targetY = p_target\f_y + p_target\f_h/2 Case SHIP_TYPE_TRIANGLE targetX = p_target\f_x targetY = p_target\f_y End Select p_ship\f_targetX = targetX p_ship\f_targetY = targetY End If End Function Function SHIP_checkHitByBullet(p_ship.SHIP,p_bullet.BULLET) If (p_bullet\f_owner = p_ship\f_brain) Then Return(False) End If Select p_ship\f_type Case SHIP_TYPE_RECTANGLE Return((p_bullet\f_x > p_ship\f_x) And (p_bullet\f_x < p_ship\f_x+p_ship\f_w) And (p_bullet\f_y > p_ship\f_y) And (p_bullet\f_y < p_ship\f_y+p_ship\f_h)) Case SHIP_TYPE_TRIANGLE Return((Abs(p_bullet\f_x-p_ship\f_x)<p_ship\f_w/2) And (Abs(p_bullet\f_y-p_ship\f_y)<p_ship\f_w/2)) End Select End Function Function SHIP_checkHitByShip(p_ship.SHIP,p_otherShip.SHIP) If (p_ship\f_brain = p_otherShip\f_brain) Then Return(False) End If If (p_ship\f_type = SHIP_TYPE_RECTANGLE) Then If (p_otherShip\f_type = SHIP_TYPE_TRIANGLE) Then newX = p_ship\f_x - p_otherShip\f_w/2 newY = p_ship\f_y - p_otherShip\f_h/2 newW = p_ship\f_w + p_otherShip\f_w newH = p_ship\f_h + p_otherShip\f_h Return((p_otherShip\f_x > newX) And (p_otherShip\f_x < newX+newW) And (p_otherShip\f_y > newY) And (p_otherShip\f_y < newY+newH)) End If End If Return(False) End Function Function SHIP_checkField(p_ship.SHIP) If (p_ship\f_fieldOn) Then For ship.SHIP = Each SHIP If ((ship <> p_ship) And (ship\f_role = SHIP_ROLE_MOTHERSHIP)) Then If (SHIP_hitByField(ship,p_ship\f_x,p_ship\f_y,p_ship\f_fieldSize)) Then SHIP_glow(ship) SHIP_loseEnergy(ship,5) End If End If Next End If End Function Function SHIP_hitByField(p_ship.SHIP,p_fieldX,p_fieldY,p_fieldSize) Select p_ship\f_type Case SHIP_TYPE_RECTANGLE newX = p_ship\f_x - p_fieldSize/2 newY = p_ship\f_y - p_fieldSize/2 newW = p_ship\f_w + p_fieldSize newH = p_ship\f_h + p_fieldSize Return((p_fieldX > newX) And (p_fieldX < newX+newW) And (p_fieldY > newY) And (p_fieldY < newY+newH)) Default ; ... End Select End Function Function SHIP_glow(p_ship.SHIP) p_ship\f_glowOn = True End Function Function SHIP_loseEnergy(p_ship.SHIP,p_amount) p_ship\f_energy = p_ship\f_energy - p_amount If (p_ship\f_energy <= 0) Then SHIP_delete(p_ship) End If End Function Function SHIP_checkCollisionAll() For ship.SHIP = Each SHIP SHIP_checkCollision(ship) Next End Function Function SHIP_checkCollision(p_ship.SHIP) ; check for collisions with other ships For ship.SHIP = Each SHIP If (ship <> p_ship) Then If (SHIP_checkHitByShip(ship,p_ship)) Then SHIP_loseEnergy(p_ship,10) Exit End If End If Next End Function ;##################################################################################################### ; BULLET TYPE DEFINITION AND RELATED FUNCTIONS ;##################################################################################################### Type BULLET Field f_owner Field f_x# Field f_y# Field f_startX# Field f_startY# Field f_dX# Field f_dY# Field f_life End Type Function BULLET_create(p_owner.SHIP) bullet.BULLET = New BULLET bullet\f_owner = p_owner\f_brain bullet\f_x = p_owner\f_x bullet\f_y = p_owner\f_y bullet\f_startX = p_owner\f_x bullet\f_startY = p_owner\f_y bullet\f_dX = p_owner\f_dXBULLET_SPEED bullet\f_dY = p_owner\f_dYBULLET_SPEED bullet\f_life = 100 g_bulletCount = g_bulletCount + 1 End Function Function BULLET_delete(p_bullet.BULLET) Delete(p_bullet) g_bulletCount = g_bulletCount -1 End Function Function BULLET_moveAll() For bullet.BULLET = Each BULLEt BULLET_move(bullet) Next End Function Function BULLET_move(p_bullet.BULLET) p_bullet\f_x = p_bullet\f_x + p_bullet\f_dX p_bullet\f_y = p_bullet\f_y + p_bullet\f_dY p_bullet\f_startX = p_bullet\f_startX + p_bullet\f_dX0.7 p_bullet\f_startY = p_bullet\f_startY + p_bullet\f_dY0.7 p_bullet\f_life = p_bullet\f_life - 1 If (p_bullet\f_life <= 0) Then BULLET_delete(p_bullet) End If End Function Function BULLET_drawAll() For bullet.BULLET = Each BULLET BULLET_draw(bullet) Next End Function Function BULLET_draw(p_bullet.BULLET) Color(Rand(255),Rand(255),255) Line(p_bullet\f_startX,p_bullet\f_startY,p_bullet\f_x,p_bullet\f_y) End Function Function BULLET_checkCollisionAll() For bullet.BULLET = Each BULLET BULLET_checkCollision(bullet) Next End Function Function BULLET_checkCollision(p_bullet.BULLET) ; check for collisions with ships For ship.SHIP = Each SHIP If (SHIP_checkHitByBullet(ship,p_bullet)) Then SHIP_loseEnergy(ship,FIGHTER_ENERGY) BULLET_delete(p_bullet) Exit End If Next End Function ;##################################################################################################### ; MAIN LOOP ;##################################################################################################### While (titleScreen()) continue = True defeat = False victory = False startTime = MilliSecs() player.SHIP = SHIP_create(SHIP_ROLE_FIGHTER,BRAIN_HUMAN,SHIP_TYPE_TRIANGLE,100,100,10,10) motherShip.SHIP = SHIP_create(SHIP_ROLE_MOTHERSHIP,BRAIN_CPU,SHIP_TYPE_RECTANGLE,SCREEN_WIDTH/2-50,SCREEN_HEIGHT/2-50,100,100) ; game speed control fpsCountTargetTime = MilliSecs() + 1000 renderFrames = 0 renderFps = 0 logicFrames = 0 logicFps = 0 lastTime = MilliSecs()/3 lastNumTicks = 1 While (continue) ;############################ ; GAME LOGIC ;############################ ; 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 alt-tab If (numTicks > 20) Then numTicks = lastNumTicks End If lastNumTicks = numTicks ; perform game logic For i = 1 To numTicks SHIP_moveAll() If (player <> Null) Then SHIP_checkField(player) SHIP_checkCollision(player) End If BULLET_moveAll() BULLET_checkCollisionAll() For ship.SHIP = Each SHIP If ((ship\f_brain = BRAIN_CPU) And (ship\f_role = SHIP_ROLE_FIGHTER)) Then SHIP_setTargetLocation(ship,player) End If If ((ship\f_brain = BRAIN_CPU) And (ship\f_role = SHIP_ROLE_MOTHERSHIP)) Then If (g_shipObjectCount < 4) Then If (Rand(1000)>970) Then SHIP_create(SHIP_ROLE_FIGHTER,BRAIN_CPU,SHIP_TYPE_RECTANGLE,ship\f_x+ship\f_w/2,ship\f_y+ship\f_h/2,10,10) End If End If End If Next ; count logic frame logicFrames = logicFrames + 1 Next ;############################ ; GAME RENDERING ;############################ Cls SHIP_drawAll() BULLET_drawAll() ; draw on-screen info ;Color(100,100,100) ;Text(SCREEN_WIDTH/2,10,"render_fps: "+Str(renderFps)+" logic_fps: "+Str(logicFps),True,False) ;Text(SCREEN_WIDTH/2,30,"objectCount "+g_shipObjectCount,True,False) Flip If (motherShip = Null) Then victory = True End If If (player = Null) Then defeat = True End If If ((KeyHit(KEY_ESCAPE)) Or (defeat) Or (victory)) Then continue = False End If ;############################ ; FPS COUNTING ;############################ If (MilliSecs() >= fpsCountTargetTime) Then renderFps = renderFrames renderFrames = 0 logicFps = logicFrames logicFrames = 0 fpsCountTargetTime = fpsCountTargetTime + 1000 End If renderFrames = renderFrames + 1 Wend For ship.SHIP = Each SHIP SHIP_delete(ship) Next For bullet.BULLET = Each BULLET BULLET_delete(bullet) Next time = (MilliSecs() - startTime) / 1000 ; show victory/defeat, and score/hi score If (victory Or defeat) Then endGameScreen(victory,time) End If Wend End

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|525\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #001 (15 Jun 2005) The Five Object Challenge Using only Blitz's internal 2D drawing commands (Plot, Line, Rect, Oval, Text) to draw, you must create a game which only ever draws 5 objects onscreen per frame. You may not use CopyRect, or otherwise, to replicate more objects. A single Object = 1 single drawing command. If you use Text, you can have as many characters in that line of text as you wish.

Ball-Up by Jayenkai for Workshop #001 This game features a ball bouncing up a rather large staircase. Cursors Left+Right ;Ball Up Graphics 640,480,0,2 SetBuffer BackBuffer() Dim array(2000) .restart SeedRnd MilliSecs() x=9 For y=1 To 2000 array(y)=x32 x=x+Rand(-3,3) If x<0 Then x=Rand(0,2) If x>19 Then x=Rand(17,19) Next bally=0 ballx=320 jumparc=0 scry=0 py=0 Repeat jumparc=jumparc+4 If jumparc=>180 Then jumparc=jumparc-180 Cls Color 140,80,40 baty=(446-bally)-(Sin(jumparc)180) baty=baty+scry Oval ballx,baty,16,16 ballx=ballx+((KeyDown(205)-KeyDown(203))4) Color 80,140,40 If bally>-32 Then Rect 0,460+bally,640,32 land=1 For x=1 To 2000 atx=array(x) aty=(460-(x140))+scry If aty>0 And aty<480 Rect atx,aty,32,32 If jumparc>89 And jumparc<110 And aty>baty And aty<baty+60 And atx<ballx+8 And atx+32>ballx+8 py=py+140 EndIf If jumparc=0 And aty>baty-16 And (atx>ballx+8 Or atx+32<ballx+8) Then land=0 EndIf Next If land=0 Then dead=1 If py<>0 Then scry=scry+20:bally=bally+20:py=py-20 Flip If KeyDown(1) Then dead=9 Until dead>0 Repeat Cls If dead=9 Then End If dead=1 Then Text 320,240,"You Fell",1,1:Text 320,280,"Hit Space to Try Again",1,1 Flip Until KeyDown(57) dead=0 Goto restart

Vortex Game by Jayenkai for Workshop #001 Shoot the oncoming enemies Cursors and Space ;THE SUPER FLASHY VORTEX GAME ;A Game with only 5 Draw Commands per frame Graphics 640,480,0,2 SetBuffer BackBuffer() Dim baddy(17,2) Dim bullet(17,2) .restart .TitleScreen Repeat Cls Text 320,240,"THE SUPER FLASHY VORTEX GAME",1,1 ;1 Text 320,280,"Hit Space to Start",1,1 ;2 Text 320,440,"Disclaimer : This game contains flashing lines, and is",1,1 ;3 Text 320,460,"unsuitable for people with photosensitive epilepsy",1,1 ;4 Text 320,340,"Hi-Score : "+hiscore,1,1 ;5 Flip If KeyDown(1) Then End Until KeyDown(57) plra=0 dead=0 score=0 hiscore=0 mudown=0 target=250 For n=0 To 17 baddy(n,1)=Rand(0,1800) baddy(n,2)=Rand(-2000,0) Next badspd=1 Repeat ang=ang+1 n=n+1 If ang=>16 And n=>17 Then Cls:ang=ang-16:n=0 atx=320+(Sin(ang20)300) aty=240+(Cos(ang20)220) atx2=320+(Sin((ang+1)20)300) aty2=240+(Cos((ang+1)20)220) Color 0,180,0 Line atx,aty,320,240 ;1 First object per frame = Background Drawn Outwards Line atx,aty,atx2,aty2 ;2 Second object per frame = Background Outline Color 0,150,255 plra=plra+KeyDown(203)-KeyDown(205) Rect 318+(Sin(plra/5)300),238+(Cos(plra/5)220),4,4,0 ;3 Third object per frame = Rectangle for Player If KeyDown(200)=0 Then mudown=0 If KeyDown(200) And mudown=0 mudown=1 free=-1 For b=0 To 4 If bullet(b,2)<=0 Then free=b Next If free>-1 Then bullet(free,2)=3000:bullet(free,1)=plra EndIf If n<18 Color 250,00,0 baddy(n,2)=baddy(n,2)+badspd If baddy(n,2)>3000 Then dead=1 If baddy(n,2)>0 baddy(n,1)=baddy(n,1)+Rand(-4,4) an=baddy(n,1) dx=(baddy(n,2)300)/3000 dy=(baddy(n,2)220)/3000 x=320+(Sin(an/5)dx) y=240+(Cos(an/5)dy) Rect x-2,y-2,4,4,0 ;4 Fourth object per frame = Rectangle for Baddy EndIf Color 60,255,60 bullet(n,2)=bullet(n,2)-32 If bullet(n,2)>0 an=bullet(n,1) dx=(bullet(n,2)300)/3000 dy=(bullet(n,2)220)/3000 x=320+(Sin(an/5)dx) y=240+(Cos(an/5)dy) Rect x-2,y-2,4,4,0 For b=0 To 17 If baddy(b,2)>0 an=baddy(b,1) dx=(baddy(b,2)300)/3000 dy=(baddy(b,2)220)/3000 x2=320+(Sin(an/5)dx) y2=240+(Cos(an/5)dy) If Abs(x2-x)<6 And Abs(y2-y)<6 baddy(b,2)=Rand(-2000,0):score=score+10::DebugLog "score "+score:If score=>target Then badspd=badspd+1:target=target+250 EndIf EndIf Next EndIf EndIf Flip False ; If you would like to check my code, uncomment the following line.. ;Flip:Cls:Delay 25 If KeyDown(1) Then dead=9 Until dead>0 Text 320,240,"They Killed You",1,1 ;1 Text 320,280,"You scored "+score,1,1 ;2 Text 320,320,"Hit Space to continue",1,1 ;3 Flip If score>hiscore Then hiscore=score If dead=9 Then End Repeat:Until KeyDown(57) Repeat:Until KeyDown(57)=0 Goto restart

Road Chaser by GoSsE for Workshop #001 Use the mouse to move your car, avoid hitting other cars. When you crash, push space to restart. Press ESC anytime to quit. Mouse ; This source code is copyrighted (c) to Jocelyn Perreault. ; Version 1.0.0 - June 17 2005 ; Thanks, ; Jocelyn "GoSsE Korupted" Perreault ; gosse@nuloen.com ; Nuclear Loaded Entertainment ; https://www.nuloen.com/ Const SCRW = 640 Const SCRH = 480 Const ROADY = SCRH / 3 Const ROADW = SCRH / 3 Const CARX = 70 Const CARL = 70 Const CARW = CARL * 5 / 9 Const MAXCARS = 3 Const CRASHSIZE = 5 Const CRASHL = CARL * CRASHSIZE Const CRASHW = CARW * CRASHSIZE Const CRASHX = SCRW / 2 - CRASHL / 2 Const CRASHY = SCRH / 2 - CRASHW / 2 Graphics SCRW, SCRH, 0, 2 SetBuffer BackBuffer() SeedRnd MilliSecs() HidePointer tmrFPS = CreateTimer(60) tmrFPSSlow = CreateTimer(25) font = LoadFont("Garamond", 18) SetFont font ClsColor 50, 160, 0 Points = 0 LastPoints = -1 Cars = 0 Score = 10 CarY = ROADY + ROADW / 2 - CARW / 2 Speed = 3 Dim CarsX(MAXCARS) Dim CarsR(MAXCARS) Dim CarsG(MAXCARS) Dim CarsB(MAXCARS) For i = 1 To MAXCARS GenerateAI(i) Next Function GenerateAI(i) Repeat valid = True CarsX(i) = Rand(SCRW, SCRW + MAXCARS * MAXCARS * CARL) For j = 1 To MAXCARS If i <> j Then If RectsOverlap( CarsX(i), 0, CARL, 1, CarsX(j) - CARL * 1, 0, CARL * 3, 1) Then valid = False End If End If Next Until valid Repeat valid = True CarsR(i) = Rand(0, 255) CarsG(i) = Rand(0, 255) CarsB(i) = Rand(0, 255) avg = (CarsR(i) + CarsG(i) + CarsB(i)) / 3 If avg > 15 And avg < 65 Then valid = False End If Until valid End Function While Not KeyDown(1) ; Player Control If Points <> LastPoints Then AppTitle "Road Chaser - Points: " + Points LastPoints = Points End If CarY = MouseY() If CarY < ROADY Then CarY = ROADY End If If CarY > ROADY + ROADW - CARW Then CarY = ROADY + ROADW - CARW End If MoveMouse SCRW/2, CarY ; AI Control For i = 1 To MAXCARS CarsX(i) = CarsX(i) - SPEED If CarsX(i) < -CARL Then GenerateAI(i) Points = Points + Score Cars = Cars + 1 If Cars Mod Score = 0 Then Score = Score + 1 Speed = Speed + 1 Cars = 0 End If End If Next ; Collision For i = 1 To MAXCARS If RectsOverlap(CARX+2, CarY+2, CARL-4, CARW-4, CarsX(i), ROADY + ROADW * (i - 1) / 3 + 8, CARL, CARW) Then ClsColor 40, 40, 40 While (Not KeyDown(57)) And (Not KeyDown(1)) cx = (CARX - CarsX(i)) * CRASHSIZE cy = (CarY - (ROADY + ROADW * (i - 1) / 3 + 8)) * CRASHSIZE WaitTimer(tmrFPSSlow) Cls DrawCar(CRASHX, CRASHY, 255, 255, 255, CRASHSIZE) DrawCar(CRASHX - cx, CRASHY - cy, CarsR(i), CarsG(i), CarsB(i), CRASHSIZE) For j = 1 To MAXCARS r = Rand(50, 250) g = Rand(0, r - 50) b = Rand(0, g / 5) Color r, g, b x = Rand(CRASHX - CRASHW / 2, CRASHX + CRASHL / 2) y = Rand(CRASHY - CRASHW / 2, CRASHY + CRASHW / 2) s = Rand(CRASHW / 2, CRASHL) Oval x, y, s, s Next Flip False Wend Points = 0 LastPoints = -1 Cars = 0 Score = 10 CarY = ROADY + ROADW / 2 - CARW / 2 Speed = 3 For j = 1 To MAXCARS GenerateAI(j) Next ClsColor 50, 160, 0 Exit End If Next WaitTimer(tmrFPS) Cls Color 40, 40, 40 Rect 0, ROADY, SCRW, ROADW DrawCar(CARX, CarY, 255, 255, 255) For i = 1 To MAXCARS DrawCar(CarsX(i), ROADY + ROADW * (i - 1) / 3 + 8, CarsR(i), CarsG(i), CarsB(i)) Next Flip False Wend End Function DrawCar(x, y, r, g, b, size=1) l = CARLsize w = CARWsize Color r, g, b Rect x, y, l, w End Function

Bisexual Tron by Ryan Moody for Workshop #001 Tron! Cursors Graphics 640,480 SetBuffer FrontBuffer() SeedRnd(MilliSecs()) Type Player Field X Field Y Field Colour$ Field Direction$ End Type Function InitialiseGame() Delay 2000 Delete Each Player p.Player = New Player p\X = 30 p\Y = 240 p\Colour = "Red" P\Direction = "Right" p.Player = New Player p\X = 610 p\Y = 240 p\Colour = "Yellow" P\Direction = "Left" Color 50,255,0 Rect 0,0,640,480 Color 0,100,0 Rect 10,10,620,460 End Function Function UpdateGame() For p.Player = Each Player Select p\Direction Case "Up" p\Y = p\Y - 1 Case "Right" p\X = p\X + 1 Case "Down" p\Y = p\Y + 1 Case "Left" p\X = p\X - 1 End Select GetColor p\X, p\Y If p\Colour = "Red" If ColorRed() <> 0 Color 255,255,255 Text 320,20,"RED LOSES",True InitialiseGame() Exit EndIf If KeyDown(200) Then p\Direction = "Up" If KeyDown(203) Then p\Direction = "Left" If KeyDown(205) Then p\Direction = "Right" If KeyDown(208) Then p\Direction = "Down" Else If ColorRed() <> 0 Color 255,255,255 Text 320,20,"YELLOW LOSES",True InitialiseGame() Exit EndIf Select p\Direction Case "Up" GetColor p\X, p\Y - 1 If ColorRed() <> 0 Then p\Direction = "Right" Case "Right" GetColor p\X + 1, p\Y If ColorRed() <> 0 Then p\Direction = "Down" Case "Down" GetColor p\X, p\Y + 1 If ColorRed() <> 0 Then p\Direction = "Left" Case "Left" GetColor p\X - 1, p\Y If ColorRed() <> 0 Then p\Direction = "Up" End Select EndIf Next End Function Function RenderGame() For p.Player = Each Player If p\Colour = "Red" Color 255, 0, 0 Else Color 255, 255, 0 EndIf Plot p\X, p\Y Next End Function InitialiseGame() While Not KeyDown(1) UpdateGame() RenderGame() Delay 10 Wend

Mini Tron by firemaker103 for Workshop #001 Tron, too! WAXD for Player 1, Cursors for Player 2 Graphics 640,480 SetBuffer BackBuffer() Repeat o1x=21 o1y=240 p1x=21 p1y=240 p1dir=1 ;right o2x=618 o2y=240 p2x=618 p2y=240 p2dir=3 ;left Color 255,255,255 Text 320,10,"Tron",1,1 Text 320,150,"Player 1 controls: W-up X-down A-left D-right",1,1 Text 320,180,"Player 2 controls: Numpad 8-up 2-down 4-left 6-right",1,1 Text 320,400,"Press Enter to start",1,1 Flip Repeat Until KeyDown(28)=1 Or KeyDown(1)=1 If KeyDown(1)=1 Then End Cls Flip Cls Repeat Color 255,255,255 Rect 0,0,639,479,0 Color 255,0,0 Plot p1x,p1y Plot o1x,o1y Color 0,0,255 Plot p2x,p2y Plot o2x,o2y o1x=p1x o1y=p1y o2x=p2x o2y=p2y If KeyDown(72) Then p2dir=0 If KeyDown(80) Then p2dir=2 If KeyDown(75) Then p2dir=3 If KeyDown(77) Then p2dir=1 If KeyDown(17) Then p1dir=0 If KeyDown(45) Then p1dir=2 If KeyDown(30) Then p1dir=3 If KeyDown(32) Then p1dir=1 If p1dir=0 Then p1y=p1y-1 If p1dir=1 Then p1x=p1x+1 If p1dir=2 Then p1y=p1y+1 If p1dir=3 Then p1x=p1x-1 If p2dir=0 Then p2y=p2y-1 If p2dir=1 Then p2x=p2x+1 If p2dir=2 Then p2y=p2y+1 If p2dir=3 Then p2x=p2x-1 p1death=0 GetColor p1x,p1y If ColorRed()>0 Or ColorGreen()>0 Or ColorBlue()>0 Then p1death=1 If p1x<1 Then p1death=1 If p1x>638 Then p1death=1 If p1y<1 Then p1death=1 If p1y>478 Then p1death=1 p2death=0 GetColor p2x,p2y If ColorRed()>0 Or ColorGreen()>0 Or ColorBlue()>0 Then p2death=1 If p2x<1 Then p2death=1 If p2x>638 Then p2death=1 If p2y<1 Then p2death=1 If p2y>478 Then p2death=1 Color 255,255,255 If p1death=1 Text 320,240,"Player 1 crashed",1,1 Flip Delay 5000 EndIf If p2death=1 Text 320,240,"Player 2 crashed",1,1 Flip Delay 5000 EndIf Flip Until KeyDown(1)=1 Or p1death=1 Or p2death=1 If p1death=0 And p2death=0 Then End Until p1death=0 And p2death=0 End

Paddle Ball by WillK for Workshop #001 Try to beat the computer player. Cursors ;========================================================================== ;=============================== Paddle Ball ============================== ;=========================== Programmed by WillK ========================== ;================== Coders Workshop Wednesday Workshop #001 =============== ;=============================== 16 June 2005 ============================= ;========================================================================== ;========================================================================== ;=============================== Initialise Game Variables ================ ;========================================================================== Graphics 640,480,32,2 SetBuffer BackBuffer() SeedRnd MilliSecs() AppTitle "Silly Little Paddle Ball Game" ;game variables Const VICTORY=5 Const BORDER=40 Global pspeed#=1 Global pause=False,quit=False,pausetime Global frames,fpstimer,gwidth=GraphicsWidth(),gheight=GraphicsHeight() Global fps=60,state$ ;declare paddle variables Const PFLASH=250 Global rectw=gwidth/32 Global recth=(gheight/4) Dim pcolor(1,2) Dim ptimer(1) ;declare player variables Global px,py,pscore ;declare computer variables Global cx,cy,cscore ;declare ball variables Global bw=gwidth/64 Global bh=bw Global bx#,by#,bspeedx#,bspeedy#,lx,ly,btimer,bred,bgreen,bblue ;load fonts Global arial=LoadFont("Arial",36,True) Global arialc=LoadFont("Arial",18,True) Global arialb=LoadFont("Arial",72,True) drawTitle() initGame() ;========================================================================== ;=============================== Main Game Loop ========================== ;========================================================================== Repeat getInput() checkCollisions() ClsColor 128,0,0 Cls ;draw court Color 0,64,0 Rect rectw,BORDER,gwidth-2rectw,gheight-2BORDER ;draw paddles Color pcolor(1,0),pcolor(1,1),pcolor(1,2) Rect cx,cy,rectw,recth,True Color pcolor(0,0),pcolor(0,1),pcolor(0,2) Rect px,py,rectw,recth,True ;draw ball Color 255,255,255 If pause=0 Or pause=10 Rect bx,by,bw,bh,True ;draw HUD drawHUD() Flip True Until quit=True ClsColor 0,0,0 Cls updateHUD(7) drawHUD(2) Flip While MilliSecs()<pausetime Wend End ;========================================================================== ;=============================== Get User Input =========================== ;========================================================================== Function getInput() If KeyDown(1) quit=True ElseIf KeyHit(197) Or KeyHit(25) If pause=11 pause=0 ElseIf pause=0 pause=11 EndIf EndIf If pause=0 If KeyDown(200) py=py-pspeed ElseIf KeyDown(208) py=py+pspeed EndIf updateBall() updateAI() updatepaddle() ElseIf pause=6 If KeyDown(21) initGame() If KeyDown(49) quit=True Else If MilliSecs()>pausetime If pause=1 Or pause=2 Or pause=3 updateHUD(10) ElseIf pause=4 Or pause=5 updateHUD(6) ElseIf pause=11 Else pause=0 EndIf EndIf EndIf End Function ;========================================================================== ;=============================== Initialise Game Variables ================ ;========================================================================== Function initGame() ;setup paddles For i=0 To 1 pcolor(i,0)=247 pcolor(i,1)=235 pcolor(i,2)=5 Next ;initialise player px=20 py=(gheight-recth)/2 pscore=0 ;initialise computer cx=gwidth-(20+rectw) cy=py cscore=0 ;setup game pspeed#=gheight/64 initBall() updateHUD() End Function ;========================================================================== ;=============================== Update Ball ============================== ;========================================================================== Function updateBall() lx=bx bx=bspeedx+bx ly=by by=bspeedy+by If by<BORDER bspeedy=-bspeedy by=by+bh ElseIf by>(gheight-BORDER-bh) bspeedy=-bspeedy by=by-bh EndIf If bx>gwidth pscore=pscore+1 If pscore=VICTORY updateHUD(4) Else updateHUD(1) EndIf initBall() Return ElseIf bx<0 cscore=cscore+1 If cscore=VICTORY updateHUD(5) Else updateHUD(2) EndIf initBall() Return EndIf End Function ;========================================================================== ;============================== Check Collisions ========================== ;========================================================================== Function checkCollisions() w=Abs(bx-lx) h=Abs(by-ly) ;top third of paddle If RectsOverlap (bx,by,w,h,px,py,rectw,(recth/3)) If bspeedy<1 And bspeedy>-1 bspeedy=1 bspeedy=bspeedy1.25 bspeedx=-bspeedx1.05 bx=bx+5 ptimer(0)=MilliSecs()+PFLASH ;middle third of paddle ElseIf RectsOverlap (bx,by,w,h,px,(py+recth/3),rectw,(recth/3)) bspeedy=-bspeedy0.75 bspeedx=-bspeedx1.1 bx=bx+5 ptimer(0)=MilliSecs()+PFLASH ;bottom third of paddle ElseIf RectsOverlap (bx,by,w,h,px,(py+recth2/3),rectw,(recth/3)) If bspeedy<1 And bspeedy>-1 bspeedy=1 bspeedy=-bspeedy1.25 bspeedx=-bspeedx1.05 bx=bx+5 ptimer(0)=MilliSecs()+PFLASH ;top third of paddle ElseIf RectsOverlap (bx,by,w,h,cx,cy,rectw,(recth/3)) bspeedy=bspeedy1.25 bspeedx=-bspeedx1.05 bx=bx-5 ptimer(1)=MilliSecs()+PFLASH ;middle third of paddle ElseIf RectsOverlap (bx,by,w,h,cx,(cy+recth/3),rectw,(recth/3)) bspeedy=-bspeedy0.75 bspeedx=-bspeedx1.1 bx=bx-5 ptimer(1)=MilliSecs()+PFLASH ;bottom third of paddle ElseIf RectsOverlap (bx,by,w,h,cx,(cy+recth2/3),rectw,(recth/3)) bspeedy=-bspeedy1.25 bspeedx=-bspeedx1.05 bx=bx-5 ptimer(1)=MilliSecs()+PFLASH EndIf End Function ;========================================================================== ;=============================== Initialise Ball ========================== ;========================================================================== Function initBall() ;initialise ball bx=gwidth/2 lx=bx by=gheight/2 ly=by bspeedx=gwidth/(Rnd(1,2)fps) If Rand(0,1) bspeedx=-bspeedx bspeedy=gheight/(Rnd(2,3)fps) If Rand(0,1) bspeedy=-bspeedy py=(gheight-recth)/2 cy=(gheight-recth)/2 End Function ;========================================================================== ;=============================== Update AI ================================ ;========================================================================== Function updateAI() If bspeedx<0 If (cy+recth/2)<(gheight2/5) cy=cy+pspeed ElseIf (cy+recth/2)>(gheight3/5) cy=cy-pspeed EndIf ElseIf bspeedx>0 ;if ball is going up If bspeedy<0 ;if ball is higher than bat If by<(cy+recth/4) cy=cy-pspeed ;if ball is lower than bat ElseIf by>(cy+recth3/4) cy=cy+pspeed EndIf ;if ball is going down Else ;if ball is lower than bat If by>(cy+recth3/4) cy=cy+pspeed ;if ball is higher ElseIf by<(cy+recth/4) cy=cy-pspeed EndIf EndIf EndIf End Function ;========================================================================== ;=============================== Update Paddles =========================== ;========================================================================== Function updatePaddle() If cy<BORDER cy=BORDER ElseIf (cy+recth)>gheight-BORDER cy=gheight-recth-BORDER EndIf If py<BORDER py=BORDER ElseIf (py+recth)>gheight-BORDER py=gheight-recth-BORDER EndIf ;color paddle flash For i=0 To 1 pcolor(i,0)=247 pcolor(i,1)=235 pcolor(i,2)=5 If ptimer(i)>MilliSecs()+PFLASH4/5 pcolor(i,0)=125 pcolor(i,1)=119 pcolor(i,2)=2 ElseIf ptimer(i)>MilliSecs()+PFLASH3/5 pcolor(i,0)=148 pcolor(i,1)=140 pcolor(i,2)=3 ElseIf ptimer(i)>MilliSecs()+PFLASH2/5 pcolor(i,0)=173 pcolor(i,1)=165 pcolor(i,2)=3 ElseIf ptimer(i)>MilliSecs()+PFLASH1/5 pcolor(i,0)=200 pcolor(i,1)=190 pcolor(i,2)=4 ElseIf ptimer(i)>MilliSecs() pcolor(i,0)=228 pcolor(i,1)=218 pcolor(i,2)=5 EndIf Next End Function ;========================================================================== ;=============================== Update HUD =============================== ;========================================================================== Function updateHUD(p=3) If p=10 pausetime=500+MilliSecs() ElseIf p=1 pausetime=2000+MilliSecs() ElseIf p=2 pausetime=2000+MilliSecs() ElseIf p4=4 pausetime=3000+MilliSecs() ElseIf p=5 pausetime=3000+MilliSecs() ElseIf p=7 pausetime=2000+MilliSecs() Else pausetime=1500+MilliSecs() EndIf pause=p End Function ;========================================================================== ;=============================== Draw HUD ================================= ;========================================================================== Function drawHUD(i=1) If pause>0 SetFont arialb If pause=3 Color 191,49,13 Text gwidth/2,gheight/2,"Get Ready!",True,True ElseIf pause=1 Color 255,128,0 Text gwidth/2,gheight/2,"Player Scores!",True,True ElseIf pause=2 Color 0,128,0 Text gwidth/2,gheight/2,"Computer Scores!",True,True ElseIf pause=4 Color 255,128,0 Text gwidth/2,gheight/2,"Player Wins!",True,True ElseIf pause=5 Color 0,128,0 Text gwidth/2,gheight/2,"Computer Wins!",True,True ElseIf pause=6 Color 191,49,13 Text gwidth/2,gheight/2,"Play Again? Y/N",True,True ElseIf pause=7 Color 255,255,255 Text gwidth/2,(gheight-FontHeight())/2,"Thanks for Playing",True,True Color 51,51,255 Text gwidth/2,(gheight+FontHeight())/2,"Paddle Ball",True,True Color 191,49,13 Text gwidth/2,(gheight+2*FontHeight())/2,"Presented by WillK",True ElseIf pause=11 Color 255,255,255 Text gwidth/2,(gheight-FontHeight())/2,"Game Paused!",True,True EndIf Color 192,192,192 SetFont arial If i=1 Text gwidth/2,0,"PLAYER: "+pscore +" "+"COMPUTER: "+cscore,True End Function ;========================================================================== ;============================= Draw Title Screen ========================== ;========================================================================== Function drawTitle() Color 191,49,13 SetFont arial Text gwidth/2,50,"Silly Little Paddle Ball Game",True Color 0,128,64 SetFont arialc Text gwidth/2,100,"Up/Down arrows move paddle",True Text gwidth/2,100+FontHeight(),"Press P to Pause the Action",True Color 250,250,250 Text gwidth/2,300,"Press Space to Begin",True Flip WaitKey End Function

Ninja Attack by Eikon for Workshop #001 Your sword only has collision on its tip, so you must be skillful to deflect incoming shurikens. Cursors and Space AppTitle "Ninja Attack" Graphics 320, 240, 16, 2 SetBuffer BackBuffer() SeedRnd MilliSecs() Global pX = 150, pY = 110, pS = 20, pA = 0, pL# = 15, bSwing = False Global bEnemy = False, eX, eY, bStar = False, eA = 0, eR = 0, eSX, eSY, eSD Dim bC(3) .Title FlushKeys() pX = 150: pY = 110: pS = 20: pA = 0: pL = 15: bSwing = False: bEnemy = False: bStar = False Repeat Color 0, 255, 255: Text 1, 1, "Ninja Attack" Color 255, 255, 255: Text 1, 16, "by Eikon" Color 255, 255, 0: Text 1, 48, "Press Enter to play" Text 1, 64, "Press Escape to exit" Color 0, 255, 0: Text 1, 226, "Instructions: Hold space to attack" If KeyDown(1) Then End Flip: Cls Until KeyHit(28) FlushKeys() While Not KeyDown(1) If bSwing = True Then Color 178, 178, 178: Line pX + 5, pY + 5, 20 * Cos(pA) + (pX + 5), 20 * Sin(pA) + (pY + 5) ; 1 If pA < 360 Then pA = pA + 15 Else bSwing = False ;Color 255, 0, 0: Rect 20 * Cos(pA) + pX, 20 * Sin(pA) + pY, 6, 6 If bEnemy = True Then If RectsOverlap(20 * Cos(pA) + pX, 20 * Sin(pA) + pY, 6, 6, eX, eY, 10, 10) Then bEnemy = False: pS = pS + 10 EndIf EndIf EndIf Color 255, 255, 0: Oval pX, pY, 10, 10 ; 2 If bEnemy = True Then ; 4 Color bC(0), bC(1), bC(2): Rect eX, eY, 10, 10 If pX < eX Then eX = eX - 1 ElseIf pX > eX Then eX = eX + 1 If pY < eY Then eY = eY - 1 ElseIf pY > eY Then eY = eY + 1 If RectsOverlap(pX, pY, 10, 10, eX, eY, 10, 10) Then If Int(pL) >= 1 Then pL = pL - .05 Else Goto GameOver EndIf If Rand(1, 100) = 50 And bStar = False Then bStar = True eA = ATan2(pY - eY, pX - eX): eR = 0: eSD = 1 If eA < 0 Then eA = eA + 360 eSX = eX: eSY = eY EndIf If bStar = True Then Color 178, 178, 178: Rect eR * Cos(eA) + eSX, eR * Sin(eA) + eSY, 2, 2 If eSD = 1 Then eR = eR + 2 Else eR = eR - 2 If eR * Cos(eA) + eSX < 0 Or eR * Cos(eA) + eSX > 320 Then bStar = False If eR * Sin(eA) + eSY < 20 Or eR * Sin(eA) + eSY > 240 Then bStar = False If RectsOverlap(pX, pY, 10, 10, eR * Cos(eA) + eSX, eR * Sin(eA) + eSY, 2, 2) Then If Int(pL) >= 1 Then pL = pL - 1: bStar = False Else Goto GameOver EndIf If RectsOverlap(20 * Cos(pA) + pX, 20 * Sin(pA) + pY, 6, 6, eR * Cos(eA) + eSX, eR * Sin(eA) + eSY, 2, 2) Then eSD = 0 EndIf EndIf Color 0, 255, 255: Text 1, 1, "Score: " + pS + " Life: " + Int(pL) ; 3 If KeyDown(203) And pX > 0 Then pX = pX - 2 If KeyDown(205) And pX < 310 Then pX = pX + 2 If KeyDown(200) And pY > 20 Then pY = pY - 2 If KeyDown(208) And pY < 230 Then pY = pY + 2 If KeyDown(57) Then If bSwing = False And pS > 0 Then bSwing = True: pA = 0: pS = pS - 1 EndIf If bEnemy = False Then bEnemy = True For i = 0 To 2: bC(i) = Rand(78, 255): Next eX = Rand(0, 310) tmp = Rand(1, 2) If tmp = 1 Then eY = 20 Else eY = 230 EndIf If Int(pL) < 1 Then Goto GameOver Flip: Cls Wend: End .GameOver FlushKeys() Repeat Color 255, 255, 0: Text 1, 1, "Final Score: " + pS Color 255, 255, 255: Text 1, 224, "Press Enter" Flip: Cls Until KeyHit(28) Goto Title

Flight of the Pixel by pebu for Workshop #001 Guide the pixel in it's flight. Cursors ; Flight of the Pixel ; Written by Pebu for the CodersWorkshop '5 Objects' compo Const SCREEN_WIDTH = 800 Const SCREEN_HEIGHT = 600 Const HALF_WIDTH = SCREEN_WIDTH / 2 Const HALF_HEIGHT = SCREEN_HEIGHT / 2 Const FPS = 30 Const STATE_QUIT = -1 Const STATE_TITLE = 0 Const STATE_PLAYING = 1 Const STATE_GAMEOVER = 2 Const STATE_WON = 3 Const FRICTION# = 0.1 Const GRAVITY# = 0.25 Const ACCELERATION# = 0.5 Const MAX_SPEED# = 10 Const MAX_OBJECTS = 4 Const OBJ_RECT = 1 Const OBJ_OVAL = 2 Const EXPLO_MAXSIZE# = 10 Const EXPLO_GROWTH# = 0.5 Type tPlayerData Field x#, y#, dx#, dy# End Type Type tObjectData Field r, g, b ; Colour Field ObType ; Rect or Oval Field x, y, w, h ; Dimensions of object End Type Type tRoomData Field id ; Room id = index into array Field r, g, b ; ClsColor for this room Field NumObjects Field Objects.tObjectData[MAX_OBJECTS-1] End Type Global gPlayer.tPlayerData Global gFPSTimer Dim gaRooms.tRoomData(0) Global gNumRooms, gCurrentRoom Global gStartTime Global geGameState ; Initialise Graphics SCREEN_WIDTH, SCREEN_HEIGHT, 0, 1 SetBuffer BackBuffer() HidePointer gFPSTimer = CreateTimer(FPS) InitRooms() geGameState = STATE_TITLE ; Play Repeat Select geGameState Case STATE_TITLE TitleScreen() Case STATE_PLAYING PlayGame() Case STATE_GAMEOVER GameOver() Case STATE_WON WinGame() End Select Until geGameState = STATE_QUIT ; Finish up Delete Each tPlayerData Delete Each tObjectData Delete Each tRoomData FreeTimer gFPSTimer ShowPointer End ; TitleScreen() - show the title screen and wait for player to start a game Function TitleScreen() ; Set current room to 0, which is important as room 0 only has ; 2 objects, leaving 3 free for title screen text EnterRoom(0) ; Loop drawing title screen until use presses space to play ; or esc to quit Repeat If KeyHit(57) Then geGameState = STATE_PLAYING If KeyHit(1) Then geGameState = STATE_QUIT ; Wait for next frame, then draw WaitTimer gFPSTimer Cls DrawRoom(gCurrentRoom) ; Title screen text - 3 objects Color 255, 255, 255 Text HALF_WIDTH, HALF_HEIGHT -100, "FLIGHT OF THE PIXEL", True, True Text HALF_WIDTH, HALF_HEIGHT, "Guide your little dot to the safety of the yellow screen", True, True Text HALF_WIDTH, HALF_HEIGHT+20, "Left and Right cursors to move, Up cursor to thrust. Press Space to play", True, True Flip Until geGameState <> STATE_TITLE ; Prepare for a new game If geGameState = STATE_PLAYING Then InitGame() EndIf End Function ; InitGame() - set up for new game Function InitGame() Delete Each tPlayerData gPlayer = New tPlayerData gPlayer\x = HALF_WIDTH gPlayer\y = HALF_HEIGHT gPlayer\dx = 0 gPlayer\dy = 0 EnterRoom(0) MoveMouse HALF_WIDTH, HALF_HEIGHT gStartTime = MilliSecs() End Function ; PlayGame() - play a single frame of the game Function PlayGame() Local pixel ; Get input and update player UpdatePlayer() ; Wait for next frame, then draw WaitTimer gFPSTimer Cls DrawRoom(gCurrentRoom) ; Grab the colour of the pixel underneath the player now, before we draw him pixel = ReadPixel(gPlayer\x, gPlayer\y, BackBuffer()) Color 255, 255,255 Oval gPlayer\x-2, gPlayer\y-2, 4, 4, True Flip ; Perform collision checks using the colour we grabbed earlier If CollisionCheck(gPlayer\x, gPlayer\y, pixel) Then geGameState = STATE_GAMEOVER ElseIf (gCurrentRoom = gNumRooms - 1) And (gPlayer\x > 52) Then ; Made it into the final room geGameState = STATE_WON EndIf If KeyHit(1) Then geGameState = STATE_QUIT End Function ; GameOver() - do the explosion when the player dies and then ; display game over message and wait till player presses space Function GameOver() Local exploSize# = 1 Repeat If exploSize < EXPLO_MAXSIZE Then exploSize = exploSize + EXPLO_GROWTH EndIf If KeyHit(57) Then geGameState = STATE_TITLE If KeyHit(1) Then geGameState = STATE_QUIT ; Wait for next frame, then draw WaitTimer gFPSTimer Cls DrawRoom(gCurrentRoom) If exploSize < EXPLO_MAXSIZE Then Color 255, 0, 0: Oval gPlayer\x-exploSize, gPlayer\y-exploSize, exploSize2, exploSize2, True Else Color 255, 0, 0: Text HALF_WIDTH, HALF_HEIGHT, "GAME OVER - PRESS SPACE TO PLAY AGAIN", True, True EndIf Flip Until geGameState <> STATE_GAMEOVER End Function ; WinGame() - Display "Well Done" message if player makes it to final screen Function WinGame() ; Calculate final time TimeTaken# = (MilliSecs() - gStartTime) / 1000.0 Repeat If KeyHit(57) Then geGameState = STATE_TITLE If KeyHit(1) Then geGameState = STATE_QUIT ; Wait for next frame, then draw WaitTimer gFPSTimer Cls DrawRoom(gCurrentRoom) ; Title screen text - 3 objects Color 255, 255, 255 Text HALF_WIDTH, HALF_HEIGHT - 100, "WELL DONE - YOU MADE IT!!", True, True Text HALF_WIDTH, HALF_HEIGHT, "Time taken: " + Str(TimeTaken) + " seconds.", True, True Text HALF_WIDTH, HALF_HEIGHT+50, "Press Space to Play or Esc to Quit", True, True Flip Until geGameState <> STATE_WON End Function ; CollisionCheck() - detect if pixel at x,y is wall or floor Function CollisionCheck(x#, y#, pixelColour) Local bHit = False Local r,g,b ; Get the red, green and blue components of the colour r = pixelColour Shr 16 And 255 g = pixelColour Shr 8 And 255 b = pixelColour And 255 ; If r,g,b are all zero then OK - floor tile ; Otherwise it's a wall tile If r+g+b = 0 Then bHit = False Else bHit = True EndIf Return bHit End Function ; UpdatePlayer() - get player input and update their position on screen Function UpdatePlayer() ; Get keypresses and update dx/dy accordingly If KeyDown(205) Then gPlayer\dx = gPlayer\dx + ACCELERATION ElseIf KeyDown(203) Then gPlayer\dx = gPlayer\dx - ACCELERATION EndIf If KeyDown(200) Then gPlayer\dy = gPlayer\dy - ACCELERATION Else ; If player is not pressing Up, apply gravity gPlayer\dy = gPlayer\dy + GRAVITY EndIf ; Apply friction to horizontal movement If gPlayer\dx > 0 Then gPlayer\dx = gPlayer\dx - FRICTION If gPlayer\dx < 0 Then gPlayer\dx = 0 ElseIf gPlayer\dx < 0 Then gPlayer\dx = gPlayer\dx + FRICTION If gPlayer\dx > 0 Then gPlayer\dx = 0 EndIf ; Prevent speed from going too high If gPlayer\dx > MAX_SPEED Then gPlayer\dx = MAX_SPEED ElseIf gPlayer\dx < -MAX_SPEED Then gPlayer\dx = -MAX_SPEED EndIf If gPlayer\dy > MAX_SPEED Then gPlayer\dy = MAX_SPEED ElseIf gPlayer\dy < -MAX_SPEED Then gPlayer\dy = -MAX_SPEED EndIf ; Update player coordinates gPlayer\x = gPlayer\x + gPlayer\dx gPlayer\y = gPlayer\y + gPlayer\dy ; Check for wrap around screen on left and right ; and update the current room If gPlayer\x < 0 Then If gCurrentRoom > 0 Then gPlayer\x = SCREEN_WIDTH EnterRoom(gCurrentRoom - 1) EndIf ElseIf gPlayer\x > SCREEN_WIDTH Then If gCurrentRoom < gNumRooms - 1 Then gPlayer\x = 0 EnterRoom(gCurrentRoom + 1) EndIf EndIf End Function ; EnterRoom() - set globals and cls colour upon entering a room Function EnterRoom(iRoom) gCurrentRoom = iRoom ClsColor gaRooms(iRoom)\r, gaRooms(iRoom)\g, gaRooms(iRoom)\b End Function ; DrawRoom() - draws the specified room objects ; Note - assumes CLS has already been called. Function DrawRoom(iRoom) Local iCtr Local ob.tObjectData For iCtr = 0 To gaRooms(iRoom)\NumObjects - 1 ob = gaRooms(iRoom)\Objects[iCtr] Color ob\r, ob\g, ob\b Select ob\ObType Case OBJ_RECT Rect ob\x, ob\y, ob\w, ob\h, True Case OBJ_OVAL Oval ob\x, ob\y, ob\w, ob\h, True End Select Next End Function ; InitRooms() - Initialise rooms array Function InitRooms() Local nRooms, iRoom, nObjects, iObject Local rm.tRoomData Local ob.tObjectData Local bWall Delete Each tObjectData Delete Each tRoomData Restore ROOM_DATA Read gNumRooms Dim gaRooms.tRoomData(gNumRooms - 1) For iRoom = 0 To gNumRooms - 1 rm = New tRoomData rm = New tRoomData rm\id = iRoom Read rm\r, rm\g, rm\b Read rm\NumObjects For iObject = 0 To rm\NumObjects - 1 ob = New tObjectData Read ob\ObType, bWall Read ob\x, ob\y, ob\w, ob\h If bWall Then ob\r = rm\r: ob\g = rm\g: ob\b = rm\b Else ob\r = 0: ob\g = 0: ob\b = 0 EndIf rm\Objects[iObject] = ob Next gaRooms(iRoom) = rm Next End Function .ROOM_DATA Data 7 ; ROOM 0 - start room Data 0, 200, 0 Data 2 Data OBJ_RECT, 0, 50, 50, SCREEN_WIDTH-100, SCREEN_HEIGHT-100 Data OBJ_RECT, 0, SCREEN_WIDTH-100, HALF_HEIGHT-50, 100, 100 ; ROOM 1 Data 128, 0, 128 Data 3 Data OBJ_RECT, 0, 0, HALF_HEIGHT-50, SCREEN_WIDTH, 100 Data OBJ_RECT, 0, 100, 100, SCREEN_WIDTH-200, SCREEN_HEIGHT-200 Data OBJ_OVAL, 1, HALF_WIDTH-100, HALF_HEIGHT-100, 200, 200 ; ROOM 2 Data 0, 50, 200 Data 3 Data OBJ_RECT, 0, 0, HALF_HEIGHT-50, HALF_WIDTH, 100 Data OBJ_RECT, 0, HALF_WIDTH-50, 50, HALF_WIDTH+50, SCREEN_HEIGHT-100 Data OBJ_RECT, 1, HALF_WIDTH + 50, 100, HALF_WIDTH, SCREEN_HEIGHT-200 ; ROOM 3 Data 20, 100, 20 Data 3 Data OBJ_OVAL, 0, -500, 50, 1000, SCREEN_HEIGHT-100 Data OBJ_RECT, 0, HALF_WIDTH, HALF_HEIGHT-25, HALF_WIDTH, 50 Data OBJ_OVAL, 1, -450, 100, 900, SCREEN_HEIGHT-200 ; ROOM 4 Data 50, 200, 200 Data 3 Data OBJ_RECT, 0, 0, HALF_HEIGHT-25, SCREEN_WIDTH, 50 Data OBJ_RECT, 0, HALF_WIDTH/2, 50, HALF_WIDTH, HALF_HEIGHT-75 Data OBJ_RECT, 1, (HALF_WIDTH/2)+50, 100, HALF_WIDTH-100, HALF_HEIGHT-75 ; ROOM 5 Data 200, 150, 150 Data 3 Data OBJ_RECT, 0, 0, HALF_HEIGHT-25, SCREEN_WIDTH, 50 Data OBJ_OVAL, 0, HALF_WIDTH-(HALF_HEIGHT-50), 50, SCREEN_HEIGHT-100, SCREEN_HEIGHT-100 Data OBJ_OVAL, 1, HALF_WIDTH-(HALF_HEIGHT-100), 100, SCREEN_HEIGHT-200, SCREEN_HEIGHT-200 ; Last room Data 200, 200, 0 Data 2 Data OBJ_RECT, 0, 50, 50, SCREEN_WIDTH-100, SCREEN_HEIGHT-100 Data OBJ_RECT, 0, 0, HALF_HEIGHT-25, 100, 50 ; End of room data

Mothership Attack by Foppy for Workshop #001 Avoid the Mothership Cursors and Space for shield ; Mothership Attack (C)2005 Foppygames ;##################################################################################################### ; INITIALIZATION ;##################################################################################################### Const SCREEN_WIDTH = 800 Const SCREEN_HEIGHT = 600 Graphics(SCREEN_WIDTH,SCREEN_HEIGHT) SetBuffer(BackBuffer()) SeedRnd(MilliSecs()) ;##################################################################################################### ; CONSTANTS ;##################################################################################################### Const KEY_ESCAPE = 1 Const KEY_UP = 200 Const KEY_DOWN = 208 Const KEY_LEFT = 203 Const KEY_RIGHT = 205 Const KEY_SPACE = 57 Const SHIP_MAX_SPEED# = 0.8 Const SHIP_MIN_SPEED# = 0.5 Const SHIP_TURN_SPEED# = 0.45 Const BULLET_SPEED# = 2.5 Const SHIP_MOVE_ACC# = 0.025 Const SHIP_MOVE_DEC# = 0.01 Const BRAIN_HUMAN = 0 Const BRAIN_CPU = 1 Const SHIP_TYPE_TRIANGLE = 0 Const SHIP_TYPE_RECTANGLE = 1 Const SHIP_ROLE_MOTHERSHIP = 0 Const SHIP_ROLE_FIGHTER = 1 Const FIGHTER_ENERGY = 500 Const MOTHERSHIP_ENERGY = 5000 ;##################################################################################################### ; GLOBALS ;##################################################################################################### Global g_bulletCount = 0 Global g_shipObjectCount = 0 Global g_hiScore = 999 ;##################################################################################################### ; NON TYPE-RELATED FUNCTIONS ;##################################################################################################### Function titleScreen() Cls Color(255,255,255) Text(SCREEN_WIDTH/2,20,"Mothership Attack",True,False) Text(SCREEN_WIDTH/2,40,"(C)2005 Foppygames",True,False) Text(SCREEN_WIDTH/2,80,"Controls: arrow keys to steer and slow down, space bar to activate force field",True,False) Text(SCREEN_WIDTH/2,120,"Press space to start, escape to quit",True,False) Color(0,255,0) Rect(SCREEN_WIDTH/2-50,SCREEN_HEIGHT/2-50,100,100,True) Flip FlushKeys Repeat If (KeyHit(KEY_ESCAPE)) Then Return(False) End If If (KeyHit(KEY_SPACE)) Then Return(True) End If Forever End Function Function endGameScreen(p_victory,p_time) Cls Color(255,255,255) If (p_victory) Then If (p_time < g_hiScore) Then g_hiScore = p_time End If resultLine$ = "You have destroyed the mothership!" timeLine$ = "Your time: "+p_time+" seconds Hi-score: "+g_hiScore+" seconds" Else resultLine$ = "The mothership is victorious once again" timeLine$ = "Current hi-score: "+g_hiScore+" seconds" End If Text(SCREEN_WIDTH/2,100,resultLine,True,False) Text(SCREEN_WIDTH/2,120,timeLine,True,False) Text(SCREEN_WIDTH/2,160,"Press space",True,False) Flip FlushKeys Repeat Until(KeyHit(KEY_SPACE)) End Function ;##################################################################################################### ; SHIP TYPE DEFINITION AND RELATED FUNCTIONS ;##################################################################################################### Type SHIP Field f_brain Field f_type Field f_role Field f_x# Field f_y# Field f_reload Field f_reloadTime Field f_moveSpeed# Field f_minSpeed# Field f_turnSpeed# Field f_angle# Field f_dX# Field f_dY# Field f_w Field f_h Field f_target.SHIP Field f_targetX# Field f_targetY# Field f_fieldOn Field f_fieldDisplay Field f_glowOn Field f_glowDisplay Field f_fieldSize Field f_energy End Type Function SHIP_create.SHIP(p_role,p_brain,p_type,p_x,p_y,p_w,p_h) ship.SHIP = New SHIP ship\f_role = p_role ship\f_brain = p_brain ship\f_type = p_type ship\f_x = p_x ship\f_y = p_y ship\f_minSpeed = SHIP_MIN_SPEED ship\f_turnSpeed = SHIP_TURN_SPEED ship\f_angle = 0 ship\f_w = p_w ship\f_h = p_h ship\f_fieldSize = p_w6 If (p_role = SHIP_ROLE_FIGHTER) Then ship\f_energy = FIGHTER_ENERGY Else If (p_role = SHIP_ROLE_MOTHERSHIP) Then ship\f_energy = MOTHERSHIP_ENERGY ship\f_minSpeed = SHIP_MIN_SPEED/4 End If ship\f_moveSpeed = ship\f_minSpeed If (p_type = SHIP_TYPE_RECTANGLE) Then objects = 1 Else If (p_type = SHIP_TYPE_TRIANGLE) Then objects = 2 End If g_shipObjectCount = g_shipObjectCount + objects Return(ship) End Function Function SHIP_delete(p_ship.SHIP) If (p_ship\f_type = SHIP_TYPE_RECTANGLE) Then objects = 1 Else If (p_ship\f_type = SHIP_TYPE_TRIANGLE) Then objects = 2 End If Delete(p_ship) g_shipObjectCount = g_shipObjectCount - objects End Function Function SHIP_moveAll() For ship.SHIP = Each SHIP SHIP_move(ship) Next End Function Function SHIP_move(p_ship.SHIP) Select p_ship\f_brain Case BRAIN_HUMAN SHIP_controlHuman(p_ship) Case BRAIN_CPU SHIP_controlCPU(p_ship) End Select If (p_ship\f_angle > 360) Then p_ship\f_angle = p_ship\f_angle - 360 End If If (p_ship\f_angle < 0) Then p_ship\f_angle = p_ship\f_angle + 360 End If If (p_ship\f_moveSpeed < p_ship\f_minSpeed) Then p_ship\f_moveSpeed = p_ship\f_minSpeed End If If (p_ship\f_moveSpeed > SHIP_MAX_SPEED) Then p_ship\f_moveSpeed = SHIP_MAX_SPEED End If SHIP_computeDeltas(p_ship) p_ship\f_x = p_ship\f_x + p_ship\f_dX p_ship\f_moveSpeed p_ship\f_y = p_ship\f_y + p_ship\f_dY * p_ship\f_moveSpeed Select p_ship\f_type Case SHIP_TYPE_RECTANGLE If (p_ship\f_x < 0) Then p_ship\f_x = 0 End If If (p_ship\f_x > SCREEN_WIDTH-p_ship\f_w) Then p_ship\f_x = SCREEN_WIDTH-p_ship\f_w End If If (p_ship\f_y < 0) Then p_ship\f_y = 0 End If If (p_ship\f_y > SCREEN_HEIGHT-p_ship\f_h) Then p_ship\f_y = SCREEN_HEIGHT-p_ship\f_h End If Case SHIP_TYPE_TRIANGLE If (p_ship\f_x < 0) Then p_ship\f_x = 0 End If If (p_ship\f_x > SCREEN_WIDTH-p_ship\f_w) Then p_ship\f_x = SCREEN_WIDTH-p_ship\f_w End If If (p_ship\f_y < 0) Then p_ship\f_y = 0 End If If (p_ship\f_y > SCREEN_HEIGHT-p_ship\f_h) Then p_ship\f_y = SCREEN_HEIGHT-p_ship\f_h End If End Select End Function Function SHIP_controlHuman(p_ship.SHIP) If (KeyDown(KEY_LEFT)) Then p_ship\f_angle = p_ship\f_angle + p_ship\f_turnSpeed End If If (KeyDown(KEY_RIGHT)) Then p_ship\f_angle = p_ship\f_angle - p_ship\f_turnSpeed End If If (KeyDown(KEY_DOWN)) Then p_ship\f_moveSpeed = p_ship\f_moveSpeed - SHIP_MOVE_DEC Else p_ship\f_moveSpeed = p_ship\f_moveSpeed + SHIP_MOVE_ACC End If p_ship\f_fieldOn = KeyDown(KEY_SPACE) End Function Function SHIP_controlCPU(p_ship.SHIP) Select p_ship\f_role Case SHIP_ROLE_MOTHERSHIP ; random steering in 45 degree steps If (Rand(1000) > 990) Then p_ship\f_angle = p_ship\f_angle + (Rand(0,2)-1)45 End If Case SHIP_ROLE_FIGHTER ; steering targetAngle = ATan2(-(p_ship\f_targetY+Rand(-30,30)-p_ship\f_y),p_ship\f_targetX+Rand(-30,30)-p_ship\f_x) If (targetAngle < 0) Then targetAngle = targetAngle + 360 End If normal = targetAngle - p_ship\f_angle If (normal < 0) Then normal = normal + 360 End If If ((normal < 358) And (normal > 180)) Then p_ship\f_angle = p_ship\f_angle - p_ship\f_turnSpeed End If If ((normal > 2) And (normal <= 180)) Then p_ship\f_angle = p_ship\f_angle + p_ship\f_turnSpeed End If p_ship\f_angle = p_ship\f_angle Mod 360 + (p_ship\f_angle<0)360 ; changing speed If ((normal > 350) Or (normal < 10)) Then p_ship\f_moveSpeed = p_ship\f_moveSpeed + SHIP_MOVE_ACC Else p_ship\f_moveSpeed = p_ship\f_moveSpeed - SHIP_MOVE_DEC End If ; shooting If ((Rand(1000)>998) And (g_bulletCount = 0)) Then BULLET_create(p_ship) End If End Select End Function Function SHIP_drawAll() For ship.SHIP = Each SHIP SHIP_draw(ship) Next End Function Function SHIP_draw(p_ship.SHIP) If (p_ship\f_glowOn) If (p_ship\f_glowDisplay) Then Color(255,255,255) End If p_ship\f_glowDisplay = Not(p_ship\f_glowDisplay) End If If (p_ship\f_fieldOn And p_ship\f_fieldDisplay) Then SHIP_drawAsOval(p_ship) Else Select p_ship\f_type Case SHIP_TYPE_TRIANGLE SHIP_drawAsTriangle(p_ship) Case SHIP_TYPE_RECTANGLE SHIP_drawAsRectangle(p_ship) End Select End If If (p_ship\f_fieldOn) Then p_ship\f_fieldDisplay = Not(p_ship\f_fieldDisplay) End If If (p_ship\f_glowOn) Then p_ship\f_glowOn = False End If End Function Function SHIP_drawAsTriangle(p_ship.SHIP) leftAngle = p_ship\f_angle + 150 If leftAngle > 360 Then leftAngle = leftAngle - 360 End If leftDx# = Cos(leftAngle) leftDy# = -Sin(leftAngle) leftX = p_ship\f_x + leftDx * p_ship\f_w/2 leftY = p_ship\f_y + leftDy * p_ship\f_w/2 rightAngle = p_ship\f_angle - 150 If rightAngle < 0 Then rightAngle = rightAngle + 360 End If rightDx# = Cos(rightAngle) rightDy# = -Sin(rightAngle) rightX = p_ship\f_x + rightDx * p_ship\f_w/2 rightY = p_ship\f_y + rightDy * p_ship\f_w/2 frontX = p_ship\f_x + p_ship\f_dX * p_ship\f_h/2 frontY = p_ship\f_y + p_ship\f_dY * p_ship\f_h/2 Color(255,255,255) Line(frontX,frontY,leftX,leftY) Line(frontX,frontY,rightX,rightY) End Function Function SHIP_drawAsRectangle(p_ship.SHIP) If (Not(p_ship\f_glowOn) Or (p_ship\f_glowOn And (Not(p_ship\f_glowDisplay)))) Then Color(0,255,0) End If Rect(p_ship\f_x,p_ship\f_y,p_ship\f_w,p_ship\f_h,True) End Function Function SHIP_drawAsOval(p_ship.SHIP) Color(255,255,0) w = p_ship\f_fieldSize h = p_ship\f_fieldSize Oval(p_ship\f_x-w/2,p_ship\f_y-h/2,w,h,True) End Function Function SHIP_computeDeltas(p_ship.SHIP) p_ship\f_dX = Cos(p_ship\f_angle) p_ship\f_dY = -Sin(p_ship\f_angle) End Function Function SHIP_setTargetLocation(p_ship.SHIP,p_target.SHIP) p_ship\f_target = p_target If (p_target <> Null) Then Select p_target\f_type Case SHIP_TYPE_RECTANGLE targetX = p_target\f_x + p_target\f_w/2 targetY = p_target\f_y + p_target\f_h/2 Case SHIP_TYPE_TRIANGLE targetX = p_target\f_x targetY = p_target\f_y End Select p_ship\f_targetX = targetX p_ship\f_targetY = targetY End If End Function Function SHIP_checkHitByBullet(p_ship.SHIP,p_bullet.BULLET) If (p_bullet\f_owner = p_ship\f_brain) Then Return(False) End If Select p_ship\f_type Case SHIP_TYPE_RECTANGLE Return((p_bullet\f_x > p_ship\f_x) And (p_bullet\f_x < p_ship\f_x+p_ship\f_w) And (p_bullet\f_y > p_ship\f_y) And (p_bullet\f_y < p_ship\f_y+p_ship\f_h)) Case SHIP_TYPE_TRIANGLE Return((Abs(p_bullet\f_x-p_ship\f_x)<p_ship\f_w/2) And (Abs(p_bullet\f_y-p_ship\f_y)<p_ship\f_w/2)) End Select End Function Function SHIP_checkHitByShip(p_ship.SHIP,p_otherShip.SHIP) If (p_ship\f_brain = p_otherShip\f_brain) Then Return(False) End If If (p_ship\f_type = SHIP_TYPE_RECTANGLE) Then If (p_otherShip\f_type = SHIP_TYPE_TRIANGLE) Then newX = p_ship\f_x - p_otherShip\f_w/2 newY = p_ship\f_y - p_otherShip\f_h/2 newW = p_ship\f_w + p_otherShip\f_w newH = p_ship\f_h + p_otherShip\f_h Return((p_otherShip\f_x > newX) And (p_otherShip\f_x < newX+newW) And (p_otherShip\f_y > newY) And (p_otherShip\f_y < newY+newH)) End If End If Return(False) End Function Function SHIP_checkField(p_ship.SHIP) If (p_ship\f_fieldOn) Then For ship.SHIP = Each SHIP If ((ship <> p_ship) And (ship\f_role = SHIP_ROLE_MOTHERSHIP)) Then If (SHIP_hitByField(ship,p_ship\f_x,p_ship\f_y,p_ship\f_fieldSize)) Then SHIP_glow(ship) SHIP_loseEnergy(ship,5) End If End If Next End If End Function Function SHIP_hitByField(p_ship.SHIP,p_fieldX,p_fieldY,p_fieldSize) Select p_ship\f_type Case SHIP_TYPE_RECTANGLE newX = p_ship\f_x - p_fieldSize/2 newY = p_ship\f_y - p_fieldSize/2 newW = p_ship\f_w + p_fieldSize newH = p_ship\f_h + p_fieldSize Return((p_fieldX > newX) And (p_fieldX < newX+newW) And (p_fieldY > newY) And (p_fieldY < newY+newH)) Default ; ... End Select End Function Function SHIP_glow(p_ship.SHIP) p_ship\f_glowOn = True End Function Function SHIP_loseEnergy(p_ship.SHIP,p_amount) p_ship\f_energy = p_ship\f_energy - p_amount If (p_ship\f_energy <= 0) Then SHIP_delete(p_ship) End If End Function Function SHIP_checkCollisionAll() For ship.SHIP = Each SHIP SHIP_checkCollision(ship) Next End Function Function SHIP_checkCollision(p_ship.SHIP) ; check for collisions with other ships For ship.SHIP = Each SHIP If (ship <> p_ship) Then If (SHIP_checkHitByShip(ship,p_ship)) Then SHIP_loseEnergy(p_ship,10) Exit End If End If Next End Function ;##################################################################################################### ; BULLET TYPE DEFINITION AND RELATED FUNCTIONS ;##################################################################################################### Type BULLET Field f_owner Field f_x# Field f_y# Field f_startX# Field f_startY# Field f_dX# Field f_dY# Field f_life End Type Function BULLET_create(p_owner.SHIP) bullet.BULLET = New BULLET bullet\f_owner = p_owner\f_brain bullet\f_x = p_owner\f_x bullet\f_y = p_owner\f_y bullet\f_startX = p_owner\f_x bullet\f_startY = p_owner\f_y bullet\f_dX = p_owner\f_dXBULLET_SPEED bullet\f_dY = p_owner\f_dYBULLET_SPEED bullet\f_life = 100 g_bulletCount = g_bulletCount + 1 End Function Function BULLET_delete(p_bullet.BULLET) Delete(p_bullet) g_bulletCount = g_bulletCount -1 End Function Function BULLET_moveAll() For bullet.BULLET = Each BULLEt BULLET_move(bullet) Next End Function Function BULLET_move(p_bullet.BULLET) p_bullet\f_x = p_bullet\f_x + p_bullet\f_dX p_bullet\f_y = p_bullet\f_y + p_bullet\f_dY p_bullet\f_startX = p_bullet\f_startX + p_bullet\f_dX0.7 p_bullet\f_startY = p_bullet\f_startY + p_bullet\f_dY0.7 p_bullet\f_life = p_bullet\f_life - 1 If (p_bullet\f_life <= 0) Then BULLET_delete(p_bullet) End If End Function Function BULLET_drawAll() For bullet.BULLET = Each BULLET BULLET_draw(bullet) Next End Function Function BULLET_draw(p_bullet.BULLET) Color(Rand(255),Rand(255),255) Line(p_bullet\f_startX,p_bullet\f_startY,p_bullet\f_x,p_bullet\f_y) End Function Function BULLET_checkCollisionAll() For bullet.BULLET = Each BULLET BULLET_checkCollision(bullet) Next End Function Function BULLET_checkCollision(p_bullet.BULLET) ; check for collisions with ships For ship.SHIP = Each SHIP If (SHIP_checkHitByBullet(ship,p_bullet)) Then SHIP_loseEnergy(ship,FIGHTER_ENERGY) BULLET_delete(p_bullet) Exit End If Next End Function ;##################################################################################################### ; MAIN LOOP ;##################################################################################################### While (titleScreen()) continue = True defeat = False victory = False startTime = MilliSecs() player.SHIP = SHIP_create(SHIP_ROLE_FIGHTER,BRAIN_HUMAN,SHIP_TYPE_TRIANGLE,100,100,10,10) motherShip.SHIP = SHIP_create(SHIP_ROLE_MOTHERSHIP,BRAIN_CPU,SHIP_TYPE_RECTANGLE,SCREEN_WIDTH/2-50,SCREEN_HEIGHT/2-50,100,100) ; game speed control fpsCountTargetTime = MilliSecs() + 1000 renderFrames = 0 renderFps = 0 logicFrames = 0 logicFps = 0 lastTime = MilliSecs()/3 lastNumTicks = 1 While (continue) ;############################ ; GAME LOGIC ;############################ ; 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 alt-tab If (numTicks > 20) Then numTicks = lastNumTicks End If lastNumTicks = numTicks ; perform game logic For i = 1 To numTicks SHIP_moveAll() If (player <> Null) Then SHIP_checkField(player) SHIP_checkCollision(player) End If BULLET_moveAll() BULLET_checkCollisionAll() For ship.SHIP = Each SHIP If ((ship\f_brain = BRAIN_CPU) And (ship\f_role = SHIP_ROLE_FIGHTER)) Then SHIP_setTargetLocation(ship,player) End If If ((ship\f_brain = BRAIN_CPU) And (ship\f_role = SHIP_ROLE_MOTHERSHIP)) Then If (g_shipObjectCount < 4) Then If (Rand(1000)>970) Then SHIP_create(SHIP_ROLE_FIGHTER,BRAIN_CPU,SHIP_TYPE_RECTANGLE,ship\f_x+ship\f_w/2,ship\f_y+ship\f_h/2,10,10) End If End If End If Next ; count logic frame logicFrames = logicFrames + 1 Next ;############################ ; GAME RENDERING ;############################ Cls SHIP_drawAll() BULLET_drawAll() ; draw on-screen info ;Color(100,100,100) ;Text(SCREEN_WIDTH/2,10,"render_fps: "+Str(renderFps)+" logic_fps: "+Str(logicFps),True,False) ;Text(SCREEN_WIDTH/2,30,"objectCount "+g_shipObjectCount,True,False) Flip If (motherShip = Null) Then victory = True End If If (player = Null) Then defeat = True End If If ((KeyHit(KEY_ESCAPE)) Or (defeat) Or (victory)) Then continue = False End If ;############################ ; FPS COUNTING ;############################ If (MilliSecs() >= fpsCountTargetTime) Then renderFps = renderFrames renderFrames = 0 logicFps = logicFrames logicFrames = 0 fpsCountTargetTime = fpsCountTargetTime + 1000 End If renderFrames = renderFrames + 1 Wend For ship.SHIP = Each SHIP SHIP_delete(ship) Next For bullet.BULLET = Each BULLET BULLET_delete(bullet) Next time = (MilliSecs() - startTime) / 1000 ; show victory/defeat, and score/hi score If (victory Or defeat) Then endGameScreen(victory,time) End If Wend End

Wednesday Workshop #001

The Five Object Challenge

Ball-Up

Vortex Game

Road Chaser

Bisexual Tron

Mini Tron

Paddle Ball

Ninja Attack

Flight of the Pixel

Mothership Attack