# ↓ペットは時に予想もつかない行動を取ります。 $rnd_border = 1; # 何割かの確率で違う(マイナス)アクションを起こさせます。(0.1〜3) $rnd_img = 'char_ten.gif'; # その時の画像 $rnd_msg = '今日はいつもと違って様子が変です'; # その時のメッセージ |
# ↓良いときのメッセージ。
%good_msg = (
'feed' , 'おいしそうに食べてます♪',
'pat' , 'お腹をみせて喜んでいます♪',
'play' , 'とても楽しそうに遊んでいます♪',
'hit' , 'ちょっといじけてますが、大丈夫でしょう',
'out' , '喜んで外に飛び出していきました♪',
);
# ↓悪いときのメッセージ。
%bad_msg = (
'feed' , 'いくらなんでも与え過ぎですよ',
'pat' , '触れられるのを嫌がっています',
'play' , 'とてもそんな気分じゃないようです',
'hit' , '脱兎のごとく逃げていきました',
'out' , '無理やり外に放り出しました',
);
# ↓どっちでもないときのメッセージ。
%else_msg = (
'feed' , 'あんまり食べたくないみたいです',
'pat' , 'ダルそうにあっちに行ってしまいました',
'play' , '全く興味なさそうです',
'hit' , 'ムカついて噛み付いてきました',
'out' , 'しぶしぶ外へ出て行きました',
);
|
# ↓上の画像のリストと対になっています。
# 画像が表示される時の説明文です。
# かならず24個用意してください。
@schedulemsg = (
'自分の体をなめています',
'爪をといでいます',
'寝ているようです',
'いびきをかいて寝ています',
'ぼーっとしています',
'のびをしています',
'外の様子が気になるようです',
'うるさく鳴いています',
'ヒステリックに鳴いています',
'ペット用トイレでうんこしています',
'毛繕いしているようです',
'壁一面、バリバリ掻いてます',
'タンスの上で丸まっています',
'夢をみているようです',
'ヒマそうです',
'暴れています',
'窓の外を眺めています',
'ニャーニャー鳴いています',
'ひたすら鳴いています',
'部屋の隅っこで丸まっています。',
'布団の上で丸まっています',
'部屋の中にウンコをしました・・・',
'何もやることがなさそうです',
'テーブルの上で丸まっています',
);
|
### その他のメッセージ ### $out_msg = '外出中のようです'; # 外出中 $hungry_msg = 'うるさく鳴いています'; # 空腹時 $tired_msg = 'なんだかぐったりしていますよ'; # 餓死寸前（死亡一日前） $enemy_msg = 'はあなたを敵とみなしています'; # 敵視 $caution_msg = 'はあなたを警戒しています'; # 警戒時 ### スペシャル画像＆メッセージ ### # スペシャル画像1 $delight_img = 'char_ten.gif'; # (サンプル)来訪者を喜んでいる画像 $delight_msg = 'あなたが来たことをすごく喜んでいます'; # その時のメッセージ # スペシャル画像2 $friend_img = 'char_ten.gif'; # (サンプル)友達と遊んでいる画像 $friend_msg = '今日はお友達のピヨちゃんと遊んでいます'; # その時のメッセージ |
# 新規ユーザーを登録
if ($flag == 0) {
$gdate = time - $dayhour[$playtime + 1];
@new = @lines;
push(@new,"$FORM{'name'}<>$FORM{'pass'}<>$gdate<>0<>\n");
&openoutuserdata;
}
|
# 新規ユーザーを登録
if ($flag == 0) {
$gdate = time - $dayhour[$playtime + 1];
@new = @lines;
push(@new,"$FORM{'name'}<>$FORM{'pass'}<>$gdate<>0<>\n");
&openoutuserdata;
$name = $FORM{'name'};
$pass = $FORM{'pass'};
}
|