머드초보의 블로그

#!/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

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

#/bin/csh


set win = 0
set lose = 0
set draw = 0

while(1)
        echo $win win, $draw draw, $lose lose
        echo -n "input gawibawibo(1.gawi  2.bawi  3.bo  q.exit) :"
        set player = $<
        date +%N | cat > rand.txt
        set rand = `cat rand.txt`
        @ rand = ($rand / 1000) % 3
        echo
        switch($player)
                case "1":
                        echo you : gawi
                        sleep 1
                        if ($rand == "0") then
                                echo com : gawi
                                echo draw
                                @ draw++
                        endif

                        if ($rand == "1") then
                                echo com : bawi
                                echo you lose
                                @ lose++
                        endif

                        if ($rand == "2") then
                                echo com : bo
                                echo you win
                                @ win++
                        endif

                        breaksw
                case "2":
                        echo you : bawi
                        sleep 1
                        if ($rand == "0") then
                                echo com : gawi
                                echo you lose
                                @ lose++
                        endif

                        if ($rand == "1") then
                                echo com : bawi
                                echo draw
                                @ draw++
                        endif

                        if ($rand == "2") then
                                echo com : bo
                                echo you win
                                @ win++
                        endif

                        breaksw
                case "3":
                        echo you : bo
                        sleep 1
                        if ($rand == "0") then
                                echo com : gawi
                                echo you lose
                                @ lose++
                        endif

                        if ($rand == "1") then
                                echo com : bawi
                                echo you win
                                @ win++
                        endif

                        if ($rand == "2") then
                                echo com : bo
                                echo draw
                                @ draw++
                        endif
                        breaksw
                case "q":
                        echo exit
                        breaksw
                default:
                        echo illegal choice
                        breaksw
        endsw

        if ($player == "q") then
                break
        endif
        echo
end