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

[Igor321]

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

[lk2009]

Цитата: Сообщение от Igor321 writec(0,visual); //тут делаем невидимых нях - видимыми ))) я так понимаю, что бы видеть асмов то 0 надо поменять на 1?

фиг знает,я менял и я просто не видел негров...вообще....они есть,но я их не вижу и на карте точек нет...хотя мож у меня чёт логануло...

Кто всё таки знает что поменять чтобы асмов в хайде видеть?

[Oplod]

Гамаю за асмо - все пашит на Ура, вчера Гма спалили - рядом ходил няхой xD ,лови спс!

[Drelann]

жалко свою расу незя видить, небольшие глюки своего хайда - жалко, хорошая идея

[ceutap]

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

[pyatins]

Цитата: Сообщение от ceutap ребят чет у меня не юзает или что... что долно произойти если рядом няха? или тут скрипт надо настроить как то? я играз за асмов скажите как пользоаться скриптом этим заранее спасибо

Если вражеская раса появляется в пределах вашей видимости(даже если она в маскировке) этот скрипт посылает сообщение в ваш чат о приблежении врага, в котором пишется уровень и ник этого персонажа.
Для игры за асмодиан вам достаточно поставить цыфру 0 в единственной строке - if readc($1e)=0 then begin // 0 елийцы 1 асмодиане.

[Aoi Hana]

а можно ли дополнить скриптик, чтобы писался еще и класс врага, например, <имя> <класс> <левел>? Если мог бы кто так сделать, была бы очень благодарна

[Drelann]

Aoi Hana, приобщи в скрипт пакет 1F
Boogerman, свои тоже палят, а врагам просто достаточно заскринить твой таргет

[Aoi Hana]

Drelann, я пока что в настройках/подстройках скриптов не сильна, если не сложно можешь написать, как должно быть с учетом моей просьбы выше? конечно же, с меня пасибки)

[rpg251]

Элийцев вижу, когда цифра 0 по умолчанию. А асмов нет. Хотя меняю цифру на 1.

[hand0]

скрипт кул, спс.

немного тюнинга)
после if readc($1e)=0 then begin // 0 елийцы 1 асмодиане добавить

class:=readc($1F);
strclass := '';
if class = 1 then
strclass:= 'глад';
if class = 2 then
strclass:= 'страж';
if class = 4 then
strclass := 'син';
if class = 5 then
strclass:= 'лук';
if class = 7 then
strclass:= 'сорк';
if class = 8 then
strclass:= 'см';
if class = 10 then
strclass:= 'клер';
if class = 11 then
strclass:= 'чар';

sendmymsg(start+' - [pos:'+name+';'+inttostr(map)+' '+floattostr(x)+' '+floattostr(y)+' '+floattostr(z)+' -1] - '+inttostr(readh(lv))+' lvl '); заменить на
sendmymsg(start+' - [pos:'+name+';'+inttostr(map)+' '+floattostr(x)+' '+floattostr(y)+' '+floattostr(z)+' -1] - '+strclass+' '+inttostr(readh(lv))+' lvl ');

ну и добавить объявления переменных class: integer и strclass: string

ну и еще иногда пишет левел 0, с этим еще не разобрался.

[MET1234]

То что ты дописал дополнительные функции это клёва,но не мог бы ты сразу выложить полный скрипт для нях\асмо.
P.S.Думаю тебе многие скажут спс, если ты зделаеш как я тебя прошу

Добавлено через 53 минуты
Ну так как у меня если некий опыт с паскалём(учил по информатике).Это с учётом тюненга пользователя hand0
Сделал я так скрипт для нях

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

end;

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

procedure readplayerinfo; //тут разбираем пакет CM_PLAYER_INFO
var
 mask, i, c, plase,tmp, visual, hp, class: integer; lv: integer;
 s, name, leg, strclass: string; start: string;
 x,y,z: real;
begin
     start:='';
     if readc($1e)=1 then begin // 0 елийцы 1 асмодиане
     class:=readc($1F);
 strclass := '';
 if class = 1 then
 strclass:= 'глад';
 if class = 2 then
 strclass:= 'страж'; 
 if class = 4 then 
 strclass := 'син';
 if class = 5 then
 strclass:= 'лук';
 if class = 7 then
 strclass:= 'сорк';
 if class = 8 then
 strclass:= 'см';
 if class = 10 then
 strclass:= 'клер'; 
 if class = 11 then
 strclass:= 'чар';
        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] - '+strclass+' '+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.

А теперь для асмо

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

end;

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

procedure readplayerinfo; //тут разбираем пакет CM_PLAYER_INFO
var
 mask, i, c, plase,tmp, visual, hp, class: integer; lv: integer;
 s, name, leg, strclass: string; start: string;
 x,y,z: real;
begin
     start:='';
     if readc($1e)=0 then begin // 0 елийцы 1 асмодиане
     class:=readc($1F);
 strclass := '';
 if class = 1 then
 strclass:= 'глад';
 if class = 2 then
 strclass:= 'страж'; 
 if class = 4 then 
 strclass := 'син';
 if class = 5 then
 strclass:= 'лук';
 if class = 7 then
 strclass:= 'сорк';
 if class = 8 then
 strclass:= 'см';
 if class = 10 then
 strclass:= 'клер'; 
 if class = 11 then
 strclass:= 'чар';
        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] - '+strclass+' '+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.

P.S.Надеюсь у вас заработает скрипт.

Добавлено через 1 час 20 минут
Остаётся одна проблема когда юзаеш маскеровку то не видно отката скила и что ты в маскеровке(т.е. маскеровка есть но ты не на присядках ходиш а простым бегом идёш, но сеорость снижается как и при маскеровке без скрипта))
P.S.S.Незнаю видит или замаскерованых нях\асмо, проверьте просто нет возможности!!!

[lk2009]

поставил посту выше спасибку, но по прежнему играя за нях не вижу асмов в маскеровке...и по коду я понял что должна высвечиваться надпись что кто-то в инвизе,её тоже нет...помогите исправить это

[MET1234]

Цитата: Сообщение от MET1234 writec(1,visual); //тут делаем невидимых нях - видимыми )))

Цитата: Сообщение от MET1234 readc($8)<>0 then begin buf:=pck; pck:=''; writec(0,$8); SendtoClient; // и тут тоже ))) sendmymsg('Кто-то в хайде!!!');

Ну я подозреваю что ошибка поиска хайда таится в этих значения (красных).Я попытаюсь сёдня по эксперементировать с разными значениями.НО.Не гарантирую что найду эту дырку в инвизе.

Добавлено через 2 минуты
Ах да забыл спросить работает у вас скриптя что я модифицировал!!!

[Mongol]

MET1234, скрипт конешн классный, показывает классы как и положено, но есть одно но, при включении скрипта он у меня прячит всех нях, а именно няхи могут дать мну по щам а я даже не смогу их в таргет взять, как будт-то их вообще нет, на радаре их тоже не будет

С прошлым скриптом так у меня было только на некоторых няхах, а с этим теперь на всех =))