// System: Gleichsatz auf ZN (Plein + 2) /* 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: Es wird als Signal auf einen fiktiven Treffer gewartet und danach das letzte geworfene Plein + 2 Nachbaren gespielt - // bei Gewinn wird immer das letzte Plein + 2 Nachbaren gespielt. Wenn 3mal der Satz verloren wird -> wird das System neu gestartet // und wieder auf einen fiktiven Treffer gewartet. ST: SZ EI1(1); SZ CO01(0); // Lost Counter SZ CO00(0); // wait on virtual hit - if success play always the last plein + 2 neighbors VE: SZ CO01(+1); IF CO01(3) THEN RESTART; IF GZ IN PL00 THEN SZ ZN00; IF GZ IN PL01 THEN SZ ZN01; IF GZ IN PL02 THEN SZ ZN02; IF GZ IN PL03 THEN SZ ZN03; IF GZ IN PL04 THEN SZ ZN04; IF GZ IN PL05 THEN SZ ZN05; IF GZ IN PL06 THEN SZ ZN06; IF GZ IN PL07 THEN SZ ZN07; IF GZ IN PL08 THEN SZ ZN08; IF GZ IN PL09 THEN SZ ZN09; IF GZ IN PL10 THEN SZ ZN10; IF GZ IN PL11 THEN SZ ZN11; IF GZ IN PL12 THEN SZ ZN12; IF GZ IN PL13 THEN SZ ZN13; IF GZ IN PL14 THEN SZ ZN14; IF GZ IN PL15 THEN SZ ZN15; IF GZ IN PL16 THEN SZ ZN16; IF GZ IN PL17 THEN SZ ZN17; IF GZ IN PL18 THEN SZ ZN18; IF GZ IN PL19 THEN SZ ZN19; IF GZ IN PL20 THEN SZ ZN20; IF GZ IN PL21 THEN SZ ZN21; IF GZ IN PL22 THEN SZ ZN22; IF GZ IN PL23 THEN SZ ZN23; IF GZ IN PL24 THEN SZ ZN24; IF GZ IN PL25 THEN SZ ZN25; IF GZ IN PL26 THEN SZ ZN26; IF GZ IN PL27 THEN SZ ZN27; IF GZ IN PL28 THEN SZ ZN28; IF GZ IN PL29 THEN SZ ZN29; IF GZ IN PL30 THEN SZ ZN30; IF GZ IN PL31 THEN SZ ZN31; IF GZ IN PL32 THEN SZ ZN32; IF GZ IN PL33 THEN SZ ZN33; IF GZ IN PL34 THEN SZ ZN34; IF GZ IN PL35 THEN SZ ZN35; IF GZ IN PL36 THEN SZ ZN36; GW: SZ CO01(0); // Reset Lost Counter IF GZ IN PL00 THEN SZ ZN00; IF GZ IN PL01 THEN SZ ZN01; IF GZ IN PL02 THEN SZ ZN02; IF GZ IN PL03 THEN SZ ZN03; IF GZ IN PL04 THEN SZ ZN04; IF GZ IN PL05 THEN SZ ZN05; IF GZ IN PL06 THEN SZ ZN06; IF GZ IN PL07 THEN SZ ZN07; IF GZ IN PL08 THEN SZ ZN08; IF GZ IN PL09 THEN SZ ZN09; IF GZ IN PL10 THEN SZ ZN10; IF GZ IN PL11 THEN SZ ZN11; IF GZ IN PL12 THEN SZ ZN12; IF GZ IN PL13 THEN SZ ZN13; IF GZ IN PL14 THEN SZ ZN14; IF GZ IN PL15 THEN SZ ZN15; IF GZ IN PL16 THEN SZ ZN16; IF GZ IN PL17 THEN SZ ZN17; IF GZ IN PL18 THEN SZ ZN18; IF GZ IN PL19 THEN SZ ZN19; IF GZ IN PL20 THEN SZ ZN20; IF GZ IN PL21 THEN SZ ZN21; IF GZ IN PL22 THEN SZ ZN22; IF GZ IN PL23 THEN SZ ZN23; IF GZ IN PL24 THEN SZ ZN24; IF GZ IN PL25 THEN SZ ZN25; IF GZ IN PL26 THEN SZ ZN26; IF GZ IN PL27 THEN SZ ZN27; IF GZ IN PL28 THEN SZ ZN28; IF GZ IN PL29 THEN SZ ZN29; IF GZ IN PL30 THEN SZ ZN30; IF GZ IN PL31 THEN SZ ZN31; IF GZ IN PL32 THEN SZ ZN32; IF GZ IN PL33 THEN SZ ZN33; IF GZ IN PL34 THEN SZ ZN34; IF GZ IN PL35 THEN SZ ZN35; IF GZ IN PL36 THEN SZ ZN36; AL: IF CO00(1) AND IF GZ IN PT1 THEN SZ PT1,CO00(2); IF CO00(1) AND IF GZ NOT IN PT1 THEN SZ CO00(0); IF CO00(0) THEN SZ PT1(C); IF CO00(0) AND IF GZ IN PL00 THEN SZ PT1(ZN00),CO00(1); IF CO00(0) AND IF GZ IN PL01 THEN SZ PT1(ZN01),CO00(1); IF CO00(0) AND IF GZ IN PL02 THEN SZ PT1(ZN02),CO00(1); IF CO00(0) AND IF GZ IN PL03 THEN SZ PT1(ZN03),CO00(1); IF CO00(0) AND IF GZ IN PL04 THEN SZ PT1(ZN04),CO00(1); IF CO00(0) AND IF GZ IN PL05 THEN SZ PT1(ZN05),CO00(1); IF CO00(0) AND IF GZ IN PL06 THEN SZ PT1(ZN06),CO00(1); IF CO00(0) AND IF GZ IN PL07 THEN SZ PT1(ZN07),CO00(1); IF CO00(0) AND IF GZ IN PL08 THEN SZ PT1(ZN08),CO00(1); IF CO00(0) AND IF GZ IN PL09 THEN SZ PT1(ZN09),CO00(1); IF CO00(0) AND IF GZ IN PL10 THEN SZ PT1(ZN10),CO00(1); IF CO00(0) AND IF GZ IN PL11 THEN SZ PT1(ZN11),CO00(1); IF CO00(0) AND IF GZ IN PL12 THEN SZ PT1(ZN12),CO00(1); IF CO00(0) AND IF GZ IN PL13 THEN SZ PT1(ZN13),CO00(1); IF CO00(0) AND IF GZ IN PL14 THEN SZ PT1(ZN14),CO00(1); IF CO00(0) AND IF GZ IN PL15 THEN SZ PT1(ZN15),CO00(1); IF CO00(0) AND IF GZ IN PL16 THEN SZ PT1(ZN16),CO00(1); IF CO00(0) AND IF GZ IN PL17 THEN SZ PT1(ZN17),CO00(1); IF CO00(0) AND IF GZ IN PL18 THEN SZ PT1(ZN18),CO00(1); IF CO00(0) AND IF GZ IN PL19 THEN SZ PT1(ZN19),CO00(1); IF CO00(0) AND IF GZ IN PL20 THEN SZ PT1(ZN20),CO00(1); IF CO00(0) AND IF GZ IN PL21 THEN SZ PT1(ZN21),CO00(1); IF CO00(0) AND IF GZ IN PL22 THEN SZ PT1(ZN22),CO00(1); IF CO00(0) AND IF GZ IN PL23 THEN SZ PT1(ZN23),CO00(1); IF CO00(0) AND IF GZ IN PL24 THEN SZ PT1(ZN24),CO00(1); IF CO00(0) AND IF GZ IN PL25 THEN SZ PT1(ZN25),CO00(1); IF CO00(0) AND IF GZ IN PL26 THEN SZ PT1(ZN26),CO00(1); IF CO00(0) AND IF GZ IN PL27 THEN SZ PT1(ZN27),CO00(1); IF CO00(0) AND IF GZ IN PL28 THEN SZ PT1(ZN28),CO00(1); IF CO00(0) AND IF GZ IN PL29 THEN SZ PT1(ZN29),CO00(1); IF CO00(0) AND IF GZ IN PL30 THEN SZ PT1(ZN30),CO00(1); IF CO00(0) AND IF GZ IN PL31 THEN SZ PT1(ZN31),CO00(1); IF CO00(0) AND IF GZ IN PL32 THEN SZ PT1(ZN32),CO00(1); IF CO00(0) AND IF GZ IN PL33 THEN SZ PT1(ZN33),CO00(1); IF CO00(0) AND IF GZ IN PL34 THEN SZ PT1(ZN34),CO00(1); IF CO00(0) AND IF GZ IN PL35 THEN SZ PT1(ZN35),CO00(1); IF CO00(0) AND IF GZ IN PL36 THEN SZ PT1(ZN36),CO00(1);