|
Мини радар и антихайд - Баги и читы для Aion - Баги и читы, прочие уязвимости игры Aion |
20.06.2011, 17:38
|
#46
|
|
|
|
Разведчик
|
Регистрация: 03.06.2011
Сообщений: 34
Популярность: -162
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Мини радар и антихайд
caries огромная просьба к тебе, выложи плиз этот же скрипт переделаный под 2.5 вещь бомба, думаю куча народу тебе будут очень благодарны, и за тот что для 2.1 респект тебе) хорошая штука
|
|
|
21.06.2011, 10:24
|
#47
|
|
|
|
Разведчик
|
Регистрация: 10.03.2010
Сообщений: 5
Популярность: 22
Сказал(а) спасибо: 0
Поблагодарили 6 раз(а) в 1 сообщении
|
Re: Мини радар и антихайд
|
Цитата: |
|
|
|
|
|
|
|
|
|
а можно ли дополнить скриптик, чтобы писался еще и класс врага, например, <имя> <класс> <левел>? Если мог бы кто так сделать, была бы очень благодарна
|
|
|
|
|
|
можно
создаем массив типа
Код:
clases[0]:='Воин';
clases[1]:='Гладиатор';
clases[2]:='Страж';
clases[3]:='Следопыт';
clases[4]:='Убийца';
clases[5]:='Стрелок';
clases[6]:='Маг';
clases[7]:='Волшебник';
clases[8]:='Заклинатель';
clases[9]:='Жрец';
clases[10]:='Целитель';
clases[11]:='Чародей';
после
Код:
if readc($1e)=0 then begin
вставляем строку
и меняем строку
Код:
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] - '+clases[cl]+' '+inttostr(readh(lv))+' lvl ');
|
|
|
24.06.2011, 20:30
|
#48
|
|
|
|
Разведчик
|
Регистрация: 30.04.2011
Сообщений: 13
Популярность: 10
Сказал(а) спасибо: 5
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Мини радар и антихайд
Кто может выложит чисто радар без хайда а то няхи достали уже)) или напишите какая часть скрипта отвечает за хайд)
|
|
|
24.06.2011, 21:36
|
#49
|
|
|
|
Пехотинец
|
Регистрация: 19.03.2011
Сообщений: 59
Популярность: 26
Сказал(а) спасибо: 21
Поблагодарили 8 раз(а) в 6 сообщениях
|
Re: Мини радар и антихайд
|
Цитата: |
|
|
|
|
|
|
|
|
|
Кто может выложит чисто радар без хайда а то няхи достали уже)) или напишите какая часть скрипта отвечает за хайд)
|
|
|
|
|
|
тебе на какую версию если на 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, 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 ');
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;
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)=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 ');
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;
end;
end;
end.
________________
Понравился пост!!! Жмакни спасибо.
Не уступим врагу ничего-но у него всё заберём.
|
|
|
Пользователь сказал cпасибо:
|
|
25.06.2011, 01:33
|
#50
|
|
|
|
Разведчик
|
Регистрация: 30.04.2011
Сообщений: 13
Популярность: 10
Сказал(а) спасибо: 5
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Мини радар и антихайд
во то что нада) спасибо а то админ в личку написал что бан будет если дальше инвизы палить буду)
|
|
|
29.06.2011, 14:25
|
#51
|
|
|
|
Разведчик
|
Регистрация: 26.02.2011
Сообщений: 34
Популярность: 20
Сказал(а) спасибо: 10
Поблагодарили 5 раз(а) в 3 сообщениях
|
Re: Мини радар и антихайд
для 2.5 кто может написать?
|
|
|
30.06.2011, 17:55
|
#52
|
|
|
|
Разведчик
|
Регистрация: 28.03.2010
Сообщений: 38
Популярность: 64
Сказал(а) спасибо: 16
Поблагодарили 30 раз(а) в 5 сообщениях
|
Re: Мини радар и антихайд
Отредактировал скрипт под 2.5 версию.
Для элийцев:
Код:
var
map: integer;
procedure readplayerinfo; //тут разбираем пакет CM_PLAYER_INFO
var
mask, i, c, plase,tmp, visual, hp, class: integer; lv: integer;
s, name, leg, strclass, pack: string; start: string;
x,y,z: real;
begin
start:='';
if readc($22)=1 then // 0 елийцы 1 асмодиане
begin
class:=readc($23);
strclass := '';
case class of
1:strclass:= 'Гладиатор';
2:strclass:= 'Страж';
4:strclass := 'Убийца';
5:strclass:= 'Лучник';
7:strclass:= 'Волшебник';
8:strclass:= 'Заклинатель';
10:strclass:= 'Целитель';
11:strclass:= 'Чародей';
end;
start:='ВРАГ РЯДОМ! ';
x:=round(readn($4));
y:=round(readn($8));
z:=round(readn($c));
name:=reads($30);
lv:=readh(length(pck)-19);
sendmymsg(start+' - [pos:'+name+';'+inttostr(map)+' '+floattostr(x)+' '+floattostr(y)+' '+floattostr(z)+' -1] - '+strclass+' '+inttostr(lv)+' lvl');
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;
end;
end;
end.
Для асмодиан:
Код:
var
map: integer;
procedure readplayerinfo; //тут разбираем пакет CM_PLAYER_INFO
var
mask, i, c, plase,tmp, visual, hp, class: integer; lv: integer;
s, name, leg, strclass, pack: string; start: string;
x,y,z: real;
begin
start:='';
if readc($22)=0 then // 0 елийцы 1 асмодиане
begin
class:=readc($23);
strclass := '';
case class of
1:strclass:= 'Гладиатор';
2:strclass:= 'Страж';
4:strclass := 'Убийца';
5:strclass:= 'Лучник';
7:strclass:= 'Волшебник';
8:strclass:= 'Заклинатель';
10:strclass:= 'Целитель';
11:strclass:= 'Чародей';
end;
start:='ВРАГ РЯДОМ! ';
x:=round(readn($4));
y:=round(readn($8));
z:=round(readn($c));
name:=reads($30);
lv:=readh(length(pck)-19);
sendmymsg(start+' - [pos:'+name+';'+inttostr(map)+' '+floattostr(x)+' '+floattostr(y)+' '+floattostr(z)+' -1] - '+strclass+' '+inttostr(lv)+' lvl');
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;
end;
end;
end.
Последний раз редактировалось megatronx665; 30.06.2011 в 19:24.
|
|
|
2 пользователя(ей) сказали cпасибо:
|
|
30.06.2011, 19:02
|
#53
|
|
|
|
Разведчик
|
Регистрация: 03.06.2011
Сообщений: 34
Популярность: -162
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Мини радар и антихайд
оо ништяк бро, респект за 2.5 версию, щас проверю
все робит только левел отображает не корректно типа - 13645lvl
Последний раз редактировалось digersat; 30.06.2011 в 19:17.
|
|
|
30.06.2011, 19:25
|
#54
|
|
|
|
Разведчик
|
Регистрация: 28.03.2010
Сообщений: 38
Популярность: 64
Сказал(а) спасибо: 16
Поблагодарили 30 раз(а) в 5 сообщениях
|
Re: Мини радар и антихайд
|
|
|
30.06.2011, 19:26
|
#55
|
|
|
|
Разведчик
|
Регистрация: 21.02.2011
Сообщений: 10
Популярность: 14
Сказал(а) спасибо: 10
Поблагодарили 2 раз(а) в 2 сообщениях
|
Re: Мини радар и антихайд
у меня на 2.5 при нажатии на ник на карте его места нахаждения нету пишет чток арта ???
|
|
|
30.06.2011, 19:46
|
#56
|
|
|
|
Разведчик
|
Регистрация: 28.03.2010
Сообщений: 38
Популярность: 64
Сказал(а) спасибо: 16
Поблагодарили 30 раз(а) в 5 сообщениях
|
Re: Мини радар и антихайд
|
|
|
30.06.2011, 19:52
|
#57
|
|
|
|
Разведчик
|
Регистрация: 03.06.2011
Сообщений: 34
Популярность: -162
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Мини радар и антихайд
|
|
|
30.06.2011, 19:56
|
#58
|
|
|
|
Разведчик
|
Регистрация: 28.03.2010
Сообщений: 38
Популярность: 64
Сказал(а) спасибо: 16
Поблагодарили 30 раз(а) в 5 сообщениях
|
Re: Мини радар и антихайд
|
|
|
30.06.2011, 20:36
|
#59
|
|
|
|
Разведчик
|
Регистрация: 03.06.2011
Сообщений: 34
Популярность: -162
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Мини радар и антихайд
|
|
|
01.07.2011, 12:34
|
#60
|
|
|
|
Пехотинец
|
Регистрация: 19.03.2011
Сообщений: 59
Популярность: 26
Сказал(а) спасибо: 21
Поблагодарили 8 раз(а) в 6 сообщениях
|
Re: Мини радар и антихайд
Так начнём с начала если лвл показует большой или вопше 0 ,то это значит что данный персонаж или летает(на своих крыльях) или летит на птичке(тп по локе),тогда не коректно показует лвл.Метки на карте не показует это может быть в 2-х случаеш если вы на ходитесь в бездне.Второй случай это не правильность включения скрипта-нужно открыть лпх и включить скрипт а потом заходить в игру.
P.S.P.Ну как-то так.
________________
Понравился пост!!! Жмакни спасибо.
Не уступим врагу ничего-но у него всё заберём.
Последний раз редактировалось MET1234; 01.07.2011 в 12:37.
|
|
|
Пользователь сказал cпасибо:
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
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, время: 10:41.
|
|