metalFan
26.11.2008, 23:11
//Ищет ПК в округе
//Пишем в чате: "\start" - работают обе выборки (таргет пк, сообщение в чат)
//Пишем "/stop" - стоп работы таргета (мессаг не выключается)
// Авторы: Furious, metalFan
// Версия: Gracia 1.0b
var
ObjectID, KarmaPK, TargetPK, MessagePK, i: Integer;
NamePK, CvarPK, x: String;
Const UserName=('sehseh');
procedure Free;
begin
end;
procedure OnConnect(WithClient: Boolean);
begin
end;
procedure OnDisonnect(WithClient: Boolean);
begin
end;
//(c) xkor
function StringToHex(packet: string):string;
var
i:integer;
tmp:byte;
function ByteToHex(b: byte): Char;
begin
if b<10 then result:=chr(b+$30)
else result:=chr(b+$37);
end;
begin
result:='';
for i:=1 to length(packet) do begin
tmp:=ord(packet[i]) div 16;
result:=result+ByteToHex(tmp);
tmp:=ord(packet[i]) - tmp*16;
result:=result+ByteToHex(tmp)+' ';
end;
end;
procedure Init;
begin
MessagePK:=1
end;
procedure MessageSend(Msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(Msg);
SendToClientEx(UserName);
end;
procedure TargetingPK(ObjectID: Integer);
begin
buf:=#$1F;
WriteD(ObjectID); WriteD(0); Writed(0); Writed(0); WriteC(0);
SendToServerEx(UserName);
end;
begin
if (FromServer) and (ConnectName=UserName) and (pck[1]=#$31) then
begin
i:=22;
ObjectID:=ReadD(18);
NamePK:=ReadS(i);
KarmaPK:=ReadD(i+176);
x:=StringToHex(ReadS(i+176));
if (KarmaPK>0) then
begin
if MessagePK=1 then begin MessageSend('>'+NamePK+) end;
if TargetPK=1 then TargetingPK(ObjectID);
end;
end;
if (FromClient) and (ConnectName=UserName) and (pck[1]=#$49) then
begin
CvarPK:=ReadS(2);
case CvarPK of
'\start':
begin
TargetPK:=1;
MessageSend('Search On!');
pck:='';
end;
'\stop':
begin
TargetPK:=0;
MessageSend('Stopped all services!');
pck:='';
end;
end;
end;
end.
у меня есть скрипт, но в строке
if MessagePK=1 then begin MessageSend('>'+NamePK+) end;
я хочу вывести хексы с количеством кармы, профой, другими статами...
уже все перепробывал, может я что пропустил... может выход прост...
скрипт работает, но что нужно вставить чтобы мона было значения хекса вывести?
и че в синтаксисе не так, пиет лист аут оф баундс 5 :(
мб надо перекомпилить пакетхак? нежелательно...:o
//Пишем в чате: "\start" - работают обе выборки (таргет пк, сообщение в чат)
//Пишем "/stop" - стоп работы таргета (мессаг не выключается)
// Авторы: Furious, metalFan
// Версия: Gracia 1.0b
var
ObjectID, KarmaPK, TargetPK, MessagePK, i: Integer;
NamePK, CvarPK, x: String;
Const UserName=('sehseh');
procedure Free;
begin
end;
procedure OnConnect(WithClient: Boolean);
begin
end;
procedure OnDisonnect(WithClient: Boolean);
begin
end;
//(c) xkor
function StringToHex(packet: string):string;
var
i:integer;
tmp:byte;
function ByteToHex(b: byte): Char;
begin
if b<10 then result:=chr(b+$30)
else result:=chr(b+$37);
end;
begin
result:='';
for i:=1 to length(packet) do begin
tmp:=ord(packet[i]) div 16;
result:=result+ByteToHex(tmp);
tmp:=ord(packet[i]) - tmp*16;
result:=result+ByteToHex(tmp)+' ';
end;
end;
procedure Init;
begin
MessagePK:=1
end;
procedure MessageSend(Msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(Msg);
SendToClientEx(UserName);
end;
procedure TargetingPK(ObjectID: Integer);
begin
buf:=#$1F;
WriteD(ObjectID); WriteD(0); Writed(0); Writed(0); WriteC(0);
SendToServerEx(UserName);
end;
begin
if (FromServer) and (ConnectName=UserName) and (pck[1]=#$31) then
begin
i:=22;
ObjectID:=ReadD(18);
NamePK:=ReadS(i);
KarmaPK:=ReadD(i+176);
x:=StringToHex(ReadS(i+176));
if (KarmaPK>0) then
begin
if MessagePK=1 then begin MessageSend('>'+NamePK+) end;
if TargetPK=1 then TargetingPK(ObjectID);
end;
end;
if (FromClient) and (ConnectName=UserName) and (pck[1]=#$49) then
begin
CvarPK:=ReadS(2);
case CvarPK of
'\start':
begin
TargetPK:=1;
MessageSend('Search On!');
pck:='';
end;
'\stop':
begin
TargetPK:=0;
MessageSend('Stopped all services!');
pck:='';
end;
end;
end;
end.
у меня есть скрипт, но в строке
if MessagePK=1 then begin MessageSend('>'+NamePK+) end;
я хочу вывести хексы с количеством кармы, профой, другими статами...
уже все перепробывал, может я что пропустил... может выход прост...
скрипт работает, но что нужно вставить чтобы мона было значения хекса вывести?
и че в синтаксисе не так, пиет лист аут оф баундс 5 :(
мб надо перекомпилить пакетхак? нежелательно...:o