Oscillazione 2

Contenuto del file

system "Oscillazione 2"
{
Attendere che ci sia solo una sestina con il massimo ritardo
Qundo esce vedere qual'è la nuova sestina con il massimo ritardo
mettere in gioco tutte le altre sestine tranne quella per 5 colpi
Ci si ferma se si perde tutto il capitale di 25 pezzi o si vincono 5 pezzi
}
method "main"
begin
    While Starting a New Session
    begin
    	 Copy list [1,2,3,4,5,6] record "GruppoA" layout
    	 copy list [7,8,9,10,11,12] record "GruppoB" layout
    	 copy list [13,14,15,16,17,18] record "GruppoC" layout
         copy list [19,20,21,22,23,24] record "GruppoD" layout
         copy list [25,26,27,28,29,30] record "GruppoE" layout
         copy list [31,32,33,34,35,36] record "GruppoF" layout
         copy list [line(1-6),line(7-12),line(13-18), line(19-24),line(25-30),line(31-36)] record "Sestine" layout
         set list [0,0,0,0,0,0] record "RitardiSestine" data
         put 1 record "pezzi" data
         set flag "Inizia" False
         set flag "Punta" false
    end
    While each Spin
    begin
        If flag "Punta" True
        begin
            call "Risultati"
        end
        if number 0 not hit each
        begin
            copy last number record "UltimoN" layout
            Call "Analisi"
            if flag "Inizia" false
            begin
                Call "VerificaInizio"
            end
            else
            begin
                call "Controlla"
            end
        end
        if flag "Punta" true
        begin
            call "Punta"
        end

    end
end
Method "Risultati"
begin
{    if net <0
    and number 0 not hit each
    begin
        multiply 5 record "pezzi" data
    end
    else
    begin
        put 1 record "pezzi" data
    end
}    if number 0 hit each
    begin
        set flag "punta" true
    end
    else
    begin
        set flag "Punta" False
    end

    //Call "Partita"
end

method "Analisi"
begin
    put 1 record "RitardiSestine" data index
    loop until record "RitardiSestine" data index > record "RitardiSestine" data count
    begin
        if record "RitardiSestine" data > record "max" data
        begin
            put 100% record "RitardiSestine" data  record "max" data
        end
        Add 1 record "RitardiSestine" data
        add 1 record "RitardiSestine" data index
   end

    If record "UltimoN" Layout found Record "GruppoA" layout
    begin
        put 1 record "RitardiSestine" data index
        put 0 record "RitardiSestine" data
        return
    end
    If record "UltimoN" Layout found Record "GruppoB" layout
    begin
        put 2 record "RitardiSestine" data index
        put 0 record "RitardiSestine" data
        return
    end
    If record "UltimoN" Layout found Record "GruppoC" layout
    begin
        put 3 record "RitardiSestine" data index
        put 0 record "RitardiSestine" data
        return
    end
    If record "UltimoN" Layout found Record "GruppoD" layout
    begin
        put 4 record "RitardiSestine" data index
        put 0 record "RitardiSestine" data
        return
    end
    If record "UltimoN" Layout found Record "GruppoE" layout
    begin
        put 5 record "RitardiSestine" data index
        put 0 record "RitardiSestine" data
        return
    end
    If record "UltimoN" Layout found Record "GruppoF" layout
    begin
        put 6 record "RitardiSestine" data index
        put 0 record "RitardiSestine" data
        return
    end

end

method "VerificaInizio"
begin
    put 1 record "RitardiSestine" data index
    loop until record "RitardiSestine" data index > record "RitardiSestine" data count
    begin
        if record "RitardiSestine" data > record "Temp" data
        begin
            put 100% record "RitardiSestine" data  record "Temp" data
        end
        add 1 record "RitardiSestine" data index
   end
    Clear record "Temp2" data
    put 1 record "RitardiSestine" data index
    loop until record "RitardiSestine" data index > record "RitardiSestine" data count
    begin
        if record "RitardiSestine" data = record "Temp" data
        begin
            add 1  record "Temp2" data
        end
        add 1 record "RitardiSestine" data index
   end

     if record "Temp2" data =1
    begin
        Set flag "Inizia" true
    end
end

method "Controlla"
begin
    Set flag "Punta" true
    put 1 record "RitardiSestine" data index
    loop until record "RitardiSestine" data index > record "RitardiSestine" data count
    begin
        if record "RitardiSestine" data > record "max" data
        begin
            set flag "Punta" false
        end
        add 1 record "RitardiSestine" data index
    end

end

method "Punta"
begin
    clear record "max" data
    put 1 record "RitardiSestine" data index
    loop until record "RitardiSestine" data index > record "RitardiSestine" data count
    begin
        if record "RitardiSestine" data > record "max" data
        begin
            put 100% record "RitardiSestine" data  record "max" data
            put 100% record "RitardiSestine" data index record "Sestine" Layout index
            copy Record "Sestine" Layout Record "Dapuntare" layout
        end
        add 1 record "RitardiSestine" data index
    end
    put 100% record "pezzi" data record "Sestine" layout list
    put 0 record "Dapuntare" layout
end

method "Partita"
begin
    if bankroll =5
    or bankroll<=-20
    begin
        add 100% bankroll record "cassa" data
        put 0 bankroll
        clear record "RitardiSestine" data
        set flag "Inizia" false
        set flag "punta" false
    end




end