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