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 Zechnas One (Básico)

2 participantes

Ir abajo

Sistema Zechnas One (Básico) Empty Zechnas One

Mensaje por zechnas Jue Nov 08, 2012 2:20 pm

system "Zechnas One V1.0"
{

}
method "main"
begin
put 4 fichas en 1st dozen
put 1 ficha en list[street(13-15),street(16-18),street(19-21)]
put 4 fichas en 3rd dozen
if number 0 tiene hit en 1 bola or number 15 tiene hit en 1 bola
begin
put 4 fichas en 1st dozen
put 1 ficha en list[street(13-15),street(16-18),street(19-21)]
put 4 fichas en 3rd dozen
end

if number 23 tiene hit en 1 bola or number 24 tiene hit en 1 bola
begin
put 4 fichas en 1st dozen
put 1 ficha en list[street(16-18),street(19-21),street(22-24)]
put 4 fichas en 3rd dozen
put 0 fichas en street(13-15)
end

End
zechnas
zechnas
Expulsados
Expulsados

Cantidad de envíos : 1710
Fecha de inscripción : 17/09/2010
Localización : Gibraltar

Volver arriba Ir abajo

Sistema Zechnas One (Básico) Empty Sistema Zechnas One (Básico)

Mensaje por jorditron Jue Nov 08, 2012 9:40 pm

system "Zechnas - One - V2.0 by Jordi"
{
Hice lo q entendi
}
method "main"
begin
while starting a new session
begin
Call "Initialize"
Call "Input"
put 400% of record "Ficha" data to record "Docena1" layout
put 400% of record "Ficha" data to record "Docena2" layout
put 100% of record "Ficha" data to record "Lineas" layout list
add 1 to record "Contador" data
end
while on each spin
begin
if flag "Fase1" is true
begin
put 100% of record "Cifra1" data to record "Cifra" data
call "Apuesta"
end
else
begin
if flag "Fase1Espera" is true
begin
put 100% of record "Cifra1" data to record "Cifra" data
call "Espera"
end
else
begin
if flag "Fase2" is true
begin
put 100% of record "Cifra2" data to record "Cifra" data
call "Apuesta"
end
else
begin
if flag "Fase2Espera" is true
begin
put 100% of record "Cifra2" data to record "Cifra" data
call "Espera"
end
else
begin
if flag "Fase3" is true
begin
put 100% of record "Cifra3" data to record "Cifra" data
call "Apuesta"
end
else
begin
if flag "Fase3Espera" is true
begin
put 100% of record "Cifra3" data to record "Cifra" data
call "Espera"
end
end
end
end
end
end
end
end

Method "Apuesta"
begin
if record "Contador" data < record "Cifra" data
begin
if record "Elegida" layout has not hit each
begin
put 400% of record "Ficha" data to record "Docena1" layout
put 400% of record "Ficha" data to record "Docena2" layout
put 100% of record "Ficha" data to record "Lineas" layout list
end
else
begin
put 400% of record "Ficha" data to record "Docena1" layout
put 400% of record "Ficha" data to record "Docena2" layout
put 100% of record "Ficha" data to record "LineaExtra" layout list
end
add 1 to record "Contador" data
end
else
begin
if flag "Fase1" is true
begin
set flag "Fase1" to false
set flag "Fase1Espera" to true
put 1 to record "Contador" data
end
if flag "Fase2" is true
begin
set flag "Fase2" to false
set flag "Fase2Espera" to true
put 1 to record "Contador" data
end
if flag "Fase3" is true
begin
set flag "Fase3" to false
set flag "Fase3Espera" to true
put 1 to record "Contador" data
end
end
end

Method "Espera"
begin
if record "Contador" data < record "Cifra" data
begin
add 1 to record "Contador" data
end
else
begin
if flag "Fase1Espera" is true
begin
set flag "Fase1Espera" to false
set flag "Fase2" to true
put 0 to record "Contador" data
put 100% of record "Cifra2" data to record "Cifra" data
call "Apuesta"
end
if flag "Fase2Espera" is true
begin
set flag "Fase2Espera" to false
set flag "Fase3" to true
put 0 to record "Contador" data
put 100% of record "Cifra3" data to record "Cifra" data
call "Apuesta"
end
if flag "Fase3Espera" is true
begin
set flag "Fase3Espera" to false
set flag "Fase1" to true
put 0 to record "Contador" data
put 100% of record "Cifra1" data to record "Cifra" data
call "Apuesta"
end
end
end

Method "Initialize"
begin
set flag "Fase1" to true
set flag "Fase2" to false
set flag "Fase3" to false
set flag "Fase1Espera" to false
set flag "Fase2Espera" to false
set flag "Fase3Espera" to false
put 0 to record "Contador" data
end

Method "Input"
begin
Group
begin
Input Data "Caja" to Bankroll
Input Data "Ficha" to record "Ficha" data
Input DropDown "Elige la linea
a la q no jugaras:
1:=1.2.3
2:=4.5.6
3:=7.8.9
4:=10.11.12
5:=13.14.15
6:=16.17.18
7:=19.20.21
8:=22.23.24
9:=25.26.27
10:=28.29.30
11:=31.32.33
12:=34.35.36" to record "LineaNojugable" data
Display "3 numeros no mayores a 3"
Input Data "Primer Numero" to record "Cifra1" data
Input Data "Segund Numero" to record "Cifra2" data
Input Data "Tercer Numero" to record "Cifra3" data
end
put 100% of record "Ficha" data to record "FichaTemp" data
if record "LineaNojugable" data < 5
begin
copy 2nd dozen to record "Docena1" layout
copy 3rd dozen to record "Docena2" layout
if record "LineaNojugable" data = 1
begin
copy list [Street(4-6),Street(7-9),Street(10-12)] to record "Lineas" layout
copy list [Street(1-3),Street(4-6),Street(7-9)] to record "LineaExtra" layout
copy list [Street(1-3)] to record "Elegida" layout
end
if record "LineaNojugable" data = 2
begin
copy list [Street(1-3),Street(7-9),Street(10-12)] to record "Lineas" layout
copy list [Street(1-3),Street(4-6),Street(10-12)] to record "LineaExtra" layout
copy list [Street(4-6)] to record "Elegida" layout
end
if record "LineaNojugable" data = 3
begin
copy list [Street(1-3),Street(4-6),Street(10-12)] to record "Lineas" layout
copy list [Street(1-3),Street(7-9),Street(10-12)] to record "LineaExtra" layout
copy list [Street(7-9)] to record "Elegida" layout
end
if record "LineaNojugable" data = 4
begin
copy list [Street(1-3),Street(4-6),Street(7-9)] to record "Lineas" layout
copy list [Street(4-6),Street(7-9),Street(10-12)] to record "LineaExtra" layout
copy list [Street(10-12)] to record "Elegida" layout
end
end
else
begin
if record "LineaNojugable" data <9
begin
copy 1st dozen to record "Docena1" layout
copy 3rd dozen to record "Docena2" layout
if record "LineaNojugable" data = 5
begin
copy list [Street(16-18),Street(19-21),Street(22-24)] to record "Lineas" layout
copy list [Street(13-15),Street(16-18),Street(19-21)] to record "LineaExtra" layout
copy list [Street(13-15)] to record "Elegida" layout
end
if record "LineaNojugable" data = 6
begin
copy list [Street(13-15),Street(19-21),Street(22-24)] to record "Lineas" layout
copy list [Street(13-15),Street(16-18),Street(22-24)] to record "LineaExtra" layout
copy list [Street(16-18)] to record "Elegida" layout
end
if record "LineaNojugable" data = 7
begin
copy list [Street(13-15),Street(16-18),Street(22-24)] to record "Lineas" layout
copy list [Street(13-15),Street(19-21),Street(22-24)] to record "LineaExtra" layout
copy list [Street(19-21)] to record "Elegida" layout
end
if record "LineaNojugable" data = 8
begin
copy list [Street(13-15),Street(16-18),Street(19-21)] to record "Lineas" layout
copy list [Street(16-18),Street(19-21),Street(22-24)] to record "LineaExtra" layout
copy list [Street(22-24)] to record "Elegida" layout
end
end
else
begin
copy 1st dozen to record "Docena1" layout
copy 2nd dozen to record "Docena2" layout
if record "LineaNojugable" data = 9
begin
copy list [Street(28-30),Street(31-33),Street(34-36)] to record "Lineas" layout
copy list [Street(25-27),Street(28-30),Street(31-33)] to record "LineaExtra" layout
copy list [Street(25-27)] to record "Elegida" layout
end
if record "LineaNojugable" data = 10
begin
copy list [Street(25-27),Street(31-33),Street(34-36)] to record "Lineas" layout
copy list [Street(25-27),Street(28-30),Street(34-36)] to record "LineaExtra" layout
copy list [Street(28-30)] to record "Elegida" layout
end
if record "LineaNojugable" data = 11
begin
copy list [Street(25-27),Street(28-30),Street(34-36)] to record "Lineas" layout
copy list [Street(25-27),Street(31-33),Street(34-36)] to record "LineaExtra" layout
copy list [Street(31-33)] to record "Elegida" layout
end
if record "LineaNojugable" data = 12
begin
copy list [Street(25-27),Street(28-30),Street(31-33)] to record "Lineas" layout
copy list [Street(28-30),Street(31-33),Street(34-36)] to record "LineaExtra" layout
copy list [Street(34-36)] to record "Elegida" layout
end
end
end
end
avatar
jorditron
Bronce
Bronce

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

Volver arriba Ir abajo

Volver arriba

- Temas similares

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