1. #!/usr/local/bin/perl

  3. # ######################
  4. # PET ROOM
  5. $ver = 2.5;
  6. # Copyright (C) 2000-2004 Missing Link.
  7. # All rights reserved.
  8. # 作成者 Sho
  9. # E-mail: sho@area-s.com
  10. # Home Page: http://www.area-s.com/
  11. # このスクリプトはフリーウェアです。
  12. # 本スクリプトを利用する方は以下のURLに記載された
  13. # 利用既定に同意したものとみなします。
  14. # http://www.area-s.com/main/rule.html
  15. # 著作権はMISSING LINKが保有します。
  16. # 質問等はサポート掲示板まで。
  17. # http://www.area-s.com/main/support.html
  18. # ######################

  20. # #################設定はここから############

  22. # ↓Pet Roomで使用する全ての画像を格納するディレクトリです。
  23. # 絶対パス(http://から始まるパス)でも相対パスでも構いません。
  24. # 初期値はpet.cgiと同じ場所に配置するようになっています。
  25. # プロバイダ(サーバ)によってはcgi-binの下に画像ディレクトリを
  26. # 置くことを禁止している場合があります。その場合は、
  27. # cgi-binより上層に画像ディレクトリを配置しパスを変更してください。
  28. # swfファイルと角画像もこのフォルダの中に格納します。
  29. $img = './img/';

  31. $lockkey = 1; # ファイルのロック(0=no 1=mkdir 2=symlink) Amend Ver 2.2
  32. # symlinkが上手くいかない場合はrmdirを使用して下さい。

  34. $bgcolor = '#FFFFFF'; # 背景色
  35. $txcolor = '#000000'; # テキストの色
  36. $nlcolor = '#000000'; # リンク色(未)
  37. $alcolor = '#999999'; # リンク色(現)
  38. $vlcolor = '#000000'; # リンク色(既)

  40. $tbsize = 240; # テーブルのサイズ
  41. $tbcolor = '#FF9999'; # テーブルの色
  42. $tbbcground = ''; # テーブルの背景画像(フルパス)

  44. $barcolor = '#FF3333'; # バーの色
  45. $font1 = '#000000'; # バー内に表示させる文字の色
  46. $font2 = '#880000'; # データタイトルやボタンに使用する色

  48. $fontsize = '8pt'; # フォントサイズ(通常)
  49. $but_sze = 10; # フォントサイズ(ボタン)
  50. $txb_sze = 10; # フォントサイズ(テキスト入力欄)

  52. $txc_bdr = '#FF9999'; # テキスト入力欄とボタンのボーダーの色 (IE)
  53. $txc_bcg = '#FFCCCC'; # テキスト入力欄の背景の色 (IE)
  54. $btc_bcg = '#FFCCCC'; # ボタンの背景の色 (IE)
  55. $txs_bdr = '1pt'; # テキスト入力欄のボーダーサイズ (IE)

  57. $printtitle = 1; # タイトルを画面内に表示するかどうか(yes=1,no=0)
  58. # タイトルの副題：ペット名の後に続く(〜の部屋、〜わんぱく日記etc)
  59. $titlesub = 'の生活';
  60. # ペットが住んでいないときのタイトル名
  61. $nopet = '空部屋';
  62. # タイトルのフォントサイズ
  63. $t_size = 3;

  65. # フォーム内のスペース
  66. $f_space = 3;

  68. # 画面下部に戻るボタンを表示するか(yes=1,no=0)
  69. $printback = 1;
  70. # 戻り先URL http:// から記入(絶対パス)
  71. $backurl = 'http://xxx.co.jp/~user/xxx.html';
  72. # 戻り先URLのラベル
  73. $backword = 'ホーム';
  74. # 戻り先のターゲット _self _blank _top など
  75. $backtarget = '_self';

  77. # 何日訪れないと飼い主ランキングから削除されるか。
  78. $goodbye = '5';
  79. # ペットが死んだとき前回と同じ名前を付けられるようにするか。(yes=1,no=0)
  80. $samename = 0;

  82. # ------------------------- #
  83. # ペットの設定
  84. # ------------------------- #

  86. # ペットの鳴き声を鳴らす場合は1、鳴らさない場合は0
  87. # ショックウェーブがうまく動作しない方は0にしてください。
  88. $voice = 1;

  90. # 何時間おきに遊べるか（コマンドを受け付けるか）。
  91. # 一時間より短くする場合、$playtime を0にしてください。
  92. $playtime = 1;
  93. # 一時間より短くする場合、$playminute を 分単位で入力
  94. $playminute = 0; # 例：0分

  96. $deadline = 3; # 何日以上餌を食べないと死ぬか。
  97. $comeback = 1; # ペットを一回外に出すと何時間したら戻ってくるか。
  98. $novisit = 1; # 来客が一人も来ない日が何日続くとペットが不機嫌になるか。
  99. $loved = 7; # ラブポイントを何点以上取るとペットになつかれているか。
  100. $disliked = 0; # ラブポイントが何点以下だとペットに嫌われているか。
  101. $special1 = 7; # ラブポイントが何点以上だとスペシャル画像1を表示するか。
  102. $specialtime1a = 2; # 食後何時間でその画像を表示させるか。
  103. $specialtime1b = 8; # 二つまで設定可能。一つでいい場合は上と同じにする。
  104. $special2 = 9; # ラブポイントが何点以上だとスペシャル画像2を表示するか。
  105. $specialtime2a = 20; # 食後何時間でその画像を表示させるか。
  106. $specialtime2b = 21; # 二つまで設定可能。一つでいい場合は上と同じにする。

  108. # ↓ペットは時に予想もつかない行動を取ります。
  109. $rnd_border = 5; # 何%かの確率で違う(マイナス)アクションを起こさせます。
  110. $rnd_img = 'keikai.gif'; # その時の画像
  111. $rnd_msg = '今日はいつもと違って様子が変です'; # その時のメッセージ

  113. # ↓一日の予定を組みます(餌を与えられてから24時間のスケジュール)
  114. # 上から順に0〜1時間、1〜2時間となっています。
  115. # その間に表示させたい画像を以下に指定します。
  116. # ただし、画像は全て同じ大きさのものを使用してください。
  117. # 変更する場合は→'画像ファイル名',でワンセットですので、
  118. # 点を間違って削除したりしないよう注意してください。
  119. # かならず24時間分指定してください。
  120. # 24時間以上経つとペットはお腹を空かせ、後はずっと鳴いた画像が表示されます。
  121. @scheduleimg = (
  122. 'name.gif',
  123. 'tume.gif',
  124. 'neteru.gif',
  125. 'neteru.gif',
  126. 'boo.gif',
  127. 'nobi.gif',
  128. 'soto.gif',
  129. 'naku.gif',
  130. 'naku.gif',
  131. 'unko.gif',
  132. 'name.gif',
  133. 'tume.gif',
  134. 'maru.gif',
  135. 'neteru.gif',
  136. 'boo.gif',
  137. 'tume.gif',
  138. 'soto.gif',
  139. 'naku.gif',
  140. 'naku.gif',
  141. 'maru.gif',
  142. 'maru.gif',
  143. 'unko.gif',
  144. 'boo.gif',
  145. 'maru.gif',
  146. );

  148. # ↓上の画像のリストと対になっています。
  149. # 画像が表示される時の説明文です。
  150. # かならず24個用意してください。
  151. @schedulemsg = (
  152. '自分の体をなめています',
  153. '爪をといでいます',
  154. '寝ているようです',
  155. 'いびきをかいて寝ています',
  156. 'ぼーっとしています',
  157. 'のびをしています',
  158. '外の様子が気になるようです',
  159. 'うるさく鳴いています',
  160. 'ヒステリックに鳴いています',
  161. 'ペット用トイレでうんこしています',
  162. '毛繕いしているようです',
  163. '壁一面、バリバリ掻いてます',
  164. 'タンスの上で丸まっています',
  165. '夢をみているようです',
  166. 'ヒマそうです',
  167. '暴れています',
  168. '窓の外を眺めています',
  169. 'ニャーニャー鳴いています',
  170. 'ひたすら鳴いています',
  171. '部屋の隅っこで丸まっています。',
  172. '布団の上で丸まっています',
  173. '部屋の中にウンコをしました・・・',
  174. '何もやることがなさそうです',
  175. 'テーブルの上で丸まっています',
  176. );

  178. # ↓更に上と対になっています。
  179. # その時間帯にペットが一番やってほしいこと(もしくは効果があること)。
  180. # play = 遊ぶ,pat = なでる,feed = 餌をやる,hit = しかる,out = 外に出す。
  181. # ない場合は点の間を空白。
  182. # 複数ある場合は'play_pat',のように間を_で繋ぐ。
  183. @scheduledsr = (
  184. 'pat',
  185. 'play',
  186. 'pat',
  187. 'pat',
  188. 'pat',
  189. 'pat',
  190. 'out',
  191. 'out',
  192. 'out',
  193. '',
  194. 'pat',
  195. 'hit',
  196. '',
  197. 'pat',
  198. 'play',
  199. 'hit',
  200. 'out',
  201. 'out',
  202. 'out',
  203. '',
  204. 'pat',
  205. 'hit',
  206. 'play',
  207. '',
  208. );

  210. # 更に続きます。
  211. # その時間帯に来客者がやっては行けないことです。
  212. # ただし、やってほしい事とやってはいけないことを重複させないようにしてください。
  213. @schedulednt = (
  214. 'hit_out_feed',
  215. 'hit_pat_out_feed',
  216. 'hit_out_feed',
  217. 'hit_out_feed',
  218. 'hit_out',
  219. 'hit',
  220. 'hit',
  221. 'hit',
  222. 'hit',
  223. 'hit_pat_play_out',
  224. 'hit_out',
  225. 'pat_play',
  226. 'hit',
  227. 'hit_out_feed',
  228. 'hit',
  229. 'pat_play',
  230. 'hit',
  231. '',
  232. '',
  233. 'hit_out_pat',
  234. 'hit_out',
  235. 'pat_play',
  236. 'hit',
  237. 'hit',
  238. );

  240. # もうすぐ終わりです。
  241. # アクションを起こした後のそれぞれの反応を設定します。

  243. # ↓良いときの画像。左辺は変更しないでください。
  244. %good_img = (
  245. 'feed' , 'esa.gif',
  246. 'pat' , 'jare.gif',
  247. 'play' , 'fun.gif',
  248. 'hit' , 'keikai.gif',
  249. 'out' , 'dash.gif',
  250. );
  251. # ↓悪い時の画像。
  252. %bad_img = (
  253. 'feed' , 'tukare.gif',
  254. 'pat' , 'bite.gif',
  255. 'play' , 'tukare.gif',
  256. 'hit' , 'dash.gif',
  257. 'out' , 'soppo.gif',
  258. );
  259. # ↓どっちでもないときの画像。
  260. %else_img = (
  261. 'feed' , 'soppo.gif',
  262. 'pat' , 'soppo.gif',
  263. 'play' , 'boo.gif',
  264. 'hit' , 'bite.gif',
  265. 'out' , 'soppo.gif',
  266. );
  267. # ↓良いときのメッセージ。
  268. %good_msg = (
  269. 'feed' , 'おいしそうに食べてます♪',
  270. 'pat' , 'お腹をみせて喜んでいます♪',
  271. 'play' , 'とても楽しそうに遊んでいます♪',
  272. 'hit' , 'ちょっといじけてますが、大丈夫でしょう',
  273. 'out' , '喜んで外に飛び出していきました♪',
  274. );
  275. # ↓悪いときのメッセージ。
  276. %bad_msg = (
  277. 'feed' , 'いくらなんでも与え過ぎですよ',
  278. 'pat' , '触れられるのを嫌がっています',
  279. 'play' , 'とてもそんな気分じゃないようです',
  280. 'hit' , '脱兎のごとく逃げていきました',
  281. 'out' , '無理やり外に放り出しました',
  282. );
  283. # ↓どっちでもないときのメッセージ。
  284. %else_msg = (
  285. 'feed' , 'あんまり食べたくないみたいです',
  286. 'pat' , 'ダルそうにあっちに行ってしまいました',
  287. 'play' , '全く興味なさそうです',
  288. 'hit' , 'ムカついて噛み付いてきました',
  289. 'out' , 'しぶしぶ外へ出て行きました',
  290. );


  293. ### その他の画像 ###
  294. $dead_img = 'dead.gif'; # 死んだ画像
  295. $cry_img = 'naku.gif'; # 鳴いてる画像
  296. $tired_img = 'tukare.gif'; # 餓死寸前（死亡一日前）
  297. $gone_img = 'gone.gif'; # 外出中の画像
  298. $angry_img = 'ikaku.gif'; # 威嚇している画像
  299. $caution_img = 'keikai.gif'; # 警戒している画像

  301. ### その他のメッセージ ###
  302. $out_msg = '外出中のようです'; # 外出中
  303. $hungry_msg = 'うるさく鳴いています'; # 空腹時
  304. $tired_msg = 'なんだかぐったりしていますよ'; # 餓死寸前（死亡一日前）
  305. $enemy_msg = 'はあなたを敵とみなしています'; # 敵視
  306. $caution_msg = 'はあなたを警戒しています'; # 警戒時

  308. ### スペシャル画像＆メッセージ ###
  309. # スペシャル画像1
  310. $delight_img = 'love.gif'; # (サンプル)来訪者を喜んでいる画像
  311. $delight_msg = 'あなたが来たことをすごく喜んでいます'; # その時のメッセージ
  312. # スペシャル画像2
  313. $friend_img = 'friend.gif'; # (サンプル)友達と遊んでいる画像
  314. $friend_msg = '今日はお友達のピヨちゃんと遊んでいます'; # その時のメッセージ

  316. $imgw = '200'; # ペットの画像の横幅（ピクセル）
  317. $imgh = '150'; # ペットの画像の縦幅（ピクセル）
  318. # サンプル画像を使用する場合
  319. # petimg ⇒ w=250 h=250 petimg2 ⇒w=200 h=150

  321. # 角画像 ファイル名
  322. $ltimg = 'lt.gif';
  323. $rtimg = 'rt.gif';
  324. $lbimg = 'lb.gif';
  325. $rbimg = 'rb.gif';
  326. # 角画像 一辺のピクセルサイズ
  327. $ris = '8';

  329. # 終了時に画像を表示する（yes = 1,no = 0）
  330. $ending = 1;
  331. # 終了画像
  332. $endimg = 'neteru.gif';
  333. # 終了時のメッセージ
  334. $endmsg = 'お疲れ様でした';

  336. # Ver2.2 追加分
  337. $namefixed = ''; # ペットの名前を固定する(yes=名前を入力)
  338. $sexfixed = ''; # ペットの性別を固定する(yes='オス'か'メス'を入力)

  340. # ########################設定はここまで############################
  341. # ここから先を変更する場合はご自分の責任において変更してください。

  343. # このCGIの名前
  344. $cgiurl = './pet.cgi';

  346. # jcodeパールのパス
  347. require 'jcode.pl';

  349. # データファイル名
  350. $userdata = './user.cgi'; # 来客者情報が入ってるデータ
  351. $petdata = './petd.cgi'; # ペットの情報が入ってるデータ
  352. $lockfile = './petlock'; # ロックファイル名
  353. $method = 'POST'; # POSTかGETを選択

  355. # ボディーの設定
  356. $body = "<body bgcolor=$bgcolor text=$txcolor link=$nlcolor vlink=$vlcolor alink=$alcolor>";
  357. # テーブルの設定
  358. $table = "<table width=$tbsize border=0 cellspacing=0 cellpadding=0 align=center background=\"$tbbcground\" bgcolor=$tbcolor>";
  359. # 一日は86400秒
  360. $daysec = 86400;
  361. # 秒を時間に変換
  362. @dayhour = (0, 3600, 7200, 10800, 14400, 18000, 21600, 25200, 28800, 32400, 36000, 39600, 43200, 46800, 50400, 54000, 57600, 61200, 64800, 68400, 72000);
  363. # 空腹変数初期化
  364. $hungry = 0;
  365. # 日本時間にあわせる
  366. $ENV{'TZ'} = "JST-9";

  1. # ------------------------- #
  2. # Main Program
  3. # メイン処理
  4. # ------------------------- #
  5. &decode;
  6. &openinpetdata;
  7. &titlecheck;
  8. if ($FORM{'mode'} eq "end") { &error("$endmsg") }
  9. elsif ($FORM{'mode'} eq "newpet") { &newpet }
  10. elsif ($FORM{'mode'} eq "nopet") { &nopet }
  11. elsif ($FORM{'mode'} eq "owner") { &ownerlist }
  12. elsif ($FORM{'mode'} eq "entername") { &petform }
  13. elsif ($FORM{'mode'} eq "back") { &petform }
  14. elsif (!$FORM{'mode'}) { &entername }
  15. else { &action }
  16. exit;

  1. # ------------------------- #
  2. # Sub Title Check
  3. # タイトルチェック
  4. # ------------------------- #
  5. sub titlecheck {
  6. if ($FORM{'mode'} eq "nopet") { $title = "$nopet" } # Add Ver 2.2
  7. elsif ($FORM{'petname'} ne "") { $title = "$FORM{'petname'}$titlesub" } # Amend Ver 2.2
  8. elsif ($petname ne "") { $title = "$petname$titlesub" }
  9. else { $title = "$nopet" }
  10. }

  1. # ------------------------- #
  2. # Sub Enter Name
  3. # 名前入力画面
  4. # ------------------------- #
  5. sub entername {
  6. $playmsg = "$playtime時間" if $playtime != 0;
  7. $playmsg = "$playminute分" if $playtime == 0;

  9. &get_cookie;
  10. &header;
  11. &bodytop('名前入力');
  12. &tabletop;

  14. print "お名前を入力してください（半角カナ禁止）。<br>\n";
  15. &input('text','name',$c_name,' class=text','<br>');
  16. print "データ保存用にパスワードを入力してください。<br>\n";
  17. &input('password','pass',$c_pass,' class=text','<br><br>');
  18. print "</td>\n";
  19. print "</tr>\n";
  20. print "<tr>\n";
  21. print "<td align=\"right\">\n";
  22. &input('checkbox','cook','on',' checked','入力情報を保存');
  23. &input('submit','','OK!',' class=button','');
  24. &input('hidden','mode','entername','','<br>');
  25. &tablebottom;
  26. print "</td>\n";
  27. print "</tr>\n";

  29. &bar('','ペット育成ゲームの遊び方');

  31. print "<tr>\n";
  32. print "<td>\n";
  33. &tabletop;
  34. print "まずお名前とパスワードを入力してください。<br>\n";
  35. print "OKを押すとペットの部屋に入室できます。<br>\n";
  36. print "部屋にはペットが住みついています。<br>\n";
  37. print "初めての方には警戒しますが、<br>\n";
  38. print "慣れてくるとなつくようになります。<br>\n";
  39. print "餌をあげたり遊んであげたりしてください。<br>\n";
  40. &tablebottom;
  41. print "</td>\n";
  42. print "</tr>\n";

  44. &bar('','注意');

  46. print "<tr>\n";
  47. print "<td>\n";
  48. &tabletop;
  49. print "ペットは$deadline日以上餌を食べないと死にます。<br>\n";
  50. print "一回の来室後、$playmsgは見るだけになります。<br>\n";
  51. print "$goodbye日間訪問がない場合、データから削除されます。\n";

  53. &tablebottom;
  54. &bodybottom;
  55. &footer;
  56. exit;
  57. }

  1. # ------------------------- #
  2. # Sub Check Name
  3. # ユーザー情報をチェック
  4. # ------------------------- #
  5. sub checkname {
  6. local($flag) = 0;

  8. # 未入力をチェック
  9. if (!$FORM{'name'}) { &error("名前がありません") }
  10. if (!$FORM{'pass'}) { &error("パスワードがありません") }

  12. &openinuserdata('checkname');

  14. # 新規ユーザーを登録
  15. if ($flag == 0) {
  16. $gdate = time - $dayhour[$playtime + 1];
  17. @new = @lines;
  18. push(@new,"$FORM{'name'}<>$FORM{'pass'}<>$gdate<>0<>\n");
  19. &openoutuserdata;
  20. $love = 0; # Add Ver 2.2
  21. }
  22. # 既存ユーザーの場合入室チェック
  23. else {
  24. $enter = 1 if time - $gdate < $dayhour[$playtime] && $playtime != 0;
  25. $enter = 1 if time - $gdate < $playminute * 60 && $playtime == 0;
  26. }

  28. # クッキーを保存
  29. if ($FORM{'cook'} eq "on") { &set_cookie }
  30. }

  1. # ------------------------- #
  2. # Sub Condition
  3. # ペットのコンディション
  4. # ------------------------- #
  5. sub condition {
  6. print "</td>\n";
  7. print "</tr>\n";
  8. # 一定期間餌をあげないと死んでしまう。
  9. if (time >= $lastfeed + $daysec * $deadline) {
  10. $noaction = 1;
  11. $deadover = &checkday($lastfeed);

  13. print "<tr>\n";
  14. print "<td>\n";
  15. &tabletop;
  16. &petnow($dead_img,"$petnameは死にました。<br>死後$deadover日経っています。");

  18. print "<tr>";
  19. print "<td align=\"right\">\n";
  20. &input('hidden','mode','nopet','','');
  21. &input('hidden','name',$FORM{'name'},'','');
  22. &input('hidden','pass',$FORM{'pass'},'','');
  23. print "新しいペットを飼う\n";
  24. &input('submit','','OK',' class=button','');
  25. &tablebottom;
  26. print "</td>\n";
  27. print "</tr>\n";
  28. return;
  29. }

  31. # 外出中の処理
  32. if ($out == 1 && (time - $outdate) < $dayhour[$comeback]) {
  33. &petnow($gone_img,$out_msg);
  34. $noaction = 1;
  35. return;
  36. } else {$out = 0;}

  38. # お腹が空いている時の処理
  39. if ($hungry > 0) {
  40. # お腹が空いて餓死寸前
  41. if ($hungry >= $deadline - 1) { &petnow($tired_img,$tired_msg) }
  42. else { &petnow($cry_img,$hungry_msg);
  43. $swfurl = $img . 'catvoice.swf';
  44. if ($voice == 1) { &flash($swfurl) }
  45. }
  46. $plusfeed = 'feed';
  47. $minusfeed = 'hit_pat_play_out';
  48. return;
  49. }

  51. # 食後の経過時間を$timeafterに代入
  52. $timeafter = int((time - $lastfeed)/3600);

  54. # ラブポイントがある基準以下の場合、威嚇画像を表示
  55. if ($bad - $good - $love > 5) {
  56. &petnow($angry_img,"$petname$enemy_msg");
  57. $swfurl = $img . 'catvoicerage.swf';
  58. if ($voice == 1) { &flash($swfurl) }
  59. return;
  60. }
  61. # スペシャル画像1
  62. if ($love > $special1) {
  63. if ($timeafter == $specialtime1a || $timeafter == $specialtime1b) {
  64. &petnow($delight_img,$delight_msg);
  65. return;
  66. }
  67. }
  68. # スペシャル画像2
  69. if ($love > $special2) {
  70. if ($timeafter == $specialtime2a || $timeafter == $specialtime2b) {
  71. &petnow($friend_img,$friend_msg);
  72. return;
  73. }
  74. }

  76. # ラブポイントが一定以上でノーマル画像
  77. if ( $love >= $bad - $good ) {
  78. &petnow($scheduleimg[$timeafter],$schedulemsg[$timeafter]);
  79. return;
  80. }

  82. # どれにも当てはまらない場合、警戒画像を表示
  83. &petnow($caution_img,"$petname$caution_msg");
  84. }

  1. # ------------------------- #
  2. # Sub Pet Form
  3. # ペットフォーム
  4. # ------------------------- #
  5. sub petform {
  6. &checkname;
  7. if (!$petname) { &nopet;exit }
  8. &header;
  9. &title;
  10. &bodytop("ペットデータ($num代目)");
  11. &petdata;
  12. &condition;
  13. if ($noaction == 0 && $enter != 1) {
  14. print "<tr>\n";
  15. print "<td>\n";
  16. &tabletop;
  17. &input('radio','mode','feed',' checked','餌をあげる<br>');
  18. &input('radio','mode','pat','','<br>');
  19. &input('radio','mode','out','','外に出す');
  20. print "</td>\n";
  21. print "<td>\n";
  22. &input('radio','mode','play','','遊ぶ<br>');
  23. &input('radio','mode','hit','','しかる<br>');
  24. &input('radio','mode','owner','','飼い主ランキング');
  25. print "</td>\n";
  26. print "</tr>\n";

  28. print "<tr>\n";
  29. print "<td colspan=\"2\">\n";
  30. print "<div align=\"right\">\n";
  31. &input('hidden','name',$FORM{'name'},'','');
  32. &input('hidden','pass',$FORM{'pass'},'','');
  33. &input('hidden','good',"$scheduledsr[$timeafter]$plusfeed",'','');
  34. &input('hidden','bad',"$schedulednt[$timeafter]$minusfeed",'','');
  35. &input('submit','','OK!',' class=button','<br>');
  36. print "</div>\n";
  37. &tablebottom;
  38. } else { $actionflag = 1 }
  39. &bodybottom;
  40. &openoutpetdata;
  41. &footer;
  42. }

  1. # ------------------------- #
  2. # Sub Pet Data
  3. # ペットデータ
  4. # ------------------------- #
  5. sub petdata {
  6. # 何日以上か面会がない場合、ペットの機嫌が下がる
  7. if (&checkday($lastvisit) >= $novisit) { $good-- }
  8. # 何日間食べていないか。
  9. $hungry = &checkday($lastfeed);

  11. # ゲストが何日ぶりの来訪かをチェックし、ラブ数を減らす
  12. # $love-- if &checkday($gdate) > 1; # 簡単モード
  13. $love = $love - &checkday($gdate);

  15. $agetotalday = &checkday($birth);
  16. &gettime($lastfeed);

  18. &tabletop;
  19. print "名前：<font color=$font2>$petname</font></td>\n";
  20. print "<td>性別：<font color=$font2>$sex</font></td>\n";
  21. print "</tr>\n";

  23. print "<tr>\n";
  24. print "<td>名付け親：<font color=$font2>$godfather</font></td>\n";
  25. print "<td>年齢：<font color=$font2>生後$agetotalday日</font></td>\n";
  26. print "</tr>\n";

  28. print "<tr>\n";
  29. print "<td colspan=2>最後に餌を食べた日：<font color=$font2>$date</font>\n";
  30. &tablebottom;
  31. }

  1. # ------------------------- #
  2. # Sub No Pet
  3. # 新規ペット登録
  4. # ------------------------- #
  5. sub nopet {
  6. &checkname;
  7. &header;
  8. &title;
  9. &bodytop('新しくペットを飼う');
  10. &tabletop;
  11. print "現在、まだここにペットは住んでいません。<br>\n";
  12. print "あなたが名付け親となって新しいペットを飼いましょう！\n";
  13. &tablebottom;
  14. print "</td>\n";
  15. print "</tr>\n";

  17. &bar('','新しいペットの情報を登録してください');

  19. print "<tr>\n";
  20. print "<td>\n";
  21. &tabletop;
  22. print "名前：";
  23. # Amend Ver 2.2 #
  24. if ($namefixed) { print "$namefixed\n"; &input('hidden','petname',$namefixed,'','') }
  25. else { &input('text','petname','',' maxlength="10" class=text','') }
  26. # End Amend #
  27. print "</td>\n";
  28. print "</tr>\n";

  30. print "<tr>\n";
  31. print "<td>\n";
  32. print "性別：";
  33. # Amend Ver 2.2 #
  34. if ($sexfixed) { print "$sexfixed" }
  35. else {
  36. &input('radio','sex','0',' checked','オス');
  37. &input('radio','sex','1','','メス');
  38. }
  39. # End Amend #
  40. print "</td>\n";
  41. print "</tr>\n";

  43. print "<tr>\n";
  44. print "<td align=\"right\">\n";
  45. &input('hidden','mode','newpet','','');
  46. &input('hidden','name',$FORM{'name'},'','');
  47. &input('hidden','pass',$FORM{'pass'},'','');
  48. print "OKを押すと新しくペットが住みつきます。\n";
  49. &input('submit','','OK',' class=button','');
  50. &tablebottom;

  52. &bodybottom;
  53. &footer;
  54. }

  1. # ------------------------- #
  2. # Sub New Pet
  3. # 新規ペット登場
  4. # ------------------------- #
  5. sub newpet {
  6. $deadname = $petname;
  7. $petname = $FORM{'petname'};
  8. &error("不正があります") if time < $lastfeed + $daysec * $deadline; # Add Ver 2.2
  9. if ($namefixed) { $petname = $namefixed; $deadname = '' } # Add Ver 2.2
  10. if ($petname eq "") { &error("ペットに名前をつけてください") }
  11. if ($petname eq $deadname && $samename == 0) { &error("前と同じ名前はつけられません") }
  12. if ( $FORM{'sex'} == 1 ) { $sex = 'メス' } else { $sex = 'オス' }
  13. $sex = $sexfixed if $sexfixed; # Add Ver 2.2
  14. $godfather = $FORM{'name'};
  15. $birth = time;
  16. $dead = 0;
  17. $lastfeed = time;
  18. $lastplay = time;
  19. $good = 0;
  20. $bad = 0;
  21. $out = 0;
  22. $outdate = 0;
  23. $num++;
  24. &openoutpetdata;
  25. $gdate = time - $dayhour[$playtime + 1];
  26. @new = "$FORM{'name'}<>$FORM{'pass'}<>$gdate<>$loved<>\n";
  27. &openoutuserdata;
  28. &petform;
  29. }

  1. # ------------------------- #
  2. # Sub Action
  3. # アクション
  4. # ------------------------- #
  5. sub action {
  6. $playmsg = "$playtime時間" if $playtime != 0;
  7. $playmsg = "$playminute分" if $playtime == 0;

  9. &checkname;
  10. &error("まだ$playmsg経過していません") if $enter == 1;

  12. &header;
  13. &title;
  14. &bodytop("ペットデータ($num代目)");
  15. &petdata;
  16. srand(time);
  17. $rnd = int(rand(100) + 1); # Amend Ver 2.2
  18. $fa = $FORM{'mode'};

  20. if ($fa eq 'play') { $lastplay = time }
  21. if ($fa eq 'out') { $out = 1; $outdate = time }

  23. if ($rnd <= $rnd_border) {
  24. &petnow($rnd_img,$rnd_msg);
  25. $love--;
  26. }
  27. elsif ($FORM{'good'} =~ /$fa/) {
  28. &petnow($good_img{$fa},$good_msg{$fa});
  29. $love++;$good++;
  30. if ($fa eq "feed") { $lastfeed = time }
  31. }
  32. elsif ($FORM{'bad'} =~ /$fa/) {
  33. &petnow($bad_img{$fa},$bad_msg{$fa});
  34. $love--;$bad++;
  35. }
  36. else {
  37. &petnow($else_img{$fa},$else_msg{$fa});
  38. }

  40. &openoutpetdata;

  42. $goodbye = time - (60 * 60 * 24 * $goodbye);
  43. $newlove = $love;
  44. &openinuserdata('action');
  45. &openoutuserdata;
  46. $actionflag = 1; # 飼い主ランキングのリンクを表示
  47. &bodybottom;
  48. &footer;
  49. }

  1. # ------------------------- #
  2. # Sub Owner List
  3. # 飼い主ランキング
  4. # ------------------------- #
  5. sub ownerlist {
  6. &header;
  7. &title;
  8. $bestlove = $lovenum = $hatenum = $othernum = 0;
  9. &openinuserdata('ownerlist');

  11. &bodytop('飼い主ランキング');
  12. &tabletop;

  14. print "<font color=$font2>$petnameが一番なついている人は</font><br>";
  15. if ($bestlove < $loved) { print "いません<br>\n" }
  16. else { print "$bestownerさんです<br>\n" }
  17. print "<br>\n";

  19. print "<font color=$font2>$petnameがなついている人は</font><br>";
  20. if ($lovenum == 0) { print "<br>" }
  21. else { foreach $owner (@lovelist) { print "$ownerさん<br>\n" } }
  22. print "<br>\n";

  24. print "<font color=$font2></font><br>";
  25. if ($hatenum == 0) { print "いません<br>";}
  26. else { foreach $owner (@hatelist) { print "$ownerさん<br>\n" } }
  27. print "<br>\n";

  29. print "<font color=$font2>それ以外の人</font><br>";
  30. if ($othernum == 0) { print "いません<br>" }
  31. else { foreach $owner (@otherlist) { print "$ownerさん<br>\n" } }

  33. &tablebottom;
  34. &bodybottom;
  35. &footer;
  36. }

  1. # ------------------------- #
  2. # Sub Pet Now
  3. # ペットの現在の状況
  4. # ------------------------- #
  5. sub petnow {
  6. print "<tr>\n";
  7. print "<td align=\"center\">";
  8. print "<img src=\"$img$_[0]\" width=\"$imgw\" height=\"$imgh\" border=\"0\">\n";
  9. print "</td>";
  10. print "</tr>\n";
  11. &bar('',$_[1]);
  12. }

  14. ##### 以下、内部、及びHTML処理 #####

  1. # ------------------------- #
  2. # Sub Header
  3. # ヘッダー
  4. # ------------------------- #
  5. sub header {
  6. print "Content-type: text/html\n\n";
  7. print "<html>\n<head>\n";
  8. print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=Shift_JIS\">\n";
  9. print "<title>$title</title>\n";
  10. &style;
  11. print "</head>\n";
  12. print "$body\n";
  13. $headflag = 1;
  14. }

  1. # ------------------------- #
  2. # Sub Title
  3. # タイトル
  4. # ------------------------- #
  5. sub title {
  6. if ($printtitle == 1) {
  7. print "<div align=\"center\"><b><font size=\"$t_size\">$title</font></b></div>";
  8. }
  9. }

  1. # ------------------------- #
  2. # Sub Footer
  3. # フッター
  4. # ------------------------- #
  5. sub footer {
  6. print "<br>\n";
  7. print "<center><font color=$font2>";
  8. # 著作権表示。絶対に消さないで下さい！
  9. print "PET ROOM Ver $ver <br>\n";
  10. print '■ <a href="http://www.area-s.com/" target="_blank" title="Pet Roomの本家配布元">MISSING LINK</a> ■';
  11. print "</font>\n</center>\n</body>\n</html>\n";
  12. }

  1. # ------------------------- #
  2. # Sub Style
  3. # スタイルシート
  4. # ------------------------- #
  5. sub style {
  6. print "<STYLE TYPE=\"text/css\">\n";
  7. print "<!--\n";
  8. print "A:link {text-decoration:none;color:$nlcolor}\n";
  9. print "A:visited {text-decoration:none;color:$vlcolor}\n";
  10. print "A:hover {text-decoration:none;color:$alcolor}\n";
  11. print "body,tr,td,th { font-size:$fontsize }\n";
  12. print ".button {font-size:$but_sze;border:solid;border-width:$txs_bdr;border-color:$txc_bdr;background-color:$btc_bcg}\n";
  13. print ".text {font-size:$txb_sze;border:solid;border-width:$txs_bdr;border-color:$txc_bdr;background-color:$txc_bcg}\n";
  14. print "-->\n";
  15. print "</STYLE>\n";
  16. }

  1. # ------------------------- #
  2. # Sub Body Top
  3. # ボディ上部
  4. # ------------------------- #
  5. sub bodytop {
  6. print "<div align=\"center\">\n";
  7. print "$table\n";
  8. print "<form method=\"$method\" action=\"$cgiurl\">\n";
  9. print "<tr>\n";
  10. print "<td>\n";
  11. print "<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" bgcolor=\"$barcolor\">\n";
  12. print "<tr>\n";
  13. print "<td valign=\"top\"><img src=\"$img$ltimg\" width=\"$ris\" height=\"$ris\"></td>\n";
  14. print "<td><div align=\"center\"><font color=$font1>$_[0]</font></div></td>";
  15. print "<td valign=\"top\"><div align=\"right\"><img src=\"$img$rtimg\" width=\"$ris\" height=\"$ris\"></div></td>\n";
  16. print "</tr>\n";
  17. print "</table>\n";
  18. print "</td>";
  19. print "</tr>\n";
  20. print "<tr>\n";
  21. print "<td>\n";
  22. }

  1. # ------------------------- #
  2. # Sub Body Bottom
  3. # ボディ下部
  4. # ------------------------- #
  5. sub bodybottom {
  6. print "</td>\n";
  7. print "</tr>\n";
  8. print "<tr>\n";
  9. print "<td>\n";
  10. print "<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" bgcolor=\"$barcolor\">\n";
  11. print "<tr>\n";
  12. print "<td valign=\"bottom\"><img src=\"$img$lbimg\" width=\"$ris\" height=\"$ris\"></td>\n";
  13. print "<td><div align=\"center\">";
  14. print "<a href=\"$backurl\" target=\"$backtarget\">[$backword]</a>\n" if $printback == 1;
  15. print "　<a href=\"$cgiurl?mode=owner&name=$FORM{'name'}&pass=$FORM{'pass'}\">[飼い主ランキング]</a>\n" if $actionflag == 1;
  16. if ($FORM{'mode'} eq "owner") {
  17. print "　<a href=\"$cgiurl?mode=back&name=$FORM{'name'}&pass=$FORM{'pass'}\">[戻る]</a>\n";
  18. }
  19. elsif ($FORM{'mode'} ne "end") {
  20. print "　<a href=\"$cgiurl?mode=end\">[終了]</a>\n";
  21. }
  22. print "</div></td>";
  23. print "<td valign=\"bottom\"><div align=\"right\"><img src=\"$img$rbimg\" width=\"$ris\" height=\"$ris\"></div></td>\n";
  24. print "</tr>\n";
  25. print "</table>\n";
  26. print "</td>";
  27. print "</tr>\n";
  28. print "</form>\n";
  29. print "</table>\n";
  30. print "</div>\n";
  31. }

  1. # ------------------------- #
  2. # Sub tabletop
  3. # テーブル上部
  4. # ------------------------- #
  5. sub tabletop {
  6. print "<table width=\"100%\" border=\"0\" cellspacing=\"$f_space\" cellpadding=\"0\">\n";
  7. print "<tr>\n";
  8. print "<td>\n";
  9. }

  1. # ------------------------- #
  2. # Sub tablebottom
  3. # テーブル下部
  4. # ------------------------- #
  5. sub tablebottom {
  6. print "</td>";
  7. print "</tr>\n";
  8. print "</table>\n";
  9. }

  1. # ------------------------- #
  2. # Sub Bar
  3. # バー
  4. # ------------------------- #
  5. sub bar {
  6. print "<tr align=\"center\" bgcolor=\"$barcolor\"><td $_[0]><font color=$font1>$_[1]</font></td></tr>\n";
  7. }

  1. # ------------------------- #
  2. # Sub Input
  3. # インプット
  4. # ------------------------- #
  5. sub input {
  6. print "<input type=\"$_[0]\" name=\"$_[1]\" value=\"$_[2]\"$_[3]>$_[4]\n";
  7. }

  1. # ------------------------- #
  2. # Sub Open In Pet Data
  3. # ペットデータの読みこみ
  4. # ------------------------- #
  5. sub openinpetdata {
  6. &lock;
  7. open(IN,"$petdata") || &error("Can't open $petdata");
  8. $line = <IN>;
  9. close(IN);
  10. ($petname, $godfather, $birth, $sex, $dead, $lastfeed, $lastplay, $lastvisit, $good, $bad, $out, $outdate, $num)
  11. = split(/<>/, $line);
  12. &unlock;
  13. }

  1. # ------------------------- #
  2. # Sub Open Out Pet Data
  3. # ペットデータの更新
  4. # ------------------------- #
  5. sub openoutpetdata {
  6. $lastvisit = time;
  7. $line = "$petname<> $godfather<> $birth<> $sex<> $dead<> $lastfeed<> $lastplay<> $lastvisit<> $good<> $bad<> $out<> $outdate<> $num";
  8. &lock;
  9. open(OUT,">$petdata") || &error("Can't write $petdata");
  10. print OUT $line;
  11. close(OUT);
  12. &unlock;
  13. }

  1. # ------------------------- #
  2. # Sub Open In User Data
  3. # ユーザーデータの読みこみ
  4. # ------------------------- #
  5. sub openinuserdata {
  6. &lock;
  7. open(IN,"$userdata") || &error("Can't open $userdata");
  8. @lines = <IN>;
  9. close(IN);
  10. &unlock;
  11. undef @new; # Amend Ver 2.4

  13. foreach $line (@lines) {
  14. ($name,$pass,$gdate,$love) = split(/<>/,$line);
  15. if ($_[0] eq 'checkname') {
  16. if ($FORM{'name'} eq $name) {
  17. $flag = 1; # データの中にユーザーを確認
  18. if ($FORM{'pass'} ne $pass) { &error("パスワードが間違っています") }
  19. last;
  20. }
  21. }
  22. if ($_[0] eq 'action') {
  23. if ($FORM{'name'} eq $name) {
  24. $gdate = time;
  25. push(@new,"$FORM{'name'}<>$FORM{'pass'}<>$gdate<>$newlove<>\n");
  26. } else {
  27. if ($gdate >= $goodbye) { push(@new,$line) }
  28. }
  29. }
  30. if ($_[0] eq 'ownerlist') {
  31. if ($love >= $loved) {
  32. @lovelist[$lovenum] = "$name";
  33. $lovenum++;
  34. if ($bestlove < $love)
  35. { $bestowner = "$name"; $bestlove = $love }
  36. } elsif ($love <= $disliked) {
  37. @hatelist[$hatenum] = "$name";
  38. $hatenum++;
  39. } else {
  40. @otherlist[$othernum] = "$name";
  41. $othernum++;
  42. }
  43. }
  44. }
  45. }

  1. # ------------------------- #
  2. # Sub Open Out User Data
  3. # ユーザーデータの書きこみ
  4. # ------------------------- #
  5. sub openoutuserdata {
  6. &lock;
  7. open(OUT,">$userdata") || &error("Can't write $userdata");
  8. print OUT @new;
  9. close(OUT);
  10. &unlock;
  11. }

  1. # ------------------------- #
  2. # Sub Error
  3. # エラー
  4. # ------------------------- #
  5. sub error {
  6. $_[1] || &unlock; # Amend Ver 2.2
  7. if ($headflag == 0) { &header }
  8. print "<center><hr width='80%'><P>\n";
  9. if ($FORM{'mode'} eq 'end' && $ending == 1) {
  10. print "<center>\n";
  11. print "<img src=\"$img$endimg\"><br><br>\n"; # Amend Ver2.2
  12. print "<a href=$backurl target=\"$backtarget\">$backword</a></center>\n"; # Amend Ver2.2
  13. }
  14. print "<P><font color=$font2><B>$_[0]</B></font>\n";
  15. print "<P><hr width='80%'></center>\n";
  16. &footer;
  17. exit;
  18. }

  1. # ------------------------- #
  2. # Sub Lock
  3. # ロック
  4. # Amend for Ver 2.2
  5. # ------------------------- #
  6. sub lock {
  7. return if !$lockkey;
  8. if ($lockkey == 1) {
  9. local($flag) = 10;
  10. rmdir($lockfile) if (time - (stat($lockfile))[9] > 60);
  11. while (!mkdir($lockfile,606)) {
  12. --$flag or &error('現在、他の人が使用しています');
  13. select(undef,undef,undef,1);
  14. }
  15. }
  16. elsif ($lockkey == 2) {
  17. local($flag) = 5;
  18. unlink($lockfile) if (time - (stat($lockfile))[9] > 60);
  19. while (!symlink(".",$lockfile)) {
  20. --$flag or &error('現在、他の人が使用しています');
  21. sleep(1);
  22. }
  23. }
  24. }

  1. # ------------------------- #
  2. # Sub Unlock
  3. # アンロック
  4. # Amend for Ver 2.2
  5. # ------------------------- #
  6. sub unlock {
  7. if ($lockkey == 1) { rmdir($lockfile) }
  8. elsif ($lockkey == 2) { unlink($lockfile) }
  9. }

  1. # ------------------------- #
  2. # Sub Check Day
  3. # 日付のチェック
  4. # ------------------------- #
  5. sub checkday {
  6. $answer = int((time - $_[0])/$daysec);
  7. }

  1. # ------------------------- #
  2. # Sub Flash
  3. # フラッシュ
  4. # ------------------------- #
  5. sub flash {
  6. print "<tr>\n";
  7. print "<td align=\"center\">\n";
  8. print "<param name=movie value=\"$_[0]\">";
  9. print '<param name=quality value=high>';
  10. print "<embed src=\"$_[0]\" quality=high pluginspage=";
  11. print '"http://www.macromedia.com/jp/shockwave/download/index.cgi';
  12. print '?P1_Prod_Version=ShockwaveFlash" type="application/';
  13. print 'x-shockwave-flash" width="50" height="20">';
  14. print '</embed>';
  15. print "</td>\n";
  16. print "</tr>\n";
  17. }

  1. # ------------------------- #
  2. # Sub Set Cookie
  3. # クッキーの保存
  4. # ------------------------- #

  6. sub set_cookie {
  7. # クッキーは90日間有効
  8. ($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) = gmtime(time + 90*24*60*60);
  9. $yearg += 1900;
  10. if ($secg < 10) { $secg = "0$secg" }
  11. if ($ming < 10) { $ming = "0$ming" }
  12. if ($hourg < 10) { $hourg = "0$hourg" }
  13. if ($mdayg < 10) { $mdayg = "0$mdayg" }
  14. $month = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$mong];
  15. $youbi = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$wdayg];
  16. $date_gmt = "$youbi, $mdayg\-$month\-$yearg $hourg:$ming:$secg GMT";
  17. $cook = "name\:$FORM{'name'}\,pass\:$FORM{'pass'}";
  18. print "Set-Cookie: PETROOM2=$cook; expires=$date_gmt\n";
  19. }


  1. # ------------------------- #
  2. # Sub Get Cookie
  3. # クッキーの読みこみ
  4. # ------------------------- #
  5. sub get_cookie {
  6. @pairs = split(/\;/,$ENV{'HTTP_COOKIE'});
  7. foreach $pair (@pairs) {
  8. local($name, $value) = split(/\=/, $pair);
  9. $name =~ s/ //g;
  10. $DUMMY{$name} = $value;
  11. }
  12. @pairs = split(/\,/,$DUMMY{'PETROOM2'});
  13. foreach $pair (@pairs) {
  14. local($name, $value) = split(/\:/, $pair);
  15. $COOKIE{$name} = $value;
  16. }
  17. $c_name = $COOKIE{'name'};
  18. $c_pass = $COOKIE{'pass'};
  19. }

  1. # ------------------------- #
  2. # Sub Decode
  3. # デコード
  4. # ------------------------- #
  5. sub decode {
  6. # フォームからのデータを取得
  7. if ($ENV{'REQUEST_METHOD'} eq "POST") {
  8. read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
  9. @pairs = split(/&/, $buffer);
  10. } else { @pairs = split(/&/, $ENV{'QUERY_STRING'}) }

  12. # フォームからのデータを連想配列に格納
  13. foreach $pair (@pairs) {
  14. ($name, $value) = split(/=/, $pair);
  15. $name =~ tr/+/ /;
  16. $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  17. $value =~ tr/+/ /;
  18. $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

  20. &jcode'convert(*name,'sjis');
  21. &jcode'convert(*value,'sjis');

  23. # 入力データのチェック
  24. # タグが入力されていれば、それを無効にする。<などに置き換え表示してる
  25. $value =~ s/</</g;
  26. $value =~ s/>/>/g;
  27. # 区切り文字の”,”があれば”，”に変換
  28. $value =~ s/\,/，/g;
  29. # 改行コードを<br>に変換(上からWin、Mac、Unix用の処理)
  30. $value =~ s/\r\n/<br>/g;
  31. $value =~ s/\r/<br>/g;
  32. $value =~ s/\n/<br>/g;

  34. # 連想配列に格納
  35. $FORM{$name} = $value;
  36. }
  37. }

  1. # ------------------------- #
  2. # Sub Get Time
  3. # 時間の取得
  4. # ------------------------- #
  5. sub gettime {
  6. ($sec,$min,$hour,$dy,$mon,$year,$wday,$yday,$isdst) = localtime($_[0]);
  7. $year += 1900 ;
  8. $mon = $mon + 1;
  9. @week = ('日','月','火','水','木','金','土');

  11. $date = "$year年$mon月$dy日\($week[$wday]\)";
  12. }