#!/usr/bin/perl #------------------------------------------------- # ▼設定項目 #------------------------------------------------- #----------ソフランリスト---------- @arMusicList = ( [".59",123,135], ["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",140,155], ["Cradle",160,188], ["D",120,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,80,93], ["GRADIUS -FULL SPEED-",160,200,220], ["ICARUS",126,176,251], ["INSERTiON",110,139,225], ["Marie Antoinette",205,215,248], ["MAX 300",50,300], ["moon_child",146,160], ["New Castle Legions",120,150,170,180], ["NNRT(Levaslater)",101,202], ["PARANOiA 〜HADES〜",75,150,300], ["Pink Rose",132,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-",172,193], ["Session 9 -Chronicles-",182,189], ["She is my wife",85,170], ["Sol Cosine Job 2",190,200], ["Spooky",140,455], ["SYNC-ANTHEM",160,166], ["TRANOID",130,190], ["VJ ARMY",135,141,145,160], ["Votum Stellarum",136,147], ["キャッシュレスは愛情消すティッシュ",117,170], ["ピアノ協奏曲第1番 蠍火",185,188], ["ラクエン",99,198], ["ラクエン Feat.Chiharu Chonan -JAKA respect for K.S.K. remix",88,175], ["ワルツ第17番 ト短調 大犬のワルツ",280,290,300,310,320], ["大桟橋",84,168], ["桜",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_fhs.cgi"; #-------------------------------------------------------- #----------以下は必要に応じて編集してください。---------- #-------------------------------------------------------- # スタイルシート等の指定は以下を編集します。$html_header = <<"_EOF_";と_EOF_に囲まれた部分は普通にHTMLを書いてOKです。 $html_header = <<"_EOF_"; SUD+計算機(FHS版?) SUD+計算機 ソフランver(FHS版?)
〜開始BPM変化のお供に〜

このツールは改変フリーです。ソースDL
  1. 緑数字を入力し、GOボタンを押します。
  2. 各曲各BPMを基準にした場合の緑数字が出るので、丁度いい組み合わせを探して使います。
    例)160BPMがメインだけど、開始だけ130BPMの場合、緑数字はいくつに設定するんだろ?みたいな使い方をします。

_EOF_ # HTML出力の終り部分です。 $html_footer = <<"_EOF_"; beatmaniaIIDX 全曲表さんのデータを元に構築しております。
最近ACやってなくてやる気がないので対応とかしません。
SUD+計算機 ソフランverに関するお問い合わせはtwitter(\@ununique)まで。

更新履歴
2012/09/19 なんとなく作った

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]; } $html .= "
\n"; $html .= "緑数字
\n"; $html .= "
"; if($greenval > 0){ $basespeed = 174000; # ジャンプ用リスト作成 $music_num = $#arMusicList; 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 .= "\n"; }else{ $html .= "\n"; } $html .= ""; for( $k = 1; $k <= $list_num; $k++ ){ $html .= ""; } $html .= "\n"; for( $j = 1; $j <= $list_num; $j++ ){ $tgtbpm = $arMusicList[$i][$j]; $html .= ""; for( $k = 1; $k <= $list_num; $k++ ){ $tgtbpm2 = $arMusicList[$i][$k]; $sudp = $tgtbpm / $tgtbpm2 * $greenval; #$sudp_round = sprintf("%.0f",$sudp); $sudp_round = int($sudp); if($sudp_round<-50){ $sudp_round = "---"; } $html .= ""; } $html .= "\n"; } $html .= "
$arMusicList[$i][0]$arMusicList[$i][0]
BPM$arMusicList[$i][$k]
メインBPM:$tgtbpm$sudp_round

\n"; } } $html .= "
"; print $html; print $html_footer;