Для интерлюдии
Код:
//ловим рыбу
//FE1300=ExFishingStart:h(charOID)d(fishType)d(X)d(Y)d(Z)b(isNightLure)b(c)
//FE1400=ExFishingEnd:h(charObjtId)b(isWin)
//FE1500=ExFishingStartCombat:h(charOID)d(time)d(HP)b(Fighting)b(LureType)b(isFishDeceptive)
//FE1600=ExFishingHpRegen:h(charOID)d(time)d(fish_HP)b(HPstop/rise)b(GoodUse)b(anim)d(penalty)b(BarColor)
в пакете FE1600 я смотрю на b(HPstop/rise) и в зависимости он него использую Pumping или Reeling
delphi Код:
if (ConnectName=Name) and FromServer then begin
case pck[1] of
//FExxxx=ExFishing
#$FE: begin
if Status and (MyOID<>0) then begin
case pck[2] of
//FE1600=ExFishingHpRegen:h(charOID)d(time)d(fish_HP)b(HPstop/rise)b(GoodUse)b(anim)d(penalty)b(BarColor)
#$16: begin
if MyOID=ReadD(4) then
begin
if (pck[16]=#$00) then pumping;
if (pck[16]=#$01) then reeling;
end;
end;
end;
end;
end;
end;
end;