Архив читов и багов ArcheAge (Без хайда) : Старые, неработающие читы и баги без хайда. А также любая другая устаревшая информация по игре ArcheAge
#1
Подпольщик AA
OFFLINE
Регистрация: 02.03.2014
Сообщений: 260
[exploit] Многофункциональный скрипт для WP PPC
Новое:
3 чатовые команды (zch,vch,och), скилловые остались без изменений, на данный момент чатовое управление выглядит так: пишем в чат gon - врубает бесконечный глайдер.
пишем в чат gof - вырубает бесконечный глайдер.
пишем в чат son - врубает 2 спидхака для земли.
пишем в чат wsh - врубает водяной спидхак.
пишем в чат sof - вырубает спидхаки.
пишем в чат poz - кидает под землю
пишем в чат naz - возвращает на землю
пишем в чат nan - кидает в небо. Если начинаете топиться, можете взлететь в небо, а потом назад.
пишем в чат rid - обновляет ваш ID для скрипта, он напишет когда завершил операцию (если включён чат).
пишем в чат zch - включает оповещение для западников
пишем в чат vch - включает оповещение для восточников
пишем в чат och - отключает оповещения.
Поставил ограничитель на водяной спидхак, максимальная скорость вплавь - 28,9 м/с.
По умолчанию оповещания вырублены.
Скрипт:
Код:
const Title = 'Glaider from chat especially for rf-cheats.ru from Kp0c';
const constGlaiderOn='733800';
constGlaiderOff='743800';
constSpeedHackOn='753800';
constSpeedHackOff='763800';
constPodZemlu='793800';
constNaZemlu='7A3800';
constVNebo='7B3800';
constWaterSpeedHack='783800';
constRefreshID='883800';
Var
ID: Integer;
G,L,O: Char;
iG,iL,iO,rly: Integer;
GLO:string;
IDPlayer,IDP,IDP2:string;
IDPlayerw,IDPlayerw2:word;
X,Y,Z: String;
iX,iY,iZ: Integer;
IDForAddSkill:integer;
Procedure OnCreate;
begin
gSys.TrafType := 6; // TT6 - AA
gSys.isGS := 1;
gSys.tPDecode := 0; //
gSys.tKeyType := 0; //
gSys.Protocol := 1;
if(gGlobal.Get('WSH')=Null) then gGlobal.Put('WSH',0,86400000);
if(gGlobal.Get('Visota')=NULL) then gGlobal.Put('Visota',0,8640000);
if(gGlobal.Get('Chat')=NULL) then gGlobal.Put('Chat',0,8640000); //0-null;1-zapad;2-vostok;
end;
procedure GlaiderOff;
begin
rly:=gSys.EnSendC(HStr('0b00dd01B000'+IDPlayer+'AD000000'));
//WriteLog(rly);
end;
procedure GlaiderOn;
begin
rly:=gSys.EnSendC(HStr('2300DD01AF000000000000000000'+IDPlayer+'AD0000005B1A'+
'0000000000000000000000000000'));
//WriteLog(rly);
end;
procedure SpeedHackOn;
begin
rly:=gSys.EnSendC(HStr('2300DD01AF000000000000000000'+IDPlayer+'AA0000007f030000000000000000000000000000'));
//WriteLog(rly);
rly:=gSys.EnSendC(HStr('2300DD01AF000000000000000000'+IDPlayer+'BB000000730A0000000000000000000000000000'));
//WriteLog(rly);
WriteLog('ID for mount: '+IDPlayer);
end;
procedure SpeedHackOff;
var temp:integer;
begin
rly:=gSys.EnSendC(HStr('0B00DD01B000'+IDPlayer+'AA000000'));
//WriteLog(rly);
rly:=gSys.EnSendC(HStr('0B00DD01B000'+IDPlayer+'BB000000'));
//WriteLog(rly);
if(gGlobal.Get('WSH')=1) then begin
WaterSpeedHackOffHelper(10);
WaterSpeedHackOffHelper(11);
WaterSpeedHackOffHelper(12);
WaterSpeedHackOffHelper(13);
WaterSpeedHackOffHelper(14);
WaterSpeedHackOffHelper(15);
WaterSpeedHackOffHelper(16);
WaterSpeedHackOffHelper(17);
WaterSpeedHackOffHelper(18);
gGlobal.Put('WSH',0,86400000);
end;
end;
procedure WaterSpeedHackOffHelper(IDForRemoveSkill:integer;);
begin
rly:=gSys.EnSendC(HStr('0B00DD01B000'+IDPlayer+IntToStr(IDForRemoveSkill)+'000000'));
//WriteLog(rly);
//gSys.sleep(100);
end;
procedure PodZemlu;
begin
IDPlayer:=gGlobal.Get('ID');
gGlobal.Put('Visota',-50000,8640000);
Msg('44','0D','545020706F64207A656D6C7521');
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
Msg('44','0D','545020706F64207A656D6C7521');
end;
procedure NaZemlu;
begin
IDPlayer:=gGlobal.Get('ID');
Msg('43','0C','5450206E61207A656D6C7521');
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
Msg('43','0C','5450206E61207A656D6C7521');
gGlobal.Put('Visota',0,8640000);
end;
procedure NaNebo;
begin
IDPlayer:=gGlobal.Get('ID');
Msg('42','0B','5450206E61206E65626F21');
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
Msg('42','0B','5450206E61206E65626F21');
gGlobal.Put('Visota',50000,8640000);
end;
procedure WaterSpeedHack;
begin
if(gGlobal.Get('WSH')=0) then begin
WaterSpeedHackHelper('7009',10);
WaterSpeedHackHelper('BC0A',11);
WaterSpeedHackHelper('1517',12);
WaterSpeedHackHelper('6519',13);
WaterSpeedHackHelper('241A',14);
WaterSpeedHackHelper('261A',15);
WaterSpeedHackHelper('271A',16);
WaterSpeedHackHelper('D719',17);
//WaterSpeedHackHelper('5D05',18);
gGlobal.Put('WSH',1,86400000);
end;
end;
procedure WaterSpeedHackHelper(PacketHack:string;IDForAddSkill:integer);
begin
rly:=gSys.EnSendC(HStr('2300DD01AF000000000000000000'+IDPlayer+IntToStr(IDForAddSkill)+'000000'+PacketHack+'0000000000000000000000000000'));
//WriteLog(rly);
//gSys.sleep(100);
end;
procedure Msg(SizePacket:string;SizeMsg:string;Msg:string); //тело пакета=55 байт.
begin
if(gGlobal.Get('Chat')=2) then
rly:=gSys.EnSendC(HStr(SizePacket+'00DD01C7000000000000000000'+IDPlayer+
'B0E40B000A069500000012004B70306320666F722072662D636865617473'+SizeMsg+'00'+Msg+'1027000000000000'));
if(gGlobal.Get('Chat')=1) then
rly:=gSys.EnSendC(HStr(SizePacket+'00DD01C7000000000000000000'+IDPlayer+
'10A8270009019400000012004B70306320666F722072662D636865617473'+SizeMsg+'00'+Msg+'1027000000000000'));
//writelog('msgsend: ');WriteLog(rly);
end;
begin
ID := gInt( _gBuff, 5, 2 );
if (not _gFromServ) and (ID = 82) then begin gBlockPacket; WriteLog('Block Cancel cast'); end;
if (not _gFromServ) and (ID=$012E) then begin gBlockPacket; WriteLog('Blocked'); end;
if (not _gFromServ) and ( ID = 136) then begin
ScanPck5( _gBuff, 16, 'z03z03z03', X, Y, Z, null, null );
iX := gInt(X,1,3);
iY := gInt(Y,1,3);
iZ := gInt(Z,1,3);
_gOutBuff := _gBuff;
PInt(_gOutBuff,iZ+gGlobal.Get('Visota'),22,3);
//WriteLogln(format('IN X=%d Y=%d Z=%d',[iX,iY,iZ]));
ScanPck5( _gOutBuff, 16, 'z03z03z03', X, Y, Z, null, null );
iX := gInt(X,1,3);
iY := gInt(Y,1,3);
iZ := gInt(Z,1,3);
//WriteLogln(format('OUT X=%d(%x) Y=%d(%x) Z=%d(%x)',[iX,iX,iY,iY,iZ,iZ]));
end;
if(gGlobal.Get('ID')<>Null) then begin
if length( _gBuff ) = 26 then begin
if (not _gFromServ) and ( ID = 97) then begin
ScanPck5( _gBuff, 19, 'ccc', G , L, O, null, null );
iG:=StrToInt(G);
iL:=StrToInt(L);
iO:=StrToInt(O);
GLO:=Chr(iG)+Chr(iL)+Chr(iO);
GLO:=Lowercase(GLO);
if(GLO='gon') then begin
WriteLog('gon');
IDPlayer:=gGlobal.Get('ID');
GlaiderOn;
Msg('49','12','4861636B656420676C6169646572204F4E21');
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
Msg('49','12','4861636B656420676C6169646572204F4E21');
GlaiderOn;
gBlockPacket;
end;
if(GLO='gof') then begin
WriteLog('gof');
IDPlayer:=gGlobal.Get('ID');
GlaiderOff;
Msg('4A','13','4861636B656420676C6169646572204F464621');
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
Msg('4A','13','4861636B656420676C6169646572204F464621');
GlaiderOff;
gBlockPacket;
end;
if(GLO='son') then begin
WriteLog('son');
IDPlayer:=gGlobal.Get('ID');
Msg('44','0D','53706565646861636B204F4E21');
SpeedHackOn;
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
Msg('44','0D','53706565646861636B204F4E21');
SpeedHackOn;
gBlockPacket;
end;
if(GLO='sof') then begin
WriteLog('sof');
IDPlayer:=gGlobal.Get('ID');
Msg('4A','13','616C6C2073706565646861636B73204F464621');
SpeedHackOff;
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
Msg('4A','13','616C6C2073706565646861636B73204F464621');
SpeedHackOff;
gBlockPacket;
end;
if(GLO='poz') then begin WriteLog('poz'); PodZemlu; gBlockPacket; end;
if(GLO='nan') then begin WriteLog('nan'); NaNebo; gBlockPacket; end;
if(GLO='naz') then begin WriteLog('naz'); NaZemlu; gBlockPacket; end;
if(GLO='wsh') then begin
WriteLog('wsh');
IDPlayer:=gGlobal.Get('ID');
WaterSpeedHack;
Msg('4A','13','57617465722073706565646861636B204F4E21');
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
Msg('4A','13','57617465722073706565646861636B204F4E21');
WaterSpeedHack;
gBlockPacket;
end;
if(GLO='rid') then begin
IDPlayer:=gGlobal.Get('ID');
WriteLog('rid');
Msg('44','0D','526566726573682049442E2E2E');
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
Msg('44','0D','526566726573682049442E2E2E');
gGlobal.Put('ID',gGlobal.Get('ID'),1);
gGlobal.TimePurge;
gBlockPacket;
end;
if(GLO='zch') then begin
IDPlayer:=gGlobal.Get('ID');
WriteLog('zch');
gGlobal.Put('Chat',1,8640000);
Msg('45','0E','5a617061642063686174206f6e21');
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
Msg('45','0E','5a617061642063686174206f6e21');
gBlockPacket;
end;
if(GLO='vch') then begin
IDPlayer:=gGlobal.Get('ID');
WriteLog('vch');
gGlobal.Put('Chat',2,8640000);
Msg('46','0F','566f73746f6b2063686174206f6e21');
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
Msg('46','0F','566f73746f6b2063686174206f6e21');
gBlockPacket;
end;
if(GLO='och') then begin
IDPlayer:=gGlobal.Get('ID');
WriteLog('och');
Msg('40','09','43686174206f666621');
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
Msg('40','09','43686174206f666621');
gGlobal.Put('Chat',0,8640000);
gBlockPacket;
end;
end;
end;
if length(_gBuff)=19 then begin
if (not _gFromServ) and (ID=80) then begin
ScanPck5( _gBuff, 6, 'hh', IDPlayerw, IDPlayerw2, null,null,null );
IDPlayer:=IntToHex(IDPlayerw,2);
IDP:=IntToHex(IDPlayerw,2);
IDP2:=IntToHex(IDPlayerw2,2);
if(length(IDP2)>2) then IDP2:=Copy(IDP2,length(IDP2)-1,2);
GLO:=Copy(IDP2,1,2);
Insert(GLO,IDPlayer,3);
if(IDPlayer=constGlaiderOn)then begin
WriteLog('gon');
IDPlayer:=gGlobal.Get('ID');
Msg('49','12','4861636B656420676C6169646572204F4E21');
GlaiderOn;
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
Msg('49','12','4861636B656420676C6169646572204F4E21');
GlaiderOn;
gBlockPacket;
end;
if(IDPlayer=constGlaiderOff) then begin
WriteLog('gof');
IDPlayer:=gGlobal.Get('ID');
Msg('4A','13','4861636B656420676C6169646572204F464621');
GlaiderOff;
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
Msg('4A','13','4861636B656420676C6169646572204F464621');
GlaiderOff;
gBlockPacket;
end;
if(IDPlayer=constSpeedHackOn) then begin
WriteLog('son');
IDPlayer:=gGlobal.Get('ID');
Msg('44','0D','53706565646861636B204F4E21');
SpeedHackOn;
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
Msg('44','0D','53706565646861636B204F4E21');
SpeedHackOn;
gBlockPacket;
end;
if(IDPlayer=constSpeedHackOff) then begin
WriteLog('sof');
IDPlayer:=gGlobal.Get('ID');
Msg('4A','13','616C6C2073706565646861636B73204F464621');
SpeedHackOff;
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
Msg('4A','13','616C6C2073706565646861636B73204F464621');
SpeedHackOff;
gBlockPacket;
end;
if(IDPlayer=constPodZemlu) then begin WriteLog('poz'); PodZemlu; gBlockPacket; end;
if(IDPlayer=constVNebo) then begin WriteLog('nan'); NaNebo; gBlockPacket; end;
if(IDPlayer=constNaZemlu) then begin WriteLog('naz'); NaZemlu; gBlockPacket; end;
if(IDPlayer=constWaterSpeedHack) then begin
WriteLog('wsh');
IDPlayer:=gGlobal.Get('ID');
WaterSpeedHack;
Msg('4A','13','57617465722073706565646861636B204F4E21');
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
Msg('4A','13','57617465722073706565646861636B204F4E21');
WaterSpeedHack;
gBlockPacket;
end;
if(IDPlayer=constRefreshID) then begin
WriteLog('rid');
IDPlayer:=gGlobal.Get('ID');
Msg('44','0D','526566726573682049442E2E2E');
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
Msg('44','0D','526566726573682049442E2E2E');
gGlobal.Put('ID',gGlobal.Get('ID'),1);
gGlobal.TimePurge;
gBlockPacket;
end;
end;
end;
end else begin
if length( _gBuff ) = 39 then begin
ID := gInt( _gBuff, 5, 2 );
if (not _gFromServ) and ( ID = 136) then begin
ScanPck5( _gBuff, 6, 'hh', IDPlayerw, IDPlayerw2, null,null,null );
IDPlayer:=IntToHex(IDPlayerw,2);
IDP:=IntToHex(IDPlayerw,2);
IDP2:=IntToHex(IDPlayerw2,2);
if(length(IDP2)>2) then IDP2:=Copy(IDP2,length(IDP2)-1,2);
GLO:=Copy(IDP2,1,2);
Insert(GLO,IDPlayer,3);
while length(IDPlayer)<6 do IDPlayer:=IDPlayer+'0';
gGlobal.Put('ID',IDPlayer,60000);
WriteLog('put: ');
writeLog(IDPlayer);
Msg('4D','16','492075706461746564206D79204944206D656D6F7279');
Delete(IDPlayer,6,1);
IDPlayer:=IDPLayer+'1';
Msg('4D','16','492075706461746564206D79204944206D656D6F7279');
end;
end;
end;
end.
Текущие проблемы:
До сих пор не знаю на что повесить выключение чит. глайдера, временное решение : вешайте скилл летания на волка, или для отключения пишите "gof " в чат
Автор просит совета:
Стоит ли делать команду отключения ф-ции оповещания через чат? Сомневаюсь что сильно будет мешать, но вдруг.
Автор просит помощи:
Если у кого-нибудь есть ненужный аккаунт около замков, отпишите в ЛС.
Ребят, если пользуетесь, оставляйте, пожалуйста отзывы, это поможет улучшить скрипт :)
Последний раз редактировалось Big Bad Sensey; 03.04.2015 в 16:44 .
BOXERRUS (12.01.2017), Алексан1g4 (25.11.2015), Vakuum (21.06.2015), tipok70 (25.05.2015), mourazon (23.05.2015), temp3105 (07.04.2014), Iriston (06.04.2014), Big Bad Sensey (05.04.2014), pcmj (02.04.2014), RedLine (31.03.2014), ForSer (28.03.2014), KoMyHuCT (28.03.2014)
#2
Владимир Владимирович
OFFLINE
Регистрация: 09.04.2007
Сообщений: 964
Благодарностей: 36,460 всего
Отпишитесь о работоспособности, автор плюшек заслуживает.
#3
Подпольщик AA
OFFLINE
Регистрация: 02.03.2014
Сообщений: 260
Если у кого-нибудь есть ненужный аккаунт около замков, отпишите в ЛС.
#4
Подпольщик AA
OFFLINE
Регистрация: 19.03.2014
Возраст: 34
Сообщений: 300
Репутация: 37
Цитата:
Сообщение от
dark
Отпишитесь о работоспособности, автор плюшек заслуживает.
Так вроде по прошлым его тема и так понятно что скрипт явно рабочий.
#5
Подпольщик AA
OFFLINE
Регистрация: 02.03.2014
Сообщений: 260
UPDATE v 5.0 уже в первом посте.
Всем здоровья!
Обновил код v 5.0, исправил мелкий недочёт, не писало в чат тп на небо/землю/под землю
Последний раз редактировалось Kp0c; 29.03.2014 в 00:57 .
#6
кто знает скажите, как выглядит для окружающих полет на пакетном глайдере?
#7
Владимир Владимирович
OFFLINE
Регистрация: 09.04.2007
Сообщений: 964
Благодарностей: 36,460 всего
Kp0c +100 постов
#8
Подпольщик AA
OFFLINE
Регистрация: 23.03.2014
Сообщений: 120
Репутация: 31
Спасибо за труд!
#9
Подпольщик AA
OFFLINE
Регистрация: 02.03.2014
Сообщений: 260
Цитата:
Сообщение от
RedLine
Спасибо за труд!
Для спидхака на глайдере надо найти бафы, которые бы с ним работали, а я таких, к сожалению, до сих пор не знаю.
#10
Подпольщик AA
OFFLINE
Регистрация: 23.03.2014
Сообщений: 120
Репутация: 31
Ребята, у кого сервисные сообщения скрипта над готовой отображаются кракозябрами, потерпите. Проблема актуальна для западников. Автор уведомлен. Ждем фикса!
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
