Weekly Blitz Challenge 01

[Umbrafire]

BLITZ CHALLENGE 01

Hello blitz programmers, today marks the start of our first weekly challenge, which I will update roughly every week.

Title: Guessing Game
Deadline: Saturday, September 9th, 2005
Rules:

• User must guess to win, thats all you need to have it do, but feel free to spice up your game with graphics, So theres really no limit as long as you have to guess to play the game.
  
• Dont use other peoples code, thats cheating and cheaters will be disqualified.
  
• Try not to use external media. (load image commands etc. etc.)
  

Remember, a game that is more spiced up, or fun/funny is more likely to win as there will be a vote to determine who wins

BTW please post here if you are planning on joining the challenge and you can recieve help from people, just dont use their source code

but most importantly, have fun!

Jiub

[Azan]

Please be sure to join (maybe there will be cash prizes if we get enough people playing... or not enough)

How bout a buck a game? it adds up if you win alot.

[Umbrafire]

((psst! who's gonna pay them?))

[Azan]

(its just a dollar, I will

[Azan]

Well heres part of mine, its not done yet and I think ill go down a different route :)

Graphics3D 1024,768
SetBuffer BackBuffer()

light=CreateLight()
Global cam=CreateCamera()
	PositionEntity cam,0,-20,0
Global sphere=CreateSphere()
	HideEntity sphere

;Dim a(5)
;For x=1 To 5
;	a(x)=x
;Next
Global ca=3 ;this determines what array you are on
Global badnum=1
Type sph
	Field x#,y#,z#,entity
	Field id
	Field r,g,b,alpha
	Field clicked
End Type

cs(1,-10,0,5)
cs(2,-5,0,5)
cs(3,0,0,5)
cs(4,5,0,5)
cs(5,10,0,5)

While Not KeyHit(1)
RenderWorld()
	PointEntity cam,sphere
	movement()	
Flip
Wend
End

Function movement()
	For s.sph=Each sph
		If KeyHit(203) Then
			ca=ca-1
		ElseIf KeyHit(205) 
			ca=ca+1
		EndIf
		If ca>=6 Then
			ca=1
		ElseIf ca<=0
			ca=5
		EndIf
		If s\id=ca And s\clicked=False Then
			EntityColor(s\entity,255,0,0)
		ElseIf Not s\id=ca And s\clicked=False
			EntityColor(s\entity,255,255,255)
		EndIf
		If KeyDown(57) And s\id=ca And s\clicked=False Then
			s\clicked=True
		EndIf	
		If s\clicked=True And s\id=badnum Then
			End
		EndIf
		If s\clicked=True Then
			EntityColor(s\entity,0,0,255)	
		EndIf
		If s\clicked=True And s\id=ca Then
			EntityColor(s\entity,255,0,255)	
		EndIf
		If s\id=ca And s\z#=>-8 Then
			s\z#=s\z#-.15
		EndIf
		PositionEntity s\entity,s\x#,s\y#,s\z#
	Next
			
	
	
End Function
Function cs(id,x#,y#,z#)
	s.sph=New sph
	s\x#=x#
	s\y#=y#
	s\z#=z#
	s\id=id
	s\entity=CopyEntity(sphere)
		PositionEntity s\entity,x,y,z
End Function

[Azan]

Well here is my final product, hasnt been tested on other systems and requires a video card to play.

How you play
Use the arrow keys to move around to select an object, hit the space bar to select it.
Your objective is to not get the bad one, as this will drop your score to 0, to win select every sphere except the bad one, see how many wins in a row you can get.

Graphics3D 500,500,0,2
SetBuffer BackBuffer()
SeedRnd MilliSecs()
light=CreateLight()
Global cam=CreateCamera()
	PositionEntity cam,0,-20,0
Global sphere=CreateSphere()
	HideEntity sphere
font=LoadFont("Ariel",24,1,0,0)
SetFont font
Dim a(5)
For x=1 To 5
	a(x)=0
Next
Global txt$
Global gd
Global ca=3 ;this determines what array you are on
Global num=Rnd(1,5)
Global win#=0
Global newgame=False
Type sph
	Field x#,y#,z#,entity
	Field id
	Field r,g,b,alpha
	Field clicked
End Type

cs(1,-10,0,5)
cs(2,-5,0,5)
cs(3,0,0,5)
cs(4,5,0,5)
cs(5,10,0,5)

While Not KeyHit(1)
If gd=True Then
	FlushKeys
	Delay 2000
	FlushKeys
	FlushKeys
EndIf
gd=False
RenderWorld()
	ng()
	PointEntity cam,sphere
	Text GraphicsWidth()/2,10,"Wins in a Row: "+win,1,1

	movement()
Flip
Wend
End

Function movement()
	For s.sph=Each sph
		If KeyHit(203) Then
			ca=ca-1
		ElseIf KeyHit(205) 
			ca=ca+1
		EndIf
		If ca>=6 Then
			ca=1
		ElseIf ca<=0
			ca=5
		EndIf
		If s\id=ca And s\clicked=False Then
			EntityColor(s\entity,255,0,0)
		ElseIf Not s\id=ca And s\clicked=False
			EntityColor(s\entity,255,255,255)
		EndIf
		If KeyDown(57) And s\id=ca And s\clicked=False And newgame=False Then
			s\clicked=True
			a(ca)=1
		EndIf	
		If s\clicked=True Then
			EntityColor(s\entity,0,0,255)	
		EndIf
		If s\clicked=True And s\id=ca Then
			EntityColor(s\entity,255,0,255)	
		EndIf
		If s\z<=5 Then
			If Not s\id=ca Then
				s\z#=s\z#+.1
			EndIf
		EndIf
		If s\id=ca And s\z#=>2 Then
			s\z#=s\z#-.3
		EndIf
		PositionEntity s\entity,s\x#,s\y#,s\z#
		newgame=False
		For x=1 To 5
			If a(x)=1 Then
				counter=counter+1
			EndIf
		Next
		If counter=4 Then
			newgame=True
			txt$="YOU WIN"
		EndIf
		If s\id=num And s\clicked=True Then 
			newgame=True
			txt$="YOU LOSE"
			win#=0
			ng()
		EndIf
		counter=0
	Next	
End Function

Function ng()
	For s.sph=Each sph
		If newgame=True Then
			num=Rnd(1,5)
			s\clicked=False
			If txt$="YOU WIN" Then
				win#=win#+.2
			EndIf
			For x=1 To 5
				a(x)=0
			Next
			Text GraphicsWidth()/2,100,txt$,1,1
			gd=True
		EndIf
	Next
End Function
Function cs(id,x#,y#,z#)
	s.sph=New sph
	s\x#=x#
	s\y#=y#
	s\z#=z#
	s\id=id
	s\entity=CopyEntity(sphere)
		PositionEntity s\entity,x,y,z
End Function

sadly this has ok graphics, but its very simple.

[Azan]

jiub said:

Deadline: Saturday, September 9th, 2005

Wait is it today or tommorow? because today friday is the 9th.

[Umbrafire]

heh, it was supposed to be saturday, but I dont think anyone is paying attention anyway

[Azan]

Looks like I win by default then w00t I get a dollar.. from me...

[Umbrafire]

lol, maybe we should make it a monthly contest, or something

[Azan]

Yeah, and we need to get Lobstrosity in on these too.