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);