Demboys
17.03.2012, 00:14
Кому помог тыкните спс!скрипт составлял сам руководствуясь по теме [Ссылки могут видеть только зарегистрированные и активированные пользователи] если что не ясно подскажу!!
Для тех кто не знает как пользоваться скриптами:
Вам нужно нажать Вкладка Автоматизация / Скрипты (Ctrl + E) / Новый скрипт / Пишим название / Стираем всё что есть, и добавляем скрипты / Ставим галочку справа , возле названия скрипта.
1-Команда для порта,вводиться в общем чате!!
2-важно порты работают только по 1 локацыи,пример- порт по бездне работает только в бездне!!!
3-примечание- если при перелете кинуло в тексты нажми команду еше раз!
3-команды на покупку тестились мало! при релогах сервера возможна не работоспособность
пакеты на покупку и так далее возможно работать не будут!по причине что отлавливались на сервере где играю я!а вот насчет почты и релога должно работать у всех!!
вагабатам --- поле битвы вагабатам келькмарос
болото вискома -- келькмарос
каспар --- нижняя часть территории возле входа в каспар! келькмарос
мараяс -- Древний город мараяс _возле теграка ,келькмарос
ромбуса --- деревня беженцев Ромбуса ,келькмарос
келькмарос --- крепость келькмарос!
крп1 -- Крепа Храм красной земли Келькмарос
крп2 -- Крепа Запечатанная башня кельк
око ---верхняя часть ока над крепостью! арешурат
тиграки --- отстров теграки,арешурат
облака -- остров темного облака ,арешурат
фримум --- цитадель фримума ,арешурат
западный --- верхняя зона западного осколка ,арешурат
кротан -- крепость кротан,арешурат
рамирен -- крепость рамирен,арешурат
сиэли з --- западная крепость сиэли,арешурат
сиэли в ---восточная крепость сиэли ,арешурат
рейбо --- остров рейбо (под оком) ,арешурат
отверженных --- остров отверженных (пленные асмодиане)возле крепости серного дерева ,арешурат
серного -- крепость серного дерева,арешурат
ткисас -- Крепость ткисас ,арешурат
герб - покупка герб защиты тьмы
ника - покупка асм ника группы
саморес -- покупка <Надгробие возрождения> ( за апы)
лавка - открытие бакалейной лавки
почта --- открытие почты
релог -- открытие изменения внешнего вида(при нажатии отмена вы опять в ире!мелкий релог на перса)
это в чате легиона
оп - сброс таргета!также если умерли воскресит без нп и не кто не сможет сагрить,не мобы не нпс!! чтобы вернуться в норм состояние нужно чтобы воскресили или см дальше команда оп2
оп2 --- самовоскрешение работает только 1 раз! потом нужно сделать релог,как сделать см выше по команде релог )
проверка дропа с моба - дропинфо на умение (дразнить)
begin
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 32 04 30 04 33 04 30 04 31 04 30 04 42 04 30 04 3C 04 00 00')) //вагабатам
then
begin
buf:=HStr('C2 00 57 61 FF 04 F9 8D C7 44 FD 42 AA 44 3A 7B 9B 43 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 31 04 3E 04 3B 04 3E 04 42 04 3E 04 20 00 32 04 38 04 41 04 3A 04 3E 04 3C 04 30 04 00 00')) //болото вискома
then
begin
buf:=HStr('C2 00 57 61 FF 04 27 E0 21 44 F6 D9 A8 44 7D AF 8B 43 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 3A 04 30 04 41 04 3F 04 30 04 40 04 00 00')) //каспар
then
begin
buf:=HStr('C2 00 57 61 FF 04 30 F1 94 44 4B 05 17 45 4B 85 2A 43 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 3E 04 3A 04 3E 04 00 00')) //око
then
begin
buf:=HStr('C2 00 57 61 FF 04 62 F2 04 45 5A D6 F4 44 4B A0 1D 45 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 42 04 38 04 33 04 40 04 30 04 3A 04 38 04 00 00')) //тиграки
then
begin
buf:=HStr('C2 00 57 61 FF 04 4C 73 11 44 35 01 90 44 34 48 31 45 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 3E 04 31 04 3B 04 30 04 3A 04 30 04 00 00')) //облака
then
begin
buf:=HStr('C2 00 57 61 FF 04 3D CE 53 45 09 05 18 45 19 EB 2C 45 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 44 04 40 04 38 04 3C 04 43 04 3C 04 00 00')) //фримум
then
begin
buf:=HStr('C2 00 57 61 FF 04 A2 E2 85 44 0E E3 31 45 2B 82 CC 44 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 37 04 30 04 3F 04 30 04 34 04 3D 04 4B 04 39 04 00 00')) //западный
then
begin
buf:=HStr('C2 00 57 61 FF 04 0A 4F 05 45 92 CB 23 44 68 B8 31 45 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 3A 04 40 04 3E 04 42 04 30 04 3D 04 00 00')) //кротан
then
begin
buf:=HStr('C2 00 57 61 FF 04 3F A9 FD 44 B4 3E A3 44 D5 2D 36 45 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 40 04 30 04 3C 04 38 04 40 04 35 04 3D 04 00 00')) //рамирен
then
begin
buf:=HStr('C2 00 57 61 FF 04 37 50 E3 44 BE 87 0C 45 6D 60 35 45 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 41 04 38 04 4D 04 3B 04 38 04 20 00 37 04 00 00')) //сиэли з
then
begin
buf:=HStr('C2 00 57 61 FF 04 21 C4 2F 45 7C 80 21 45 F7 97 BD 44 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 41 04 38 04 4D 04 3B 04 38 04 20 00 32 04 00 00')) //сиэли в
then
begin
buf:=HStr('C2 00 57 61 FF 04 5B 3A 22 45 74 35 35 45 40 60 B6 44 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 3C 04 30 04 40 04 30 04 4F 04 41 04 00 00')) //мараяс
then
begin
buf:=HStr('C2 00 57 61 FF 04 83 BF E4 44 90 17 F8 44 88 04 C4 43 44 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 40 04 3E 04 3C 04 31 04 43 04 41 04 30 04 00 00')) //ромбуса
then
begin
buf:=HStr('C2 00 57 61 FF 04 B4 EF 4A 44 E0 F3 DB 44 23 4A AF 43 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 3A 04 35 04 3B 04 4C 04 3A 04 3C 04 30 04 40 04 3E 04 41 04 00 00')) //келькмарос
then
begin
buf:=HStr('C2 00 57 61 FF 04 9D 9B DF 44 7E 08 36 45 AD B3 0A 44 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 40 04 35 04 39 04 31 04 3E 04 00 00')) //рейбо
then
begin
buf:=HStr('C2 00 57 61 FF 04 E5 BE 04 45 53 36 F4 44 CF 56 C7 44 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 3E 04 42 04 32 04 35 04 40 04 36 04 35 04 3D 04 3D 04 4B 04 45 04 00 00')) //отвеженных
then
begin
buf:=HStr('C2 00 57 61 FF 04 AF D7 BB 44 E0 CA BA 44 FC 01 C1 44 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 41 04 35 04 40 04 3D 04 3E 04 33 04 3E 04 00 00')) //серного
then
begin
buf:=HStr('C2 00 57 61 FF 04 83 71 AF 44 F3 3A 9A 44 B5 60 B7 44 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 33 04 35 04 40 04 31 04 00 00')) //герб
then
begin
buf:=HStr('9A 00 57 59 FF D3 02 00 00 0D 00 01 00 66 71 C6 09 01 00 00 00 00 00 00 00');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 3D 04 38 04 3A 04 30 04 00 00')) //ника
then
begin
buf:=HStr('9A 00 57 59 FF D3 02 00 00 0D 00 01 00 48 9E F7 0A 01 00 00 00 00 00 00 00');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 41 04 30 04 3C 04 3E 04 40 04 35 04 41 04 00 00')) //саморес
then
begin
buf:=HStr('9A 00 57 59 FF 17 42 01 00 0E 00 01 00 44 AA 98 09 01 00 00 00 00 00 00 00');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 42 04 3A 04 38 04 41 04 30 04 41 04 00 00')) //ткисас
then
begin
buf:=HStr('C2 00 57 61 FF 04 F4 0A 1A 45 31 83 01 45 CF A1 3B 45 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 3B 04 30 04 32 04 3A 04 30 04 00 00')) //лавка
then
begin
buf:=HStr('9D 00 57 5A FF 9A 02 00 00 02 00 01 00 0A 00 00 00 00 00 00 00');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 3F 04 3E 04 47 04 42 04 30 04 00 00')) //почта
then
begin
buf:=HStr('9D 00 57 5A FF EF 2F 00 00 12 00 01 00 05 00 A3 04 00 00 00 00');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 40 04 35 04 3B 04 3E 04 33 04 00 00')) //релог
then
begin
buf:=HStr('9D 00 57 5A FF EF 2F 00 00 38 00 01 00 05 00 A3 04 00 00 00 00');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 0A 3E 04 3F 04 00 00')) //сброс таргета
then
begin
buf:=HStr('68 00 57 07 FF');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 0A 3E 04 3F 04 32 00 00 00')) //воскрешание
then
begin
buf:=HStr('6C 00 57 0B FF 01');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 3A 04 40 04 3F 04 31 00 00 00')) //крп1
then
begin
buf:=HStr('C2 00 57 61 FF 04 9F CF F3 44 1C 2D 84 44 15 8A A3 43 66');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 3A 04 40 04 3F 04 32 00 00 00')) //крп2 Крепа Запечатанная башня
then
begin
buf:=HStr('C2 00 57 61 FF 04 C8 A4 9D 44 D3 BB 4A 44 D9 25 9B 43 49');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('C2 00 57 61 FF 15 0A 00 00 00 00 00 ')) //дропинфо на команду дразнить
then
begin
buf:=HStr('B2 00 57 71 FF 0A 2F 00 2F 00 64 00 72 00 6F 00 70 00 69 00 6E 00 66 00 6F 00 00 00 ');
SendToServer;
pck:='';
end;
end.
добавил обновленный скрипт!! в строке где команда можете менять команду на свое усмотренние!!!)))
begin
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='вагабатам') then //вагабатам
begin
buf:=HStr('C2 00 57 61 FF 04 F9 8D C7 44 FD 42 AA 44 3A 7B 9B 43 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='болото вискома') then //болото вискома
begin
buf:=HStr('C2 00 57 61 FF 04 27 E0 21 44 F6 D9 A8 44 7D AF 8B 43 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='каспар') //каспар
then
begin
buf:=HStr('C2 00 57 61 FF 04 30 F1 94 44 4B 05 17 45 4B 85 2A 43 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='око') //око
then
begin
buf:=HStr('C2 00 57 61 FF 04 62 F2 04 45 5A D6 F4 44 4B A0 1D 45 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='тиграки') //тиграки
then
begin
buf:=HStr('C2 00 57 61 FF 04 4C 73 11 44 35 01 90 44 34 48 31 45 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='облака') //облака
then
begin
buf:=HStr('C2 00 57 61 FF 04 3D CE 53 45 09 05 18 45 19 EB 2C 45 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='фримум') //фримум
then
begin
buf:=HStr('C2 00 57 61 FF 04 A2 E2 85 44 0E E3 31 45 2B 82 CC 44 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='западный') //западный
then
begin
buf:=HStr('C2 00 57 61 FF 04 0A 4F 05 45 92 CB 23 44 68 B8 31 45 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='кротан') //кротан
then
begin
buf:=HStr('C2 00 57 61 FF 04 3F A9 FD 44 B4 3E A3 44 D5 2D 36 45 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='рамирен') //рамирен
then
begin
buf:=HStr('C2 00 57 61 FF 04 37 50 E3 44 BE 87 0C 45 6D 60 35 45 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='сиэли з') //сиэли з
then
begin
buf:=HStr('C2 00 57 61 FF 04 21 C4 2F 45 7C 80 21 45 F7 97 BD 44 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='сиэли в') //сиэли в
then
begin
buf:=HStr('C2 00 57 61 FF 04 5B 3A 22 45 74 35 35 45 40 60 B6 44 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='мараяс') //мараяс
then
begin
buf:=HStr('C2 00 57 61 FF 04 83 BF E4 44 90 17 F8 44 88 04 C4 43 44 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='ромбуса') //ромбуса
then
begin
buf:=HStr('C2 00 57 61 FF 04 B4 EF 4A 44 E0 F3 DB 44 23 4A AF 43 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='келькмарос') //келькмарос
then
begin
buf:=HStr('C2 00 57 61 FF 04 9D 9B DF 44 7E 08 36 45 AD B3 0A 44 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='рейбо') //рейбо
then
begin
buf:=HStr('C2 00 57 61 FF 04 E5 BE 04 45 53 36 F4 44 CF 56 C7 44 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='отвеженных') //отвеженных
then
begin
buf:=HStr('C2 00 57 61 FF 04 AF D7 BB 44 E0 CA BA 44 FC 01 C1 44 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='серного') //серного
then
begin
buf:=HStr('C2 00 57 61 FF 04 83 71 AF 44 F3 3A 9A 44 B5 60 B7 44 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='герб') //герб
then
begin
buf:=HStr('9A 00 57 59 FF D3 02 00 00 0D 00 01 00 66 71 C6 09 01 00 00 00 00 00 00 00');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='ника') //ника
then
begin
buf:=HStr('9A 00 57 59 FF D3 02 00 00 0D 00 01 00 48 9E F7 0A 01 00 00 00 00 00 00 00');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='саморес') //саморес
then
begin
buf:=HStr('9A 00 57 59 FF 17 42 01 00 0E 00 01 00 44 AA 98 09 01 00 00 00 00 00 00 00');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='ткисас') //ткисас
then
begin
buf:=HStr('C2 00 57 61 FF 04 F4 0A 1A 45 31 83 01 45 CF A1 3B 45 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='лавка') //лавка
then
begin
buf:=HStr('9D 00 57 5A FF 9A 02 00 00 02 00 01 00 0A 00 00 00 00 00 00 00');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='почта') //почта
then
begin
buf:=HStr('9D 00 57 5A FF EF 2F 00 00 12 00 01 00 05 00 A3 04 00 00 00 00');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='релог') //релог
then
begin
buf:=HStr('9D 00 57 5A FF EF 2F 00 00 38 00 01 00 05 00 A3 04 00 00 00 00');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='оп') //сброс таргета
then
begin
buf:=HStr('68 00 57 07 FF');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='оп2') //воскрешание
then
begin
buf:=HStr('6C 00 57 0B FF 01');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='крп1') //крп1
then
begin
buf:=HStr('C2 00 57 61 FF 04 9F CF F3 44 1C 2D 84 44 15 8A A3 43 66');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='крп2') //крп2 Крепа Запечатанная башня
then
begin
buf:=HStr('C2 00 57 61 FF 04 C8 A4 9D 44 D3 BB 4A 44 D9 25 9B 43 49');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('C2 00 57 61 FF 15 0A 00 00 00 00 00')) //дропинфо на команду дразнить
then
begin
buf:=HStr('B2 00 57 71 FF 0A 2F 00 2F 00 64 00 72 00 6F 00 70 00 69 00 6E 00 66 00 6F 00 00 00 ');
SendToServer;
pck:='';
end;
end.
жду предложений что добавить в скрипт!! так как былобы очень удобно иметь много чего в одном!!! (помогая друг другу мы помогаем себе)))
Для тех кто не знает как пользоваться скриптами:
Вам нужно нажать Вкладка Автоматизация / Скрипты (Ctrl + E) / Новый скрипт / Пишим название / Стираем всё что есть, и добавляем скрипты / Ставим галочку справа , возле названия скрипта.
1-Команда для порта,вводиться в общем чате!!
2-важно порты работают только по 1 локацыи,пример- порт по бездне работает только в бездне!!!
3-примечание- если при перелете кинуло в тексты нажми команду еше раз!
3-команды на покупку тестились мало! при релогах сервера возможна не работоспособность
пакеты на покупку и так далее возможно работать не будут!по причине что отлавливались на сервере где играю я!а вот насчет почты и релога должно работать у всех!!
вагабатам --- поле битвы вагабатам келькмарос
болото вискома -- келькмарос
каспар --- нижняя часть территории возле входа в каспар! келькмарос
мараяс -- Древний город мараяс _возле теграка ,келькмарос
ромбуса --- деревня беженцев Ромбуса ,келькмарос
келькмарос --- крепость келькмарос!
крп1 -- Крепа Храм красной земли Келькмарос
крп2 -- Крепа Запечатанная башня кельк
око ---верхняя часть ока над крепостью! арешурат
тиграки --- отстров теграки,арешурат
облака -- остров темного облака ,арешурат
фримум --- цитадель фримума ,арешурат
западный --- верхняя зона западного осколка ,арешурат
кротан -- крепость кротан,арешурат
рамирен -- крепость рамирен,арешурат
сиэли з --- западная крепость сиэли,арешурат
сиэли в ---восточная крепость сиэли ,арешурат
рейбо --- остров рейбо (под оком) ,арешурат
отверженных --- остров отверженных (пленные асмодиане)возле крепости серного дерева ,арешурат
серного -- крепость серного дерева,арешурат
ткисас -- Крепость ткисас ,арешурат
герб - покупка герб защиты тьмы
ника - покупка асм ника группы
саморес -- покупка <Надгробие возрождения> ( за апы)
лавка - открытие бакалейной лавки
почта --- открытие почты
релог -- открытие изменения внешнего вида(при нажатии отмена вы опять в ире!мелкий релог на перса)
это в чате легиона
оп - сброс таргета!также если умерли воскресит без нп и не кто не сможет сагрить,не мобы не нпс!! чтобы вернуться в норм состояние нужно чтобы воскресили или см дальше команда оп2
оп2 --- самовоскрешение работает только 1 раз! потом нужно сделать релог,как сделать см выше по команде релог )
проверка дропа с моба - дропинфо на умение (дразнить)
begin
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 32 04 30 04 33 04 30 04 31 04 30 04 42 04 30 04 3C 04 00 00')) //вагабатам
then
begin
buf:=HStr('C2 00 57 61 FF 04 F9 8D C7 44 FD 42 AA 44 3A 7B 9B 43 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 31 04 3E 04 3B 04 3E 04 42 04 3E 04 20 00 32 04 38 04 41 04 3A 04 3E 04 3C 04 30 04 00 00')) //болото вискома
then
begin
buf:=HStr('C2 00 57 61 FF 04 27 E0 21 44 F6 D9 A8 44 7D AF 8B 43 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 3A 04 30 04 41 04 3F 04 30 04 40 04 00 00')) //каспар
then
begin
buf:=HStr('C2 00 57 61 FF 04 30 F1 94 44 4B 05 17 45 4B 85 2A 43 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 3E 04 3A 04 3E 04 00 00')) //око
then
begin
buf:=HStr('C2 00 57 61 FF 04 62 F2 04 45 5A D6 F4 44 4B A0 1D 45 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 42 04 38 04 33 04 40 04 30 04 3A 04 38 04 00 00')) //тиграки
then
begin
buf:=HStr('C2 00 57 61 FF 04 4C 73 11 44 35 01 90 44 34 48 31 45 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 3E 04 31 04 3B 04 30 04 3A 04 30 04 00 00')) //облака
then
begin
buf:=HStr('C2 00 57 61 FF 04 3D CE 53 45 09 05 18 45 19 EB 2C 45 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 44 04 40 04 38 04 3C 04 43 04 3C 04 00 00')) //фримум
then
begin
buf:=HStr('C2 00 57 61 FF 04 A2 E2 85 44 0E E3 31 45 2B 82 CC 44 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 37 04 30 04 3F 04 30 04 34 04 3D 04 4B 04 39 04 00 00')) //западный
then
begin
buf:=HStr('C2 00 57 61 FF 04 0A 4F 05 45 92 CB 23 44 68 B8 31 45 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 3A 04 40 04 3E 04 42 04 30 04 3D 04 00 00')) //кротан
then
begin
buf:=HStr('C2 00 57 61 FF 04 3F A9 FD 44 B4 3E A3 44 D5 2D 36 45 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 40 04 30 04 3C 04 38 04 40 04 35 04 3D 04 00 00')) //рамирен
then
begin
buf:=HStr('C2 00 57 61 FF 04 37 50 E3 44 BE 87 0C 45 6D 60 35 45 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 41 04 38 04 4D 04 3B 04 38 04 20 00 37 04 00 00')) //сиэли з
then
begin
buf:=HStr('C2 00 57 61 FF 04 21 C4 2F 45 7C 80 21 45 F7 97 BD 44 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 41 04 38 04 4D 04 3B 04 38 04 20 00 32 04 00 00')) //сиэли в
then
begin
buf:=HStr('C2 00 57 61 FF 04 5B 3A 22 45 74 35 35 45 40 60 B6 44 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 3C 04 30 04 40 04 30 04 4F 04 41 04 00 00')) //мараяс
then
begin
buf:=HStr('C2 00 57 61 FF 04 83 BF E4 44 90 17 F8 44 88 04 C4 43 44 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 40 04 3E 04 3C 04 31 04 43 04 41 04 30 04 00 00')) //ромбуса
then
begin
buf:=HStr('C2 00 57 61 FF 04 B4 EF 4A 44 E0 F3 DB 44 23 4A AF 43 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 3A 04 35 04 3B 04 4C 04 3A 04 3C 04 30 04 40 04 3E 04 41 04 00 00')) //келькмарос
then
begin
buf:=HStr('C2 00 57 61 FF 04 9D 9B DF 44 7E 08 36 45 AD B3 0A 44 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 40 04 35 04 39 04 31 04 3E 04 00 00')) //рейбо
then
begin
buf:=HStr('C2 00 57 61 FF 04 E5 BE 04 45 53 36 F4 44 CF 56 C7 44 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 3E 04 42 04 32 04 35 04 40 04 36 04 35 04 3D 04 3D 04 4B 04 45 04 00 00')) //отвеженных
then
begin
buf:=HStr('C2 00 57 61 FF 04 AF D7 BB 44 E0 CA BA 44 FC 01 C1 44 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 41 04 35 04 40 04 3D 04 3E 04 33 04 3E 04 00 00')) //серного
then
begin
buf:=HStr('C2 00 57 61 FF 04 83 71 AF 44 F3 3A 9A 44 B5 60 B7 44 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 33 04 35 04 40 04 31 04 00 00')) //герб
then
begin
buf:=HStr('9A 00 57 59 FF D3 02 00 00 0D 00 01 00 66 71 C6 09 01 00 00 00 00 00 00 00');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 3D 04 38 04 3A 04 30 04 00 00')) //ника
then
begin
buf:=HStr('9A 00 57 59 FF D3 02 00 00 0D 00 01 00 48 9E F7 0A 01 00 00 00 00 00 00 00');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 41 04 30 04 3C 04 3E 04 40 04 35 04 41 04 00 00')) //саморес
then
begin
buf:=HStr('9A 00 57 59 FF 17 42 01 00 0E 00 01 00 44 AA 98 09 01 00 00 00 00 00 00 00');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 42 04 3A 04 38 04 41 04 30 04 41 04 00 00')) //ткисас
then
begin
buf:=HStr('C2 00 57 61 FF 04 F4 0A 1A 45 31 83 01 45 CF A1 3B 45 36');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 3B 04 30 04 32 04 3A 04 30 04 00 00')) //лавка
then
begin
buf:=HStr('9D 00 57 5A FF 9A 02 00 00 02 00 01 00 0A 00 00 00 00 00 00 00');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 3F 04 3E 04 47 04 42 04 30 04 00 00')) //почта
then
begin
buf:=HStr('9D 00 57 5A FF EF 2F 00 00 12 00 01 00 05 00 A3 04 00 00 00 00');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 40 04 35 04 3B 04 3E 04 33 04 00 00')) //релог
then
begin
buf:=HStr('9D 00 57 5A FF EF 2F 00 00 38 00 01 00 05 00 A3 04 00 00 00 00');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 0A 3E 04 3F 04 00 00')) //сброс таргета
then
begin
buf:=HStr('68 00 57 07 FF');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 0A 3E 04 3F 04 32 00 00 00')) //воскрешание
then
begin
buf:=HStr('6C 00 57 0B FF 01');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 3A 04 40 04 3F 04 31 00 00 00')) //крп1
then
begin
buf:=HStr('C2 00 57 61 FF 04 9F CF F3 44 1C 2D 84 44 15 8A A3 43 66');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('B2 00 57 71 FF 00 3A 04 40 04 3F 04 32 00 00 00')) //крп2 Крепа Запечатанная башня
then
begin
buf:=HStr('C2 00 57 61 FF 04 C8 A4 9D 44 D3 BB 4A 44 D9 25 9B 43 49');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('C2 00 57 61 FF 15 0A 00 00 00 00 00 ')) //дропинфо на команду дразнить
then
begin
buf:=HStr('B2 00 57 71 FF 0A 2F 00 2F 00 64 00 72 00 6F 00 70 00 69 00 6E 00 66 00 6F 00 00 00 ');
SendToServer;
pck:='';
end;
end.
добавил обновленный скрипт!! в строке где команда можете менять команду на свое усмотренние!!!)))
begin
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='вагабатам') then //вагабатам
begin
buf:=HStr('C2 00 57 61 FF 04 F9 8D C7 44 FD 42 AA 44 3A 7B 9B 43 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='болото вискома') then //болото вискома
begin
buf:=HStr('C2 00 57 61 FF 04 27 E0 21 44 F6 D9 A8 44 7D AF 8B 43 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='каспар') //каспар
then
begin
buf:=HStr('C2 00 57 61 FF 04 30 F1 94 44 4B 05 17 45 4B 85 2A 43 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='око') //око
then
begin
buf:=HStr('C2 00 57 61 FF 04 62 F2 04 45 5A D6 F4 44 4B A0 1D 45 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='тиграки') //тиграки
then
begin
buf:=HStr('C2 00 57 61 FF 04 4C 73 11 44 35 01 90 44 34 48 31 45 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='облака') //облака
then
begin
buf:=HStr('C2 00 57 61 FF 04 3D CE 53 45 09 05 18 45 19 EB 2C 45 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='фримум') //фримум
then
begin
buf:=HStr('C2 00 57 61 FF 04 A2 E2 85 44 0E E3 31 45 2B 82 CC 44 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='западный') //западный
then
begin
buf:=HStr('C2 00 57 61 FF 04 0A 4F 05 45 92 CB 23 44 68 B8 31 45 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='кротан') //кротан
then
begin
buf:=HStr('C2 00 57 61 FF 04 3F A9 FD 44 B4 3E A3 44 D5 2D 36 45 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='рамирен') //рамирен
then
begin
buf:=HStr('C2 00 57 61 FF 04 37 50 E3 44 BE 87 0C 45 6D 60 35 45 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='сиэли з') //сиэли з
then
begin
buf:=HStr('C2 00 57 61 FF 04 21 C4 2F 45 7C 80 21 45 F7 97 BD 44 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='сиэли в') //сиэли в
then
begin
buf:=HStr('C2 00 57 61 FF 04 5B 3A 22 45 74 35 35 45 40 60 B6 44 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='мараяс') //мараяс
then
begin
buf:=HStr('C2 00 57 61 FF 04 83 BF E4 44 90 17 F8 44 88 04 C4 43 44 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='ромбуса') //ромбуса
then
begin
buf:=HStr('C2 00 57 61 FF 04 B4 EF 4A 44 E0 F3 DB 44 23 4A AF 43 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='келькмарос') //келькмарос
then
begin
buf:=HStr('C2 00 57 61 FF 04 9D 9B DF 44 7E 08 36 45 AD B3 0A 44 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='рейбо') //рейбо
then
begin
buf:=HStr('C2 00 57 61 FF 04 E5 BE 04 45 53 36 F4 44 CF 56 C7 44 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='отвеженных') //отвеженных
then
begin
buf:=HStr('C2 00 57 61 FF 04 AF D7 BB 44 E0 CA BA 44 FC 01 C1 44 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='серного') //серного
then
begin
buf:=HStr('C2 00 57 61 FF 04 83 71 AF 44 F3 3A 9A 44 B5 60 B7 44 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='герб') //герб
then
begin
buf:=HStr('9A 00 57 59 FF D3 02 00 00 0D 00 01 00 66 71 C6 09 01 00 00 00 00 00 00 00');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='ника') //ника
then
begin
buf:=HStr('9A 00 57 59 FF D3 02 00 00 0D 00 01 00 48 9E F7 0A 01 00 00 00 00 00 00 00');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='саморес') //саморес
then
begin
buf:=HStr('9A 00 57 59 FF 17 42 01 00 0E 00 01 00 44 AA 98 09 01 00 00 00 00 00 00 00');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='ткисас') //ткисас
then
begin
buf:=HStr('C2 00 57 61 FF 04 F4 0A 1A 45 31 83 01 45 CF A1 3B 45 36');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='лавка') //лавка
then
begin
buf:=HStr('9D 00 57 5A FF 9A 02 00 00 02 00 01 00 0A 00 00 00 00 00 00 00');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='почта') //почта
then
begin
buf:=HStr('9D 00 57 5A FF EF 2F 00 00 12 00 01 00 05 00 A3 04 00 00 00 00');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='релог') //релог
then
begin
buf:=HStr('9D 00 57 5A FF EF 2F 00 00 38 00 01 00 05 00 A3 04 00 00 00 00');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='оп') //сброс таргета
then
begin
buf:=HStr('68 00 57 07 FF');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='оп2') //воскрешание
then
begin
buf:=HStr('6C 00 57 0B FF 01');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='крп1') //крп1
then
begin
buf:=HStr('C2 00 57 61 FF 04 9F CF F3 44 1C 2D 84 44 15 8A A3 43 66');
SendToServer;
pck:='';
end;
If FromClient and (ReadC(1)=$B2) and (ReadS(7)='крп2') //крп2 Крепа Запечатанная башня
then
begin
buf:=HStr('C2 00 57 61 FF 04 C8 A4 9D 44 D3 BB 4A 44 D9 25 9B 43 49');
SendToServer;
pck:='';
end;
If FromClient and (pck=Hstr('C2 00 57 61 FF 15 0A 00 00 00 00 00')) //дропинфо на команду дразнить
then
begin
buf:=HStr('B2 00 57 71 FF 0A 2F 00 2F 00 64 00 72 00 6F 00 70 00 69 00 6E 00 66 00 6F 00 00 00 ');
SendToServer;
pck:='';
end;
end.
жду предложений что добавить в скрипт!! так как былобы очень удобно иметь много чего в одном!!! (помогая друг другу мы помогаем себе)))