Mercurial > eagle-eye

comparison sheep.pl @ 74:27b16506231f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
improved the tech trees
author "Rex Tsai <chihchun@kalug.linux.org.tw>"
date Wed, 22 Oct 2008 20:49:29 +0800
parents 3a611c51b99b
children 6527b4b20d60
comparison
equal deleted inserted replaced
72:2af91e80353e 74:27b16506231f
81 # 所得金錢 = 對方城鎮等級x(對方城鎮等級-1)x對方金錢/10000 81 # 所得金錢 = 對方城鎮等級x(對方城鎮等級-1)x對方金錢/10000
82 my $capture = $c->citylevel * ($c->citylevel - 1) * $sheep->trader_score_secondary / 10000; 82 my $capture = $c->citylevel * ($c->citylevel - 1) * $sheep->trader_score_secondary / 10000;
83 83
84 next if($capture < 100); 84 next if($capture < 100);
85 85
86 $line = sprintf("%d %s army %d %s/%s(%d),", 86 $line = sprintf("%d %s score %d army %d %s/%s(%d),",
87 $capture, 87 $capture,
88 $c->status, $sheep->army_score_main, $sheep->name, $sheep->ally, $members); 88 $c->status, $sheep->score, $sheep->army_score_main, $sheep->name, $sheep->ally, $members);
89 89
90 $line .= sprintf("\"%s\" %d [%d,%d] %s http://s2.ikariam.tw/index.php?view=island&id=%d&selectCity=%d\n", 90 $line .= sprintf("\"%s\" %d [%d,%d] %s http://%s/index.php?view=island&id=%d&selectCity=%d\n",
91 $c->cityname, $c->citylevel, 91 $c->cityname, $c->citylevel,
92 $island->x, $island->y, 92 $island->x, $island->y,
93 $tradegoodText[$island->tradegood], 93 $tradegoodText[$island->tradegood],
94 $::server,
94 $island->id, 95 $island->id,
95 $c->cityId 96 $c->cityId
96 ); 97 );
97 98
98 printf("%s", $line); 99 printf("%s", $line);