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
Hora del foro
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.
Conectarse

Recuperar mi contraseña

Estadísticas
Tenemos 2609 miembros registrados.
El último usuario registrado es oleadamazinger.

Nuestros miembros han publicado un total de 36397 mensajes en 2672 argumentos.

[** Sistema Vertigo 1.0]

Ver el tema anterior Ver el tema siguiente Ir abajo

[** Sistema Vertigo 1.0]

Mensaje por jorditron el Vie Nov 16, 2012 11:53 pm

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

jorditron
Bronce
Bronce

Cantidad de envíos : 40
Fecha de inscripción : 04/10/2012

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

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