Robs system

Contenuto del file

system "Rob"

{rule 1. Must spin wheel minimum of 40 times.
rule 2. After 40 spins, we are looking for streets
that have not been hit, if all hit then start over.
If more than one not hit keep spinning until only
one street is open.
rule 3. Bet on vacant street using this progression
1 unit for fist 11 spins then 2 units for 6 spins,
then 3 units for 4 spins. Win or lose go back to rule #1.}

method "main"
begin
// set initial values
while starting a new session begin
put 0 on record "spin" data
put 0 on record "s1" data put 0 on record "s4" data
put 0 on record "s7" data put 0 on record "s10" data
put 0 on record "s13" data put 0 on record "s16" data
put 0 on record "s19" data put 0 on record "s22" data
put 0 on record "s25" data put 0 on record "s28" data
put 0 on record "s31" data put 0 on record "s34" data
put 0 on record "qualified" data
// set progression
set list of [1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,3,3,3,3,4,4,4,5,5,6,6,7,7,
8,9,10,11,12,13,14,15,16,18,20,21,23,25,28,30,33,36,39,43,47,51,
56,61,66,72,79,86,94,102,112,122,133,145,158,172,188,205,224,
244,266,291,317,346,377,412,449,490,534,583,636,694,757,826,
901,983,1072,1169,1276,1392,1518,1656,1807,1971,2150,2346,
2559,2792,3045,3322 ] to
record "bet" data
end
// reset all on any win
if any street bet won each time begin
put 0 on record "spin" data
put 0 on record "s1" data put 0 on record "s4" data
put 0 on record "s7" data put 0 on record "s10" data
put 0 on record "s13" data put 0 on record "s16" data
put 0 on record "s19" data put 0 on record "s22" data
put 0 on record "s25" data put 0 on record "s28" data
put 0 on record "s31" data put 0 on record "s34" data
put 1 to record "bet" data index
put 0 on record "spin" data
put 0 on record "qualified" data end
// check for a qualified street
if record "spin" data >= 40 begin
put 0 on record "total" data
if record "s1" data = 0 begin add 1 to record "total" data end
if record "s4" data = 0 begin add 1 to record "total" data end
if record "s7" data = 0 begin add 1 to record "total" data end
if record "s10" data = 0 begin add 1 to record "total" data end
if record "s13" data = 0 begin add 1 to record "total" data end
if record "s16" data = 0 begin add 1 to record "total" data end
if record "s19" data = 0 begin add 1 to record "total" data end
if record "s22" data = 0 begin add 1 to record "total" data end
if record "s25" data = 0 begin add 1 to record "total" data end
if record "s28" data = 0 begin add 1 to record "total" data end
if record "s31" data = 0 begin add 1 to record "total" data end
if record "s34" data = 0 begin add 1 to record "total" data end
// check total, if 0 then reset - if 1 then begin play
if record "total" data = 0 begin
put 0 on record "spin" data
put 0 on record "s1" data put 0 on record "s4" data
put 0 on record "s7" data put 0 on record "s10" data
put 0 on record "s13" data put 0 on record "s16" data
put 0 on record "s19" data put 0 on record "s22" data
put 0 on record "s25" data put 0 on record "s28" data
put 0 on record "s31" data put 0 on record "s34" data
put 1 to record "bet" data index
put 0 on record "qualified" data end
if record "total" data = 1 begin
put 1 on record "qualified" data end
end
// track streets as they show
if street(1-3) hit each time begin put 1 on record "s1" data end
if street(4-6) hit each time begin put 1 on record "s4" data end
if street(7-9) hit each time begin put 1 on record "s7" data end
if street(10-12) hit each time begin put 1 on record "s10" data end
if street(13-15) hit each time begin put 1 on record "s13" data end
if street(16-18) hit each time begin put 1 on record "s16" data end
if street(19-21) hit each time begin put 1 on record "s19" data end
if street(22-24) hit each time begin put 1 on record "s22" data end
if street(25-27) hit each time begin put 1 on record "s25" data end
if street(28-30) hit each time begin put 1 on record "s28" data end
if street(31-33) hit each time begin put 1 on record "s31" data end
if street(34-36) hit each time begin put 1 on record "s34" data end
// place bets when qualified
if record "qualified" data = 1 begin
if record "s1" data = 0 begin put 100% of record "bet" data
on street(1-3) end
if record "s4" data = 0 begin put 100% of record "bet" data
on street(4-6) end
if record "s7" data = 0 begin put 100% of record "bet" data
on street(7-9) end
if record "s10" data = 0 begin put 100% of record "bet" data
on street(10-12) end
if record "s13" data = 0 begin put 100% of record "bet" data
on street(13-15) end
if record "s16" data = 0 begin put 100% of record "bet" data
on street(16-18) end
if record "s19" data = 0 begin put 100% of record "bet" data
on street(19-21) end
if record "s22" data = 0 begin put 100% of record "bet" data
on street(22-24) end
if record "s25" data = 0 begin put 100% of record "bet" data
on street(25-27) end
if record "s28" data = 0 begin put 100% of record "bet" data
on street(28-30) end
if record "s31" data = 0 begin put 100% of record "bet" data
on street(31-33) end
if record "s34" data = 0 begin put 100% of record "bet" data
on street(34-36) end
// progression
add 1 to record "bet" data index
end
// spin count
add 1 to record "spin" data
end