#244 - The Ten Challenge

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|540\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> #244 - The Ten Challenge
Wed, 24 Aug 2016, 00:09
Jayenkai	#244 - The Ten Challenge The Challenge This week, your task is to create a game that only ever displays 10 items on the screen at once. Those can be lines, rects, ovals, sprites, 3D primitives (cubes/spheres/plains/etc) or text. But only 10 such things at a time. (If you're using sprites, keep them simplistic.. So no cheating by making a "1,000,000 spaceships!" sprite, or something!) The Time Wed 24th August -> Wed 31st August 2016 You have until this timer hits zero to complete your entry. For the record, that's Tue/Wed, midnight GMT*. (Although that's more frequently becoming "When I bother to wake up, on a Wednesday morning") Rule Number One Blitz3D, BlitzPlus, BlitzMax. It doesn't matter which. All three are freely available from BlitzBasic.com, so you've no excuse. These languages are chosen because their resulting .exe's tend to "Always work" (as proven by the fact that all our old Workshop entries still work!!) For the sake of simplicity, try to stick with those. I won't complain if you use something else, but if the end result doesn't work for people, you've only got yourself to blame! Rule Number Two Wednesday Workshop is a fun and silly "Jam"-like event. (Jam's weren't a thing, the last time I wrote this!!) It's not meant to be a competition. It's just for fun. The best technique is to try to stick to a short schedule for building the actual game. If you have more time during the week, build the game up, fix bugs, add music/titles, whatever. Additional Rules You're free to reuse. Functions, Art, Sound, Music, anything that can be crammed into the game to help speed up your dev-time, and make it look like you spent more time on it than you actually did! Other than that, the main coding for each week's task should be pretty much created within the time allocated. Remember that this is for fun, not for any major awards or anything! If you use other people's art/sound/functions, give credit where credit's due. To enter, post your game below. If you can't find anywhere decent to host it, send it to Jayenkai@Gmail.com Additional rules are available here. -=-=- ''Load, Next List!''
Wed, 24 Aug 2016, 10:46
Jayenkai	;////////////////// Global GameTitle$="Coin Collecting Insanity" ;\\\\\\\\\\\\\\\\\\ ; A Wednesday Workshop Game by Global AuthorName$="Jayenkai" Global jscrw=800:Global jscrh=600 Graphics jscrw,jscrh,0,2 SetBuffer BackBuffer() Global UseFont$="Blitz" ; Load images and stuff, here Global HighScore=0,LastScore=0 If FileType("score.dat")=1 quickin=ReadFile("score.dat") HighScore=ReadInt(quickin) CloseFile quickin EndIf Global font_[10] For n=0 To 9 font_[n]=LoadFont(UseFont,(n+1)8) Next Global Mode=0,frm=0,kdis=0 Global plr#[100],grid#[10000001],obj#[5130],but[20] Global lastframe,frametook,fps,DebugMode=0 Global played=0,Score,ShowScore Global bgr#=0,bgg#=0,bgb#=0 Global bgrAim#=0,bggAim=0,bgbAim#=0 Global EndofGame,EndTimer Repeat PollKeys() bgr=bgr-((bgr-bgrAim)/8.0) bgg=bgg-((bgg-bggAim)/8.0) bgb=bgb-((bgb-bgbAim)/8.0) ClsColor bgr,bgg,bgb Cls If Mode=0 ; Titlescreen TitleScreen() If Played=1 Played=0 LastScore=Score If Score>HighScore HighScore=Score quickout=WriteFile("score.dat") If quickout<>0 WriteInt(quickout,HighScore) CloseFile quickout EndIf EndIf EndIf EndIf If Mode=1 ; Ingame GamePlay():Played=1:If KeyDown(1) Then kdis=1:Mode=0 If EndofGame<>0 EndTimer=EndTimer+1 If EndTimer>120 Then Mode=0 font(7):ink(1,0.75) Text(jscrw/2-64,jscrh/2-24,"GAME",1,1) Text(jscrw/2+64,jscrh/2+24,"OVER",1,1) EndIf EndIf If (PlayKey(10) Or PlayKey(11) Or PlayKey(12)) And Mode=0 Then GameSetup():Mode=1 If PlayKey(0)=0 And PlayKey(3)=0 And PlayKey(5)=0 And PlayKey(8)=0 And PlayKey(10)=0 And PlayKey(11)=0 And PlayKey(12)=0 And KeyDown(1)=0 Then kdis=0 If DebugMode=1 Then font(1):Ink(9):Text 10,jscrh-20,"FPS : "+fps If KeyHit(59) Then DebugMode=1-DebugMode ;F1 to toggle DebugMode Flip:Delay 5 frametook=MilliSecs()-lastframe fps=1000/frametook lastframe=MilliSecs() frm=frm+1 fin=0 If (KeyDown(1) And Mode=0 And kdis=0) Or KeyDown(62) Then fin=1 Until fin=1 End Function PlayKey(fn) If fn>-1 And fn<20 Then Return but[fn] Return 0 End Function ; PlayKey Function PollKeys() but[0]=KeyDown(17) Or KeyDown(200) Or JoyY()<-0.3 Or JoyY(1)<-0.3 Or JoyY(2)<-0.3 Or JoyY(3)<-0.3 but[8]=KeyDown(31) Or KeyDown(208) Or JoyY()>0.3 Or JoyY(1)>0.3 Or JoyY(2)>0.3 Or JoyY(3)>0.3 but[3]=KeyDown(30) Or KeyDown(203) Or JoyX()<-0.3 Or JoyX(1)<-0.3 Or JoyX(2)<-0.3 Or JoyX(3)<-0.3 but[5]=KeyDown(32) Or KeyDown(205) Or JoyX()>0.3 Or JoyX(1)>0.3 Or JoyX(2)>0.3 Or JoyX(3)>0.3 but[10]=KeyDown(36) Or KeyDown(44) Or KeyDown(57) Or JoyDown(1) Or JoyDown(1,1) Or JoyDown(1,2) Or JoyDown(1,3) but[11]=KeyDown(37) Or KeyDown(45) Or KeyDown(29) Or KeyDown(157) Or JoyDown(2) Or JoyDown(2,1) Or JoyDown(2,2) Or JoyDown(2,3) but[12]=KeyDown(38) Or KeyDown(46) Or KeyDown(42) Or KeyDown(56) Or KeyDown(54) Or JoyDown(3) Or JoyDown(3,1) Or JoyDown(3,2) Or JoyDown(3,3) End Function; PlayKey Function ink(fn,fbright#=1.0) Local r,g,b,l l=0 If fbright>1.0 Then l=40 Select fn Case 1 r=255:g=l:b=l ; 1 = Red Case 2 r=255:g=128:b=l ; 2 = Orange Case 3 r=255:g=255:b=l ; 3 = Yellow Case 4 r=l:g=255:b=l ; 4 = Green Case 5 r=l:g=128:b=255 ; 5 = Cyan Case 6 r=l:g=l:b=255 ; 6 = Blue Case 7 r=128:g=l:b=255 ; 7 = Bluey Purple Case 8 r=255:g=l:b=128 ; 8 = Redy Purple Case 9 r=255:g=255:b=255 ; 9 = White Default r=0:g=0:b=0 ; 0/unknown = Black End Select r=rfbright g=gfbright b=bfbright If r<0 Then r=0 If r>255 Then r=255 If g<0 Then g=0 If g>255 Then g=255 If b<0 Then b=0 If b>255 Then b=255 Color(r,g,b) End Function Function font(fn) If n>-1 And fn<10 SetFont font_[fn] EndIf End Function Function FlushGame() EndofGame=0 EndTimer=0 For m=0 To 10000001 If m<100 Then plr[m]=0 If m<5130 Then obj[m]=0 grid[m]=0 Next Score=0 End Function ;Flush Game Function ReSeed(fn=-37171650) If fn=-37171650 Then SeedRnd MilliSecs() If fn<>-37171650 Then SeedRnd fn Local fm For fm=0 To 99:fn=Rnd(0,100):Next End Function Function SetBG(r,g,b) ; Sets the background color bgrAim=r bggAim=g bgbAim=b End Function Function DisplayScore() ; Shows the score, and updates the ShowScore variable If Abs(ShowScore-Score)<8 Then ShowScore=Score ShowScore=ShowScore-((ShowScore-Score)/Rand(6,12)) Font(2):Ink(4,4):Text(jscrw/2,32,Right$("00000000"+ShowScore,8),1,1) End Function Function KeyTest() ; Random oddity for test purposes font(5):ink(9) Text(100,100,PlayKey(0),1,1) ; 0 = up Text(100,160,PlayKey(8),1,1) ; 8 = down Text(70,130,PlayKey(3),1,1) ; 3 = Left Text(130,130,PlayKey(5),1,1) ; 5 = Right ink(1):Text(300,130,PlayKey(10),1,1); 10 = Button A ink(3):Text(320,120,PlayKey(11),1,1); 11 = Button B ink(5):Text(340,110,PlayKey(12),1,1); 12 = Button C If PlayKey(0) Then Score=Score+10 If PlayKey(8) Then Score=Score-10 If Score<0 Then Score=0 End Function Function Titlescreen() SetBG(20,40,80) ; Set the colour of the background ; Basic generic titlescreen. Feel free to jazz it up a bit! ink(3,(Sin(frm8)0.5)+1.0):font(6) Text(jscrw/2,60,GameTitle$,1,1) ink(2):font(3) Text(jscrw0.75,94,"a game by "+AuthorName$,1,1) ink(((MilliSecs() /450) Mod 9)+1) Text(jscrw/2,jscrh/2,"Press [Start]",1,1) ink(4) Text(jscrw/2,jscrh/2+96,"Left/Right to Turn",1,1) Text(jscrw/2,jscrh/2+116,"Fire to Thrust",1,1) ink(5,2):font(2) Text(jscrw/2,jscrh-94,"High Score : "+HighScore,1,1) Text(jscrw/2,jscrh-32,"Last Score : "+LastScore,1,1) End Function ; Titlescreen ;\/\/\/\/\/\/\/\/\/\/ ; v GAME GOES HERE v ;\/\/\/\/\/\/\/\/\/\/ Function GameSetup() FlushGame() ReSeed() ; Initialise your variablReSeed()es/level/etc here plr[1]=jscrw0.25 plr[2]=jscrh/2 plr[5]=90 End Function ; Game Setup Function GamePlay() SetBG(0,0,0) ; Set the colour of the background. plr[1]=plr[1]+plr[3] plr[2]=plr[2]+plr[4] If PlayKey(10) plr[3]=plr[3]+Sin(plr[5])0.75 plr[4]=plr[4]-Cos(plr[5])0.75 EndIf spd#=6.0 If plr[3]>spd Then plr[3]=spd If plr[4]>spd Then plr[4]=spd If plr[3]<-spd Then plr[3]=-spd If plr[4]<-spd Then plr[4]=-spd If plr[1]>jscrw-8 Then plr[3]=-(spd0.75) If plr[2]>jscrh-8 Then plr[4]=-(spd0.75) If plr[1]<8 Then plr[3]=(spd0.75) If plr[2]<8 Then plr[4]=(spd0.75) If PlayKey(10)=0 If plr[3]>0 plr[3]=plr[3]-0.2 If plr[3]<0 Then plr[3]=0 EndIf If plr[3]<0 plr[3]=plr[3]+0.2 If plr[3]>0 Then plr[3]=0 EndIf If plr[4]>0 plr[4]=plr[4]-0.2 If plr[4]<0 Then plr[4]=0 EndIf If plr[4]<0 plr[4]=plr[4]+0.2 If plr[4]>0 Then plr[4]=0 EndIf EndIf If EndofGame=0 ;+1 Line(plr[1],plr[2],plr[1]+Sin((plr[5]+180)-15)20,plr[2]-Cos((plr[5]+180)-15)20) ;+1 Line(plr[1],plr[2],plr[1]+Sin((plr[5]+180)+15)20,plr[2]-Cos((plr[5]+180)+15)20) EndIf plr[5]=(plr[5]+((PlayKey(5)-PlayKey(3))8.0) Mod 360) ; + 7 For m=0 To 6 i=m10 If obj[i]>0 obj[i+1]=obj[i+1]+obj[i+3] obj[i+2]=obj[i+2]+obj[i+4] If obj[i+1]<8 Then obj[i+3]=Rand(2,6) If obj[i+2]<8 Then obj[i+4]=Rand(2,6) If obj[i+1]>jscrw-8 Then obj[i+3]=-Rand(2,6) If obj[i+2]>jscrh-8 Then obj[i+4]=-Rand(2,6) If m<2 ink(3) Oval(obj[i+1]-8,obj[i+2]-8,17,17) z=32 EndIf If m>1 If obj[i+1]>plr[1] Then obj[i+3]=obj[i+3]-0.01 If obj[i+1]<plr[1] Then obj[i+3]=obj[i+3]+0.01 If obj[i+2]>plr[2] Then obj[i+4]=obj[i+4]-0.01 If obj[i+2]<plr[2] Then obj[i+4]=obj[i+4]+0.01 ink(1) Rect(obj[i+1]-16,obj[i+2]-16,33,33) z=24 EndIf distx=Abs(obj[i+1]-plr[1]) disty=Abs(obj[i+2]-plr[2]) dist=((distxdistx)+(distydisty)) If dist<zz And EndofGame=0 If m<2 Then obj[i]=0:score=score+1 If m>1 Then EndofGame=1 EndIf EndIf If obj[i]=0 obj[i+1]=Rand(16,jscrw-16) obj[i+2]=Rand(16,jscrh-16) obj[i+3]=Rand(-6,6) obj[i+4]=Rand(-6,6) dist=((obj[i+1]-plr[1])(obj[i+1]-plr[1]))+((obj[i+2]-plr[2])(obj[i+2]-plr[2])) obj[i]=1 If dist<200200 Then obj[i]=0 EndIf Next ; +1 DisplayScore() End Function ; Gameplay --v A generic little coin collecting game, which makes use of my new Mini(ish!) B3DFramework. -=-=- ''Load, Next List!''
Sun, 28 Aug 2016, 02:41
Jayenkai	Since it's a Bank Holiday Weekend in the UK, I expect a massive flood of entries, over the next day and a half! Tons of them!! -=-=- ''Load, Next List!''
Sun, 28 Aug 2016, 09:44
AndyH	Hi, here's mine. Damn Bounces Game title is Damn Bounces and it uses nine objects if you count the digits separately in the score. Use mouse to control the bats, get a high score. You might sometimes get lucky but your luck WILL run out. -=-=- Andy H 8-bit games at www.hewco.uk Cartoons at awful.ovine.net Ovine at ovine.net
Sun, 28 Aug 2016, 09:51
Jayenkai	For future reference, "your uploads" in part of SoCoder's main menu! -=-=- ''Load, Next List!''
Sun, 28 Aug 2016, 09:56
AndyH	Aha - sneaky! OK, updated the link in the post above -=-=- Andy H 8-bit games at www.hewco.uk Cartoons at awful.ovine.net Ovine at ovine.net
Sun, 28 Aug 2016, 10:01
Jayenkai	Thanks for your entry! (Thank munky it isn't just me,for a change!!) -=-=- ''Load, Next List!''
Sun, 28 Aug 2016, 10:14
Jayenkai	Congrats, Andy. You now have a "WW Entries" thing under your name! \o/ Hurray \o/ -=-=- ''Load, Next List!''
Mon, 29 Aug 2016, 13:41
AndyH	Yay! I have an HTML version here... ovine.itch.io/damn-bounce -=-=- Andy H 8-bit games at www.hewco.uk Cartoons at awful.ovine.net Ovine at ovine.net
Tue, 30 Aug 2016, 02:59
cyangames	D'oh missed this! Will there be another next week? -=-=- Web / Game Dev, occasionally finishes off coding games also!
Tue, 30 Aug 2016, 03:55
Jayenkai	Sure, if you'd like.
Wed, 31 Aug 2016, 01:57
Jayenkai	Congrats to all entrants, this week! Hurray!! Next Workshop will be posted once Windows has finished its update. ... So, in about a week, then!! -=-=- ''Load, Next List!''

#244 - The Ten Challenge

The Challenge

The Time

Rule Number One

Rule Number Two

Additional Rules