Кружок нубов(Вопрос-Ответ)

[NLObP]

Сообщение от Luksius@mail.ru

Каким Действием можно заставить покупать у A нпц пухи,а у B точки ?! ...

Для этого самостоятельно ручками закупи у НПЦ пуху и точки, сохрани лог пакетов, а затем разберись в нем, какие пакеты были задействованы при этих операциях, отсей не нужные, заскриптуй полученное.

[Nickers]

Luksius@mail.ru, напишу, если скажешь список всех твоих домашних питомцев

[SeregaZ]

преамбула:
играю значит магом, и когда долбаешь моба или игрока - в попыхах при уже наведенном таргете можешь еще раз тыкнуть на него. то есть получается что чар начинает бежать к этому игроку или мобу, чтобы удариь его аркой. особенно если вплотную все происходит. этот удар аркой крадет пол секунды, из-за которых ты не успеешь запульнуть хуриканом или вортексом.

задача:
заблокировать повторное наведение таргета при уже наведенном.

код:

PHP код:

const
Name='SeregaZ';

var
idaction:string;
idtarget:string;
      
procedure Init; //Вызывается при включении скрипта
begin        
 useforconnectname := Name; 
 idaction := '';
 idtarget := ''; 
end;

procedure Free; //Вызывается при выключении скрипта
begin

end;  


//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin

  if FromServer and (ConnectName=Name) and (pck[1]=#$A6) then begin   //определение таргета
     idtarget := pck[2]+pck[3]+pck[4]+pck[5];
  end;   
 
  if FromClient and (ConnectName=Name) and (pck[1]=#$04) and (pck[2]+pck[3]+pck[4]+pck[5] = idtarget) then begin   //блок дублирования наведения таргета
     pck:=''; 
  end;

  if FromServer and (ConnectName=Name) and (pck[1]=#$2A) then begin   //обнуление переменной таргета
     idtarget:=''; 
  end; 

end. 


проблема с кодом:
у тебя нет таргета - наводишь на кого либо, таргет замечательно береться. таргет наведен, тыркаешь еще раз таргет, все замечательно, второй таргет блоканулся и чар-маг не бежит к таргету, чтобы долбануть его аркой по файтерски. НО вместе с этим зависает вообще все чар перестает менять таргеты. то есть при живом таргете нельзя выбрать другой таргет. и чар не двигается. "разбудить" его можно сбросив таргет ескейпом, или навести таргет на себя. вот как бы решить эту самую проблему с зависанием?

[NLObP]

SeregaZ, может быть потому что пакет #$A6 приходит в ответ на пакет #$04, а его ты блокируешь?

Попробуй манипулировать кодом c(ShiftFlag), вроде он отвечает за то, чтобы не сдвигаясь бить.

04=Action:d(ObjectID)d(OrigX)d(OrigY)d(OrigZ)c(ShiftFlag)

[SeregaZ]

так там же добавлено условие если в акшене указан ID тотже самый, что уже имеется в таргете, то блокировать. соответственно акшены со всеми прочими ID должен пропускать. а тут выходит что он как бы не проверяет четвертое условие и сразу все блокирует: (pck[2]+pck[3]+pck[4]+pck[5] = idtarget)

с шифтом думаю опять будет потеря полсекунды. по идее он должен будет послать пакет и вернуть акшионфейл.

[J-Fobos]

С шифтом акшионфейл не возвращается, сервер обрабатывает пакет как взятие в таргет без перемещения чара.

[SeregaZ]

шифт не помог

[dyh9l]

По примеру NLObP у меня вроде получилось, но т.к., это быдлокод, вобщем попробуй

const
    name = '~VIP~Dunyaxa' ; //name 
    
var
    ObjectIDtarget:integer;  
    
procedure Action;
    begin
    if (ReadD(2)=ObjectIDtarget) then pck[18]:=#$01;
    ObjectIDtarget:=ReadD(2); 
    end;                     
    
procedure Attack;
    begin
    if (ReadD(2)=ObjectIDtarget) then pck:='';
    end;
        
begin  
    if (connectname=name) and (fromclient) then
        case pck[1] of
        #$04: Action;
        #$0A: Attack;
        end;               
end.

Добавлено через 10 минут
Короче, 2 екшена вызывают атаку, но если блочить екшены, брать он их больше не будет) т.е. походу, все таки надо как то убивать екшен если цель на таргете)

[nab]

i got a problem i cant make my script reads the SystemMessage packet and then send the result to party chat(its for skill reuse time )
2304=До повторного использования умения $s1 осталось $s2 мин $s3 сек.
62=SystemMessage:d(MsgID:Get.MsgID)d(typesCount:Lo op.01.0002)d(0=Str,1=Int,2=NpcID,3=ItmID,4=SklID,6 =Amnt)s(data)

begin
         if FromServer then begin 
         case pck[1] of 
         #$62 : if ReadD(2)=2304 then begin 
         buf:=#$49;
         WriteS(time left on skill to be ready);
         WriteD(3);
         SendToServer;

[NLObP]

Вот такая теперь расшифровка пакета

62=SystemMessage:d(_messageId:Get.MsgID)d(size:Loop.1.1)d(type:switch.0.13)_(TYPE_TEXT:case.0.1)s(String)_(TYPE_NUMBER:case.1.1)d(Number)_(TYPE_NPC_NAME:case.2.1)d(Number:Get.NpcID)_(TYPE_ITEM_NAME:case.3.1)d(ItemID:Get.Func01)_(TYPE_SKILL_NAME:case.4.2)d(skill_id:Get.SkillID)d(skill_level)_(TYPE_UNKNOWN_5:case.5.1)d(Number)_(TYPE_LONG:case.6.1)q(Long)_(TYPE_ZONE_NAME:case.7.3)d(coord.x)d(coord.y)d(coord.z)_(TYPE_UNKNOWN_8:case.8.3)d(ItemID:Get.Func01)h(Number)h(Number)_(TYPE_UNKNOWN_9:case.9.1)d(Number)_(TYPE_UNKNOWN_10:case.10.1)d(Number)_(TYPE_UNKNOWN_11:case.11.1)d(Number)_(TYPE_UNKNOWN_12:case.12.1)s(String)