Полезный постоянный скрипт убирающий неудобства в игре.
1) Блокирует запросы ГМ листа
2) Исправляет пакет Move To Location, если бот отказывается ходить и делает тп или еще что
при попытке передвигатся.
3) блокировщик спама с мдт в системный чат
4) Исправляет багнутый пакет от клиента DlgAnswer
5) Ище что-то по мелочи уже непомню
Код
var messid,tms:integer;
procedure Init; //Вызывается при включении скрипта
begin
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
If fromclient and (pck=hstr('2F 29 05 00 00 01 00 00 00 00')) then pck:='';
If fromclient and (pck[1]=#$2D) then pck:='';
If fromclient and (pck=hstr('81')) then pck:='';
if FromClient and (pck[1]=#$01) then if LENGTH(pck) < 29 then pck:=pck+hstr('01 00 00 00');
if FromClient and (pck[1]=#$C5) then
begin
messid:=ReadD(2);
pck:='';
buf:=#$C5;
WriteD(messid);
WriteD(1);
SendToServer;
end;
if FromServer and (pck[1]=#$64) then
begin
tms:=ReadD(2);
//блокировщик спама с мдт в системный чат
if tms = 816 then pck:='';
if tms = 817 then pck:='';
if tms = 818 then pck:='';
if tms = 819 then pck:='';
if tms = 820 then pck:='';
if tms = 821 then pck:='';
if tms = 822 then pck:='';
if tms = 823 then pck:='';
if tms = 824 then pck:='';
if tms = 825 then pck:='';
if tms = 826 then pck:='';
end;
end.
