Aqui está um pouco do que foi dito:
sistema "Zechnas - Francisco Delaguagua v2.0"
{
Francisco Delaguagua acabou quase cego devido a cataratas associadas a outras pessoas
sérios problemas de visão insolúveis.
Este é um sistema que ele usou com frequência e que reivindicou como seu.
As dinâmicas são tão fáceis que não há necessidade de explicar como funcionam.
A sua publicação é uma homenagem a este incansável lutador contra a roda que tinha,
Como todo mundo, dias bons e ruins, mas ele sobreviveu.
Zechnas/2014.
}
método "principal"
começar
ao iniciar uma nova sessão
começar
// Chamada para a aposta inicial e de progressão.
chame "início";
fim
//Chama sub-rotinas
chame "apostas";
chame "verificar";
fim
método "começar"
começar
copiar lista [canto(2:6),canto(14:18),canto(26:30),canto(2:6),canto(14:18),canto(26:30),canto(2:6 ), canto(14:18), canto(26:30) ,
canto(2:6),canto(14:18),canto(26:30),canto(2:6),canto(14:18),canto(26:30),canto(2:6),canto (14:18),canto(26:30),
canto(2:6),canto(14:18),canto(26:30),canto(2:6),canto(14:18),canto(26:30),canto(2:6),canto (14:18),canto(26:30),
canto(2:6),canto(14:18),canto(26:30),canto(2:6),canto(14:18),canto(26:30),canto(2:6),canto (14:18),corner(26:30)] para registro de layout "deslizante";
copiar lista [canto(1:5),canto(13:17),canto(25:29),canto(1:5),canto(13:17),canto(25:29),canto(1:5 ),canto(13:17),canto(25:29),
canto(1:5),canto(13:17),canto(25:29),canto(1:5),canto(13:17),canto(25:29),canto(1:5),canto (13:17), canto (25:29),
canto(1:5),canto(13:17),canto(25:29),canto(1:5),canto(13:17),canto(25:29),canto(1:5),canto (13:17), canto (25:29),
canto(1:5),canto(13:17),canto(25:29),canto(1:5),canto(13:17),canto(25:29),canto(1:5),canto (13:17),corner(25:29)] para o layout do registro "sliding2";
copiar lista [canto(8:12),canto(20:24),canto(32:36),canto(8:12),canto(20:24),canto(32:36),canto(8:12 ),canto(20:24),canto(32:36),
canto (8:12), canto (20:24), canto (32:36), canto (8:12), canto (20:24), canto (32:36), canto (8:12), canto (20:24), canto (32:36),
canto (8:12), canto (20:24), canto (32:36), canto (8:12), canto (20:24), canto (32:36), canto (8:12), canto (20:24), canto (32:36),
canto (8:12), canto (20:24), canto (32:36), canto (8:12), canto (20:24), canto (32:36), canto (8:12), canto (20:24),corner(32:36)] para registro de layout "sliding3";
copiar lista [canto(7:11),canto(19:23),canto(31:35),canto(7:11),canto(19:23),canto(31:35),canto(7:11 ),canto(19:23),canto(31:35),
canto (7:11), canto (19:23), canto (31:35), canto (7:11), canto (19:23), canto (31:35), canto (7:11), canto (19:23), canto (31:35),
canto (7:11), canto (19:23), canto (31:35), canto (7:11), canto (19:23), canto (31:35), canto (7:11), canto (19:23), canto (31:35),
canto (7:11), canto (19:23), canto (31:35), canto (7:11), canto (19:23), canto (31:35), canto (7:11), canto (19:23),corner(31:35)] para registro de layout "sliding4";
set list [1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1] registra dados de "sequência"; // Progressão típica para jogo de dezenas ou colunas.
coloque 1 no índice de layout "deslizante" do registro;
coloque 1 no índice de layout do registro "sliding2";
coloque 1 no índice de layout do registro "sliding3";
coloque 1 no índice de layout do registro "sliding4";
coloque 3 na coluna b
fim
método "verificar"
começar
//Ganha cheque
se líquido > 0
começar
coloque 1 no índice de dados de "sucessão" do registro;
fim
se líquido < 0
//verificação de perda
começar
adicione 1 no índice de dados de "sucessão" do registro;
fim
if registrar índice de dados de "sucessão" > registrar contagem de dados de "sucessão"
começar
coloque 1 no índice de dados de "sucessão" do registro;
fim
fim
método "apostas"
começar
colocar 100% dos dados de "sucessão" do registro no layout "deslizante" do registro;
colocar 100% dos dados de "sucessão" do registro no layout do registro "sliding2";
colocar 100% dos dados de "sucessão" do registro no layout do registro "corredizas3";
colocar 100% dos dados de "sucessão" do registro no layout do registro "corredizas4";
coloque 3 na coluna b
if registro índice de layout "deslizante" >= registro contagem de layout "deslizante"
começar
coloque 1 no índice de layout "deslizante" do registro;
fim
outro
começar
adicione 1 no índice de layout "deslizante" do registro;
fim
//2
if registro índice de layout "sliding2" >= registro contagem de layout "sliding2"
começar
coloque 1 no índice de layout do registro "sliding2";
fim
outro
começar
adicione 1 no índice de layout do registro "sliding2";
fim
//3
if registro índice de layout "sliding" >= registro contagem de layout "sliding3"
começar
coloque 1 no índice de layout do registro "sliding3";
fim
outro
começar
adicione 1 no índice de layout do registro "sliding3";
fim
//4
if registro índice de layout "sliding4" >= registro contagem de layout "sliding4"
começar
coloque 1 no índice de layout do registro "sliding4";
fim
outro
começar
adicione 1 no índice de layout do registro "sliding4";
fim
se banca > 0
começar
mostrar
"Você acabou de ganhar pelo menos 2 fichas.
Era o mínimo previsto para o sistema.
A sessão será encerrada. Comece de novo."
fim
se banca < -30
começar
mostrar
"Você acabou de perder o suficiente.
Foi o máximo previsto para o sistema.
A sessão será encerrada. Comece de novo."
parar sessão
fim
Fim