CShell(C셸)을 이용한 삽질중-_-;(타자삽질프로그램)

아이군이 만든 타자크래프트 보고 심심해서 삽질중-_-;




아이군이 만든 타자크래프트도 한번 해봅시다-_-;
자바가 깔려있어야 실행이 됩니다.
http://theeye.pe.kr/typecraft/





폴더에 word1.txt(16단어), word2.txt(32단어), word3.txt(48단어)가 있어야합니다.

word.csh (Language : text)

#!/bin/csh

set words = ( `cat word1.txt` )
set i = 0
set j = 1
set type = 0
set level = 1
set count = 0
@ ii = 4 * $level
@ allcount = $ii * 4

clear
echo -n "[start enter]"
$<
set starttime = `perl -e 'print scalar time(),"\n"'`
echo $starttime

while($level <= 3)
        clear
        echo "level $level"
        while($i < $ii)
                while($j <= 4)
                        @ num = $i * 4 + $j
                        if ($type == $words[$num]) then
                                set words[$num] = "-----"
                                @ count++
                        endif
                        echo -n "$words[$num] "
                        @ j++
                end
                echo
                @ j = 1
                @ i++
        end
        @ i = 0
        @ j = 1

        if ($count == $allcount) then
                set type = ""
                @ level++
                if ($level == 4) then
                        clear
                        echo "all clear"
                        set endtime = `perl -e 'print scalar time(),"\n"'`
                        @ cleartime = $endtime - $starttime
                        echo "clear time $cleartime second"
                        break
                endif
                set words = ( `cat word${level}.txt` )
                @ count = 0
                @ ii = 4 * $level
                @ allcount = $ii * 4
        else
                echo
                echo -n "type : "
                set type = $<
        endif
end

word1.txt (Language : text)

apple
fire
fuck
shit
name
file
print
score
verb
buy
brain
drive
type
path
shot
great