[agd-cvs] server/lib beer.c,NONE,1.1

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5202

Added Files:
	beer.c 
Log Message:
Initial import.

--- NEW FILE: beer.c ---
void one_bottle(int i) {
	if(i==10) 
		write("Ten ");
	if(i==9)
		write("Nine ");
	if(i==8)
		write("Eight ");
	if(i==7)
		write("Seven ");
	if(i==6)
		write("Six ");
	if(i==5)
		write("Five ");
	if(i==4)
		write("Four ");
	if(i==3)
		write("Three ");
	if(i==2)
		write("Two ");
	if(i==1)
		write("One ");
	if(!i) {
		write("No bottles of beer on the wall.\n");
		return;
	}
	if(i != 1)
		write("bottles ");
	else
		write("bottle ");
}

void bottle(int i) {
	one_bottle(i);
	if(!i)
		return;
	write("of beer on the wall.\n");
	one_bottle(i);
	write("of beer,\n");
	write("You take one down and pass it around,\n");
	bottle(i-1);
	
}
void create() {
	bottle(10);
	write("Beeeer.\n");
}