One Number

[Lohnro]

Code of the One Number System........Thanks Sp1n!

Code Select Expand



system "One Number"
{
*************************************
*         System by Lohnro          *
*         on the VIP Lounge         *
*************************************
         Rx-ed by Sp1N-D1zZy
-------------------------------------
          not 00-c0mpatible
-------------------------------------

1st bet is always 0. Next bet is always clockwise around the
wheel betting every "unhit" number, one number at a time. Flat betting only.

Small example:
bet 0 - 17 hit
bet 32 - 19 hit
bet 15 - 35 hit
bet 4 (we do not bet 19 here because it has already hit) - 2 hit
bet 21 - 0 hit
bet 25 - (we do not bet 2 here because it has already hit) - 22 hit
etc......

After all the numbers have hit the session restarts from the beginning.
-------------------------------------
}
method "main"
    begin
    while starting new session
        begin
        call "Init"
        exit
        end
   call "Sys"
   end
   
method "Sys"
    begin
    track last number for 1 spins record"Last Number"layout
    copy record"Last Number"layout record"Numbers Hit"layout
    add 1 record"Numbers Hit"layout index
    loop until flag "stop" true
        begin
        if record"Single Layout"layout index > record"Single Layout"layout count
            begin
            put 1 record "Single Layout"layout index
            put 0 record"Count"data
            end
        if record"Single Layout"layout found record"Numbers Hit"layout
            begin
            add 1 record"Single Layout"layout index
            add 1 record"Count"data
            if record"Count"data = 37
                begin
                clear all records
                call "Init"
                exit
                end
            end else begin
            set flag "Stop" true
            put 0 record"Count"data
            end
        end
    set flag "Stop" false
   
    put 1 record"Single Layout"layout
    add 1 record"Single Layout"layout index
    end

method "Init"
    begin
    load single wheel
    copy list [0,32,15,19,4,21,2,25,17,34,6,27,13,36,11,30,8,23,10,5,24,16,33,
    1,20,14,31,9,22,18,29,7,28,12,35,3,26] record"Single Layout"layout
    put 1 record"Single Layout"layout index
    put 1 record"Single Layout"layout
    add 1 record"Single Layout"layout index
    end
{
-------------------------------------
        Happy Experimenting!
      Sp1N-D1zZy@HoTmAiL.cO.Uk
-------------------------------------
}


[Lohnro]

-