dyh9l, пакеты таргета и атаки такие должны быть
delphi Код:
//***************************************************************
//04=Action:h(ObjectID)d(OriginX)d(OriginY)d(OriginZ)b(ShiftFlag)
procedure Target(Attacker: Integer);
begin
buf:=#$04;
WriteD(Attacker);
WriteD(MyXpos);
WriteD(MyYpos);
WriteD(MyZpos);
WriteC(00);
SendToServerEx(Name);
end;
//***************************************************************
//0A=Attack:h(ObjectID)d(OriginX)d(OriginY)d(OriginZ)b(ShiftFlag)
procedure Attack(Attacker: Integer);
begin
buf:=#$0A;
WriteD(Attacker);
WriteD(MyXpos);
WriteD(MyYpos);
WriteD(MyZpos);
WriteC(00);
SendToServerEx(Name);
end;
В комбобоксе лежат строки.
Вот так из комбобокса строку в число перевести,
delphi Код:
WriteD(StrToInt(combo.items.strings[combo.itemindex]));
Вот так из комбобокса просто строку получить,
delphi Код:
SendToServerEx(combo2.items.strings[combo2.itemindex]);