Вернуться   CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг
Войти через OpenID

Скриптинг Форум посвещенный созданию скриптов для L2PacketHack

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 21.02.2011, 23:33   #1
Местный
 
Аватар для goodvin1709
 
Регистрация: 13.02.2011
Сообщений: 506
Сказал Спасибо: 121
Имеет 100 спасибок в 83 сообщенях
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 секунд
ПОМОГИТЕ ОЧЕНЬ ПРОШУ

Последний раз редактировалось goodvin1709, 23.02.2011 в 00:45. Причина: Добавлено сообщение
goodvin1709 вне форума   Ответить с цитированием
Старый 21.02.2011, 23:57   #2
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

ЛабелкаВкоторуювыводитсяуровеньзаточки.caption = vartostr(a);
__________________
dyh9l вне форума   Ответить с цитированием
За это сообщение dyh9l нажился спасибкой от:
Старый 22.02.2011, 01:12   #3
Местный
 
Аватар для goodvin1709
 
Регистрация: 13.02.2011
Сообщений: 506
Сказал Спасибо: 121
Имеет 100 спасибок в 83 сообщенях
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;

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

Последний раз редактировалось goodvin1709, 22.02.2011 в 09:53. Причина: Добавлено сообщение
goodvin1709 вне форума   Ответить с цитированием
Старый 22.02.2011, 03:02   #4
Местный
 
Регистрация: 04.11.2009
Адрес: Где-то в жопе европы
Сообщений: 316
Сказал Спасибо: 32
Имеет 42 спасибок в 39 сообщенях
wimax пока неопределено
По умолчанию

подумай сам что ты Hour:=0; //Час
Min:=0; //Минута
Sec:=0; //Секунда
ет проста консты
wimax вне форума   Ответить с цитированием
За это сообщение wimax нажился спасибкой от:
Старый 22.02.2011, 10:44   #5
Местный
 
Аватар для goodvin1709
 
Регистрация: 13.02.2011
Сообщений: 506
Сказал Спасибо: 121
Имеет 100 спасибок в 83 сообщенях
goodvin1709 пока неопределено
По умолчанию

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

Последний раз редактировалось goodvin1709, 22.02.2011 в 20:33. Причина: Добавлено сообщение
goodvin1709 вне форума   Ответить с цитированием
За это сообщение goodvin1709 нажился спасибкой от:
Старый 22.02.2011, 13:02   #6
Местный
 
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
dyh9l пока неопределено
По умолчанию

для каждой заточки надо переменную и по лабелу
__________________
dyh9l вне форума   Ответить с цитированием
За это сообщение dyh9l нажился спасибкой от:
Старый 22.02.2011, 20:12   #7
Местный
 
Аватар для goodvin1709
 
Регистрация: 13.02.2011
Сообщений: 506
Сказал Спасибо: 121
Имеет 100 спасибок в 83 сообщенях
goodvin1709 пока неопределено
По умолчанию

шас попробую

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

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

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

Последний раз редактировалось goodvin1709, 22.02.2011 в 20:32. Причина: Добавлено сообщение
goodvin1709 вне форума   Ответить с цитированием
Старый 22.02.2011, 20:22   #8
Местный
 
Аватар для supernewbie
 
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
supernewbie пока неопределено
По умолчанию

Цитата:
Сообщение от goodvin1709 Посмотреть сообщение
проебал 8-9 клас
а также абсолютно все уроки русского языка)
__________________
Начало.
supernewbie вне форума   Ответить с цитированием
За это сообщение supernewbie нажился спасибкой от:
Старый 22.02.2011, 20:32   #9
Местный
 
Аватар для goodvin1709
 
Регистрация: 13.02.2011
Сообщений: 506
Сказал Спасибо: 121
Имеет 100 спасибок в 83 сообщенях
goodvin1709 пока неопределено
По умолчанию

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

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

Последний раз редактировалось goodvin1709, 22.02.2011 в 20:34. Причина: Добавлено сообщение
goodvin1709 вне форума   Ответить с цитированием
Старый 22.02.2011, 20:43   #10
Местный
 
Аватар для supernewbie
 
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
supernewbie пока неопределено
По умолчанию

а, просто я думал может ты яйцами пезнулся
---
возьми скрипт у дуни да и всё, или ну выкладывай сюда в архиве скрипт свой
__________________
Начало.
supernewbie вне форума   Ответить с цитированием
За это сообщение supernewbie нажился спасибкой от:
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 03:21.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!