kockapker

program poker;
uses crt;
const maxn=2;
var Kdobas:byte;
    Kockadobas:byte;
type tabla = record
             egy: byte;           (*tblzat*)
             ket: byte;
             har: byte;
             neg: byte;
             ott: byte;
             hat: byte;
             plus: byte;
             par: byte;
             ketpar: byte;
             haregy: byte;
             negyegy: byte;
             ksor: byte;
             nsor: byte;
             full: byte;
             pokr: byte;
             ossz: byte;

             end;
type tablazat = array [1..maxn] of tabla;

TDobas=record
  szam:byte;
  kockaszam:byte;
end;


TDobasok=array[1..5] of TDobas;

var q,w,e,r,t: real; (*kockk*)
var tab:tablazat;

var
DobasLista: TDobasok;
gomb: char;
i: integer;

procedure beillesztes;


procedure dobas(var EnDobas: TDobas);
begin
  if Kdobas = 3 then
  begin
    writeln('ejnye, mr nem dobhatsz!');
    KDobas:=0;
    inc(kockadobas);
    beillesztes;
  end
  else
  begin
    EnDobas.szam := round(random(6)+1);
    inc(Kdobas);
  end;
end;

(*
function milyendobas(q,w,e,r,t:byte):string;
begin
  case (q+w+e+r+t) of

end;
*)

procedure sorba(var Dobasok: TDobasok);
var
  swapszam, swaphanyszor: byte;
  i: integer;
  j: integer;
begin
  for i := 1 to 5 do
  begin
    for j:=i+1 to 5 do
    begin
      if Dobasok[i].szam > Dobasok[j].szam then
      begin
        swapszam := Dobasok[i].szam;
        Dobasok[i].szam := Dobasok[j].szam;
        Dobasok[j].szam := swapszam;
      end;
    end;
  end;
end;


procedure DobasListaTorles;
begin
  for i := 1 to 5 do
  begin
    DobasLista[i].szam := 0;
    DobasLista[i].kockaszam := 1;
  end;
end;

procedure Kiiratas;
begin
(*
for i := 1 to 5 do
  write(DobasLista[i].szam,'(',DobasLista[i].hanyszor,')', ',');
writeln('');
*)
Sorba(DobasLista);
for i := 1 to 5 do
  write(DobasLista[i].szam,'| ');
writeln('******');
writeln('');
end;

procedure Dobok;
var
  dobasszam: byte;
begin
  dobasszam := 0;
  gomb :=ReadKey;
  while (gomb <> '8') and (dobasszam < 2) do
  begin
    case Ord(gomb) of
     49: Dobas(DobasLista[1]);
     50: Dobas(DobasLista[2]);
     51: Dobas(DobasLista[3]);
     51: Dobas(DobasLista[4]);
     53: Dobas(DobasLista[5]);
    end;
    inc(Dobasszam);
    gomb :=ReadKey;
    dobok;
    dobok;
  end;
  Kiiratas;
end;




BEGIN
randomize;
clrscr;

DobasListaTorles;


for i := 1 to 5 do
  Dobas(DobasLista[i]);
Kiiratas;




repeat until keypressed;






end.