Sistema Zechnas Ensaladilla v1.0

system "Zechnas-Ensaladilla v1.0"
{
NOMBRE: Ensaladilla

PROPOSITO: Jugar a la repetición de un número acompañandola de sus contiguos en
paño y de sus vecinos en rueda. (La idea la he extraido del sistéma ENSALADA con
la variante de jugar tambien el cero y solo una vez por repetición en vez de 7
como el sistéma original).

OBJETIVO: Ganar aprovechando la azarosa casualidad de vecinos y contiguos.

J.Zechnas/2009

}
method "main"
begin
call "Acierto"



If number 0 tiene hit en 2 times
begin
put 1 unidad en number 36
put 1 unidad en number 0
put 1 unidad en number 1
put 1 unidad en number 26
put 1 unidad en number 32
end

If number 1 tiene hit en 2 times
begin
put 1 unidad en number 0
put 1 unidad en number 1
put 1 unidad en number 2
put 1 unidad en number 33
put 1 unidad en number 20
end

If number 2 tiene hit en 2 times
begin
put 1 unidad en number 1
put 1 unidad en number 2
put 1 unidad en number 3
put 1 unidad en number 21
put 1 unidad en number 25
put 1 unidad en number 0
end

If number 3 tiene hit en 2 times
begin
put 1 unidad en number 2
put 1 unidad en number 3
put 1 unidad en number 4
put 1 unidad en number 35
put 1 unidad en number 26
put 1 unidad en number 0
end

If number 4 tiene hit en 2 times
begin
put 1 unidad en number 3
put 1 unidad en number 4
put 1 unidad en number 5
put 1 unidad en number 19
put 1 unidad en number 21
put 1 unidad en number 0
end

If number 5 tiene hit en 2 times
begin
put 1 unidad en number 4
put 1 unidad en number 5
put 1 unidad en number 6
put 1 unidad en number 10
put 1 unidad en number 24
put 1 unidad en number 0
end

If number 6 tiene hit en 2 times
begin
put 1 unidad en number 5
put 1 unidad en number 6
put 1 unidad en number 7
put 1 unidad en number 34
put 1 unidad en number 27
put 1 unidad en number 0
end

If number 7 tiene hit en 2 times
begin
put 1 unidad en number 6
put 1 unidad en number 7
put 1 unidad en number 8
put 1 unidad en number 29
put 1 unidad en number 28
put 1 unidad en number 0
end

If number 8 tiene hit en 2 times
begin
put 1 unidad en number 7
put 1 unidad en number 8
put 1 unidad en number 9
put 1 unidad en number 30
put 1 unidad en number 23
put 1 unidad en number 0
end

If number 9 tiene hit en 2 times
begin
put 1 unidad en number 8
put 1 unidad en number 9
put 1 unidad en number 10
put 1 unidad en number 31
put 1 unidad en number 22
put 1 unidad en number 0
end

If number 10 tiene hit en 2 times
begin
put 1 unidad en number 9
put 1 unidad en number 10
put 1 unidad en number 11
put 1 unidad en number 23
put 1 unidad en number 5
put 1 unidad en number 0
end

If number 11 tiene hit en 2 times
begin
put 1 unidad en number 10
put 1 unidad en number 11
put 1 unidad en number 12
put 1 unidad en number 36
put 1 unidad en number 30
put 1 unidad en number 0
end

If number 12 tiene hit en 2 times
begin
put 1 unidad en number 11
put 1 unidad en number 12
put 1 unidad en number 13
put 1 unidad en number 28
put 1 unidad en number 35
put 1 unidad en number 0
end

If number 13 tiene hit en 2 times
begin
put 1 unidad en number 12
put 1 unidad en number 13
put 1 unidad en number 14
put 1 unidad en number 27
put 1 unidad en number 36
put 1 unidad en number 0
end

If number 14 tiene hit en 2 times
begin
put 1 unidad en number 13
put 1 unidad en number 14
put 1 unidad en number 15
put 1 unidad en number 20
put 1 unidad en number 31
put 1 unidad en number 0
end

If number 15 tiene hit en 2 times
begin
put 1 unidad en number 14
put 1 unidad en number 15
put 1 unidad en number 16
put 1 unidad en number 32
put 1 unidad en number 19
put 1 unidad en number 0
end

If number 16 tiene hit en 2 times
begin
put 1 unidad en number 15
put 1 unidad en number 16
put 1 unidad en number 17
put 1 unidad en number 24
put 1 unidad en number 33
put 1 unidad en number 0
end

If number 17 tiene hit en 2 times
begin
put 1 unidad en number 16
put 1 unidad en number 17
put 1 unidad en number 18
put 1 unidad en number 25
put 1 unidad en number 34
put 1 unidad en number 0
end

If number 18 tiene hit en 2 times
begin
put 1 unidad en number 17
put 1 unidad en number 18
put 1 unidad en number 19
put 1 unidad en number 22
put 1 unidad en number 29
put 1 unidad en number 0
end

If number 19 tiene hit en 2 times
begin
put 1 unidad en number 18
put 1 unidad en number 19
put 1 unidad en number 20
put 1 unidad en number 15
put 1 unidad en number 4
put 1 unidad en number 0
end

If number 20 tiene hit en 2 times
begin
put 1 unidad en number 19
put 1 unidad en number 20
put 1 unidad en number 21
put 1 unidad en number 1
put 1 unidad en number 14
put 1 unidad en number 0
end

If number 21 tiene hit en 2 times
begin
put 1 unidad en number 20
put 1 unidad en number 21
put 1 unidad en number 22
put 1 unidad en number 4
put 1 unidad en number 2
put 1 unidad en number 0
end

If number 22 tiene hit en 2 times
begin
put 1 unidad en number 21
put 1 unidad en number 22
put 1 unidad en number 23
put 1 unidad en number 9
put 1 unidad en number 18
put 1 unidad en number 0
end

If number 23 tiene hit en 2 times
begin
put 1 unidad en number 22
put 1 unidad en number 23
put 1 unidad en number 24
put 1 unidad en number 8
put 1 unidad en number 10
put 1 unidad en number 0
end

If number 24 tiene hit en 2 times
begin
put 1 unidad en number 23
put 1 unidad en number 24
put 1 unidad en number 25
put 1 unidad en number 5
put 1 unidad en number 16
put 1 unidad en number 0
end

If number 25 tiene hit en 2 times
begin
put 1 unidad en number 24
put 1 unidad en number 25
put 1 unidad en number 26
put 1 unidad en number 2
put 1 unidad en number 17
put 1 unidad en number 0
end

If number 26 tiene hit en 2 times
begin
put 1 unidad en number 25
put 1 unidad en number 26
put 1 unidad en number 27
put 1 unidad en number 3
put 1 unidad en number 0
end

If number 27 tiene hit en 2 times
begin
put 1 unidad en number 26
put 1 unidad en number 27
put 1 unidad en number 28
put 1 unidad en number 6
put 1 unidad en number 13
put 1 unidad en number 0

end

If number 28 tiene hit en 2 times
begin
put 1 unidad en number 27
put 1 unidad en number 28
put 1 unidad en number 29
put 1 unidad en number 7
put 1 unidad en number 12
put 1 unidad en number 0
end

If number 29 tiene hit en 2 times
begin
put 1 unidad en number 28
put 1 unidad en number 29
put 1 unidad en number 30
put 1 unidad en number 18
put 1 unidad en number 7
put 1 unidad en number 0
end

If number 30 tiene hit en 2 times
begin
put 1 unidad en number 29
put 1 unidad en number 30
put 1 unidad en number 31
put 1 unidad en number 11
put 1 unidad en number 8
put 1 unidad en number 0
end

If number 31 tiene hit en 2 times
begin
put 1 unidad en number 30
put 1 unidad en number 31
put 1 unidad en number 32
put 1 unidad en number 14
put 1 unidad en number 9
put 1 unidad en number 0
end

If number 32 tiene hit en 2 times
begin
put 1 unidad en number 31
put 1 unidad en number 32
put 1 unidad en number 33
put 1 unidad en number 0
put 1 unidad en number 15
end

If number 33 tiene hit en 2 times
begin
put 1 unidad en number 32
put 1 unidad en number 33
put 1 unidad en number 34
put 1 unidad en number 16
put 1 unidad en number 1
put 1 unidad en number 0
end

If number 34 tiene hit en 2 times
begin
put 1 unidad en number 33
put 1 unidad en number 34
put 1 unidad en number 35
put 1 unidad en number 17
put 1 unidad en number 4
put 1 unidad en number 0
end

If number 35 tiene hit en 2 times
begin
put 1 unidad en number 34
put 1 unidad en number 35
put 1 unidad en number 36
put 1 unidad en number 12
put 1 unidad en number 3
put 1 unidad en number 0
end

If number 36 tiene hit en 2 times
begin
put 1 unidad en number 35
put 1 unidad en number 36
put 1 unidad en number 0
put 1 unidad en number 13
put 1 unidad en number 11
end
end

// Determinando si se gana y se acaba sesión.
method "Acierto"
begin
if net > 0
begin
if bankroll > record"Acierto" data
begin
display "Ya acertó ; Puede proseguir o marcar y finalizar sesión."

end
end
End