Тайный Город

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Тайный Город » Флуд » Ещё Флудилка


Ещё Флудилка

Сообщений 241 страница 270 из 333

241

Чего-то мы опять встали!

0

242

Некому вести бота... подождите до субботы, ибо времени ни-ни...

0

243

О, идея! *осенило, пошла взращивать свое детище*

0

244

Гм... дейвствительно некому ни вести не играть. Куда блин Морган подевался?Этот вампир заслуживает хорошей порки, раз оставил девушку на самом интересном месте!:)))

0

245

Элеанора, Приветствую вас!

0

246

Приветствую!:))))

0

247

Элеанора, Как Вам форум?

0

248

Сам форум ничё. Дизайн нравится. Тока вот народ чё-то пропадает куда-то иногда... :)

0

249

Тема форума мне понятна - про вампиров по игре "Маскарад", но мне немного не понятны правила про десятигранные кубики...а Вам?

0

250

*осмотрелась, присвистнула*
Пойду лучше посмотрю "Звездные войны" в собственной интерпретации...

0

251

Willow, а вы не играли в настольные игры?Вообщем-то это вопрос к Корвину про кубики.

0

252

Десятигранные кубики! Вах! Кому это может быть непонятоно????

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    Button2: TButton;
    Button3: TButton;
    Edit3: TEdit;
    Label3: TLabel;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    LabeledEdit3: TLabeledEdit;
    LabeledEdit4: TLabeledEdit;
    LabeledEdit5: TLabeledEdit;
    LabeledEdit6: TLabeledEdit;
    Label4: TLabel;
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

  KubMas = array of integer ;
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
MasLen:integer;
KM:KubMas;
i:integer;
SucCount1:integer;
FalCount1:integer;
AutsucCount1:integer;
begin
  SucCount1:=0 ;
  FalCount1:=0 ;
  AutsucCount1:=0 ;

Memo1.Lines.Clear;

try
   begin
     MasLen:= StrToInt(Edit1.Text);
     setlength(KM,MasLen);
     

     
        for i:=0 to MasLen-1 do begin
             if  MasLen > 20 then  begin
                     showmessage('Количество кубиков не может быть больше 20!');
                     Edit1.Text:='';
                     break;
             end;

            KM[i]:=(1+Random(10));
            Memo1.Lines.Add( inttostr(i+1)+ ')--------- '+ inttostr(KM[i]));
            end;

     end;
except
  On EconvertError do  begin
         showmessage('Введите количество кубиков,а не пишите всякую херню') ;
         Memo1.Lines.Clear;
      end;
end;

  try
    for i:=0 to MasLen-1 do begin
        if (strtoint(edit3.Text) < 2) or  (strtoint(edit3.Text) > 10) then begin
            showmessage('Сложность не может быть меньше 2 и больше 10');
            exit;
           end;
        if KM[i]>= strtoint(edit3.Text) then  inc(SucCount1);
        If KM[i]= 1 then   inc(FalCount1) ;
        If KM[i]= 10 then   inc(AutsucCount1) ;
      end;
    LabeledEdit1.Text:=inttostr(FalCount1);
    LabeledEdit2.Text:=inttostr(SucCount1);
    LabeledEdit3.Text:=inttostr(AutsucCount1);
    //edit1.Text:=inttostr(Autsuccount1);

   except
     on EConvertError do showmessage('Укажите сложность броска')
  end;
   
 

end;

procedure TForm1.Button2Click(Sender: TObject);
var
MasLen:integer;
KM:KubMas;
i:integer;
SucCount1:integer;
FalCount1:integer;
AutsucCount1:integer;

begin
    SucCount1:=0 ;
  FalCount1:=0 ;
  AutsucCount1:=0 ;

Memo2.Lines.Clear;

try
   begin
     MasLen:= StrToInt(Edit2.Text);
     setlength(KM,MasLen);

     
        for i:=0 to MasLen-1 do begin
             if  MasLen > 20 then  begin
                     showmessage('Количество кубиков не может быть больше 20!');
                     Edit2.Text:='';
                     break;
             end;

              KM[i]:=(1+Random(10));
              Memo2.Lines.Add( inttostr(i+1)+ ')--------- '+ inttostr(KM[i]));
            end;

     end;
except
  On EconvertError do begin
       showmessage('Введите количество кубиков,а не пишите всякую херню')  ;
       Memo1.Lines.Clear;
       end;
end;

  try
    for i:=0 to MasLen-1 do begin
        if (strtoint(edit3.Text) < 2) or  (strtoint(edit3.Text) > 10) then begin
            showmessage('Сложность не может быть меньше 2 и больше 10');
            exit;
           end;
        if KM[i]>= strtoint(edit3.Text) then  inc(SucCount1);
        If KM[i]= 1 then   inc(FalCount1) ;
        If KM[i]= 10 then   inc(AutsucCount1) ;
      end;
    LabeledEdit4.Text:=inttostr(FalCount1);
    LabeledEdit5.Text:=inttostr(SucCount1);
    LabeledEdit6.Text:=inttostr(AutsucCount1);
    //edit2.Text:=inttostr(Autsuccount1);

   except
     on EConvertError do showmessage('Укажите сложность броска')

  end;

end;

end.

Вот они, кубики.

+1

253

Рэль,
*мозг слегка надорвался* :crazy: но ничего, по ходу игры разберемся)))

0

254

Willow, знакомый аватар...
Пиши анкету, в противном случае - удалю, и так времени прошло предостаточно...
P.S. Ник на кириллице вбивается...

0

255

Рэль, няяя, какая прелесть! *в глубоком кавае*

0

256

Кира,

Угу....нет, мне кажется, или правда кому-то непонятно что там написано?

0

257

Рэль, хм, ну мне-то более или менее понятно.

0

258

Ой боже... а мне не понятно. :(

0

259

Мистер Хайд прглашает всех на безумное чаепитие!

0

260

Корвин,
Картинка довольно - таки распространенная. Просто я формат исходного рисунка уменьшила... :dontknow:

0

261

Джаретт,

  ПРи чём тут  мистер Хайд? Что ты сделал с шапошником и мартовским зайцем????А мышь?? Мышь где???? Сожрал????

0

262

Рэль, ну зачем же так, мышь вот... *шарит по карманам в поисках мыши* Вот дьявол нас побери, она же была тут... здесь.. или вернее сказать, сейчас?

0

263

Чем они тебе помешали???? Они так любили пить чай....так любили.....они пили его каждый день в пять часов.....нет...каждые пять часов каждый день...нет...у них всегда было пять часов каждый день.

0

264

Рэль, сэр, я псих, но не маньяк! они просто... ммм... переехали, вот!

0

265

Джаретт,

Куда???????? ОНи жили во сне!!!!!!!! Куда можно из сна переехать?????В другой сон???????

0

266

Хех... я бы и своего малка притащила, но если не будет музыки от "кутюр" он вряд-ли явится...  :D

0

267

*оглянулась по сторонам* Приветствую всех присутствующих!

0

268

Привет! *кланяется девушке*

0

269

Элеанора,
Еще немного и анкета будет готова - осталось написать где живу...)))

0

270

Виллоу,

Живите в спальном районе. Он для этого и создавался.

0


Вы здесь » Тайный Город » Флуд » Ещё Флудилка