В перечне функций, доступных в скриптах, очень сильно не хватает функции на блокировку пакета. Например, BlockPacket в WP PPC Саурона. Xkor подумай может стоит ее добавить.
Хотя если выполнить команду pck:=''; то пакет дальше не пойдет, но всеже хотелось бы иметь отдельную функцию.
Кто захочет может и сам сделать. Для этого в function TL2PacketHackMain.CallMethod добавляем
if MethodName = 'BLOCKPACKET' then begin
TfsScript(Integer(Params[0])).Variables['pck']:='';
end else
И в procedure TL2PacketHackMain.RefreshPrecompile добавляем
Ну с топик может и промахнулса, а заменить BlockPacket на просто Block ничего не мешает. Вобщем посты можете потереть, а добавлять функцию в релиз или нет решать автору.
Ну топик привёл в читабельный вид (с) Grinch
Последний раз редактировалось Grinch, 28.05.2008 в 16:48.
3.20 это последняя версия этой программы насколько мне известнотак что каждый правит как ему хочиться только вот одно но сколько человек сделают также, ещё вопросы есть?
или как написал NLObP, добаляет процедуру сами прям в скрипт, но вот это на любителя.
[quote=NLObP;2599][code]// copyright (c) 2006, 2007 Puella
//модифицировано by NLObP
//Может работать одновременно несколько скриптов.
//Необходимо изменить константу MyNAME!!!
Сообщение от Shnaider
Может кто то,кому нетрудно переделать Юлин скрипт,так чтобы он
NLObP сломал уже мозг, как переделать Юлькин скрипт что бы на покупку тоже анеки рассказывал? Пошел опять крутить его........ ааааааааааааааааааа(звук падующего тела 8) )
Мой вариант "инвентаризации", описание атрибутов объектов и действий над ними взял у Shura1oplot'a
При запуске этого скрипта в l2phx321 показывает ошыбкув месте гле я выделили.
Код:
{Delete}if Action=3 then begin for ij:=1 to ItemCount-1 do //Ищем удаляемый предмет
begin If Inventory[iji,2]=ReadD((j-1)*30+8) then k:=true; //Если нашли,фиксируем это
If k then //если найден удаляемы объект
for ijk:=1 to 10 do //то сдвигаем элементы массива-инвентаря
Inventory[ij,ijk]:=Inventory[ij+1,ijk];
end;
Dec(ItemCount);//Уменьшаем количество занятых слотов
end;
end;
end;
Не сваркайте меня за глупый вопрос но всётаки, пробовал запускать оба скрипта на инвентаризацию и некакой реакции, как он вобще должен работать с инвентарём обьясните нубу???????
Последний раз редактировалось }{@KeR, 31.08.2008 в 21:15.
Не сваркайте меня за глупый вопрос но всётаки, пробовал запускать оба скрипта на инвентаризацию и некакой реакции, как он вобще должен работать с инвентарём обьясните нубу???????
там ijk должно быть, очепятка =) Скрипт ведет мониторинг инвентаря.
ребят подскажите что означают эти цифры в скрипте Shura1oplot
Код:
procedure InventoryCreate;
var
i,k: integer;
begin
for i:=0 to 79 do
if (i<ReadH(4)) then begin
Inventory[i,0]:=ReadH(i*28+6); // itemType1
Inventory[i,1]:=ReadD(i*28+8); // ObjectId
Inventory[i,2]:=ReadD(i*28+12); // ItemID
Inventory[i,3]:=ReadD(i*28+16); // count
Inventory[i,4]:=ReadH(i*28+20); // itemType2
Inventory[i,5]:=ReadH(i*28+22); // CustType1
Inventory[i,6]:=ReadH(i*28+24); // isEquipped
Inventory[i,7]:=ReadD(i*28+26); // BodyPart
Inventory[i,8]:=ReadH(i*28+30); // EnchantLevel
Inventory[i,9]:=ReadH(i*28+32); // CustType2
число 28 а в скрипте ниже число 30 откуда это и что это?
Код:
procedure InventoryUpdate;
var
i,j,k: integer;
begin
for j:=0 to (ReadH(2)-1) do begin
case pck[j*30+4] of
#$01: k:=0; // add item, запишет на пустую ячейку
#$02: k:=ReadD(j*30+8); // mod item
#$03: begin // remove item, обнулит ячейки удаленного предмета
k:=ReadD(j*30+8);
for i:=0 to 79 do
if (Inventory[i,0]=k) then begin
for k:=0 to 9 do Inventory[i,k]:=0;
exit;
end;
end;
end;
for i:=0 to 79 do
if (Inventory[i,1]=k) then begin
Inventory[i,0]:=ReadH(j*30+6); // itemType1
Inventory[i,1]:=ReadD(j*30+8); // ObjectId
Inventory[i,2]:=ReadD(j*30+12); // ItemID
Inventory[i,3]:=ReadD(j*30+16); // count
Inventory[i,4]:=ReadH(j*30+20); // itemType2
Inventory[i,5]:=ReadH(j*30+22); // CustType1
Inventory[i,6]:=ReadH(j*30+24); // isEquipped
Inventory[i,7]:=ReadD(j*30+26); // BodyPart
Inventory[i,8]:=ReadH(j*30+30); // EnchantLevel
Inventory[i,9]:=ReadH(j*30+32); // CustType2
break;
end;
end;
end;
просто хочу адаптировать этот скрипт под грация парт 2 вот возник вопрос )
склоняюсь, что это тип пакета. поэтому и спрашиваю, на грации парт 2 все другое, примеров с Интерлюда нету (
Последний раз редактировалось Lelee, 12.12.2008 в 17:36.