The Holy Grail

Contenuto del file

system "The Holy Grail by Turbo"
{
*********************************************************************
* System by Turbogenius *
* on http://www.freewebs.com/turbogenius/theholygrail.htm *
*********************************************************************
Rx-ed by St0rm0r

---------------------------------------------------------------------
00-c0mpatible
---------------------------------------------------------------------
Step 1 ) Record 37 spins.
Step 2 ) Begin betting 1 unit on a number that has the least amount of hits.
Step 3 ) Play this number flat betting 1 unit for 37/38 spins.
Step 3a ) You have a win, remove this number. The other bets remain until
37/38 spins have passed.
Step 3b ) You have no win after 37/38 spins have passed.
You increase the bet +1 and play that
same number flat for the next cycle of 37/38 spins as well as the next number
with the least amount of hits.
---------------------------------------------------------------------
}
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 time record"last N"layout
call "update hits"
add 1 record"#spins"data

// section 3: act on a loss
if net < 0
begin
if record"#spins"data = record"numbers"layout count
begin
put 0 record"#spins"data
add 1 record"how many"data
call "get number to play"
add 1 record"pro"data
end
end

// section 4:act on a win
if net > 0
begin
subtract 1 record"how many"data
if record"how many"data < 1
begin
put 1 record"how many"data
put 1 record"pro"data
put 0 record"#spins"data
end
call "get number to play"
end

// section 5:act when not qualified
if flag "qualified" false
begin
if record"#spins"data = record"numbers"layout count
begin
call "get number to play"
set flag "qualified" true
put 0 record"#spins"data
end
end

// section 6:act when qualified
if flag "qualified" true
begin
//bet
put 100% record"pro"data record"play number"layout list
end

end

// subroutines
method "init"
begin
group
begin
input dropdown "Wheel type:
1:= single zero
2:= double zero" record"Wheel"data
end
if record"Wheel"data = 1
begin
load single wheel
copy list [number 0, number 1, number 2, number 3,number 4,number 5,number 6,
number 7,number 8,number 9,number 10,number 11,number 12,number 13,number 14,
number 15,number 16,number 17,number 18,number 19,number 20,number 21,number 22,
number 23,number 24,number 25,number 26,number 27,number 28,number 29,number 30,
number 31,number 32,number 33,number 34,number 35,number 36] to record"numbers"layout
set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] record"hits"data
end
else
begin
load double wheel
copy list [number 00,number 0, number 1, number 2, number 3,number 4,number 5,number 6,
number 7,number 8,number 9,number 10,number 11,number 12,number 13,number 14,
number 15,number 16,number 17,number 18,number 19,number 20,number 21,number 22,
number 23,number 24,number 25,number 26,number 27,number 28,number 29,number 30,
number 31,number 32,number 33,number 34,number 35,number 36] to record"numbers"layout
set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] record"hits"data
end
put 1 record"pro"data
put 1 record"how many"data
set flag "qualified" false
put 0 record"#spins"data
end

method "update hits"
begin
put 1 record"numbers"layout index
loop until record"numbers"layout = record"last N"layout
begin
add 1 record"numbers"layout index
end
put 100% record"numbers"layout index record"hits"data index
add 1 record"hits"data
end

method "get number to play"
begin
clear record"play number"layout
put 0 record"run"data
duplicate record"hits" record"check"
loop until record"run"data = record"how many"data
begin
put 999999 record"min"data
put 1 record"check"data index
loop until record"check"data index > record"check"data count
begin
if record"check"data < record"min"data
begin
put 100% record"check"data record"min"data
end
add 1 record"check"data index
end
put 1 record"check"data index
loop until record"check"data = record"min"data
begin
add 1 record"check"data index
end
put 999999 record"check"data
put 100% record"check"data index record"numbers"layout index
copy record"numbers"layout record"play number"layout
add 1 record"play number"layout index
add 1 record"run"data
end
end