Кружок нубов(Вопрос-Ответ)

[DeVolf]

где я тупонул?
Const

  Name='DeVolf'; //??? ????
  mp='8A CC F3 00 10';
  hp='8A AA B7 00 10';
  cp='8A A8 B7 00 10';
var
  CharObjID,MyCorX,MyCorY,MyCorZ: integer;
  MaxHP,CurHP,MaxMP,CurMP,MaxCP,CurCP: integer;
  CharName: string;
  TimerHP, TimerCP, TimerMP: TTimer;

procedure Init; //?????????? ??? ????????? ???????
begin
  timerHP:=TTimer.Create(nil);
  timerHP.OnTimer:=@OnTimerHP;
  timerHP.enabled:=False;
  timerHP.interval:=100;

  timerCP:=TTimer.Create(nil);
  timerCP.OnTimer:=@OnTimerCP;
  timerCP.enabled:=False;
  timerCP.interval:=100;

  timerMP:=TTimer.Create(nil);
  timerMP.OnTimer:=@OnTimerMP;
  timerMP.enabled:=False;
  timerMP.interval:=100;
end;

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;

procedure InitStats;
var
  i: integer;
begin
  CharObjID:=ReadD(18);
  MyCorX:=ReadD(2);
  MyCorY:=ReadD(6);
  MyCorZ:=ReadD(10);
  i:=22;
  CharName:=ReadS(i);
  i:=i+44;
  MaxHP:=ReadD(i);
  CurHP:=ReadD(i);
  MaxMP:=ReadD(i);
  CurMP:=ReadD(i);
  i:=i+363;
  MaxCP:=ReadD(i);
  CurCP:=ReadD(i);
  //????????? ???????? ?? ?????
  if (CurHP<=MaxHP-500) then TimerHP.enabled:=true else TimerHP.enabled:=false;
  if (CurCP<=MaxCP-500) then TimerCP.enabled:=true else TimerCP.enabled:=false;
  if (CurMP<=MaxMP-500) then TimerMP.enabled:=true else TimerMP.enabled:=false;
end;

procedure StatsUpdate;
var
  i: integer;
begin
  for i:=0 to ReadD(6)-1 do
    case pck[i*8+10] of
      #$09: CurHP:=ReadD(i*8+14);
      #$0A: MaxHP:=ReadD(i*8+14);
      #$0B: CurMP:=ReadD(i*8+14);
      #$0C: MaxMP:=ReadD(i*8+14);
      #$21: CurCP:=ReadD(i*8+14);
      #$22: MaxCP:=ReadD(i*8+14);
    end;
  //????????? ???????? ?? ?????
  if (CurHP<=MaxHP-500) then TimerHP.enabled:=true else TimerHP.enabled:=false;
  if (CurCP<=MaxCP-500) then TimerCP.enabled:=true else TimerCP.enabled:=false;
  if (CurMP<=MaxMP-500) then TimerMP.enabled:=true else TimerMP.enabled:=false;
end;

procedure CorsUpdate;
begin
  MyCorX:=ReadD(2);
  MyCorY:=ReadD(6);
  MyCorZ:=ReadD(10);
end;

BEGIN
  //--- STATS BEGIN ---//
  if FromServer and (ConnectName=Name) and (pck[1]=#$04) then InitStats;
  if FromServer and (ConnectName=Name) and (pck[1]=#$0E) and (CharObjID=ReadD(2)) then StatsUpdate;
  if FromClient and (ConnectName=Name) and (pck[1]=#$48) then CorsUpdate;
  //--- STATS END ---//
END.

[NLObP]

Сообщение от 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;

[DeVolf]

пакеты те что в константах ето использование итема петом (мп банок цп банок и хп банок)
так как сервер скручен через жо... то получился такой интересный баг что у пета нету перевеса... я поставил пета в городе и ....
а вот сделать ето ст твоим примером не выходит так ака не ус итем , не скилы , не помогут мне использовать етот баг

[NLObP]

Сообщение от DeVolf

пакеты те что в константах ето использование итема петом (мп банок цп банок и хп банок)
так как сервер скручен через жо... то получился такой интересный баг что у пета нету перевеса... я поставил пета в городе и ....
а вот сделать ето ст твоим примером не выходит так ака не ус итем , не скилы , не помогут мне использовать етот баг

Не понял юмора. Ну выпьет пет банку и что будет, на чара начинает лекарство действовать?

[DeVolf]

да...
когда пет пёт банку она действует на чара..

[NLObP]

Сообщение от DeVolf

да...
когда пет пёт банку она действует на чара..

Интересно, это только на твоем сервере или везде так? А что в скрипте твоем, по конкретнее, не работает? На первый взгляд все правильно и должно работать.

[DeVolf]

Интересно, это только на твоем сервере или везде так?

ну сервер такой )

А что в скрипте твоем, по конкретнее, не работает?

а как ето можно понять?
ну захожу я ... запускаю скрипт ... сливаю ХП а банки не пёт
думал может гдето ошибся... получается что нет...
что ж тогда делатЬ?

Попробуй потестить, сделай формочку и лабел(например) и после каждого действия, чтоб туда выводиась какая-нить инфа, например после проверки на количество ХП или выводи само каличество ХП.

[DeVolf]

о да ! точна я сделаю чтоб при каждом обновлении статов в ПМ присылалась колчиство МП ХП ЦП
спасибо)

Добавлено спустя 1 час 52 минуты 15 секунд:
оказуется трабл с пакетами
вот пакет статус апдейт (ПХ не расшифровывает)

0E 9A 13 01 10 01 00 00 00 0E 00 00 00 1C 02 00 00

вот пакет чар селект

15 50 00 6C 00 65 00 61 00 73 00 65 00 54 00 72 00 79 00 41 00 67 00 61 00 69 00 6E 00 00 00 7A 0B 03 00 00 00 D0 FD A6 64 00 00 00 00 00 00 00 00 01 00 00 00 04 00 00 00 35 00 00 00 01 00 00 00 46 C6 01 00 03 36 02 00 E7 F5 FF FF 00 00 00 00 00 A0 72 40 00 00 00 00 00 40 57 40 44 08 00 00 E3 77 00 00 00 00 00 00 08 00 00 00 00 00 00 00 00 00 00 00 14 00 00 00 27 00 00 00 2D 00 00 00 1B 00 00 00 1D 00 00 00 0A 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 C0 17 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00

пакет ект статус апдейт(ПК не расшифровывает)

F3 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 05 00 00 00 00 00 00 00 00 00 00 00

получается тут различие интерлюдии и с4 (

[mazx]

Есть пакет npcinfo начинающийся на 16 потом идет обж ид (как я понял pck[2-5])а за ним номер НПС (как я понял pck[6-9])...
я делаю так
var
a:string
if (FromServer) and (pck[1]=#$16) then begin
дальше нужно получить из шестнадцатиричного десятичное число - номер нпc и присвоить строке, как это сделать?
есть идея ...но не знаю верна ли - a:=inttostr(ReadD(6));

и еще вопрос - подскажите код чтобы при target присвоить переменной номер нпc (не обжект,а npcid вроде)