hakoniwaRAの改造
対象プログラム hakoniwaRA ver030314
内容 季節限定記念碑を自動化する
説明 季節限定の記念碑の指定は従来は管理人が手動で変えなければなりませんでしたが、
それを自動化できます。
日付 2006/4/2
作者 片翼の天使
履歴

hako-turn.cgiの2646〜2672行付近
		logMonFly($id, $name, $landName, $point);
	    } else {
		# 目的の場所を記念碑に
		$land->[$x][$y] = $HlandMonument;

		my($mday,$mon) = (localtime(time()))[3..4]; # 日と月を取得
		$mon++; # 月は0から始まるのでプラス1する

		if(($arg == 73) && ($mon > 2) && ($mon < 6)) { # 3〜5月
		    $arg = 73; # ツクシ
		} elsif(($arg == 88) && ($mon > 2) && ($mon < 6)) {
		    $arg = 88; # 桜
		} elsif(($arg == 89) && ($mon > 5) && ($mon < 9)) { # 6〜8月
		    $arg = 89; # 向日葵
		} elsif(($arg == 94) && ($mon > 5) && ($mon < 9)) {
		    $arg = 94; # 豚の香取くん
		} elsif(($arg == 90) && ($mon > 8) && ($mon < 12)) { # 9〜11月
		    $arg = 90; # 銀杏
		} elsif(($arg == 92) && ($mon > 11) && ($mon < 3)) { # 12〜2月
		    $arg = 92; # 雪うさ
		} elsif(($arg == 85) && ($mon == 12) && ($mday == 24)) { # 12/24はクリスマスツリー
		    $arg = 85; # クリスマスツリー
		} elsif(($arg == 91) && ($mon == 12) && ($mday == 25)) { # 12/25はクリスマスツリー 2002
		    $arg = 91; # クリスマスツリー2002
 		} elsif(($arg == 95) && ($mon == 12)) { # 12月
		    $arg = 95; # サンタクロース
		} elsif($arg >= $HmonumentNumber) {
		    $arg = 0;
		}
		$landValue->[$x][$y] = $arg;
		logLandSuc($id, $name, $comName, $point);
	    }


戻る