Помогите до ума доработать

NLObP · 08.12.2010, 22:55

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]);