Ruleteros
Si quiere ver todo el contenido del foro registrese como usuario.

No tendrá publicidad y podrá intercambiar ideas y opiniones con usuarios con su misma inquietud.

Si no, solo podrá acceder a una visión limitada del contenido de estos foros.


If you want to see the entire contents of this forum you must register.

Don't have advertising will be able to exchange ideas and opinions with users with the same curiosity

If not registered, can access only a limited view of the contents of these forums.

Continuando la navegación, usted acepta la utilización de las cookies que los servicios de terceros puedan establecer. Mas información

Unirse al foro, es rápido y fácil

Ruleteros
Si quiere ver todo el contenido del foro registrese como usuario.

No tendrá publicidad y podrá intercambiar ideas y opiniones con usuarios con su misma inquietud.

Si no, solo podrá acceder a una visión limitada del contenido de estos foros.


If you want to see the entire contents of this forum you must register.

Don't have advertising will be able to exchange ideas and opinions with users with the same curiosity

If not registered, can access only a limited view of the contents of these forums.

Continuando la navegación, usted acepta la utilización de las cookies que los servicios de terceros puedan establecer. Mas información
Aviso!! Announcement!!
Para ver el contenido del foro en su totalidad, debe estar registrado, sino tendra una version REDUCIDA del mismo.

To view the contents of the forum in its entirety, your must be registered, your not be registered will have a version thereof REDUCED.

Si olvido su contraseña o no puede ingresar al foro, avísenos para solucionarlo. Crearse una segunda cuenta sera contemplado como creación de cuenta multiusuario y podrá ser sancionado con expulsión.
Conectarse

Recuperar mi contraseña


sistema carrasco

3 participantes

Ir abajo

sistema carrasco Empty sistema carrasco

Mensaje por tapalov Mar Jul 16, 2013 11:45 pm

system "System Carrasco v1"
{
*************************************
    System by Antonio Carrasco
        on the Spanish Forum
   
Spoiler:
       Roulette Extreme Code
           --- by Moch---
           on the VIP Forum
*************************************
-------------------------------------
           00-compatible
-------------------------------------
INSTRUCTIONS:

1- track 15 spins. If a number repeats 3 times during these 15 spins,
delete the 1st repetion of the number and all numbers before it.

Ex:1,2,5,1,4,5,6,2,5<--Number 5 hit 3 times before spin 16.
we keep: 1,4,5,6,2,5<--we pick numbers after the 1st hit of number 5.
we delete: 1,2,5

2- we bet 1 unit from spin 16 to 25 to all the numbers that repeat twice,
removing all 3rd repeats as in step 1.
If no number hits 2 times until spin 15 (very rare) we keep tracking
until a double repeat or spin 25.

3-If we loose reset and start from scratch.

4- On a win do as in step 1, remove the 1st hit of the 3rd repeat and all numbers before it.

5- Progression-enough to be in profit.

}
method "main" begin
    // start up
    while starting new session begin
        Clear all records
        call "Init"
        call "WheelType"
        exit
    end

    // count spins
    add 1 record"TotalSpins" data

    // keep last number
    copy last number record"LastN"layout
    // tracking
    track last number for 9999 spins record"Streak"layout
    // find if last number has repeated more than 2 times
    put 1 record"Streak"layout index
    put 0 record"nRepeats"data
    loop until record"Streak"layout index > record"Streak"layout count begin
        if record"LastN"layout = record"Streak"layout begin
            add 1 record"nRepeats"data
        end
        add 1 record"Streak"layout index
    end

    // we need to find the 1st position of this number and remove it along with prior numbers
    if record"nRepeats"data > 2 begin
        put 1 record"Streak"layout index
        set flag "Done" to false
        loop until flag "Done" is true begin
            if record"LastN"layout = record"Streak"layout begin
            // we found it, we remove all numbers before the first repeat and the repeat itself
                move list up by 1 of the items located in record"Streak"layout
                set max record"Streak"layout index
                set flag "Done" true
            end
            else begin
                move list up by 1 of the items located in record"Streak"layout
                put 1 record"Streak"layout index
            end
        end
    end

    // now we find what numbers have 2 repeats.
    duplicate record"Streak" record"Temp"
    clear record"BetLayout"layout
    put 1 record"Streak"layout index
    loop until record"Streak"layout index > record"Streak"layout count begin
        put 0 record"nRepeats"data
        put 1 record"Temp"layout index
        loop until record"Temp"layout index > record"Temp"layout count begin
            if record"Streak"layout = record"Temp"layout begin
                add 1 record"nRepeats"data
            end
            add 1 record"Temp"layout index
        end
        if record"nRepeats"data = 2 begin
            if record"Streak"layout not found in record"BetLayout"layout begin
                copy record"Streak"layout record"BetLayout"layout
                add 1 record"BetLayout"layout index
            end
        end
        add 1 record"Streak"layout index
    end


    // Bankroll
    if bankroll > record"HighBankroll"data begin
        put 100% bankroll record"HighBankroll"data
    end

    // act on a loss
    if net < 0 begin
    end

    // act on a win
    if net > 0 begin
        set flag "qualified" false
    end


    // act when not qualified
    if flag "qualified" false begin
        if record"TotalSpins"data > record"Spins"data begin
            set flag "qualified" true
        end
        if record"TotalSpins"data > record"MaxSpins"data begin
            call "Reset"
            set flag "qualified" false
        end
    end

    //bet only if at least 3 numbers qualify
    if record"BetLayout"layout count < record"MinNums"data begin
        set flag "qualified" false
    end

    // act when  qualified
    if flag "qualified" true begin
        // calculate next bet
        call "CalculateNextBet"
        put 100% record"Progression"data record"BetLayout"layout list
        set flag "qualified" false
    end
end

// Methods
method "Reset" begin
    put 0 record"TotalSpins"data
    clear record"BetLayout"layout
    clear record"Streak"layout
end

method "CalculateNextBet" begin
    put 0 record"Progression"data
    put 0 record"Balance"data
    put 100% record"BetLayout"layout index record"Units"data
    loop until record"Balance"data > record"HighBankroll"data begin
        add 1 record"Progression"data
        duplicate record"Progression" record"Balance"
        put 36 record"Payoff"data
        subtract 100% record"Units"data record"Payoff"data
        multiply 100% record"Payoff"data record"Balance"data
        add 100% bankroll record"Balance"data
    end
end

method "Init" begin
    put 1 record "Progression" data
    // defaults
    put 15 record"Spins"data
    put 3 record"MinNums"data
    put 25 record"MaxSpins"data
    put 0 record"TotalSpins"data
    // Input
    group begin
        display "System Carrasco"
        display "by Antonio Carrasco"
        display "00-compatible"
        input dropdown " Wheel Type ?
            1:= Single Zero
            2:= Double Zero " record"Wheel"data
        input data "Start Betting after spin" record"Spins"data
        input data "if at least (X) numbers qualify" record"MinNums"data
        input data "Stop Betting on spin" record"MaxSpins"data
        display " "
        display " "
    end
    // flags
    set flag "qualified" false
    // assign
end

method "WheelType" begin
    if record"Wheel"data=1 begin
        Load Single Wheel
    end
    else begin
        Load Double Wheel
    end
end
tapalov
tapalov
Diamante
Diamante

Cantidad de envíos : 565
Fecha de inscripción : 03/04/2013

Volver arriba Ir abajo

sistema carrasco Empty Re: sistema carrasco

Mensaje por rokero Vie Jul 19, 2013 6:46 pm

hola me gustaría saber si le podrían implementar a este código una progresion que cada 108 bolas jugas si se esta en negativo se aumente una ficha a los plenos que toquen jugar, que cuando se este ganando 50 fichas por encima de lo que teniamos resete y que cuando la progre llegue a 4 fichas por pleno se reinicie asumiendo la perdida.
avatar
rokero
Expulsados
Expulsados

Cantidad de envíos : 468
Fecha de inscripción : 15/07/2011

Volver arriba Ir abajo

sistema carrasco Empty Re: sistema carrasco

Mensaje por Jorge_R Miér Jul 24, 2013 7:41 pm

Mmm interesante cuestión la planteada por rokero. Por que el sistema es bastante curioso e interesante Smile
avatar
Jorge_R
Plata
Plata

Cantidad de envíos : 77
Fecha de inscripción : 29/09/2012

Volver arriba Ir abajo

sistema carrasco Empty Re: sistema carrasco

Mensaje por rokero Lun Ago 05, 2013 7:43 pm

Estoy intentando que apueste plano y con la progresión que expuse antes pero no hay forma, no se que diablos debo modificar.
avatar
rokero
Expulsados
Expulsados

Cantidad de envíos : 468
Fecha de inscripción : 15/07/2011

Volver arriba Ir abajo

sistema carrasco Empty Re: sistema carrasco

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.