Wednesday Workshop - BlitzCoder.net

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|564|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-

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,rate*4/1000,rate*4/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=(rate*Cos(d))/1000
	pixel\speed_y=(rate*Sin(d))/1000
	pixel\age=255
End Function