// System: Phoenix
// 
/* Haftungsausschluss / Disclaimer
   Eine Haftung fuer die Richtigkeit der Implementierung des Systems wird NICHT uebernommen, der Download und
   der Einsatz des Systems erfolgt auf eigenes Risiko!
   A liability for the correctness of the implementation of the system will NOT be assumed, the download and use
   of the system is at your own risk!
   Ing. Thomas Froehlich (www.ing-froehlich.de)
*/

ST:                             // start section
MESSAGE OFF;
SZ EI0(1);

SZ CO00(1);						// Phase 1 = 1
								// Phase 2 = 2
SZ CO01(1);						// Phase 1.1 = 1E DZ
								// Phase 1.2 = 3E EC Passe/Manque
								// Phase 1.3 = 9E Passe/Manque + 3E TS 13-18/19-24
SZ CO02(0);						// Phase 2.1 = 1E red/black + 1E Pair/Inpair + 1E DZ01/DZ02/DZ03								
								// Phase 2.2 = 2E red/black + 2E Pair/Inpair + 1E DZ01/DZ02/DZ03								
								// Phase 2.3 = 3E red/black + 3E Pair/Inpair + 2E DZ01/DZ02/DZ03								
								// Phase 2.4 = 6E red/black + 6E Pair/Inpair + 4E DZ01/DZ02/DZ03								
SZ CO05(0);						// lost bet counter
SZ CO06(0);						// partial win
GW:
MESSAGE('Play GW',AG(1..3),CO02);
IF CO00(1) THEN SZ CO01(1);		// win in first phase - reset this phase
IF CO00(2) THEN SZ CO06(0);		// reset partial win
IF CO00(2) AND IF CO02(1) AND IF GZ IN AG(1) THEN SZ CO05(-1),CO06(1);
IF CO00(2) AND IF CO02(2) AND IF GZ IN AG(1) THEN SZ CO05(-2),CO06(1);
IF CO00(2) AND IF CO02(3) AND IF GZ IN AG(1) THEN SZ CO05(-3),CO06(1);
IF CO00(2) AND IF CO02(4) AND IF GZ IN AG(1) THEN SZ CO05(-6),CO06(1);

IF CO00(2) AND IF CO02(1) AND IF GZ NOT IN AG(1) THEN SZ CO05(+1);   // add lost 
IF CO00(2) AND IF CO02(2) AND IF GZ NOT IN AG(1) THEN SZ CO05(+2);
IF CO00(2) AND IF CO02(3) AND IF GZ NOT IN AG(1) THEN SZ CO05(+3);
IF CO00(2) AND IF CO02(4) AND IF GZ NOT IN AG(1) THEN SZ CO05(+6);

IF CO00(2) AND IF CO02(1) AND IF GZ IN AG(2) THEN SZ CO05(-1),CO06(1);
IF CO00(2) AND IF CO02(2) AND IF GZ IN AG(2) THEN SZ CO05(-2),CO06(1);
IF CO00(2) AND IF CO02(3) AND IF GZ IN AG(2) THEN SZ CO05(-3),CO06(1);
IF CO00(2) AND IF CO02(4) AND IF GZ IN AG(2) THEN SZ CO05(-6),CO06(1);

IF CO00(2) AND IF CO02(1) AND IF GZ NOT IN AG(2) THEN SZ CO05(+1);
IF CO00(2) AND IF CO02(2) AND IF GZ NOT IN AG(2) THEN SZ CO05(+2);
IF CO00(2) AND IF CO02(3) AND IF GZ NOT IN AG(2) THEN SZ CO05(+3);
IF CO00(2) AND IF CO02(4) AND IF GZ NOT IN AG(2) THEN SZ CO05(+6);

IF CO00(2) AND IF CO02(1) AND IF GZ IN AG(3) THEN SZ CO05(-2),CO06(1);
IF CO00(2) AND IF CO02(2) AND IF GZ IN AG(3) THEN SZ CO05(-2),CO06(1);
IF CO00(2) AND IF CO02(3) AND IF GZ IN AG(3) THEN SZ CO05(-4),CO06(1);
IF CO00(2) AND IF CO02(4) AND IF GZ IN AG(3) THEN SZ CO05(-8),CO06(1);

IF CO00(2) AND IF CO02(1) AND IF GZ NOT IN AG(3) THEN SZ CO05(+2);
IF CO00(2) AND IF CO02(2) AND IF GZ NOT IN AG(3) THEN SZ CO05(+2);
IF CO00(2) AND IF CO02(3) AND IF GZ NOT IN AG(3) THEN SZ CO05(+4);
IF CO00(2) AND IF CO02(4) AND IF GZ NOT IN AG(3) THEN SZ CO05(+8);

//IF CO00(2) AND IF CO06(1) THEN SZ CO02(1);					// partial win reset to first stage
IF CO00(2) AND IF CO05(0) THEN SZ CO00(1),CO01(1);
IF CO00(2) THEN MESSAGE(CO05,CO00,CO01);

VE:
MESSAGE('Play VE',AG(1..3));
IF CO00(1) AND IF CO01(<=3) THEN SZ CO01(+1);					// in case of lost switch to next phase 1 part
IF CO00(2) THEN SZ CO06(0);		// reset partial win
IF CO00(2) AND IF CO02(1) AND IF GZ IN AG(1) THEN SZ CO05(-1),CO06(1);
IF CO00(2) AND IF CO02(2) AND IF GZ IN AG(1) THEN SZ CO05(-2),CO06(1);
IF CO00(2) AND IF CO02(3) AND IF GZ IN AG(1) THEN SZ CO05(-3),CO06(1);
IF CO00(2) AND IF CO02(4) AND IF GZ IN AG(1) THEN SZ CO05(-6),CO06(1);

IF CO00(2) AND IF CO02(1) AND IF GZ NOT IN AG(1) THEN SZ CO05(+1);   // add lost 
IF CO00(2) AND IF CO02(2) AND IF GZ NOT IN AG(1) THEN SZ CO05(+2);
IF CO00(2) AND IF CO02(3) AND IF GZ NOT IN AG(1) THEN SZ CO05(+3);
IF CO00(2) AND IF CO02(4) AND IF GZ NOT IN AG(1) THEN SZ CO05(+6);

IF CO00(2) AND IF CO02(1) AND IF GZ IN AG(2) THEN SZ CO05(-1),CO06(1);
IF CO00(2) AND IF CO02(2) AND IF GZ IN AG(2) THEN SZ CO05(-2),CO06(1);
IF CO00(2) AND IF CO02(3) AND IF GZ IN AG(2) THEN SZ CO05(-3),CO06(1);
IF CO00(2) AND IF CO02(4) AND IF GZ IN AG(2) THEN SZ CO05(-6),CO06(1);

IF CO00(2) AND IF CO02(1) AND IF GZ NOT IN AG(2) THEN SZ CO05(+1);
IF CO00(2) AND IF CO02(2) AND IF GZ NOT IN AG(2) THEN SZ CO05(+2);
IF CO00(2) AND IF CO02(3) AND IF GZ NOT IN AG(2) THEN SZ CO05(+3);
IF CO00(2) AND IF CO02(4) AND IF GZ NOT IN AG(2) THEN SZ CO05(+6);

IF CO00(2) AND IF CO02(1) AND IF GZ IN AG(3) THEN SZ CO05(-2),CO06(1);
IF CO00(2) AND IF CO02(2) AND IF GZ IN AG(3) THEN SZ CO05(-2),CO06(1);
IF CO00(2) AND IF CO02(3) AND IF GZ IN AG(3) THEN SZ CO05(-4),CO06(1);
IF CO00(2) AND IF CO02(4) AND IF GZ IN AG(3) THEN SZ CO05(-8),CO06(1);

IF CO00(2) AND IF CO02(1) AND IF GZ NOT IN AG(3) THEN SZ CO05(+2);
IF CO00(2) AND IF CO02(2) AND IF GZ NOT IN AG(3) THEN SZ CO05(+2);
IF CO00(2) AND IF CO02(3) AND IF GZ NOT IN AG(3) THEN SZ CO05(+4);
IF CO00(2) AND IF CO02(4) AND IF GZ NOT IN AG(3) THEN SZ CO05(+8);

// IF CO00(2) AND IF CO06(1) THEN SZ CO02(1);					// partial win reset to first stage

IF CO00(2) AND IF CO05(0) THEN SZ CO00(1),CO01(1);					// reset to phase 1
// Phase 2 total lost?
IF CO00(2) AND IF GZ NOT IN AG(1) AND IF GZ NOT IN AG(2) AND IF GZ NOT IN AG(3) THEN SZ CO02(+1);
IF CO00(2) AND IF CO02(5) THEN SZ CO00(1),CO01(1);					// total lost
IF CO01(4) THEN SZ CO01(5),CO00(2),CO02(1),CO05(16);
IF CO00(2) THEN MESSAGE(CO05,CO00,CO01);

AL:
IF CO00(1) AND IF CO01(1) THEN SZ EI0(1);
IF CO00(1) AND IF CO01(1) AND IF GZ IN DZ01 THEN SZ DZ01;
IF CO00(1) AND IF CO01(1) AND IF GZ IN DZ02 THEN SZ DZ02;
IF CO00(1) AND IF CO01(1) AND IF GZ IN DZ03 THEN SZ DZ03;

IF CO00(1) AND IF CO01(2) THEN SZ EI0(3);
IF CO00(1) AND IF CO01(2) AND IF GZ IN EC01 THEN SZ EC01;
IF CO00(1) AND IF CO01(2) AND IF GZ IN EC06 THEN SZ EC06;

IF CO00(1) AND IF CO01(3) THEN SZ EI0(9);
IF CO00(1) AND IF CO01(3) AND IF GZ IN EC01 THEN SZ EC01;
IF CO00(1) AND IF CO01(3) AND IF GZ IN EC06 THEN SZ EC06;
IF CO00(1) AND IF CO01(3) THEN SZ EI0(3);
IF CO00(1) AND IF CO01(3) AND IF GZ IN EC01 THEN SZ TS07;
IF CO00(1) AND IF CO01(3) AND IF GZ IN EC06 THEN SZ TS05;

IF CO00(2) AND IF CO02(1) THEN SZ EI0(1);
IF CO00(2) AND IF CO02(2) THEN SZ EI0(2);
IF CO00(2) AND IF CO02(3) THEN SZ EI0(3);
IF CO00(2) AND IF CO02(4) THEN SZ EI0(6);
IF CO00(2) AND IF CO02(>=1) AND IF GZ IN EC03 THEN SZ EC03;
IF CO00(2) AND IF CO02(>=1) AND IF GZ IN EC04 THEN SZ EC04;
IF CO00(2) AND IF CO02(>=1) AND IF GZ IN EC02 THEN SZ EC02;
IF CO00(2) AND IF CO02(>=1) AND IF GZ IN EC05 THEN SZ EC05;
IF CO00(2) AND IF CO02(1) THEN SZ EI0(1);
IF CO00(2) AND IF CO02(2) THEN SZ EI0(1);
IF CO00(2) AND IF CO02(3) THEN SZ EI0(2);
IF CO00(2) AND IF CO02(4) THEN SZ EI0(4);
IF CO00(2) AND IF CO02(>=1) AND IF GZ IN DZ01 THEN SZ DZ01;
IF CO00(2) AND IF CO02(>=1) AND IF GZ IN DZ02 THEN SZ DZ02;
IF CO00(2) AND IF CO02(>=1) AND IF GZ IN DZ03 THEN SZ DZ03;