|
Фиксы пакетов скриптами WPF - Боты, скрипты и прочий софт для Lineage 2 - Весь софт по Lineage 2 и все, что связано с ботоводством, скриптописанием и брутом - в этом разделе |
18.03.2011, 23:42
|
#1
|
|
|
|
Разведчик
|
Регистрация: 03.06.2010
Сообщений: 11
Популярность: -2
Сказал(а) спасибо: 2
Поблагодарили 5 раз(а) в 2 сообщениях
|
Фиксы пакетов скриптами WPF
Если бот отказывается бегать \ бегает криво(demo_MoveBTL.fsc)
|
Цитата: |
|
|
|
|
|
|
|
|
var packetID : char;
begin
if length(_gBuff) < 3 then exit;
if gSys.TrafType <> 2 then exit;
if gSys.isGS = 3 then packetID := #$0F else packetID := #$01;
if (not _gFromServ) and (_gBuff[3] = packetID) then begin
_gOutBuff := _gBuff + HStr('01 00 00 00');
_gOutBuff[1] := chr(ord(_gOutBuff[1])+4);
end;
end. |
|
|
|
|
|
Если бот неверно определяет хп\цп\мп сопартийцев. Хроники Камаель(FixParty.fsc)
|
Цитата: |
|
|
|
|
|
|
|
|
var
PObjectID,PMaxHP,PCurHP,PMaxMP,PCurMP,PMaxCP,PCurC P : Integer;
PName,StatusPacket : String;
BEGIN
if _gFromServ then
begin
if StrCmp(copy(_gbuff,3,1),#$52) then // PartySmallWindowUpdate
begin
ScanPck5(_gbuff,ScanPck5(_gbuff,4,'dsddd',PObjectI D,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;
END. |
|
|
|
|
|
Если бот неверно определяет хп\цп\мп сопартийцев. Хроники Интерлюд(FixParty.fsc)
|
Цитата: |
|
|
|
|
|
|
|
|
var
PObjectID,PMaxHP,PCurHP,PMaxMP,PCurMP,PMaxCP,PCurC P : Integer;
PName,StatusPacket : String;
BEGIN
if _gFromServ then
begin
if StrCmp(copy(_gbuff,3,1),#$52) then // PartySmallWindowUpdate
begin
gSys.EnSendC(_gbuff);
ScanPck5(_gbuff,ScanPck5(_gbuff,4,'dsddd',PObjectI D,PName,PCurCP,PMaxCP,PCurHP),'ddd',PMaxHP,PCurMP, PMaxMP,null,null);
StatusPacket := FormatPck('%cdddddddddddddd',[$0E,PObjectID,6,$09,PCurHP,$0A,PMaxHP,$0B,PCurMP,$ 0C,PMaxMP,$21,PCurCP,$22,PMaxCP]);
gSys.EnSendC(StatusPacket);
end;
end;
END. |
|
|
|
|
|
Скрипт на фикс протокола для хроник Хеллбаунд (FixProtocolVersion.fsc)
|
Цитата: |
|
|
|
|
|
|
|
|
///Fix ProtocolVersion for Hellbound
//828->831
begin
if (_gAbsNumPkt = 1) then
if not _gFromServ then
begin
_gOutBuff := _gBuff;
_gOutBuff[4] := #$3f;
_gOutBuff[5] := #$03;
end;
end. |
|
|
|
|
|
Если бот криво разговаривает с НПЦ или отказывается разговаривать с ними вовсе(FixDialogs.fsc)
|
Цитата: |
|
|
|
|
|
|
|
|
begin
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. |
|
|
|
|
|
|
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Похожие темы
|
Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
[Руководство] Фиксы на базу YTDB
|
Ru.Omen |
Готовые сервера / Ядро Маngos |
0 |
16.08.2010 16:13 |
Фиксы Ульдара
|
Винсент |
Фиксы / Патчи / Базы (Mangos) |
0 |
06.04.2010 01:30 |
[Руководство] Фиксы скилов.
|
GraNIT |
Lineage 2 |
4 |
06.09.2009 15:38 |
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 11:03.
|
|