// System: Parade - Gleichsatz - Plein + 2 Nachbarn // 1. Rule: Set the throw plein + two neighours // 2. Rule: if no hit in the first 7 throws - restart /* 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 STMAX(I(1)); SZ EI1(1); SZ PT1(C); // clear playtable SZ CO00(0); // set counter AL: IF GZ IN AG(1) THEN SZ CO00(8); // if a win - restart IF CO00(0) AND IF GZ IN PL00 THEN SZ PT1(ZN00); // in the first run determine what will be played IF CO00(0) AND IF GZ IN PL01 THEN SZ PT1(ZN01); IF CO00(0) AND IF GZ IN PL02 THEN SZ PT1(ZN02); IF CO00(0) AND IF GZ IN PL03 THEN SZ PT1(ZN03); IF CO00(0) AND IF GZ IN PL04 THEN SZ PT1(ZN04); IF CO00(0) AND IF GZ IN PL05 THEN SZ PT1(ZN05); IF CO00(0) AND IF GZ IN PL06 THEN SZ PT1(ZN06); IF CO00(0) AND IF GZ IN PL07 THEN SZ PT1(ZN07); IF CO00(0) AND IF GZ IN PL08 THEN SZ PT1(ZN08); IF CO00(0) AND IF GZ IN PL09 THEN SZ PT1(ZN09); IF CO00(0) AND IF GZ IN PL10 THEN SZ PT1(ZN10); IF CO00(0) AND IF GZ IN PL11 THEN SZ PT1(ZN11); IF CO00(0) AND IF GZ IN PL12 THEN SZ PT1(ZN12); IF CO00(0) AND IF GZ IN PL13 THEN SZ PT1(ZN13); IF CO00(0) AND IF GZ IN PL14 THEN SZ PT1(ZN14); IF CO00(0) AND IF GZ IN PL15 THEN SZ PT1(ZN15); IF CO00(0) AND IF GZ IN PL16 THEN SZ PT1(ZN16); IF CO00(0) AND IF GZ IN PL17 THEN SZ PT1(ZN17); IF CO00(0) AND IF GZ IN PL18 THEN SZ PT1(ZN18); IF CO00(0) AND IF GZ IN PL19 THEN SZ PT1(ZN19); IF CO00(0) AND IF GZ IN PL20 THEN SZ PT1(ZN20); IF CO00(0) AND IF GZ IN PL21 THEN SZ PT1(ZN21); IF CO00(0) AND IF GZ IN PL22 THEN SZ PT1(ZN22); IF CO00(0) AND IF GZ IN PL23 THEN SZ PT1(ZN23); IF CO00(0) AND IF GZ IN PL24 THEN SZ PT1(ZN24); IF CO00(0) AND IF GZ IN PL25 THEN SZ PT1(ZN25); IF CO00(0) AND IF GZ IN PL26 THEN SZ PT1(ZN26); IF CO00(0) AND IF GZ IN PL27 THEN SZ PT1(ZN27); IF CO00(0) AND IF GZ IN PL28 THEN SZ PT1(ZN28); IF CO00(0) AND IF GZ IN PL29 THEN SZ PT1(ZN29); IF CO00(0) AND IF GZ IN PL30 THEN SZ PT1(ZN30); IF CO00(0) AND IF GZ IN PL31 THEN SZ PT1(ZN31); IF CO00(0) AND IF GZ IN PL32 THEN SZ PT1(ZN32); IF CO00(0) AND IF GZ IN PL33 THEN SZ PT1(ZN33); IF CO00(0) AND IF GZ IN PL34 THEN SZ PT1(ZN34); IF CO00(0) AND IF GZ IN PL35 THEN SZ PT1(ZN35); IF CO00(0) AND IF GZ IN PL36 THEN SZ PT1(ZN36); IF CO00(>=0) THEN SZ PT1(1),CO00(+1); // in each run - play the same and increase run counter IF CO00(>=7) THEN SZ CO00(0),PT1(C); // if 7 throws unsuccessful - reset set