머드초보의 블로그

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