Wednesday Workshop - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|616\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Wednesday Workshop #043 (05 Apr 2006) The Fast Challenge This week, you can make any game you like, but the game has to be FAST. It might help to use "Flip False", to get the game running as quick as possible. Don't let timings slow you down, go for broke. The faster the better..

X-Ziders - Take to the Skies by flame the great for Workshop #043 X-Ziders: Take to the Skies! Go and try it out! Joystick commands:<br>joystick/pad - move ship<br>button 1/2 - increase/decrease speed<br>button 3 = use turbo Click to download this entry

Fast Game by clownhunter for Workshop #043 Racing with Drugs! Cursors and Spacebar Click to download this entry

Typing Carnival by tnt23 for Workshop #043 Type the ball to the top of the poll! Keys ;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;Typing Carnival;;;;;;; ;;;Trinitro Studios;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;; ;Wednesday Workshop XXXIII; ;;;;;;;;;;;;;;;;;;;;;;;;;; Graphics 640,480, 16,2 SeedRnd(MilliSecs()) SetBuffer BackBuffer() AppTitle "Typing Carnival" ;;Constants;; Const a = 97 Const z = 122 ;;Fonts;; tahoma = LoadFont("Tahoma",26,True) times = LoadFont("Times New Roman",25) SetFont(tahoma) ;;Sounds/Music;; Global click = LoadSound(SystemProperty("windowsdir") + "\media\start.wav") Global chimes = LoadSound(SystemProperty("windowsdir") + "\media\chimes.wav") Global town = PlayMusic(SystemProperty("windowsdir") + "\media\town.mid") ;;<== in case of MAV comment out this line ChannelVolume town, 0.8 ;;<== and this line ;;Globals;; Global x = 320,y = 430 Global ckey Global start Global time,min,sec Global timest$ DisplayTitle(320,240) FreeFont tahoma : SetFont times SetBuffer(BackBuffer()) start = MilliSecs() While Not KeyHit(1) ClsColor Rand(45),Rand(65),Rand(75) Cls Color 255,255,255 DrawPole() DrawBall() UpdateInput() UpdateTime() DrawHUD(50,50) If y <= 0 Then GameOver() If town Then If Not ChannelPlaying(town) Then town = PlayMusic(SystemProperty("windowsdir") + "\media\town.mid") EndIf EndIf Delay 10 Flip Wend : End ;;Functions;; Function DisplayTitle(x,y) TypeText x,y, "TriNitro Studios",1,1 If KeyDown(1) Then End Delay 1000 PlaySound chimes For c = 255 To 0 Step -5 Color c,c,c Text x,y, "TriNitro Studios",1,1 If KeyDown(1) Then End Flip Next Color 255,255,255 TypeText x,y, "Typing Carnival",1,1 If KeyDown(1) Then End Delay 1000 PlaySound chimes For c = 255 To 0 Step -5 Color c,c,c Text x,y, "Typing Carnival",1,1 If KeyDown(1) Then End Flip Next End Function Function TypeText(x,y,tex$,centerx=0,centery=0) length = Len(tex$) If centerx Then x = x - (StringWidth(tex$)/2) If centery Then y = y - (StringHeight(tex$)/2) For typewriter = 1 To length currentstring$ = Left(tex$,typewriter) Text x,y,currentstring$ PlaySound click Delay 100 Flip Next End Function Function DrawPole() Color 255,255,255 Rect x-5,0,10,480 Color 0,255,0 Rect x-5,0,2,480 : Rect x+4,0,2,480 Rect x,0,1,480 Color 255,0,0 Rect x-5,y,2,480 : Rect x+4,y,2,480 Rect x,y,1,480 End Function Function DrawBall() Color 0,0,255 Oval x-25,y,50,50,1 End Function Function UpdateInput() If GetKey() = ckey ckey = Rand(a,z) y = y - 5 EndIf End Function Function DrawHUD(x,y) Color 0,0,0 Rect x,y,200,100,1 Color 255,0,0 Rect x,y,200,100,0 Rect x,y+30,200,2,1 Color 255,255,255 Text x+100,y+2,"STATS",1 Text x+100,y+40,"Time: " + timest$,1 Text x+100,y+70,"Press " + Upper(Chr(ckey)),1 End Function Function UpdateTime() time = MilliSecs()-start dec = (time/100) Mod 10 sec = (time/1000) Mod 60 min = (time/1000)/60 timest$ = min + ":" + sec + ":" + dec End Function Function GameOver() Cls Flip Cls SetBuffer(FrontBuffer()) Delay 200 : FlushKeys() Text 320,240,"Your Time: " + timest$,1,1 WaitKey End End Function

Fast Time!!! by magicman for Workshop #043 Dodge the fast stuff Cursors and Spacebar 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.092

Wednesday Workshop - Socoder