en45masao

'PK-WARS @en45masao
' First release: 2012-03-31
' Last updated:  2012-04-07

'Initialization
ACLS:PNLTYPE "OFF":GPAGE 1
VISIBLE 0,0,0,0,0,0
BGMSTOP

CLEAR

en45masao

javascript:(function(){var uid=''||window.prompt('iKnow! ID:','en45');$.get('http://iknow.jp/api/users/'+uid+'/study_results.json?since=2009-11-04',function(data){var max=0;var date='';$.each(data.daily,function(i,item){if(max<item.daily.items.seconds){max=item.daily.items.seconds;date=item.date;}});var s=max%(60);var m=Math.floor(max/60)%(60);var h=Math.floor(max/3600);alert('The Longest Day: '+h+'h '+m+'m '+s+'s '+date);});})()

en45masao

ADSR env;
env.set(50::ms, 250::ms, 0.5, 100::ms);

JCRev rev;
0.25 => rev.mix;

Chorus cho;
0.2 => cho.modDepth;
0.25 => cho.mix;

en45masao

/* A user CSS file to widen the screen width of iKnow! <http://iknow.jp> */
div.app {
	width: 1100px;
	margin: -277px 0px 0px -565px;
}
#keyboard_explanation_window {
	width: 800px;
	margin: -110px 0px 0px -420px;
}
#api_error {

en45masao

#!/usr/bin/perl

use strict;
use warnings;
use utf8;

use WWW::Mechanize;
use Text::CSV_XS;
use Web::Scraper;

en45masao

#!/usr/bin/perl

use strict;
use warnings;
use utf8;

use WWW::Mechanize;
use Text::CSV_XS;
use Web::Scraper;

en45masao

#!/usr/bin/perl

use strict;
use warnings;
use utf8;

use WWW::Mechanize;
use Text::CSV_XS;
use Web::Scraper;