このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1252060267/747
#  指定時刻に何かしたい! 
#  例えば・・・・ 
#  10時00分00秒に「イヤン!」と言う。 
#  11時00分00秒に「バカン!」と言う。 
#  12時00分00秒に「あなた、エッチね・・・・」と言う。 
#  こんな感じです! 
#  何か良い方法ありますか? 
#  上手にやってる方いますか?? 
#  よろしくお願いします。 
#   
# 

:- op(500,xf,と).
:- op(600,xf,言う).

'指定時刻に何かしたい!' :-
        localtime(_年,_月,_日,_曜日,_累計日数,_時,_分,_秒),
        '指定時刻に何かしたい!'(_時-_分-_秒).

'指定時刻に何かしたい!'(10-00-00) :-
        'イヤン!' と 言う.
'指定時刻に何かしたい!'(11-00-00) :-
        'バカン!' と 言う.
'指定時刻に何かしたい!'(12-00-00) :-
        'エッチ!' と 言う.

_なになに と 言う :-
        writef('%t',[_なになに]).


%
%  localtime/8
%