	: HORSE-oneline1 "*嘶~~~~~~*" ;
	: HORSE-oneline2 "呼噜呼噜呼噜呼噜" ;
	: HORSE-oneline3 "*嘶*" ;
	: HORSE-oneline4 "嘶~~~！" ;
	: HORSE-oneline5 "嘶！" ;

	deck-new
		card: HORSE-oneline1
		card: HORSE-oneline2
		card: HORSE-oneline3
		card: HORSE-oneline4
		card: HORSE-oneline5
	constant HORSE-ONELINERS
	HORSE-ONELINERS var horse-oneliners
	HORSE-ONELINERS shuffles to horse-oneliners

	: HORSE-emote1 " 嘶。" ;
	: HORSE-emote2 " 轻微的嘶鸣声。" ;
	: HORSE-emote3 " 两眼无神。" ;
	: HORSE-emote4 " 拖走它。" ;

	deck-new
		card: HORSE-emote1
		card: HORSE-emote2
		card: HORSE-emote3
		card: HORSE-emote4
	constant HORSE-EMOTES
	HORSE-EMOTES var horse-emotes
	HORSE-EMOTES shuffles to horse-emotes	
	
: horse-oneliner
	horse-oneliners depths 0= if HORSE-ONELINERS shuffles to horse-oneliners then
	blurbslot 0= if
		drawcard blurbsay
	then
;

: horse-emote
	horse-emotes depths 0= if HORSE-EMOTES shuffles to horse-emotes then
	blurbslot 0= if
		qmsg ($ me .name@ .. horse-emotes drawcard $) txt
	then
;

	deck-new
	4 cards: ...say
	4 cards: horse-emote
	5 cards: horse-oneliner

	constant BLURB-HORSE-DECK
	BLURB-HORSE-DECK var blurb-horse-deck
	BLURB-HORSE-DECK shuffles to blurb-horse-deck
