[** Sistema Vertigo 1.0]

system "Vertigo 1.0"
{
Ultra dangerous system.
sistema peligroso
}
method "main"
begin
while starting a new session
begin
Call "Initialize"
Call "Input"
end
while each spin
begin
Call "Bandera"
if flag "Dragon" is false
begin
if flag "CalleJuega" is true
begin
Call "Calles"
end
if flag "PlenoJuega" is true
begin
Call "Plenos"
end
end
else
begin
Call "Dragon"
end
end
end

Method "Reset"
begin
Call "Initialize"
put 101% of bankroll to record "BRTemp" data
round record "BRTemp" data
add 100% of record "Dragon" data to record "BRTemp" data
set flag "Dragon" to false
put 100% of bankroll to record "CajaInicial" data

end

Method "Dragon"
begin
put 100% bankroll to record "FichasDragon" data
subtract 101% of record "CajaInicial" data to record "FichasDragon" data

loop until record "FichasDragon" data < 14
begin
add 1 to record "FichaDragonTemp" data
subtract 14 to record "FichasDragon" data
end
put 100% of record "FichaDragonTemp" data to list [1,3,5,7,14,23,25,32,34,36,Split(9-12),Split(18-21),Split(16-19),Split(27-30)]
add 1 to record "ContadorDragon" data
put 0 to record "FichasDragon" data
put 0 to record "FichaDragonTemp" data
end

Method "Bandera"
begin
if flag "Dragon" is false
begin
if Bankroll > record "BRTemp" data
begin
set flag "Dragon" to true
end
if Bankroll > record "Cambio de Ficha" data
begin
add 100% of record "FichaInicial" data to record "Ficha" data
add 100% of record "PrimeraCaja" data to record "Cambio de Ficha" data
end
end
if flag "Dragon" is true
begin
if record "Dragoncitos" layout list has not hit each and record "ContadorDragon" data >0
begin
set flag "Dragon" to false
put 0 to record "ContadorDragon" data
Call "Reset"
end
else
begin
if record "ContadorDragon" data > 3
begin
set flag "Dragon" to false
Call "Reset"
end
else
begin
set flag "Dragon" to true
end
end
end
end

// ------------------------------------------------------------------------------------------Plenos

Method "Plenos"
begin
add 1 to record "PlenoContadores" data
put 1 to record "Plenos" layout index
if record "PlenosMaximo" data = 8
begin
clear record "PlenosRepeticiones" data
clear record "PlenosMaximo" data
clear record "PlenosApostadas" data
add 1 to record "PlenosApostadas" data index
end
loop until record "Plenos" Layout index >37
begin
put 100% of record "Plenos" layout index to record "PlenosRepeticiones" data index
if record "Plenos" Layout has hit each
begin
add 1 to record "PlenosRepeticiones" data
end
add 1 to record "Plenos" layout index
end
put 1 to record "PlenosRepeticiones" data index
loop until record "PlenosRepeticiones" data index >37
begin
if record "PlenosRepeticiones" data >= a record "PlenosMaximo" data
begin
put 100% of record "PlenosRepeticiones" data to record "PlenosMaximo" data
end
add 1 to record "PlenosRepeticiones" data index
end
Call "PlenosCheck"
put 1 to record "Plenos" layout index
loop until record "Plenos" layout index >37
begin
set flag "PlenosAgregar" to true
put 100% of record "Plenos" layout index to record "PlenosRepeticiones" data index
if record "PlenosRepeticiones" data = record "PlenosMaximo" data and record "PlenosMaximo" data > 2 and record "PlenosMaximo" data <8
begin
set max to record "PlenosApostadas" layout index
put 100% of record "PlenosApostadas" layout index to record "PlenosTemp1" data
put 1 to record "PlenosApostadas" layout index
loop until record "PlenosApostadas" layout index > record "PlenosTemp1" data
begin
if record "Plenos" layout = record "PlenosApostadas" layout
begin
set flag "PlenosAgregar" to false
end
add 1 to record "PlenosApostadas" layout index
end
set max to record "PlenosApostadas" layout index
if flag "PlenosAgregar" is true and record "PlenosTemp1" data < 4
begin
add 1 to record "PlenosApostadas" layout index
copy record "Plenos" layout to record "PlenosApostadas" layout
end
end
add 1 to record "Plenos" layout index
end

Call "PlenosApuesta"
end

Method "PlenosCheck"
begin
if record "PlenosApostadas" layout list has not hit each
begin
add 100% of record "PlenosCantidaddeApuestas" data to record "PlenosPerdidas" data
end
else
begin
put 100% of record "Ficha" data to record "PlenosFichaTemp" data
clear record "PlenosApostadas" layout
put 0 to record "PlenosPerdidas" data
set flag "PlenosAgregar" to true
end
end

Method "PlenosApuesta"
begin
put -1 to record "PlenosPago" data
loop until record "PlenosPago" data >0
begin
put 36 to record "PlenosPago" data
multiply 100% of record "PlenosFichaTemp" data to record "PlenosPago" data
set max to record "PlenosApostadas" layout index
put 100% of record "PlenosApostadas" layout index to record "PlenosCantidaddeApuestas" data
multiply 100% of record "PlenosFichaTemp" data to record "PlenosCantidaddeApuestas" data
subtract 100% of record "PlenosCantidaddeApuestas" data to record "PlenosPago" data
subtract 100% of record "PlenosPerdidas" data to record "PlenosPago" data
if record "PlenosPago" data <= 0
begin
add 100% of record "Ficha" data to record "PlenosFichaTemp" data
end
end
put 100% of record "PlenosFichaTemp" data to record "PlenosApostadas" layout list
end

// -----------------------------------------------------------------------------------------------------------CALLES

Method "Calles"
begin
add 1 to record "CallesContadores" data
put 1 to record "Calles" layout index
if record "CallesMaximo" data = 10
begin
clear record "CallesRepeticiones" data
clear record "CallesMaximo" data
clear record "CallesApostadas" data
add 1 to record "CallesApostadas" data index
end
loop until record "Calles" Layout index >12
begin
put 100% of record "Calles" layout index to record "CallesRepeticiones" data index
if record "Calles" Layout has hit each
begin
add 1 to record "CallesRepeticiones" data
end
add 1 to record "Calles" layout index
end
put 1 to record "CallesRepeticiones" data index
loop until record "CallesRepeticiones" data index >12
begin
if record "CallesRepeticiones" data >= a record "CallesMaximo" data
begin
put 100% of record "CallesRepeticiones" data to record "CallesMaximo" data
end
add 1 to record "CallesRepeticiones" data index
end
Call "CallesCheck"
put 1 to record "Calles" layout index
loop until record "Calles" layout index >12
begin
set flag "CallesAgregar" to true
put 100% of record "Calles" layout index to record "CallesRepeticiones" data index
if record "CallesRepeticiones" data = record "CallesMaximo" data and record "CallesMaximo" data > 3 and record "CallesMaximo" data <10
begin
set max to record "CallesApostadas" layout index
put 100% of record "CallesApostadas" layout index to record "CallesTemp1" data
put 1 to record "CallesApostadas" layout index
loop until record "CallesApostadas" layout index > record "CallesTemp1" data
begin
if record "Calles" layout = record "CallesApostadas" layout
begin
set flag "CallesAgregar" to false
end
add 1 to record "CallesApostadas" layout index
end
set max to record "CallesApostadas" layout index
if flag "CallesAgregar" is true and record "CallesTemp1" data <3
begin
add 1 to record "CallesApostadas" layout index
copy record "Calles" layout to record "CallesApostadas" layout
end
end
add 1 to record "Calles" layout index
end

Call "CallesApuesta"
end

Method "CallesCheck"
begin
if record "CallesApostadas" layout list has not hit each
begin
add 100% of record "CallesCantidaddeApuestas" data to record "CallesPerdidas" data
end
else
begin
put 100% of record "Ficha" data to record "CallesFichaTemp" data
clear record "CallesApostadas" layout
put 0 to record "CallesPerdidas" data
set flag "CallesAgregar" to true
end
end

Method "CallesApuesta"
begin
put -1 to record "CallesPago" data
loop until record "CallesPago" data >0
begin
put 12 to record "CallesPago" data
multiply 100% of record "CallesFichaTemp" data to record "CallesPago" data
set max to record "CallesApostadas" layout index
put 100% of record "CallesApostadas" layout index to record "CallesCantidaddeApuestas" data
multiply 100% of record "CallesFichaTemp" data to record "CallesCantidaddeApuestas" data
subtract 100% of record "CallesCantidaddeApuestas" data to record "CallesPago" data
subtract 100% of record "CallesPerdidas" data to record "CallesPago" data
if record "CallesPago" data <= 0
begin
add 100% of record "Ficha" data to record "CallesFichaTemp" data
end
end
put 100% of record "CallesFichaTemp" data to record "CallesApostadas" layout list
end

//----------------------------------------------------------------------------------------------------------------Inicio

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 "Calles" layout
clear record "CallesApostadas" layout
put 0 to record "CallesPerdidas" layout
put 0 to record "CallesCantidaddeApuestas" data
set flag "CallesAgregar" to true
set list [0,0,0,0,0,0,0,0,0,0,0,0] to record "CallesRepeticiones" data

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,00] to record "Plenos" layout
clear record "PlenosApostadas" layout
put 0 to record "PlenosPerdidas" data
put 0 to record "PlenosCantidaddeApuestas" data
set flag "PlenosAgregar" to true
set list [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0] to record "PlenosRepeticiones" data

copy list [1,3,5,7,14,23,25,32,34,36] to record "Dragoncitos" layout

end

Method "Input"
begin
Group
begin
Display "La caja debe ser Mayor a 0"
Input Data "Caja" to Bankroll
Input Data "Ficha" to record "Ficha" data
Input DropDown " A que juega:
1:=Calles
2:=Plenos
3:=Ambos" to record "Juego" data
Display " "
Display "Ten Cuidado"
end
if record "Juego" data =1 or record "Juego" data =3
begin
set flag "CalleJuega" to true
end
if record "Juego" data =2 or record "Juego" data =3
begin
set flag "PlenoJuega" to true
end
put 14 to record "Dragon" data
put 100% of bankroll to record "PrimeraCaja" data
put 100% of bankroll to record "Cambio de Ficha" data
put 100% of record "Ficha" data to record "FichaInicial" data
add 100% of record "PrimeraCaja" data to record "Cambio de Ficha" data
put 100% of record "Ficha" data to record "CallesFichaTemp" data
put 100% of record "Ficha" data to record "PlenosFichaTemp" data
put 101% of Bankroll to record "BRTemp" data
put 100% of bankroll to record "CajaInicial" data
round record "BRTemp" data
add 100% of record "Dragon" data to record "BRTemp" data
end