Forum - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|394\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Wednesday Workshop -> #200 - The 2000 Challenge!
Tue, 05 May 2009, 15:31
Jayenkai	#200 - The 2000 Challenge The Challenge No more than 100 characters wide, and a maximum of 20 lines. That's 2000 characters to make the best game that you can! Get to it!!! The Time Wed 6th May -> 13th May, 2009 You have until this timer hits zero to complete your entry. For the record, that's Tue/Wed, midnight GMT*. (Although that's more frequently becoming "When I bother to wake up, on a Wednesday morning") 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. -=-=- ''Load, Next List!''
Tue, 05 May 2009, 23:49
Afr0	Uhm? 2000 characters? Surely you mean 2000 pixels? -=-=- Afr0 Games Project Dollhouse on Github - Please fork!
Wed, 06 May 2009, 00:08
shroom_monk	No, 2000 characters. Of code. We did something similar for #100, with 100x100, but this turned out to be plenty of space. -=-=- A mushroom a day keeps the doctor away... Keep It Simple, Shroom!
Wed, 06 May 2009, 00:26
JL235	I have an entry in mind for this, I might also try a new language for it.
Thu, 07 May 2009, 16:28
flying_cucco	Minesweeper Just a quicky.
Thu, 07 May 2009, 18:19
Jayenkai	Graphics 800,600,32,2:SetBuffer BackBuffer():SeedRnd MilliSecs():Function c(n):Color 0,0,n End Function:v=200:Function r():Return Rand(200):End Function:h=10:sc=0:s#=0:sx#=2800:sy#=2900 e=CreateImage(12,12):SetBuffer ImageBuffer(e):c($FFFFFF):Oval 0,0,11,11,1:b=CreateImage(32,32,2) x#=400:y#=300:MoveMouse 400,300:dx#=0:dy#=0 Dim tr#(60,2):Dim map(v,v):For n=1 To 1500:map(r(),r())=1:Next:d=0:w=5600:Gosub joy Repeat:Cls:ax#=MouseX():ay#=MouseY():x=x-((x-ax)/8):y=y-((y-ay)/8):tr(60,1)=x:tr(60,2)=y If r()=1:d=0:EndIf:If d=0:dx=0:dy=0:EndIf:For n=1 To 59:tr(n,1)=tr(n+1,1)-dx:tr(n,2)=tr(n+1,2)-dy DrawImage e,tr(n,1)-5,tr(n,2)-5:Next:sx=sx+dx:sy=sy+dy If d=0 And Rand(25)=1:d=Rand(1,4):EndIf:t=t+1:If t>800:Gosub joy:EndIf For j=0 To v:For k=0 To v:If map(j,k)>0:DrawImage b,j32-sx,k32-sy,map(j,k)-1 If Abs(((j32-sx)+16)-x)<12+(map(j,k)6) And Abs(((k32-sy)+16)-y)<12+(map(j,k)6) If map(j,k)=1:h=h-1:EndIf:If map(j,k)=2:sc=sc+1:EndIf:map(j,k)=0:EndIf:EndIf:Next:Next If d=1:dy=-s:dx=0:EndIf:If d=2:dx=s:dy=0:EndIf:If d=3:dy=s:dx=0:EndIf:If d=4:dx=-s:dy=0:EndIf If sx<0:sx=0:d=0:EndIf:If sy<0:sy=0:d=0:EndIf:If sx>w:sx=w:d=0:EndIf:If sy>w:sy=w:d=0:EndIf:dx=dx/2 dy=dy/2:Text 200,0,"Level "+Int(s),1:Text 400,0,"Score "+sc,1:Text 600,0,"Health "+h,1:If r()=1 j=r():k=r():If map(j,k)=0:map(j,k)=2:EndIf:EndIf:c($FFFFFF):If h<=0:die:EndIf:Flip:Until KeyDown(1) .joy:SetBuffer ImageBuffer(b,0):Color r(),r(),r()+50:Rect 0,0,32,32,1:SetBuffer ImageBuffer(b,1) Color r(),r(),r()+50:Oval 0,0,32,32,1:SetBuffer BackBuffer():s=s+1:ClsColor Rand(40),Rand(40),0 For n=1 To 150:j=r():k=r():If Abs((j32-sx)-x)>v And Abs((k32-sy)-y)>v:map(j,k)=(Rand(1,5)/4)+1 EndIf:Next:d=Rand(1,4):w=5600:t=0:Return:Function die():f=0:Repeat:f=f+1:c(Rand($FFFFFF)) Text 400,300,"Game Over",1,1:Flip:Until f=120:WaitKey():End:End Function --v .exe My code looks just as bad as Cucco's! Yeay -=-=- ''Load, Next List!''
Fri, 08 May 2009, 23:41
cthug	pong2000c A simple pong; with horizontal movement. Written in freeBASIC using SDL for rendering. Sorry I cheated, the codes a little longer than 2000 characters (3500 characters, 33 lines), but It is difficult when you use SDL, becuase it can take 9 statements just to draw a sprite. EG: src.w = 16 src.h = 16 src.x = 64 src.y = 0 dest.w = 16 dest.h = 16 dest.x = ball.x dest.y = ball.y SDL_BlitSurface(gfx, @src, video, @dest) --v Oh well SDL is still a great library, one of my favorites; with openGL. AI: paddle(1).y += (ball.y - paddle(1).y) * (ball.x / (640 * 2)) * (ball.x / (640 * 2)) --v 640 being the window width and paddle(1) being the computer's paddle. download - source & media download - linux binary & media Haven't got freeBASIC on my windows machine so I haven't included a windows binary but you can compile easily, because I included a windows makefile. (makefile.win) -=-=- CTHUG.co.nr Get Ubuntu
Sat, 09 May 2009, 00:20
Jayenkai	Keep at it, you're getting there.. Reduce the unneccessary error messages. Shorten variable names, bl for Ball, pd for Paddle, ds for dest, etc. "dim prevTime as integer:dim nowT as integer:dim timeLeft as integer" .. all three seem completely unused. use select:case with "event.key.keysym.sym" to shorten even more, so you don't have to have "event.key.keysym.sym" half-a-dozen times. It can be done.. -=-=- ''Load, Next List!''
Sat, 09 May 2009, 00:24
cthug	Oh yeah I did make a frame per second setty thing, and font renderer for score but it was far too large, I will reduce variable size and use select, It won't get under 2000 chars tho -=-=- CTHUG.co.nr Get Ubuntu
Sat, 09 May 2009, 01:15
cthug	Ok, I deleted the unused variables, changed all var names to just 2 characters, changed integer types to short, got rid of error messages, put in select - case statement instead if(event.key.keysym.sym). Down to about 2600 chars, 29 lines. Thank god for find/replace . I am installing freebasic on windows with gcc/mingw, so I will post windows binary soon \|edit\| Downloads: \|edit\| Download - Source Download - Linux binary Download - Win32 binary -=-=- CTHUG.co.nr Get Ubuntu
Sat, 09 May 2009, 18:15
Phoenix	C + Windows API + OpenGL = Really bad choice for trying to make slim code. #include<windows.h>// This game could've been slightly more interesting if these preprocessor #include<gl/gl.h>// macros didn't have to be on individual lines. Oh well. It runs, at least! char* i="ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿàø?üþþÿÿÿÿÿÿÿÿÿûÿ{þþ?üøààø?üðàÿÀÿÿÿÿÿÿÿÿÿßÞþ?ü" "øààø?üþþÿÿÿÿÿÿÿÿÿÿùßÎÆ?ÄÀÀàø#ücþsþûŸÿÿÿÿÿÿÿÿÿÿþþ?üøàD\"nvþþþþþþsÎsÎwîþ?ü?üøà"; long CALLBACK W(HWND h,UINT m,WPARAM w,LPARAM l){if(m==16)exit(0);return DefWindowProc(h,m,w,l);} int WinMain(HINSTANCE H,HINSTANCE L,LPSTR G,int Z){HDC d;WNDCLASS c;PIXELFORMATDESCRIPTOR p;char* j =malloc(50);int u=0;HWND h;HGLRC r;MSG m;int k[6];int x,y;RECT R={0,0,192,192};int X=1,Y=1,D=1; for(x=0;x<6;++x)k[x]=rand()%7+2;memset(&c,0,40);c.hInstance=H;memset(&p,0,40);c.lpszClassName="W"; c.lpfnWndProc=&W;RegisterClass(&c);AdjustWindowRect(&R,3<<22,0);h=CreateWindow("W","",3<<22,1<<31,1 <<31,R.right-R.left,R.bottom-R.top,0,0,H,0);d=GetDC(h);SetPixelFormat(d,ChoosePixelFormat(d,&p),&p) ;r=wglCreateContext(d);wglMakeCurrent(d,r);ShowWindow(h,5);glPixelStorei(3317,1);glMatrixMode(5889) ;glLoadIdentity();glViewport(0,0,192,192);glOrtho(0,192,192,0,-1,1);glTranslatef(0.375,0.375,0.); glMatrixMode(5890);ShowCursor(0);for(;;){if(GetAsyncKeyState(38))D=2;if(GetAsyncKeyState(40))D=3;if (GetAsyncKeyState(37))D=0;if(GetAsyncKeyState')D=1;if(GetAsyncKeyState(27))break;if(D/2<1)X+=D2 -1;if(D/2>0)Y+=(D-2)2-1;for(x=0;x<6;++x)do{k[x]+=rand()%3-1;}while(k[x]<1\|\|k[x]>10);for(x=0;x<3;++ x){glRasterPos2i(k[x]16,16+k[x+1]16);glBitmap(16,16,0,0,0,0,i+32+432);if(X==k[x]&&Y==k[x+1])exit (0);}for(y=0;y<12;++y)for(x=0;x<12;++x){if(x%11==0\|\|y%11==0){if(X==x&&Y==y)exit(0);glRasterPos2i(x 16,15+16y);glBitmap(16,16,0,0,0,0,i);}}glRasterPos2i(X16,16+Y16);glBitmap(16,16,0,0,0,0,i+32+D 32);if(PeekMessage(&m,0,0,0,1)){TranslateMessage(&m);DispatchMessage(&m);}SwapBuffers(d);Beep(400, 400);glClear(16384);u+=10;strcpy(j,"Score: ");_itoa(u,j+7,10);SetWindowText(h,j);}free(j);} --v I worked pretty hard trying to get it to fit into the 100x20 box It was supposed to be pacman, but I soon realized that there wasn't enough space for that. Two more lines and I could probably have done something more interesting Download
Sun, 10 May 2009, 02:20
Afr0	o_O How do you control it? What's the objective? -=-=- Afr0 Games Project Dollhouse on Github - Please fork!
Sun, 10 May 2009, 03:36
Phoenix	You control it with the cursor keys, and you're supposed to avoid the ghosts for as long as possible.
Wed, 13 May 2009, 02:52
Jayenkai	It's been AGES since I closed off a WW, so let's give this a go. 1. Cucco's game gave me a blank area, so I had to guesstimate it's style using the gfx provided. 2. Mine worked. 3. I tried to download cthug's, but every time I downloaded the win-binary, the zip file was corrupt 4. I can only hope that Phoenix's was seriously messed up on my system, 'cos otherwise.. wtf was that about!?! Well done all. -=-=- ''Load, Next List!''
Wed, 13 May 2009, 03:19
cthug	Lol, probably should check the files, here is a non corrupty zip. -=-=- CTHUG.co.nr Get Ubuntu
Wed, 13 May 2009, 03:30
Jayenkai	Ta muchly!
Wed, 13 May 2009, 04:56
flying_cucco	Mine worked too! Try re-downloading, Jayenkai. I unwittingly posted a borked version, and fixed it a few hours later. If the screen was blank you probably have the old one.
Fri, 15 May 2009, 05:52
CodersRule	Yeah a few days ago I tried 1, 2, and 3 on Jay's list and got the same results as his. EDIT: Oh yeah now I remember! Phoenix's crashed my system and gave me a "serious error". I vote Phoenix.
Fri, 15 May 2009, 13:29
Phoenix	Ha, perhaps I shrunk it too much then. Or you can consider it an easter egg

#200 - The 2000 Challenge

The Challenge

The Time

The Rules