This should be just what you are after.
Happy experimenting,
Spin.
system "Rolletti's Thirds"
{
*************************************
* System by Rolletti *
* on rouletteforum.cc *
*************************************
Rx-ed by Sp1N-D1zZy
-------------------------------------
not 00-c0mpatible
-------------------------------------
Track spin results until 1 number hits the third time.
Flat bet 1 unit on all numbers that have hit 3 times until one of them hits
for a fourth time. Then reset and start from scratch.
If there did not hit any number for three times until spin 36, start from scratch.
If not any number of the 3 time hit numbers hits a fourth time until spin 37,
start from scratch.
-------------------------------------
}
method "main"
begin
while starting new session
begin
call "Init"
exit
end
call "eval"
call "bet"
end
method "reset"
begin
clear all records
call "init"
exit
end
method "eval"
begin
if any number bet won each
begin
call "reset"
end
end
method "track"
begin
add 1 record "Count2"data
if record"Count2"data = 37
begin
call "reset"
end
put 1 record"Single Wheel"layout index
put 1 record"Track"data index
loop until record"Single Wheel"layout index > record"Single Wheel"layout count
begin
if record"Track"data >= 3
begin
put 1 record"Single Wheel"layout
end
add 1 record"Single Wheel"layout index
add 1 record"Track"data index
end
end
method "bet"
begin
add 1 record"Count"data
track last number for 1 record"LastN"layout
put 1 record"Single Wheel"layout index
put 1 record"Track"data index
loop until record"Single Wheel"layout index > record"Single Wheel"layout count
begin
copy record"Single Wheel"layout record"Temp"layout
if record"Temp"layout list pattern match record"LastN"layout
begin
add 1 record"Track"data
end
add 1 record"Track"data index
add 1 record"Single Wheel"layout index
end
put 1 record"Track"data index
loop until record"Track"data index > record"Track"data count
begin
if record"Track"data = 3
begin
call "track"
exit
end
add 1 record"Track"data index
end
if record"Count"data = 36
begin
call "reset"
end
end
method "Init"
begin
load single wheel
copy list [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,1,8,19,20,21,22,23,24,25,
26,27,28,29,30,31,32,33,34,35,36] record"Single Wheel"layout
end