An Allegro Game in 20 lines of code

An Allegro Game in 20 lines of code - Possible?

nonnus29

Member #2,606

August 2002

After reading this, I thought, hmmm, that sounds a like a neat idea! There's a screen shot there of a raycaster. So how many lines of code (semicolon delimited for all you cheaters) would it take to make a game in allegro?

#include<allegro.h>

void main(void)  {
   BITMAP *backbuffer=NULL;
   int playing=1;
   allegro_init();
   install_keyboard();
   install_timer();
   set_gfx_mode(GFX_AUTODETECT,640,480,0,0);
   create_bitmap(SCREEN_W,SCREEN_H);
   while(playing)  { main loop in here}
   return;
}
END_OF_MAIN();

So whats that? 11 or 12? That leaves 8 entire lines to play with! Comeon who's up to the challenge?
8-)

link to my blog

23yrold3yrold

Member #1,134

March 2001

Semicolon delimiter? Eek. Lose the call to install_timer, and combine the buffer declaration with create_bitmap (what; you can't do that in C? Heh heh ). And check for key[KEY_ESC] instead of playing. And lose the newline right before END_OF_MAIN(), and the blank line after the #include. Brings it down to 9 lines, with 11 to play with.

create_bitmap() should return a variable to something, I presume ...

--
Software Development == Church Development
Step 1. Build it.
Step 2. Pray.

Bruce Perry

Member #270

April 2000

main() should return int.

Here's my offering:

1#include <allegro.h>
2int main(void) {
 int x[10]={320,320}, y[10]={460,460,-1,-1,-1,-1,-1,-1,-1,-1}, c[10]={11-12,14-12}, lives=5, i;
 allegro_init();
 install_keyboard();
 set_gfx_mode(GFX_AUTODETECT,640,480,0,0);
 while (lives > 0 && !key[KEY_ESC]) {
    x[0] = (x[0] + 640 + (!!key[KEY_RIGHT] - !!key[KEY_LEFT]) * 4) % 640;
    if ((y[1] -= 10) < 0) x[1]=x[0], y[1]=y[0];
    for (i = 2; i < 10; i++) {
       x<i> = y<i>++ >= 0 ? (x<i> + 639 + (rand()&2)) % 640 : rand() % 640;
       if (MAX(ABS(x<i>-x[1]), ABS(y<i>-y[1])) < 20) y<i> = -1-rand()%64;
       if (y<i> >= y[0]) y<i> = -1-rand()%64, lives--;
    }
    for (i = 0; i < 10; i++) if (y<i> >= 0) circlefill(screen, x<i>, y<i>, 8, c<i>+12);
    rest(40);
    for (i = 0; i < 10; i++) if (y<i> >= 0) circlefill(screen, x<i>, y<i>, 8, 0);
 }
 return 0;
20} END_OF_MAIN();

--
Bruce "entheh" Perry [ Web site | DUMB | Set Up Us The Bomb !!! | Balls ]
Programming should be fun. That's why I hate C and C++.
The brxybrytl has you.

Thomas Fjellstrom

Member #476

June 2000

heh. cool... Its got problems though when the ball that is fired reaches the line of balls, all the balls reset (or so it seems).

--
Thomas Fjellstrom - [website] - [email] - [Allegro Wiki] - [Allegro TODO]
"If you can't think of a better solution, don't try to make a better solution." -- weapon_S
"The less evidence we have for what we believe is certain, the more violently we defend beliefs against those who don't agree" -- https://twitter.com/neiltyson/status/592870205409353730

Bruce Perry

Member #270

April 2000

Right - I was still working on it. You happened to get the first, severely broken version. Trust me to be overzealous

Finalised now

--
Bruce "entheh" Perry [ Web site | DUMB | Set Up Us The Bomb !!! | Balls ]
Programming should be fun. That's why I hate C and C++.
The brxybrytl has you.

Karadoc ~~

Member #2,749

September 2002

Bruce Perry; that's some damn nice work!
To tell you the truth, I didn't think anyone would be able to do it (and have it still look like a game).

-----------

Thomas Fjellstrom

Member #476

June 2000

heh teh collision detection is a bit loose. but I like it

Evert

Member #794

November 2000

And it's actually sortof fun too!

miran

Member #2,407

June 2002

Do you want to see my "game" that does more or less the exact same thing? No less than 539 lines!

--
sig used to be here

spellcaster

Member #1,493

September 2001

Here's another 20 line game:

1#include <allegro.h>
2int main(int argc, char** argv) {
  float speed_x = 0, speed_y = 0, gravity = 1.0, accel = 2.5, pos_x=320,pos_y=200, d;
  int  obj_x[10], obj_y[10],a, init = 1, ships = 4, score = 0, count = 0;
  BITMAP *buffer;
  allegro_init(), set_color_depth(16), set_gfx_mode(GFX_AUTODETECT_WINDOWED, 640, 480, 0, 0), install_keyboard(), install_timer(), clear(screen), buffer = create_bitmap(SCREEN_W, SCREEN_H), clear(buffer);    
  while (ships && !key[KEY_ESC]) {        
      clear(buffer), circlefill(buffer, (int)pos_x, (int) pos_y, 10, makecol(200,200,200));
      if ((init = (count <= 0))) for (a=0; a < 10; a++)  obj_x[a] = rand()%SCREEN_W, obj_y[a] = rand()%SCREEN_H, count = 5, textout_centre(buffer, font,  "Get Ready", 320, 100, makecol(230,230,230));
      pos_x = (pos_x > SCREEN_W && speed_x > 0.0) ? -10 : (pos_x < 10 && speed_x < 0.0) ? SCREEN_W : pos_x + speed_x;
      pos_y = (pos_y > SCREEN_H && speed_y > 0.0) ? -10 : (pos_y < 10 && speed_y < 0.0) ? SCREEN_H : pos_y + speed_y;
      speed_x = MID(-14.0, speed_x + (key[KEY_LEFT] ? (-accel) : (key[KEY_RIGHT]  ? accel : 0)), 12.0);
      speed_y = MID(-14.0, speed_y + (key[KEY_UP]   ? (-accel) : (key[KEY_DOWN]   ? accel : 0)) + gravity, 12.0);        
      for (a=0; a < 10; a++) 
          if ((d = obj_x[a] >= 0 ? ((pos_x - obj_x[a]) * (pos_x - obj_x[a]) + (pos_y - obj_y[a]) * (pos_y - obj_y[a])) : -10) >=0) 
              circlefill(buffer, obj_x[a], obj_y[a], 10, a >=5 ? makecol(200,0,0) : makecol(0,200,0)), ships -= (a>=5 && d < 400)? 1 : 0, count -= (a<5 && d < 400)? 1 : 0, score += (a<5 && d < 400)? 10 : 0,obj_x[a] = d < 400 && d >=0 ? -1 : obj_x[a];                
      rest(60), textprintf_centre(buffer, font, 320, 10, makecol(100,100,230), "Score:%04i   Ships: %02i", score, ships), blit(buffer, screen, 0,0,0,0,SCREEN_W, SCREEN_H);
      if (init)  init = 0, rest(1200); 
  } return 0;
20} END_OF_MAIN();

Collect all the green balls. Don't hit the red balls. You can hit up to 4 red balls before it's game over... unlimited number of dynamic generated levels.

Oh, and if I only count the semicolons, I could get it down to 14 lines.

--
There are no stupid questions, but there are a lot of inquisitive idiots.

Bruce Perry

Member #270

April 2000

My own post said:

main() should return int.

Nice game though. Much less subtle abuse of Teh Almighty Comma

miran: don't worry - supposing I wanted to extend my game, there's only so far I could go without a complete rewrite. Small hacks are like that. Your game is bound to be more extensible, and the code more readable

--
Bruce "entheh" Perry [ Web site | DUMB | Set Up Us The Bomb !!! | Balls ]
Programming should be fun. That's why I hate C and C++.
The brxybrytl has you.

spellcaster

Member #1,493

September 2001

Quote:

Nice game though. Much less subtle abuse of Teh Almighty Comma

Hm.
Ok, if you have to nitpick... I changed my code, it's still 20 lines and uses now less (cheat) commata than yours

1#include <allegro.h>
2int main(int argc, char** argv) { 
  float speed_x = 0, speed_y = 0, gravity = 1.0, accel = 2.5, pos_x=320,pos_y=200, d;
  int  obj_x[10], obj_y[10],a, ships = 4, score = 0, count = 0;
  BITMAP *buffer = allegro_init() ? NULL : install_keyboard() ? NULL : install_timer() ? NULL : set_gfx_mode(GFX_AUTODETECT_WINDOWED, 640, 480, 0, 0) >= 0 ? create_bitmap(SCREEN_W, SCREEN_H) : NULL;
  while (ships && !key[KEY_ESC]) { clear(buffer);       
      circlefill(buffer, (int)pos_x, (int) pos_y, 10, makecol(200,200,200));
      if (count <= 0) textout_centre(buffer, font,  "Get Ready", 320, 100, makecol(230,230,230));            
      pos_x = (pos_x > SCREEN_W && speed_x > 0.0) ? -10 : (pos_x < 10 && speed_x < 0.0) ? SCREEN_W : pos_x + speed_x;
      pos_y = (pos_y > SCREEN_H && speed_y > 0.0) ? -10 : (pos_y < 10 && speed_y < 0.0) ? SCREEN_H : pos_y + speed_y;
      speed_x = MID(-14.0, speed_x + (key[KEY_LEFT] ? (-accel) : (key[KEY_RIGHT]  ? accel : 0)), 12.0);
      speed_y = MID(-14.0, speed_y + (key[KEY_UP]   ? (-accel) : (key[KEY_DOWN]   ? accel : 0)) + gravity, 12.0);        
      for (a=0; a < 10; a++) { if ((d = obj_x[a] >= 0 ? ((pos_x - obj_x[a]) * (pos_x - obj_x[a]) + (pos_y - obj_y[a]) * (pos_y - obj_y[a])) : -10) >=0) { circlefill(buffer, (count <= 0) ?  obj_x[a] = rand()%SCREEN_W : obj_x[a], (count <= 0) ?  obj_y[a] = rand()%SCREEN_H : obj_y[a], 10, a >=5 ? makecol(200,0,0) : makecol(0,200,0));
              ships -= (a>=5 && d < 400)? 1  : 0, count -= (a <5 && d < 400)? 1  : 0,  score += (a <5 && d < 400)? 10 : 0,
              obj_x[a] = d < 400 && d >=0 ? -1 : obj_x[a];}}        
      rest(60); 
      textprintf_centre(buffer, font, 320, 10, makecol(100,100,230), "Score:%04i   Ships: %02i   Remaining: %i", score, ships, count <= 0 ? count = 5 : count), blit(buffer, screen, 0,0,0,0,SCREEN_W, SCREEN_H);        
  } return 0;
19} END_OF_MAIN();

And please, don't force me to change that code again

Quote:

and combine the buffer declaration with create_bitmap (what; you can't do that in C? Heh heh ).

You can combine the buffer decl with create_bitmap

Yeah.
Managed to cut one more line

BITMAP *buffer = allegro_init() ? NULL : install_keyboard() ? NULL : install_timer() ? NULL : set_gfx_mode(GFX_AUTODETECT_WINDOWED, 640, 480, 0, 0) >= 0 ? create_bitmap(SCREEN_W, SCREEN_H) : NULL;

--
There are no stupid questions, but there are a lot of inquisitive idiots.

Evert

Member #794

November 2000

I'd call that ?: abuse, but hey, it works, right

How about it? A competition in who makes the best game with 20 lines of code?

spellcaster

Member #1,493

September 2001

My "de-commat" version also has a bug during level increase, so I suggest you guys use my first version.

Quote:

I'd call that ?: abuse, but hey, it works, right

You have to scramble some eggs
Oh, and with 40 lines of code, you might even be able to do a cool game without cheating (both Bruce and I cheated by using commata...
Using the trinary op is IMHO not really cheating. I mean, the allegro overhead itself is pretty high (if you don't use trinary ops, that is)

--
There are no stupid questions, but there are a lot of inquisitive idiots.

Rash

Member #2,374

May 2002

return 0; can be omitted in both C++ as well as C99.

kazzmir

Member #1,786

December 2001

I think that would be a neat contest, maybe if the rules were a little less strict like 100 lines maybe. This would force people to be creative and learn to write effecient code!

Zaphos

Member #1,468

August 2001

Efficient? I think you mean "condensed"! It's still a fun exercise ...

Interestingly enough, all the 20 liners written so far have actually been 19 lines; since they're semicolon delimeted the "int main(){" doesn't count as a line.

Well, neither does #include <allegro> but the need for a return after it implies that it should be counted as a line anyway, I guess ...

Johan Henriksson

Member #11

April 2000

20 lines... just enough to fit in my comment describing the purpose of the main function ^_^ Be happy we aren't competing in fattest documentation >:)

Zaphos

Member #1,468

August 2001

Just realized that by a literal interpretation of "semicolon delimited" a for (;;) statement requires 3 lines ... heh, but you can fit "squeeze" a program by fitting statements like "x = 2" into "if (x=2) the_next_line; ... so we can rewrite bruce's program like this:

1#include <allegro.h>
2int main(void) {
 int x[10]={320,320}, y[10]={460,460,-1,-1,-1,-1,-1,-1,-1,-1}, c[10]={11-12,14-12}, lives=5, i;
 if (allegro_init()>=0&&install_keyboard()>=0&&set_gfx_mode(GFX_AUTODETECT,640,480,0,0)>=0){
   while (lives > 0 && !key[KEY_ESC]) { if (x[0] = (x[0] + 640 + (!!key[KEY_RIGHT] - !!key[KEY_LEFT]) * 4) % 640) if ((y[1] -= 10) < 0) if (x[1]=x[0], y[1]=y[0]) for (i = 2;
   i < 10;
   i++) if (x<i> = y<i>++ >= 0 ? (x<i> + 639 + (rand()&2)) % 640 : rand() % 640) if (MAX(ABS(x<i>-x[1]), ABS(y<i>-y[1])) < 20) if(y<i> = -1-rand()%64) if (y<i> >= y[0]) if (y<i> = -1-rand()%64, lives--);
   for (i = 0;
   i < 10;
   i++) if (y<i> >= 0) circlefill(screen, x<i>, y<i>, 8, c<i>+12);
    rest(40);
    for (i = 0;
  i < 10;
  i++) if (y<i> >= 0) circlefill(screen, x<i>, y<i>, 8, 0); }}
 return 0;
16} END_OF_MAIN();

Edit: My snippet is messed up, but hopefully you get the point.

Johan Henriksson

Member #11

April 2000

I think we rather change the contest to "what game can you squeeze in into 20 lines and 20 columns?

Zaphos

Member #1,468

August 2001

Oh yeah; that's definitely the coolest idea. You just get a grid of 20 by 20 characters to fill up, and try to make a game ... and there is no such thing as cheating. Perhaps it would be more interesting to go 100x15 or something, though.

Do we want to do a compo around this? It could be fun! 8-)

spellcaster

Member #1,493

September 2001

Heh. That idea is great
Why not 80x25? That would be one textmode screen full of code

--
There are no stupid questions, but there are a lot of inquisitive idiots.

kazzmir

Member #1,786

December 2001

It is a good idea,. but why limit it to certain dimensions if all that means is a certain number of characters? 100x15 means a total of 1500 characters. 80x25 means a total of 2000 characters. So why not make the contest a total character contest instead of a dimensional contest?

Zaphos

Member #1,468

August 2001

I dunno ... I thought the dimensional thing added a neat little cuteness / originality; it's essentially the same as a char-count but more restricting and encourages a bit more interesting results by forcing the coder to focus on the graphical appearance of the code itself ...

kazzmir

Member #1,786

December 2001

thats true, but to maximize your winning chances, you would have to write as much code on one line as possible. in the end, you will have 25 lines of completely filled code. it wouldnt be hard for me to write some code, take out all the tabs, make sure every line ends at exactly 80 characters, and only have 1 space between every token. the dimensions dont force me to do anythign except have a certain number of characters.