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.

Paracaidas de Manrique

Ver el tema anterior Ver el tema siguiente Ir abajo

Paracaidas de Manrique

Mensaje por zechnas el Lun Ene 14, 2013 8:32 pm

system "Paracaidas de Manrique v1.0"
{
La literatura ya la conoceis.....
Zechnas./2013
}
method "main"
begin
call "Acierto"
if number 13 tiene not hit en 12 bolas
begin
put 1 ficha en line(13-18)
end
if number 13 tiene not hit en 13 bolas
begin
put 1 ficha en line(13-18)
end
if number 13 tiene not hit en 14 bolas
begin
put 1 ficha en line(13-18)
end
if number 13 tiene not hit en 15 bolas
begin
put 1 ficha en line(13-18)
end
if number 13 tiene not hit en 16 bolas
begin
put 1 ficha en line(13-18)
end




if number 13 tiene not hit en 17 bolas
begin
put 1 ficha en corner(13:17)
end
if number 13 tiene not hit en 18 bolas
begin
put 1 ficha en corner(13:17)
end
if number 13 tiene not hit en 19 bolas
begin
put 1 ficha en corner(13:17)
end


if number 13 tiene not hit en 20 bolas
begin
put 1 ficha en street(13-15)
end
if number 13 tiene not hit en 21 bolas
begin
put 1 ficha en street(13-15)
end
if number 13 tiene not hit en 22 bolas
begin
put 1 ficha en street(13-15)
end


if number 13 tiene not hit en 23 bolas
begin
put 1 ficha en split(13-14)
end
if number 13 tiene not hit en 24 bolas
begin
put 1 ficha en split(13-14)
end
if number 13 tiene not hit en 25 bolas
begin
put 1 ficha en split(13-14)
end
if number 13 tiene not hit en 26 bolas
begin
put 1 ficha en split(13-14)
end
if number 13 tiene not hit en 27 bolas
begin
put 1 ficha en split(13-14)
end
if number 13 tiene not hit en 28 bolas
begin
put 1 ficha en split(13-14)
end



if number 13 tiene not hit en 29 bolas
begin
put 1 ficha en number 13
end
if number 13 tiene not hit en 30 bolas
begin
put 1 ficha en number 13
end
if number 13 tiene not hit en 31 bolas
begin
put 1 ficha en number 13
end
if number 13 tiene not hit en 32 bolas
begin
put 1 ficha en number 13
end
if number 13 tiene not hit en 33 bolas
begin
put 1 ficha en number 13
end
if number 13 tiene not hit en 34 bolas
begin
put 1 ficha en number 13
end
if number 13 tiene not hit en 35 bolas
begin
put 1 ficha en number 13
end
if number 13 tiene not hit en 36 bolas
begin
put 1 ficha en number 13
end
if number 13 tiene not hit en 37 bolas
begin
put 1 ficha en number 13
end
if number 13 tiene not hit en 38 bolas
begin
put 1 ficha en number 13
end
if number 13 tiene not hit en 39 bolas
begin
put 1 ficha en number 13
end
if number 13 tiene not hit en 40 bolas
begin
put 1 ficha en number 13
end
if number 13 tiene not hit en 41 bolas
begin
put 1 ficha en number 13
end
if number 13 tiene not hit en 42 bolas
begin
put 1 ficha en number 13
end
if number 13 tiene not hit en 43 bolas
begin
put 1 ficha en number 13
end
if number 13 tiene not hit en 44 bolas
begin
put 1 ficha en number 13
end
if number 13 tiene not hit en 45 bolas
begin
put 1 ficha en number 13
end
if number 13 tiene not hit en 46 bolas
begin
put 1 ficha en number 13
end
end
method "Acierto"
begin
if net > 0
begin
if bankroll > record"Acierto" data
begin
display "Ya gano algo ; Puede proseguir o marcar y finalizar sesión."
end
end
End










avatar
zechnas
Platino
Platino

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

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.