TOD2003/2004 出題ワード

トップページ >> TODメニュー >>
作成:2003/09/08
更新:2004/06/22

TOD2003/2004の出題ワードです。word.HABというファイルの中から、抽出してみました。
これらのワードを覚えているかいないかで、かなりの差がつくことは間違いなしです。暇があれば覚えましょう。

HTML形式と、テキストファイル(EUCコード)のZIP圧縮形式を準備しました。

TOD2003ワード HTML形式(242KB) ZIP形式(149KB)
TOD2004ワード HTML形式(330KB) ZIP形式(205KB)
TOD2004Kidsワード HTML形式(188KB) ZIP形式(112KB)

抽出方法

抽出方法を教えてくれという方がいましたので、簡単に掲載します。
まず、TODのインストールディレクトリ(TOD2004の場合、C:\Program Files\SEGA\The Typing of The Dead 2004\)の中にword.HAB(TOD2004のKidsモードの場合は、wordkids.HAB)というファイルがあります。これが出題文字等を収めたファイルになります。ただし、バイナリ文字も含まれているため、そのままでは抽出しにくいです。
よって、以下のperlプログラムによって、シフトJISの文字コードのみを抽出します。
抽出されたファイルにも、いくつか不適当なものが混じっていますが、それは見ればわかるでしょう。あとはワード群が、ゲームのどのあたりに使われているかを適当に考えておしまいです。

### データ読み込み
open(FILE, "word.HAB");binmode(FILE);
while(read(FILE, $tmp, 100000)){$str.=$tmp;}
close(FILE);

### データ整形
for(my $i=0;$i<length($str);$i++){
        my ($a,$b) = (ord(substr($str,$i,1)),ord(substr($str,$i+1,1)));
        if(((0x81<=$a && $a<=0x9F)||(0xE0<=$a && $a<=0xEF))
        && ((0x40<=$b && $b<=0x7E)||(0x80<=$b && $b<=0xFC))){
                $i++;
        }else{
                substr($str,$i,1," ");
        }
}
$str=~s/ {100,}/\n/g;
$str=~s/ +/\t/g;

### データ書き出し
open(FILE, ">word.txt"); print FILE $str; close(FILE);
administrated by umekkii -> admin@umekkii.jp