|
Post by Umbrafire on Sept 6, 2005 17:10:17 GMT -5
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
|
|
|
Post by Azan on Sept 6, 2005 17:20:57 GMT -5
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.
|
|
|
Post by Umbrafire on Sept 6, 2005 18:22:13 GMT -5
((psst! who's gonna pay them?))
|
|
|
Post by Azan on Sept 6, 2005 18:34:58 GMT -5
(its just a dollar, I will
|
|
|
Post by Azan on Sept 6, 2005 19:49:24 GMT -5
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
|
|
|
Post by Azan on Sept 7, 2005 18:38:58 GMT -5
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.
|
|
|
Post by Azan on Sept 9, 2005 15:10:55 GMT -5
Deadline: Saturday, September 9th, 2005 Wait is it today or tommorow? because today friday is the 9th.
|
|
|
Post by Umbrafire on Sept 11, 2005 15:48:21 GMT -5
heh, it was supposed to be saturday, but I dont think anyone is paying attention anyway
|
|
|
Post by Azan on Sept 11, 2005 16:09:23 GMT -5
Looks like I win by default then w00t I get a dollar.. from me...
|
|
|
Post by Umbrafire on Sept 11, 2005 16:50:54 GMT -5
lol, maybe we should make it a monthly contest, or something
|
|
|
Post by Azan on Sept 11, 2005 16:51:38 GMT -5
Yeah, and we need to get Lobstrosity in on these too.
|
|