Wednesday Workshop - BlitzCoder.net

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

Crystal Dome

by rhyswynne for Workshop #011

2 Minutes, collect over 100 gold tokens. For every silver you collect, 1 is deducted from your gold total. Mouse controlled

Mouse

Global gold = 0
Global silver = 0
Global timetoend=MilliSecs()+(2*35*1000)

SeedRnd MilliSecs()

Type tokens
	
	Field x
	Field y
	Field colour
	Field timeonscreen

End Type

For x = 0 To 100
	
	t.tokens = New tokens
	
	t\x = Rnd(160, 500)
	t\y = Rnd(100,380)
	t\colour = Rnd(0,1)
	t\timeonscreen = Rnd(500)

Next

Graphics 640, 480, 16, 2


crystal=MakeCrystal(480,480,255,255,255)
MidHandle crystal
Repeat
Cls
Text 0,0, "Gold: " + gold
Text 0,20, "Silver: " + silver
DrawImage crystal,320,240

timeleft=timetoend-MilliSecs()

If timeleft <= 0 Then endgame

loadtime(timeleft)

For t.tokens = Each tokens

	If t\colour = 0 Then Color 255, 255, 255
	If t\colour = 1 Then Color 255, 255, 0
	Rect t\x, t\y, 5, 5, 1

Next

If MouseHit(1) Then

For t.tokens = Each tokens

	
	If MouseX() < t\x + 20 And MouseX() > t\x - 20 And MouseY()  > t\y - 20 And MouseY() < t\y + 20 Then
	
	If t\colour = 0 Then silver = silver + 1
	If t\colour = 1 Then gold = gold + 1
	
	Delete t
	
	t.tokens = New tokens
	t\x = Rnd(160, 500)
	t\y = Rnd(100,380)
	t\colour = Rnd(0,1)
	t\timeonscreen = Rnd(500)
	
	End If

Next	

End If 

randomtokens()
	
Flip
Until KeyHit(1)

Function randomtokens()

	For t.tokens = Each tokens

		t\timeonscreen = t\timeonscreen - 1
		
		If t\timeonscreen = 0 Then
		Delete t
		
		t.tokens = New tokens
		t\x = Rnd(160, 500)
		t\y = Rnd(100,380)
		t\colour = Rnd(0,1)
		t\timeonscreen = Rnd(500)
		End If
	
	Next	

End Function

Function MakeCrystal(wide,high,r#,g#,b#)
	
	make=CreateImage(wide,high)
	SetBuffer ImageBuffer(make)

	For n=0 To 360 Step 36
		For m=0 To 360 Step 36
			
			d#=Float(Abs(180-m))/180
			If d>0 Then Color r*d,g*d,b*d
			Line (wide/2)+(Cos(n)*((wide/2)-1)),(high/2)+(Sin(n)*((high/2)-1)),(wide/2)+(Cos(n+m)*((wide/2)-1)),(high/2)+(Sin(n+m)*((high/2)-1))

		Next
	Next

	SetBuffer BackBuffer()
	Return make

End Function

Function loadtime(time)

	tsec$=Right$("000"+((time/1000) Mod 60),2)
	tmin$=Right$("000"+((time/1000) / 60),2)
	Text 400, 20,"Time Left: " + tmin$ + ":" + tsec$

End Function 

Function endgame()

	Cls
	total = gold - silver
	Repeat
	Text 0, 0, "Gold: " + gold
	Text 0, 20, "Silver: " + silver
	Text 0, 40, "Total: " + total
	If total < 100 Then
	Text 0, 60, "You lose!"
	Else
	Text 0, 80, "You Win!"
	End If
	Text 0, 100, "Press Escape"
	Flip
	Until KeyHit(1)
	End

End Function