// System: Pleinspiel im Gleichsatz (Beruecksichtigung der Haeufigkeitsverteilung)

/* 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)
*/

// Regeln: Nach 37 Coups werden alle Pleins gespielt, die in diesen 37 Coups genau einmal vorkommen. Angriff wird mit Gewinn oder nach 12 // mal Verlust beendet.

ST:
MESSAGE OFF;
SZ STMAX(I(36));
SZ EI1(1);

SZ CO01(0);		// Lost Counter
SZ CO00(0);    // search PL with only 1 occurrence

VE:
SZ CO01(+1);
IF CO01(12) THEN RESTART(N);
SZ PT1;

GW:
SZ CO00(0);		// try to found the next set
SZ PT1(C);		// clear playtable
SZ CO01(0);		// reset lost counter

AL:

IF CO00(0) AND IF RZ(37/=1) IN PL00 THEN SZ PT1(PL00);
IF CO00(0) AND IF RZ(37/=1) IN PL01 THEN SZ PT1(PL01);
IF CO00(0) AND IF RZ(37/=1) IN PL02 THEN SZ PT1(PL02);
IF CO00(0) AND IF RZ(37/=1) IN PL03 THEN SZ PT1(PL03);
IF CO00(0) AND IF RZ(37/=1) IN PL04 THEN SZ PT1(PL04);
IF CO00(0) AND IF RZ(37/=1) IN PL05 THEN SZ PT1(PL05);
IF CO00(0) AND IF RZ(37/=1) IN PL06 THEN SZ PT1(PL06);
IF CO00(0) AND IF RZ(37/=1) IN PL07 THEN SZ PT1(PL07);
IF CO00(0) AND IF RZ(37/=1) IN PL08 THEN SZ PT1(PL08);
IF CO00(0) AND IF RZ(37/=1) IN PL09 THEN SZ PT1(PL09);
IF CO00(0) AND IF RZ(37/=1) IN PL10 THEN SZ PT1(PL10);
IF CO00(0) AND IF RZ(37/=1) IN PL11 THEN SZ PT1(PL11);
IF CO00(0) AND IF RZ(37/=1) IN PL12 THEN SZ PT1(PL12);
IF CO00(0) AND IF RZ(37/=1) IN PL13 THEN SZ PT1(PL13);
IF CO00(0) AND IF RZ(37/=1) IN PL14 THEN SZ PT1(PL14);
IF CO00(0) AND IF RZ(37/=1) IN PL15 THEN SZ PT1(PL15);
IF CO00(0) AND IF RZ(37/=1) IN PL16 THEN SZ PT1(PL16);
IF CO00(0) AND IF RZ(37/=1) IN PL17 THEN SZ PT1(PL17);
IF CO00(0) AND IF RZ(37/=1) IN PL18 THEN SZ PT1(PL18);
IF CO00(0) AND IF RZ(37/=1) IN PL19 THEN SZ PT1(PL19);
IF CO00(0) AND IF RZ(37/=1) IN PL20 THEN SZ PT1(PL20);
IF CO00(0) AND IF RZ(37/=1) IN PL21 THEN SZ PT1(PL21);
IF CO00(0) AND IF RZ(37/=1) IN PL22 THEN SZ PT1(PL22);
IF CO00(0) AND IF RZ(37/=1) IN PL23 THEN SZ PT1(PL23);
IF CO00(0) AND IF RZ(37/=1) IN PL24 THEN SZ PT1(PL24);
IF CO00(0) AND IF RZ(37/=1) IN PL25 THEN SZ PT1(PL25);
IF CO00(0) AND IF RZ(37/=1) IN PL26 THEN SZ PT1(PL26);
IF CO00(0) AND IF RZ(37/=1) IN PL27 THEN SZ PT1(PL27);
IF CO00(0) AND IF RZ(37/=1) IN PL28 THEN SZ PT1(PL28);
IF CO00(0) AND IF RZ(37/=1) IN PL29 THEN SZ PT1(PL29);
IF CO00(0) AND IF RZ(37/=1) IN PL30 THEN SZ PT1(PL30);
IF CO00(0) AND IF RZ(37/=1) IN PL31 THEN SZ PT1(PL31);
IF CO00(0) AND IF RZ(37/=1) IN PL32 THEN SZ PT1(PL32);
IF CO00(0) AND IF RZ(37/=1) IN PL33 THEN SZ PT1(PL33);
IF CO00(0) AND IF RZ(37/=1) IN PL34 THEN SZ PT1(PL34);
IF CO00(0) AND IF RZ(37/=1) IN PL35 THEN SZ PT1(PL35);
IF CO00(0) AND IF RZ(37/=1) IN PL36 THEN SZ PT1(PL36);

IF CO00(0) THEN SZ PT1,CO00(1);							// make the bet and disable the AL section