Questo sito fa uso di cookie, i cookie introducono una gamma di servizi che migliorano la tua fruizione del sito. Utilizzando il sito si ritiene accettato l'uso dei cookie secondo le nostre linee guida. Per maggiori informazioni clicca qui.

Home Risorse Roulette Xtreme Sistemi Xtreme Ken's Unhit Street and Split developed

Ken's Unhit Street and Split developed

(Mr.J | Roulette787) Cavalli e sestine non usciti in tot colpi.

Xtreme icon Kens Unhit Street and Split.dgt — Xtreme, 9 KB (10183 bytes)

Contenuto del file

system "Ken's Unhit Street and Split"
{
   ***********************************************************************************
   *
   *       Ken's Unhit Street and Split developed by Mr.J (VLS Forums)
   *       Coded by : Roulette787
   *       More info on VLSRoulette.com  forums
   *
   *   NOTES: Betting starts after 60 spins. This limit can be changed in line 19.
   *
   ***********************************************************************************
}
method "main"
begin
    While starting a new session
    begin
       call "initialize";
       exit;
    end
    
    if record "spin count" data <= 60      // change this value to start game early. Default: 60
    begin
        add 1 unit on record "spin count" data;
        exit;
    end
    else
    begin
        call "check win";
        if flag "isQualified" is true
        begin
            if flag "isSplitBettingOn" is false
            and flag "isStreetBettingOn" is false
            begin
               call "check hits";
            end
        end
        else
        begin
           call "qualify";
        end
        
        call "place bets";
    end
    
end


method "check win"
begin
   if net amount > 0
   begin
      set flag "isQualified" to false;
      set flag "isSplitBettingOn" to false;
      set flag "isStreetBettingOn" to false;
      put 1 unit on record "progression" data index;
   end
   if net amount < 0
   begin
      if record "progression" data index >= record "progression" data count
      begin
         put 1 unit on record "progression" data index;
         set flag "isQualified" to false;
         set flag "isSplitBettingOn" to false;
         set flag "isStreetBettingOn" to false;
      end
      else
      begin
         add 1 unit on record "progression" data index;
      end
   end
end


method "qualify"
begin
    put 0 units on record "current max" data;
    clear record "selected splits" layout;


    put 1 unit on record "all splits" layout index;
    loop until record "all splits" layout index > record "all splits" layout count
    begin
        put 0 units on record "temp" data;
        calculate last appeared of record "all splits" layout to record "temp" data;
        if record "temp" data > record "current max" data
        begin
            clear record "selected splits" layout;
            copy record "all splits" layout to record "selected splits" layout;
            duplicate record "temp" to record "current max";
        end
        add 1 unit to record "all splits" layout index;
    end
    
    
    // QUALIFY STREET
    put 0 units on record "current max street" data;
    clear record "selected streets" layout;

    
    put 1 unit on record "all streets" layout index;
    loop until record "all streets" layout index > record "all streets" layout count
    begin
        put 0 units on record "temp" data;
        calculate last appeared of record "all streets" layout to record "temp" data;
        if record "temp" data > record "current max street" data
        begin
            clear record "selected streets" layout;
            copy record "all streets" layout to record "selected streets" layout;
            duplicate record "temp" to record "current max street";
        end
        add 1 unit to record "all streets" layout index;
    end
    


    if record "selected streets" layout count > 0
    and record "selected splits" layout count > 0
    begin
        clear record "lastHit Number" layout;
        Locate Number Backward record "current max street" data times from the last number to record "lastHit Number" layout;
        if record "lastHit Number" layout count > 0
        begin
            set flag "isQualified" to true;
        end
        call "get street numbers";
    end
end

method "check hits"
begin
        track last number for 1 time to record "lastN" layout;

        if record "selected splits" layout has hit each time
        and record "lastN" layout is found in record "street numbers" layout
        begin
            set flag "isQualified" to false;
            set flag "isStreetBettingOn" to false;
            set flag "isSplitBettingOn" to false;
        end
        else
        begin
            if record "selected splits" layout has hit each time
            begin
                set flag "isStreetBettingOn" to true;
            end
            if record "lastN" layout is found in record "street numbers" layout
            begin
                set flag "isSplitBettingOn" to true;
            end
        end
end

method "place bets"
begin
    if flag "isSplitBettingOn" is true
    begin
        put 200% record "progression" data on record "selected splits" layout;
    end
    if flag "isStreetBettingOn" is true
    begin
        put 100% record "progression" data on record "street numbers" layout list;
    end
end

method "get street numbers"
begin
    clear record "street numbers" layout;
    clear record "temp layout" layout;
    
    if record "selected streets" layout = street(1-3)
    begin
        duplicate record "street 1" to record "temp layout";
    end
    if record "selected streets" layout = street(4-6)
    begin
        duplicate record "street 2" to record "temp layout";
    end
    if record "selected streets" layout = street(7-9)
    begin
        duplicate record "street 3" to record "temp layout";
    end
    if record "selected streets" layout = street(10-12)
    begin
        duplicate record "street 4" to record "temp layout";
    end
    if record "selected streets" layout = street(13-15)
    begin
        duplicate record "street 5" to record "temp layout";
    end
    if record "selected streets" layout = street(16-18)
    begin
        duplicate record "street 6" to record "temp layout";
    end
    if record "selected streets" layout = street(19-21)
    begin
        duplicate record "street 7" to record "temp layout";
    end
    if record "selected streets" layout = street(22-24)
    begin
        duplicate record "street 8" to record "temp layout";
    end
    if record "selected streets" layout = street(25-27)
    begin
        duplicate record "street 9" to record "temp layout";
    end
    if record "selected streets" layout = street(28-30)
    begin
        duplicate record "street 10" to record "temp layout";
    end
    if record "selected streets" layout = street(31-33)
    begin
        duplicate record "street 11" to record "temp layout";
    end
    if record "selected streets" layout = street(34-36)
    begin
        duplicate record "street 12" to record "temp layout";
    end
    

    put 1 unit on record "temp layout" layout index;
    loop until record "temp layout" layout index > record "temp layout" layout count
    begin
        if record "temp layout" layout not = record "lastHit Number" layout
        begin
           copy record "temp layout" layout to record "street numbers" layout;
           add 1 unit on record "street numbers" layout index;
        end
       add 1 unit on record "temp layout" layout index;
    end
    
end



method "initialize"
begin
    copy list [Street(1-3),   Street(4-6),   Street(7-9),   Street(10-12),
               Street(13-15), Street(16-18), Street(19-21), Street(22-24),
               Street(25-27), Street(28-30), Street(31-33), Street(34-36)] to record "all streets" layout;
               // Street(0-2)  , Street(0-3)

    copy list [Split(1-0),  Split(1-2),
                Split(1-4),   Split(2-3),   Split(2-5),   Split(3-6),
                Split(4-5),   Split(4-7),   Split(5-6),   Split(5-8),
                Split(6-9),   Split(7-8),   Split(7-10),  Split(8-9),
                Split(8-11),  Split(9-12),  Split(10-11), Split(10-13),
                Split(11-12), Split(11-14), Split(12-15), Split(13-14),
                Split(13-16), Split(14-15), Split(14-17), Split(15-18),
                Split(16-17), Split(16-19), Split(17-18), Split(17-20),
                Split(18-21), Split(19-20), Split(19-22), Split(20-21),
                Split(20-23), Split(21-24), Split(22-23), Split(22-25),
                Split(23-24), Split(23-26), Split(24-27), Split(25-26),
                Split(25-28), Split(26-27), Split(26-29), Split(27-30),
                Split(28-29), Split(28-31), Split(29-30), Split(29-32),
                Split(30-33), Split(31-32), Split(31-34), Split(32-33),
                Split(32-35), Split(33-36), Split(34-35), Split(35-36),
                Split(2-0),   Split(3-0)]to record "all splits" layout;

     
     copy list [number 1, number 2, number 3] to record "street 1" layout;
     copy list [number 4, number 5, number 6] to record "street 2" layout;
     copy list [number 7, number 8, number 9] to record "street 3" layout;
     copy list [number 10, number 11, number 12] to record "street 4" layout;
     copy list [number 13, number 14, number 15] to record "street 5" layout;
     copy list [number 16, number 17, number 18] to record "street 6" layout;
     copy list [number 19, number 20, number 21] to record "street 7" layout;
     copy list [number 22, number 23, number 24] to record "street 8" layout;
     copy list [number 25, number 26, number 27] to record "street 9" layout;
     copy list [number 28, number 29, number 30] to record "street 10" layout;
     copy list [number 31, number 32, number 33] to record "street 11" layout;
     copy list [number 34, number 35, number 36] to record "street 12" layout;
     
     set list [1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
               3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 5, 5, 5, 5, 6, 6, 7, 7, 7,
               8, 8, 9, 9, 10, 11, 11, 12, 13, 14, 15, 15, 16, 17] to record "progression" data;
     set flag "isQualified" to false;
     set flag "isSplitBettingOn" to false;
     set flag "isStreetBettingOn" to false;
     clear record "lastHit Number" layout;
     put 0 units on record "spin count" data;
end