Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|612\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #127 (21 Nov 2007) The 1 Hour Challenge You could've guessed it! Make a game in an hour!

Time Leaks by Forklift_Fred for Workshop #127 Catch the time leaks with the mouse. Mouse ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; One Hour Challenge ;; ;; ================== ;; ;; ;; ;; By Forklift_Fred ;; ;; For SoCodor's Wednesday Workshop ;; ;; #127 (28/11/07 - 04/12/07) ;; ;; Start - 19:25 ;; ;; Finish - 20:25 ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; AppTitle "60 Minutes" Graphics 800,600,32,2 SetBuffer BackBuffer() Global time=MilliSecs() Global rate=1000 Global advance=True Global score=0 SeedRnd MilliSecs() Type pixel Field x Field y Field age Field speed_x Field speed_y End Type Type clock Field x Field y Field direction Field rate Field prev End Type Cls Text GraphicsWidth()/2,(GraphicsHeight()/2)-30,"Use your mouse shield to catch the time leaks",1,1 Text GraphicsWidth()/2,(GraphicsHeight()/2)-15,"Click to send a pulse but you must have enough power first",1,1 Text GraphicsWidth()/2,(GraphicsHeight()/2)+30,"Click to start",1,1 Text GraphicsWidth()/2,(GraphicsHeight()/2)+30,"______________",1,1 Flip WaitMouse Global start=MilliSecs() CreateClock() While Not KeyDown(1) Or MilliSecs()>start+60000 Cls If MilliSecs()=>time+(rate/3) Then time=MilliSecs() advance=True Else advance=False End If UpdateClocks() UpdatePixels() UpdateShield() Color 128,128,255 Text 10,10,score Flip Wend Color 255,0,0 Text GraphicsWidth()/2,(GraphicsHeight()/2)-15,"GAME OVER",1,1 Text GraphicsWidth()/2,(GraphicsHeight()/2)-15,"_________",1,1 Text GraphicsWidth()/2,(GraphicsHeight()/2),"You scored "+score,1,1 Text GraphicsWidth()/2,(GraphicsHeight()/2)+30,"(Click to exit)",1,1 Flip WaitMouse() End Function UpdateShield() x=MouseX() y=MouseY() Color 255,128,128 Oval x-25,y-25,50,50,0 End Function Function CreateClock() clock.clock=New clock clock\x=Rnd(50,GraphicsWidth()-50) clock\y=Rnd(50,GraphicsHeight()-50) clock\direction=Rnd(360) clock\rate=Rnd(rate-200,rate+200) clock\prev=MilliSecs() End Function Function UpdateClocks() For clock.clock=Each clock clock\direction=clock\direction+1 If clock\direction=361 Then clock\direction=0 If MilliSecs()>clock\prev+clock\rate Then clock\prev=MilliSecs() SpawnPixel(clock\x,clock\y,clock\direction) End If Color 255,255,255 Oval clock\x-25,clock\y-25,50,50,1 Color 255,0,0 Line clock\x,clock\y,clock\x+Cos(clock\direction)25,clock\y+Sin(clock\direction)25 Next End Function Function UpdatePixels() For pixel.pixel=Each pixel pixel\x=pixel\x+pixel\speed_x pixel\y=pixel\y+pixel\speed_y If advance Then pixel\age=pixel\age-25 If pixel\age<=0 Then Delete pixel Exit Else Color pixel\age,pixel\age,pixel\age Rect pixel\x,pixel\y,rate4/1000,rate4/1000 End If If Abs(pixel\x-MouseX())<50 And Abs(pixel\y-MouseY())<50 Then score=score+pixel\age Delete pixel MoveMouse(Rnd(25,GraphicsWidth()-25),Rnd(25,GraphicsHeight()-25)) End If Next End Function Function SpawnPixel(x,y,d) pixel.pixel=New pixel pixel\x=x+Cos(d)25 pixel\y=y+Sin(d)25 pixel\speed_x=(rateCos(d))/1000 pixel\speed_y=(rateSin(d))/1000 pixel\age=255 End Function

Super Happy Snowball Warriors by Jayenkai for Workshop #127 Hit your opponent before he hits you. Spacebar Click to download this entry

Dusk Bounder by Eikon for Workshop #127 Bounce onwards... Cursors, Z to jump, X to boost. Click to download this entry

Shooter : Extreme by mole for Workshop #127 Shoot the Targets Mouse Click to download this entry

Black not White by magicman for Workshop #127 Catch the outlined squares, and avoid the filled ones. Cursors ;Start Time 5:30 ;Finish Time 5:59 ;Total TIme 0:29 ;CREATED BY MAGICMAN!! ;ALL YOU HAVE TO DO IS USE THE ARROW KEYS TO GET THE WHITE OUTLINED SQUARES WHILE AVOIDING THE PURE WHITE SQUARES!!! AppTitle "1 Hour, Well, it only really took 29 minutes" Graphics 400,600,16,2 AutoMidHandle True Type part Field x#,y#,xv#,yv#,c End Type Type block Field x#,y#,xv#,yv#,which End Type blockimage1 = CreateImage(20,20) SetBuffer ImageBuffer(blockimage1) Color 255,255,255 Rect 0,0,20,20,0 blockimage2 = CreateImage(20,20) SetBuffer ImageBuffer(blockimage2) Color 255,255,255 Rect 0,0,20,20,1 player = CreateImage(30,30) SetBuffer ImageBuffer(player) Color 255,255,255 Rect 0,0,30,30,0 Global px = 200 Global py = 550 Global score = 0 Global createblock = 0 Global blocktime = 10 Global diffin = 0 SetBuffer BackBuffer() While Not KeyDown(1) Cls SeedRnd MilliSecs() diffin = diffin + 1 If blocktime > 1 If diffin > 400 blocktime = blocktime - 1 diffin = 0 EndIf EndIf createblock = createblock + 1 If createblock => blocktime b.block = New block b\x = Rnd(20,380) b\y = -20 b\xv = Rnd(-2,2) b\yv = Rnd(3,7) b\which = Rnd(1,2) createblock = 0 EndIf If KeyDown(203) px = px - 6 If KeyDown(205) px = px + 6 If px =< 15 px = px + 6 If px => 385 px = px -6 For b.block = Each block If ImagesOverlap(player,px,py,blockimage1,b\x,b\y) If b\which = 2 score = 0 db = 1 blocktime = 10 EndIf If b\which = 1 score = score + 1 For i = 0 To 36 p.part = New part p\x = b\x p\y = b\y p\xv = Cos(angle)7 p\yv = Sin(angle)7 p\c = 255 angle = angle + 10 Next Delete b EndIf EndIf Next If db = 1 For b.block = Each block For i = 0 To 36 p.part = New part p\x = b\x p\y = b\y p\xv = Cos(angle)7 p\yv = Sin(angle)7 p\c = 255 angle = angle + 10 Next Delete b Next db = 0 EndIf For p.part = Each part Color p\c,p\c,p\c Rect p\x,p\y,2,2 p\x = p\x + p\xv p\y = p\y + p\yv p\c = p\c -5 If p\c < 5 Delete p Next For b.block = Each block If b\which = 1 DrawImage blockimage1,b\x,b\y If b\which = 2 DrawImage blockimage2,b\x,b\y b\x = b\x + b\xv b\y = b\y + b\yv If b\y > 650 Delete b Next If score > highscore highscore = score Color 255,255,255 Text 80,10,"SCORE: " + score Text 220,10,"HIGHSCORE: " + highscore DrawImage player,px,py Flip Wend End ;allniceandcompacted,itlookskindoflikeaskylinewhenviewedonitsside!

Catch A Cold by Forklift_Fred for Workshop #127 Catch a Cold! Cursors ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; One Hour Challenge ;; ;; ================== ;; ;; Take 2: Catch A Cold ;; ;; ;; ;; By Forklift_Fred ;; ;; For SoCodor's Wednesday Workshop ;; ;; #127 (28/11/07 - 04/12/07) ;; ;; Start - 19:15 ;; ;; Finish - 20:24 ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; AppTitle "60 Minutes - Catch A Cold" Graphics 800,600,32,2 SetBuffer BackBuffer() Type letter Field x Field y Field speed Field letter Field red Field green Field blue End Type Global fntArial,fntArialB,fntArialI,fntArialU ; Load fonts to a file handle variables fntArial=LoadFont("Arial",24) fntArialB=LoadFont("Arial",18,True) fntArialI=LoadFont("Arial",32,False,True) fntArialU=LoadFont("Arial",14,False,False,True) SetFont fntArialB SeedRnd MilliSecs() t=MilliSecs() dt=t+1000 player=400 time=100 wt=101 While Not KeyHit(1) Cls If MilliSecs()>dt Then t=dt dt=t+1000 time=time-1 End If If t>wt Then wt=t-Rnd(0,5) letter.letter=New letter letter\x=Rnd(0,600) letter\y=0 letter\speed=Rnd(1,5) letter\letter=Rnd(65,90) letter\red=Rnd(10,245) letter\green=Rnd(10,245) letter\blue=Rnd(10,245) End If If KeyDown(203) Then player=player-3 If KeyDown(205) Then player=player+3 If player<0 Then player=0 If player>800 Then player=800 For letter.letter=Each letter letter\y=letter\y+letter\speed Color letter\red,letter\green,letter\blue Text letter\x,letter\y,Chr$(letter\letter),1,1 If letter\y=>590 Then If letter\x>player-(StringWidth("___")/2) And letter\x<player+(StringWidth("___")/2) Then score=score+1 If letter\letter=67 Then score=score+1 c=c+1 If c=10 Then c=9 Else If letter\letter=79 Then score=score+1 o=o+1 If o=10 Then o=9 Else If letter\letter=76 Then score=score+1 l=l+1 If l=10 Then l=9 Else If letter\letter=68 Then score=score+1 d=d+1 If d=10 Then d=9 End If If c>0 And o>0 And l>0 And d>0 Then c=c-1 o=o-1 l=l-1 d=d-1 score=score+1000 colds=colds+1 End If lastletter=letter\letter Delete letter End If End If Next Color 255,255,255 Text player,590,"___",1,1 Color 180,200,255 Rect 0,0,800,22,1 Color 0,0,0 Text 3,3,time Text 793-StringWidth(RSet(score,4)),3,RSet(score,4) Color 0,0,255 If c>0 Then Text 120,3,"C" If o>0 Then Text 130,3,"O" If l>0 Then Text 140,3,"L" If d>0 Then Text 150,3,"D" Color 255,255,255 Text 120,20,c Text 130,20,o Text 140,20,l Text 150,20,d Color 255,0,0 Text 400,3,"Last letter caught : "+Chr$(lastletter),1,0 If time=0 Then Color 180,200,255 Rect 300,250,200,140 Color 255,0,0 Text 400,280,"GAME OVER",1,1 Text 400,305,"Your Score : "+score,1,1 Text 400,330,"Colds Caught : "+colds,1,1 Text 400,360,"Press Enter To Play Again",1,1 Flip FlushKeys() While Not KeyDown(28) Wend time=100 For letter.letter=Each letter Delete letter Next score=0 c=0 o=0 l=0 d=0 colds=0 End If Flip Wend End

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