#!/usr/bin/perl
# # # # # # # # # # # # # # # # # # # # # # # # # # # #
#「おみくずver0.5」
#http://one.s48.xrea.com
#このスクリプトは朝顔がパールの勉強の為に
#こっそり書いてみたものです。
#完成形のver1.0はタロットおみくじになる予定。
# # # # # # # # # # # # # # # # # # # # # # # # # # # #
#設置方法は、一番上のパスを書き直して
#下のいくつかの箇所を適宜指定。
#パーミッション700か755かぐらいの感じで。
#↓大吉のときのメッセージを書いてください。
@dai_mes = ("おめでとう!今日はサイコーの一日です。","努力の成果が2倍になって返ってくる","思わぬ金運あり。","新しい展望が開ける日。");
#↓中吉のときのメッセージを書いてください。
@tyuu_mes = ("欲しかったものが見つかるかも。","今まで努力してきたことが実を結ぶでしょう。","勉強が思いのほかはかどる日。","苦手な人とも上手くやっていける日です。");
#↓小吉のときのメッセージを書いてください。
@syou_mes = ("なくしものが見つかるかも。","怠け心に打ち勝てる日。","楽しみが、いつも以上に楽しめる。","普段の親切が返ってくる。");
$dai_color ="#FD3C59"; #大吉のときの色を指定。
$tyuu_color ="hotpink"; #中吉のときの色。
$syou_color ="lightpink"; #小吉のときの色。
$link_color = "#4169E1"; #リンクの色。
$vlink_color ="#708090"; #リンク中の色。
$alink_color ="#8FBC8F"; #リンク後の色。
$bg_color ="#ffffff"; #壁紙の色。
$font_color ="#1841CD"; #文字の色。
$mes_color ="#330000"; #メッセージの色。
####以上で指定終わり。#####
$ransu = int(rand(3)); #0〜2までの3種類の乱数を発生、intで小数点以下を切って$ransuに代入
$ransu_mes = int(rand(4)); #それぞれのメッセージの数を5個ずつにしたいときは5に書き換える。
#↓もしその乱数が○なら、としてそれぞれの場合の運勢やメッセージ、色を決める。
#同じ運勢でも違うメッセージがランダムに発生するようにして、$mesに代入。
if ($ransu == 2) {
$unsei = "大
吉";
$mes = $dai_mes[$ransu_mes];
$color = $dai_color;
} elsif ($ransu == 1) {
$unsei = "中
吉";
$mes = $tyuu_mes[$ransu_mes];
$color = $tyuu_color;
} else {
$unsei = "小
吉";
$mes = $syou_mes[$ransu_mes];
$color = $syou_color;
}
#上で得た値をhtmlに出力。
print "Content-type:text/html\n\n";
print << "HTML_OWARI";
|
○ $mes |