Цитата:
Сообщение от DashKAaa
конфиг своего железа скажи, какой скрпт на цп юзаешь и под какие хроники?
|
Конфиг железа:
Корпус: АТХ
БП: Термалтейк 600 ВТ
Мать: ASUS P5K Premium/AP
Проц: Intel Q6600 (степинг B3
)c кулером Термалтейк BT
Видео: GF 8800 GTS (640)
Память: 2х1 GB Corsar C4
Жесткий: 320 GB Seageate SATA2
Система не разогнана!
Скрипт:
PHP код:
//by mks
//помошник в PvP и PK.
//пьет CP и HP пробирки в нужное время(можно добавить и MP для пвп серваков), и освобождает вас от небоходимости зажатия клавиши Ctrl, которая так меня раздражает!(думаю это раздражает и не только меня)
///////////////////////////////////////////////////////
///////////////Master PvP by MKS v.1.0/////////////////
///////////////////////////////////////////////////////
//после активации скрипта необходимо выпить сначала банку CP, потом HP для получения их ID
const
Name='BblXyX0Jlb'; //ник перса
var
CurHP,MaxHP,CurCP,MaxCP: integer;
CPuse,HPuse,ObName: string;
TimerCP,TimerHP: TTimer;
procedure Init; //Вызывается при включении скрипта
begin
TimerCP:=TTimer.Create(nil);
TimerCP.OnTimer:=@OnTimerCP;
TimerCP.enabled:=false;
TimerCP.interval:=800; //интервал 1сек, т.к. чаще пить CP всеравно не будет, дабы не засорять трафик
TimerHP:=TTimer.Create(nil);
TimerHP.OnTimer:=@OnTimerHP;
TimerHP.enabled:=false;
TimerHP.interval:=13000; //интервал 15сек, т.к. действие одной бутылки = 15сек
end;
procedure OnTimerCP(Sender: TObject);
begin
buf:=CPuse;
SendToServerEx(Name);
end;
procedure OnTimerHP(Sender: TObject);
begin
buf:=HPuse;
SendToServerEx(Name);
end;
procedure Free; //Вызывается при выключении скрипта
begin
TimerCP.free;
TimerHP.free;
HPuse:='';
CPuse:='';
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
//пьем сначала CP, потом HP банку что б запомнить их ID(я решил взять эти пакеты целиком, дабы не усложнять)
if FromClient and (ConnectName=Name) and (pck[1]=#$14) and (CPuse='') then CPuse:=pck;
if FromClient and (ConnectName=Name) and (pck[1]=#$14) and (CPuse<>pck) and (HPuse='') then HPuse:=pck;
if FromServer and (ConnectName=Name) and (pck[1]=#$04) then
ObName:=pck[18]+pck[19]+pck[20]+pck[21];
//считываем текущие и максимальные значения CP и HP
if FromServer and (pck[1]+pck[6]=#$0E#$04) and (pck[2]+pck[3]+pck[4]+pck[5]=ObName) then
begin
CurHP:=ReadD(14);
MaxHP:=ReadD(22);
CurCP:=ReadD(30);
MaxCP:=ReadD(38);
end;
end.
На сервере стоит интерлюдия
Добавлено через 7 минут
Да и чуть не забыл, играю обычно через 1,79 ИГ валкер, + 5 ботов через 10.8.6 ООГ валкер. LPacketHack перехватывает только клиента, ООГ идут естественно через WP 5,07. Вот, вроде всё выложил
