// System: Royal System

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

// in the first run - determine DZ (or KL)
// modify: play bet as long as possible - in case of bet bust - reset bet

ST:
SZ STMAX(I(1));
SZ CO01(1);			// 1= determine DZ
SZ EI1(1);
GW:
SZ CO01(1);						// reset to determine the DZ - no bet reset!
VE:
SZ EI1*2 MAX 8 THEN SZ EI1(1);
SZ PT1;
AL:
IF CO01(1) THEN SZ PT1(C);
IF CO01(1) AND IF GZ IN DZ01 THEN SZ PT1(DZ02),PT1(DZ03);				
IF CO01(1) AND IF GZ IN DZ02 THEN SZ PT1(DZ01),PT1(DZ03);				
IF CO01(1) AND IF GZ IN DZ03 THEN SZ PT1(DZ01),PT1(DZ02);
IF CO01(1) AND IF GZ NOT IN PL00 THEN SZ PT1,CO01(2);		// make a bet only if GZ is not Zero - in the next round DZ will be determine