Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|723\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> #086 - The Tall Challenge
Tue, 06 Feb 2007, 16:54
Jayenkai	Wednesday Workshop #086 : The Tall Challenge Time until Deadline Week : 7 January 2007 The Reason : Looks like they're going to try to relaunch the NGage. Let's all laugh at the silly vertical screen! The Challenge : This week, create a game using a resolution of 320 x 600... Without it being a Tetris clone! Extra Info 320x600 is a nice workable resolution. Graphics 320,600,32,2 ^ Not sure how "Fullscreen" will cope, so stick with Windowed mode. Weekly Rules/How to Enter You have until Tuesday Night/Wednesday Morning 00:00 BST to submit your levels. ^ See Deadline Link! ^ Wed.Workshop is at SoCoder.co.nr. If you can read this, you're probably already there! Stick your entry underneath this post, leaving a link to your exe or the source of your game, or whatever. (I'll get round to allowing uploads sometime, honest!) If you can't figure it out, or have a really rubbish server, send it to Jayenkai@Gmail.com and I'll stick it straight onto the SoCoder (Official Wed.Workshop) site. Entries will be collected during the week, and entered into next week's voting. (If there are any entries..) All entries will be entered into voting which will take place if there's more than one entry.. Please try to keep all entries within small file sizes. 2Mb is the average maximum for files. Additional Rules are available at the SoCoder (Official Wed.Workshop) site, under the list of previous workshops. Last Week's Games Two entries, last week. Mike G got us to find rectangles, and Magicman opted to chase circles. Which game wins, You decide!! Comment on the entries, and don't forget to leave votes. The game with the highest rating at the end of the week is declared the winner. -=-=- ''Load, Next List!''
Thu, 08 Feb 2007, 00:20
skypenguin	In honour of our school being shut today due to lovely snow, I may enter. Yeay snow!
Thu, 08 Feb 2007, 08:01
power mousey	true, skypenguin enjoy your snow day. but, you'll probably have to make it up. We did when it snowed in Kirkland, Washington and our high school..Juanita High School...cancelled for a few days. I went sledding with my friends, played my music a lot, read up on the Narnia books, and especially caught up on my homework too. cheers, power mousey
Thu, 08 Feb 2007, 11:25
skypenguin	Well, it's closed tomorrow then there's the weekend, and next week is half term. So we're free for the next 11 days. Yipee. In my old school, there once was a Blizzard, and the school was closed for only 1 day, but no extra work at all. And the only homework we had was to revise for a test on Friday, which we won't be completing.
Thu, 08 Feb 2007, 14:53
magicman	i think i might make something in visual basic for this.... all i have to do is learn visual basic... -=-=- Stuff... Yeah...
Mon, 12 Feb 2007, 07:31
Jayenkai	Jay's Entry for the week. Block-o-Snake Use the cursors to control the snake. And yes, it does look a bit tetris'y! Graphics 320,600,32,2 SetBuffer BackBuffer() Type ect Field x,y,n,s End Type SeedRnd MilliSecs() Type il Field x,y End Type Global tl=15 Global tx=160 Global ty=400 tg=1 For n=1 To tl ta.il=New il ta\x=tx ta\y=ty Next Global endofgame gfx=CreateImage(16,16,50) SetBuffer ImageBuffer(gfx,1) For n=7 To 0 Step -1 Color 0,30n,0 Oval 7-n,7-n,16-(16-n/2),16-(16-n/2),1 Next SetBuffer ImageBuffer(gfx,2) For n=7 To 0 Step -1 Color 30n,20n,0 Oval 7-n,7-n,16-(16-n/2),16-(16-n/2),1 Next For n=0 To 10 SetBuffer ImageBuffer(gfx,10+n) Color n10+100,n10+100,n10+100 Oval 0,0,16,16,1 Color 0,0,0 Text 8,8,n,1,1 Next For n=3 To 8 SetBuffer ImageBuffer(gfx,n) LockBuffer ImageBuffer(gfx,n) For x=0 To 15 For y=0 To 15 g=Rand(100,130) If x=0 Or y=0 Then g=g+30 If x=15 Or y=15 Then g=g-30 If n=3 Then argb=(255 Shl 24)+(0 Shl 16)+(g Shl 8)+(0) If n=4 Then argb=(255 Shl 24)+(g Shl 16)+(g Shl 8)+(0) If n=5 Then argb=(255 Shl 24)+(g Shl 16)+(0 Shl 8)+(0) If n=6 Then argb=(255 Shl 24)+(0 Shl 16)+(g Shl 8)+(g) If n=7 Then argb=(255 Shl 24)+(0 Shl 16)+(0 Shl 8)+(g) If n=8 Then argb=(255 Shl 24)+(g Shl 16)+(g Shl 8)+(g) WritePixelFast(x,y,argb,ImageBuffer(gfx,n)) Next Next UnlockBuffer ImageBuffer(gfx,n) Next grass=CreateImage(320,600) LockBuffer ImageBuffer(grass) For x=0 To 320 For y=0 To 600 g=Rand(50,80) argb=(255 Shl 24)+(0 Shl 16)+(g Shl 8)+(0) WritePixelFast(x,y,argb,ImageBuffer(grass)) Next Next UnlockBuffer ImageBuffer(grass) SetBuffer BackBuffer() scry=0 move=180 level=100 Repeat Cls If Rand(0,50)=1 obj.ect=New ect obj\s=1 obj\x=Rand(10,294) obj\y=Rand(10,500) obj\n=Rand(530,1030) EndIf If Rand(0,(level/10))=1 And move=1 atx=Rand(0,20)16 aty=(Rand(-4,-12)16)+(scry Mod 16) b=Rand(2,6) c=Rand(3,8) For n=1 To b obj.ect=New ect obj\s=2 obj\x=atx obj\y=aty obj\n=c g=Rand(1,4) If g=1 Then atx=atx-16 If g=2 Then atx=aty+16 If g=3 Then aty=aty-16 If g=4 Then aty=aty+16 Next EndIf If move>1 Then move=move-1 If move=1 Then scry=scry+1 If KeyDown(208) And tg<>1 Then tg=2 If KeyDown(203) And tg<>4 Then tg=3 If KeyDown(205) And tg<>3 Then tg=4 If KeyDown(200) And tg<>2 Then tg=1 TileImage grass,0,scry If tg=1 Then ty=ty-2:If move=1 Then ty=ty-1 If tg=2 Then ty=ty+2 If tg=3 Then tx=tx-2 If tg=4 Then tx=tx+2 If move=1 Then ty=ty+1 n=0 For ta.il=Each il If (n Mod 2)=1 Then DrawImage gfx,ta\x,ta\y,1 If n=tl-1 Then DrawImage gfx,ta\x,ta\y,2 n=n+1 If n=tl Then ta\x=tx:ta\y=ty If n<tl Then tb.il=After ta.il ta\x=tb\x ta\y=tb\y If move=1 Then ta\y=ta\y+1 Next For obj.ect=Each ect kill=0 If move=1 Then obj\y=obj\y+1 If obj\s=1 g=((obj\n)/30)+1 If g<=0 Then kill=1:g=0 DrawImage gfx,obj\x,obj\y,g+10 obj\n=obj\n-1 If Abs((tx+4)-(obj\x+8))<9 And Abs((ty+4)-(obj\y+8))<9 Addtail(g):kill=1:score=score+g EndIf EndIf If obj\s=2 DrawImage gfx,obj\x,obj\y,obj\n If Abs((tx+4)-(obj\x+8))<9 And Abs((ty+4)-(obj\y+8))<9 s=tl/5 If s<5 Then s=5 RemTail(s):kill=1 EndIf EndIf If obj\y>600 Then kill=1 If kill=1 Then Delete obj.ect Next If tx<-6 Or tx>326 Or ty<-6 Or ty>606 Then endofgame=1 Color 0,0,0 Text 161,581,"Score : "+score,1,1 Color 255,255,255 Text 160,580,"Score : "+score,1,1 Flip If KeyDown(1) Then endofgame=99 Until endofgame<>0 Color 0,0,0 Text 161,281,"Game Over",1,1 Color 255,255,255 Text 160,280,"Game Over",1,1 Flip Delay 2500 Function Addtail(m) For n=1 To m ta.il=New il ta\x=tx:ta\y=ty:tl=tl+1 Next End Function Function RemTail(m) ta.il=First il For n=1 To m If tl>1 Then tb.il=After ta.il Delete ta.il If tl>1 Then ta.il=tb.il tl=tl-1 Next If tl<2 Then endofgame=1 End Function --v -=-=- ''Load, Next List!''
Mon, 12 Feb 2007, 08:38
Jayenkai	Sod it.. Here's another! It's a Speedboat! Cursors to guide the speedboat. Graphics 320,600,32,2 SetBuffer BackBuffer() SeedRnd MilliSecs() Dim water(4) For n=1 To 4 water(n)=CreateImage(320,600) LockBuffer ImageBuffer(water(n)) For p=1 To 5000 b=Rand(50,100) l=100 x=Rand(0,319) y=Rand(3,599) For e=1 To 4 argb=(255 Shl 24)+(l Shl 16)+(l Shl 8)+b+l WritePixelFast x,y,argb,ImageBuffer(water(n)) l=l/2:y=y-1 Next Next UnlockBuffer ImageBuffer(water(n)) MaskImage water(n),0,0,0 Next ClsColor 15,15,100 flr=CreateImage(320,600) chk=CreateImage(8,32) wake=CreateImage(32,32,26) MidHandle wake For n=0 To 25 SetBuffer ImageBuffer(wake,n) Color 140-(n5),140-(n5),255-(n5) Oval 16-(n/2),16-(n/2),n,n,0 Next boat=CreateImage(9,16) SetBuffer ImageBuffer(boat) For n=-30 To 30 Color 255,80,80 If n>-20 And n<20 Then Color 255,255,255 Line 4,0,4+Sin(n)30,0+Cos(n)30 Next HidePointer() box=1600 boy=5000 spx=0 spy=0 inl=50 inr=50 gol=Rand(-1,1) gor=Rand(-1,1) Type ke Field x,y,g,s End Type Repeat SetBuffer ImageBuffer(flr) CopyRect 0,0,320,594,0,6,ImageBuffer(flr),ImageBuffer(flr) Color 0,0,0 Rect 0,0,320,6,1 For n=5 To 0 Step -1 inl=inl+gol If Rand(1,50)=1 Then gol=Rand(-2,2) inr=inr+gor If Rand(1,50)=1 Then gor=Rand(-2,2) If inl<10 Then inl=10 If inr<10 Then inr=10 If inl+inr>2604 Then gol=Rand(-3,-1):gor=Rand(-3,-1) Color 180,255,0 Line 0,n,inl/4,n Line 320,n,320-(inr/4),n Color 0,255,0 Line 0,n,(inl/4)-5,n Line 320,n,320-((inr/4)-5),n Next SetBuffer BackBuffer() Cls scry=scry+1 For n=1 To 4 TileImage water(n),Sin((scryn)/4)(n4),scryn Next wa.ke=New ke wa\x=bx-4 wa\y=by wa\g=-1 wa\s=0 wa.ke=New ke wa\x=bx+4 wa\y=by wa\g=1 wa\s=0 spx=spx-KeyDown(203)+KeyDown(205) spy=spy-KeyDown(200)+KeyDown(208) If box<0 Then box=0:spx=0 If box>3200 Then box=3200:spx=0 If boy>6000 Then boy=6000:spy=0 If boy<4000 Then boy=4000:spy=0 box=box+spx boy=boy+spy bx=box/10 by=boy/10 For wa.ke=Each ke wa\x=wa\x+wa\g*Rand(1,3) wa\y=wa\y+Rand(5,6) wa\s=wa\s+1 show=wa\s+Rand(-1,1) If show<0 Then show=0 If show>25 Then show=25 DrawImage wake,wa\x,wa\y,show If wa\s=25 Then Delete wa.ke Next DrawImage flr,0,0 DrawImage boat,bx-4,by-16 tick=tick+1 If (tick Mod 4)=1 CopyRect bx-4,by-16,8,32,0,0,ImageBuffer(flr),ImageBuffer(chk) If ImagesCollide(chk,0,0,0,boat,0,0,0) Then endofgame=1 EndIf score=score+1 Color 0,0,0 Text 161,1,"Distance : "+score,1,0 Color 255,255,255 Text 160,0,"Distance : "+score,1,0 Flip If KeyDown(1) Then endofgame=99 Until endofgame<>0 Delay 2500 --v Note : Might be a bit slow, depending on how dead your system is! -=-=- ''Load, Next List!''
Mon, 12 Feb 2007, 10:44
mike_g	Hey that boat games fun. I played it 4 times. My best distance: 4701. Then I stopped because I felt like i was being hypnotized. Btw I got a 1.46ghz Athlon and it dint seem slow at all to me.
Tue, 13 Feb 2007, 16:55
Jayenkai	It's time again to close another workshop. Only 1 vote has been cast, this week, meaning Mike_G's Znaxish has won by a mile! Well done, Mike. -=-=- ''Load, Next List!''
Tue, 13 Feb 2007, 17:08
mike_g	Why do I always have to enter on the dead weeks Oh well at least I'm a winner I would have voted 5 for magicman if i wernt such a greedy bastard, so i spose we can call it a draw
Tue, 13 Feb 2007, 17:13
magicman	lol, you greedy bastard!

Block-o-Snake

It's a Speedboat!