// System: Fitzroy Progression - EC+2 Chance

/* 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:
SZ EI1(1);                              // Start with one piece

SZ CO01(0);								// 0 = determine chance

SZ CO10(0);								// Score counter

AL:
IF CO01(1) THEN SZ CO10(+LR_PureBal);
IF CO01(1) AND IF CO10(<=0) THEN SZ EI1+2 MAX 16 THEN SZ EI1(1),CO01(0),CO10(0);
IF CO01(1) AND IF CO10(>0) THEN SZ EI1(1),CO01(0),CO10(0);

IF CO01(0) THEN SZ PT1(C);
IF CO01(0) AND IF GZ IN EC03 THEN SZ PT1(EC03),CO01(1);
IF CO01(0) AND IF GZ IN EC04 THEN SZ PT1(EC04),CO01(1);

IF CO01(1) THEN SZ PT1;