Wagerone

Contenuto del file

system "Wagerone"
{
Sistema: Wagerone
Creato da: Lonerider
Xtremizzato da: LaRoulette.it

 Il sistema prevede la puntata su tutti i numeri pieni della roulette
 tranne quello appena uscito ed i tre a destra e  sinistra

 spiegazione del sistema su: www.laroulette.it
}
method "main"
begin
    While Starting new Session
    begin
        put 0 Record "colpi" Data
        set flag  "gioca" True
        copy list [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,
                25,26,27,28,29,30,31,32,33,34,35,36,0] on record "Tutti" layout
        call "Inizializza"

     end
    
    While On each Spin
    begin
        Call "Risultato"
        Call "Verifica"
        add 1 record "colpi" data
        Call "Punta"
        if record "colpi" data >0
        begin

        end
    end
end

method "Punta"
begin
    Set flag "Punta" false
    If record "Attacco" data = 1
    begin
        set flag "Punta" true
    end
    
    If record "Attacco" data = 2
    and flag "Perso" true
    begin
        set flag "Punta" true
    end

    if flag "Punta" True
    begin
        Put 1  record "Tutti" Layout list
        Put 0  record "3Vicini" layout list
        Add 1 record "ContaPuntate" data
    end
    
end
method "Risultato"
begin
    if flag "NoLimits" false
    begin
        If Bankroll >= record "STW" data
        or bankroll <= record "STL" data
        begin
            //stop session
            exit
        end
    end
    If record "Attacco" data =2
    begin
        Put 1 record "3Vicini" Layout index
        loop until record "3Vicini" Layout index > record "3Vicini" Layout count
        begin
            If record "3Vicini" Layout hit each
           begin
                Set flag "Perso" true
            end
            add 1 record "3Vicini" Layout index
        end

        If flag "Perso" true
        begin
            If record "ContaPuntate"data >= record "Giocate" data
            begin
                Set flag "Perso" false
                put 0 record "ContaPuntate" data
            end
        End
    end

end


method "Verifica"
begin
    clear Record "3Vicini" Layout
    //controlla se il numero uscito � del serie e setta il flag uguale
    Locate Number Right 0 Last Number Record "3Vicini" Layout
    Add 1 record "3Vicini" Layout index
    Locate Number Right 1 Last Number Record "3Vicini" Layout
    Add 1 record "3Vicini" Layout index
    Locate Number Right 2 Last Number Record "3Vicini" Layout
    Add 1 record "3Vicini" Layout index

    Locate Number Left 0 Last Number Record "3Vicini" Layout
    Add 1 record "3Vicini" Layout index
    Locate Number Left 1 Last Number Record "3Vicini"  Layout
    Add 1 record "3Vicini" Layout index
    Locate Number Left 2 Last Number Record "3Vicini" Layout
    Add 1 record "3Vicini" Layout index
    Copy last number to  Record "3Vicini"  Layout

end
method "Inizializza"
begin
    group
    begin
        display "WAGERONE"
        input dropdown "Metodo di attacco:
        1:= Dopo 1 colpo di attesa
        2:= Dopo 1 sconfitta virtuale" record "Attacco" data

        input data "Giocate per ogni attacco (0 per continuo)"to record "Giocate" data
        input checkbox "Giocate senza limiti di bankroll" to flag "NoLimits"
    
        input data "StopWin in pezzi" to record "STW" data
        input data "StopLoss in pezzi" to record "Temp" data
    end
    If record "Temp" data >0
    begin
        subtract 100% record "Temp" data record "STL" data
    end
end