// Don't be a lamer please!
// (C)1997 Henrik Tingström
// E-mail:henrik_tingstrom@hotmail.com

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <conio.h>
#include <dos.h>

#define antal 27

void spel(void);
void rita_pinne(void);
void init(void);
void mata_in(void);
int antal_pinnar(void);
void dator(void);

int pinnar_borta, poang_spelare, poang_dator;
char ch;
int stick[antal];

void main(void)
{
	randomize();
	poang_spelare=0;
	poang_dator=0;
	spel();
	clrscr();
	gotoxy(5,1);
	cprintf("Sticks, Henrik Tingstr”m (c)1997");
	gotoxy(5,4);
	if(poang_spelare < poang_dator)
		cprintf("Computerov Won!");
	else if(poang_spelare > poang_dator)
		cprintf("You Won!");
	else
		cprintf("Given Up???");
	gotoxy(5,6);
	cprintf("Your Score:%3d   The Computerov's Score:%3d",poang_spelare, poang_dator);
	gotoxy(5,9);
	cprintf("Comments...");
	delay(1000);
	gotoxy(5,11);
	if(poang_spelare < poang_dator-15)
		cprintf("Did you know that 1+1 is Equal To 2? Not?            IQ:None");
	else if(poang_spelare < poang_dator-10)
		cprintf("Were You Born Yesterday? Try Again!                  IQ:Horrible");
	else if(poang_spelare < poang_dator-5)
		cprintf("Did You Underrate Computrov? Don't Give Up!          IQ:Bad");
	else if(poang_spelare < poang_dator)
		cprintf("You Can Better!                                      IQ:Almost Good");
	else if(poang_spelare == poang_dator)
		cprintf("No Winner... Do You Not Want To Be a Winner? Restart The Game!");
	else if(poang_spelare-15 > poang_dator)
		cprintf("You Are Born Smart! Outstanding Play! Many Applause! IQ:Extrem High");
	else if(poang_spelare-10 > poang_dator)
		cprintf("Are You Born Smart? Applause!");
	else if(poang_spelare-5 > poang_dator)
		cprintf("Very Good Play!                                      IQ:High");
	else if(poang_spelare > poang_dator)
		cprintf("Good Play!                                           IQ:Good");

	gotoxy(5,15);
	cprintf("Bye Bye!");
	gotoxy(5,17);
	cprintf("Press a Key");
	ch = getch();
	clrscr();

}

void spel(void)
{
	int in;
	init();
	do{
		rita_pinne();
		mata_in();
		in=antal_pinnar();
		if(stick[antal-1]==0 && ch != '0')
		{
			rita_pinne();
			poang_dator++;
			gotoxy(6+antal,11);
			cprintf("Computerov Won!");
			gotoxy(7+antal,15);
			cprintf("Press a Key");
			ch=getch();
			init();
		}
		else
		{
			if(in == 1)
			{
				rita_pinne();
				dator();
			}
			if(stick[antal-1]==0 && ch != '0')
			{
				rita_pinne();
				poang_spelare++;
				gotoxy(7+antal,11);
				cprintf(" You Won!");
				gotoxy(7+antal,15);
				cprintf("Press a Key");
				ch=getch();
				init();
			}
		}
	}while(ch != '0');
}

int antal_pinnar(void)
{
	int x,i;
	if(ch == '1')
		x=1;
	else if(ch == '2')
		x=2;
	 else if(ch == '3')
		x=3;
	else if(ch != '0')
		x=0;
	if(x != 0)
	{
		for(i=pinnar_borta;i<pinnar_borta+x;i++)
		{
			stick[i]=0;
		}
		pinnar_borta+=x;
		return 1;
	}
	return 0;
}

void dator(void)
{
	int i,x;
	if(stick[antal-20] != 0)      //Žr p† 7 eller mindre
	{
		x=random(3)+1;
		gotoxy(5,17);
		cprintf("... And Computerov Said To You: I'm Nice And Take Random Sticks...");
	}
	else if(stick[antal-19] != 0) //Žr p† 8
		x=2;
	else if(stick[antal-18] != 0) //Žr p† 9
		x=1;
	else if(stick[antal-17] != 0) //Žr p† 10
	{
		x=random(3)+1;
		gotoxy(5,17);
		cprintf("... And Computerov Said To You: Good Play So Far!");
	}
	else if(stick[antal-16] != 0) //Žr p† 11
	{
		x=random(3)+1;  //f†r inte vara f”r sv†rt, om sv†rt x=3
		gotoxy(5,17);
		cprintf("... And Computerov Said To You: I'm Nice And Take Random Sticks...");
	}
	else if(stick[antal-15] != 0) //Žr p† 12
		x=2;
	else if(stick[antal-14] != 0) //Žr p† 13
		x=1;
	else if(stick[antal-13] != 0) //Žr p† 14
	{
		x=random(3)+1;
		gotoxy(5,17);
		cprintf("... And Computerov Said To You: Very Good Play!");
	}
	else if(stick[antal-12] != 0) //Žr p† 15
	{
		x=random(2)+2; //f†r inte vara f”r sv†rt, om sv†rt x=3
		gotoxy(5,17);
		cprintf("... And Computerov Said To You: I'm Nice And Take Random Sticks");
	}
	else if(stick[antal-11] != 0) //Žr p† 16
		x=2;
	else if(stick[antal-10] != 0) //Žr p† 17
		x=1;
	else if(stick[antal-9] != 0)  //Žr p† 18
	{
		x=random(3)+1;
		gotoxy(5,17);
		cprintf("... And Computerov Said To You: Are You An Expert On This Game?");
	}
	else if(stick[antal-8] != 0) //Žr p† 19
		x=3;
	else if(stick[antal-7] != 0) //Žr p† 20
		x=2;
	else if(stick[antal-6] != 0) //Žr p† 21
		x=1;
	else if(stick[antal-5] != 0) //Žr p† 22
	{
		x=random(3)+1;
		gotoxy(5,17);
		cprintf("... And Computerov Said To You: Awesome Play! Applause!");
	}
	else if(stick[antal-4] != 0) //Žr p† 23
		x=3;
	else if(stick[antal-3] != 0) //Žr p† 24
		x=2;
	else if(stick[antal-2] != 0) //Žr p† 25
		x=1;
	else if(stick[antal-1] != 0) //Žr p† 26
	{
		x=1;
		gotoxy(5,17);
		cprintf("... And Computerov Said To You: Oh No! I Loose!");
	}
	for(i=pinnar_borta;i<pinnar_borta+x;i++)
	{
		stick[i]=0;
	}
	pinnar_borta+=x;
	gotoxy(5,15);
	cprintf("Computerov Takes: %d",x);

}

void mata_in(void)
{
	gotoxy(5,8);
	if(stick[antal-3] != 0)
		cprintf("Be Smart, Take 1-3 Sticks: ");
	else if(stick[antal-2] != 0)
		cprintf("You Have the Chance Now, Take 1-2 Sticks: ");
	else if(stick[antal-1] != 0)
		cprintf("Take the Last Stick Looser (1): ");

	ch = getche();
	gotoxy(5,17);
	cprintf("                                                                  ");

}

void rita_pinne(void)
{
	int i, j;
	j=0;
	for(i=0;i<antal;i++)
	{
		if(stick[i] != 0)
		{
			gotoxy(j+2,10);
			cprintf("³"); // "³" = iso 179
			gotoxy(j+2,11);
			cprintf("³");
			gotoxy(j+2,12);
			cprintf("³");
		}
		else
		{
			gotoxy(j+2,10);
			cprintf("ú"); // "ú" = iso 250
			gotoxy(j+2,11);
			cprintf("ú");
			gotoxy(j+2,12);
			cprintf("ú");
			delay(50);
		}
		gotoxy(j+1,13);
		cprintf("%2d",i+1);
		j+=3;
	}

}

void init(void)
{
	int i;
	clrscr();
	gotoxy(5,1);
	cprintf("Sticks, Henrik Tingstr”m (c)1997");
	gotoxy(5,20);
	cprintf("Quit with 0");
	gotoxy(5,3);
	cprintf("You win if the computer must take the last stick!");
	gotoxy(5,6);
	cprintf("Your Score:%3d   Computerov's Score:%3d",poang_spelare, poang_dator);
	for(i=0;i<antal;i++)
	{
		stick[i]=i+1;
	}
	pinnar_borta=0;
}