Главная страница
    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.046 c
14-1097859540
lipskiy
2004-10-15 20:59
2004.11.07
Где дают нормальный бесплатный ftp? И много?


3-1097069063
Rule
2004-10-06 17:24
2004.11.07
Вопрос по хранимой процедуре (FB 1.x + IBX 7.08)


9-1089007632
dRake
2004-07-05 10:07
2004.11.07
TankMaze - первая демка!


3-1096979681
RustiK
2004-10-05 16:34
2004.11.07
Конвертация Binary в String


8-1091816507
parovoZZ
2004-08-06 22:21
2004.11.07
DirectInput and DirectX9





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский