Write A Game in 24 hours Contest!

Miscellaneous Forums/General Discussion/Write A Game in 24 hours Contest!

I'm feeling inspired!

Rules:
Must be written with a Blitz Language.
Requires No External Media.
Single File.
Must be written within the 24hr window starting from this date - be honest.
Post code as entry.

Grey Alien

on what date? How do you prove you didn't cheat? Does it have to be 24 continuous hours or spread out over say a week.

sswift

SeedRnd MilliSecs() 
N = Rand(1, 10)
Print "I'm thinking of a number between 1 and 10"
A$ = Input$("What number am I thinking of?")
Select A$ = N
   Case True  Print "You guessed correctly!" 
   Case False Print "You guessed wrong.  Stupid!  You're so stupid!"
End Select

Grey Alien

haha what a pointless Case statement, what happended to good old IF ... THEN ... ELSE .. ENDIF, hmm actually thats more lines.

Grey Alien

oh yeah prize? ... and don't say "universal recognition as a coding god"! ;-)

sswift

"hmm actually thats more lines."

Exactly why I used it. I use case statements like this a lot instead of IF, because it is cleaner to read than this:

If A$ = N
   Print "You guessed correctly!"
Else
   Print "You guessed wrong.  Stupid!  You're so stupid!"
Endif

And I can do Select True for those nasty multiple nested IF else blocks:

Select True
   Case A > B Blah()
   Case B > C Blah()
   Case C > D Blah()
   Default Blah()
End Select

Rather than:

If A > B
   Blah()
Else
   If B > C
      Blah()
   Else
       If C > D
          Blah()
       Else
          Blah()
       Endif
   EndIf
EndIf

Techlord

the contest is over tomorrow at the same time of this post. im too busy programming my entry to really talk.

Grey Alien

haha lol frank, too busy.

sswift. Actually i prefer IF for a 2 case scenario but do use Select True for multiples as nested ifs are a pain in the butt. btw Megaman = poof!

hey just realised frank has got a head start!

Techlord

I've been told im a good for nothing pc bum, so i challenge anybody here to produce a funner game than i can within the next 24 hours. its put up or shut up time. hehe.

Grey Alien

#10

looks like you made your website in 24 hours too ;-) sorry that was mean.

CS_TBL

#11

Funny challenge, esp. the "no external media" rox :P

Techlord

#12

i have nothing negative to say about your works listed in your sig...

Grey Alien

#13

fair point frank, have you tried any btw?

Techlord

#14

tetroid, is very good and i cannot wait for iron fist. must get coding if im to win this contest.

CS_TBL

#15

B+ is allowed? (as in: run the game in a canvas, using events)

Grey Alien

#16

thanks frank you've made my day :-)

amd good luck in your compo btw, I cannot enter due to workload but do another one soon and maybe...

Techlord

#17

B+ is allowed

Techlord

#18

weapons are in

Techlord

#19

updated below

Grey Alien

#20

aw frank I can't compile it as I'm BPlus only, anyway keep going, burn that midnight oil (what time is it there anyway? it's 00:51 here (Tuesday morning).

Dark Half

#21

AppTitle("Casino Simulator Deluxe")
Purse%=500
ThisBet%=5
ThisGame=0
While ThisBet<>0 And Purse > 0
	ThisGame=ThisGame+1
	Print "====================================================="
	Print "  Game:"+ThisGame+" Purse: $"+Purse%
	ThisBet = Int(Input("  How Much To Bet (Default $1, 0 to quit)?"))
	If ThisBet > 0 And ThisBet <= Purse Then
		Odds = Rnd(1,4)
		If Odds = 1 Then
			Print "****    You Win $"+(ThisBet)+"    ****"
			Purse = Purse + ThisBet
		ElseIf Odds = 2 Then
			Print "****    Draw!    ****"
		Else
			Print "****    You Loose $"+ThisBet+"    ****"
			Purse = Purse - ThisBet
		EndIf
	Else
		Print "  You Don't Have That Kind Of Cash!"		
	EndIf
Wend
Print "----------------------------------------------"
Print "You Walk Away With $"+Purse 
Print "--Press Any Key To Quit!--"
WaitKey()
End

Dark Half

#22

Not much, just figured I would start a new :-) Too bad I decided to start another one an hour ago, the deadline is coming close.

Type Block
	Field Img
	Field X,Y
	Field W,H
	Field Speed
End Type

Global PlayerImg,PlayerX,PlayerY,PlayerW,PlayerH

Graphics 640,480,32,2
SetBuffer(BackBuffer())



PlayerSetup(20,20)
CurLevel=1
CurTime = 0
CurScore=0
While Not KeyDown(1)
	If MilliSecs() - LastTime >= 1000 Then
		LastTime = MilliSecs()
		CurTime=CurTime+1
		CurScore=CurScore+100
	EndIf
	If CurTime > 20 Then CurLevel = CurLevel+1:CurTime=0
	Cls
	If CurLevel > 10 Then CurLevel = 10
	Spawn = Rnd(1,10 - CurLevel)
	If Spawn = 1 Then BlockCreate(Rnd(0,GraphicsHeight()),Rnd(14,25),Rnd(14,25),Rnd(1.0,4.0))
	If BlockUpdate(PlayerX,PlayerY,PlayerW,PlayerH) Then CurScore=CurScore-5
	PlayerUpdate()
	BlockDraw()
	Color 255,255,255
	Text 0,0,"Time:"+CurTime
	Text 0,10,"Score:"+CurScore
	Text 0,20,"Level:"+CurLevel
	Flip
Wend
End


Function BlockUpdate(ColX,ColY,ColW,ColH)
	Local Collision=0
	ColP1X = ColX - (ColW/2)
	ColP2X = ColX + (ColW/2)
	ColP1Y = ColY - (ColH/2)
	ColP2Y = ColY + (ColH/2)
	For This.Block = Each Block
		Colid1 = 0
		Colid2 = 0
		TW = This\W/2
		TH = This\H/2
		If ColP1X >= This\X - TW And ColP1X <= This\X + TW Then Colid1 = 1
		If ColP2X >= This\X - TW And ColP2X <= This\X + TW Then Colid1 = 1
		If ColP1Y >= This\Y - TH And ColP1Y <= This\Y + This\H Then Colid2 = 1
		If ColP2Y >= This\Y - TH And ColP2Y <= This\Y + TH Then Colid2 = 1
		If Colid1 And Colid2 Then Collision=1
		This\X = This\X - This\Speed
		If This\X <= (0-This\W) Then FreeImage(This\Img):Delete(This.Block)
	Next
	Return Collision
End Function

Function BlockDraw()
	For This.Block = Each Block
		DrawImage(This\Img,This\X,This\Y)
	Next	
End Function

Function BlockCreate(ThisY,ThisW,ThisH,ThisSpeed)
	This.Block = New Block
	This\W 			=ThisW
	This\H 			=ThisH
	This\X 			=GraphicsWidth() +This\W
	This\Y 			=ThisY
	This\Speed 		=ThisSpeed 
	This\Img 		=BlockSetup(ThisW,ThisH)
End Function

Function BlockSetup(ThisW,ThisH, CR=0, CG=0, CB=0)
	ThisImg 		=CreateImage(ThisW,ThisH)
	HandleImage(ThisImg,ThisW/2, ThisH/2)
	SetBuffer(ImageBuffer(ThisImg))
	If CR=0 And CG=0 And CB=0 Then
		ClsColor(255,Rnd(50,255),Rnd(50,255))
	Else
		ClsColor(CR, CG, CB)
	EndIf
	Cls
	SetBuffer(BackBuffer())
	ClsColor(0,0,0)
	Return(ThisImg)	
End Function

Function BlockStop()
	For This.Block = Each Block
		FreeImage(This\Img):Delete(This.Block)
	Next
End Function

Function PlayerSetup(ThisW,ThisH)
	PlayerW=ThisW
	PlayerH=ThisH
	PlayerImg = BlockSetup(ThisW,ThisH, 10, 50, 255)
End Function

Function PlayerUpdate()
	PlayerX=MouseX()
	PlayerY=MouseY()
	DrawImage(PlayerImg,PlayerX,PlayerY)
End Function

Grey Alien

#23

DH: Neat, it gets quite hard too!

Techlord

#24

DH - LOL. I ran into problem and i considered starting over myself.

Techlord

#25

...

Grey Alien

#26

please compile an .exe when done!

CS_TBL

#27

oh dread, I won't make it.. ._.

No 'Columns' from me this day.. 8kb worth of gfx (all in code :) works, cycle/move/build works, scan for triplets or bigger hasn't even started yet..

480 lines sofar, including about 160 for a 256x32 image with colorful marbles..

Techlord

#28

My entry. Its not exactly like i want. Post your entries regardless.

c e l l u l a r

CS_TBL

#29

btw, is there any handy way to check on triplets (and more)
for columns-type games? (horizontal/vertical/diagonal)

Scan the map for a marble and do recursive search for neighbour marbles of the same kind?

Or is there a waaaaaaaay simpler way?

Grey Alien

#30

I recently coded a similar thing, but it was quite lengthy, not sure there is a "quick way". Well mine only needs to pass through once, it donsn't need to recurse at all.

Techlord

#31

whos in favor of extending the contest?

CS_TBL

#32

*raises hand

.. in theory, can't guarantee I've time to finish it :P As I wrote above, I need to do scanning of marble-groups.. never did something like that, dunno if I even can do that.

1 day is *very* short btw (ppl also need to sleep, eat, watch some soap-operas, do shopping etc.).. the problem is not the time, I guess everyone could do a little crappy game in a day.. I bet however that most ppl want it to be a nice game, with some decent gfx.. Esp. when external files aren't allowed, ppl might have to invest some time in some store-in-code or store-in-data routines..

big10p

#33

puki

#34

Mmm, looks like another competition I am going to win - if I choose to enter.

Techlord

#35

Grey Alien,

I'll post a link for download when i go home.

(tu) ENAY

#36

How about a "Not Write A Game in 24 hours Contest!", now you've all won. :)

Ferminho

#37

Or "talk about the game you'll never finish in 24 hours"
That way we could all participate :D

Dark Half

#38

That way we could all participate :D

Including ENAY? :-P

Techlord

#39

cellular.exe

Techlord

#40

The contest has been extended for another 24 hours as of now! Hopefully we can get more entries.

Recap on the rules:
Must be written with a Blitz Language.
Requires No External Media.
Single File.
Post code here or in code archives as a entry.