Пакеты Рыбалки

[NLObP]

Для интерлюдии

      //ловим рыбу
      //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

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;