// телепортация допингом (без обвязки)
// написан 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.
Скрипты работают на серверах БЕЗ ШИФРОВКИ пакетов.
Последний раз редактировалось dark; 19.04.2017 в 14:53.
Я не оказываю услуги гаранта!
База данных кидал: blacklist.rf-cheats.ru
Обязательно проверяйте человека через чёрный список прежде чем совершать с ним сделку.
А фишка то в чём? Объясните. Я бы на оффе затестил.
Likelihood +80 постов
Скрытый текст (вы должны войти под своим логином или зарегистрироваться и иметь 1000 сообщение(ий)):
У вас нет прав чтобы видеть скрытый текст, содержащейся здесь.
Чтобы его прочитать, вы должны заработать сообщения. Как это сделать бесплатно, описано в правилах форума. Как купить доступ, описано в Платных услугах.
А фишка то в чём? Объясните. Я бы на оффе затестил.
Скрытый текст (вы должны войти под своим логином или зарегистрироваться и иметь 800 сообщение(ий)):
У вас нет прав чтобы видеть скрытый текст, содержащейся здесь.
Чтобы его прочитать, вы должны заработать сообщения. Как это сделать бесплатно, описано в правилах форума. Как купить доступ, описано в Платных услугах.
Фишки на самом деле вообще нет. Соц действие можно использовать в бою.
При этом этот пакет блокируется и и идет использование телепорта. И при этом не надо настраивать допинги. Так что это намного более неудобный скрипт, чем из этой темы https://www.rf-cheats.ru/forum/showthread.php?t=47689
За что ей дали статус важная непонятно.
Передаю вещи между расами на фри серверах( phenix, binaris и др). Подробнее в пм.
Антимины, антиинвиз, фильтр и др для пвпвара и других фришек здесь
Фишки на самом деле вообще нет. Соц действие можно использовать в бою.
При этом этот пакет блокируется и и идет использование телепорта. И при этом не надо настраивать допинги. Так что это намного более неудобный скрипт, чем из этой темы https://www.rf-cheats.ru/forum/showthread.php?t=47689
За что ей дали статус важная непонятно.
2Nightshade2:
Цитата:
Сообщение от Andrew
небольшой фикс, при атаке других игроков (на bsb) - работает тока когды ты стоишь =\
можно ли это пофиксить?!)))
Цитата:
Сообщение от broveymimo
естественно, когда ты бежишь клиент не может использовать эмоцию, по этому и не получается сделать ТП. можно пофиксить, если вместо эмоции юзать что нибудь другое, например какую нибудь вещь из инвентаря. На каком сервере ты пользуешься этим скриптом?
Ты думаешь я просто так это придумал - от нечего делать? Естественно, я проверял возможность использования соцдействий - меня скорость их срабатывания не удовлетворила. А насчет инициализации тп и допинга - в указанном тобой скрипте тоже проходит инициализация. Насчет важности - это к Дарку, и желательно в личку - нефиг скандалы на форуме раздувать из ничего.
Последний раз редактировалось Likelihood; 08.09.2011 в 19:18.
Я не оказываю услуги гаранта!
База данных кидал: blacklist.rf-cheats.ru
Обязательно проверяйте человека через чёрный список прежде чем совершать с ним сделку.