Program < 100 Lines Contest

[Qwerty]

The goal of this would be to make the most impressive program at, or under, 100 lines of code. If it's something in html (javascript) none of the html tags count except the ones that are part of the actual program. No, tags for user interface elements DO NOT count. That would give Visual Basic (mah language) a significant advantage since user forms can be generated in a designer without code. The program can be in any language. The most impressive program wins, factors include...

Functionality - 40
WOW Factor - 30
Lack of Errors/Bugs - 30

1st:
1000 DBs
Winner Badge

2nd:
500 DBs

3rd:
250 DBs

Special Award:
100 DBs
Special Badge
Only if we have four participants.

[disabled]

May 4, 2010 8:57:50 GMT -5 Qwerty said:

No, tags for user interface elements DO NOT count. That would give Visual Basic (mah language) a significant advantage since user forms can be generated in a designer without code.

There are designers for about every language out there, like C/C++, Java, Python,... you can even separate Javascript from the HTML body and create the HTML with a designer...
What about dynamically generated forms? If I have a loop that adds entries to a gui-element, does the loop not count? or at least the "add gui element" of the loop? And I guess registering callbacks from gui events to code does not count too right? Then I might squeeze my StickRanger extension into 100 lines... well that extension is a gui... The only real code is hiding the configuration and of course handling the Ajax request to get the Name for the save...
And you know you can collapse many lines into one in many programming languages right? (Basic is not one of them...) It would probably make more sense to restrict the amount of characters you can use... Also because sometimes I do gui related stuff in a line of code which I would only count as half-gui lines.
Nah whatever. I probably won't find time to enter anyways. But there is no restriction to what the program should do right?

[Frogmaster]

For most languages, a semicolon or other symbol signifies the of a line regardless of whether there is whitespace, so in most cases it would be separated that way.

I have an executable prepared, do I just provide a download link and my source code here?

[Qwerty]

I guess. Probably just the download link to start, and source code after it is done.

Also, I just copypasted MF on that first post, so I dunno about it.

[disabled]

May 4, 2010 15:08:03 GMT -5 Frogmaster said:

For most languages, a semicolon or other symbol signifies the of a line regardless of whether there is whitespace, so in most cases it would be separated that way.

Yeah well you can work around that...
I know sometimes I just post to piss people off

[Frogmaster]

Okay I'm going to go ahead and submit now.

Trees of War
1.23mb - www.heartbeatgaming.110mb.com/Trees.zip

This simulates different breeds of trees struggling for dominion over a randomly generated map. The trees are distributed randomly as well, but it moves faster than you can perceive at the beginning. They develop traits that may help, such as extended life span or quicker seeding rate. These traits are slowly gained or lost similar to evolution and passed down to children. The direction of the wind affects all trees. It's a simulation; let it run and see who wins, watch to observe the way trees fight for survival in real forests, and learn why certain breeds of trees become dominant. You might notice cool tactics and interesting comebacks.

Source Code:
I decided that since any language was acceptable, GML was the easy and painless way out.

Master Entity Script Ran Upon Creation:
global.startspawn = 80;
global.startgrowth = 200;
global.wind = 1;
globalvar pause,roomwater;
global.waterspawnratestart = 10;
global.treespawnratestart = 28;
global.xblocks = 24;
global.yblocks = 24;
treestart = 1;
9 Lines

Master Entity Script Ran Every Frame
if (global.roomwater == 0) {xwater = 0;
ywater = 0;
while (ywater < global.yblocks) {tester = irandom_range(0,global.waterspawnratestart);
if (tester == 1) {instance_create(xwater*32, ywater*32, water);
}xwater = xwater+1;
if (xwater == global.xblocks+1) {xwater = 0;
ywater = ywater+1;
}}global.waterstart = 1;
global.roomwater = 1;
}if (windtimer < 1) {global.wind = irandom_range(1,8);
windtimer = 25;
} windtimer = windtimer-1;
if (treestart == 1) {xtrees = 0;
ytrees = 0;
while (ytrees < global.yblocks*2) {tester = irandom_range(0,global.treespawnratestart);
if (tester == 1) {newtree = instance_create(xtrees*16, ytrees*16, tree1);
newtree.breed = 0;
}if (tester == 2) {newtree = instance_create(xtrees*16, ytrees*16, tree1);
newtree.breed = 1;
}if (tester == 3) {newtree = instance_create(xtrees*16, ytrees*16, tree1);
newtree.breed = 2;
}if (tester == 4) {newtree = instance_create(xtrees*16, ytrees*16, tree1);
newtree.breed = 3;
}if (tester == 5) {newtree = instance_create(xtrees*16, ytrees*16, tree1);
newtree.breed = 4;
}if (tester == 6) {newtree = instance_create(xtrees*16, ytrees*16, tree1);
newtree.breed = 5;
}if (tester == 7) {newtree = instance_create(xtrees*16, ytrees*16, tree1);
newtree.breed = 6;
}xtrees = xtrees+1;
if (xtrees == global.xblocks*2+1) {xtrees = 0;
ytrees = ytrees+1;
}}treestart = 0;}
global.wind = irandom_range(1,8);
draw_text(10,10,string(fps));
35 Lines

Tree Entity Script Ran Upon Creation
if (!variable_local_exists('spawnrate')) {spawnrate = global.startspawn; }
if (!variable_local_exists('growthtime')) {growthtime = global.startgrowth; }
2 Lines

Tree Entity Script Ran Each Frame
life = life+1;
if (life > growthtime) {instance_destroy();}
if (breed == 0) { if (life < growthtime/4) {sprite_index = sapling;
} else if (life < growthtime/2) {sprite_index = middletree;
} else {sprite_index = tree;
}} else if (breed == 1) { if (life < growthtime/4) {sprite_index = sprite25;
} else if (life < growthtime/2) {sprite_index = sprite24;
} else {sprite_index = sprite23;
}} else if (breed == 2) {if (life < growthtime/4) {sprite_index = sprite29;
} else if (life < growthtime/2) {sprite_index = sprite28;
} else {sprite_index = sprite27;
}} else if (breed == 3) { if (life < growthtime/4) {sprite_index = sprite32;
} else if (life < growthtime/2) {sprite_index = sprite31;
} else {sprite_index = sprite30;
}} else if (breed == 4) { if (life < growthtime/4) {sprite_index = sprite41;
} else if (life < growthtime/2) {sprite_index = sprite40;
} else {sprite_index = sprite39;
}} else if (breed == 5) { if (life < growthtime/4) {sprite_index = sprite38;
} else if (life < growthtime/2) {sprite_index = sprite37;
} else {sprite_index = sprite36;
}} else if (breed == 6) {if (life < growthtime/4) {sprite_index = sprite35;
} else if (life < growthtime/2) {sprite_index = sprite34;
} else {sprite_index = sprite33;}}
if (life > growthtime/2) {spawn = irandom_range(1,spawnrate);
if (spawn <= 1) { if (global.wind = 1) { xwind = -16; ywind = -16; }
if (global.wind = 2) { xwind = 0; ywind = -16; }
if (global.wind = 3) { xwind = 16; ywind = -16; }
if (global.wind = 4) { xwind = -16; ywind = 0; }
if (global.wind = 5) { xwind = 16; ywind = 0; }
if (global.wind = 6) { xwind = -16; ywind = 16; }
if (global.wind = 7) { xwind = 0; ywind = 16; }
if (global.wind = 8) { xwind = 16; ywind = 16; }
if (collision_point(self.x+xwind,self.y+ywind,all,0,0) < 0) {baby = instance_create(self.x+xwind,self.y+ywind,tree1);
baby.spawnrate = self.spawnrate-irandom_range(0,2)+irandom_range(0,1);
baby.growthtime = self.growthtime-irandom_range(0,1)+irandom_range(0,1);
baby.breed = self.breed;}}}
36 Lines

Water Entity Ran After Every Frame
if (global.waterstart == 1) {global.waterstart = 2; }
1 Line

For a total of 83 lines. I've got 17 to spare, haha.

[microfarad]

Don't ya jus' luv Qwerty's Copy/Paste skillz??? Ayways, I better get moving on this, I don't even know what I'm going to make!!!

Bluecode was at 500 lines in the first version alone??? Have I made anything under 100 lines???

Hiatus was 213 lines??? OMG!!!! It's impossible!

[Qwerty]

[img src="http://i44.[tinypic.com]/302nndx.png"]

I'm getting emotionally attached to them ;( . That is one awesome program.

[microfarad]

Red is winning for me...

[Qwerty]

Supongo que es diferente cada vez.

I guess it is different each time.

[Frogmaster]

Yup, trees are randomly distributed at the beginning of the game and their characteristics slightly change throughout the course of the game. Each and every tree could potentially have different stats depending on which trees seeded them and what my evolution-thing randomly dictated. It'll be different every single time.

[vaconcovat]

Shit, all of mine are like one thousand lines, because none of us ever wrote one code alone. Crap, I might just even go GML myself.

[microfarad]

Man, I am just slammed with homework, and all my programs are AT LEAST 300 lines.

I have a definite project. It shouldn't be too time consuming, so I can pull it off. It will probably be well under 100 lines. Not my best piece, but a nice novelty. :D

[Qwerty]

Alright. Considering this contest will take time, it can be extended.

[microfarad]

Oh goody, 'cause I halted my project in favor of a tool to back up the entire Forum in case Listo deleted it... :D

[PickleMan]

I am going to enter this. I have a project idea...now to imp it...

I suppose I'll do C...but I can only test it for Linux.