跳到內容
版主: Mr.Simon, 涅魂, 小剎, BSM
由 呀成 » 2007-02-01 6:10 pm
由 BSM » 2007-02-01 6:51 pm
由 呀成 » 2007-02-01 7:12 pm
由 BSM » 2007-02-01 7:28 pm
由 呀成 » 2007-02-01 7:47 pm
由 BSM » 2007-02-01 8:35 pm
由 急速 » 2007-02-01 9:54 pm
由 呀成 » 2007-02-02 8:54 am
由 31123 » 2007-02-03 6:53 am
由 呀成 » 2007-02-03 8:50 am
由 BSM » 2007-02-03 9:17 am
由 呀成 » 2007-02-03 12:07 pm
# アトラスの更新 2004/02/28 由來# ワールドアトラス仕様foreach my $data(1..6){ ReadSea($data); next if $Townnum < 1; $Civ=int($Civ - ($Civ / 12) - rand(5)); $Civ=0 if ($Civ < 0); $Pro=int($Pro - ($Pro / 12) - rand(5)); $Pro=0 if ($Pro < 0); foreach(1..$Townnum) { my($date,$name,$other)=split(',',$SEA[$_],3); next if $date > $NOW_TIME; $SEA[$_]=""; PushLog(2,0,"都市$nameは,産物が底を突き交易価値を失いました。"); } WriteSea($data);}
阿特拉斯的更新 2004/02/28 由來 世界阿特拉斯辦法 foreach my $data(1.. 6){ReadSea($data); next if $Townnum < 1; $Civ =int($Civ - ($Civ / 12)-rand(5)); $Civ =0 if ($Civ < 0); $Pro =int($Pro - ($Pro / 12)-rand(5)); $Pro =0 if ($Pro < 0); foreach(1.. $Townnum) {my($date, $name,$other) =split(',',$SEA[$ _ ],3); next if $date > $NOW _ TIME; $SEA[$ _ ]=""; PushLog(2、0、"都市$name、 產品頂底失去交易價值了。 "); }WriteSea($data); }
由 BSM » 2007-02-03 1:19 pm
由 呀成 » 2007-02-03 9:25 pm
由 BSM » 2007-02-03 10:03 pm
回到 Webgame架設討論
正在瀏覽這個版面的使用者:沒有註冊會員 和 7 位訪客