Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Игры";
Текущий архив: 2004.11.07;
Скачать: [xml.tar.bz2];

Вниз

Дурак   Найти похожие ветки 

 
Sanek_metaller ©   (2004-07-02 15:12) [0]

Кто-нить писал?У меня вопрос:Игроки могут набрать карт очень мног...Так как это реализовать,или ограничить набор карт?


 
TButton   (2004-07-02 15:16) [1]

много. но не больше колоды.
как реализовывать это уж тебе решать.


 
ПсихЪ_клон   (2004-07-02 15:25) [2]

Самый простой способ это использование динамических массивов.
Запись игрока:

type
 TCard = record
   // Реализовываешь так, как тебе привычнее
 end;

 CPlayer = class
   Name : string[25];
   Cards : array of TCards;
   CardCount : integer;

   function AddCard( Card : TCrad ) : integer;
   procedure DeleteCard( id : integer );
 end;

function CPlayer.AddCard( Card : TCrad ) : integer;
begin
 Result := CardCount;
 inc( CardCount );
 SetLength( Cards, CardCount );
 Cards[Result] := Crad;
end;

procedure CPlayer.DeleteCard( id : integer );
begin
 Cards[id] := Cards[CardCount-1];
 dec( CardCount );
 SetLength( Cards, CardCount );
end;

Ограничение на колличество карт думаю и сам сделаешь...


 
Sanek_metaller ©   (2004-07-03 02:02) [3]

Мне вот интересно,как это все на форму уместить?
Сделать то не проблема.


 
Marser ©   (2004-07-03 02:50) [4]

Санёк, ИМХО, рановато ты за это дело взялся...


 
Sanek_metaller ©   (2004-07-03 09:37) [5]

Это почему?


 
ПсихЪ_клон   (2004-07-03 10:11) [6]

Ну, блин. Ну что значит, "как это все на форму уместить?". Что ты собрался на форму размещать?


 
Sanek_metaller ©   (2004-07-03 15:03) [7]

Ну а кудаже,с помощью VCL дурака легко написать,да и идейка уже появилась.


 
Sanek_metaller ©   (2004-07-04 03:58) [8]

Может еще кто знает,а то мне моя чё-то не очень нравится:(



Страницы: 1 вся ветка

Форум: "Игры";
Текущий архив: 2004.11.07;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.03 c
9-1089902972
Kobik
2004-07-15 18:49
2004.11.07
Косяки с выводом фона.


1-1098532319
span
2004-10-23 15:51
2004.11.07
Как организовать диалог с внешним устройством


1-1098515698
PURGEN
2004-10-23 11:14
2004.11.07
Хочу удалить объект!!!!


3-1097150483
Ну чайник я, чайник!
2004-10-07 16:01
2004.11.07
select from select...


3-1097136421
kukuikar
2004-10-07 12:07
2004.11.07
Отключить подтверждение удаления записи





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский