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
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