[Скрипт] ТП по локе

[aion programmer]

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

PHP код:

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. 


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