Слил с сайта одного скрипт ( Ну или не знаю что с этим делать ) вообщем
Вот что удалось слить
Цитата:
Накидал по быстрому, к готовому скрипту крота от dmitry501, не большое дополнение, в виде хоткеев включения\выключения и зенитки))
по умолчанию подкоп -3300, включение крота 2, юз зенитки 1.
кому нужно поменять хоткеи - меняем значение в Key(). [Ссылки могут видеть только зарегистрированные пользователи. ]
Скрытый текст требуется (5 сообщение(ий), сейчас у вас 5):
Код:
const
zCoord = 3300;
skill = 'E051';
Var
ID,krot: Integer;
X,Y,Z,CharID: String;
iX,iY,iZ: Integer;
hl : handle;
procedure OnCreate;
begin
hl := gDLL.LoadLib('User32.dll');
krot := 0;
end;
procedure OnDestroy;
begin
gDLL.FreeLib(hl);
end;
function Key(key:integer):boolean;
begin
result:= gDLL.CallFunc3(hl, 'GetAsyncKeyState', key, null,null) and $FFFF = $8001;
end;
begin
if krot = 1 then begin
if length( _gBuff ) = 39 then begin
ID := gInt( _gBuff, 5, 2 );
if (not _gFromServ) and ( ID = 136) then begin
CharID := copy(_gBuff,7,3);
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-zCoord,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;
end;
if Key($31) then begin
gSys.EnSendS(Hstr('110000015000' + skill + '000000' + buftohex(CharID) + '000000000000'));
end;
end;
if Key($32) then begin
if krot = 0 then krot := 1
else krot := 0;
end;
забей, все пофиксили уже, светит банан за подмену пакетов
Нече не пофиксили только айди сккилов говорят по меняли ну может еще что-то в этом духе. Все как читерили так и читерят с подменом пакетов. пересматривал на разных новостях сообщения прям вчерашней давности.
Дак что нечего они там не пофиксили.
________________ Нет рабства безнадёжнее, чем рабство тех рабов, Себя кто полагает свободным от оков
С++\C#
Нече не пофиксили только айди сккилов говорят по меняли ну может еще что-то в этом духе. Все как читерили так и читерят с подменом пакетов. пересматривал на разных новостях сообщения прям вчерашней давности.
Дак что нечего они там не пофиксили.
Вообщем что бы не кого не вводить в заблуждение , сам протестю на основе . Отпишусь
Регистрация: 01.09.2013
Сообщений: 1
Популярность: -132
Сказал(а) спасибо: 0
archeage - чит
