Писать скрипты для phx.

[L2.exe]

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

dyh9l, клиент кританет проста по крайней мере у меня критует =)

У меня всё отлично работает

[OpenA1r]

Cpasibo)

[Diverclaim]

Пытаюсь сделать управление скриптом из игры (Aion) и делаю это при помощи эмоций. Проверяю на пакет так:

PHP код:

if FromClient and (ReadC(1)=$C9) and (ReadH(4)=$5015) then 


И все отлично срабатывает, НО пакет эмоции все таки проходит на сервер, что мне довольно сильно мешает. Есть ли способ блокировать этот самый пакет эмоции? Заранее спасибо.

[dyh9l]

pck:='';

[Diverclaim]

dyh9l Большое спасибо)
Еще вопросик:
В Init я задаю переменную PlayerID (string):

PHP код:

PlayerID := '46 21 3B 00'; 


Мне она нужна далее в скрипте. Потом когда приходит пакет мне надо сравнить этот PlayerID с 4 байтами в пакете. Я знаю только 1 способ как это можно сделать:

PHP код:

if ReadD(4)=$003B2146 then 


Но данный способ не подходит т.к. при другом PlayerID мне надо будет везде менять сравнения. Есть ли другой способ?

[dyh9l]

а нахера ИД стринговое?)
P.s: очень трудно понять что нужно тебе

[NLObP]

Diverclaim, сделай примерно так

var
    PlayerId : integer;
...
procedure Init
Begin
    PlayerId:=$003B2146;
end;
...
if PlayerId=ReadD(4) then
...

[Diverclaim]

Ну id в стринге чтобы удобно было из пакета копировать)
Ладн тогда другой вопрос:
Мне надо задать переменную типа Single (4байта) и записать ее в buf (также как делается в "Преобразованиях"). Нигде не могу найти конвертации single -> string (hex). Подскажите кто знает)

[L2.exe]

Так,вообщем я захотел подогнать под себя Локомотив от Alexus ,а именно нужны таймеры на скиллы и...что бы он говорил по Русски когда его игрок атаковывает,втыкал весь день в монитор,но конструктор мой работать не хочет
В делфи не шарю,так что попрошу вас помочь мне А то скоро мозг лопнет,от переизбытка новой информации


За раннее благодарю



Оффтоп

delphi support

[L2.exe]

Сообщение от L2.exe

Так,вообщем я захотел подогнать под себя Локомотив от Alexus ,а именно нужны таймеры на скиллы и...что бы он говорил по Русски когда его игрок атаковывает,втыкал весь день в монитор,но конструктор мой работать не хочет
В делфи не шарю,так что попрошу вас помочь мне А то скоро мозг лопнет,от переизбытка новой информации


За раннее благодарю



Оффтоп

delphi support

Оффтоп

Жлобы,как будто все из Израиля

Добавлено через 3 часа 35 минут
Прошу прощения за крайне грубое не знание паскаля,но всё равно,помогите,не проходите мимо...
Как я понял,это основная часть скрипта

PHP код:

begin
 if (pck=hstr('62 ED 02 00 00 01 00 00 00 04 00 00 00 9D 01 00 00 08 00 00 00 ')) then 
    begin
     buf:=HsTR('39 9D 01 00 00 00 00 00 00 00 ');
     sendtoserverex(NickName);
    end;
 if (pck=hstr('62 5C 00 00 00 01 00 00 00 04 00 00 00 63 00 00 00 02 00 00 00 ')) then 
    begin
     buf:=HsTR('39 63 00 00 00 00 00 00 00 00 ');
     sendtoserverex(NickName);
    end;  
end. 


Что сюда то писать?!

PHP код:

procedure Init; //Вызывается при включении скрипта
begin
???????????
end;

procedure Free; //Вызывается при выключении скрипта
begin
????????????
end; 


Если я не прав,подскажите,что ,куда,зачем... можно в кратце