#include <iostream.h>
#include <fstream.h>
#include <string.h>
#include <stdlib.h>

#define TRADESEC

double Questions[166][5];
char AnswerString[167];
void AddScore(int q, const double a1, const double a2, const double a3, const double a4, const double a5) {
	Questions[q][0] = a1;
	Questions[q][1] = a2;
	Questions[q][2] = a3;
	Questions[q][3] = a4;
	Questions[q][4] = a5;
}
double J(int QNum) {
	switch (AnswerString[--QNum]) {
		case 'A': return Questions[QNum][0];
		case 'B': return Questions[QNum][1];
		case 'C': default: return Questions[QNum][2];
		case 'D': return Questions[QNum][3];
		case 'E': return Questions[QNum][4];
	}
}
double Weight(bool Lesson, double Compare, double Lowest, double NewLowest, double Highest, double NewHighest, double NextFrom, double NextTo, double NewNext) {
	if (Lesson) {
		if (Compare <= Lowest)
			return NewLowest;
		else if (Compare >= Highest)
			return NewHighest;
	} else {
		if (Compare <= Lowest)
			return NewLowest;
		else if (Compare >= NextFrom && Compare <= NextTo)
			return NewNext;
		else if (Compare >= Highest)
			return NewHighest;
	}
	return 0;
}
char *Colors(const double Analyze, const double Lowest, const double Highest) {
	if (Analyze < Lowest)
		return "Red";
	else if (Analyze > Highest)
		return "Green";
	else
		return "Yellow";
}
int main(int argc, char *argv[]) {
	char Store[36];
	char FirstName[31];
	char LastName[31];
	char SSN[12];
   int i;
	AnswerString[166] = '\0';
	ifstream fin(argv[1]);
	if (fin.fail()) return 1;
	char buff[256];
	while (!fin.eof()) {
		fin.getline(buff, 256);
		buff[strlen(buff)-1] = '\0';
		switch(buff[6]) {
			case 'U':
				strcpy(Store, buff+18);
			break;
			case 'I':
				strcpy(FirstName, buff+18);
			break;
			case 'A':
				strcpy(LastName, buff+17);
			break;
			case 'S':
				strcpy(SSN, buff+11);
			break;
			case 'Q':
				buff[10] = '\0';
         	i = atoi(buff+7)-1;
            if (i > 143 && i < 166) {
            	AnswerString[i] = buff[13];
            } else {
   	         switch (buff[13]) {
      	      	case 'S':
							AnswerString[i] = (buff[14] == 'A') ? 'E' : 'A';
            	   break;
               	case 'A':
               		AnswerString[i] = 'D';
	               break;
   	            case 'N': default:
      	         	AnswerString[i] = 'C';
         	      break;
            	   case 'D':
               		AnswerString[i] = 'B';
	               break;
   	         }
            }
				break;
			}
	}
	fin.close();

	double jhect, jwkjoy, jtuff, jamb, jperprb, jdeltrnq, jpride, jemoctrl, jenrgy, jcreatv, jclnwk, jwinatt, jnopull, jfake, j2tuff, j2pride, j2wkjoy, j2creatv;

	//Values for each answer is stored in the Questions array, which
	//   is populated below
	for (int i(0); i < 144; i++)
		switch (i+1) {
			//these questions all wieght "E" as being worth 1 point
			case 1: case 2: case 3: case 5: case 8: case 13: case 15: case 19: case 20: case 21: case 22: case 23: case 28: case 30: case 31: case 32: case 34: case 36: case 37: case 38: case 42: case 44: case 50: case 51: case 55: case 56: case 58: case 59: case 62: case 63: case 66: case 67: case 69: case 70: case 74: case 75: case 80: case 83: case 84: case 86: case 88: case 89: case 91: case 93: case 94: case 96: case 97: case 99: case 103: case 104: case 108: case 112: case 113: case 119: case 121: case 124: case 126: case 127: case 128: case 134: case 135: case 139: case 142: case 144:
				AddScore(i, 0, 0.25, 0.5, 0.75, 1);
			break;
			//the rest (from 1 to 144) all weight "A" as being worth 1 point
			default:
				AddScore(i, 1, 0.75, 0.5, 0.25, 0);
			break;
		}
	for (int i(144); i < 166; i++)
		switch (i+1) {
			//"B" is given the point for these questions
			case 145: case 146: case 148: case 149: case 151: case 154: case 156: case 159: case 160: case 163:
				AddScore(i, 0, 1, 0, 0, 0);
			break;
			//"A" gets the point for the rest
			default:
				AddScore(i, 1, 0, 0, 0, 0);
			break;
		}
	//calculate the initial 13 traits and the fake correction
	jhect = J(61) + J(95) + J(101) + J(110) + J(115) + J(125) + J(135) + J(140) + J(82) + J(71) + J(57) + J(84) + J(1) + J(5) + J(12) + J(14) + J(15) + J(21) + J(32) + J(37) + J(50);
	jwkjoy = J(10) + J(27) + J(78) + J(106) + J(147) + J(16) + J(33) + J(56) + J(70) + J(83) + J(111) + J(120) + J(126) + J(157);
	jtuff = J(42) + J(63) + J(138) + J(145) + J(149) + J(150) + J(154) + J(158) + J(163) + J(164);
	jamb = J(91) + J(151) + J(156) + J(159) + J(161) + J(166);
	jperprb = J(19) + J(51) + J(85) + J(129) + J(141);
	jdeltrnq = J(8) + J(45) + J(65) + J(77) + J(105) + J(117) + J(123) + J(148) + J(155);
	jpride = J(66) + J(28) + J(31) + J(53) + J(58) + J(81) + J(94) + J(142);
	jemoctrl = J(7) + J(26) + J(43) + J(64) + J(90) + J(104) + J(122) + J(146) + J(160) + J(17) + J(44) + J(116) + J(130) + J(133);
	jenrgy = J(6) + J(24) + J(62) + J(88) + J(103) + J(136);
	jcreatv = J(40) + J(74) + J(86) + J(97) + J(132) + J(137) + J(23) + J(112) + J(127);
	jclnwk = J(152) + J(162);
	jwinatt = J(38) + J(121) + J(34) + J(36) + J(52) + J(144) + J(99) + J(114) + J(73) + J(60) + J(29) + J(87) + J(131) + J(124) + J(35) + J(4) + J(9) + J(20) + J(46) + J(68);
	jnopull = J(92) + J(107) + J(118) + J(79);
	//calculate fake
	jfake = J(3) + J(18) + J(39) + J(72) + J(102);
	//calculate secondary traits
	j2tuff = jtuff + J(139) + J(25);
	j2pride = jpride + J(22);
	j2wkjoy = jwkjoy + J(89);
	j2creatv = jcreatv + J(108);
	//-------weight the traits for each of the three types:
	//       mall, strip store, and trade secret
	//mall weighting
                                       
#ifdef MSTRCUTS
	double mal2tuf, mal2crtv, mal2prde, mal2wkjy, mal2amb, mal2clnw, mal2dt, mal2emo, mal2engy, mal2hec, mal2npul, mal2win, mal2sc, mal2sccf;
	mal2tuf = Weight(false, j2tuff, 6.25, -55, 8, 8, 6.5, 7.75, -15);
	mal2crtv = Weight(true, j2creatv, 6.5, -16, 6.75, 6, 0, 0, 0);
	mal2prde = Weight(true, j2pride, 6, -25, 6.25, 5, 0, 0, 0);
	mal2wkjy = Weight(true, j2wkjoy, 10, -26, 10.25, 10, 0, 0, 0);

	//(four cases won't fit into my nifty function.  oh well.)
	mal2amb = 0;
	if (jamb <= 2.25)
		mal2amb = -25;
	else if (jamb >= 2.5 && jamb <= 4)
		mal2amb = -8;
	else if (jamb >= 4.25 && jamb <= 4.5)
		mal2amb = 0;
	else if (jamb >= 4.75)
		mal2amb = 20;

	mal2clnw = Weight(true, jclnwk, 1, -18, 2, 13, 0, 0, 0);
	mal2dt = Weight(true, jdeltrnq, 6.25, -10, 6.5, 10, 0, 0, 0);
	mal2emo = Weight(false, jemoctrl, 8.75, -17, 9.75, 17, 9, 9.5, -9);
	mal2engy = Weight(false, jenrgy, 2.75, -12, 4, 26, 3, 3.75, -8);
	mal2hec = Weight(false, jhect, 12.25, -11, 14.75, 15, 12.5, 14.5, 0);
	mal2npul = Weight(false, jnopull, 2.5, -16, 3.25, 9, 2.75, 3, 0);
	mal2win = Weight(false, jwinatt, 13, -39, 14.75, 17, 13.25, 14.5, -6);
#else
#ifdef SUPRCUTS
	//strip store weighting
	double st2creat, st2tuf, st2wkjy, st2amb, st2clnw, st2dt, st2emo, st2engy, st2hec, st2win, st2sc, st2scrc;
	st2creat = Weight(true, j2creatv, 6.25, -7, 6.5, 3, 0, 0, 0);
	st2tuf = Weight(false, j2tuff, 8, -20, 10, 40, 8.25, 9.75, -10);
	st2wkjy = Weight(true, j2wkjoy, 10.25, -17, 10.5, 9, 0, 0, 0);
	st2amb = Weight(true, jamb, 3, -25, 3.25, 11, 0, 0, 0);
	st2clnw = Weight(true, jclnwk, 1, -3, 2, 3, 0, 0, 0);
	st2dt = Weight(true, jdeltrnq, 5.75, -16, 6, 10, 0, 0, 0);
	st2emo = Weight(true, jemoctrl, 8.25, -8, 8.5, 4, 0, 0, 0);
	st2engy = Weight(true, jenrgy, 2.75, -12, 3, 7, 0, 0, 0);
	st2hec = Weight(true, jhect, 12, -12, 12.25, 4, 0, 0, 0);
	st2win = Weight(false, jwinatt, 12.5, -41, 14, 15, 12.75, 13.75, 0);
#else
#ifdef SMRTSTYL
	double st2creat, st2tuf, st2wkjy, st2amb, st2clnw, st2dt, st2emo, st2engy, st2hec, st2win, st2sc, st2scrc;
	st2creat = Weight(true, j2creatv, 6.25, -7, 6.5, 3, 0, 0, 0);
	st2tuf = Weight(false, j2tuff, 8, -20, 10, 40, 8.25, 9.75, -10);
	st2wkjy = Weight(true, j2wkjoy, 10.25, -17, 10.5, 9, 0, 0, 0);
	st2amb = Weight(true, jamb, 3, -25, 3.25, 11, 0, 0, 0);
	st2clnw = Weight(true, jclnwk, 1, -3, 2, 3, 0, 0, 0);
	st2dt = Weight(true, jdeltrnq, 5.75, -16, 6, 10, 0, 0, 0);
	st2emo = Weight(true, jemoctrl, 8.25, -8, 8.5, 4, 0, 0, 0);
	st2engy = Weight(true, jenrgy, 2.75, -12, 3, 7, 0, 0, 0);
	st2hec = Weight(true, jhect, 12, -12, 12.25, 4, 0, 0, 0);
	st2win = Weight(false, jwinatt, 12.5, -41, 14, 15, 12.75, 13.75, 0);
#else
#ifdef TRADESEC
	//trade secret weighting
	double tr2creat, tr2prde, tr2tuff, tr2wkjy, tr2clnw, tr2dt, tr2emo, tr2engy, tr2hec, tr2win, tr2scr, tr2scrcr;
	tr2creat = Weight(true, j2creatv, 6, -20, 6.25, 5, 0, 0, 0);
	tr2prde = Weight(true, j2pride, 6, -45, 6.25, 15, 0, 0, 0);
	tr2tuff = Weight(true, j2tuff, 10.25, -14, 10.5, 30, 0, 0, 0);
	tr2wkjy = Weight(true, j2wkjoy, 10.5, -17, 10.75, 19, 0, 0, 0);
	tr2clnw = Weight(true, jclnwk, 0, -24, 1, 6, 0, 0, 0);
	tr2dt = Weight(true, jdeltrnq, 6, -30, 6.25, 24, 0, 0, 0);
	tr2emo = Weight(true, jemoctrl, 8.5, -8, 8.75, 4, 0, 0, 0);
	tr2engy = Weight(true, jenrgy, 2.5, -38, 2.75, 8, 0, 0, 0);
	tr2hec = Weight(true, jhect, 11, -72, 11.25, 4, 0, 0, 0);
	tr2win = Weight(true, jwinatt, 13, -43, 13.25, 12, 0, 0, 0);
	//calculate for each store type
#else
#endif
#endif
#endif
#endif

	//Assign color zones for each type
	//revised 7-22-98 by PDI

	char *Color;

#ifdef MSTRCUTS
	//mall
	mal2sc = mal2amb + mal2clnw + mal2crtv + mal2dt + mal2emo + mal2engy + mal2hec + mal2npul + mal2prde + mal2tuf + mal2win + mal2wkjy;
	mal2sccf = mal2sc + 100 - 11 * jfake;
	double creat(mal2crtv);
	double prde(mal2prde);
	double amb(mal2amb);
	double tuff(mal2tuf);
	double wkjy(mal2wkjy);
	double clnw(mal2clnw);
	double dt(mal2dt);
	double emo(mal2emo);
	double engy(mal2engy);
	double hec(mal2hec);
	double win(mal2win);
	double npul(mal2npul);
	double scr(mal2sc);
	double scrcr(mal2sccf);
	Color = Colors(mal2sccf, 21, 40);
#else
#ifdef SUPRCUTS
	//strip
	st2sc = st2amb + st2clnw + st2creat + st2dt + st2emo + st2engy + st2hec + st2tuf + st2win + st2wkjy;
	st2scrc = st2sc + 100 - 11 * jfake;
	double creat(st2creat);
	double prde(0);
	double amb(st2amb);
	double tuff(st2tuf);
	double wkjy(st2wkjy);
	double clnw(st2clnw);
	double dt(st2dt);
	double emo(st2emo);
	double engy(st2engy);
	double hec(st2hec);
	double win(st2win);
	double npul(0);
	double scr(st2sc);
	double scrcr(st2scrc);
	Color = Colors(st2scrc, 40, 60);
#else
#ifdef SMRTSTYL
	//strip
	st2sc = st2amb + st2clnw + st2creat + st2dt + st2emo + st2engy + st2hec + st2tuf + st2win + st2wkjy;
	st2scrc = st2sc + 100 - 11 * jfake;
	double creat(st2creat);
	double prde(0);
	double amb(st2amb);
	double tuff(st2tuf);
	double wkjy(st2wkjy);
	double clnw(st2clnw);
	double dt(st2dt);
	double emo(st2emo);
	double engy(st2engy);
	double hec(st2hec);
	double win(st2win);
	double npul(0);
	double scr(st2sc);
	double scrcr(st2scrc);
	Color = Colors(st2scrc, 40, 60);
#else
#ifdef TRADESEC
	//trade secret
	tr2scr = tr2clnw + tr2creat + tr2dt + tr2emo + tr2engy + tr2hec + tr2prde + tr2tuff + tr2win + tr2wkjy;
	tr2scrcr = tr2scr + 100 - 19 * jfake;
	double creat(tr2creat);
	double prde(tr2prde);
	double amb(0);
	double tuff(tr2tuff);
	double wkjy(tr2wkjy);
	double clnw(tr2clnw);
	double dt(tr2dt);
	double emo(tr2emo);
	double engy(tr2engy);
	double hec(tr2hec);
	double win(tr2win);
	double npul(0);
	double scr(tr2scr);
	double scrcr(tr2scrcr);
	Color = Colors(tr2scrcr, 25, 40);
#else
#endif
#endif
#endif
#endif
	ofstream fout;
	fout.open("SCORE.LOG", ios::out | ios::app);
	fout << '\"' << FirstName << "\" \"" << LastName << "\" " << SSN << ' ' << Color << " \"" << Store << "\" " << jhect << ' ' << jwkjoy << ' ' << jtuff << ' ' << jamb << ' ' << jperprb << ' ' << jdeltrnq << ' ' << jpride << ' ' << jemoctrl << ' ' << jenrgy << ' ' << jcreatv << ' ' << jclnwk << ' ' << jwinatt << ' ' << jnopull << ' ' << jfake << ' ' << j2tuff << ' ' << j2pride << ' ' << j2wkjoy << ' ' << j2creatv << ' ' << creat << ' ' << prde << ' ' << amb << ' ' << tuff << ' ' << wkjy << ' ' << clnw << ' ' << dt << ' ' << emo << ' ' << engy << ' ' << hec << ' ' << win << ' ' << npul << ' ' << scr << ' ' << scrcr << ' ' << AnswerString << endl;
	fout.close();
	fout.open(argv[1]);
	fout << Color;
//	fout << Color << " " << jhect << ' ' << jwkjoy << ' ' << jtuff << ' ' << jamb << ' ' << jperprb << ' ' << jdeltrnq << ' ' << jpride << ' ' << jemoctrl << ' ' << jenrgy << ' ' << jcreatv << ' ' << jclnwk << ' ' << jwinatt << ' ' << jnopull << ' ' << jfake << ' ' << j2tuff << ' ' << j2pride << ' ' << j2wkjoy << ' ' << j2creatv << ' ' << creat << ' ' << prde << ' ' << amb << ' ' << tuff << ' ' << wkjy << ' ' << clnw << ' ' << dt << ' ' << emo << ' ' << engy << ' ' << hec << ' ' << win << ' ' << npul << ' ' << scr << ' ' << scrcr << ' ' << endl;
	fout.close();
	return 0;
}