АвтоТаргет.Радар.Атака

[TAMBIK]

При нападение на чара
Чар автоматом берет нападающего в таргет и атакует
Радар стрелка над чаром
показывает направление откуда чара атакуют

//  автор ТАМБИК
// проверял на ХБ
      const
  name = ' х '; // Имя 

   var
  Timer1: TTimer;
  myID:integer;
  mobID,mobX,mobY,mobZ:integer;
  myX,myY,myZ:integer;
  autoattacka,autoAction:boolean;

procedure SendMsg2(msg:string);
begin 
  buf:=#$4A;
  WriteD(0);
  WriteD(10);
  WriteS('');
  WriteS(msg);
  SendToClientEx(name);
end;
  procedure  RequestSocialAction;
           begin   
        CASE ReadD(2) OF
      5:begin
        autoattacka:=false;
        autoAction:=false;
        stopRadarControl;
         SendMsg2(' О Т К Л');
         pck:='';
         exit;
         end;
       6:begin 
         autoattacka:=true;
         SendMsg2(' В К Л');
         pck:='';
        exit;
      end;
 end;
 end;
 procedure OnTimer1(Sender: TObject);
  begin
     Action;
  end;
  procedure Action;
  begin
         buf:=#$1F;
         WriteD(mobID);
         WriteD(myX);
         WriteD(myY);
         WriteD(myZ); 
         WriteC(00);
         SendToServerEx(name);
        end; 
  procedure startPoisk;
  begin
         buf:=#$F1;
         WriteD(0);
         WriteD(1);
         WriteD(mobX);
         WriteD(mobY);
         WriteD(mobZ);
         SendToClientEx(name);
        end; 
procedure startAttacka;
        begin
        mobID:=ReadD(2);
               Action;
             startPoisk;
           autoAction:=false;
          if autoattacka then  
            Timer1.enabled:=true;
             end;
 procedure stopRadarControl;
       begin
       buf:=#$F1;
       WriteD(0);
       WriteD(1);
       WriteD(myX);
       WriteD(myY);
       WriteD(myZ);
       SendToClientEx(name);
            end; 
 procedure  ValidatePosition;
       begin
         myX:=ReadD(2);
         myY:=ReadD(6);
         myZ:=ReadD(10);
       end; 
 procedure Init;
  begin
  autoAction:=true;
  autoattacka:=false;
  timer1:=TTimer.Create(nil);
  timer1.OnTimer:=@OnTimer1;
  timer1.enabled:=false;
  timer1.interval:=1000;
  buf:=#$14;
  SendToServerEx(name);
  SendMsg2(' ВКЛ соцдействие ДА');
  SendMsg2('ОТКЛ соцдействие НЕТ');
  SendMsg2('TAMBIK');
  end;
  procedure Free; 
  begin
  timer1.free;
  end;
 
    begin
 if fromserver  and (pck[1]=#$32)  then begin//Tип: 0x32 (UserInfo)
      myID:=ReadD(18);
           end;
 if FromClient and (pck[1]=#$34) then RequestSocialAction; 
 if FromServer and autoAction and (pck[1]=#$33) and (ReadD(6)=myID) then startAttacka;
 if FromServer  and autoAction and (pck[1]=#$48)and(ReadD(2)<>myID)and(ReadD(6)=myID)then startAttacka;
 if FromServer and (pck[1]=#$00) and (ReadD(2)=mobID) then  begin
        autoAction:=true;
        stopRadarControl;
        timer1.enabled:=false;  
 if FromClient and (pck[1]=#$59) then  ValidatePosition;
   end;
 end.

[Scaem]

расскажи как работает , как работает радар и что за атака? )

[kopacb]

2 TAMBIK: скажи пожалуста реально ли на ИТ это поменять?
Дело в том что все пакеты изменил кроме вот этого:
(pck[1]=#$48)
его содержание в пакетах T0(тоесть ИТ) просто нету.
А так все подоходит вродебы.

[TAMBIK]

kopacb,
есть он и там 48

[TAMBIK]

//  автор ТАМБИК
//  грация финал
      const
  name = ' х '; // Имя 

   var
  Timer1: TTimer;
  myID:integer;
  mobID,mobX,mobY,mobZ:integer;
  myX,myY,myZ:integer;
  autoattacka,autoAction:boolean;

procedure SendMsg2(msg:string);
begin 
  buf:=#$4A;
  WriteD(0);
  WriteD(10);
  WriteS('');
  WriteS(msg);
  SendToClientEx(name);
end;
  procedure  RequestSocialAction;
           begin   
        CASE ReadD(2) OF
      25:begin
        autoattacka:=false;
        autoAction:=false;
        stopRadarControl;
         SendMsg2(' О Т К Л');
         pck:='';
         exit;
         end;
       24:begin 
         autoattacka:=true;
         SendMsg2(' В К Л');
         pck:='';
        exit;
      end;
 end;
 end;
 procedure OnTimer1(Sender: TObject);
  begin
     Action;
  end;
  procedure Action;
  begin
         buf:=#$1F;
         WriteD(mobID);
         WriteD(myX);
         WriteD(myY);
         WriteD(myZ); 
         WriteC(00);
         SendToServerEx(name);
        end; 
  procedure startPoisk;
  begin
         buf:=#$F1;
         WriteD(0);
         WriteD(1);
         WriteD(mobX);
         WriteD(mobY);
         WriteD(mobZ);
         SendToClientEx(name);
        end; 
procedure startAttacka;
        begin
        mobID:=ReadD(2);
               Action;
             startPoisk;
           autoAction:=false;
          if autoattacka then  
            Timer1.enabled:=true;
             end;
 procedure stopRadarControl;
       begin
       buf:=#$F1;
       WriteD(0);
       WriteD(1);
       WriteD(myX);
       WriteD(myY);
       WriteD(myZ);
       SendToClientEx(name);
            end; 
 procedure  ValidatePosition;
       begin
         myX:=ReadD(2);
         myY:=ReadD(6);
         myZ:=ReadD(10);
       end; 
 procedure Init;
  begin
  autoAction:=true;
  autoattacka:=false;
  timer1:=TTimer.Create(nil);
  timer1.OnTimer:=@OnTimer1;
  timer1.enabled:=false;
  timer1.interval:=1000;
  buf:=#$14;
  SendToServerEx(name);
  SendMsg2(' ВКЛ соцдействие ДА');
  SendMsg2('ОТКЛ соцдействие НЕТ');
  SendMsg2('TAMBIK');
  end;
  procedure Free; 
  begin
  timer1.free;
  end;
 
    begin
 if fromserver  and (pck[1]=#$32)  then begin//Tип: 0x32 (UserInfo)
      myID:=ReadD(18);
           end;
 if FromClient and (pck[1]=#$56) then RequestSocialAction; 
 if FromServer and autoAction and (pck[1]=#$33) and (ReadD(6)=myID) then startAttacka;
 if FromServer  and autoAction and (pck[1]=#$48)and(ReadD(2)<>myID)and(ReadD(6)=myID)then startAttacka;
 if FromServer and (pck[1]=#$00) and (ReadD(2)=mobID) then  begin
        autoAction:=true;
        stopRadarControl;
        timer1.enabled:=false;  
 if FromClient and (pck[1]=#$59) then  ValidatePosition;
   end;
 end.