Поиск игрока на карте[4.3]

happytorn · 12.04.2015, 01:31

Код:

var
name,pt:string;
Timer:TTimer;
TimerStep:integer;
p:integer;
x,y,z,loc:single;


procedure Init;
        begin
        TimerStep:=1;                //Шаг
        Timer:=TTimer.Create(nil);   //выделяем память
        Timer.OnTimer:=@OnTimer;     //привязываем процедуру к событию 
        Timer.enabled:=false;        //начальное положение выключен(false)
        Timer.interval:=500;        //интервал(в миллисекундах) как часто таймер срабатывает
        end;
        

procedure Free;
        begin
        Timer.free;
        end;    
        
        
procedure OnTimer(Sender: TObject);
    begin
        case TimerStep of
        1: 
            begin
            buf:=hstr('FB 01 46 04 FE 3B 1B 03 00'); 
            WriteN(loc);
            WriteN(loc);
            WriteN(x);
            WriteN(y);   
            WriteN(z);
            sendtoclientEx(name);         
            Inc(TimerStep);       
            end;
        2:
        
            begin 
            buf:=hstr('FB 01 46 04 FE 3B 1B 03 00'); 
            WriteN(loc);
            WriteN(loc);
            WriteN(x);
            WriteN(y);   
            WriteN(z);
            sendtoclientEx(name);
            Timer.enabled:=false;   //выключаем таймер
            Inc(TimerStep); 
            TimerStep:=1; 
            end;
         end;  
         
    end;
begin
name:=ConnectName;        

if fromserver and (ReadC(1)=$45) then
    begin  
    //pt:= pck;                 
    loc := ReadN(8);
    x:=ReadN(12);
    y:=ReadN(16);
    z:=ReadN(20);
    Timer.enabled:=true;
    end;  
    
    
    
end.

Olgaved · 26.04.2015, 05:23

Спасибо!
У меня показывает только своих (Асмов), а нях можно так найти?

mars2107 · 11.05.2015, 02:10

Для EU 4.7.1

Меняем лишь строчку:

Было : if fromserver and (ReadC(1)=$45) then
Стало: if fromserver and (ReadC(1)=$7D) then

Для ленивых просто скопировать и вставить код ниже.

Код:

var
name,pt:string;
Timer:TTimer;
TimerStep:integer;
p:integer;
x,y,z,loc:single;


procedure Init;
        begin
        TimerStep:=1;             
        Timer:=TTimer.Create(nil);   
        Timer.OnTimer:=@OnTimer;    
        Timer.enabled:=false;        
        Timer.interval:=500;        
        end;
        

procedure Free;
        begin
        Timer.free;
        end;    
        
        
procedure OnTimer(Sender: TObject);
    begin
        case TimerStep of
        1: 
            begin
            buf:=hstr('FB 01 00 00 00 00 00 00 00'); 
            WriteN(loc);
            WriteN(loc);
            WriteN(x);
            WriteN(y);   
            WriteN(z);
            sendtoclientEx(name);         
            Inc(TimerStep);       
            end;
        2:
        
            begin 
            buf:=hstr('FB 01 00 00 00 00 00 00 00'); 
            WriteN(loc);
            WriteN(loc);
            WriteN(x);
            WriteN(y);   
            WriteN(z);
            sendtoclientEx(name);
            Timer.enabled:=false;  
            Inc(TimerStep); 
            TimerStep:=1; 
            end;
         end;  
         
    end;
begin
name:=ConnectName;        

if fromserver and (ReadC(1)=$7D) then
    begin  
    //pt:= pck;                 
    loc := ReadN(8);
    x:=ReadN(12);
    y:=ReadN(16);
    z:=ReadN(20);
    Timer.enabled:=true;
    end;  
    
    
    
end.

VaB1 · 29.07.2015, 03:09

Для EU 4.75

Код:

var
name,pt:string;
Timer:TTimer;
TimerStep:integer;
p:integer;
x,y,z,loc:single;


procedure Init;
        begin
        TimerStep:=1;             
        Timer:=TTimer.Create(nil);   
        Timer.OnTimer:=@OnTimer;    
        Timer.enabled:=false;        
        Timer.interval:=500;        
        end;
        

procedure Free;
        begin
        Timer.free;
        end;    
        
        
procedure OnTimer(Sender: TObject);
    begin
        case TimerStep of
        1: 
            begin
            buf:=hstr('F8 01 00 00 00 00 00 00 00'); 
            WriteN(loc);
            WriteN(loc);
            WriteN(x);
            WriteN(y);   
            WriteN(z);
            sendtoclientEx(name);         
            Inc(TimerStep);       
            end;
        2:
        
            begin 
            buf:=hstr('F8 01 00 00 00 00 00 00 00'); 
            WriteN(loc);
            WriteN(loc);
            WriteN(x);
            WriteN(y);   
            WriteN(z);
            sendtoclientEx(name);
            Timer.enabled:=false;  
            Inc(TimerStep); 
            TimerStep:=1; 
            end;
         end;  
         
    end;
begin
name:=ConnectName;        

if fromserver and (ReadC(1)=$7E) then
    begin  
    //pt:= pck;                        
    loc := ReadN(8);
    x:=ReadN(12);
    y:=ReadN(16);
    z:=ReadN(20);
    Timer.enabled:=true;
    end;  
    
    
    
end.

Добавлено через 18 часов 8 минут
Для 2.7

Код:

var
name,pt:string;
Timer:TTimer;
TimerStep:integer;
p:integer;
x,y,z,loc:single;


procedure Init;
        begin
        TimerStep:=1;                //Шаг
        Timer:=TTimer.Create(nil);   //выделяем память
        Timer.OnTimer:=@OnTimer;     //привязываем процедуру к событию 
        Timer.enabled:=false;        //начальное положение выключен(false)
        Timer.interval:=500;        //интервал(в миллисекундах) как часто таймер срабатывает
        end;
        

procedure Free;
        begin
        Timer.free;
        end;    
        
        
procedure OnTimer(Sender: TObject);
    begin
        case TimerStep of
        1: 
            begin
            buf:=hstr('59 01 00 00 00 00 00 00 00'); 
            WriteN(loc);
            WriteN(loc);
            WriteN(x);
            WriteN(y);   
            WriteN(z);
            sendtoclientEx(name);         
            Inc(TimerStep);       
            end;
        2:
        
            begin 
            buf:=hstr('59 01 00 00 00 00 00 00 00'); 
            WriteN(loc);
            WriteN(loc);
            WriteN(x);
            WriteN(y);   
            WriteN(z);
            sendtoclientEx(name);
            Timer.enabled:=false;   //выключаем таймер
            Inc(TimerStep); 
            TimerStep:=1; 
            end;
         end;  
         
    end;
begin
name:=ConnectName;        

if fromserver and (ReadC(1)=$D3) then
    begin  
    //pt:= pck;                 
    loc := ReadN(8);
    x:=ReadN(12);
    y:=ReadN(16);
    z:=ReadN(20);
    Timer.enabled:=true;
    end;  
    
    
    
end.

$maile · 31.07.2015, 11:21

Цитата:

Сообщение от VaB1


	Добавлено через 18 часов 8 минут Для 2.7

Скрипт в конце незаконченный=)

VaB1 · 31.07.2015, 21:43

Цитата:


	Скрипт в конце незаконченный=)

Исправил)

6arupa · 07.08.2015, 03:16

Для новичков,объясните пожалуйста,куда вставлять этот скрипт?

vadyash · 27.01.2016, 12:16

Для 4.8 RU под l2phx for Aion 4.7 NA EU

Код:

var
name,pt:string;
Timer:TTimer;
TimerStep:integer;
p:integer;
x,y,z,loc:single;


procedure Init;
        begin
        TimerStep:=1;                //Шаг
        Timer:=TTimer.Create(nil);   //выделяем память
        Timer.OnTimer:=@OnTimer;     //привязываем процедуру к событию 
        Timer.enabled:=false;        //начальное положение выключен(false)
        Timer.interval:=500;        //интервал(в миллисекундах) как часто таймер срабатывает
        end;
        

procedure Free;
        begin
        Timer.free;
        end;    
        
        
procedure OnTimer(Sender: TObject);
    begin
        case TimerStep of
        1: 
            begin
            buf:=hstr('F7 01 00 00 00 00 00 00 00');    //SM_SHOW_NPC_ON_MAP
            WriteN(loc);
            WriteN(loc);
            WriteN(x);
            WriteN(y);   
            WriteN(z);
            sendtoclientEx(name);         
            Inc(TimerStep);       
            end;
        2:
        
            begin 
            buf:=hstr('F7 01 00 00 00 00 00 00 00');    //SM_SHOW_NPC_ON_MAP
            WriteN(loc);
            WriteN(loc);
            WriteN(x);
            WriteN(y);   
            WriteN(z);
            sendtoclientEx(name);
            Timer.enabled:=false;   //выключаем таймер
            Inc(TimerStep); 
            TimerStep:=1; 
            end;
         end;  
         
    end;
begin
name:=ConnectName;        

if fromserver and (ReadC(1) = $7D) and (ReadC(2) = $01) then    //SM_PLAYER_SEARCH
    begin  
    //pt:= pck;                 
    loc := ReadN(8);
    x:=ReadN(12);
    y:=ReadN(16);
    z:=ReadN(20);
    Timer.enabled:=true;
    end;  
    
    
    
end.

VaB1 · 07.05.2016, 03:36

Для 4.91

Код:

var
name,pt:string;
Timer:TTimer;
TimerStep:integer;
p:integer;
x,y,z,loc:single;


procedure Init;
        begin
        TimerStep:=1;             
        Timer:=TTimer.Create(nil);   
        Timer.OnTimer:=@OnTimer;    
        Timer.enabled:=false;        
        Timer.interval:=500;        
        end;
        

procedure Free;
        begin
        Timer.free;
        end;    
        
        
procedure OnTimer(Sender: TObject);
    begin
        case TimerStep of
        1: 
            begin
            buf:=hstr('F8 01 00 00 00 00 00 00 00'); 
            WriteN(loc);
            WriteN(loc);
            WriteN(x);
            WriteN(y);   
            WriteN(z);
            sendtoclientEx(name);         
            Inc(TimerStep);       
            end;
        2:
        
            begin 
            buf:=hstr('F8 01 00 00 00 00 00 00 00'); 
            WriteN(loc);
            WriteN(loc);
            WriteN(x);
            WriteN(y);   
            WriteN(z);
            sendtoclientEx(name);
            Timer.enabled:=false;  
            Inc(TimerStep); 
            TimerStep:=1; 
            end;
         end;  
         
    end;
begin
name:=ConnectName;        

if fromserver and (ReadC(1)=$72) then
    begin  
    //pt:= pck;                        
    loc := ReadN(8);
    x:=ReadN(12);
    y:=ReadN(16);
    z:=ReadN(20);
    Timer.enabled:=true;
    end;  
    
    
    
end.

Поиск игрока на карте[4.3]

Боты, скрипты и прочий софт для Aion