自動培養寵物親密度！

28351337

主要是轉貼+翻譯外國OK網站的方法
應該是各版本適用

有興趣的就回個文吧感謝^^

首先

在config 內加入

# 啟用本功能
petFeeder 1
# 不確定，可能是餵食間隔分鐘數
petFeedRate 50
# 這個可能是寵物飽足程度，我沒測試過，怕跑掉。建議用上面那個時間間隔。
petMinHunger 20
#每隔30分鐘，表現寵物狀態
petPerformanceRate 30
#+-30變數，使表現寵物狀態之間隔有亂數間隔變動
petPerformanceRateSeed 30
# attack, skill_use之狀態下不使用寵物狀態表現
petPerformance_notOnAction attack, skill_use

之後請到plugins內創立一個新的記事本

名稱為" petFeeder.pl "

內容加上以下

# petFeeder v1.6
# -by punkpudding

package petFeeder;

use strict;
use Time::HiRes qw(time);
use Globals;
use Plugins;
use Log qw(debug message warning error);
use Utils;
use Commands;
use Network;
use Network::Send;

# not the official enum
use constant {
PET_INFO => 0x0,
PET_FEED => 0x1,
PET_PERFORMANCE =>  0x2,
PET_TOEGG =>  0x3,
PET_UNEQUIP =>  0x4,
};

Plugins::register('petFeeder', 'petFeeder by punkpudding', \&onUnload, \&onReload);
my $hookCommandPost = Plugins::addHook('Command_post', \&onCommandPost);
my $hookAIpre = Plugins::addHook('AI_pre', \&onAIpre);
my $hookParseMsgPre = Plugins::addHook('parseMsg/pre', \&onParseMsgPre);

message "Pet feeding plugin loaded\n", "success";

my %pet;
my $hunger = 72;
my $performanceRate = $config{petPerformanceRate};

sub onUnload {
Plugins::delHook('parseMsg/pre', $hookParseMsgPre);
Plugins::delHook('AI_pre', $hookAIpre);
Plugins::delHook('Command_post', $hookCommandPost);
message "Pet feeding plugin unloaded\n", "success";
}

sub onReload {
&onUnload;
}

sub onCommandPost {
my (undef, $args) = @_;
my ($cmd, $subcmd) = split(' ', $args->{input}, 2);
if ($cmd eq "pet" && $config{petFeeder}) {
      if ($subcmd eq "s" || $subcmd eq "status") {
         message "Pet status: hungry=$pet{hungry} intimacy=$pet{friendly}\n";
      } elsif ($subcmd eq "f" || $subcmd eq "feed") {
         if ($pet{hungry} <= 72) {
            message "Feeding your pet. [current intimacy : $pet{friendly}]\n";
            $messageSender->sendPetMenu(PET_FEED);
            $messageSender->sendPetMenu(PET_INFO);
         } elsif ($pet{hungry} > 72) {
            message "Your pet's not yet hungry. Feeding him ●嚴禁張貼廣告● will lower intimacy.\n";
         }
      } elsif ($subcmd eq "p" || $subcmd eq "performance") {
         message "Playing your pet.\n";
         $messageSender->sendPetMenu(PET_PERFORMANCE);
      } elsif ($subcmd eq "r" || $subcmd eq "return") {
         message "Returning pet to egg status.\n";
         $messageSender->sendPetMenu(PET_TOEGG);
      } elsif ($subcmd eq "u" || $subcmd eq "unequip") {
         message "Unequipping pet accessory.\n";
         $messageSender->sendPetMenu(PET_UNEQUIP);
      } else {
         error "Syntax Error in function 'pet' (pet management)\n" .
               "Usage: pet < s[tatus] | f[eed] | p[erformance] | r[eturn] | u[nequip] >\n";
      }
         $args->{return} = 1;
}
}

sub onAIpre {
return unless ($main::conState == 5);
if ($config{petFeeder}) {
# request status
      if (timeOut($pet{lastStatusInfo}, 30)) {
         if (timeOut($pet{lastStatusRequest}, 10)) {
            $pet{lastStatusRequest} = time;
            $messageSender->sendPetMenu(PET_INFO);
            if ($pet{friendly} < 990) {
                  $hunger = 72;
            } elsif ($pet{friendly} >=990) {
                  $hunger = 30;
            }
         }
      }
# pet performance
if ((defined($config{petPerformanceRate}) && timeOut($pet{lastPerformance}, $performanceRate)) &&
      ((!$config{petPerformance_onAction}) || ($config{petPerformance_onAction} && existsInList($config{petPerformance_notOnAction}, AI::action()))) &&
      ((!$config{petPerformance_notOnAction}) || ($config{petPerformance_notOnAction} && !existsInList($config{petPerformance_notOnAction}, AI::action())))) {
         $messageSender->sendPetMenu(PET_PERFORMANCE);
         message "Auto-playing your pet\n";
         $performanceRate = $config{petPerformanceRate} if !defined($performanceRate);
         $performanceRate = $config{petPerformanceRate} + int(rand $config{petPerformanceRateSeed}) if $config{petPerformanceRateSeed};
         $pet{lastPerformance} = time;
      }
}
}

sub onParseMsgPre {
my (undef, $args) = @_;
my $switch = $args->{switch};
my $msg = $args->{msg};
# process status
if ($switch eq "01A2" && $config{petFeeder}) {
      $pet{name} = substr($msg, 2, 24) =~ /([\s\S]*?)\000/;
      $pet{nameflag} = unpack("C1", substr($msg, 26, 1));
      $pet{level} = unpack("S1", substr($msg, 27, 2));
      $pet{hungry} = unpack("S1", substr($msg, 29, 2));
      $pet{friendly} = unpack("S1", substr($msg, 31, 2));
      $pet{accessory} = unpack("S1", substr($msg, 33, 2));
      $pet{lastStatusInfo} = time;
      debug "Pet status: level=$pet{level} hungry=$pet{hungry} intimacy=$pet{friendly}\n";
      if ($config{petSmartFeed}) {
         if ($pet{hungry} < $hunger && timeOut($pet{lastFeed}, 5) && $pet{friendly} > 0) {
            $pet{lastFeed} = time;
            $messageSender->sendPetMenu(PET_FEED);
            $messageSender->sendPetMenu(PET_INFO);
            message "Auto-feeding your pet. [current intimacy : $pet{friendly}]\n";
         }
         if ($pet{hungry} <= $config{petMinHunger} || $pet{hungry} <= 15) {
            $messageSender->sendPetMenu(PET_TOEGG);
            message "Critical hunger level reached. Pet returned to egg status.\n";
         }
      } else {
         if ($pet{hungry} < $config{petFeedRate} && timeOut($pet{lastFeed}, 5) && $pet{friendly} > 0) {
            $pet{lastFeed} = time;
            $messageSender->sendPetMenu(PET_FEED);
            $messageSender->sendPetMenu(PET_INFO);
            message "Auto-feeding your pet. [current intimacy : $pet{friendly}]\n";
         }
         if ($pet{hungry} <= $config{petMinHunger} || $pet{hungry} <= 15) {
            $messageSender->sendPetMenu(PET_TOEGG);
            message "Critical hunger level reached. Pet returned to egg status.\n";
         }
      }
}
}

return 1;

什麼都不用調，他已經幫我們都調好了

所以只要加上這些東西

遊戲裡面開好寵物

帶齊飼料

OK 完成！分享給大家，我目前正在用^^

外掛聯合國

[轉貼] 自動培養寵物親密度！