把外掛成果記錄到LOG資料夾下

Cygnus

先推一下
allenh大大的巨集程式安裝文ˊ
http://bbs.wgun.net/thread-329393-1-1.html

在來安裝好巨集後
可以用我的方法把外掛成果記錄到LOG資料夾下

首先
在plugins下新增一個txt檔案
命名為Autopsy1
然後裡面輸入以下內容

package Autopsy1;
use Utils;
use strict;
use Plugins;
use Globals;
use Settings;
use Log qw(message debug);
Plugins::register('Autopsy1', 'Record console messages after BOT Expitem list', \&unload);
my $cHook = Log::addHook(\&cHook, "ExpitemLog");
sub unload {
      Log::delHook('cHook', $cHook);
}
my @messages = ();
sub cHook {
      my $type = shift;
      my $domain = (shift or "console");
      my $level = (shift or 0);
      my $currentVerbosity = shift;
      my $message = shift;
      my $user_data = shift;
      my $logfile = shift;
      my $expitemmsg = shift;
      my $location = shift;
if ($level <= $currentVerbosity && $config{'logExpitem'} == 1) {
      my (undef, $microseconds) = Time::HiRes::gettimeofday;
      $microseconds = substr($microseconds, 0, 2);
      my $message2 = "[".getFormattedDate(int(time)).".$microseconds] ".$message;
      push(@messages, $message2);
      my $size = scalar @messages;
      if ($size == $config{'logExpitemSize'} + 1) {
                     shift(@messages);
      }
      if ($config{logAppendUsername}) {
            $logfile = "$Settings::logs_folder/Expitemlog_$config{username}_$config{char}.txt";
      } else {
            $logfile = "$Settings::logs_folder/Expitemlog.txt";
      }
      $expitemmsg = $config{'ExpitemMessage'};
      if ($message =~ /$expitemmsg/) {
            my $pos = calcPosition($char);
            $location = "\nYou are in" . $field->descName . " (" . $field->name . ") : $pos->{x}, $pos->{y}\n";
                              use encoding 'utf8';
                              open(IFILE, ">>:utf8", "$logfile"); {
                              print IFILE "\n*** Start of console Expitem log ***\n\n";
                              print IFILE @messages;
                              print IFILE $location;
                              print IFILE "\n*** End of console Expitem log ***\n\n";
                              close(IFILE);
                     }
            }
      }
}
return 1;

然後把Autopsy1.txt
附檔名改為pl
即叫作Autopsy1.pl

再來
在control/下的macro.txt內容加上

automacro autoitemlog {
console /我這次打了多少呢/
call {
do exp report
do c 我打了這麼多
}
}

再來把config.txt的內容加上
################
alias_itemlog c 我打了多少呢
logExpitem 1
logExpitemSize 30
ExpitemMessage 我打了這麼多

之後
在黑窗內輸入itemlog
就可以把你的exp report 給記錄式晴T私人部落格●/之下的Expitemlog.txt擋了

注意1
可以把以上的那個我字
全部都改成各個完加自集的名字
以免此為流行後
大家多的話都一樣
結果記錄到他人說一樣話時
造成紀錄檔太龐大太頻繁
重覆一直紀錄

注意 2
如果有撿寶很多的話或很少的話
可以把logExpitemSize 30後面的這個數字增加或減少
依照點把種類與打怪種類數量來爛自行決定

希望大家多多下載此文
並請原諒我對Autopsy1沒有太多說明
因為說明起來太麻煩了
想想大家能用就好'
西望能給大家多一點幫助'

外掛聯合國

[分享] 把外掛成果記錄到LOG資料夾下

相關POST