Загрузка...

SH+Glaider скрипт для WP PPC

Тема в разделе Остальные игры создана пользователем Mr.Random 25 мар 2014. 1648 просмотров

  1. Mr.Random
    Скопировать BBCode
    Mr.Random Автор темы 25 мар 2014 33 3 апр 2013
    На форумах уже лежит бесконечный глэйдер, который не опускается и не разбивается об препятствия, также лежит спидхак.


    Я объединил 2 хака, и прикрутил управление через чат, также прикрутил автоматическое распознавание ID персонажа(не проверял как работает, отпишитесь если баги).


    Как работает:


    1)пишем в чат gon - врубает бесконечный глэйдер


    2)пишем в чат gof - вырубает бесконечный глэйдер


    3)пишем в чат son - врубает 2 спидхака, сумарная прибавка к скорости - 290%


    4)пишем в чат sof - вырубает спидхак на 150%, кто знает пакет на вырубание другого сх, напишите, пожалуйста.


    В будущем планируется также по командам уходить под землю и вылазить на поверхность.


    Сам скрипт









    Код
    [COLOR=#333333]const Title = 'Glaider from chat especially for mmoru.com && rf-cheats.ru from Kp0c';[/COLOR]
    

    

    
Var
    

    
  ID: Integer;
    

    
  G,L,O: Char;
    

    
  iG,iL,iO,rly: Integer;
    

    
  GLO:string;
    

    
  IDPlayer,IDP,IDP2:string;
    

    
  IDPlayerw,IDPlayerw2:word;
    

    

    

    
Procedure OnCreate;
    

    
begin
    

    
  gSys.TrafType := 6; // TT6 - AA
    

    
  gSys.isGS := 1;
    

    
  gSys.tPDecode := 0; //
    

    
  gSys****eyType := 0; //
    

    
  gSys.Protocol := 1; // TODO: надо будет потом брать версию протокола (в описателе пригодится)
    

    
end;
    

    

    

    
procedure GlaiderOff;
    

    
begin
    

    
    rly:=gSys.EnSendC(HStr('0b00dd01af00'+IDPlayer+'AD000000'));
    

    
    WriteLog(rly);
    

    
end;
    

    

    

    
procedure GlaiderOn;
    

    
begin
    

    
    rly:=gSys.EnSendC(HStr('2300dd01ae0000'+IDPlayer+'00000000'+IDPlayer+'AD0000005B1A'+
    

    
                           '0000000000000000000000000000'));
    

    
    WriteLog(rly);
    

    
end;
    

    

    

    
procedure SpeedHackOn;
    

    
begin
    

    
    rly:=gSys.EnSendC(HStr('2300dd01ae000000000000000000'+IDPlayer+'FF0000007f030000000000000000000000000000'));
    

    
    WriteLog(rly);
    

    
    rly:=gSys.EnSendC(HStr('2300DD01AE0000000000F0E81E00'+IDPlayer+'12000000730A00000DFF009F3F00000000000014'));
    

    
    WriteLog(rly);
    

    
end;
    

    

    

    
procedure SpeedHackOff;
    

    
begin
    

    
    rly:=gSys.EnSendC(HStr('0B00DD01AF00'+IDPlayer+'FF000000'));
    

    
    WriteLog(rly);
    

    
    rly:=gSys.EnSendC(HStr('0C0000015300'+IDPlayer+'FF00000000'));
    

    
    WriteLog(rly);
    

    
end;
    

    

    

    
begin
    

    
  if(gGlobal.Get('ID')<>Null) then begin
    

    
                  IDPlayer:=gGlobal.Get('ID');
    

    
                  if length( _gBuff ) = 26 then begin
    

    
                     ID := gInt( _gBuff, 5, 2 );
    

    
                     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'); GlaiderOn; gBlockPacket; end;
    

    
                         if(GLO='gof') then begin WriteLog('gof'); GlaiderOff; gBlockPacket; end;
    

    
                         if(GLO='son') then begin WriteLog('son'); SpeedHackOn; gBlockPacket; end;
    

    
                         if(GLO='sof') then begin WriteLog('sof'); SpeedHackOff; 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, '**', 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);
    

    
                         gGlobal.Put('ID',IDPlayer,60000);
    

    
                         WriteLog('put: ');
    

    
                         writeLog(IDPlayer);
    

    
                     end;
    

    

    

    
      end;
    

    
  end;
    

    
  end.

    Темка не моя. Автор Kp0c
     
    25 мар 2014
Загрузка...
Top