[NLObP]

MrAak, вот этот кусок тебе нужен

const
                   //имя чара для которого включаем скрипт
  Name='NLObP';   //<------------------------------

  fish=1312;   //ID fishing
  pump=1313;  //ID pumping
  reel=1314; //ID reeling

var
  myoid  : integer;

procedure Init;
begin
  myoid:=0;
end;

procedure free;
begin
end;
//2F=RequestMagicSkillUse:dMagicID)d(CtrlPressed)b(ShiftPressed)
procedure MagicSkillUse(MagicID:integer);
begin
  buf:=#$2F;
  WriteD(MagicID);
  WriteD(00);
  WriteC(00);
  SendToServerEx(Name);
end;
procedure Pumping;
begin
  MagicSkillUse(pump);
end;
procedure Reeling;
begin
  MagicSkillUse(reel);
end;

//***************************************************************
// вызывается при приходе каждого пакета, если скрипт включен
//***************************************************************
begin
  //****************************************************************************
  //не обрабатываем пустые пакеты
  if pck='' then exit;

  //****************************************************************************
  if (ConnectName=Name) and FromServer then begin
    case pck[1] of
      //***************************************************************
      #$04: begin //пакет с инфой о моём чаре
        MyOID:=ReadD(18);
      end;
      //***************************************************************
      //ловим рыбу
      //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)
      #$FE: begin
        if (MyOID<>0) then begin
          case pck[2] of
            //FE1400=ExFishingEnd:h(charObjtId)b(isWin)
            #$14: begin
              if MyOID=ReadD(4) then begin
                 //действия после завершения рыбалки
              end;
            end;
            //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]+pck[18]=#$00#$00) then pumping;
                if (pck[16]+pck[18]=#$01#$00) then reeling;
              end;
            end;
          end;
        end;
      end;
    end;
  end;
end.

PS: забрасывать самому
PSS: не тестил