# ↓上の画像のリストと対になっています。
# 画像が表示される時の説明文です。
# かならず24個用意してください。
@schedulemsg = ( # 「おはよう」用 ↓
'自分の体をなめています',
'爪をといでいます',
'寝ているようです',
'いびきをかいて寝ています',
'ぼーっとしています',
'のびをしています',
'外の様子が気になるようです',
'うるさく鳴いています',
'ヒステリックに鳴いています',
'ペット用トイレでうんこしています',
'毛繕いしているようです',
'壁一面、バリバリ掻いてます',
'タンスの上で丸まっています',
'夢をみているようです',
'ヒマそうです',
'暴れています',
'窓の外を眺めています',
'ニャーニャー鳴いています',
'ひたすら鳴いています',
'部屋の隅っこで丸まっています。',
'布団の上で丸まっています',
'部屋の中にウンコをしました・・・',
'何もやることがなさそうです',
'テーブルの上で丸まっています',
); # 「おはよう」用 ↑
@schedulemsg2 = ( # 「こんにちは」用 ↓
'自分の体をなめています',
'爪をといでいます',
'寝ているようです',
'いびきをかいて寝ています',
'ぼーっとしています',
'のびをしています',
'外の様子が気になるようです',
'うるさく鳴いています',
'ヒステリックに鳴いています',
'ペット用トイレでうんこしています',
'毛繕いしているようです',
'壁一面、バリバリ掻いてます',
'タンスの上で丸まっています',
'夢をみているようです',
'ヒマそうです',
'暴れています',
'窓の外を眺めています',
'ニャーニャー鳴いています',
'ひたすら鳴いています',
'部屋の隅っこで丸まっています。',
'布団の上で丸まっています',
'部屋の中にウンコをしました・・・',
'何もやることがなさそうです',
'テーブルの上で丸まっています',
); # 「こんにちは」用 ↑
@schedulemsg3 = ( # 「こんばんは」用 ↓
'自分の体をなめています',
'爪をといでいます',
'寝ているようです',
'いびきをかいて寝ています',
'ぼーっとしています',
'のびをしています',
'外の様子が気になるようです',
'うるさく鳴いています',
'ヒステリックに鳴いています',
'ペット用トイレでうんこしています',
'毛繕いしているようです',
'壁一面、バリバリ掻いてます',
'タンスの上で丸まっています',
'夢をみているようです',
'ヒマそうです',
'暴れています',
'窓の外を眺めています',
'ニャーニャー鳴いています',
'ひたすら鳴いています',
'部屋の隅っこで丸まっています。',
'布団の上で丸まっています',
'部屋の中にウンコをしました・・・',
'何もやることがなさそうです',
'テーブルの上で丸まっています',
); # 「こんばんは」用 ↑
|
# スペシャル画像2
if ($love > $special2) {
if ($timeafter == $specialtime2a || $timeafter == $specialtime2b) {
&petnow($friend_img,$friend_msg);
return;
}
}
# 現在の日付取得
($isec,$imin,$ihour,$iday,$imon,$iyear) = localtime(time);
$iyear += 1900;
$imon++;
# ラブポイントが一定以上でノーマル画像
if ( $love >= $bad - $good ) {
&petnow($scheduleimg[$timeafter],$schedulemsg[$timeafter]);
return;
}
|
# ラブポイントが一定以上でノーマル画像
if ($love >= $bad - $good) {
if ($ihour >= 5 && $ihour < 10) {
&petnow($scheduleimg[$timeafter],$schedulemsg[$timeafter]); # 「おはよう」用
}
elsif ($ihour >= 10 && $ihour < 18) {
&petnow($scheduleimg[$timeafter],$schedulemsg2[$timeafter]); # 「こんにちは」用
}
else {
&petnow($scheduleimg[$timeafter],$schedulemsg3[$timeafter]); # 「こんばんは」用
}
return;
}
|