[WPF Script] Urgent TP - Используем телепорт во время боя
Баг на телепорт во время боя давно известен, по этому я не претендую на авторство. Я только автоматизировал использование этого бага.
Итак для инициализации скрипта наберите команду /UTP INI. Затем используйте ТП из инвентаря, который вы желаете инициализировать как телепорт по умолчанию. Желательно использовать ТП в ГШ, т.к. он самый дешевый. Теперь, когда вам пришло подтверждение инициализации - установите на быструю панель иконку социала "Плач" (она не имеет анимации и абсолютно бесполезна в игре). Теперь, когда вам угрожает опасность - кликайте на иконке и перемещайтесь в ГШ.
Напоминаю, что за использование багов вы можете получить бессрочный бан. Так что пользуйтесь с умом на свой страх и риск.
Procedure MsgInfo(msg : string);
begin
gSys.EnSendC(FormatPck('%hcdacha',***91;$0A02,02,0,'***91;!***93;'+FStr(16),Length(msg) + 2,$203A,msg+#0***93;));
gsys.sleep(15);
end;
BEGIN
if length(_gBuff) < 4 then exit;
PID:= GInt(_gBuff,3,2);
if not (_gFromServ) then
case PID of
$0302: begin
if strcmp(copy(_gBuff,5,namel),name) then
begin
if strcmp(copy(_gBuff,le,inil),ini) then
begin
flag:=true;
MsgInfo('UrgentTP запущен');
MsgInfo('используйте ТП из инвентаря');
MsgInfo('для инициализации');
end;
gBlockPacket;
end;
end;
$1A04: if flag then
begin
itemID:= GInt(_gBuff,5,1);
flag:= false;
init:= true;
gBlockPacket;
MsgInfo('ТП инициализирован успешно');
end;
$160D: if (GInt(_gBuff,5,1) = 7) and init then gSys.SendS(FormatPck('%hcc',***91;$1A04,itemID,0***93;));
end;
if _gFromServ then
case PID of
$660D: begin
MsgInfo('Welcome to UrgentTP v.1.0');
MsgInfo('скрипт (c) broveymimo, 2010');
MsgInfo('');
MsgInfo('/UTP INI для запуска скрипта');
MsgInfo('после запуска используйте ТП');
MsgInfo('из инвентаря для инициализации');
end;
end;
END.
Последний раз редактировалось broveymimo; 09.02.2010 в 14:39.
Рабочий, но для его использования ты должен сначала отловить пакет на ТП для своего персонажа, потом отредактировать скрипт под себя, а в моем все делается удобно из клиента.
Я не оказываю услуги гаранта!
База данных кидал: blacklist.rf-cheats.ru
Обязательно проверяйте человека через чёрный список прежде чем совершать с ним сделку.
естественно, когда ты бежишь клиент не может использовать эмоцию, по этому и не получается сделать ТП. можно пофиксить, если вместо эмоции юзать что нибудь другое, например какую нибудь вещь из инвентаря. На каком сервере ты пользуешься этим скриптом?
ИМХО проще всего сделать тп по команде из чата, а чтобы не тормозить в бою, забить ее в макрос.
Например так
По команде "/UTP TP" должен произойти телепорт.
Код:
// UrgentTP v.1.0. (c) broveymimo
// Запуск SendPMessage("UTP","INI")
var le,inil,portl,namel,PID,itemID:integer;
ini,port,name:string;
flag,init:boolean;
procedure OnCreate;
begin
le:=23;
ini:='INI';
inil:=length(ini);
port:='TP';
portl:=length(port);
name:='UTP';
namel:=length(name);
flag:=false;
init:=false;
end;
Procedure MsgInfo(msg : string);
begin
gSys.EnSendC(FormatPck('%hcdacha',[$0A02,02,0,'[!]'+FStr(16),Length(msg) + 2,$203A,msg+#0]));
gsys.sleep(15);
end;
BEGIN
if length(_gBuff) < 4 then exit;
PID:= GInt(_gBuff,3,2);
if not (_gFromServ) then
case PID of
$0302: begin
if strcmp(copy(_gBuff,5,namel),name) then
begin
if strcmp(copy(_gBuff,le,inil),ini) then
begin
flag:=true;
MsgInfo('UrgentTP запущен');
MsgInfo('используйте ТП из инвентаря');
MsgInfo('для инициализации');
end;
if strcmp(copy(_gBuff,le,portl),port) and init then gSys.SendS(FormatPck('%hcc',[$1A04,itemID,0]));
gBlockPacket;
end;
end;
$1A04: if flag then
begin
itemID:= GInt(_gBuff,5,1);
flag:= false;
init:= true;
gBlockPacket;
MsgInfo('ТП инициализирован успешно');
end;
$160D: if (GInt(_gBuff,5,1) = 7) and init then gSys.SendS(FormatPck('%hcc',[$1A04,itemID,0]));
end;
if _gFromServ then
case PID of
$660D: begin
MsgInfo('Welcome to UrgentTP v.1.0');
MsgInfo('скрипт (c) broveymimo, 2010');
MsgInfo('');
MsgInfo('/UTP INI для запуска скрипта');
MsgInfo('после запуска используйте ТП');
MsgInfo('из инвентаря для инициализации');
end;
end;
END.
Последний раз редактировалось BlowUminD; 10.04.2010 в 12:52.
Причина: Добавлено сообщение
ИМХО проще всего сделать тп по команде из чата, а чтобы не тормозить в бою, забить ее в макрос.
как раз об этом и я думал, но ты меня опередил
Добавлено через 59 секунд
А еще ТП можно забиндить на какой нибудь "неиспользуемый" баф или скил
Добавлено через 4 минуты
А еще проще, без всяких макросов, сделать ТП при отправке в белый чат, например "1", ну или кому что быстрее и удобнее нажимать. Делается так - мышкой послали перса убегать, а сами нажимаем t - 1 - Enter. Быстро и удобно. По повоу ложных срабатываний - вряд ли вам когда нибудь нужно будет в белый чат отправлять 1 в игре, так что по этому поводу переживать не нужно.
Последний раз редактировалось broveymimo; 10.04.2010 в 20:12.
Причина: Добавлено сообщение
