|
|
Подпольщик 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" в чат
Автор просит совета: - Стоит ли делать команду отключения ф-ции оповещания через чат? Сомневаюсь что сильно будет мешать, но вдруг.
Автор просит помощи: - Если у кого-нибудь есть ненужный аккаунт около замков, отпишите в ЛС.
P.S. логины и пароли не нужны, я вам отправлю скрипт для проверки.
Ребят, если пользуетесь, оставляйте, пожалуйста отзывы, это поможет улучшить скрипт :)
Последний раз редактировалось Big Bad Sensey; 03.04.2015 в 16:44.
|