delphi Код:
const
Name='raid';
procedure Init; //Вызывается при включении скрипта
begin
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if (ConnectName=Name) and FromServer and (pck[1]=#$39) then begin
// ReadS(2) - ник того кто кинул пати.
buf:=#$2A;
WriteD(1); // 0 - отказ от пати
SendToServerEx(Name);
end;
end.
И еще вдобавку изучал тут, для написание бафа варлока/еса:
Цитата:
кинуть пати:
c29=RequestJoinParty:c(ID)s(Name)d(ItemDistributio n)
s3A=JoinParty:c(ID)d(response)
s4F=PartySmallWindowAdd:[trash]
принять пати:
s39=AskJoinParty:c(ID)s(requestorName)d(itemDistri bution)
c2A=RequestAnswerJoinParty:c(ID)d(Response) "2A 01 00 00 00"
s4E=PartySmallWindowAll:[trash]
Порвать пати:
c2B=RequestWithDrawalParty:c(ID)
s50=PartySmallWindowDeleteAll:c(ID)
Баф (отмена торговли, баф, снова торговля):
73
76
45 F3 03 00 00 00 00 00 00 00
73
74 00 00 00 00 01 00 00 00 6E 0A 0B 10 01 00 00 00 00 F1 53 65
c73=RequestPrivateStoreManage
c76=RequestPrivateStoreQuit
c45=RequestActionUse:c(ID)d(ActionID)d(CtrlPressed )c(ShiftPressed)
c73=RequestPrivateStoreManage
c74=SetPrivateStoreListSell:c(ID)d(Package)d(ListC ount)d(ObjectID)d(Count)d(Price)
Инфа о покупке:
SystemMessage: 64
Ex: 64 7C 01 00 00 03 00 00 00 00 00 00 00 4D 00 61 00 6D 00 79 00 00 00 03 00 00 00 B3 05 00 00 01 00 00 00 01 00 00 00
s64=SystemMessage:c(ID)d(MsgID)d(ParamsCount)-(4)s(Name)-(4)d(ItemID)d(Count)
Написание в пати:
38 1F 04 3E 04 3A 04 43 04 3F 04 30 04 39 04 20 00 3E 04 34 04 3D 04 43 04 20 00 10 04 10 04 2C 00 20 00 4F 04 20 00 31 04 30 04 44 04 3D 04 43 04 2E 00 00 00 03 00 00 00
c38=Say:s(Text)d(Type)
Text:='Покупай одну АА, я бафну.';
Typ:=3;
|