on run
	random number with seed (current date)
	set FlagClr to {"赤", "白"}
	set MotionV to {"上げ", "下げ"}
	set ContEnd to {"て、", "ないで、", "る。", "ない。"}
	set ComStr to ""
	repeat 5 times
		set ComStr to ComStr & item (random number from 1 to 2) of FlagClr & item (random number from 1 to 2) of MotionV & item (random number from 1 to 2) of ContEnd
		set ComStr to ComStr & item (random number from 1 to 2) of FlagClr & item (random number from 1 to 2) of MotionV & item (random number from 1 to 4) of ContEnd
	end repeat
	set ComStr to ComStr & item (random number from 1 to 2) of FlagClr & item (random number from 1 to 2) of MotionV & item (random number from 3 to 4) of ContEnd
	tell application "Finder" to ﾇevent aevtSPEAﾈ ComStr given ﾇclass VOICﾈ:"ひろし"
	display dialog ComStr buttons "できた?" default button 1 with icon note
end run