#!/usr/bin/perl #--- [注意事項] ------------------------------------------------# # 1. このスクリプトはフリーソフトです。このスクリプトを使用した # # いかなる損害に対して作者は一切の責任を負いません。 # # 2. 設置に関する質問はサポート掲示板にお願いいたします。 # # 直接メールによる質問は一切お受けいたしておりません。 # #---------------------------------------------------------------# require 'init.pl'; require 'jcode.pl'; require 'sankasya.pl'; require 'ffadventure.ini'; require '../forbidden/forbidden.pl'; #&access_check; &html_top; #-----------------# # TOPページ表示 # #-----------------# sub html_top { &read_winner; &class; if(!$wihit) { $wi_name = "－"; } if(!$wdhit) { $wd_name = "－"; } if($wkati) { $ritu = int(($wkati / $wtotal) * 100); } else { $ritu = 0; } open(IN,"$recode_file"); @recode = ; close(IN); ($rcount,$rname,$rsite,$rurl) = split(/<>/,$recode[0]); if($wsex) { $esex = "男"; } else { $esex = "女"; } $next_ex = $wlv * $lv_up; &header; print "

\n"; print "\n"; print "\n"; print "\n"; print "\n"; open(IN,"$chara_file1")|| &error('オープンエラー','指定された書込みファイルが開けません。'); @default=; close(IN); @tmp = map {(split /<>/)[18]} @default; @temp = @default[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp]; ($gid,$gpass,$gsite,$gurl,$levelname,$gsex,$gchara,$gn_0,$gn_1,$gn_2,$gn_3,$gn_4,$gn_5,$gn_6,$gsyoku,$ghp,$gmaxhp,$gex,$levellv,$ggold,$glp,$gtotal,$gkati,$gwaza,$gitem,$gmons,$ghost,$gdate,$gmori,$gdef,$gtac)=split(/<>/,$temp[0]); @tmp = map {(split /<>/)[16]} @default; @temp = @default[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp]; ($gid,$gpass,$gsite,$gurl,$hpname,$gsex,$gchara,$gn_0,$gn_1,$gn_2,$gn_3,$gn_4,$gn_5,$gn_6,$gsyoku,$ghp,$hpmaxhp,$gex,$glv,$ggold,$glp,$gtotal,$gkati,$gwaza,$gitem,$gmons,$ghost,$gdate,$gmori,$gdef,$gtac)=split(/<>/,$temp[0]); @tmp = map {(split /<>/)[7]} @default; @temp = @default[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp]; ($gid,$gpass,$gsite,$gurl,$name0,$gsex,$gchara,$gn_00,$gn_1,$gn_2,$gn_3,$gn_4,$gn_5,$gn_6,$gsyoku,$ghp,$gmaxhp,$gex,$glv,$ggold,$glp,$gtotal,$gkati,$gwaza,$gitem,$gmons,$ghost,$gdate,$gmori,$gdef,$gtac)=split(/<>/,$temp[0]); @tmp = map {(split /<>/)[8]} @default; @temp = @default[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp]; ($gid,$gpass,$gsite,$gurl,$name1,$gsex,$gchara,$gn_0,$gn_11,$gn_2,$gn_3,$gn_4,$gn_5,$gn_6,$gsyoku,$ghp,$gmaxhp,$gex,$glv,$ggold,$glp,$gtotal,$gkati,$gwaza,$gitem,$gmons,$ghost,$gdate,$gmori,$gdef,$gtac)=split(/<>/,$temp[0]); @tmp = map {(split /<>/)[9]} @default; @temp = @default[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp]; ($gid,$gpass,$gsite,$gurl,$name2,$gsex,$gchara,$gn_0,$gn_1,$gn_22,$gn_3,$gn_4,$gn_5,$gn_6,$gsyoku,$ghp,$gmaxhp,$gex,$glv,$ggold,$glp,$gtotal,$gkati,$gwaza,$gitem,$gmons,$ghost,$gdate,$gmori,$gdef,$gtac)=split(/<>/,$temp[0]); @tmp = map {(split /<>/)[10]} @default; @temp = @default[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp]; ($gid,$gpass,$gsite,$gurl,$name3,$gsex,$gchara,$gn_0,$gn_1,$gn_2,$gn_33,$gn_4,$gn_5,$gn_6,$gsyoku,$ghp,$gmaxhp,$gex,$glv,$ggold,$glp,$gtotal,$gkati,$gwaza,$gitem,$gmons,$ghost,$gdate,$gmori,$gdef,$gtac)=split(/<>/,$temp[0]); @tmp = map {(split /<>/)[11]} @default; @temp = @default[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp]; ($gid,$gpass,$gsite,$gurl,$name4,$gsex,$gchara,$gn_0,$gn_1,$gn_2,$gn_3,$gn_44,$gn_5,$gn_6,$gsyoku,$ghp,$gmaxhp,$gex,$glv,$ggold,$glp,$gtotal,$gkati,$gwaza,$gitem,$gmons,$ghost,$gdate,$gmori,$gdef,$gtac)=split(/<>/,$temp[0]); @tmp = map {(split /<>/)[12]} @default; @temp = @default[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp]; ($gid,$gpass,$gsite,$gurl,$name5,$gsex,$gchara,$gn_0,$gn_1,$gn_2,$gn_3,$gn_4,$gn_55,$gn_6,$gsyoku,$ghp,$gmaxhp,$gex,$glv,$ggold,$glp,$gtotal,$gkati,$gwaza,$gitem,$gmons,$ghost,$gdate,$gmori,$gdef,$gtac)=split(/<>/,$temp[0]); @tmp = map {(split /<>/)[13]} @default; @temp = @default[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp]; ($gid,$gpass,$gsite,$gurl,$name6,$gsex,$gchara,$gn_0,$gn_1,$gn_2,$gn_3,$gn_4,$gn_5,$gn_66,$gsyoku,$ghp,$gmaxhp,$gex,$glv,$ggold,$glp,$gtotal,$gkati,$gwaza,$gitem,$gmons,$ghost,$gdate,$gmori,$gdef,$gtac)=split(/<>/,$temp[0]); @tmp = map {(split /<>/)[20]} @default; @temp = @default[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp]; ($gid,$gpass,$gsite,$gurl,$lpname,$gsex,$gchara,$gn_0,$gn_1,$gn_2,$gn_3,$gn_4,$gn_5,$gn_6,$gsyoku,$ghp,$gmaxhp,$gex,$glv,$ggold,$lplp,$gtotal,$gkati,$gwaza,$gitem,$gmons,$ghost,$gdate,$gmori,$gdef,$gtac)=split(/<>/,$temp[0]); @tmp = map {(split /<>/)[19]} @default; @temp = @default[sort {$tmp[$b] <=> $tmp[$a]} 0 .. $#tmp]; ($gid,$gpass,$gsite,$gurl,$goldname,$gsex,$gchara,$gn_0,$gn_1,$gn_2,$gn_3,$gn_4,$gn_5,$gn_6,$gsyoku,$ghp,$gmaxhp,$gex,$glv,$goldgold,$glp,$gtotal,$gkati,$gwaza,$gitem,$gmons,$ghost,$gdate,$gmori,$gdef,$gtac)=split(/<>/,$temp[0]); print <<"EOM";

\n"; open(GUEST,"$guestfile") or &error('ファイルを開けませんでした。'); @member=; close(GUEST); $num = @member; print "現在の冒険者($num人)：
"; foreach $line (@member) { ($ntimer,$nname,$nid,$nhost) = split(/ \, /, $line); if(!@member){@member = '辺りには誰もいません・・・'; $num = 0;} print "$nname \/\ "; } print "

キャラクターを作成済みの方はこちらから
I D		パスワード
パスワードの変更はこちらから
I D	PASS	新規PASS	新PASS確認

/ $home_title / $home_title1 / $home_title2 /$home_title3 /$home_title4 /$home_title5 /$home_title6 /$home_title7 /登録者一覧 / 能\力別ランキングへ / 各職業に必要な特性値 / $bbs_title / $sbbs_title /

レベルNO.1	ＨＰNO.1	力NO.1	知\能\NO.1	信仰NO.1	生命力NO.1	器用さNO.1	速さNO.1	魅力NO.1	カルマNO.1	お金NO.1
$levelname	$hpname	$name0	$name1	$name2	$name3	$name4	$name5	$name6	$lpname	$goldname
$levellv	$hpmaxhp	$gn_00	$gn_11	$gn_22	$gn_33	$gn_44	$gn_55	$gn_66	$lplp	$goldgold

ルール

$kanri_message

連絡事項

$kanri_message1

共有サイト

$kanri_message2

現在の連勝記録は、$rnameさんの「$rsite」、$rcount連勝です。新記録を出したサイト名の横には、マークがつきます。

$wcount連勝中

ホームページ $wsite EOM if($rurl eq "$wurl") { print "\n"; } print <<"EOM";

勝率：$ritu\%

武器 $wi_name

防具 $wd_name

なまえ $wname 性別 $esex

職業 $chara_syoku[$wsyoku] クラス $class

レベル $wlv 経験値 $wex/$next_ex

お金 $wgold HP $whp\/$wmaxhp

力 $wn_0 知能\ $wn_1

信仰心 $wn_2 生命力 $wn_3

器用さ $wn_4 速さ $wn_5

魅力 $wn_6 カルマ $wlp

$lname の $lsite に勝利！！

[$main_title の遊び方]

まず、「新規キャラクター登録」ボタンを押して、キャラクターを作成します。
キャラクターの作成が完了したら、このページの右上にあるところからログインして、あなた専用のステータス画面に入ります。
そこであなたの行動を選択することができます。
一度キャラクターを作成したら、右上のところからログインして遊びます。新規にキャラクターを作れるのは、一人に一つのキャラクターのみです。
これは、HPバトラーではなく、キャラバトラーです。キャラクターを育てていくゲームです。
能\力を振り分けることができキャラクターの能\力をご自分で決めることができます。(ここで決めた能\力はごくまれにしか上昇しないので、慎重に)
$limit日以上闘わなければ、キャラクターのデータが削除されます。
一度戦闘すると$b_time秒経過しないと再び戦闘できません。
[新規キャラクタ作成]
下のボタンを押して、あなたのキャラクターを作成します。

EOM &footer; exit; }