system "Zechnas - Spoleto v1.0"

[zechnas]

system "Zechnas - Spoleto v1.0"
{
Record sesiones seguidas sin perder : 53
Bola máxima alcanzada para + : 15
Sesiones perdidas 1  (Bola 60 Caja 90)
}
method "main"
begin
while starting a new session
begin

copy list [street(1-3),street(4-6),street(7-9),street(10-12),street(13-15),
street(16-18),street(19-21),street(22-24),street(25-27),street(28-30),
street(31-33),street(34-36)] to record "colfavor" layout
//set list [1,1,2,2,3,3,3,4,4,4,4,5,5,5,5,5] to record "progsuave" data  // Progresión cuerno
//set list [1,1,1,2,2,2,2,3,3,3,3,3,4,4,4,4,4,4,5,5,5,5,5,5,5] to record "progsuave" data  // Progresión dura
set list [1,1,1,1,1,2,2,2,2,2,3,3,3,3,3,4,4,4,4,4,5,5,5,5,5] to record "progsuave" data  // Progresión blanda
//set list [1,1,1,1,1,1,2,2,2,2,2,2,3,3,3,3,3,3,4,4,4,4,4,4,5,5,5,5,5,6] to record "progsuave" data  // Progresión super-blanda
put 100% of record "progsuave" data to record "colfavor" layout

copy list [2nd dozen, 3rd dozen,2nd dozen, 3rd dozen,1st dozen, 3rd dozen,
1st dozen, 3rd dozen,1st dozen, 2nd dozen,1st dozen, 2nd dozen, 3rd dozen,
2nd dozen, 3rd dozen,2nd dozen, 3rd dozen,1st dozen, 3rd dozen,1st dozen,
2nd dozen,1st dozen,2nd dozen,1st dozen]
to record "colfavor2" layout
set list [1,2,3,3,4,4,4,5,5,5,5] to record "progsuave2" data
put 100% of record "progsuave" data to record "colfavor2" layout


exit
end

if record "colfavor" layout has won each time
begin
put 1 to record "progsuave" data index
end
if record "colfavor2" layout has won each time
begin
put 1 to record "progsuave2" data index
end

if record "colfavor" layout has lost each time
begin
add 1 to record "progsuave" data index
end
if record "colfavor2" layout has lost each time
begin
add 1 to record "progsuave2" data index
end

if record "progsuave" data index > record "progsuave" data count
begin
display "Ha llegado a unas pérdidas aceptables para éste sistéma, incluso
         habiendo estado ganando. Cierre sesión, espere unas bolas e intentelo
         de nuevo"
Stop Session
end

if record "progsuave2" data index > record "progsuave2" data count
begin
display "Ha llegado a unas pérdidas aceptables para éste sistéma
         cierre sesión, espere unas bolas e intentelo de nuevo"
Stop Session
end


add 1 to record "colfavor" layout index
add 1 to record "colfavor2" layout index

if record "colfavor" layout index > record "colfavor" layout count
begin
put 1 on record "colfavor" layout index
end

if record "colfavor2" layout index > record "colfavor2" layout count
begin
put 1 on record "colfavor2" layout index
end

put 100% of record "progsuave" data to record "colfavor" layout
put 100% of record "progsuave2" data to record "colfavor2" layout

End

[zechnas]

En algunos sistemas se ha anotado las sesiones seguidas sin perder o algunas otras incidencias dignas de mención del sistéma al que se le pueden ir añadiendo, a modo recordatorio, mas sesiones de otros jugadores como datos estadísticos del propio sistema.
Joseph Zechnas 17/05/2022

[zechnas]

-