Цитата:
Сообщение от Sergey
Скрипт проверял с забитым инвентарем под нехочю. Работает норм, при деиствия с деньгами он пишет в приват скок их. А я его еше подописал и те просто бегаю собираю деньги по достижении 2ккк автоматом обменивает на 1 кол. Просто у мя сомнения на верность
delphi Код:
if FromServer and (ConnectName=name)and (pck[1]=#$27)and (pck[12]=#$39)then
begin
i:=12;
k:=ReadD(i); //item ID
l:=ReadD(i); //количество адены
Say('Мои деньги:');
Say('item ID='+IntToStr(k));
Say('количество адены='+IntToStr(l));
end;
есть впечатление что можно сделать подругому,чтоб проверял еше что либо по ID.
|
Не понимаю, как этот скрипт может работать... У меня не работает, да и по коду это наблюдается...
а именно в строчках
Код:
Say('item ID='+IntToStr(k));
Say('количество адены='+IntToStr(l));
то есть он будет писать
item ID = 57
количество адены = 57.
Пробовал исправить и дошёл максимум до этого:
Код:
const
name=''; //ник чара
//******************************************************************************
var
i,k,l: integer;
//******************************************************************************
procedure Init; //Вызывается при включении скрипта
begin
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
procedure Say(msg:string);
begin
buf:=hstr('4A 00 00 00 00');
WriteD(2);
WriteS(name);
WriteS(msg);
SendToClientEx(name);
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if FromServer and (ConnectName=name) and (pck[12]=#$39) then
begin
i:=12;
k:=ReadD(i); //item ID
l:=k; //количество адены
Say('item ID='+IntToStr(k));
Say('количество адены='+IntToStr(l));
end;
end.
В общем-то здесь не хватает чего, что выдерает из пакета #$39 количество аден. Я не нашёл как сам пакет, так и строчку с аденами в нём...
Помогайте