WP-PPC устранение ошибок.

**J-Fobos** · 14.04.2009, 18:33

Итак в этой теме я хотел бы поделится некоторыми скриптами подWP-PPC для избежания неувязок при конекте бота[Ссылки могут видеть только зарегистрированные пользователи. ]
Cылка на его Проэкт [Ссылки могут видеть только зарегистрированные пользователи. ]
Итак чтоб скачать Архив с набором скриптов под WP-PPC Проследуйте по следующей сылке
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]
Пароль на архив

Код:

Nevercomedown

Спасибо за внимание.

Shuhrat · 23.04.2009, 13:33

Перезайлейте плиз

This file is neither allocated to a Premium Account, or a Collector's Account, and can therefore only be downloaded 10 times.

This limit is reached.

vitiowoh · 16.07.2009, 12:24

перезалей удалён файл

Catchy · 16.07.2009, 14:18

Тут найдёте всё что надо!

MultyFix.fsc честно стырено с [Ссылки могут видеть только зарегистрированные пользователи. ] а они это угнали с аллчитс

Код:

// MultyFix.fsc v1.0 by UnikZ for AllCheats.ru
// Этот скрипт-энциклопедия содержит в себе следующие исправления:
// PacketError fix
// MoveBackwardToLocation fix
// EnterWorld fix
// Sit&Stand fix
// NPCDialogs fix By PiR(c)
// RequestMagicSkillUse fix By ShadeOfNothing(c)
// PartySmallWindowUpdate fix By Be3geBJIa3(c)
// ProtocolVersion fix By BuuG_T(c)

const
  EnterWorldPacket = HStr('6B001100000000000000000000000000000000C9BCF2A7665A0B9836A5BD89ED7FE4D76B49E29FEF76EBCEA3FAF4BF0C64A3B4A4CEDCC6083E6EEA45CAD3FE881387B8062C96F09B1E8EBCC69B98C86316CFD023480000C0A8010C0A83040151587A0151587A2651587A41');
  Title = 'Title: Исправление разговоров с НПЦ и замена кнопок ссылками by PiR for allcheats.ru ';

var
  PName,StatusPacket,buf: String;
  i,i1,i2,iPos, id,CR, PObjectID,PMaxHP,PCurHP,PMaxMP,PCurMP,PMaxCP,PCurCP: Integer;
  normlink,lowlink: TStringList;
  KillButtons:Boolean=True; //Поставить в False, если вам неудобно убирать кнопки.

procedure OnCreate;
begin
  scripttimeout(99999);
  normlink:=TstringList.create;
  lowlink:=TstringList.create;
end;


Procedure OnDestroy;
begin
  normlink.free;
  lowlink.free;
end;

procedure NpcHtmlMessage(bf:string);
var value,action,txt,txt2,out,link:string='';
    i,butn,val,act,id,c:integer=0;
begin
  scanpck5(bf,3,'cds',null,ID,txt,null,null);
  if killbuttons then
  begin
  txt2:=txt;
  lowercase(txt2);
  repeat
    butn:=pos('<button',txt2);
    if butn=0 then break;
    out:=out+copy(txt2,1,butn-1);
    deletestr(txt2,1,butn-1);
    val:=pos('value="',txt2);
    act:=pos('action="',txt2);
    if val>act then
    begin
      deletestr(txt2,1,act+7);
      c:=pos('"',txt2);
      action:=copy(txt2,1,c-1);
      val:=pos('value="',txt2);
      deletestr(txt2,1,val+6);
      c:=pos('"',txt2);
      value:=copy(txt2,1,c-1);
    end else
    begin
      deletestr(txt2,1,val+6);
      c:=pos('"',txt2);
      value:=copy(txt2,1,c-1);
      act:=pos('action="',txt2);
      deletestr(txt2,1,act+7);
      c:=pos('"',txt2);
      action:=copy(txt2,1,c-1);
    end;
    c:=pos('>',txt2);
    deletestr(txt2,1,c);
    out:=out+' <a action="'+action+'">'+value+'</a> ';
    inc(i);
  until i>100;
  out:=trim(out+txt2);
  case cr of
  1:_gOutBuff:=formatpck('%cds',[#$0f,id,out+#0]);
  2:_gOutBuff:=formatpck('%cds',[#$19,id,out+#0]);
  end;
  end;
    i:=0;
  repeat
    c:=pos('bypass -h',txt);
    if c=0 then break;
    deletestr(txt,1,c+9);
    c:=pos('"',txt);
    link:=copy(txt,1,c-1);
    normlink.add(link);
    lowlink.add(lowercase(link));
  until c=0;
end;

procedure RequestBypassToServer(bf:string);
var link:string;
    k:integer;
begin
  scanpck5(bf,3,'cs',null,link,null,null,null);
  writelogln(link);
  k:=lowlink.indexof(trim(lowercase(link)));
  if k=-1 then exit;
  case cr of
  1:_gOutBuff:=FormatPck('%cs',[#$21,normlink[k]+#0]);
  2:_gOutBuff:=FormatPck('%cs',[#$23,normlink[k]+#0]);
  end;
end;

BEGIN

  if _gAbsNumPkt = 1 then begin
     _gOutBuff := HStr('0B010E3F0300000907545603090B0107025454560700025556005100535704075508540107015300565556010605045103085108515604540655080209515601530655045300565653010902090151545109555609030407055504065504060904510108080605520604010754030652550655555101020454035554015751550552055407515155070253530052055207015400030505080605050603000D08010709035103075309510607540A50560252040555510253000854045256060209000803535601050055060856040D0607520607040A0601045404000502045400095253050401040505015251520D065108095453000D01020354530105030856540702540B06FB87B94A');
  end;
  if _gAbsNumPkt < 800 then
  if (not _gFromServ) and StrCmp( copy(_gBuff,3,1),  HStr('11') ) then begin
    gBlockPacket;
    gSys.EnSendS(EnterWorldPacket);
  end;
  if length(_gBuff) < 3 then gBlockPacket;
  if ( _gFromServ) and StrCmp( copy(_gBuff,1,3),  HStr('FF FF 86') ) then gBlockPacket;
  if (not _gFromServ) and StrCmp(copy(_gBuff,1,3), HStr('1B 00 0F')) then begin
    _gOutBuff := _gBuff + HStr('01 00 00 00');
    _gOutBuff[1] := #$1F;
  end;
  if (not _gFromServ) and StrCmp( copy(_gBuff,1,3),  HStr('03 00 8B') ) then gBlockPacket;
  if (not _gFromServ) and StrCmp(copy(_gBuff,3,1), HStr('39')) then
  if GInt( _gBuff, 8, 4) > 1 then begin
    _gOutBuff := _gBuff;
    PInt(_gOutBuff, 0, 8, 4);
  end;
  if (not _gFromServ) and StrCmp(copy(_gBuff,1,3), HStr('07 00 36')) then
  _gOutBuff := HStr('0C0056000000000000000000');
  if (gSys.isGS > 0) and (_gFromServ) then begin
    if StrCmp(copy(_gbuff,3,1),#$52) then begin
      gSys.EnSendC(_gBuff);
      PCurHP:= 0;
      PMaxHP:= 0;
      PCurMP:= 0;
      PMaxMP:= 0;
      PCurCP:= 0;
      PMaxCP:= 0;
      iPos:= ScanPck5(_gBuff, 4, 'dd', PObjectID, i, null, null, null);
      while i>0 do begin
        iPos:= ScanPck5(_gBuff, iPos, 'dd', i1, i2, null, null, null);
        i:= i - 1;
        case i1 of
          9: PCurHP:= i2;
         10: PMaxHP:= i2;
         11: PCurMP:= i2;
         12: PMaxMP:= i2;
         33: PCurCP:= i2;
         34: PMaxCP:= i2;
         end;
      end;
      i := 0;
      buf := Format('cdd',[$18,PObjectID,0]);
      if PMaxHP>0 then begin
        buf := buf + Format('dddd',[$09,PCurHP,$0A,PMaxHP]);
        i := i + 2;
      end;
      if PMaxMP>0 then begin
        buf := buf + Format('dddd',[$0B,PCurMP,$0C,PMaxMP]);
        i := i + 2;
      end;
      if PMaxCP>0 then begin
        buf := buf + Format('dddd',[$21,PCurCP,$22,PMaxCP]);
        i := i + 2;
      end;
      if i>0 then PInt(buf,i,6,4);
       _gOutBuff := Hpck(BufToHex(buf));
    end;
  end;
  if cr<0 then exit;
  id:=gint(_gBuff,3,1);
  if _gAbsNumPkt<5 then
  if (pos(HStr('05 52 05 54 07 51 51 55 07 02 53 53 00 52 05 52'),_gBuff) > 0) and (cr=0) then
  if gint(_gBuff,4,4)>=828 then CR:=2
  else CR:=1;
  if (cr=0) and (_gAbsNumPkt>=5) then cr:=-1;
  if (cr=1) then
  case id of
    $0F:if _gFromserv then NpcHtmlMessage(_gBuff);
    $21:if not _gFromServ then RequestBypassToServer(_gBuff);
  end;
  if (cr=2) then
  case id of
    $19: if _gFromserv then NpcHtmlMessage(_gBuff);
    $23: if not _gFromServ then RequestBypassToServer(_gBuff);
  end;
END.

Кто может раскалупайте плз фикс на кнопки. а лучше вообще по одному скрипту.

Catchy · 17.07.2009, 15:37

Решил не редактить предыдущее сообщение что б те у кого подобная трабла увидели обновление темы (на усмотрение администрации - можете отредактировать прошлую мисагу.)

Нуф не дождавшись помощи, полез я в этот скрипт и как не странно после не долгих мучений всётаки выдернул нужную мне вещь (вроде бы не только её, но я дальше уже не рыл т к у мну всё работает).

Код:

// Фикс - заменяем кнопки ссылками

const
  EnterWorldPacket = HStr('6B001100000000000000000000000000000000C9BCF2A7665A0B9836A5BD89ED7FE4D76B49E29FEF76EBCEA3FAF4BF0C64A3B4A4CEDCC6083E6EEA45CAD3FE881387B8062C96F09B1E8EBCC69B98C86316CFD023480000C0A8010C0A83040151587A0151587A2651587A41');
  Title = 'Title: Исправление разговоров с НПЦ и замена кнопок ссылками by PiR ';

var
  normlink,lowlink: TStringList;
  KillButtons:Boolean=True; //Поставить в False, если вам неудобно убирать кнопки.

procedure OnCreate;
begin
  scripttimeout(99999);
  normlink:=TstringList.create;
  lowlink:=TstringList.create;
end;


Procedure OnDestroy;
begin
  normlink.free;
  lowlink.free;
end;
BEGIN;END.

Ток не говорите что в самом низу скрипта какая то фигня, ибо по другому у мну ничего не получалось, да и с этой фигнёй всё отлично пашет =)

~~12ee~~ · 22.10.2009, 15:50

нашел у себя пару скриптов с АЧ мб кому помогут
__________________________________________________ ____________
// Скрипт FixInit_21 (wp6.60F, l2w10.9.3), Протокол 871, GS3 (c)d501 allcheats.ru
const Title = 'Title: Скрипт FixInit_21 (wp6.60F, l2w10.9.3), Протокол 871, GS3 (c)d501 allcheats.ru';

Procedure OnDeCode;
var le : integer;
s : string;
begin
if _dFromServ and (_gAbsNumPkt = 1) then gSys.Protocol := 871;
if _dFromServ and (_gAbsNumPkt = 2) then begin
if (gSys.TrafType = 2) then begin
le := length(_dBuff);
if (le in [$15,$18,$19,$1A,$1C,$21]) then begin
s := copy(_dBuff,5,8)+ HStr('C8279301A16C3197');
gSys.Kci := s; gSys.Kco := s; gSys.Ksi := s; gSys.Kso := s;
gSys.tKeyType := 3;
gSys.tPDecode := 2;
end;
end;
end;
end;

BEGIN
END.
__________________________________________________ ____________
begin
if (length(_gBuff)<3) or (not (gsys.isgs>0)) then exit;
if (not _gFromServ) and strcmp(_gBuff[3],#$0F) then
if (length(_gBuff)<>31) then
_gOutBuff:=hstr('1F 00')+copy(_gBuff,3,25)+hstr('01 00 00 00');
end.
__________________________________________________ ______________
если память не изменяет то последний это fixmove

Nickers · 03.11.2009, 22:10

Народ я играю на linegae-game.ru...

Пользуюсь скриптом avik ...

И бот частенько вылетает (ну 5часов точно не продержится)

(вылетает без единой ошибки)

чаще всего это случается при смерти персонажа! (после телепортирования в город)

Мб где-нить какая-то ошибка? (как исправить?)

Посоветуйте мне другой (или еще 1) скрипт (на серве

с6

)

l2walkerFarmer · 11.11.2009, 15:46

Привет
У меня у бота медленый каст (вернее каст норм вот бот медленый, быстрые спелы раза 3 медление кастует)
Помогите плиз. я под фулл бафф каст 1256.
Хилит тоже медленей.

Есть у когонибуть Скрипт??? (Буду очень благодарен)

(использую авик скрипт.Может в нём проблема?если в нём дайте альрнативу плиз)

HAJIOM · 04.12.2009, 05:28

если огг бот то поставь соски юзать в настройках... скорее всего так и есть.!

midav111 · 05.02.2010, 18:42

Помогите мне настроить ету прогу для Бомберы, мой емейл [email protected]...Спасибо зарание !!!

AndrewlDRONl · 05.03.2010, 16:04

Помогите плиз со скриптом. У меня такая проблема: Захожу Ботом. IG Walker 2.17 +WP660f . Когда нажимаю END - сразу дисконнект(точнее когда бот берет на таргет моба).
Использовал скрипты:Fix_GP2_v1.3.11.xml,FixPacketMove.fsc,FixM ove.fsc,corrector-3a_CT22.fsc ,enterChar.fsc,multyfix.fsc и др. Ниче не помогло=((
Сервер Gracia Final.

despridel2 · 02.11.2010, 05:57

помогите плз скриптом fixparty на interlude

superpupernogi · 08.11.2010, 23:08

Вот отличный скрипт 3 в 1(Fix_Move+Fix_Party+Fix_Dialogs)
Работает на Епилоге

Код:

var
  PObjectID,PMaxHP,PCurHP,PMaxMP,PCurMP,PMaxCP,PCurCP : Integer;
  PName,StatusPacket : String;

begin
if (length(_gBuff)<3) or (not (gsys.isgs>0)) then exit;
  if (not _gFromServ) and strcmp(_gBuff[3],#$0F) then
    if (length(_gBuff)<>31) then
      _gOutBuff:=hstr('1F 00')+copy(_gBuff,3,25)+hstr('01 00 00 00');

  if _gFromServ then
    begin
      if StrCmp(copy(_gbuff,3,1),#$52) then // PartySmallWindowUpdate
        begin
          ScanPck5(_gbuff,ScanPck5(_gbuff,4,'dsddd',PObjectID,PName,PCurCP,PMaxCP,PCurHP),'ddd',PMaxHP,PCurMP,PMaxMP,null,null);
          StatusPacket := FormatPck('%cdddddddddddddd',[$18,PObjectID,6,$09,PCurHP,$0A,PMaxHP,$0B,PCurMP,$0C,PMaxMP,$21,PCurCP,$22,PMaxCP]);
          gSys.EnSendC(StatusPacket);
        end;
    end;

  if (not _gFromServ) and StrCmp(copy(_gBuff,32,8), HStr('63 00 68 00 61 00 74 00')) then begin
    _gOutBuff := _gBuff;
    _gOutBuff[32] := #67;
  end;
  if (not _gFromServ) and StrCmp(copy(_gBuff,32,8), HStr('6C 00 6F 00 74 00 6F 00')) then begin
    _gOutBuff := _gBuff;
    _gOutBuff[32] := #76;
  end;
  if (not _gFromServ) and StrCmp(copy(_gBuff,32,8), HStr('73 00 75 00 70 00 70 00')) then begin
    _gOutBuff := _gBuff;
    _gOutBuff[32] := #83;
    _gOutBuff[46] := #77;
  end;
  if (not _gFromServ) and StrCmp(copy(_gBuff,32,8), HStr('71 00 75 00 65 00 73 00')) then begin
    _gOutBuff := _gBuff;
    _gOutBuff[32] := #81;
  end;
  if (not _gFromServ) and StrCmp(copy(_gBuff,32,8), HStr('62 00 75 00 79 00 20 00')) then begin
    _gOutBuff := _gBuff;
    _gOutBuff[32] := #66;
  end;
  if (not _gFromServ) and StrCmp(copy(_gBuff,32,8), HStr('73 00 65 00 6C 00 6C 00')) then begin
    _gOutBuff := _gBuff;
    _gOutBuff[32] := #83;
  end;
  if (not _gFromServ) and StrCmp(copy(_gBuff,32,8), HStr('74 00 65 00 72 00 72 00')) then begin
    _gOutBuff := _gBuff;
    _gOutBuff[32] := #84;
    _gOutBuff[50] := #83;
  end;
  if (not _gFromServ) and StrCmp(copy(_gBuff,32,8), HStr('6F 00 6C 00 79 00 6D 00')) then begin
    _gOutBuff := _gBuff;
    _gOutBuff[32] := #79;
  end;
  if (not _gFromServ) and StrCmp(copy(_gBuff,32,8), HStr('64 00 65 00 70 00 6F 00')) then begin
    _gOutBuff := _gBuff;
    _gOutBuff[32] := #68;
    _gOutBuff[46] := #80;
  end;
  if (not _gFromServ) and StrCmp(copy(_gBuff,32,8), HStr('77 00 69 00 74 00 68 00')) then begin
    _gOutBuff := _gBuff;
    _gOutBuff[32] := #87;
    _gOutBuff[48] := #80;
  end;
end.

WP-PPC устранение ошибок.

Скрипты и перехват пакетов