Magic mat's dozens v1
magic_mat's dozens v1.dgt — Xtreme, 6 KB (6784 bytes)
Contenuto del file
system "magic_mat's dozens v1" { ************************************* * System by magic_mat * * on the VIP Lounge * ************************************* Rx-ed by St0rm0r ------------------------------------- 00-c0mpatible ------------------------------------- First you do 1 spin, if 0 comes up you do another spin untill a number comes up. Bet the 2 dozens and columns that didn't show last. Individual progression on dozens & columns: 1,3,9,27,81 ------------------------------------- } method "main" begin // section 1: do this once while starting new session begin call "init" exit end // section 2: do the tracking track last number for 1 record"N"layout track last dozen for 1 record"D"layout track last column for 1 record"C"layout // section 3: act on a loss if any dozen bet has lost each begin add 1 record"proD"data index if record"proD"data index > record"proD"data count begin put 1 record"proD"data index end end if any column bet has lost each begin add 1 record"proC"data index if record"proC"data index > record"proC"data count begin put 1 record"proC"data index end end if record"N"layout is not found in record"play"layout and flag "bet" true begin add 1 record"pro"data index if record"pro"data index > record"pro"data count begin put 1 record"pro"data index end end // section 4:act on a win if any dozen bet has won each begin put 1 record"proD"data index end if any column bet has won each begin put 1 record"proC"data index end if record"N"layout is found in record"play"layout and flag "bet" true begin put 1 record"pro"data index end //section 6: bet if record"F"data = 1 begin put 1 record"proC"data put 1 record"proD"data put 1 record"pro"data end if record"D"layout not = red begin if record"P"data=1 begin put 1 record"Do"layout index loop until record"Do"layout index > record"Do"layout count begin if record"Do"layout not = record"D"layout begin put 100% record"proD"data record"Do"layout end add 1 record"Do"layout index end put 1 record"Co"layout index loop until record"Co"layout index > record"Co"layout count begin if record"Co"layout not = record"C"layout begin put 100% record"proC"data record"Co"layout end add 1 record"Co"layout index end end if record"P"data=2 begin if record"D"layout = 1st dozen and record"C"layout = column A begin copy list [number 14,number 15,number 17,number 18,number 20,number 21, number 23,number 24,number 26,number 27,number 29,number 30, number 32,number 33,number 35,number 36] record"play"layout end if record"D"layout = 1st dozen and record"C"layout = column B begin copy list [number 13,number 15,number 16,number 18,number 19,number 21, number 22,number 24,number 25,number 27,number 28,number 30, number 31,number 33,number 34,number 36] record"play"layout end if record"D"layout = 1st dozen and record"C"layout = column C begin copy list [number 13,number 14,number 16,number 17,number 19,number 20, number 22,number 23,number 25,number 26,number 28,number 29, number 31,number 32,number 34,number 35] record"play"layout end if record"D"layout = 2nd dozen and record"C"layout = column A begin copy list [number 2,number 3,number 5,number 6,number 8,number 9, number 11,number 12,number 26,number 27,number 29,number 30, number 32,number 33,number 35,number 36] record"play"layout end if record"D"layout = 2nd dozen and record"C"layout = column B begin copy list [number 1,number 3,number 4,number 6,number 7,number 9, number 10,number 12,number 25,number 27,number 28,number 30, number 31,number 33,number 34,number 36] record"play"layout end if record"D"layout = 2nd dozen and record"C"layout = column C begin copy list [number 1,number 2,number 4,number 5,number 7,number 8, number 10,number 11,number 25,number 26,number 28,number 29, number 31,number 32,number 34,number 35] record"play"layout end if record"D"layout = 3rd dozen and record"C"layout = column A begin copy list [number 2,number 3,number 5,number 6,number 8,number 9, number 11,number 12,number 14,number 15,number 17,number 18, number 20,number 21,number 23,number 24] record"play"layout end if record"D"layout = 3rd dozen and record"C"layout = column B begin copy list [number 1,number 3,number 4,number 6,number 7,number 9, number 10,number 12,number 13,number 15,number 16,number 18, number 19,number 21,number 22,number 24] record"play"layout end if record"D"layout = 3rd dozen and record"C"layout = column C begin copy list [number 1,number 2,number 4,number 5,number 7,number 8, number 10,number 11,number 13,number 14,number 16,number 17, number 19,number 20,number 22,number 23] record"play"layout end put 100% record"pro"data record"play"layout list set flag "bet" true end end end // subroutines method "init" begin group begin display "magic_mat's dozens" display "-------------------------------" input dropdown "Play 1:= dozens & columns 2:= numbers in dozens & columns" record"P"data input dropdown "Progression 1:= flat bet 2:= progression" record"F"data end copy list [1st dozen, 2nd dozen, 3rd dozen] record"Do"layout copy list [column A, column B, column C] record"Co"layout copy red record"D"layout copy red record"C"layout if record"P"data = 1 begin set list [1,3,9,27,81] record"proD"data set list [1,3,9,27,81] record"proC"data end if record"P"data = 2 begin set list [1,2,3,6,11,20,36] record"pro"data end call "reset" end method "reset" begin set flag "qualified" false set flag "bet" false end