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

[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 минуты
А вот и сам скрипт
СЫЛКА (http://depositfiles.com/files/o1bhc20k3)

Добавлено через 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 минут
ВСЕ работает Статистика
http://s003.radikal.ru/i203/1102/3d/02a26878024d.bmp
но проблы з таймером и
шансом жаль что я проёбал 8-9 клас там как раз учили такое))
дайте плиз формулу

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

[supernewbie]

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

[goodvin1709]

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

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

[supernewbie]

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

[goodvin1709]

ГГ +100500
я уверен дуня недаст и ненада он мучелся искал инфу в нете а тут так просто дать ((
и Цени чужой труд
скажы лутше формулу на шанс

[dyh9l]

дуня жмотит) когда я был конченным ламером я обратился к supernewbie через долгие пытки я его смог заставить установить с4 и написать мне скрипт) а дальнейшем я доработал его скрипт до невообразимой красоты)

[goodvin1709]

дуня жмотит)
я ето неписал а ты мне обеснил что к чему
мне пф на скрипт на заточку
просто научится)

[dyh9l]

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

[goodvin1709]

ну ты нехерово понимаеш я тебе скажу
даже очень нехерово)

[supernewbie]

формулу на шанс? текущее / всё * 100 или я че-та нипанимаю, какую еще формулу тебе надо, чувак?

[dyh9l]

моя формула выщитывающая шанс была а/((а+б)/100)

[goodvin1709]

буду по ней работать или создам темку на ето

[dyh9l]

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

[goodvin1709]

и как правильно часики з таймером создать бо вечно выбивает ПХ критом

Добавлено через 12 минут
шас выложу скрипт
и дайте норм файлообменный сервис плиз

[supernewbie]

www.rghost.ru

часики? TimeToStr(Now)

[goodvin1709]

Помогите его упрстить очень прошу и буду сильно благодарен
там както его нада скоротить и часики ето одно что я немогу зделать
Тут (http://rghost.ru/4492919)

[supernewbie]

*ля, опиши че тебе надо от скрипта

[goodvin1709]

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

[supernewbie]

а грабить корованы можно будет?
---
короче, создаешь форму, делаешь BorderStyle:=bsDialog;
потом создаешь массив TLabel'ов, пишешь алгоритм, определяющий их расположение на форме как те надо и заполняешь другим алгроитмом их, всё просто, потом, по таймеру обновляешь также еще один TLabel с временем, всё. готова

[goodvin1709]

ОХ не ето тежело как я уже понел прийдетса гугл узать((