#自前追加分↓
###N速VIP的新機能「VIP クオリティ」　試作ソース（Lv3-BBS用）
#　−以下全て名前欄に記入すること− 
#!power　数字が出る0〜999（４桁もあり） 
#!ver　bbs.cgiのバージョン情報（トリップと併用しても有効） 
#!hungry　食事がランダムで表示される 
#!who　人物（動物等も）がランダムで表示される 
#!where 場所がランダムに表示される 
#!num　１桁の数字が斜体で出る 
#!sign　符号が出る 
#!money　ランダムな通貨単位 
#!calc　*か/がランダムに出る 
#各種コマンドは複数回使用可能だが今のところは全て同じ内容に置き換えられる。
#今後改善の余地あり。
##コメントアウトしない限り強制発動
{
 my ($power,@hungry,$hungry_rand,@who,$who_rand,@where,$where_rand,$num,@sign,$sign_rand,@money,$money_rand,@calc,$calc_rand);
 srand(time ^ ($$ + ($$ << 15)));
#!power
 $power = int(rand 1024);
 if($FORM{'FROM'} =~ /!power/){
	$FORM{'FROM'} =~ s/!power/<\/b>$power<b>/g;
 }
#!ver　#$version = "v0.1 beta5.2 (2003/10/30)";を読み込み
 if($FORM{'FROM'} =~ /!ver/){
	$FORM{'FROM'} =~ s/!ver/<\/b>$version<b>/g;
 }
#!hungry／food
 srand(time ^ ($$ + ($$ << 15)));
 @hungry = ('ラーメン','うどん','焼きそば','そば','スパゲティ','そーめん','カップ麺','とろろ蕎麦','グラタン','天ぷら蕎麦','月見うどん','焼き魚定食','焼肉定食','野菜炒め定食','牛丼','親子丼','おすし','yカレー','おにぎり','納豆巻き','うな重','鮭茶漬け','ハヤシライス','イカ飯','オムライス','クッパ','ビビンバ ','カツカレー','クロワッサン2個','あんぱん','トースト','サンドイッチ','ハンバーガー','ブリトー','ピザ','タコス','から揚げ','コロッケ','日替わり弁当','デラックスのり弁当','のり弁当','牡蠣鍋','ちゃんこ','おでん','にくじゃが','焼き鳥','てんぷら','秋刀魚','冷やっこ','チョコレート','ケーキ','うまい棒','大福','飲茶','天津飯','中華丼','餃子','タコ','ゆで卵','カップぬるぽ','抜き');
 $hungry_rand = int(rand 61);
 if($FORM{'FROM'} =~ /!hungry|!food/){
	$FORM{'FROM'} =~ s/!hungry|!food/<\/b>$hungry[$hungry_rand]<b>/g;
 }
#!who
 srand(time ^ ($$ + ($$ << 15)));
 @who = ('村人','狸','聖徳太子','紫式部','ジャンヌダルク','楊貴妃','ガガーリン','始皇帝','バイキング','狐','ばった','スカンク','うさぎ','かば','マングース','蚊','はえ','金魚','蜘蛛','マンドリル','ゴキブリ','たがめ','ジゴロ','アインシュタイン','コオロギ','さる','みじんこ','ホスト','書記長','苦労人','町人','遊び人','ロッククライマー','ダイバー','北里柴三郎','フビライ','コロンブス','光源氏','夕顔','ｱｲｼﾝｶｸﾞﾗ溥儀','野口英世','セポイ','コペルニクス',' 則天武后','麻呂 変態','きんどーさん','変人','美少女','ピラニア','桃太郎',' オタク','ヒッキー ネクラ','人魚','こうもり','金太郎','半漁人 ｸﾏｰ','じじぃ','おばさん おやじ','店長','探偵','ベラ','ロベスピエール','シーザー','バルタン星人','巨乳','奥さん','おそまつ','幼な妻','貧乳','坂本竜馬','ハイエナ','カラス','ﾁｭﾝﾁｭﾝ','ミラーマン','暇人','キャンギャル','魔女','船乗り',' 伊賀者','落ち武者','各さん','水戸光圀','うっかり八衛','透明人間','サーファー','悪魔','助さん','ぬるぽ人','叩き人');
 $who_rand = int(rand 93);
 if($FORM{'FROM'} =~ /!who/){
	$FORM{'FROM'} =~ s/!who/<\/b>$who[$who_rand]<b>/g;
 }
#!where
 srand(time ^ ($$ + ($$ << 15)));
 @where = ('リング','教室','音楽室','川原','トランク','ものかげ','草むら','洞窟','船室','二階','ホテル','ガード下','目の前','お風呂','四畳半','グランド','電車の中','ガード下','助手席','更衣室','砂浜','地下室','コンビ二','地獄','天国','便所','プール','湖','大黒埠頭','部屋の隅','理科室','温泉','物置','居酒屋','台所','ボーリング場','神社','空港','YAMAGATA EXPWY');
 $where_rand = int(rand 38);
 if($FORM{'FROM'} =~ /!where/){
	$FORM{'FROM'} =~ s/!where/<\/b>$where[$where_rand]<b>/g;
 }
#!num
 srand(time ^ ($$ + ($$ << 15)));
 $num = int(rand 9);
 if($FORM{'FROM'} =~ /!num/){
	$FORM{'FROM'} =~ s/!num/<\/b><i>$num<\/i><b>/g;
 }
#!sign
 srand(time ^ ($$ + ($$ << 15)));
 @sign = ('+','-');
 $sign_rand = int(rand 1);
 if($FORM{'FROM'} =~ /!sign/){
	$FORM{'FROM'} =~ s/!sign/<\/b>$sign[$sign_rand]<b>/g;
 }
#!money
 srand(time ^ ($$ + ($$ << 15)));
 @money = ('￥','＄','¢','£','�j','円',"&euro;");
 $money_rand = int(rand 7);
 if($FORM{'FROM'} =~ /!money/){
	$FORM{'FROM'} =~ s/!money/<\/b>$money[$money_rand]<b>/g;
 }
#!calc
 srand(time ^ ($$ + ($$ << 15)));
 @calc = ('＋','−','×','÷');
 $calc_rand = int(rand 4);
 if($FORM{'FROM'} =~ /!calc/){
	$FORM{'FROM'} =~ s/!calc/<\/b>$calc[$calc_rand]<b>/g;
 }
}
#自前追加分↑

### ID強制/隠し/任意
 if($FORM{'mail'} =~ /ID=d/i || $FORM{'dispid'} eq "checked"){
	$ID_MODE = "checked";
 }elsif($THREAD{'FLAG'} =~ /ID=/i){
	if($THREAD{'FLAG'} =~ /ID=d/i){$ID_MODE = "checked";}
	elsif($THREAD{'FLAG'} =~ /ID=h/i){$ID_MODE = "hidden";}
	elsif($THREAD{'FLAG'} =~ /ID=o/i){$ID_MODE = "optional";}
 }