Magic mat's dozens v1
(Magic mat | Stormor) Giocare le due dozzine e le due colonne diverse dal numero uscito.
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
