ТП по локе

[aion programmer]

Наверное всех достает каждый раз лазить в пакетник и открывать пакет на тп,к тому-же они место засоряют много...
В связи с этим решил написать скрипт,чтобы тпхаться с помощью команд не лазя в пакетник,ну и соответственно поделится с вами=))
Вот он:
begin
If FromClient and (pck=Hstr('B9 57 76 00 2E 00 3A 04 20 00 42 04 3E 04 3D 04 35 04 3B 04 4E 04 00 00')) //.к тонелю
then
begin
buf:=HStr('C9 57 66 04 91 09 B5 44 49 D2 63 44 4A 2A 93 43 5C');
SendToServer;
pck:='';

end;
If FromClient and (pck=Hstr('B9 57 76 00 2E 00 32 04 4B 04 45 04 3E 04 34 04 20 00 3A 04 20 00 3D 04 4F 04 45 04 30 04 3C 04 00 00')) // .выход к няхам
then
begin
buf:=HStr('C9 57 66 04 3A 13 63 44 B2 60 20 43 28 51 AB 43 2E');
SendToServer;
pck:='';

end;
If FromClient and (pck=Hstr('B9 57 76 00 2E 00 3A 04 20 00 3F 04 3E 04 42 04 3E 04 3A 04 43 04 00 00 ')) // .к потоку
then
begin
buf:=HStr('C9 57 66 04 5D 3B B2 44 8D D3 F4 44 BA 63 99 43 74 00');
SendToServer;
pck:='';

end;
If FromClient and (pck=Hstr('B9 57 76 00 2E 00 3A 04 20 00 41 04 3E 04 42 04 35 04 00 00')) // .к соте
then
begin
buf:=HStr('C9 57 66 04 17 10 29 45 21 8B 71 44 CA 5F BE 43 20 00');
SendToServer;
pck:='';

end;
If FromClient and (pck=Hstr('B9 57 76 00 2E 00 3A 04 20 00 3F 04 30 04 41 04 45 04 35 04 00 00')) // .к пасхе
then
begin
buf:=HStr('C9 57 66 04 99 B8 B0 44 45 40 40 44 80 63 9C 43 75 00');
SendToServer;
pck:='';

end;
If FromClient and (pck=Hstr('B9 57 76 00 2E 00 38 04 3D 04 33 04 20 00 42 04 3E 04 3D 04 35 04 3B 04 4C 04 00 00')) // .инг тонель
then
begin
buf:=HStr('C9 57 66 04 7D 67 AA 44 4B 96 0F 45 3C 56 94 43 23 00 ');
SendToServer;
pck:='';

end;
If FromClient and (pck=Hstr('B9 57 76 00 2E 00 3A 04 20 00 40 04 3E 04 3C 04 31 04 43 04 00 00')) // .к ромбу
then
begin
buf:=HStr('C9 57 66 04 52 E4 3E 44 3C D3 F0 44 C7 EB A8 43 66 00');
SendToServer;
pck:='';

end;

end.
Команды:
.к тонелю (ТПхает из келькмароса ко входу в тоннель)
.выход к няхам (ТПхает к двери котрая ведет в инг)
.к потоку (ТПхает к потоку в инге где обычно асмы ждут нях)
.к соте (ТПхает к деревне Сотерия,я там обычно ставлю нику)
.к пасхе (тпхает ко входу пхасумандир)
.инг тонель (ТПхает из ингисона ко входу в тоннель)
.к ромбу (ТПхает к деревне ромбус)

P.S
Могу написать подобный скрипт и не только.
Разумеется от ваших спасибок зависит буду ли я выкладывать подобное дальше=))
//п.28 - от меня это тоже зависит. talala

Добавлено через 47 минут
Чуть не забыл:
Чтобы не возникало вопросов сразу поясню ТП работает только в одной локе (вы не сможете ТПхнуться из келькмароса сразу в инг,поэтому скрипт и называется ТП по локе)=))
Тестилось на 2.5.версии

[aion programmer]

Вот еще скрипт,с помощью которого можно быстро стать даевом:
begin
If FromClient and (pck=Hstr('B9 57 76 00 2E 00 43 04 40 04 34 04 00 00'))//
then
begin
buf:=HStr('C9 57 66 04 FD 83 12 44 B3 FA 16 45 5A 4D 8B 43 64 00');//
SendToServer;
pck:='';

end;
If FromClient and (pck=Hstr('B9 57 76 00 2E 00 3C 04 43 04 3D 04 38 04 3D 04 00 00')) //
then
begin
buf:=HStr('C9 57 66 04 39 C9 C0 43 26 BE EC 44 00 D0 A3 43 3C 00');//
SendToServer;
pck:='';

end;
If FromClient and (pck=Hstr('B9 57 76 00 2E 00 41 04 3A 04 43 04 3B 04 4C 04 34 04 00 00')) //
then
begin
buf:=HStr('C9 57 66 04 3D 0A 8B 44 37 BE D6 44 53 4F 87 43 6F 00'); //
SendToServer;
pck:='';

end;
If FromClient and (pck=Hstr('B9 57 76 00 2E 00 32 04 35 04 40 04 3D 04 30 04 3D 04 34 04 38 04 00 00')) //
then
begin
buf:=HStr('C9 57 66 04 E3 E1 6A 44 BE 78 0F 45 23 E0 84 43 2A 00'); //
SendToServer;
pck:='';

end;
If FromClient and (pck=Hstr('B9 57 76 00 2E 00 30 04 33 04 30 04 3C 04 3E 04 00 00')) //
then
begin
buf:=HStr('C9 57 66 04 2F 63 8D 44 0F A9 B3 44 F8 94 50 43 4F 00'); //
SendToServer;
pck:='';

end;

end.
Команды:
.урд
.мунин
.скульд
.вернанди

[Palah]

хорошие скрипты и норм пашут

[/\0/\]

немог бы ты написать скрипт который ловит координаты любых нпсов , а потом командой к ним тпшит?)

[aion programmer]

Могу,только толку с них...

[/\0/\]

по мне так больше толку чем с тех что ты выложил ниже, легко проверять рб, именных мобов.

[aion programmer]

по мне так больше толку чем с тех что ты выложил ниже, легко проверять рб, именных мобов.

Ок будут

[/\0/\]

да кстати второй скрипт у меня не работает почемуто, писал .Урд, .Мунин и остальных, но ничего не происходит серв aion1.ru

[freshinin-aion]

Чел, забацай для 3,0 плз. А то это не пашет так как там пакеты рагульные!!!

[aion programmer]

да кстати второй скрипт у меня не работает почемуто, писал .Урд, .Мунин и остальных, но ничего не происходит серв aion1.ru

пишется с маленькой буквы и в общий чат=))

Добавлено через 2 минуты
Чел, забацай для 3,0 плз. А то это не пашет так как там пакеты рагульные!!!

Оо,у меня нету 3.0.клиента=))
Пиши в ПМ сделаю.

[пчело]

автор если не лень то сделай и для Няшек тоже скриптик

[aion programmer]

автор если не лень то сделай и для Няшек тоже скриптик

Как стать даевом?
Или какой нужен?

[dawah]

Дык, это для 2.5? или для ньюшки с их псевдо 2.7?? не работает(((

[tulya409]

А есть такой скрип каторыйбы ТПшел по карданатом ?

[x-miskalin-x]

Ок будут

Тоже интересно как по ID моба определить его координаты?
Или хотя бы по выбору таргета определять координаты мобов )

[aion programmer]

Скрипт ТП на 2.7.

begin
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 2E 00 3A 04 20 00 42 04 3E 04 3D 04 35 04 3B 04 4E 04 00 00 ')) //.к тонелю
then
begin
buf:=HStr(' C2 00 57 61 FF 04 11 43 B5 44 78 BA 62 44 CF 02 93 43 5F 00'); //2.7
SendToServer;
pck:='';

end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 2E 00 32 04 4B 04 45 04 3E 04 34 04 20 00 3A 04 20 00 3D 04 4F 04 45 04 30 04 3C 04 00 00 ')) // .выход к няхам
then
begin
buf:=HStr('C2 00 57 61 FF 04 EA 65 64 44 E2 59 1B 43 6F D2 AB 43 6A 00 ');//2.7
SendToServer;
pck:='';

end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 2E 00 3A 04 20 00 3F 04 3E 04 42 04 3E 04 3A 04 43 04 00 00 ')) // .к потоку
then
begin
buf:=HStr('C2 00 57 61 FF 04 32 9C BA 44 F6 AB FD 44 A8 FC 98 43 52 00'); //2.7
SendToServer;
pck:='';

end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 2E 00 3A 04 20 00 41 04 3E 04 42 04 35 04 00 00 ')) // .к соте
then
begin
buf:=HStr('C2 00 57 61 FF 04 33 1B 26 45 A6 95 83 44 0A B5 BA 43 13 C0 4D AC C2 40 7E 7F 25 41 00 00 00 00 ');
SendToServer;
pck:='';

end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 2E 00 3A 04 20 00 40 04 43 04 34 04 40 04 35 04 00 00')) // .к пасхе
then
begin
buf:=HStr('C2 00 57 61 FF 04 6E BF B0 44 FE F4 3F 44 80 63 9C 43 0F 00');
SendToServer;
pck:='';

end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 2E 00 38 04 3D 04 33 04 20 00 42 04 3E 04 3D 04 35 04 3B 04 4C 04 00 00')) // .инг тонель
then
begin
buf:=HStr('C2 00 57 61 FF 04 FC 5F AA 44 72 A9 0F 45 3C 56 94 43 21 00 ');
SendToServer;
pck:='';

end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 2E 00 3A 04 20 00 40 04 3E 04 3C 04 31 04 43 04 00 00 ')) // .к ромбу
then
begin
buf:=HStr(' C2 00 57 61 FF 04 B5 01 3D 44 C2 8B F0 44 86 6A A6 43 69 00 ');
SendToServer;
pck:='';

end;
end.

Команды:
.к тонелю (ТПхает из келькмароса ко входу в тоннель)
.выход к няхам (ТПхает к двери котрая ведет в инг)
.к потоку (ТПхает к потоку в инге где обычно асмы ждут нях)
.к соте (ТПхает к деревне Сотерия,я там обычно ставлю нику)
.к пасхе (тпхает ко входу пхасумандир)
.инг тонель (ТПхает из ингисона ко входу в тоннель)
.к ромбу (ТПхает к деревне ромбус)