Цитата:
Сообщение от DeVolf
где я тупонул?
Код:
Const
Name='DeVolf';
mp='8A CC F3 00 10';
hp='8A AA B7 00 10';
cp='8A A8 B7 00 10';
procedure OnTimerHP(Sender: TObject);
begin
buf:=hstr(hp);
SendToServerEx(Name);
end;
procedure OnTimerCP(Sender: TObject);
begin
buf:=hstr(cp);
SendToServerEx(Name);
end;
procedure OnTimerMP(Sender: TObject);
begin
buf:=hstr(mp);
SendToServerEx(Name);
end;
|
Что за пакет 8А?! А вообще разницу видно, что я предлагал и что ты сделал?
Код:
Const
Name='DeVolf'; //имя чара
heal=1218; //ID Greater Battle Heal
potion=1060; //ID Healing potion
...
procedure OnTimerHP(Sender: TObject);
begin
//выбрать что нужно
MagicSkillUse(heal);
//UseItem(potion);
end;
//по аналогии напиши для CP, MP
procedure OnTimerCP(Sender: TObject);
begin
end;
procedure OnTimerMP(Sender: TObject);
begin
end;
//используем магию
procedure MagicSkillUse(MagicID:integer);
begin
buf:=#$2F;
WriteD(MagicID);
WriteD(00);
WriteC(00);
SendToServerEx(Name);
end;
//используем предметы
procedure UseItem(ObjID:integer);
begin
buf:=#$14;
WriteD(ObjID);
WriteD(00);
SendToServerEx(Name);
end;