時間になると笑ゥせぇるすまんがドーンしてる画像が出てくるApplescript

初版から改善したい点

• 経過時間が見たい
• 次の時間指定をすることができるようにしたい．
• 文字で記録を取っておきたい．
• 喪黒のセリフをスクリプト内部に書き込むとごちゃごちゃするので，テキストファイルに書き込む形にして分離し，それを読み込むようにする．

初版

初めてAppleScriptを書くので，一番使えそうなタスク管理用のスクリプトを作ってみました．
スクリプトを走らせると最初にアクション開始までの時間を聞かれるので，整数値xを入力するとx分後に喪黒福造の画像がフルスクリーンで表示されてその直後に彼の名言が出てきます．それだけです...

display dialog "When do you wanna doon?" default answer {"type only integer"}
set DoonTime to text returned of result
set moguro to {"この世は老いも若きも男も女も心のさみしい人ばかりそんな皆さんのココロのスキマをお埋め致しますいいえ、お金は一銭もいただきませんお客様が満足されたら、それが何よりの報酬でございます", "私の名は喪黒福造人呼んで「笑ゥせぇるすまん」ただのセールスマンじゃございません私の取り扱う品物はココロ，人間のココロでございます
ホーッホッホッホァーッ！！", "多少のストレスは人生の調味料です", "自惚れ鏡というように、鏡は決して真実を映し出しません。 なぜなら人は自分の好きな角度でしか鏡を見ようとしないです", "完全無欠な人間などいません。どんなリッパな人でも、どこかに欠陥があるのが人間である証拠です", "ドーーーーーーーーーーーーン！！！", "ドーーーーーーーーーーーーン！！！ドーーーーーーーーーーーーン！！！ドーーーーーーーーーーーーン！！！ドーーーーーーーーーーーーン！！！ドーーーーーーーーーーーーン！！！ドーーーーーーーーーーーーン！！！ドーーーーーーーーーーーーン！！！ドーーーーーーーーーーーーン！！！ドーーーーーーーーーーーーン！！！ドーーーーーーーーーーーーン！！！ドーーーーーーーーーーーーン！！！ドーーーーーーーーーーーーン！！！ドーーーーーーーーーーーーン！！！"}
set num to random number ((length of moguro)) - 1
set var to num + 1
set min to DoonTime
set cur to current date
repeat while (current date) < cur + min * 60
    if (current date) = cur + min * 60 - 0.7 then
        tell application "Finder"
            open document file "moguro_pic.jpg" of folder "Pictures" of folder "singo" of folder "Users" of startup disk
        end tell
    end if
end repeat
tell application "Preview"
    delay 2
    tell application "System Events"
        keystroke "f" using {command down, shift down}
        delay 4
        delay 1
    end tell
end tell
tell application "Finder"
    activate
    display dialog item var of moguro
end tell

まだ，試作段階で直さなきゃいけないところは山ほどありますがとりあえず動いたのがなんか嬉しい．