Johnson

Contenuto del file

system "LR_Johnson"
{
Progressione Johnson
Extremizzata da: laRoulette.it
Spiegazione della progressione sul sito www.laroulette.it
}
method "main"
begin
    While Starting a New Session
    begin
    	 //Set List [1,2,3,4,5,6] on record "Progressione" data;
    	 Call "Parametri"
    	 Call "Resetta"
    	 Call "Punta"
    end
    // esempio con gioco a rosso vincente
    While each Spin
    begin
    	
		if Net>0
    	begin
 			call "Vinto"
    	end
		Else
		Begin
			call "Perso"
		end
		if record "Progressione" data index =0
		begin
			call "Resetta"
		end
		call "Punta"
	end
end

method "Punta"
begin
	clear record "DaPuntare" data
	put 1 record "Progressione" data index
	Add 100% record "Progressione" data record "DaPuntare" data
	Set max record "Progressione" data index
	Add 100% record "Progressione" data record "DaPuntare" data
	put 100% record "DaPuntare" data record "Chance" Layout	
end

method "Vinto"
begin
	if record "Progressione" data index =2
	begin
			call "Resetta"
	end
	else
	begin
		 Move list down 1 record  "Progressione" data
		 Move list up 2 record  "Progressione" data
	end
end

Method "Perso"
begin
    Put 100%  record  "DaPuntare" Data nel record "Puntato" data
    Duplicate record "Progressione" record "Temp"
    Set max Record "Progressione" data index
	put 1 record "ContaTermini" data
    loop until record "ContaTermini" data > record "Puntato" data
	begin
    	add 1 record "Progressione" Data
    	subtract 1 record "Progressione" Data index
    	if record "Progressione" Data index =0
    	begin
    		 set max Record "Progressione" data index
    	end
    	add 1 record "ContaTermini" data    	
    end
end
method "Parametri"
begin
	 copy List[Red,Black,Even,Odd,Low,High] record "lista chance" layout
	 Group
	 begin
  	 	  Input Dropdown "Che chance vuoi giocare?
      	  1:=Rosso
		  2:=Nero
		  3:=Pari
		  4:=Dispari
		  5:=Manque
		  6:=Passe" to record "Scelta" data
	end
	Put 100% record "Scelta" data nel record "lista chance" layout index
	copy  record "lista chance" layout nel record "Chance" Layout 
end 
method "Resetta"
begin
	 Clear All Records Except [ "Chance"] layout
	 set List [1,1,1,1] on record "Progressione" data;

end