Вот все-таки уговорили меня выложить скрипт на халяву в массы. Скрипт на заточку пух, работает наверняка на большинстве сервов. Точит прибавляя по +1
delphi Код:
//Управление: соц.ДА-включить, соц.НЕТ-выключить
const
name=''; // поставить ник перса
var
nam:string;
x:integer;
startenchant:TTimer;
procedure Init; //Вызывается при включении скрипта
begin
startenchant:=TTimer.Create(nil);
startenchant.OnTimer:=@packets;
startenchant.enabled:=false;
startenchant.interval:=75; // поставил 75, ни нам ни вам ;) спс PanAm
end;
procedure Free;
begin
startenchant.Free;
end;
procedure packets;
begin
//не изменять этот пакет!
buf:=hstr('38 10 04 34 04 3C 04 38 04 3D 04 4B 04 21 00 20 00 4F 04 20 00 47 04 38 04 42 04 1E 04 40 04 20 00 38 04 20 00 42 04 40 04 35 04 31 04 43 04 4E 04 20 00 3F 04 43 04 45 04 43 04 20 00 3D 04 30 04 20 00 3F 04 3B 04 4E 04 41 04 20 00 3F 04 38 04 46 04 46 04 3E 04 42 04 21 00 21 00 21 00 00 00 01 00 00 00');
SendToServerEx(name);
end;
begin
if FromClient and (ConnectName=name) and (pck[1]=#$1B) and (pck[2]=#$06) then startenchant.enabled:=true;
if FromClient and (ConnectName=name) and (pck[1]=#$1B) and (pck[2]=#$05) then startenchant.enabled:=false;
if FromServer and (pck[1]=#$4A) then begin //убиваем пакет с излишним палевом
x:=10;
nam:=ReadS(x);
if (nam=name) and (pck[x]+pck[x+1]+pck[x+2]=#$10#$04#$34) then pck:='';
end;
end.
Наблюдение таково: лучше работает если в районе видимости находится какой-нибуть ГМ с переточенной пухой
Версия Камаель
delphi Код:
//Управление: соц.ДА-включить, соц.НЕТ-выключить
const
name=''; // поставить ник перса
var
nam:string;
x:integer;
startenchant:TTimer;
procedure Init; //Вызывается при включении скрипта
begin
startenchant:=TTimer.Create(nil);
startenchant.OnTimer:=@packets;
startenchant.enabled:=false;
startenchant.interval:=75; // поставил 75, ни нам ни вам ;) спс PanAm
end;
procedure Free;
begin
startenchant.Free;
end;
procedure packets;
begin
//не изменять этот пакет!
buf:=hstr('49 10 04 34 04 3C 04 38 04 3D 04 4B 04 21 00 20 00 4F 04 20 00 47 04 38 04 42 04 1E 04 40 04 20 00 38 04 20 00 42 04 40 04 35 04 31 04 43 04 4E 04 20 00 3F 04 43 04 45 04 43 04 20 00 3D 04 30 04 20 00 3F 04 3B 04 4E 04 41 04 20 00 3F 04 38 04 46 04 46 04 3E 04 42 04 21 00 21 00 21 00 00 00 01 00 00 00');
SendToServerEx(name);
end;
begin
if FromClient and (ConnectName=name) and (pck[1]=#$34) and (pck[2]=#$06) then startenchant.enabled:=true;
if FromClient and (ConnectName=name) and (pck[1]=#$34) and (pck[2]=#$05) then startenchant.enabled:=false;
if FromServer and (pck[1]=#$4A) then begin //убиваем пакет с излишним палевом
x:=10;
nam:=ReadS(x);
if (nam=name) and (pck[x]+pck[x+1]+pck[x+2]=#$10#$04#$34) then pck:='';
end;
end.
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 09.09.2008 в 19:00.
Причина: Добавлено обнуление пакета с палевом, так как я на Камаеле, то не могу проверить работу. Протестите плиз новый вариант
|