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

[yazer]

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

[Lapp]

Способ рисования костей у тебя чересчур банальный.. Посмотри вот на эту процедурку.

uses crt;

procedure Picture(n:integer);
var
  x,y,i,j:integer;
  c:char;

  procedure Put(i,j:integer);
  begin
    GotoXY(x+i,y+j);Write(с )
  end;

begin
  x:=WhereX;
  y:=WhereY;
  c:='|';
  for i:=1 to 5 do begin
    Put(0,i);Put(8,i)
  end;
  c:='-';
  for i:=1 to 7 do begin
    Put(i,0);Put(i,6)
  end;
  c:='0';
  repeat
    case n of
      1: begin Put(4,3); n:=0 end;
      2: begin Put(2,1); Put(6,5); n:=0 end;
      3: begin Put(4,3); n:=2 end;
      4: begin Put(6,1); Put(2,5); n:=2 end;
      5: begin Put(4,3); n:=4 end;
      6: begin Put(6,3); Put(2,3); n:=4 end;
    end
  until n=0
end;

var
  i:integer;

begin
  ClrScr;
  for i:=1 to 6 do begin
    GoToXY(i*12-10,i*3);
    Picture(i)
  end;
  readKey
end.

Наверняка, можно еще гораздо компактнее сделать..