// System: Missing TransversaleSimple u TransversalePlein (Gleichsatz) /* 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 6 Coups werden die TS (1 oder max.2) bestimmt, welche die wenigsten Treffer haben. Die gespielten TSs werden zusätzlich mit den dazugehörigen TP's gespielt. Bei Gewinn wird das System neu gestartet (ohne Verzögerung). Nach 3mal Verlust wird das System neu gestartet (ohne Verzögerung). */ ST: MESSAGE OFF; SZ STMAX(I(5)); SZ EI1(1); SZ CO00(0); // search missing TS SZ CO10(0); // to check if each number are in a TS SZ CO11(0); // 3 TS should not have >= 2 hits SZ CO12(0); SZ CO13(0); SZ CO15(0); // lost counter SZ CO01(0); // TS01 SZ CO02(0); // TS03 SZ CO03(0); // TS05 SZ CO04(0); // TS07 SZ CO05(0); // TS09 SZ CO06(0); // TS11 VE: SZ CO15(+1); // increment lost counter IF CO15(3) THEN RESTART(N); SZ PT1; GW: SZ CO00(0),CO10(0),CO11(0),CO12(0),CO13(0),CO15(0); // in win case reset - and run in AL SZ CO01(0),CO02(0),CO03(0),CO04(0),CO05(0),CO06(0); AL: IF CO00(0) AND IF GZ IN TS01 THEN SZ CO01(+1),CO10(+1); IF CO00(0) AND IF GZ IN TS03 THEN SZ CO02(+1),CO10(+1); IF CO00(0) AND IF GZ IN TS05 THEN SZ CO03(+1),CO10(+1); IF CO00(0) AND IF GZ IN TS07 THEN SZ CO04(+1),CO10(+1); IF CO00(0) AND IF GZ IN TS09 THEN SZ CO05(+1),CO10(+1); IF CO00(0) AND IF GZ IN TS11 THEN SZ CO06(+1),CO10(+1); IF CO00(0) AND IF VZ IN TS01 THEN SZ CO01(+1),CO10(+1); IF CO00(0) AND IF VZ IN TS03 THEN SZ CO02(+1),CO10(+1); IF CO00(0) AND IF VZ IN TS05 THEN SZ CO03(+1),CO10(+1); IF CO00(0) AND IF VZ IN TS07 THEN SZ CO04(+1),CO10(+1); IF CO00(0) AND IF VZ IN TS09 THEN SZ CO05(+1),CO10(+1); IF CO00(0) AND IF VZ IN TS11 THEN SZ CO06(+1),CO10(+1); IF CO00(0) AND IF V0 IN TS01 THEN SZ CO01(+1),CO10(+1); IF CO00(0) AND IF V0 IN TS03 THEN SZ CO02(+1),CO10(+1); IF CO00(0) AND IF V0 IN TS05 THEN SZ CO03(+1),CO10(+1); IF CO00(0) AND IF V0 IN TS07 THEN SZ CO04(+1),CO10(+1); IF CO00(0) AND IF V0 IN TS09 THEN SZ CO05(+1),CO10(+1); IF CO00(0) AND IF V0 IN TS11 THEN SZ CO06(+1),CO10(+1); IF CO00(0) AND IF V1 IN TS01 THEN SZ CO01(+1),CO10(+1); IF CO00(0) AND IF V1 IN TS03 THEN SZ CO02(+1),CO10(+1); IF CO00(0) AND IF V1 IN TS05 THEN SZ CO03(+1),CO10(+1); IF CO00(0) AND IF V1 IN TS07 THEN SZ CO04(+1),CO10(+1); IF CO00(0) AND IF V1 IN TS09 THEN SZ CO05(+1),CO10(+1); IF CO00(0) AND IF V1 IN TS11 THEN SZ CO06(+1),CO10(+1); IF CO00(0) AND IF V2 IN TS01 THEN SZ CO01(+1),CO10(+1); IF CO00(0) AND IF V2 IN TS03 THEN SZ CO02(+1),CO10(+1); IF CO00(0) AND IF V2 IN TS05 THEN SZ CO03(+1),CO10(+1); IF CO00(0) AND IF V2 IN TS07 THEN SZ CO04(+1),CO10(+1); IF CO00(0) AND IF V2 IN TS09 THEN SZ CO05(+1),CO10(+1); IF CO00(0) AND IF V2 IN TS11 THEN SZ CO06(+1),CO10(+1); IF CO00(0) AND IF V3 IN TS01 THEN SZ CO01(+1),CO10(+1); IF CO00(0) AND IF V3 IN TS03 THEN SZ CO02(+1),CO10(+1); IF CO00(0) AND IF V3 IN TS05 THEN SZ CO03(+1),CO10(+1); IF CO00(0) AND IF V3 IN TS07 THEN SZ CO04(+1),CO10(+1); IF CO00(0) AND IF V3 IN TS09 THEN SZ CO05(+1),CO10(+1); IF CO00(0) AND IF V3 IN TS11 THEN SZ CO06(+1),CO10(+1); IF CO00(0) AND IF CO10(6) THEN SZ CO00(1); // each last 6 number's are in a TS IF CO00(0) THEN MESSAGE(CO10); IF CO00(0) AND IF CO10(<6) THEN RESTART(N); // Zero in the last 6 number -> restart without I IF CO00(1) AND IF CO01(0) THEN SZ CO12(+1); // count zero IF CO00(1) AND IF CO02(0) THEN SZ CO12(+1); IF CO00(1) AND IF CO03(0) THEN SZ CO12(+1); IF CO00(1) AND IF CO04(0) THEN SZ CO12(+1); IF CO00(1) AND IF CO05(0) THEN SZ CO12(+1); IF CO00(1) AND IF CO06(0) THEN SZ CO12(+1); IF CO00(1) THEN MESSAGE(CO01,CO02,CO03,CO04,CO05,CO06); IF CO00(1) AND IF CO12(2) THEN SZ CO00(2); // only 2 TS are zero -> make a bet IF CO00(1) AND IF CO12(1) THEN SZ CO00(2); // only 1 TS are zero (have no hit) -> make a bet IF CO00(1) THEN RESTART(N); // not the right case found -> restart without I IF CO00(2) THEN SZ PT1(C); IF CO00(2) AND IF CO01(0) THEN SZ PT1(TS01),PT1(TP03),PT1(TP04); IF CO00(2) AND IF CO02(0) THEN SZ PT1(TS03),PT1(TP05),PT1(TP06); IF CO00(2) AND IF CO03(0) THEN SZ PT1(TS05),PT1(TP07),PT1(TP08); IF CO00(2) AND IF CO04(0) THEN SZ PT1(TS07),PT1(TP09),PT1(TP10); IF CO00(2) AND IF CO05(0) THEN SZ PT1(TS09),PT1(TP11),PT1(TP12); IF CO00(2) AND IF CO06(0) THEN SZ PT1(TS11),PT1(TP13),PT1(TP14); IF CO00(2) THEN SZ PT1; // make the bets IF CO00(2) THEN SZ CO00(3); // disable AL section