// TO-DO: Play Don't Shit Your Pants for ideas

	: DSYP-emote1 " farts." ;
	: DSYP-emote2 " fart" ;
	: DSYP-emote3 " fart" ;
	: DSYP-emote4 " fart" ;

	deck-new
		card: DSYP-emote1
	(*	card: DSYP-emote2
		card: DSYP-emote3
		card: DSYP-emote4 *)
	constant DSYP-EMOTES
	DSYP-EMOTES var dsyp-emotes	
	
: dsyp-emote
	dsyp-emotes depths 0= if DSYP-EMOTES shuffles to dsyp-emotes then
	blurbslot 0= if
		qmsg ($ me .name@ .. dsyp-emotes drawcard $) txt
	then
;

: dsyp-fart
	blurbslot 0= if 
		"*fart*" blurbsay
	then
;

	deck-new
	5 cards: ...say
	card: dsyp-fart
	card: dsyp-emote


	constant BLURB-DSYP-DECK
	BLURB-DSYP-DECK var blurb-dsyp-deck
