system "Shotwell_Roulette_System" {Shotwell Roulette System System designed from an excerpt written in "Gambling Systems that Win, 1978" This system is only concerned with the six number combination bets and the straight-up bets. When making the bets, there are only seven combinations that will work. The combinations are setup as Group A-G as follows: Group A: Line (1-6) Numbers: 20,26,8,10 Group B: Line (4-9) Numbers: 13,14,15,10 Group C: Line (10-15) Numbers:16,17,18,28 Group D: Line (13-18) Numbers: 11,12,27,28 Group E: Line (19-24) Numbers: 1,1,4,26 Group F: Line (28-33) Numbers: 00,22,24,35 Group G: Line (31=36) Numbers: 0,00,29,30 This system is designed to be used with the American (Double Zero) Wheel. Set the table layout for American Wheel. The system starts by allowing the User to select one of the 7 Groups. } method "main" begin While Starting a New Session begin call "Input Group Number"; Put 1 on Record "Six number combination" layout; call "Make minimum bet"; Exit; end While On each Spin begin Put 100 % of the last Record "Six number combination" layout on Record "Six number combination" layout; Put 100 % of the last Record "1st straight-up number" layout on Record "1st straight-up number" layout; Put 100 % of the last Record "2nd straight-up number" layout on Record "2nd straight-up number" layout; Put 100 % of the last Record "3rd straight-up number" layout on Record "3rd straight-up number" layout; Put 100 % of the last Record "4th straight-up number" layout on Record "4th straight-up number" layout; While Record "Six number combination" layout has won each time begin Add 1 on Record "Six number combination" layout; end Else begin Put 1 on Record "Six number combination" layout; While Record "1st straight-up number" layout has won each time Or Record "2nd straight-up number" layout has won each time Or Record "3rd straight-up number" layout has won each time Or Record "4th straight-up number" layout has won each time begin Put 200 % of Record "1st straight-up number" layout on Record "1st straight-up number" layout; Put 200 % of Record "2nd straight-up number" layout on Record "2nd straight-up number" layout; Put 200 % of Record "3rd straight-up number" layout on Record "3rd straight-up number" layout; Put 200 % of Record "4th straight-up number" layout on Record "4th straight-up number" layout; Put 100 % of Record "4th straight-up number" layout on Record "Six number combination" layout; Exit; end Else begin call "Make minimum bet"; exit; end end end end method "Group A" begin Copy Line(1-6) to the Record "Six number combination" layout; Copy Number 20 to the Record "1st straight-up number" layout; Copy Number 26 to the Record "2nd straight-up number" layout; Copy Number 8 to the Record "3rd straight-up number" layout; Copy Number 10 to the Record "4th straight-up number" layout; end method "Group B" begin Copy Line(4-9) to the Record "Six number combination" layout; Copy Number 13 to the Record "1st straight-up number" layout; Copy Number 14 to the Record "2nd straight-up number" layout; Copy Number 15 to the Record "3rd straight-up number" layout; Copy Number 10 to the Record "4th straight-up number" layout; end method "Group C" begin Copy Line(10-15) to the Record "Six number combination" layout; Copy Number 16 to the Record "1st straight-up number" layout; Copy Number 17 to the Record "2nd straight-up number" layout; Copy Number 18 to the Record "3rd straight-up number" layout; Copy Number 28 to the Record "4th straight-up number" layout; end method "Group D" begin Copy Line(13-18) to the Record "Six number combination" layout; Copy Number 11 to the Record "1st straight-up number" layout; Copy Number 12 to the Record "2nd straight-up number" layout; Copy Number 27 to the Record "3rd straight-up number" layout; Copy Number 28 to the Record "4th straight-up number" layout; end method "Group E" begin Copy Line(19-24) to the Record "Six number combination" layout; Copy Number 1 to the Record "1st straight-up number" layout; Copy Number 2 to the Record "2nd straight-up number" layout; Copy Number 4 to the Record "3rd straight-up number" layout; Copy Number 26 to the Record "4th straight-up number" layout; end method "Group F" begin Copy Line(28-33) to the Record "Six number combination" layout; Copy Number 00 to the Record "1st straight-up number" layout; Copy Number 22 to the Record "2nd straight-up number" layout; Copy Number 24 to the Record "3rd straight-up number" layout; Copy Number 35 to the Record "4th straight-up number" layout; end method "Group G" begin Copy Line(31-36) to the Record "Six number combination" layout; Copy Number 0 to the Record "1st straight-up number" layout; Copy Number 00 to the Record "2nd straight-up number" layout; Copy Number 29 to the Record "3rd straight-up number" layout; Copy Number 30 to the Record "4th straight-up number" layout; end method "Make minimum bet" begin Put 1 on Record "1st straight-up number" layout; Put 1 on Record "2nd straight-up number" layout; Put 1 on Record "3rd straight-up number" layout; Put 1 on Record "4th straight-up number" layout; end method "Input Group Number" begin Input Dropdown "Combination No. 1:=Line(1-6) 20,26,8,10 2:=Line(4-9) 13,14,15,10 3:=Line(10-15) 16,17,18,28 4:=Line(13-18) 11,12,27,28 5:=Line(19-24) 1,1,4,26 6:=Line(28-33) 00,22,24,35 7:=Line(31-36) 0,00,29,30" to Record "Combination selected" data; Clear Record "Six number combination" data; Clear Record "1st straight-up number" data; Clear Record "2nd straight-up number" data; Clear Record "3rd straight-up number" data; Clear Record "4th straight-up number" data; While Record "Combination selected" data = 1 begin Call "Group A"; end Else begin While Record "Combination selected" data = 2 begin Call "Group B"; end Else begin While Record "Combination selected" data = 3 begin Call "Group C"; end Else begin While Record "Combination selected" data = 4 begin Call "Group D"; end Else begin While Record "Combination selected" data = 5 begin Call "Group E"; end Else begin While Record "Combination selected" data = 6 begin Call "Group F"; end Else begin While Record "Combination selected" data = 7 begin Call "Group G"; end end end end end end end end