Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|690\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #244 (24 Aug 2016) The Ten Challenge Create a game that uses only 10 things (lines, rects, ovals or sprites) onscreen at once.

Coin Collecting Insanity by Jayenkai for Workshop #244 Gather the coins without getting hit. Cursors to turn. Fire to Thrust ;////////////////// Global GameTitle$="Coin Collecting Insanity" ;\\\\\\\\\ ; A Wednesday Workshop Game by Global AuthorName$="Jayenkai" ; Enter your game title and your name above, then Ctrl+End to the bottom, where the gameplay function is. 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

Damn Bounces by AndyH for Workshop #244 Use mouse to control the bats, get a high score. You might sometimes get lucky but your luck WILL run out. Mouse Click to download this entry

Copyright Jayenkai - 2017+ | Thanks to Shroom_Monk for CSS/Dev Tips | Uses a Jay-Tweaked version of CBParser.
Page Took : 0.093

Wednesday Workshop - Socoder