#153 - The 180x135 Challenge - Socoder

#153 - The 180x135 Challenge - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|657\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> #153 - The 180x135 Challenge
Tue, 27 May 2008, 17:04
Jayenkai	#153 - The 180x135 Challenge Still no ideas.. These are purely random, now! The Challenge Make a game that fits into 180x135 pixels. Click here for some nice scaling code, so that you can run in 720x540.. > Reveal 🔎 Graphics 720,540,32,2 Global screen=CreateImage(180,135) SetBuffer ImageBuffer(screen) Repeat Cls Text Rand(0,180),Rand(0,135),"Test",1,1 Scale:Flip Until KeyDown(1) Function Scale() SetBuffer BackBuffer():Cls SetBuffer ImageBuffer(screen) If dontscale=0 For x=0 To 179 For z=0 To 4 CopyRect x,0,1,135,(x4)+z,0,ImageBuffer(screen),BackBuffer() Next Next For y=134 To 0 Step -1 For z=0 To 4 CopyRect 0,y,720,1,0,((y4)+z),BackBuffer(),BackBuffer() Next Next EndIf End Function --v But be sure to only use the 180x135 space in the buffer provided! The Time Wed 21th May -> 28th May, 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, 2 entries. Gotta Vote 'em All! -=-=- ''Load, Next List!''
Fri, 30 May 2008, 07:11
Jayenkai	Graphics 720,540,32,2 Global screen=CreateImage(180,135) SetBuffer ImageBuffer(screen) ;180x135 px#=90:py#=67 MoveMouse 360,270 HidePointer() Type ect Field x#,y#,t,a,d Field life End Type gametime=0 Health=3 Repeat Cls pxs#=Float(MouseX()-360)/64 px#=px+pxs pys#=Float(MouseY()-270)/64 py#=py+pys Color 0,80,0 x=(MouseX()/4) y=MouseY()/4 Line 90,67,x,y For n=1 To health Color 140,0,0 Plot n2,1 Next x=179:y=0 Color 0,140,0 For n=1 To score/5 Plot x,y y=y+2 If y=10 Then y=0:x=x-2 Next For obj.ect=Each ect kill=0 obj\life=obj\life+1 If obj\t=1 If obj\life<60 Color 0,180,0 Line obj\x-2,obj\y,obj\x+2,obj\y Line obj\x,obj\y-2,obj\x,obj\y+2 EndIf If obj\life<120 Color 0,255,0 Line obj\x-1,obj\y-((obj\life/20) Mod 2),obj\x+1,obj\y+((obj\life/20) Mod 2) Line obj\x+((obj\life/20) Mod 2),obj\y-1,obj\x-((obj\life/20) Mod 2),obj\y+1 EndIf Color 180,255,180 Line obj\x,obj\y,obj\x,obj\y If obj\life=180 Then kill=1 If Abs(obj\x-px)<4 And Abs(obj\y-py)<4 Then kill=1:score=score+1 EndIf If obj\t=2 Color 255,0,0 Line obj\x-2,obj\y-(((obj\life/10)+5) Mod 2)2,obj\x+2,obj\y+(((obj\life/10)+5) Mod 2)2 Line obj\x+(((obj\life/10)+5) Mod 2)2,obj\y-2,obj\x-(((obj\life/10)+5) Mod 2)2,obj\y+2 Color 180,0,0 Line obj\x-1,obj\y-((obj\life/10) Mod 2),obj\x+1,obj\y+((obj\life/10) Mod 2) Line obj\x+((obj\life/10) Mod 2),obj\y-1,obj\x-((obj\life/10) Mod 2),obj\y+1 Color 255,180,180 Line obj\x,obj\y,obj\x,obj\y obj\x=obj\x-((obj\x-(px+Sin(obj\a)obj\d))/75) obj\y=obj\y-((obj\y-(py-Cos(obj\a)obj\d))/75) If obj\x<0 Then obj\x=obj\x+180 If obj\x>180 Then obj\x=obj\x-180 If obj\y<0 Then obj\y=obj\y+135 If obj\y>135 Then obj\y=obj\y-135 If Rand(0,25)=1 Then obj\a=obj\a+Rand(-5,5)10 If Rand(0,50)=1 Then obj\d=Rand(4,12)8 If Abs(obj\x-px)<4 And Abs(obj\y-py)<4 Then health=health-1:kill=1 EndIf If kill=1 Then Delete obj.ect Next Color 255,255,255 Line px,py,px,py If px<0 Then px=px+180 If px>180 Then px=px-180 If py<0 Then py=py+135 If py>135 Then py=py-135 gametime=gametime+1 If (gametime Mod 30)=0 Repeat x=Rand(10,170) y=Rand(10,125) Until Abs(x-px)>20 And Abs(y-py)>20 obj.ect=New ect:obj\x=x:obj\y=y:obj\t=1 EndIf If gametime=120 gametime=0 Repeat x=Rand(10,170) y=Rand(10,125) Until Abs(x-px)>20 And Abs(y-py)>20 obj.ect=New ect:obj\x=x:obj\y=y:obj\t=2 EndIf Scale:Flip If KeyDown(1) Then endofgame=99 If health=0 Then endofgame=1 Until endofgame<>0 Text 90,62,"Score",1,1 Text 90,74,(score/5),1,1 scale:Flip Repeat:Until MouseDown(1) Or KeyDown(1) ShowPointer() Function Scale() SetBuffer BackBuffer():Cls SetBuffer ImageBuffer(screen) If dontscale=0 For x=0 To 179 For z=0 To 4 CopyRect x,0,1,135,(x4)+z,0,ImageBuffer(screen),BackBuffer() Next Next For y=134 To 0 Step -1 For z=0 To 4 CopyRect 0,y,720,1,0,((y*4)+z),BackBuffer(),BackBuffer() Next Next EndIf End Function --v Another "Grab Green, Avoid Red" game again.. I think I've made about 20 of these, already! Still, this one's got some nice insane red things running around, so it makes things a little harder. Plus, you only get 1 point for every 5 green blobs you pick up! -=-=- ''Load, Next List!''
Wed, 04 Jun 2008, 08:13
Scherererer	Oh noes! I forgot to enter! oh well... here's my late entry Graphics 720,540,32,2 Const GWidth = 180, GHeight = 135 SeedRnd(MilliSecs()) Type Player Field x#, y# Field xv#, yv# Field img End Type Global p.Player = New Player p\x# = GWidth/2 p\y# = GHeight-15 p\img = CreateImage(5,5,2) SetBuffer ImageBuffer(p\img, 0) WritePixel 2, 0, $FF0000 WritePixel 1, 1, $FFFFFF WritePixel 3, 1, $FFFFFF WritePixel 2, 2, $FFFFFF WritePixel 1, 3, $0000AA WritePixel 3, 3, $0000AA WritePixel 0, 4, $FFFFFF WritePixel 4, 4, $FFFFFF SetBuffer ImageBuffer(p\img, 1) WritePixel 2, 0, $FF0000 WritePixel 1, 1, $FFFFFF WritePixel 3, 1, $FFFFFF WritePixel 2, 2, $FFFFFF WritePixel 2, 3, $0000AA WritePixel 1, 4, $FFFFFF WritePixel 3, 4, $FFFFFF Type Obsticle Field x#, y# Field xv#, yv# Field img End Type Global Oimg = CreateImage(5, 5, 4) SetBuffer ImageBuffer(Oimg, 0) Color 255, 150, 0 : Oval 0, 0, 4, 4, False Color 255, 255, 0 : Oval 1, 1, 2, 2, True SetBuffer ImageBuffer(Oimg, 1) Color 255, 150, 0 : Oval 1, 0, 2, 4, False Color 255, 255, 0 : Oval 2, 1, 1, 2, True SetBuffer ImageBuffer(Oimg, 2) Color 255, 150, 0 : Oval 2, 0, 1, 4, False SetBuffer ImageBuffer(Oimg, 3) Color 255, 150, 0 : Oval 1, 0, 2, 4, False Color 255, 255, 0 : Oval 1, 1, 1, 2, True Type Osplosion Field x#, y# Field frame End Type Function CreateOsplosion.Osplosion(x#, y#) os.Osplosion = New Osplosion os\x# = x# os\y# = y# os\frame = 0 End Function Global OsplosionImage = CreateImage(5, 5, 3) SetBuffer ImageBuffer(OsplosionImage, 0) Color 255, 150, 0 : Plot 2, 4 Color 255, 255, 0 : Plot 1, 4 : Plot 3, 4 : Plot 2, 3 SetBuffer ImageBuffer(OsplosionImage, 1) Color 255, 150, 0 : Plot 2, 2 Color 255, 255, 0 : Plot 1, 3 : Plot 4, 3 : Plot 2, 1 SetBuffer ImageBuffer(OsplosionImage, 2) Color 255, 150, 0 : Plot 2, 1 Color 255, 255, 0 : Plot 0, 2 : Plot 5, 5 : Plot 3, 0 Function CreateObsticle.Obsticle(x#=-27.15, y#=-5) o.Obsticle = New Obsticle o\x# = x# o\y# = y# o\yv# = 1 If o\x# = -27.15 Then o\x# = Rnd#(0, GWidth) o\img = Oimg End Function Global offset = 0 Global screen=CreateImage(180,135) SetBuffer ImageBuffer(screen) starttime = MilliSecs() timer = CreateTimer(25) While Not KeyDown(1) Cls lulz = RSet$(Str$(MilliSecs() - starttime), 8) Text 0,10, Left$(RSet$(Str$(MilliSecs() - starttime), 8), 5) + "." + Right$(lulz, 3) Text 0,0, coins + ":" + lost + "::" + Left$(Str$(Float(coins)/lost), 4) For os.Osplosion = Each Osplosion DrawImage OsplosionImage, os\x#, os\y#, os\frame os\frame = os\frame + 1 If os\frame = 3 Delete os EndIf Next If Rand(0, 15) = 1 Then CreateObsticle() For o.Obsticle = Each Obsticle o\y# = o\y# + o\yv# DrawImage o\img, o\x#, o\y#, f2 f2 = MilliSecs()/200 Mod 4 If ImagesOverlap (o\img, o\x#, o\y#, p\img, p\x#, p\y#) coins = coins + 1 Delete o Else If o\y# > GHeight-15 CreateOsplosion(o\x#, o\y#) lost = lost + 1 Delete o EndIf Next Line 0, GHeight-10, GWidth, GHeight-10 If KeyDown(203) p\x# = p\x# - 1.5 Else If KeyDown(205) p\x# = p\x# + 1.5 EndIf DrawImage p\img, p\x#, p\y#, frame frame = MilliSecs()/200 Mod 2 If lost > 5 And Float(coins)/lost < .7 End EndIf WaitTimer( timer) Scale: Flip Wend End ; Thanks Jay! Function Scale() SetBuffer BackBuffer():Cls SetBuffer ImageBuffer(screen) If dontscale=0 For x=0 To 179 For z=0 To 4 CopyRect x,0,1,135,(x4)+z,0,ImageBuffer(screen),BackBuffer() Next Next For y=134 To 0 Step -1 For z=0 To 4 CopyRect 0,y,720,1,0,((y4)+z),BackBuffer(),BackBuffer() Next Next EndIf End Function --v Coinfall! collect the coins, but maintain a ratio of collected : missed of atleast .7 You get the first few drops of leeway, enjoy! -=-=- YouTube Twitter Computer Science Series: Logic (pt1) (part 2) (part 3) 2's Complement Mathematics: Basic Differential Calculus

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

#153 - The 180x135 Challenge - Socoder