(*
: alvis-hohoho
	blurbslot 0= if // Conversation starter, then everyone in party responds
		"HO HO HO! HO HO HO! HO HO HO!" blurbsay
	else
		50 %chance if
			blurbslot 2 < if ($ "SHUT UP, " .. 1st-char .name@ .. "." $) blurbsay
			STAT_MORALE me .stat--
			then
		else
			STAT_MORALE me .stat++
		then
	then
;

: alvis-merrychristmas // Random first person, random single responder, stuff happens.
	blurbslot 0= if
		"HO HO HO! MEEEEEERRY CHRISTMAS!" blurbsay
	else
		50 %chance if
			blurbslot 2 < if ($ "CAN IT, " .. 1st-char .name@ .. "!" $) blurbsay
			then
		else
			STAT_MORALE me .stat++
		then
	then
; *)

	: ALVIS-oneline1 "yeah man lets waigioutahere" ;
	: ALVIS-oneline2 "uuh huh" ;
	: ALVIS-oneline3 "uhuhuh, whoauough" ;
	: ALVIS-oneline4 "thankyouverymuch" ;
	: ALVIS-oneline5 "hey man this zombiebloodgunagetoutofsuede" ;
	: ALVIS-oneline6 "uuuh huuuuh huuuuuuh" ;
	: ALVIS-oneline7 "this aint vegas man" ;
	: ALVIS-oneline8 "zuh-huh-zuh-huh-zuh-hombie lo-ove" ;
	: ALVIS-oneline9 "baby letsplithiscene" ;
	: ALVIS-oneline10 "uh-huh-huh" ;
	: ALVIS-oneline11 "sure could go for a peanut butter and banana sandwich right now" ;
	: ALVIS-oneline12 "a portait done on velvet, now that sounds like my style" ;
	: ALVIS-oneline13 "my dry cleaning bills are out of control" ;
	: ALVIS-oneline14 "it's lonely being at the top" ;
	: ALVIS-oneline15 "uhuhhuh, don't touch the hair" ;
	: ALVIS-oneline16 "...and they'll call it a velvet Alvis, uhhuh" ;
	: ALVIS-oneline17 "uhuh, this ain't Memphis" ;

	deck-new
		card: ALVIS-oneline1
		card: ALVIS-oneline2
		card: ALVIS-oneline3
		card: ALVIS-oneline4
		card: ALVIS-oneline5
		card: ALVIS-oneline6
		card: ALVIS-oneline7
		card: ALVIS-oneline8
		card: ALVIS-oneline9
		card: ALVIS-oneline10
		card: ALVIS-oneline11
		card: ALVIS-oneline12
		card: ALVIS-oneline13
		card: ALVIS-oneline14
		card: ALVIS-oneline15
		card: ALVIS-oneline16
		card: ALVIS-oneline17
	constant ALVIS-ONELINERS
	ALVIS-ONELINERS var alvis-oneliners

: alvis-oneliner
	alvis-oneliners depths 0= if ALVIS-ONELINERS shuffles to alvis-oneliners then
	blurbslot 0= if
		alvis-oneliners drawcard blurbsay
	then
;


	deck-new
	17 cards: alvis-oneliner

	constant BLURB-ALVIS-DECK
	BLURB-ALVIS-DECK var blurb-alvis-deck
