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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 17.03.2009, 16:26   #71
Новичок
 
Регистрация: 19.02.2009
Сообщений: 16
Сказал Спасибо: 3
Имеет 1 спасибку в 1 сообщении
Arhangel пока неопределено
По умолчанию

И еще один такой вопрос,не пойму почему в этом скрипте:

delphi Код:
const MainChar = 'ApxaHrel';          BD = 'BD';   var Timer1:TTimer;       actions:array[1..6] of string;       nm:integer; procedure Init; begin nm:=1; Timer1:=TTimer.Create(nil); Timer1.OnTimer:=@OnTimer1; Timer1.enabled:=false; Timer1.interval:=1000; //задержка 1 сек; actions[1]:='2A 01 00 00 00'; actions[2]:='2F 13 01 00 00 00 00 00 00 00 '; actions[3]:='2F 12 01 00 00 00 00 00 00 00 '; actions[4]:='2F 0F 01 00 00 00 00 00 00 00 '; actions[5]:='2B'; actions[6]:='04 B2 F9 20 48 24 CB 00 00 45 2B FF FF A6 F3 FF FF 00'; end; procedure [b]Timer1[/b].OnTimer(Sender:Tobject); begin if nm>6 then Timer1.Enabled:=false          else begin buff:=Hstr(actions[nm]);                          SendToServerEx(BD);                          inc(nm);                 end; end; procedure Free; begin Timer1.Free; end; begin if Pck='' then exit; if FromClient and (ConnectName=MainChar)  //посылаю с 1-го окна пакет "SocialActionYes"   and (pck=HStr('1B 06 00 00 00')) then begin     pck:='';     buf:=HStr(actions[nm]);                    SendToServerEx(BD);     Timer1.Enabled:=true; end; end.


Ругается на то,что выделенно?

Последний раз редактировалось QaK, 17.03.2009 в 16:44.
Arhangel вне форума   Ответить с цитированием
Старый 17.03.2009, 16:30   #72
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Цитата:
Сообщение от Arhangel Посмотреть сообщение
procedure Timer1.OnTimer1(Sender:Tobject);
должно быть
QaK вне форума   Ответить с цитированием
Старый 17.03.2009, 16:33   #73
Новичок
 
Регистрация: 19.02.2009
Сообщений: 16
Сказал Спасибо: 3
Имеет 1 спасибку в 1 сообщении
Arhangel пока неопределено
По умолчанию

Уже пробывал,никак=)
Arhangel вне форума   Ответить с цитированием
Старый 17.03.2009, 16:34   #74
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Arhangel, значит обзов процедуру как-нибудь нейтрально? типа blablabla =)
QaK вне форума   Ответить с цитированием
Старый 17.03.2009, 16:50   #75
Местный
 
Регистрация: 11.10.2007
Сообщений: 144
Сказал Спасибо: 44
Имеет 7 спасибок в 7 сообщенях
Amorality
По умолчанию

QaK,
Разве можно так делать? Это же реакция на событие OnTimer..

Добавлено через 6 минут
Ошибка кстати связана с пропуском ";", вроде везде все верно стоит, может ПНХ тупит?

Последний раз редактировалось Amorality, 17.03.2009 в 16:50. Причина: Добавлено сообщение
Amorality вне форума   Ответить с цитированием
Старый 17.03.2009, 16:52   #76
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Ладно, я туплю =) Arhangel, просто оставь OnTimer без Timer1.
QaK вне форума   Ответить с цитированием
Старый 17.03.2009, 16:55   #77
Местный
 
Регистрация: 11.10.2007
Сообщений: 144
Сказал Спасибо: 44
Имеет 7 спасибок в 7 сообщенях
Amorality
По умолчанию

QaK,
Так тоже не выйдет.. Тыж хендл указываешь в Timer1.Ontimer, знач его обяз. надо использовать в процедуре.. Хотя может что-то путаю
Amorality вне форума   Ответить с цитированием
Старый 17.03.2009, 17:01   #78
Новичок
 
Регистрация: 19.02.2009
Сообщений: 16
Сказал Спасибо: 3
Имеет 1 спасибку в 1 сообщении
Arhangel пока неопределено
По умолчанию

Да,видимо Timer1.Ontimer надо использовать,но так ругается,а при OnTimer без Timer1 пишет Event handler must be a procedure.
Arhangel вне форума   Ответить с цитированием
Старый 17.03.2009, 17:01   #79
Рыцарь
 
Аватар для QaK
 
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
QaK пока неопределено
По умолчанию

Amorality, в фаст-скрипте - нет.
QaK вне форума   Ответить с цитированием
За это сообщение QaK нажился спасибкой от:
Старый 17.03.2009, 17:02   #80
Местный
 
Регистрация: 11.10.2007
Сообщений: 144
Сказал Спасибо: 44
Имеет 7 спасибок в 7 сообщенях
Amorality
По умолчанию

Цитата:
Сообщение от Arhangel Посмотреть сообщение
Да,видимо Timer1.Ontimer надо использовать,т.к. при OnTimer без Timer1 пишет Event handler must be a procedure.
Попробуй изменить @OnTimer1 на @OnTimer .. Хотя не уверена
Amorality вне форума   Ответить с цитированием
Ответ

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



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

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


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

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

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