Mercurial > eagle-eye
comparison sheep.pl @ 134:21df8eb17a52
commented an idea for risk assessment
| author | "Rex Tsai <chihchun@kalug.linux.org.tw>" |
|---|---|
| date | Fri, 31 Oct 2008 01:59:33 +0800 |
| parents | 94c9cde99e19 |
| children | 9b8aa30a532c |
comparison
equal
deleted
inserted
replaced
| 132:2bf64daa8a5e | 134:21df8eb17a52 |
|---|---|
| 69 # 所得金錢 = 對方城鎮等級x(對方城鎮等級-1)x對方金錢/10000 | 69 # 所得金錢 = 對方城鎮等級x(對方城鎮等級-1)x對方金錢/10000 |
| 70 my $capture = $c->citylevel * ($c->citylevel - 1) * $sheep->trader_score_secondary / 10000; | 70 my $capture = $c->citylevel * ($c->citylevel - 1) * $sheep->trader_score_secondary / 10000; |
| 71 | 71 |
| 72 next if($capture < 200); | 72 next if($capture < 200); |
| 73 | 73 |
| 74 # 測試風險評估 | |
| 75 # $capture = $capture - ($sheep->army_score_main*100); | |
| 76 | |
| 74 $line = sprintf("%d %s score %d army %d %s/%s(%d),", | 77 $line = sprintf("%d %s score %d army %d %s/%s(%d),", |
| 75 $capture, | 78 $capture, |
| 76 $c->status, $sheep->score, $sheep->army_score_main, $sheep->name, $sheep->ally, $members); | 79 $c->status, $sheep->score, $sheep->army_score_main, $sheep->name, $sheep->ally, $members); |
| 77 | 80 |
| 78 $line .= sprintf("\"%s\" %d [%d,%d] %s http://%s/index.php?view=island&id=%d&selectCity=%d\n", | 81 $line .= sprintf("\"%s\" %d [%d,%d] %s http://%s/index.php?view=island&id=%d&selectCity=%d\n", |