[jpg]

Скрипт сливает перса на гварде лучника в глудио.
Для shock-world.com

Обновил 28,7:08
Обновил 28,7:59 - Немного "облегчил" и добавил юзание пенальти свитков
Финалка, далее обновлять не буду.

Минусы:
1. Слив бесконечный
2. Если нет\не видно гварда скрипт повиснет(не будет выполнятся)
3. Если гварда убили нужно по новой вписать пакеты 0x1F (Action) и 0x01 (AttackRequest)

Перед началом выполнения скрипта вам придется вставить свои пакеты 0x1F (Action) и 0x01 (AttackRequest), а так же если будете использовать деспенальти свитки 0x19 (UseItem)

Я сливаюсь нормально с 80 до 70-65 уровня

//Спасибо xkor'у за помощь,  Скрипт by jpg & ArbuZiK.
//===============================
//===============================
// ПЕРЕД ИСПОЛЬЗОВАНИЕМ ВАМ НУЖНО ВСТАВИТЬ СВОИ ПАКЕТЫ  0x1F (Action) , 0x01 (AttackRequest)
// И ЕСЛИ ВЫ БУДЕТЕ ЮЗАТЬ ПЕНАЛЬТИ 0x19 (UseItem) 
//===============================
//Когда все сделаете, включите скрипт и начните бить гварда.
//===============================
// 0x1F (Action) ВЫДЕЛЕНИЕ (ТАРГЕТ) ГВАРДА. ЛУЧНИКА НА ВОСТОЧНЫХ ВОРОТАХ, ЕСЛИ ПО КАРТЕ, ТО ЭТО ПРАВЫЕ ВОРОТА
// 0x01 (AttackRequest) АТАКА ГВАРДА.
// 0x19 (UseItem) ИСПОЛЬЗУЕМ ДЕСПЕНАЛЬТИ СВИТОК.

Const
 CheckDeath=0; // Использовать ли Свитки Пенальти?  1 - да, 0 - нет
 DthP='19 F5 69 85 13 00 00 00 00'; // Пакет использования Свитка Пенальти, 0x19 (UseItem)
 Target='1F 62 F2 92 13 AE D1 FF FF F0 E2 01 00 F5 F3 FF FF 00'; // Пакет таргет гварда
 AtakaG='01 62 F2 92 13 AE D1 FF FF F0 E2 01 00 F5 F3 FF FF 00'; // Пакет бить гварда
 
//--------------
//--------------
procedure Atake;  // атаке!!! :'(
begin
buf:=HStr(Target); // 0x1F (Action)
SendToServer;
buf:=HStr(AtakaG); // 0x01 (AttackRequest)
SendToServer;
end;
//--------------
procedure IceSki;  // НадЫваем коньки!!!
begin
buf:=HStr('7D 00 00 00 00');
SendToServer;
end;
//--------------
procedure Death(dth:string); // Пенальти
begin
 buf:=HStr(dth);
 delay(1000);
 SendToServer;
 end;
//--------------
//--------------
begin
if FromServer and (pck[1]=#$28) then
 begin
 IceSki;
 end;
if fromserver and (pck[1]=#$F9) and (ReadD($001A)=1) and (CheckDeath=1) then
 begin
 Death(DthP); 
 end; 
if FromServer and (pck[1]=#$32) then
 begin
 buf:=HStr('0F CD C7 FF FF 51 E3 01 00 B9 F3 FF FF 06 C8 FF FF AA E4 01 00 D2 F3 FF FF 01 00 00 00');   // Go
 delay(3000); // Если убрать можно повиснуть, да и вообще палевно без задержки )))
 SendToServer;
 end;
if FromClient and (pck[1]=#$59) and (ReadD($0002)>-14631) and (ReadD($0002)<-14152) and (ReadD($0006)>123503) and (ReadD($0006)<123823) then //Область 1
 begin
 buf:=HStr('0F B1 D1 FF FF F0 E2 01 00 DD F3 FF FF B6 D1 FF FF D5 E2 01 00 F6 F3 FF FF 01 00 00 00');   // Go2
 SendToServer;
 end;
if FromClient and (pck[1]=#$59) and (ReadD($0002)>-11894) and (ReadD($0002)<-11683) and (ReadD($0006)>123519) and (ReadD($0006)<123743) then  //Область 2
 begin
 Atake;
 end;
end.