Здравсвуйте, вообщем настроил скрипт от Тамбика для Финала, на свой сервер, там пакеты были другие, я их правил и скрипт работает, спасибо за скрипт Тамбик. Проблема в том, что скриптом можно точить только на одном аккаунте. Вообщем попробывал переделать следующие строки
Код:
const
myname ='MypKo'; //<<== пишем свой НИК
max = 200;//<<== колличество ячеек в рюкзаке
chat = 3;// <<== какой ЧАТ выводить сообщения
==========================================
ВЫРЕЗАНО по причине, Ограничение колва знаков на форуме
==========================================
procedure OpenInventory;//открыть инвентарь.14=RequestItemList
begin
buf:=hstr('2F');
SendToServerEx(myname);
end;
//=========================
procedure RequestActionUse;
begin
case ReadD(2) of
12:begin autoMsg:=true;end;
13:begin autoMsg:=false;end;
24:begin
if (maxlvl=0) then SendMsg2 (' Неуказан Уровень Заточки ');
if (autostart=false) then SendMsg2( 'предмет незаточен или пакеты неприняты !' );
if autostart and (maxlvl>0) then begin
SendMsg2( ' ! ! ! П О Е Х А Л И ! ! !' );
SendMsg2( '_______________________________' );
start:=true;
GetItemID ;
end;
end;
25:begin
stopEnchantItem;// остановка скрипта
SendMsg2( ' ! ! ! С Т О П ! ! ! ' );
stopselectskrol;
end;
end;
end;
//=========
procedure stopEnchantItem;// остановка скрипта
begin
autoMsg:=true;
start:=false;
deleteBase;
enchantID:=0;
ItemEnch:=0;
stopselectskrol;// отмена выбора скролл
SendMsg2 (' ___ О С Т А Н О В Л Е Н О ___ ');
Timer01.enabled:=false;
Timer02.enabled:=false;
Timer03.enabled:=false;
end;
//=========
begin
//не обрабатываем пустые пакеты
if pck='' then exit;
if (ConnectName=myname) and FromServer and (pck[1]=#$11) then begin ItemList;end;
if (ConnectName=myname) and FromServer and (pck[1]=#$7C) then begin ChooseInventory;end;
if (ConnectName=myname) and FromClient and (pck[1]=#$38) then begin Resultmaxlvl;pck:='';exit;end;
if (ConnectName=myname) and FromClient and (pck[1]=#$15) then begin RequestActionUse;pck:='';exit;end;
begin
if (start=false) and (ConnectName=myname) and FromClient then
case pck[1] of
#$0C:begin
t:=0;
OpenInventory;//открыть инвентарь
skrolObjectID:=0;
skrolID:=0;
skrolObjectID:=ReadD(2);
skrolID:= Getitem(skrolObjectID,2,3);//находим по ObjectID скрол с ItemID
stopselectskrol;
if (skrolID = 0) then SendMsg2(' . SKROLL ID НЕТ .' );
if (skrolID > 0) then begin
t:=1;
sumskrol:=0;
sumskrol:=Getitem(skrolID,3,5);
SendMsg2(' .................' );
SendMsg2(' активирован SKROLL ID : '+IntToStr(skrolID)+' = '+IntToStr(sumskrol)+' ШТ' );
SendMsg2(' .................' );
end;end;
#$43:if ReadH(2)=76 then begin
l:=1;
SendMsg2(' Выбор Предмета для Заточки ' );
SendMsg2(' .................' );
end;
#$65:begin
enchantObjectID:=0;
enchantObjectID:=ReadD(2);
itemOID:=0;
itemOID:=Getitem(enchantObjectID,2,3);//находим по ObjectID предмет с ItemID
if (itemOID > 0) then begin
d:=1;
if (t=1) and (l=1) and (d=1) then begin
autostart:=true;
SendMsg2 (' заточен предмет c ID : '+IntToStr(ItemOID)+' ');
SendMsg2(' .................' );
addIDtoarray(ItemOID);//добавляем в базу ID предмета
stopselectskrol;
end;
end;
end;
end;
end;
end.
Теперь я так понял что пакеты(в строках которые я изменил) не отсылаются/принимаются, на сервер/ от клиента. Собственно вопрос, можно ли с помощью Пакетхака и соответственно переделав Скрипт от Тамбик, точить на нескольких аккаунтах, и где моя ошибка. Спасибо заранее. За ответ буду безгранично благодарен.
с/y