L2PacketHack Форум программы L2PacketHack, всё что с ней связано находится тут.
Правила раздела! Категорически запрещено:
* Просить пакеты/скрипты на шмот/адену/другие вещи;
* Просить (помочь) взломать/сломать сервак/аккаунт или раздеть/наказать кого-то на любом серваке;
* Просить научить работать с программой, если не понимаете элементарных вещей в отношениях клиент-сервер (так как, если вы их понимаете, то вопросов по основным возможностям программы быть недолжно);
* Все посты не удовлетворяющие этим запретам, а так же не относящиеся к теме будут удаляться при первой возможности.
* Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы.
* Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.
* Данные запреты неподлежат обсуждению.
Обсуждение багов Lineage ЗАПРЕЩЕНО!
20.07.2010, 13:43
#11
Местный
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
Тоесть ставив ИД шины и координаты под 0? а если у него пару шин будет?
20.07.2010, 13:46
#12
Местный
Регистрация: 05.11.2008
Сообщений: 168
Сказал Спасибо: 35
Имеет 139 спасибок в 66 сообщенях
выберется ближайшая из базы
вот так создается база предметов
http://coderx.ru/showpost.php?p=99386&postcount=4
с помощью этой функции GetItem(ид шины,2,1) мы узнаем objID шины
20.07.2010, 13:51
#13
Местный
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
у мну есть ИД от шины) ItemID = 6594 ;
20.07.2010, 13:56
#14
Местный
Регистрация: 05.11.2008
Сообщений: 168
Сказал Спасибо: 35
Имеет 139 спасибок в 66 сообщенях
Оффтоп
DELPHI Код:
Const
Name='ArchDevil' ; //имя измени
Max =80 ; // и ко-лво слотов в инвентаре
var
ItemBase : array[1 ..4 ,1 ..max ] of integer ; //ItemOID, ItemID, Kol-vo, ItemLvl
procedure Init; //Вызывается при включении скрипта
begin
buf:=#$0F;
SendToServerEx( Name) ;
end ;
procedure CreateItemBase;
var
i, j, ListCount: integer ;
begin
for i:=1 to max do begin
//очищаем масив
ItemBase[1 ,i]:=0 ; //OID
ItemBase[2 ,i]:=0 ; //ID
ItemBase[3 ,i]:=0 ; //kol-vo
ItemBase[4 ,i]:=0 ; //lvl
end ;
j:=4 ;
ListCount:=ReadH( j) ;
j:=8 ;
for i:=1 to ListCount do begin
itemBase[1 ,i]:=ReadD( j) ; //OID
itemBase[2 ,i]:=ReadD( j) ; //ItemID
itemBase[3 ,i]:=ReadD( j) ; //кол-во
inc ( j,10 ) ;
itemBase[4 ,i]:=ReadH( j) ;//EnchantLevel
inc ( j,4 ) ;
end ;
end ;
//......................................
//******************************************************************************
procedure InventoryUpdate; //пакет 27, обновляет базу ObjectID по ItemID
var
i, ii, j, OID, ID, Count, ListCount, UpdType, lvl: integer ;
add : boolean ;
begin
add:=false ;
ListCount:=ReadH( 2 ) ;
j:=4 ;
for ii:=1 to ListCount do begin
add:=false ; //Ели додумался изза чего не добавляет сразу несколько предметов в базу
UpdType:=ReadH( j) ;
ReadH( j) ; //ItemType1
OID:=ReadD( j) ; //ObjectID
ID:=ReadD( j) ; //ItemID
Count:=ReadD( j) ; //кол-во
inc ( j,10 ) ;
lvl:=ReadH( j) ;
case UpdType of
1 : begin
for i:=1 to max do begin
if ( ItemBase[1 ,i]=0 ) and ( add=false ) then begin
ItemBase[1 ,i]:=OID;
ItemBase[2 ,i]:=ID;
ItemBase[3 ,i]:=Count;
ItemBase[4 ,i]:=lvl;
add:=true ;
end ;
end ;
end ;
2 : begin
for i:=1 to max do begin
if ItemBase[1 ,i]=OID then begin
ItemBase[3 ,i]:=Count;
ItemBase[4 ,i]:=lvl;
end ;
end ;
end ;
3 : begin
for i:=1 to max do begin
if ItemBase[1 ,i]=OID then begin
ItemBase[1 ,i]:=0 ;
ItemBase[2 ,i]:=0 ;
ItemBase[3 ,i]:=0 ;
ItemBase[4 ,i]:=0 ;
end ;
end ;
end ;
end ;
inc ( j,2 ) ;
end ;
end ;
function GetItem( ID, FieldIn, FieldOut : integer ) : integer ;
var
i : integer ;
begin
for i:=1 to max do
if ItemBase[FieldIn,i]=ID then begin
result:=ItemBase[FieldOut,i]; // itemOID
exit ;
end ;
result:=0 ;
end ;
begin
if FromClient and ( ConnectName=Name) and ( pck=HStr( '1B 0C 00 00 00' ) ) then begin
if GetItem( 6594 ,2 ,1 ) <>0 then begin
buf:=#$12 ;
WriteD( GetItem( 6594 ,2 ,1 ) ) ;
WriteD( 1 ) ;
WriteD( 0 ) ;
WriteD( 0 ) ;
WriteD( 0 ) ;
SendToServerEx( Name) ;
end ;
end ;
if FromServer and ( ConnectName=Name) then
case pck[1 ] of
//......................................
//Пакет ItemList
#$1B: CreateItemBase; //создание базы предметов
//......................................
#$27 : InventoryUpdate; //Обновление базы
end ; //end от case!!!
end .
Последний раз редактировалось Fer123, 20.07.2010 в 14:10 .
20.07.2010, 14:06
#15
Местный
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
вписал ник, запустил скрипт нечего не произошло, клиент с4)
20.07.2010, 14:11
#16
Местный
Регистрация: 05.11.2008
Сообщений: 168
Сказал Спасибо: 35
Имеет 139 спасибок в 66 сообщенях
я думал интерлюд... Изменил под с4 попробуй
20.07.2010, 14:42
#17
Местный
Регистрация: 11.06.2010
Сообщений: 644
Сказал Спасибо: 119
Имеет 85 спасибок в 77 сообщенях
нехочет выкидывать, говорит типа далеко)
20.07.2010, 15:17
#18
Местный
Регистрация: 05.11.2008
Сообщений: 168
Сказал Спасибо: 35
Имеет 139 спасибок в 66 сообщенях
хм значит надо реальные координаты... тогда надо еще выдирать координаты из пакета validate position...
Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
Часовой пояс GMT +4, время: 03:40 .
vBulletin style designed by
MSC Team .
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод:
zCarot
Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!