[Скрипт] Телепорт по имени НПЦ(2.7)

[kviki1990]

Пишите в чат "/где Имя_НПЦ" и вас телепортирует к НПЦ.
НПЦ обязательно должен быть в той же локе, что и вы, иначе вас кинет хрен знает куда. можно еще проверить на всяких сундуках, мобах, подлоках, ресурсах.

PHP код:

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

end;

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

end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if fromserver and (ReadC(1)=$59) then begin
    buf:=hstr('9F 00 57 5C FF');
    writed(readD(18));
    writed(readD(22));
    writed(readD(26));
    buf := buf + hstr('3C 00');
    sendtoserver;   
    buf:=hstr('68 00 57 07 FF');
    SendToServer;
    pck:='';        
end;
end. 


Так же можно телепортироваться по локе используя координаты.
Например: "port 123 456 789"
Разделять 1 пробелом. Всего 3 пробела в строке. Других пробелов быть не должно.

PHP код:

var
    str:string;
    position: integer;
    koordx, koordy, koordz: string;

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

end;

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

end;

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

if FromClient and (ReadC(1)=$B2) and (pos('port',ReadS(7))=1) then
     begin
        str := reads(7); 
        position := pos(' ', str);
        str := copy(str, position + 1, length(str) - position);
        koordx := copy(str, 1, pos(' ', str));
        position := pos(' ', str);
        str := copy(str, position + 1, length(str) - position);
        koordy := copy(str, 1, pos(' ', str));
        position := pos(' ', str);
        koordz := copy(str, position + 1, length(str) - position);
        buf:= hstr('9F 00 57 5C FF');
        writeN(strtofloat(koordx));
        writeN(strtofloat(koordy));
        writeN(strtofloat(koordz));
        buf := buf + hstr('3C 00');
        sendtoserver;   
        buf:=hstr('68 00 57 07 FF');
        SendToServer;
        pck:='';
     end;
end. 


Сам писал. Ставим спасибки.

[phell]

Очень удобно, спс. И появляешся возле НПС, как при входе, "мягко" ). НО, можно ли сделать скрипт чтобы ТПшило ТОЛЬКО при команде с чата? А то иногда бывает нужно посмотреть просто где НПС а при нажатии показа на карте в описании квеста тоже ТПшит к НПС)). Это же относится и к мобам (по квесту например, нажимаешь посмотреть на карте а вас ТПшит к ним, но ТПшит только к первому которого на карте определило, и соответственно при каждом последующем нажатии ТПшит туда же, а не следующему. Из-за этого нельзя определить на карте следующего моба).

[kviki1990]

нужно отключать скрипт, так как когда ты пишеш "/где ..." клиент отсылает на сервер пакет с ID НПЦ и принимает пакет с его координатами. Если б я знал как по-другому достать ID НПЦ, то сделал бы так как ты просиш. Ну или сделаю вкл/выкл для скрипта через чат. Если нужно, конечно. Сделать?

[beo18indus]

полезный скрипт) работает. проверено на Awars.net

[phell]

Цитата: Сообщение от kviki1990 нужно отключать скрипт, так как когда ты пишеш "/где ..." клиент отсылает на сервер пакет с ID НПЦ и принимает пакет с его координатами. Если б я знал как по-другому достать ID НПЦ, то сделал бы так как ты просиш. Ну или сделаю вкл/выкл для скрипта через чат. Если нужно, конечно. Сделать?

Извини отсутствовал, не, тогда уже и так можно конечно клацать.

[c-lavr]

сделай включение/отключение по команде и кинь ее в макросс, или привяжи к кнопке)
и мигалка еще где-то работает?) У кого будут проблемы с ТП пишем - подкину новые пакеты)

[edwardmell]

Блин, тупанул. Неправильно НПЦ назвал. ТПшит прекрасно. Спасибо.)

И еще вопрос, а можно ли так ТПшнуться, например, к Именным мобам?

[c-lavr]

да можно, к любому, кого на карте показывает) хоть к Рудре бегай)

[Rustas]

Цитата: Сообщение от c-lavr да можно, к любому, кого на карте показывает) хоть к Рудре бегай)

Ну не совсем ко всем, некоторых по старинке только на карте отмечает

[altairalentus]

Вот переделал под себя.
/где - работает как обычно
для телепорта к НПС надо написать в чат .тп и отправить, потом использовать команду /где ??????

var 
capture: boolean;
tmp,s:string;
i: byte;
procedure Init; 
begin

end;

procedure Free; 
begin

end;

procedure teleport;
    begin 
    if capture then 
        begin
            buf:=hstr('C2 00 57 61 FF 05');
            writed(readD(18));
            writed(readD(22));
            writed(readD(26));
            writec(0);
            sendtoserver;   
            pck:=''; 
            capture:=false;
        end;
        
    end;  
    
begin
if fromserver and (ReadC(1)=$59) and capture then teleport;
if FromClient and (pck[1]=#$b2) and (reads(7)='.тп') then  capture:=true;
           
    
      
       
end.

[kviki1990]

Цитата: Сообщение от edwardmell И еще вопрос, а можно ли так ТПшнуться, например, к Именным мобам?

Еще и к ресурсам можно тпшиться

Цитата: Сообщение от c-lavr и мигалка еще где-то работает?)

на моем серве работает. а какая альтернатива есть? на будущее

Цитата: Сообщение от c-lavr сделай включение/отключение по команде и кинь ее в макросс, или привяжи к кнопке)

altairalentus уже сделал. спасибо.

[c-lavr]

Цитата: Сообщение от kviki1990 на моем серве работает. а какая альтернатива есть? на будущее

пакет сесть. можно еще прыжок, можно координаты дописывать в 45 пакете)))

[KAPRIZzNIK]

Цитата: Сообщение от altairalentus Вот переделал под себя. /где - работает как обычно для телепорта к НПС надо написать в чат .тп и отправить, потом использовать команду /где ?????? var capture: boolean; tmp,s:string; i: byte; procedure Init; begin end; procedure Free; begin end; procedure teleport; begin if capture then begin buf:=hstr('C2 00 57 61 FF 05'); writed(readD(18)); writed(readD(22)); writed(readD(26)); writec(0); sendtoserver; pck:=''; capture:=false; end; end; begin if fromserver and (ReadC(1)=$59) and capture then teleport; if FromClient and (pck[1]=#$b2) and (reads(7)='.тп') then capture:=true; end.

Еще вчера и сегодня ночью все работало на ура, на ++w Aion... теперь же при команде /где ----- персонаж садится и встает 1 раз... и все.
В чем дело может быть?

[kviki1990]

может пофиксили? мигалку пробовал?

PHP код:

if fromserver and (ReadC(1)=$59) then begin
    buf:=hstr('9F 00 57 5C FF');
    writed(readD(18));
    writed(readD(22));
    writed(readD(26));
    buf := buf + hstr('3C 00');
    sendtoserver;   
    buf:=hstr('68 00 57 07 FF');
    SendToServer;
    pck:='';        
end; 


[KAPRIZzNIK]

Не знаю, может и пофиксили. Нет не пробовал, я в скриптах не разбираюсь... Я умею в этом только копироват ьи вставлять)