|
Мини радар и антихайд - Баги и читы для Aion - Баги и читы, прочие уязвимости игры Aion |
04.05.2011, 15:34
|
#16
|
|
|
|
Разведчик
|
Регистрация: 30.06.2010
Сообщений: 13
Популярность: 10
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Мини радар и антихайд
writec(0,visual); //тут делаем невидимых нях - видимыми )))
я так понимаю, что бы видеть асмов то 0 надо поменять на 1?
|
|
|
04.05.2011, 20:19
|
#17
|
|
|
|
Разведчик
|
Регистрация: 26.02.2011
Сообщений: 34
Популярность: 20
Сказал(а) спасибо: 10
Поблагодарили 5 раз(а) в 3 сообщениях
|
Re: Мини радар и антихайд
|
|
|
05.05.2011, 10:54
|
#18
|
|
|
|
Разведчик
|
Регистрация: 05.01.2011
Сообщений: 35
Популярность: 18
Сказал(а) спасибо: 25
Поблагодарили 4 раз(а) в 3 сообщениях
|
Re: Мини радар и антихайд
Гамаю за асмо - все пашит на Ура, вчера Гма спалили - рядом ходил няхой xD ,лови спс!
|
|
|
05.05.2011, 11:25
|
#19
|
|
|
|
Сержант
|
Регистрация: 19.11.2009
Сообщений: 141
Популярность: 406
Сказал(а) спасибо: 9
Поблагодарили 10 раз(а) в 10 сообщениях
|
Re: Мини радар и антихайд
жалко свою расу незя видить, небольшие глюки своего хайда - жалко, хорошая идея
________________
(\__/). (\__/)
(O.o ) (='.'=)
(> < ) (%2)_(%2)
|
|
|
06.05.2011, 00:54
|
#20
|
|
|
|
Разведчик
|
Регистрация: 01.03.2011
Сообщений: 18
Популярность: 18
Сказал(а) спасибо: 0
Поблагодарили 4 раз(а) в 3 сообщениях
|
Re: Мини радар и антихайд
ребят чет у меня не юзает или что... что долно произойти если рядом няха? или тут скрипт надо настроить как то? я играз за асмов скажите как пользоаться скриптом этим заранее спасибо
|
|
|
06.05.2011, 12:38
|
#21
|
|
|
|
Разведчик
|
Регистрация: 26.10.2009
Сообщений: 39
Популярность: 56
Сказал(а) спасибо: 18
Поблагодарили 23 раз(а) в 6 сообщениях
|
Re: Мини радар и антихайд
|
Цитата: |
|
|
|
|
|
|
|
|
|
ребят чет у меня не юзает или что... что долно произойти если рядом няха? или тут скрипт надо настроить как то? я играз за асмов скажите как пользоаться скриптом этим заранее спасибо
|
|
|
|
|
|
Если вражеская раса появляется в пределах вашей видимости(даже если она в маскировке) этот скрипт посылает сообщение в ваш чат о приблежении врага, в котором пишется уровень и ник этого персонажа.
Для игры за асмодиан вам достаточно поставить цыфру 0 в единственной строке - if readc($1e)= 0 then begin // 0 елийцы 1 асмодиане.
|
|
|
06.05.2011, 12:45
|
#22
|
|
|
|
Пехотинец
|
Регистрация: 30.11.2010
Сообщений: 53
Популярность: 82
Сказал(а) спасибо: 23
Поблагодарили 13 раз(а) в 7 сообщениях
|
Re: Мини радар и антихайд
а можно ли дополнить скриптик, чтобы писался еще и класс врага, например, <имя> <класс> <левел>? Если мог бы кто так сделать, была бы очень благодарна
|
|
|
06.05.2011, 13:25
|
#23
|
|
|
|
Сержант
|
Регистрация: 19.11.2009
Сообщений: 141
Популярность: 406
Сказал(а) спасибо: 9
Поблагодарили 10 раз(а) в 10 сообщениях
|
Re: Мини радар и антихайд
Aoi Hana, приобщи в скрипт пакет 1F
Boogerman, свои тоже палят, а врагам просто достаточно заскринить твой таргет
________________
(\__/). (\__/)
(O.o ) (='.'=)
(> < ) (%2)_(%2)
|
|
|
06.05.2011, 13:42
|
#24
|
|
|
|
Пехотинец
|
Регистрация: 30.11.2010
Сообщений: 53
Популярность: 82
Сказал(а) спасибо: 23
Поблагодарили 13 раз(а) в 7 сообщениях
|
Re: Мини радар и антихайд
Drelann, я пока что в настройках/подстройках скриптов не сильна, если не сложно можешь написать, как должно быть с учетом моей просьбы выше? конечно же, с меня пасибки)
|
|
|
06.05.2011, 14:38
|
#25
|
|
|
|
Разведчик
|
Регистрация: 24.02.2011
Сообщений: 8
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Мини радар и антихайд
Элийцев вижу, когда цифра 0 по умолчанию. А асмов нет. Хотя меняю цифру на 1.
|
|
|
11.05.2011, 07:02
|
#26
|
|
|
|
Разведчик
|
Регистрация: 05.02.2011
Сообщений: 36
Популярность: 18
Сказал(а) спасибо: 5
Поблагодарили 4 раз(а) в 3 сообщениях
|
Re: Мини радар и антихайд
скрипт кул, спс.
немного тюнинга)
после 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, с этим еще не разобрался.
Последний раз редактировалось hand0; 11.05.2011 в 07:06.
|
|
|
2 пользователя(ей) сказали cпасибо:
|
|
11.05.2011, 15:36
|
#27
|
|
|
|
Пехотинец
|
Регистрация: 19.03.2011
Сообщений: 59
Популярность: 26
Сказал(а) спасибо: 21
Поблагодарили 8 раз(а) в 6 сообщениях
|
Re: Мини радар и антихайд
То что ты дописал дополнительные функции это клёва,но не мог бы ты сразу выложить полный скрипт для нях\асмо.
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.Незнаю видит или замаскерованых нях\асмо, проверьте просто нет возможности!!!
________________
Понравился пост!!! Жмакни спасибо.
Не уступим врагу ничего-но у него всё заберём.
Последний раз редактировалось MET1234; 12.05.2011 в 16:08.
Причина: Добавлено сообщение
|
|
|
3 пользователя(ей) сказали cпасибо:
|
|
11.05.2011, 20:35
|
#28
|
|
|
|
Разведчик
|
Регистрация: 26.02.2011
Сообщений: 34
Популярность: 20
Сказал(а) спасибо: 10
Поблагодарили 5 раз(а) в 3 сообщениях
|
Re: Мини радар и антихайд
поставил посту выше спасибку, но по прежнему играя за нях не вижу асмов в маскеровке...и по коду я понял что должна высвечиваться надпись что кто-то в инвизе,её тоже нет...помогите исправить это
|
|
|
11.05.2011, 21:31
|
#29
|
|
|
|
Пехотинец
|
Регистрация: 19.03.2011
Сообщений: 59
Популярность: 26
Сказал(а) спасибо: 21
Поблагодарили 8 раз(а) в 6 сообщениях
|
Re: Мини радар и антихайд
________________
Понравился пост!!! Жмакни спасибо.
Не уступим врагу ничего-но у него всё заберём.
Последний раз редактировалось MET1234; 11.05.2011 в 21:34.
Причина: Добавлено сообщение
|
|
|
Пользователь сказал cпасибо:
|
|
11.05.2011, 21:54
|
#30
|
|
|
|
Старший сержант
|
Регистрация: 23.04.2009
Сообщений: 224
Популярность: 344
Сказал(а) спасибо: 80
Поблагодарили 116 раз(а) в 45 сообщениях
|
Re: Мини радар и антихайд
MET1234, скрипт конешн классный, показывает классы как и положено, но есть одно но, при включении скрипта он у меня прячит всех нях, а именно няхи могут дать мну по щам а я даже не смогу их в таргет взять, как будт-то их вообще нет, на радаре их тоже не будет
С прошлым скриптом так у меня было только на некоторых няхах, а с этим теперь на всех =))
________________
DOTA 2
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Похожие темы
|
Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
[Информация] Радар
|
Catscool |
Статьи и руководства по Aion |
2 |
26.12.2010 21:46 |
Радар
|
A4-TEch |
Общение и обсуждение Counter-Strike |
2 |
12.12.2010 12:36 |
Радар!!!
|
v@dym78 |
Общение и обсуждение, архив Point Blank |
0 |
07.06.2010 13:32 |
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 07:47.
|
|