Paracaidas de Manrique

por **zechnas** 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