Игра

[Шайен]

Помогите найти ошибку!!!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg, MPlayer;

type
  TForm1 = class(TForm)
    Button1: TButton;
    RadioGroup1: TRadioGroup;
    Image1: TImage;
    Image2: TImage;
    Label1: TLabel;
    MediaPlayer1: TMediaPlayer;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  i,pc:integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x: integer;
begin
  if RadioGroup1.ItemIndex = -1 then
    ShowMessage('Сначала сделайте свой выбор!')
  else
  begin
    if RadioGroup1.ItemIndex = 0 then
      Image1.Picture.LoadFromFile('stoun.jpg');
    if RadioGroup1.ItemIndex = 1 then
      Image1.Picture.LoadFromFile('nozh.jpg');
    if RadioGroup1.ItemIndex = 2 then
      Image1.Picture.LoadFromFile('paper.jpg');

    x := random(3);
    if x = 0 then
      Image2.Picture.LoadFromFile('stoun.jpg');
    if x = 1 then
      Image2.Picture.LoadFromFile('nozh.jpg');
    if x = 2 then
      Image2.Picture.LoadFromFile('paper.jpg');

    if RadioGroup1.ItemIndex = x then
      Label1.Caption := 'Ничья';
    if (radioGroup1.ItemIndex = 0) and (x = 1) then
    begin
      Label1.Caption := 'Вы выиграли';
      i := i + 1;
    end;
    if (RadioGroup1.ItemIndex = 0) and (x = 2) then
    begin
      Label1.Caption := 'Вы проиграли';
      pc := pc + 1;
    end;
    if (radioGroup1.ItemIndex = 1) and (x = 2) then
    begin
      Label1.Caption := 'Вы выиграли';
      i := i + 1;
      if (RadioGroup1.ItemIndex = 1) and (x = 0) then
      begin
        Label1.Caption := 'Вы проиграли';
        pc := pc + 1;
        if (radioGroup1.ItemIndex = 2) and (x = 0) then
        begin
          Label1.Caption := 'Вы выиграли';
          i := i + 1;
          if (RadioGroup1.ItemIndex = 2) and (x = 1) then
          begin
            Label1.Caption := 'Вы проиграли';
            pc := pc + 1;
          end;

          MediaPlayer1.FileName := 'start.wav';
          MediaPlayer1.Open;
          MediaPlayer1.Play;
        end;
        Label3.Caption := IntToStr(i);
        Label4.Caption := IntToStr(pc);
      end;

      i := 0;
      pc := 0;
      Label1.Caption := 'Делайте ваш выбор';
      Label3.Caption := IntToStr(i);
      Label4.Caption := IntToStr(pc);
      Image1.Picture.LoadFromFile('newgame.jpg');
      Image2.Picture.LoadFromFile('newgame.jpg');
      RadioGroup1.ItemIndex := -1;
    end;
  end;
end;

end.

звуковой эффект не работает и картинки выдаёт неправильные(((и ещё счётчик не пашет.



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[VVM]

Счетчик не работает, так как идет постоянное его обнуление: i:=0;
pc:=0;

[Шайен]

нет в конце его и надо обнулять перед новой игрой.
а вот когда игра идёт, вот там то очки и не начисляются не игроку не компьютеру!

[VVM]

Решил малость отредактировать код и выложить свое видение этой игры, основанное на вашем коде. Код немного оптимизировал, перелопатил, добавил комменты. Использовал CodeGear Delphi 2009.

З.Ы. Можно еще колодец добавить: Камень-Ножницы-Бумага-Колодец =)

[Шайен]

большое спасибо))