#173 - The 5 Objects Challenge - Socoder

#173 - The 5 Objects Challenge - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|428\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> #173 - The 5 Objects Challenge
Tue, 14 Oct 2008, 16:18
Jayenkai	#173 - The 5 Objects Challenge Only draw 5 things.. The Challenge Create a game that only has 5 things onscreen each frame. Walls count as a thing, as do circles, or lines, or a 3D object, or a banana sprite, or anything else.. Only 5 per frame.. Feel free to have a million objects lining a huge scrollable area, so long as only 5 ever show up.. The Time Wed 15th October -> 22nd October, 2008 You have until this timer hits zero to complete your entry. For the record, that's Tue/Wed, midnight GMT. The Rules You're free to reuse functions here and there, if it helps speed up your dev-time. Old art and audio, are pretty much expected, since we don't all have time to create fully working masterpieces within the space of a week! Other than that, the main coding for each week's task should be pretty much created within the time allocated. If you use other people's art/sound/functions, give credit where credit's due. To enter, post your game below. If you can't find anywhere decent to host it, send it to Jayenkai@Gmail.com Additional rules are available here. Last Week Last week, Pio entered. Forklift_Fred posted his Maze code, too, but I can't tell if that was meant to actually be an entry or not! shrugs I'll post Pio's game into the WW archive as soon as I'm more awake -=-=- ''Load, Next List!''
Wed, 15 Oct 2008, 12:45
Phoenix	An old favourite, then. I probably won't have the time to enter, though...
Thu, 16 Oct 2008, 02:09
Jayenkai	Absolutely.. Nothing wrong with classic workshops! Entry #1 (because 5 object games aren't exactly huge!!) Graphics 800,600,32,2 SetBuffer BackBuffer() HidePointer() Dim objx#(3) Dim objy#(3) Dim objs#(3) Dim objgx#(3) Dim objgy#(3) Dim objt(3) .start SeedRnd MilliSecs() For n=1 To 3 Gosub Newo Next MoveMouse 200,300 px#=200 py#=300 endofgame=0 score=0 Repeat Cls aimx=MouseX() aimy=MouseY() px#=px-((px-aimx)/16) py#=py-((py-aimy)/16) mx#=Float(MouseY()).75 my#=Float(MouseX())1.33333 mx#=800-MouseX() my#=600-MouseY() Color 255,0,0 Rect px-8,py-8,16,16,1 Color 0,255,0 Rect mx-8,my-8,16,16,1 If Abs(px-mx)<14 And Abs(py-my)<14 Then endofgame=1:a=4:b=5 For n=1 To 3 objx(n)=objx(n)+objgx(n) objy(n)=objy(n)+objgy(n) If objx(n)<0 Then objx(n)=0:objgx(n)=Abs(objgx(n)) If objx(n)>800 Then objx(n)=800:objgx(n)=-Abs(objgx(n)) If objy(n)<0 Then objy(n)=0:objgy(n)=Abs(objgy(n)) If objy(n)>600 Then objy(n)=600:objgy(n)=-Abs(objgy(n)) Color 100,255,100 If objt(n)=1 Then Color 255,100,100 Rect objx(n)-(objs(n)/2),objy(n)-(objs(n)/2),objs(n),objs(n),0 If Abs(mx-objx(n))<(objs(n)/2)+6 And Abs(my-objy(n))<(objs(n)/2)+6 t=objt(n) If t=0 Then score=score+(128-objs(n)):Gosub Newo If t=1 Then endofgame=1:a=4:b=n EndIf If Abs(px-objx(n))<(objs(n)/2)+6 And Abs(py-objy(n))<(objs(n)/2)+6 t=objt(n) If t=0 Then Endofgame=1:a=5:b=n If t=1 Then score=score+(128-objs(n)):Gosub newo EndIf Next Flip If KeyDown(1) Then endofgame=99 Until endofgame<>0 For n=1 To 120 Cls Color Rand(255),Rand(255),Rand(255) If a<4 Then Rect objx(a)-(objs(a)/2),objy(a)-(objs(a)/2),objs(a),objs(a),Rand(0,1) Color Rand(255),Rand(255),Rand(255) If b<4 Then Rect objx(b)-(objs(b)/2),objy(b)-(objs(b)/2),objs(b),objs(b),Rand(0,1) Color Rand(255),Rand(255),Rand(255) If a=4 Or b=4 Then Rect mx-8,my-8,16,16,Rand(0,1) Color Rand(255),Rand(255),Rand(255) If a=5 Or b=5 Then Rect px-8,py-8,16,16,Rand(0,1) Color Rand(255),Rand(255),Rand(255) Text 400,300,"Game Over",1,1 Text 400,400,"Score : "+score,1,1 Flip Next End .Newo Repeat fin=1 s=Rand(8,64) x=Rand(100,700) y=Rand(100,500) If Abs(mx-x)<s+128 And Abs(my-y)<s+128 Then fin=0 If Abs(px-x)<s+128 And Abs(py-y)<s+128 Then fin=0 Until fin=1 objx(n)=x objy(n)=y objs(n)=s objgx(n)=Rnd(-2,2) objgy(n)=Rnd(-2,2) x=Rand(0,10) objt(n)=x>5 Return --v Green = inverted mouse Red = regular mouse Green gets greens, Red gets reds, and don't let them touch. Sorted. -=-=- ''Load, Next List!''

Copyright Jayenkai - 2017+ | Thanks to Shroom_Monk for CSS/Dev Tips | Uses a Jay-Tweaked version of CBParser.
Page Took : 0.091

#173 - The 5 Objects Challenge - Socoder