игра "Кости", Зацените Опции

[yazer]

Сделал свою первую игру на Паскале. Зацените.
 BONES.PAS ( 1.15 килобайт ) Кол-во скачиваний: 585

[Lapp]

Ага, можно
Что-то меня пробило на это дело.. Вот еще один вариант. Он не только компактнее, но еще и масштабируется при необходимости в некоторых пределах.
Попробуй!

uses crt;

var
  Lx,Ly:integer;

procedure Picture(n:integer);
const
  Dice:array[1..6,1..6,1..2]of integer=
    (((45,45),(0,0),(0,0),(0,0),(0,0),(0,0)),
    ((10,15),(75,65),(0,0),(0,0),(0,0),(0,0)),
    ((45,45),(10,15),(75,65),(0,0),(0,0),(0,0)),
    ((10,15),(75,65),(10,65),(75,15),(0,0),(0,0)),
    ((10,15),(75,65),(10,65),(75,15),(45,45),(0,0)),
    ((10,15),(75,65),(10,65),(75,15),(10,45),(75,45)));

var
  x,y,i,j,k:integer;

  procedure Put(c:char);
  begin
    GotoXY(x+i,y+j);Write©
  end;

begin
  x:=WhereX;
  y:=WhereY;
  for j:=2 to Ly-1 do begin i:=1;Put('|');i:=Lx;Put('|') end;
  for i:=2 to Lx-1 do begin j:=1;Put('-');j:=Ly;Put('-') end;
  x:=x+1;
  y:=y+1;
  for j:=1 to Ly do for i:=1 to Lx do for k:=1 to 6 do
    if (Round((Lx-2)*Dice[n,k,1]/100)=i-1)and(Round((Ly)*Dice[n,k,2]/100)=j) then Put('0')
end;

var
  i:integer;

begin
  ClrScr;
  Lx:=5;
  Ly:=5;
  for i:=1 to 6 do begin
    GoToXY(i*12-10,i);
    Picture(i)
  end;
  Lx:=7;
  Ly:=5;
  for i:=1 to 6 do begin
    GoToXY(i*12-10,i+5);
    Picture(i)
  end;
  Lx:=9;
  Ly:=7;
  for i:=1 to 6 do begin
    GoToXY(i*12-10,i+10);
    Picture(i)
  end;
  Lx:=11;
  Ly:=7;
  for i:=1 to 6 do begin
    GoToXY(i*12-10,i+17);
    Picture(i)
  end;
  readKey
end.