system "Johnny_123's street system"
{
  List of Commands (Condition and Action statements)
  Press 'F2' to start the list.  After each keyword, pressing 'F2' again
  will result in statement completion.

  For example: Put 5 units on (press 'F2' here will give you a list of layouts)

  Autocompletion Templates
  Press 'F6' to bring up a dialog box showing a list of autocompletion templates
  that are defined by you.  Some pre-built templates are also include.  To make
  changes to these templates, select 'Options/Editor Options (Ctrl-F3) and then
  select the Auto Completion' tab.  To add templates to the system editor, press 'F6'
  or type the template name (i.e. fstart) and press 'Ctrl-J' key.

  For help on any keyword, condition, action or identifiers, press 'F1' after
  you mouse-click on the word.

  This comment section has been created using Auto Completion.
  The name is called "default".  To make modifications, select 'Options/Editor Options
  (Ctrl-F3) and then select the Auto Completion' tab.
}
method "main"
begin
while starting a new session begin
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
// progression of :
// 1,1,1,1,2,2,2,2,3,3,4,5,6,7,8,10,12,14,17,21
// 25,30,36,43,52,62,74,88
set list of [1,1,1,1,2,2,2,2,3,3,4,5,6,7,8,
10,12,14,17,21,25,30,36,43,52,62,74,88,1000]
// note : 1000 is used to trigger reset and is not a bet
to record "progression" data
put 0 on record "total streets played" data
end

// reset on a progression bust :
if record "progression" data = 1000 begin
put 1 on record "progression" data index
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
end

// reset progression on any win :
if any street bet won each time begin
put 1 on record "progression" data index
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
end

// track which streets 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

// reset when more than 4 streets are qualified :
put 0 on record "total streets played" data
add 100% of record "s1" data to record "total streets played" data
add 100% of record "s4" data to record "total streets played" data
add 100% of record "s7" data to record "total streets played" data
add 100% of record "s10" data to record "total streets played" data
add 100% of record "s13" data to record "total streets played" data
add 100% of record "s16" data to record "total streets played" data
add 100% of record "s19" data to record "total streets played" data
add 100% of record "s22" data to record "total streets played" data
add 100% of record "s25" data to record "total streets played" data
add 100% of record "s28" data to record "total streets played" data
add 100% of record "s31" data to record "total streets played" data
add 100% of record "s34" data to record "total streets played" data
// check for reset :
if record "total streets played" data > 4 begin // reset
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
end

// place bets where qualified :
if record "s1" data = 1 begin
put 100% of record "progression" data on street(1-3) end
if record "s4" data = 1 begin
put 100% of record "progression" data on street(4-6) end
if record "s7" data = 1 begin
put 100% of record "progression" data on street(7-9) end
if record "s10" data = 1 begin
put 100% of record "progression" data on street(10-12) end
if record "s13" data = 1 begin
put 100% of record "progression" data on street(13-15) end
if record "s16" data = 1 begin
put 100% of record "progression" data on street(16-18) end
if record "s19" data = 1 begin
put 100% of record "progression" data on street(19-21) end
if record "s22" data = 1 begin
put 100% of record "progression" data on street(22-24) end
if record "s25" data = 1 begin
put 100% of record "progression" data on street(25-27) end
if record "s28" data = 1 begin
put 100% of record "progression" data on street(28-30) end
if record "s31" data = 1 begin
put 100% of record "progression" data on street(31-33) end
if record "s34" data = 1 begin
put 100% of record "progression" data on street(34-36) end

// progression :
add 1 to record "progression" data index

// finished :
end