Запилил игру на коленке из того что было под ногой. Зацените.

[intmain]

Вот она.

program programalka;

{$APPTYPE CONSOLE}

uses
  SysUtils;     //Привет Мир!

type
  TSomething = class
    public
      name : AnsiString;
      procedure Process(var T : TSomething); virtual;abstract;
  end;

  TRock = class;
  TPaper = class;
  TScissors = class;


  TRock = class(TSomething)
    public
      procedure Process(var T : TSomething);override;
      constructor Create();
  end;

  TPaper = class(TSomething)
    public
      procedure Process(var T : TSomething);override;
      constructor Create();
  end;

  TScissors = class(TSomething)
    public
      procedure Process(var T : TSomething);override;
      constructor Create();
  end;


procedure TRock.Process(var T : TSomething);
begin
  if T is TRock then
    writeln ('Replay! No one win')
  else if T is TPaper then
    writeln('TPaper wins TRock!')
  else
    writeln('TRock wins TScissors!')

end;

constructor TRock.Create;
begin
  name := 'Rock';
end;

procedure TPaper.Process(var T : TSomething);
begin
  if T is TPaper then
    writeln ('Replay! No one win')
  else if T is TRock then
    writeln('TPaper wins TRock!')
  else
    writeln('TScissors wins TPaper!')

end;

constructor TPaper.Create;
begin
  name := 'Paper';
end;

procedure TScissors.Process(var T : TSomething);
begin
  if T is TScissors then
    writeln ('Replay! No one win')
  else if T is TRock then
    writeln('TRock wins TScissors!')
  else
    writeln('TScissors wins TPaper!')

end;

constructor TScissors.Create;
begin
  name := 'Scissors';
end;

function GenerateRandomThing() : TSomething;
var
 i : Integer;
begin
  i := Random(3);

  case i of
    0:
    begin
      Result := TRock.Create;
    end;
    1:
    begin
      Result := TPaper.Create;
    end;
    2:
    begin
      Result := TScissors.Create;
    end;

  end;

end;

function PromtUserSelect() : TSomething;
var
  n : integer;
  T : TSomething;
begin
  writeln ('Select something...');
  writeln ('1. Rock');
  writeln ('2. Paper');
  writeln ('3. Scissors');

  T := nil;

  readln(n);
  case n of
  1:
  begin
    T := TRock.Create;
  end;
  2:
  begin
    T := TPaper.Create;
  end;
  3:
  begin
    T := TScissors.Create;
  end;

  else begin // default
    writeln('choiced num out of range.');

  end;

  end;

  Result := T;

end;

var
  Game  : Boolean = True;
  yn    : AnsiString;
  PlayerThing   : TSomething;
  ComputerThing : TSomething;
begin
  while (Game) do
  begin
    Writeln('===========================================');
    Writeln('Do you wanna play again? y/n');
    readln(yn);
    yn := UpperCase(yn);
    if (yn ='Y') then begin
      ComputerThing := GenerateRandomThing();
      if (ComputerThing <> nil) then begin
        PlayerThing := PromtUserSelect();
        if (PlayerThing <> nil) then begin
          Writeln(Format('Player have an %s thing',[PlayerThing.name]));
          Writeln(Format('Computer have an %s thing',[ComputerThing.name]));

          PlayerThing.Process(ComputerThing);

          Writeln('===========================================');

        end;
      end;
    end
    else begin
      Game := False;
    end;

  end;

  writeln('Exit game...');
  readln;
end.

[ROD]

И как вы в это играть предлагаете? У меня вот нет компилятора для делфей.

[Beermonza]

Заценивать что? ...дети на уроке информатики подобное пишут, ...или ты серьёзно?

[eval]

что-то не видно где уничтожаются something-и

[intmain]

У меня вот нет компилятора для делфей.

Это часть игрового процесса - установить его )

Заценивать что? ...дети на уроке информатики подобное пишут, ...или ты серьёзно?

Это. Да дети разное пишут, кто-то матерные стихи писал на этих уроках прямо на парте.
В этот раз нет.

что-то не видно где уничтожаются something-и

Блин забыл да, спс. И тут кроме этого есть еще проблемы. В общем не пределу совершенства.

[ROD]

Сообщение от intmain

Это часть игрового процесса - установить его )

Ага... скачать компилятор ради трешовой игры класса "Хелоу канвас".

[Kix.IV]

А какой смысл в этом?

[intmain]

Ага... скачать компилятор ради трешовой игры класса "Хелоу канвас".

Ага, мал по малу потом и кризис сделаю. Это же прототип геймплея без графы.

А какой смысл в этом?

Сакральный.

[Smitt&Wesson]

В опросе нет одной графы:
Очень даже не очень...

[eval]

где v2 ?