Slam's Cornered v1

Contenuto del file

system "Slam's Cornered Ver 1"
{
*************************************
*       System by Slamdunkfunkk     *
*         on the VIP Lounge         *
*************************************
         Rx-ed by Sp1N-D1zZy
-------------------------------------
           00-c0mpatible
-------------------------------------
Track the furthest back corner.
When found, bet with following progression.
1,2,4, Even
4,6,10,16, Dozen
10,12,15,19,24,30,36, Line / Double Street
28,32,36,41,47,53,60,68,77,87, Corner
49,55,62,70,79,89,100 two splits (same corner)
-------------------------------------
}
method "main"
begin
while starting a new session
    begin
    call "Init"
    exit
    end
if flag "First Track End" false
    begin
    call "Track"
    end else begin
    if flag "Work back flag" true
        begin end else begin
        call "Work Back"
        end
    end
if flag "Bet" true
    begin
    call "Bet"
    end
end

method "Bet"
begin
if net > 0
    begin
    call "Reset"
    end else begin
    set flag "Work back flag" true
    end
if record"Progression"data index >=1 and record"Progression"data index <=3
    begin
    if record"Bet this corner"data <=10
        begin
        put 100% record"Progression"data on low
        end else begin
        put 100% record"Progression"data on high
        end
    end
if record"Progression"data index >=4 and record"Progression"data index <=7
    begin
    if record"Bet this corner"data = 1 or record"Bet this corner"data = 2 or
    record"Bet this corner"data = 3 or record"Bet this corner"data = 4 or
    record"Bet this corner"data = 5 or record"Bet this corner"data = 6
        begin
        put 100% record"Progression"data on 1st dozen
        end
    if record"Bet this corner"data = 7 or record"Bet this corner"data = 8
        begin
        put 50% record"Progression"data on 1st dozen
        put 50% record"Progression"data on 2nd dozen
        end
    if record"Bet this corner"data = 9 or record"Bet this corner"data = 10 or
    record"Bet this corner"data = 11 or record"Bet this corner"data = 12
        begin
        put 100% record"Progression"data on 2nd dozen
        end
    if record"Bet this corner"data = 13 or record"Bet this corner"data = 14
        begin
        put 50% record"Progression"data on 2nd dozen
        put 50% record"Progression"data on 3rd dozen
        end
    if record"Bet this corner"data = 15 or record"Bet this corner"data = 16 or
    record"Bet this corner"data = 17 or record"Bet this corner"data = 18 or
    record"Bet this corner"data = 19 or record"Bet this corner"data = 20
        begin
        put 100% record"Progression"data on 3rd dozen
        end
    end
if record"Progression"data index >=8 and record"Progression"data index <=14
    begin
    if record"Bet this corner"data = 1 or record"Bet this corner"data = 2
        begin
        put 100% record"Progression"data on Line(1-6)
        end
    if record"Bet this corner"data = 3 or record"Bet this corner"data = 4
        begin
        put 100% record"Progression"data on Line(4-9)
        end
    if record"Bet this corner"data = 5 or record"Bet this corner"data = 6
        begin
        put 100% record"Progression"data on Line(7-12)
        end
    if record"Bet this corner"data = 7 or record"Bet this corner"data = 8
        begin
        put 100% record"Progression"data on Line(10-15)
        end
    if record"Bet this corner"data = 9 or record"Bet this corner"data = 10
        begin
        put 100% record"Progression"data on Line(13-18)
        end
    if record"Bet this corner"data = 11 or record"Bet this corner"data = 12
        begin
        put 100% record"Progression"data on Line(19-24)
        end
    if record"Bet this corner"data = 13 or record"Bet this corner"data = 14
        begin
        put 100% record"Progression"data on Line(22-27)
        end
    if record"Bet this corner"data = 15 or record"Bet this corner"data = 16
        begin
        put 100% record"Progression"data on Line(25-30)
        end
    if record"Bet this corner"data = 17 or record"Bet this corner"data = 18
        begin
        put 100% record"Progression"data on Line(28-33)
        end
    if record"Bet this corner"data = 19 or record"Bet this corner"data = 20
        begin
        put 100% record"Progression"data on Line(31-36)
        end
    end
if record"Progression"data index >=15 and record"Progression"data index <=24
    begin
    put 100% record"Progression"data record"Bet this corner"layout
    end
if record"Progression"data index >=25 and record"Progression"data index <=31
    begin
    if record"Bet this corner"layout = corner(1:5)
        begin
        put 100% record"Progression"data split(1-2)
        put 100% record"Progression"data split(4-5)
        end
    if record"Bet this corner"layout = corner(2:6)
        begin
        put 100% record"Progression"data split(2-3)
        put 100% record"Progression"data split(5-6)
        end
    if record"Bet this corner"layout = corner(4:8)
        begin
        put 100% record"Progression"data split(4-5)
        put 100% record"Progression"data split(7-8)
        end
    if record"Bet this corner"layout = corner(5:9)
        begin
        put 100% record"Progression"data split(5-6)
        put 100% record"Progression"data split(8-9)
        end
    if record"Bet this corner"layout = corner(7:11)
        begin
        put 100% record"Progression"data split(7-8)
        put 100% record"Progression"data split(10-11)
        end
    if record"Bet this corner"layout = corner(8:12)
        begin
        put 100% record"Progression"data split(8-9)
        put 100% record"Progression"data split(11-12)
        end
    if record"Bet this corner"layout = corner(10:14)
        begin
        put 100% record"Progression"data split(10-11)
        put 100% record"Progression"data split(13-14)
        end
    if record"Bet this corner"layout = corner(11:15)
        begin
        put 100% record"Progression"data split(11-12)
        put 100% record"Progression"data split(14-15)
        end
    if record"Bet this corner"layout = corner(13:17)
        begin
        put 100% record"Progression"data split(13-14)
        put 100% record"Progression"data split(16-17)
        end
    if record"Bet this corner"layout = corner(14:18)
        begin
        put 100% record"Progression"data split(14-15)
        put 100% record"Progression"data split(17-18)
        end
    if record"Bet this corner"layout = corner(19:23)
        begin
        put 100% record"Progression"data split(19-20)
        put 100% record"Progression"data split(22-23)
        end
    if record"Bet this corner"layout = corner(20:24)
        begin
        put 100% record"Progression"data split(20-21)
        put 100% record"Progression"data split(23-24)
        end
    if record"Bet this corner"layout = corner(22:26)
        begin
        put 100% record"Progression"data split(22-23)
        put 100% record"Progression"data split(25-26)
        end
    if record"Bet this corner"layout = corner(23:27)
        begin
        put 100% record"Progression"data split(23-24)
        put 100% record"Progression"data split(26-27)
        end
    if record"Bet this corner"layout = corner(25:29)
        begin
        put 100% record"Progression"data split(25-26)
        put 100% record"Progression"data split(28-29)
        end
    if record"Bet this corner"layout = corner(26:30)
        begin
        put 100% record"Progression"data split(26-27)
        put 100% record"Progression"data split(29-30)
        end
    if record"Bet this corner"layout = corner(28:32)
        begin
        put 100% record"Progression"data split(28-29)
        put 100% record"Progression"data split(31-32)
        end
    if record"Bet this corner"layout = corner(29:33)
        begin
        put 100% record"Progression"data split(29-30)
        put 100% record"Progression"data split(32-33)
        end
    if record"Bet this corner"layout = corner(31:35)
        begin
        put 100% record"Progression"data split(31-32)
        put 100% record"Progression"data split(34-35)
        end
    if record"Bet this corner"layout = corner(32:36)
        begin
        put 100% record"Progression"data split(32-33)
        put 100% record"Progression"data split(35-36)
        end
    end
add 1 record"Progression"data index
if record"Progression"data index > record"Progression"data count
    begin
    call "Reset"
    end
end

method "Work Back"
begin
put 0 record"Pointer"data
put 2 record"Corner Count"data
copy last number record"Last Number"layout
loop until record"Corner Count"data = 1 or record"Temp"data not found record"Corner Frequency"data
begin
locate number backward record"Pointer"data spins from record"Last Number"layout record"Backward Number"layout
if record"Backward Number"layout = number 1 or record"Backward Number"layout = number 2 or
record"Backward Number"layout = number 4 or record"Backward Number"layout = number 5
    begin
    put 1 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if record"Backward Number"layout = number 2 or record"Backward Number"layout = number 3 or
record"Backward Number"layout = number 5 or record"Backward Number"layout = number 6
    begin
    put 2 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if record"Backward Number"layout = number 4 or record"Backward Number"layout = number 5 or
record"Backward Number"layout = number 7 or record"Backward Number"layout = number 8
    begin
    put 3 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if record"Backward Number"layout = number 5 or record"Backward Number"layout = number 6 or
record"Backward Number"layout = number 8 or record"Backward Number"layout = number 9
    begin
    put 4 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if record"Backward Number"layout = number 7 or record"Backward Number"layout = number 8 or
record"Backward Number"layout = number 10 or record"Backward Number"layout = number 11
    begin
    put 5 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if record"Backward Number"layout = number 8 or record"Backward Number"layout = number 9 or
record"Backward Number"layout = number 11 or record"Backward Number"layout = number 12
    begin
    put 6 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if record"Backward Number"layout = number 10 or record"Backward Number"layout = number 11 or
record"Backward Number"layout = number 13 or record"Backward Number"layout = number 14
    begin
    put 7 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if record"Backward Number"layout = number 11 or record"Backward Number"layout = number 12 or
record"Backward Number"layout = number 14 or record"Backward Number"layout = number 15
    begin
    put 8 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if record"Backward Number"layout = number 13 or record"Backward Number"layout = number 14 or
record"Backward Number"layout = number 16 or record"Backward Number"layout = number 17
    begin
    put 9 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if record"Backward Number"layout = number 14 or record"Backward Number"layout = number 15 or
record"Backward Number"layout = number 17 or record"Backward Number"layout = number 18
    begin
    put 10 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if record"Backward Number"layout = number 19 or record"Backward Number"layout = number 20 or
record"Backward Number"layout = number 22 or record"Backward Number"layout = number 23
    begin
    put 11 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if record"Backward Number"layout = number 20 or record"Backward Number"layout = number 21 or
record"Backward Number"layout = number 23 or record"Backward Number"layout = number 24
    begin
    put 12 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if record"Backward Number"layout = number 22 or record"Backward Number"layout = number 23 or
record"Backward Number"layout = number 25 or record"Backward Number"layout = number 26
    begin
    put 13 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if record"Backward Number"layout = number 23 or record"Backward Number"layout = number 24 or
record"Backward Number"layout = number 26 or record"Backward Number"layout = number 27
    begin
    put 14 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if record"Backward Number"layout = number 25 or record"Backward Number"layout = number 26 or
record"Backward Number"layout = number 28 or record"Backward Number"layout = number 29
    begin
    put 15 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if record"Backward Number"layout = number 26 or record"Backward Number"layout = number 27 or
record"Backward Number"layout = number 29 or record"Backward Number"layout = number 30
    begin
    put 16 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if record"Backward Number"layout = number 28 or record"Backward Number"layout = number 29 or
record"Backward Number"layout = number 31 or record"Backward Number"layout = number 32
    begin
    put 17 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if record"Backward Number"layout = number 29 or record"Backward Number"layout = number 30 or
record"Backward Number"layout = number 32 or record"Backward Number"layout = number 33
    begin
    put 18 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if record"Backward Number"layout = number 31 or record"Backward Number"layout = number 32 or
record"Backward Number"layout = number 34 or record"Backward Number"layout = number 35
    begin
    put 19 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if record"Backward Number"layout = number 32 or record"Backward Number"layout = number 33 or
record"Backward Number"layout = number 35 or record"Backward Number"layout = number 36
    begin
    put 20 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
put 1 record"Corner Frequency"data index
loop until record"Corner Frequency"data index > record"Corner Frequency"data count
    begin
    if record"Corner Frequency"data = 0
        begin
        put 100% record"Corner Frequency"data index record"Corner Layout"layout index
        put 100% record"Corner Frequency"data index record"Bet this corner"data
        copy record"Corner Layout"layout record"Bet this corner"layout
        add 1 record"Corner Count"data
        end
    add 1 record"Corner Frequency"data index
    end
if record"Corner Count"data = 0
    begin
    set flag "First Track End" true
    call "Reset"
    exit
    end
if record"Corner Count"data = 1
    begin
    set flag "Bet" true
    put 1 record"Progression"data index
    set flag "First Track End" true
    end else begin put 0 record"Corner Count"data end
add 1 record"Pointer"data
if record"Temp"data not found record"Corner Frequency"data
    begin
    call "Reset"
    end
end
end

method "Init"
begin
set list [1,2,4,4,6,10,16,10,12,15,19,24,30,36,28,32,36,41,47,53,60,68,77,
87,49,55,62,70,79,89,100] record"Progression"data
set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0] record"Corner Frequency"data
copy list [corner(1:5), corner(2:6), corner(4:8), corner(5:9), corner(7:11), corner(8:12),
corner(10:14), corner(11:15), corner(13:17), corner(14:18),
corner(19:23), corner(20:24), corner(22:26), corner(23:27), corner(25:29), corner(26:30),
corner(28:32), corner(29:33), corner(31:35), corner(32:36)] record"Corner Layout"layout
put 0 record"Temp"data
end

method "Track"
begin
if number 1 hit each or number 2 hit each or number 4 hit each or number 5 hit each
    begin
    put 1 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if number 2 hit each or number 3 hit each or number 5 hit each or number 6 hit each
    begin
    put 2 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if number 4 hit each or number 5 hit each or number 7 hit each or number 8 hit each
    begin
    put 3 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if number 5 hit each or number 6 hit each or number 8 hit each or number 9 hit each
    begin
    put 4 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if number 7 hit each or number 8 hit each or number 10 hit each or number 11 hit each
    begin
    put 5 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if number 8 hit each or number 9 hit each or number 11 hit each or number 12 hit each
    begin
    put 6 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if number 10 hit each or number 11 hit each or number 13 hit each or number 14 hit each
    begin
    put 7 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if number 11 hit each or number 12 hit each or number 14 hit each or number 15 hit each
    begin
    put 8 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if number 13 hit each or number 14 hit each or number 16 hit each or number 17 hit each
    begin
    put 9 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if number 14 hit each or number 15 hit each or number 17 hit each or number 18 hit each
    begin
    put 10 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if number 19 hit each or number 20 hit each or number 22 hit each or number 23 hit each
    begin
    put 11 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if number 20 hit each or number 21 hit each or number 23 hit each or number 24 hit each
    begin
    put 12 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if number 22 hit each or number 23 hit each or number 25 hit each or number 26 hit each
    begin
    put 13 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if number 23 hit each or number 24 hit each or number 26 hit each or number 27 hit each
    begin
    put 14 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if number 25 hit each or number 26 hit each or number 28 hit each or number 29 hit each
    begin
    put 15 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if number 26 hit each or number 27 hit each or number 29 hit each or number 30 hit each
    begin
    put 16 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if number 28 hit each or number 29 hit each or number 31 hit each or number 32 hit each
    begin
    put 17 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if number 29 hit each or number 30 hit each or number 32 hit each or number 33 hit each
    begin
    put 18 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if number 31 hit each or number 32 hit each or number 34 hit each or number 35 hit each
    begin
    put 19 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
if number 32 hit each or number 33 hit each or number 35 hit each or number 36 hit each
    begin
    put 20 record"Corner frequency"data index
    add 1 record"Corner frequency"data
    end
put 1 record"Corner Frequency"data index
loop until record"Corner Frequency"data index > record"Corner Frequency"data count
    begin
    if record"Corner Frequency"data = 0
        begin
        put 100% record"Corner Frequency"data index record"Corner Layout"layout index
        put 100% record"Corner Frequency"data index record"Bet this corner"data
        copy record"Corner Layout"layout record"Bet this corner"layout
        add 1 record"Corner Count"data
        end
    add 1 record"Corner Frequency"data index
    end
if record"Corner Count"data = 0
    begin
    set flag "First Track End" true
    call "Reset"
    exit
    end
if record"Corner Count"data = 1
    begin
    set flag "Bet" true
    put 1 record"Progression"data index
    set flag "First Track End" true
    end else begin put 0 record"Corner Count"data end
end

method "Reset"
begin
clear all records
set flag "Bet" false
set flag "First Track End" true
set flag "Work back flag" false
call "Init"
exit
end