#!/usr/local/bin/perl
#↑perlのパスを自分の環境に合わせて書き直します。
#大抵は、「#!/usr/bin/perl」 か 「#!/usr/local/bin/perl」です。
#解らない場合はサーバー管理者(もしくはプロバイダー)に
#確認してください。
require './jcode.pl';
##########################################################################
# Key-Boader Ver1.0 [キーボード早打ちタイムトライアル] (Since:2000/02/01)
# (C) 2000 by yomi
# Eメール: yomi@pekori.to
# ホームページ: http://yomi.pekori.to/
##########################################################################
## ---[注意事項]------------------------------------------------------------+
## 1. このスクリプトはフリーソフトです。このスクリプトを使用したいかなる損害に
## 対して作者は一切の責任を負いません。
## 2. 設置に関する質問は掲示板にお願いいたします。メールによる質問には
## お答えできません。
## 3. このスクリプトを使用した時点で利用規約(kiyaku.txt)を
## 承認したものとみなさせていただきます。
## ご使用になる前に必ずお読みください。
## -------------------------------------------------------------------------+
#------------------↓ここから設定↓---------------------#
#スクリプト名(又はパス)
$script = 'key.cgi';
#戻るホームページ(URL又はパス)
$home = 'http://www2.freeweb.ne.jp/~magubbs/main.html';
#記録ログファイル名
$log1 = 'key1.log'; #レベル1用
$log2 = 'key2.log'; #レベル2用
$log3 = 'key3.log'; #レベル3用
#禁止ワード
#この中に記入してほしくない「名前」「タイトル」「URL」を記入してください。
#例にならっていくつでも増やすことができます。
@w_check = ("禁止ワード1","禁止ワード2","禁止ワード3");
#問題に出す文字(46文字)
#46文字に固定していれば漢字などを使うこともできます。(ただし全角文字のみ)
#メタ文字(ソ,申,十,表,・・・などの文字化けを起こす文字)は使えません。
#レベル1
@moji = ("い","し","づ","か","た","け","だ","な","ざ","わ","や","ん","ほ","み","ょ","が","ず","ぁ","ぽ","さ","ま","こ","ば","と","く","ら","ゆ","も","り","て","る","を","ぞ","の","じ","な","が","げ","め","え","う","に","ぶ","ふ","ご","め");
#レベル2
@moji2 = ("石","塚","本","並","小","針","米","山","中","沢","林","武","田","北","澤","森","小","林","杉","山","山","田","高","木","吾","妻","池","端","岩","本","西","田","中","沢","桜","井","矢","野","飯","尾","長","田","野","田","広","長");
#レベル3
@moji3 = ("鉉","錫","瑠","偉","吾","妻","根","占","村","主","御","厨","前","園","明","神","鏑","慶","興","津","箕","輪","主","税","松","木","豪","隼","藤","川","輝","雄","菊","原","尾","崎","柱","谷","加","藤","真","弥","石","川","菊","地");
#ランキングを残す順位
#[例]15位まで残したければ「15」を入力します。
$rank_data = '20';
#------------------↑ここまで設定↑---------------------#
$times = time();
&form_decode;
if ($mode eq 'kaito') { &kaito; }
if ($mode eq 'play') { &play; }
&index_html;
sub index_html {
&header("Key-Boader");
print <<"EOM";
- 20個の漢字が出てきますので何秒で打つことができるかを競うゲームです。。
- 時間をかければ誰でも正解できますので解答時間がポイントになります。
- 【主な効能\】キーボードを打つのが速くなるかも(^^;
- ホームページアドレスも記入できますので良い成績を残せばいつまでも宣伝になります♪
(このURLは自分のページでなくても結構\です。また記入も任意です。)
|
EOM
&rank;
&foot;
print "