[@Likelihood]

Телепортация допингом.

// телепортация допингом (без обвязки)
// написан Likelihood
//
//    Команды в "личный" чат WPF
//
// Переназначение допинга-телепорта:
//   /WPF rt
//   /WPF рт
//
// Включить допинг-телепорт:
//   /WPF t+
//   /WPF т+
//
// Отключить допинг-телепорт:
//   /WPF t-
//   /WPF т-
//
Var
SCR:String;
SL:Integer;
FD:Integer;
FT:Integer;
PD:String;
PT:String;
P:String;
SH:Variant;
Procedure OnCreate;
Begin
 FT:=0;
 FD:=1;
 PD:='';
 PT:='';
 SCR:='020B040000000000575046000000000D000000000000000000FF00';
End;
Begin
If (Not _gFromServ) Then Begin
 If (Copy(_gBuff,3,5)=HStr('0203575046')) Then Begin
  If (Copy(_gBuff,23,2)=HStr('7274')) Or (Copy(_gBuff,23,2)=HStr('F0F2')) Then Begin
   gBlockPacket;
   FT:=0;
   PD:='';
   PT:='';
   P:='Переназначение допинга-телепорта.';
   SL:=Length(P);
   SH:=HPck(SCR+IntToHex(SL,2)+BufToHex(P)+'00');
   gSys.SendC(SH);
   P:='Активируйте (нажмите) допинг, которым хотите в дальнейшем телепортироваться.';
   SL:=Length(P);
   SH:=HPck(SCR+IntToHex(SL,2)+BufToHex(P)+'00');
   gSys.SendC(SH);
  End Else If (Copy(_gBuff,23,2)=HStr('742B')) Or (Copy(_gBuff,23,2)=HStr('F22B')) Then Begin
   gBlockPacket;
   FD:=1;
   P:='Включение допинга-телепорта.';
   SL:=Length(P);
   SH:=HPck(SCR+IntToHex(SL,2)+BufToHex(P)+'00');
   gSys.SendC(SH);
  End Else If (Copy(_gBuff,23,2)=HStr('742D')) Or (Copy(_gBuff,23,2)=HStr('F22D')) Then Begin
   gBlockPacket;
   FD:=0;
   P:='Отключение допинга-телепорта.';
   SL:=Length(P);
   SH:=HPck(SCR+IntToHex(SL,2)+BufToHex(P)+'00');
   gSys.SendC(SH);
  End;
 End;
 If (Copy(_gBuff,1,5)=HStr('0F00070700')) And (FT>-1) Then Begin
  P:='Допинг активирован. Активируйте (нажмите) телепорт, которым будете портаться в дальнейшем с помощью выбранного допинга.';
  SL:=Length(P);
  SH:=HPck(SCR+IntToHex(SL,2)+BufToHex(P)+'00');
  gSys.SendC(SH);
  P:='Если Вы ошиблись с допингом, активируйте (нажмите) другой, необходимый Вам.';
  SL:=Length(P);
  SH:=HPck(SCR+IntToHex(SL,2)+BufToHex(P)+'00');
  gSys.SendC(SH);
  P:='В качестве телепорта желательно использовать любой из телепортов к ПБ.';
  SL:=Length(P);
  SH:=HPck(SCR+IntToHex(SL,2)+BufToHex(P)+'00');
  gSys.SendC(SH);
  PD:=BufToHex(Copy(_gBuff,1,15));
  FT:=1;
 End;
 If (Copy(_gBuff,1,4)=HStr('0600041A')) And (FT>0) Then Begin
  PT:=BufToHex(Copy(_gBuff,1,6));
  FT:=-1;
 End;
 If (Copy(_gBuff,1,15)=HStr(PD)) And (FT=-1) And (FD=1) Then Begin
  _gOutBuff:=HStr(PT);
 End;
End;
End.

// телепортация допингом (с обвязкой)
// написан Likelihood
//
//    Команды в "личный" чат WPF
//
// Переназначение допинга-телепорта:
//   /WPF rt
//   /WPF рт
//
// Включить допинг-телепорт:
//   /WPF t+
//   /WPF т+
//
// Отключить допинг-телепорт:
//   /WPF t-
//   /WPF т-
//
Var
SCR:String;
SL:Integer;
FD:Integer;
FT:Integer;
PD:String;
PT:String;
P:String;
SH:Variant;
Procedure OnCreate;
Begin
 FT:=0;
 FD:=1;
 PD:='';
 PT:='';
 SCR:='020B040000000000575046000000000D000000000000000000FF00';
End;
Begin
If (Not _gFromServ) Then Begin
 If (Copy(_gBuff,5,5)=HStr('0203575046')) Then Begin
  If (Copy(_gBuff,25,2)=HStr('7274')) Or (Copy(_gBuff,25,2)=HStr('F0F2')) Then Begin
   gBlockPacket;
   FT:=0;
   PD:='';
   PT:='';
   P:='Переназначение допинга-телепорта.';
   SL:=Length(P);
   SH:=HPck(BufToHex(HPck(SCR+IntToHex(SL,2)+BufToHex(P)+'00'))+'04000000');
   gSys.SendC(SH);
   P:='Активируйте (нажмите) допинг, которым хотите в дальнейшем телепортироваться.';
   SL:=Length(P);
   SH:=HPck(BufToHex(HPck(SCR+IntToHex(SL,2)+BufToHex(P)+'00'))+'04000000');
   gSys.SendC(SH);
  End Else If (Copy(_gBuff,25,2)=HStr('742B')) Or (Copy(_gBuff,25,2)=HStr('F22B')) Then Begin
   gBlockPacket;
   FD:=1;
   P:='Включение допинга-телепорта.';
   SL:=Length(P);
   SH:=HPck(BufToHex(HPck(SCR+IntToHex(SL,2)+BufToHex(P)+'00'))+'04000000');
   gSys.SendC(SH);
  End Else If (Copy(_gBuff,25,2)=HStr('742D')) Or (Copy(_gBuff,25,2)=HStr('F22D')) Then Begin
   gBlockPacket;
   FD:=0;
   P:='Отключение допинга-телепорта.';
   SL:=Length(P);
   SH:=HPck(BufToHex(HPck(SCR+IntToHex(SL,2)+BufToHex(P)+'00'))+'04000000');
   gSys.SendC(SH);
  End;
 End;
 If (Copy(_gBuff,1,7)=HStr('15000F00070700')) And (FT>-1) Then Begin
  P:='Допинг активирован. Активируйте (нажмите) телепорт, которым будете портаться в дальнейшем с помощью выбранного допинга.';
  SL:=Length(P);
  SH:=HPck(BufToHex(HPck(SCR+IntToHex(SL,2)+BufToHex(P)+'00'))+'04000000');
  gSys.SendC(SH);
  P:='Если Вы ошиблись с допингом, активируйте (нажмите) другой, необходимый Вам.';
  SL:=Length(P);
  SH:=HPck(BufToHex(HPck(SCR+IntToHex(SL,2)+BufToHex(P)+'00'))+'04000000');
  gSys.SendC(SH);
  P:='В качестве телепорта желательно использовать любой из телепортов к ПБ.';
  SL:=Length(P);
  SH:=HPck(BufToHex(HPck(SCR+IntToHex(SL,2)+BufToHex(P)+'00'))+'04000000');
  gSys.SendC(SH);
  PD:=BufToHex(Copy(_gBuff,1,21));
  FT:=1;
 End;
 If (Copy(_gBuff,1,6)=HStr('0C000600041A')) And (FT>0) Then Begin
  PT:=BufToHex(Copy(_gBuff,1,12));
  FT:=-1;
 End;
 If (Copy(_gBuff,1,21)=HStr(PD)) And (FT=-1) And (FD=1) Then Begin
  _gOutBuff:=HStr(PT);
 End;
End;
End.

Скрипты работают на серверах БЕЗ ШИФРОВКИ пакетов.