#!/usr/bin/perl
#-------------------------------------------------
# ▼設定項目
#-------------------------------------------------
$HSSPEED[0] = 1.0;
$HSSPEED[1] = 1.5;
$HSSPEED[2] = 2.0;
$HSSPEED[3] = 2.25;
$HSSPEED[4] = 2.5;
$HSSPEED[5] = 2.75;
$HSSPEED[6] = 3.0;
$HSSPEED[7] = 3.25;
$HSSPEED[8] = 3.5;
$HSSPEED[9] = 3.75;
$HSSPEED[10] = 4.0;
$HSSTR[0] = "OFF";
$HSSTR[1] = "0.5";
$HSSTR[2] = "1.0";
$HSSTR[3] = "1.5";
$HSSTR[4] = "2.0";
$HSSTR[5] = "2.5";
$HSSTR[6] = "3.0";
$HSSTR[7] = "3.5";
$HSSTR[8] = "4.0";
$HSSTR[9] = "4.5";
$HSSTR[10] = "5.0";
#----------ソフランリスト----------
@arMusicList = (
[".59",123,134],
["1st Samurai",175,200],
["A",93,191],
["avant-guerre",130,146],
["CHECKING YOU OUT",108,216],
["Close my Eyes for Me",132,145],
["Concertino in Blue",128,155],
["Cradle",160,188],
["D",30,175,240],
["DANCER",145,149],
["dual control",131,140],
["empathy",85,170],
["era (nostalmix)",90,180],
["era (step mix)",90,180],
["eRAseRmOToRpHAntOM",135,270],
["Fascination MAXX",100,200,400],
["FLOWERS for ALBION",70,93],
["GRADIUS -FULL SPEED-",160,200,220],
["ICARUS",126,176,251],
["INSERTiON",110,139,225],
["Marie Antoinette",205,215,248],
["MAX 300",12,300],
["moon_child",130,160],
["New Castle Legions",120,150,170,180],
["NNRT(Levaslater)",101,202],
["PARANOiA 〜HADES〜",75,150,300],
["Pink Rose",116,146],
["quaver♪",182,186],
["Raison d'etre〜交差する宿命〜",155,175],
["SA.YO.NA.RA. SUPER STAR",85,170],
["SABER WING",37,74,222,444],
["Session 1 -Genesis-",79,178],
["Session 12 -Esther-",64,172,193,209],
["Session 9 -Chronicles-",182,189],
["She is my wife",85,170],
["Spooky",140,455],
["TRANOID",130,190],
["VJ ARMY",135,141,145,160],
["Votum Stellarum",136,147],
["キャッシュレスは愛情消すティッシュ",117,170],
["ピアノ協奏曲第1番 蠍火",168,185,188],
["ラクエン",99,198],
["ラクエン Feat.Chiharu Chonan -JAKA respect for K.S.K. remix",88,175],
["ワルツ第17番 ト短調 大犬のワルツ",220,300,310,320],
["大桟橋",84,168],
["桜",13,150,300,320],
["少年A",90,192],
["聖人の塔(Beridzebeth)",97,194],
["卑弥呼",83,185],
);
@arMusicList2 = (
["ABSOLUTE",60,144],
["Agnus Dei",70,168],
["airflow",40,148],
["Blind Justice 〜Torn souls, Hurt Faiths〜",137,165],
["earth scape",45,94],
["four pieces of heaven",125,195],
["Ganymede",72,82],
["Glorious Days",40,82,83],
["GRADIUSIC CYBER",159,160,167],
["Linus",168,176],
["Little Little Princess",180,212],
["NEBULA GRASPER",152,153],
["Prelude",135,140],
["quell -the seventh slave-",140,162],
["Regulus",120,128],
["THANK YOU FOR PLAYING",45,170],
["Voltage(feat. Hidemaru)",30,125],
["ZETA〜素数の世界と超越者〜",90,180],
["革命",83,148],
["走馬灯 -The Last Song-",68,85],
["冥",66,100,200],
);
#----------基本設定----------
# スクリプトURL
$this_cgi = "./sudplus.cgi";
#--------------------------------------------------------
#----------以下は必要に応じて編集してください。----------
#--------------------------------------------------------
# スタイルシート等の指定は以下を編集します。$html_header = <<"_EOF_";と_EOF_に囲まれた部分は普通にHTMLを書いてOKです。
$html_header = <<"_EOF_";
SUD+計算機
SUD+計算機 ソフランver
〜開始BPM変化、ギアチェンのお供に〜
FHS対応?版はこちら
このツールは改変フリーです。ソースDL
- 緑数字(とLIFT)を入力し、GOボタンを押します。
- 各曲各BPM各HSごとの白数字が出るので、丁度いい組み合わせを探して使います。
_EOF_
# HTML出力の終り部分です。
$html_footer = <<"_EOF_";
beatmaniaIIDX 全曲表さんのデータを元に構築しております。
最近ACやってなくてやる気がないので対応とかしません。
SUD+計算機 ソフランverに関するお問い合わせはtwitter(\@ununique)まで。
更新履歴
2012/02/07 01:30 全曲表さんの情報に基づき、大罪曲の曲名を反映。
2011/12/09 02:10 計算式修正その２ リフト関連が間違っていました。
2011/12/08 06:00 計算式修正
2011/12/08 01:10 明らかに必要無いと思われる曲を除去。safari難民さんありがとうございます
2011/12/07 19:56 公開
Twitterでつぶやく
small toolsへ
Stairwayへ
_EOF_
#メニュー部分
$html_menu_head = <<"_EOF_";
_EOF_
$html_menu_foot = <<"_EOF_";
_EOF_
#-------------------------------------------------
# ▲設定完了
#-------------------------------------------------
#//////////////////////////////////////////////////////////////////////////////////////////////////
#//////////////////////////////////////////////////////////////////////////////////////////////////
# これより下はperlがわからない方は編集しないほうが良いと思われます。
$buffer = $ENV{'QUERY_STRING'}; #引数読むでー
@param = split(/&/, $buffer);
print "Content-Type: text/html;charset=EUC-JP\n\n";
print $html_header;
$html = "\n";
$greenval = 0;
if(($param[0] ne "")){
@param_greenval = split(/=/, $param[0]);
$greenval = $param_greenval[1];
}
$liftval = 0;
if(($param[1] ne "")){
@param_lift = split(/=/, $param[1]);
$liftval = $param_lift[1];
}
# エディット部本体
# ターゲットファイル
$html .= "";
if($greenval > 0){
$basespeed = 174000;
$music_num = $#arMusicList;
$hs_num = $#HSSPEED;
for( $i = 0; $i <= $music_num; $i++ ){
if(($i % 7) == 0){
$i2 = $i + 1;
$html .= "$i2:$arMusicList[$i][0]〜
\n";
}
}
$html .= "
\n";
for( $i = 0; $i <= $music_num; $i++ ){
$list_num = $#{$arMusicList[$i]};
$html .= "\n";
if(($i % 7) == 0){
$i2 = $i + 1;
$html .= "$arMusicList[$i][0]\n";
}else{
$html .= "$arMusicList[$i][0]\n";
}
$html .= "| BPM | ";
for( $k = 0; $k <= $hs_num; $k++ ){
$html .= "$HSSTR[$k] | ";
}
$html .= "
\n";
for( $j = 1; $j <= $list_num; $j++ ){
$tgtbpm = $arMusicList[$i][$j];
$html .= "| $tgtbpm | ";
for( $k = 0; $k <= $hs_num; $k++ ){
$value1 = $basespeed/($tgtbpm*$HSSPEED[$k]);
$sudp_dot = sprintf("%.0f",320*($value1-$greenval)/$value1+1);
$sudp = $sudp_dot*3.125 - $liftval;
#$sudp_round = sprintf("%.0f",$sudp);
$sudp_round = int($sudp);
if($sudp_round<-50){
$sudp_round = "---";
}
$html .= "$sudp_round | ";
}
$html .= "
\n";
}
$html .= "
\n";
}
}
$html .= "
";
print $html;
print $html_footer;