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

[Diverclaim]

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

PHP код:

PlayerID := '46 21 3B 00'; 


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

PHP код:

if ReadD(4)=$003B2146 then 


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

[NLObP]

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

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

[dyh9l]

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

[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; 


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

[supernewbie]

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

PHP код:

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

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


что ,куда,зачем

читай комменты епт

[L2.exe]

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

читай комменты епт

Оффтоп

Пацан,за базаром своим следи.

[Pinko]

procedure Init; //Вызывается при включении скрипта 
begin 
???????????  
при включении скрипта-  выполнить то да се
 пр. 
стакан пустой 
Налить Стакан Водки.
end; 

procedure Free; //Вызывается при выключении скрипта 
begin 
???????????? 
ежле в то время когда скрипт работает и не кто 
НЕ Випил Стакан 
али еше налили
ТО
Вылить водку туда где была
чтоби бил стакан пуст
end;

[L2.exe]

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

procedure Init; //Вызывается при включении скрипта 
begin 
???????????  
при включении скрипта-  выполнить то да се
 пр. 
стакан пустой 
Налить Стакан Водки.
end; 

procedure Free; //Вызывается при выключении скрипта 
begin 
???????????? 
ежле в то время когда скрипт работает и не кто 
НЕ Випил Стакан 
али еше налили
ТО
Вылить водку туда где была
чтоби бил стакан пуст
end;

Благодарю)Только с водкой ты переборщил :