37=RequestSellItem:d(ListID)d(ListSize:Loop.01.000 3)d(ObjectID)d(ItemID:Get.Func01)d(Count)
21=InventoryUpdate:h(ListSize:Loop.01.0021)h(Chang e)h(ItemType1)d(ObjectID)d(ItemID:Get.Func01)d(Loc ation)d(Count)h(ItemType2)h(CustomType1)h(isEquipp ed)d(BodyPart)h(EnchantLevel)h(CustType2)d(Augment ationBonus)d(Mana)d(AttackAttrElement)d(AttackAttr ElementVal)d(DefAttrFire)d(DefAttrWater)d(DefAttrW ind)d(DefAttrEarth)d(DefAttrHoly)d(DefAttrUnholy)
надрал кусков из скриптов выложеных на форуме, получилось вот так:
Код:
if (pck[1]=#$21) and Fromserver and (pck[2]=#$01) and (pck[4]=#$01) and (pck[12]=#$58) and (pck[13]=#$02) then
begin
j:=4;
T:=ReadH(j);
j:=j+2;
myoid:=ReadD(j);
// msg('start');
buf:=#$37;
WriteD(0);
WriteD(1);
WriteD(myoid);
WriteD(600);
WriteD(1);
SendToServerEx(ConnectName);
вроде работает.
[quote=NLObP;16514] Надо писать READ()QUOTE]
А как действует функция read?
Да и где-то тут видел код для отключения от клиента, но немогу найти. поиск результатов не дал, да и ключеве слова подобрать сложно, а очистить оперативы очень хочеться