Hottest Number
Hottest Number.dgt
—
Xtreme,
2 KB (2282 bytes)
Contenuto del file
system "Hottest Number"
{Bet on the hottest number.
If after 37 spins no new high has been reached, add one to the bet.}
method "main"
begin
While starting a new session
begin
Call "setup"
end
Call "Check SD"
Call "Bet"
end
Method "Check SD"
begin
Calculate StdDev of Number 1 to record "SD Value" data
Put 1 on record "Layout Pointer" data
put 2 on record "Number List" layout index
Loop until record "Number List" layout index > record "Number List" layout count
begin
Calculate StdDev of record "Number List" layout to record "SD Check" data
if record "SD Check" data > record "SD Value" data
begin
put 100% record "SD Check" data on record "SD Value" data
put 100% record "Number List" Layout index on record "Layout Pointer" data
end
Add 1 to record "Number List" layout index
end
put 100% record "Layout Pointer" data on record "Number List" layout index
duplicate record "Number List" record "Target Number"
end
Method "Bet"
begin
Add 1 to record "Spins" data
if record "Spins" data = 38
begin
if Bankroll < record "Prev Bankroll" data
begin
Add 1 to record "Bet Unit" data
Put 0 on record "Spins" data
end
end
if Bankroll > record "Prev Bankroll" data
begin
put 1 on record "Bet Unit" data
put 100% Bankroll on record "Prev Bankroll" data
end
put 100% record "Bet Unit" data on record "Target Number" layout
end
Method "Setup"
begin
copy list [Number 1] on record "Target Number" Layout
put 0 on record "Prev Bankroll" data
put 1 on record "Bet Unit" data
put 0 on record "Layout Pointer" data
put 0 on record "Spins" data
Copy List [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, Number 0] to record "Number List" layout
end





