我來發一個自己還沒測試的event 供大家參考(繼續研究莊園)
＿＿＿＿inc-item-data.cgi＿＿＿＿
@EVENT
start 10%
basetime 1h
plustime 2h
code taihu
endfunc storm
info 颱風來襲
＿＿＿＿inc-event-function.cgi＿＿＿＿
sub storm
{
my $higai_count=0;
WriteLog(1,0,"颱風來襲商店街囉!!!");
foreach my $DT (@main'DT)
{
my $higai=int($DT->{moneystock}/4);
WriteLog(0,$DT->{id},"受到風災影響造成\\$higai的損害");
$DT->{moneystock}-=$higai;
$higai_count+=$higai;
}
WriteLog(2,0,"商店街全體受創\\$higai_count元");
return 1;
}
[ 本帖最後由 rexi 於 2008-10-1 21:46 編輯 ]
