	: OCTODAD-oneline1 "*burbling survival advice*" ;
	: OCTODAD-oneline2 "*blub*" ;
	: OCTODAD-oneline3 "*burble*" ;
	: OCTODAD-oneline4 "*blubbing anxiously*" ;
	: OCTODAD-oneline5 "*burbling with a message of hope*" ;
	: OCTODAD-oneline6 "*burbled meaningful anecdote*" ;

	deck-new
		card: OCTODAD-oneline1
		card: OCTODAD-oneline2
		card: OCTODAD-oneline3
		card: OCTODAD-oneline4
		card: OCTODAD-oneline5
		card: OCTODAD-oneline6
	constant OCTODAD-ONELINERS
	OCTODAD-ONELINERS var octodad-oneliners

	: OCTODAD-emote1 " makes burbling noises." ;
	: OCTODAD-emote2 " gets very tangled up in his seatbelt." ;
	: OCTODAD-emote3 " frantically tries not to drop a weapon." ;
	: OCTODAD-emote4 " tries to put his seat belt on for a good 20 minutes." ;
	: OCTODAD-emote5 " swings a tentacle around the car." ;
	: OCTODAD-emote6 " keeps grabbing stuff by accident." ;

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

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

	deck-new
	6 cards: octodad-emote
	6 cards: octodad-oneliner

	constant BLURB-OCTODAD-DECK
	BLURB-OCTODAD-DECK var blurb-octodad-deck
