Wednesday Workshop - BlitzCoder.net

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

Red Light, Green Light!

by svrman for Workshop #084

Shake mouse as fast as you can to race! But beware, If you move during a red light ,you lose!

Mouse

;red traffic light game
;
;
;	How to Play!
;		Shake mouse as fast as you can to race!
;		But beware, If you move during a red light ,you lose!
;

Graphics 640,480,0,2

SetBuffer BackBuffer() 

game=1
win=0
oldmx=0 
oldmy=0
myDiff=0
px=0		;player variable
ex=0		;enemy variable
greenlight=0
tick=0
countdown=5000

; start the race
Repeat
Cls
	Coldtime=MilliSecs()
	If MilliSecs()<Coldtime+5000 Then
		countdown=countdown-50
	End If
	Text (640/2)-50,480/2,"READY TO RACE IN: "+countdown
Flip
Until KeyHit(1) Or countdown=0

Repeat 
Cls 

; mouse code
oldmy=MouseY()
mydiff=oldmy+MouseYSpeed()

oldmx=MouseX()
mxdiff=oldmx+MouseXSpeed()

	; mouse strength : default=150 : lower for a easier time :)
	; screenwidth is larger than screenheight if you was wondering...
	
If Abs(MouseY()-mydiff)>150 Then px=px+2
If Abs(MouseX()-mxdiff)>200 Then px=px+2


; ticker for enemy action
Eoldtime=MilliSecs()
If MilliSecs()<Eoldtime+1

go=Rand(0,100)
If go<15 And greenlight=1 Then ex=ex+1

End If

E2oldtime=MilliSecs()
If MilliSecs()<E2oldtime+1

go2=Rand(0,100)
If go2<5 And greenlight=1 Then ex2=ex2+3

End If

; ticker for light changes
	
	Loldtime=MilliSecs()
	If MilliSecs()<Loldtime+10000
		tick=tick+1
	EndIf
	
	If tick>100 Then
		greenlight=Rand(0,1)
		
		tick=0
	End If
	If greenlight=1 Then Color 0,255,0
	If greenlight=0 Then Color 255,0,0


Oval 450,50,50,50		;traffic light
Color 255,255,255

Rect 100+px,200,30,30	; player rect
color 100,100,100
Rect 100+ex,300,30,30	; enemy rect
Rect 100+ex2,400,30,30	; enemy rect

;result
	;
	; 0.25 ticks grace period.
	;	allows player time to react. Instant lose is no fun :-)
	;
If tick>25 Then
	If Abs(MouseX()-mxdiff)>25 And greenlight=0 Then win=0:game=0
	If Abs(MouseY()-mydiff)>25 And greenlight=0 Then win=0:game=0
End If

;win/lose triggers
If px=450 Then win=1:game=0
If ex=450 Then win=0:game=0
If ex2=450 Then win=0:game=0

Flip 

Until KeyHit(1) Or game=0

FlushKeys()

Cls
color 255,255,255
If win=1 Then
	Text (640/2)-30,(480/2),"WIN!"
Else
	Text (640/2)-30,(480/2),"LOSE!"
End If
Flip

WaitKey()
End