VPF::карточная игра - Форум программистов

ashnu

Дата 16.7.2006, 10:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 22.5.2006

Репутация: нет
Всего: нет

Помогите пожалуста нужен исходник(исходники) какой нибудь карточной игры на Delphi

зарание спасибо

Mechanic

Дата 16.7.2006, 22:08 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 228
Регистрация: 5.5.2006
Где: Kharkov, Ukraine

Репутация: 6
Всего: 7

А зачем?
Какой-угодно игры, или какой-то конкретной? Если интересует вывод карт, то можно посмотреть даже тут.

--------------------

Tell me the extensions of the files You backup and I'll tell You who You are.. ©Mch

ashnu

Дата 16.7.2006, 23:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 22.5.2006

Репутация: нет
Всего: нет

спасибо

много чего интересует потому и прошу исходник игры

Palladin

Дата 17.7.2006, 00:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 932
Регистрация: 15.5.2007
Где: Беларусь г.Гомель

Репутация: 3
Всего: 17

Дак ты лучше конкретные вопросы давай, а то так врядли тебе кто-то поможет, только если у кого то есть, если отделный кусок(небольшой, какуюнить процедуру)то тебе её смогут написать, а всю игру никто делать не будет, такчто либо надейся на то что у когото есть целый исходник(и жди)или давай вопросы smile

--------------------

Глуп тот кто полагается на истину авторитета, а не на авторитет истины
[color=red]KAV&KIS==Evil[/color]

comtat

Дата 17.7.2006, 15:33 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1310
Регистрация: 2.5.2006
Где: Россия, Казань

Репутация: 3
Всего: 71

ashnu посмотри ТУТА
а также Здеся
Я думаю это тебе поможет smile

--------------------

Рожденный в СССР !!!
ExtJS - мой фреймворк

santey

Дата 1.1.2007, 18:27 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 101
Регистрация: 31.12.2005

Репутация: нет
Всего: -1

На сайте http://durbeccel.narod.ru есть
кусок исходника этой карточной игры, а
также есть ссылка на сайт Визуального дурака,
где полностью весть исходный код данной игры.
Заходи и качай. Удачи.

TwisT_X

Дата 1.1.2007, 19:45 (ссылка)

(нет голосов)

Загрузка ...

It's works!

Профиль
Группа: Участник
Сообщений: 293
Регистрация: 15.2.2005
Где: Earth

Репутация: нет
Всего: 4

Вот тебе код к игре в "21" или в "очко"..

Код


unit UOchko;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Memo1: TMemo;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var A: array[0..35] of integer; // колода
    Count: word = 0;            // число взятых карт
    Sum: word = 0;              // сумма очков

function cost(N: integer): integer; // число очков заданной карты
begin
 case N mod 9 of
  0, 1, 2, 3, 4: Result := N mod 9 + 6;
  5, 6, 7:       Result := N mod 9 - 3;
  else Result := 11;
 end;
end;



function card(N: integer): string;  // описание карты в виде строки
const face: array[0..8] of string =
                        ('Шестерка', 'Семерка', 'Восьмерка',
                         'Девятка', 'Деcятка', 'Валет',
                         'Дама', 'Король', 'Туз');
const suit: array[0..3] of string =
                        ('пик', 'треф', 'червей', 'бубен');
begin
 Result := face[N mod 9] + ' ' + suit[N div 9];
end;


procedure TForm1.Button1Click(Sender: TObject); // оператор "Тасовать"
var i, j, Tmp: word;
begin
 for i := 0 to 35 do A[i] := i;
 for i := 0 to 35 do
 begin
  j := Random(36);
  Tmp := A[i];
  A[i] := A[j];
  A[j] := Tmp;
 end;
 Count := 0;
 Sum := cost(A[0]);
 Memo1.Clear;
 Memo1.Lines.Add(card(A[0]) + '. Сумма = ' + IntToStr(Sum));
end;

procedure TForm1.Button2Click(Sender: TObject); // оператор "Еще !"
begin
 Inc(Count);
 Sum := Sum + cost(A[Count]);
 Memo1.Lines.Add(card(A[Count]) + '. Сумма = ' + IntToStr(Sum));
 if Sum > 21
  then begin
   ShowMessage('Перебор !!! Вы проиграли.');
   Button1Click(Sender);
  end;
end;


procedure TForm1.Button3Click(Sender: TObject);
var MySum: word;
begin
 Memo1.Lines.Add('Ваша сумма ' + IntToStr(Sum));
 Memo1.Lines.Add('');
 Memo1.Lines.Add('Карты компьютера:');
 MySum := 0;
 repeat
  Inc(Count);
  MySum := MySum + cost(A[Count]);
  Memo1.Lines.Add(card(A[Count]));
 until 22 - MySum < 7;
 Memo1.Lines.Add('Сумма компьютера ' + IntToStr(MySum));
 if MySum > 21
  then ShowMessage('Перебор !!! Компьютер проиграл !')
  else if MySum > Sum then ShowMessage('Компьютер выиграл.')
  else if Sum = 21 then ShowMessage('У вас ОЧКО !!! Вы выиграли.')
  else if MySum < Sum then ShowMessage(
                       'Компьютер проиграл. Поздравляю !!!')
  else ShowMessage('Ничья !!!');
  Button1click(Sender);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 Randomize;
 Button1click(Sender);
end;

end.

--------------------

Если ты упадешь я буду рядом. (с) Асфальт

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »