Форма,я уже вас достал)

[goodvin1709]

Ну как я понел в лог записовать инфу стало неинтересно
и мне помог крутой человек как почать создавать Форму
И я начал Создал Форму розмер цвет все поставил..
Дальше я добавил..
10 лабелов
Labelka0:TLabel;
Labelka1:TLabel;
Labelka2:TLabel;
Labelka3:TLabel;
Labelka4:TLabel;
Labelka5:TLabel;
Labelka6:TLabel;
Labelka05:TLabel;
Labelka06:TLabel;
Labelka07:TLabel;
и 5 переменных: всех их здела : Word так как 66536 они некак немогут перейти ))

A:=0; // заточено на 6
B:=0; // заточено на 7
C:=0; // заточено на 8
D:=0; // зломана при заточке на 7
E:=0; // зломана при заточке на 8

Создал все процедуры на добавление
всего короче но возникла проблема
как вывесли Например А возле Вот етого лабела

Labelka5 := TLabel.Create(Main);
Labelka5.Parent:=main;
Labelka5.left:=10;
Labelka5.Top:=100;
Labelka5.caption:='Заточено на +6:';

в лог проверял все норм пашет )) а вот возле лабела немогу вывести
чтобы неспамило в логе а прсто заменялось в форме

Добавлено через 2 минуты
А вот и сам скрипт
СЫЛКА

Добавлено через 30 секунд
ПОМОГИТЕ ОЧЕНЬ ПРОШУ

[dyh9l]

ЛабелкаВкоторуювыводитсяуровеньзаточки.caption = vartostr(a);

[goodvin1709]

сек тестону
))

Добавлено через 11 минут
Чтото неработает вечно пишет 0
ну я делаю так

const
nick = 'NameAlreadyExis';
Var
Labelka3:TLabel;
D : integer;
procedure Init;
begin
D:=0; // зломана при заточке на 7
Labelka3 := TLabel.Create(Main);
Labelka3.Parent:=main;
Labelka3.left:=10;
Labelka3.Top:=50;
Labelka3.caption:='Зломано з +6 на +7:';
Labelka3.left:=11;
Labelka3.Top:=50;
Labelka3.caption:= vartostr(D);
end;

procedure Free;
begin
Main.free;
end;

Procedure LomNa7 ;
begin
if (fromServer) and (connectname=nick) and (pck[1]=#$64) and (pck = HStr('64 41 00 00 00 02 00 00 00 01 00 00 00 06 00 00 00 03 00 00 00 E9 18 00 00')) then
begin
inc(D,1);
SendMSG('Зломано на +7');
delay(500);
SendMSG(vartostr(D));

end;
end;

Добавлено через 20 минут
и как зделаь еще чтобы форму незя было изменять розмер ее )

Добавлено через 36 минут
Короче решыл зделать скоко скрипт работает но возникла проблема
Var
Sec : Integer;
Min : Integer;
Hour : Integer;
timer1 : TTimer ;
Procedure Init;
Hour:=0; //Час
Min:=0; //Минута
Sec:=0; //Секунда


timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer1;
timer1.enabled:=true;
timer1.interval:=1000;
end;

Procedure OnTimer1;
begin
Inc(sec);
if (Sec>59) then
begin
Inc(Min);
Sec:=0;
if (Min>59) then
begin
Inc(Hour);
Min:=0 ;
end;
end;
End;

И сразу крит ПХ

[wimax]

подумай сам что ты Hour:=0; //Час
Min:=0; //Минута
Sec:=0; //Секунда
ет проста консты

[goodvin1709]

уже есть форма

[dyh9l]

для каждой заточки надо переменную и по лабелу

[goodvin1709]

шас попробую

Добавлено через 38 минут
ВСЕ работает Статистика

но проблы з таймером и
шансом жаль что я проёбал 8-9 клас там как раз учили такое))
дайте плиз формулу

Добавлено через 9 минут

[supernewbie]

Сообщение от goodvin1709

проебал 8-9 клас

а также абсолютно все уроки русского языка)

[goodvin1709]

Я українець))

Добавлено через 48 секунд
Під аватаром моя адреса , недивно чого я так погано по російськи пишу?

[supernewbie]

а, просто я думал может ты яйцами пезнулся
---
возьми скрипт у дуни да и всё, или ну выкладывай сюда в архиве скрипт свой