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

先推一下
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沒有太多說明
因為說明起來太麻煩了
想想大家能用就好'
西望能給大家多一點幫助'

是腳本嗎?
還是純粹分享而已????????????

感謝分享~              
試試
看瞜
推推推

感謝大大的分享~~~~~~

這個好像不錯用喔 來試試看 希望它有這個價值

THXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

又要買啊~~~~怎麼老要這麼多賣的啊~~

久久推一下自己的帖
讓他浮上來
大家看一下吧

久久推一下自己的帖
讓他浮上來
大家看一下吧