'csh' 태그의 글 목록

'csh'에 해당되는 글 2건

2007.08.07 CShell(C셸)을 이용한 삽질중-_-;(타자삽질프로그램)
2007.08.07 CShell(C셸)을 이용한 삽질중-_-;(가위바위보게임)

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

유닉스와 리눅스 2007. 8. 7. 16:52

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

아이군이 만든 타자크래프트도 한번 해봅시다-_-;
자바가 깔려있어야 실행이 됩니다.
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

Posted by 머드초보

CShell(C셸)을 이용한 삽질중-_-;(가위바위보게임)

유닉스와 리눅스 2007. 8. 7. 12:54

그냥 심심해서-_-;

gbb.csh (Language : text)

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