*** Sistema Zechnas 237 o Mediokilo V1.0

system "Zechnas-Sistéma 237 o Mediokilo V1.0"
{
Como indica su nombre es una forma sencilla de jugar para los amantes del paño
en que solo tenemos que esperar la aparición del número anterior o posterior
del último salido para obtener premio.
Realmente es el sistéma "Kilo" pero reducido a la mitad.

}
method "main"
begin
call "Acierto"

If number 0 tiene hit en 1 times
begin
put 1 unidades en number 36
put 1 unidad en number 1
end

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

If number 2 tiene hit en 1 times
begin
put 1 unidades en number 1
put 1 unidad en number 3
end

If number 3 tiene hit en 1 times
begin
put 1 unidades en number 2
put 1 unidad en number 4
end

If number 4 tiene hit en 1 times
begin
put 1 unidades en number 3
put 1 unidad en number 5
end

If number 5 tiene hit en 1 times
begin
put 1 unidades en number 4
put 1 unidad en number 6
end

If number 6 tiene hit en 1 times
begin
put 1 unidades en number 5
put 1 unidad en number 7
end

If number 7 tiene hit en 1 times
begin
put 1 unidades en number 6
put 1 unidad en number 8
end

If number 8 tiene hit en 1 times
begin
put 1 unidades en number 7
put 1 unidad en number 9
end

If number 9 tiene hit en 1 times
begin
put 1 unidades en number 8
put 1 unidad en number 10
end

If number 10 tiene hit en 1 times
begin
put 1 unidades en number 9
put 1 unidad en number 11
end

If number 11 tiene hit en 1 times
begin
put 1 unidades en number 10
put 1 unidad en number 12
end

If number 12 tiene hit en 1 times
begin
put 1 unidades en number 11
put 1 unidad en number 13
end

If number 13 tiene hit en 1 times
begin
put 1 unidades en number 12
put 1 unidad en number 14
end

If number 14 tiene hit en 1 times
begin
put 1 unidades en number 13
put 1 unidad en number 15
end

If number 15 tiene hit en 1 times
begin
put 1 unidades en number 14
put 1 unidad en number 16
end

If number 16 tiene hit en 1 times
begin
put 1 unidades en number 15
put 1 unidad en number 17
end

If number 17 tiene hit en 1 times
begin
put 1 unidades en number 16
put 1 unidad en number 18
end

If number 18 tiene hit en 1 times
begin
put 1 unidades en number 17
put 1 unidad en number 19
end

If number 19 tiene hit en 1 times
begin
put 1 unidades en number 18
put 1 unidad en number 20
end

If number 20 tiene hit en 1 times
begin
put 1 unidades en number 19
put 1 unidad en number 21
end

If number 21 tiene hit en 1 times
begin
put 1 unidades en number 20
put 1 unidad en number 22
end

If number 22 tiene hit en 1 times
begin
put 1 unidades en number 21
put 1 unidad en number 23
end

If number 23 tiene hit en 1 times
begin
put 1 unidades en number 22
put 1 unidad en number 24
end

If number 24 tiene hit en 1 times
begin
put 1 unidades en number 23
put 1 unidad en number 25
end

If number 25 tiene hit en 1 times
begin
put 1 unidades en number 24
put 1 unidad en number 26
end

If number 26 tiene hit en 1 times
begin
put 1 unidades en number 25
put 1 unidad en number 27
end

If number 27 tiene hit en 1 times
begin
put 1 unidades en number 26
put 1 unidad en number 28
end

If number 28 tiene hit en 1 times
begin
put 1 unidades en number 27
put 1 unidad en number 29
end

If number 29 tiene hit en 1 times
begin
put 1 unidades en number 28
put 1 unidad en number 30
end

If number 30 tiene hit en 1 times
begin
put 1 unidades en number 29
put 1 unidad en number 31
end

If number 31 tiene hit en 1 times
begin
put 1 unidades en number 30
put 1 unidad en number 32
end

If number 32 tiene hit en 1 times
begin
put 1 unidades en number 31
put 1 unidad en number 33
end

If number 33 tiene hit en 1 times
begin
put 1 unidades en number 32
put 1 unidad en number 34
end

If number 34 tiene hit en 1 times
begin
put 1 unidades en number 33
put 1 unidad en number 35
end

If number 35 tiene hit en 1 times
begin
put 1 unidades en number 34
put 1 unidad en number 36
end

If number 36 tiene hit en 1 times
begin
put 1 unidades en number 35
put 1 unidad en number 0
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