[Скрипт] Мини радар и антихайд

[caries]

Ниже привожу скрипт для L2hpx который не даст вражеской расе напасть на вас внезапно .
Клиент 2.1

var
map: integer;
procedure Init; //Вызывается при включении скрипта
begin

end;

procedure Free; //Вызывается при выключении скрипта
begin
end;

procedure readplayerinfo; //тут разбираем пакет CM_PLAYER_INFO
var
 mask, i, c, plase, tmp, visual, hp, lv: integer;
 s, name, leg, start: string;
 x,y,z: real;
begin
     start:='';
     if readc($1e)=0 then begin // 0 елийцы 1 асмодиане
        start:='НЯХА !!! НЯХА !!! НЯХА !!!'; 
        x:=round(readn($4));
        y:=round(readn($8));
        z:=round(readn($c));
        plase:=$2c;
        name:=reads(plase);
        plase:=plase+17;
        leg:=reads(plase);
        plase:=plase+4;
        mask:=readh(plase);
        c:=0;
        for i:=0 to 15 do c:=c+((mask shr i)and 1);
        plase:=plase+14*c+91;
        plase:=plase+22; //25
        visual:=plase;
        plase:=plase+1;
        tmp:=plase;
        s:=reads(plase);
        lv:=plase;           
        sendmymsg(start+' - [pos:'+name+';'+inttostr(map)+' '+floattostr(x)+' '+floattostr(y)+' '+floattostr(z)+' -1] - '+inttostr(readh(lv))+' lvl  ');
        buf:=pck;
        pck:='';
        writec(0,visual); //тут делаем невидимых нях - видимыми )))
        SendToClient;
     end;

end;

procedure sendmymsg(s:string);
begin
     WriteC($17);
     WriteH(54352);
     WriteC(23);  
     WriteC(0);
     WriteD(0); 
     WriteH(0);
     WriteS(s);
     SendToClient;
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
     if pck='' then exit; 

     if FromServer then begin
        case pck[1] of
           #$1f: begin 
                    readplayerinfo;
                end;  
           #$2c:begin
                     map:=readd($4);
                end; 
           #$48:begin
                  if (readh($D)=559) or (readh($D)=851) or (readh($D)=582) then pck:='';   //не дадим чувакам уходить в хайд
                end;
           #$63: begin
                 if readc($8)<>0 then begin
                    buf:=pck;
                    pck:='';
                    writec(0,$8);
                    SendtoClient;  // и тут тоже )))
                    sendmymsg('Кто-то в хайде!!!');
                 end;
           end; 
        end;
     end;
end.

этот скрипт работает не совсем корректно если вражеский персонаж летит на такси, т.е. неправильно отображает уровень персонажа, если кто решить проблему отпишитесь.

Перед употреблением проверьте синтаксис, т.к. это вырезка из скрипта мог где то лишнее вырезать или наоборот не убрать.

Кому помогло - жмем спасибо.

[Aoi Hana]

а если на асмиков ставить скрипт, только if readc($1e)=1 then begin // 0 елийцы 1 асмодиане тут менять или еще где?

[caries]

да только в этом месте

[Mongol]

Блин, скрипт убирает анимацию бега в хайде и откат хайда(

[Tr0y]

Цитата: Сообщение от Mongol Блин, скрипт убирает анимацию бега в хайде и откат хайда(

Добавить свой ид в исключения к блокировке и все будет ок

[lk2009]

Цитата: Сообщение от Aoi Hana а если на асмиков ставить скрипт, только if readc($1e)=1 then begin // 0 елийцы 1 асмодиане тут менять или еще где?

Цитата: Сообщение от caries да только в этом месте

writec(0,visual); //тут делаем невидимых нях - видимыми ))) - а тут разве не надо 0 поменять на 1 для асмов?



зы: ой, походу ненадо))я вообще негров не видел))изменил обратно стало норм)

[alelllka5259923]

А где исключения куда свой ид вписывать ?

Добавлено через 1 час 8 минут
народ скажите что изменить для эла убийци помогите плиз

[soil48]

как сделать негров видимыми? только нях вижу

[Mongol]

Цитата: Сообщение от soil48 как сделать негров видимыми? только нях вижу

нолик на еденицу поменяй

if readc($1e)=0 then begin // 0 елийцы 1 асмодиане

[=CLOSED=]

Да, подскажите плз как добавить свой ID в исключение?

[Tr0y]

Цитата: Сообщение от =CLOSED= Да, подскажите плз как добавить свой ID в исключение?

Цитата: #$48:begin if (readh($D)=559) or (readh($D)=851) or (readh($D)=582) then pck:=''; //не дадим чувакам уходить в хайд end;

Возможно это пакет, не понимаю для чего тут "$D" при чтении, возможно нужно покурить мануалы Посомтрите, когда приходит пакет, начинающийся на 48, быстрее всего в нем также используется ид персонажа

[caries]

Цитата: Сообщение от =CLOSED= Да, подскажите плз как добавить свой ID в исключение?

зачем добавлять свой ID в исключение!!!???

if readc($1e)=0 then begin // 0 елийцы 1 асмодиане

в этой строке ставишь не свою расу т.е. если ты асмодианин то ставишь 0 и все функция будет отрабатывать только одну рассу к которой ты не принадлежишь. А насчет невозможности уйти в хайд. Это только визуальный эффект который видишь только ты, т.е. реално для других ты в хайде ))))

[=CLOSED=]

Я асмодианин, но всё равно я вижу всех в хайде, но это не такая уж большая проблема.

Вот единственное непиятно что со скриптом кд маскировки 2 начинает глючить, я не вижу сколько у меня ещё откат. А вот с Теневым шагом всё норм, кд норм работает

[Mongol]

Цитата: Сообщение от lk2009 я нях, в инвизе вижу ток своих,что поменять чтобы видел в инвизе негров?

Тут нолик на еденицу поменяй

if readc($1e)=0 then begin // 0 елийцы 1 асмодиане

[lk2009]

Цитата: Сообщение от Mongol Тут нолик на еденицу поменяй

так поменяно уже)) не видит.... это же вроде отвечает только за обнаружение нях/негров или за хайд тоже?