Тут ([Ссылки могут видеть только зарегистрированные и активированные пользователи]) найдёте всё что надо!
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('6B001100000000000000000000000000000000C9BCF2 A7665A0B9836A5BD89ED7FE4D76B49E29FEF76EBCEA3FAF4BF 0C64A3B4A4CEDCC6083E6EEA45CAD3FE881387B8062C96F09B 1E8EBCC69B98C86316CFD023480000C0A8010C0A8304015158 7A0151587A2651587A41');
Title = 'Title: Исправление разговоров с НПЦ и замена кнопок ссылками by PiR for allcheats.ru ';
var
PName,StatusPacket,buf: String;
i,i1,i2,iPos, id,CR, PObjectID,PMaxHP,PCurHP,PMaxMP,PCurMP,PMaxCP,PCurC P: 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('0B010E3F0300000907545603090B0107025454560700 02555600510053570407550854010701530056555601060504 51030851085156045406550802095156015306550453005656 53010902090151545109555609030407055504065504060904 51010808060552060401075403065255065555510102045403 55540157515505520554075151550702535300520552070154 00030505080605050603000D08010709035103075309510607 540A5056025204055551025300085404525606020900080353 5601050055060856040D0607520607040A0601045404000502 045400095253050401040505015251520D065108095453000D 01020354530105030856540702540B06FB87B94A');
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.
Кто может раскалупайте плз фикс на кнопки. а лучше вообще по одному скрипту.