Показать сообщение отдельно
Старый 30.10.2007, 00:02   #30
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию Re:

Цитата:
Сообщение от 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;
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни


NLObP вне форума   Ответить с цитированием
За это сообщение NLObP нажился 2 спасибками от: