cyoa{

cyoa-choice: anime-go
	($ cname .. " takes an hour to read the anime." $) text!
	deleteme clear-cyoa o'clock@ 1 + o'clock
	cwits+ if
		($ cname .. " is an uncultured swine that lacks the refined tastes necessary to appreciate this work." $) +crtext
		badfx morale-- witsREV
	else
		($ cname .. " is a person of culture and taste and greatly appreciates this anime." $) +crtext
		goodfx morale++
	then witsREV
;

: animechoice
	choice( "Leave it alone for now" )choice
	cchar charchoice( " reads the anime" )choice: anime-go
;

cyoa: anime1
	"Anime Found" cyoa-title!
	picon
	($ cname .. " finds an anime titled " .. "SANDWICH-CHAN" pbold .. "
	 It's a graphic novel about a magical anime girl who is also a sandwich that lives in a refridgerator. Or maybe it's a sandwich that is also a magical anime girl. 
	 The plot is a little difficult to follow." $) text!
		animechoice
;

cyoa: anime2
	"Anime Found" cyoa-title!
	picon
	($ cname .. " finds an anime titled " .. "I CAN'T BELIEVE MY FIANCE IS SOME KIND OF FISH CREATURE!" pbold .. "
	 It's a comic about a woman who has a dreary job in an office. Her life is brightened by getting a pet fish that has a human face and talks. 
	 The plot involves them having to eventually get married due to a wizard's curse." $) text!
		animechoice
;

cyoa: anime3
	"Anime Found" cyoa-title!
	picon
	($ cname .. " finds an anime titled " .. "BAG OF PISTACHIOS" pbold .. "
	 It's an anime about a bag of pistachios. The protagonist is surprised to discover the pistachios are sentient. Every pistachio is a different anime girl.
	 There doesn't really seem to be a plot." $) text!
		animechoice
;

cyoa-choice: animebox-go
	62 64 rnd cchar .specialhead!
	($ cname .. " is now officially an anime girl! Nice!" $) text! goodfx
;

cyoa: animebox
	"Mysterious Anime Box" cyoa-title!
	picon
	($ cname .. " finds a box of anime. It contains a bunch of anime girl masks." $) text!
		choice( "Leave it alone for now" )choice
		cchar charchoice( " puts the anime mask on" )choice: animebox-go	
;

: anime-recruit nearest .character@ choosechar cicon 1 cchar .party! goodfx clear-cyoa ;

cyoa: anime-mort
	anime-recruit
	"The Anime Club" cyoa-title!
	($ cname .. " seems irritated by " .. pname .. "'s existence.
	" .. "I guess we can help you out, but it's not because we like you or anything!" pbold $) text!
;

cyoa: anime-mark
	anime-recruit
	"The Anime Club" cyoa-title!
	($ cname .. " looks at " .. pname .. " with a quiet sense of superiority.
	" .. "I guess we can help you out, but it's not because we like you or anything!" pbold $) text!
;

cyoa: anime-clyde
	anime-recruit
	"The Anime Club" cyoa-title!
	($ cname .. " seems troubled and nervous. Not because of " .. pname .. ", just in general.
	" .. "I guess we can help you out, but it's not because we like you or anything!" pbold $) text!
;

cyoa: anime-dave
	anime-recruit
	"The Anime Club" cyoa-title!
	($ cname .. " doesn't say anything, but starts following " .. pname .. ".
	" .. "I guess we can help you out, but it's not because we like you or anything!" pbold $) text!
;

}

: animeclubstats
	WEAPON_OTAKU over .weapona!
	WEAPON_OTAKU over .weaponb!
	WEAPON_OTAKU over .weaponc!
	0.1 over .ai.wander_chance!
	2 over .strength!
	1 over .fitness!
	0 over .female!
;

: .animemort
	56 over .specialtype!
	"Mort" over .name!
	animeclubstats
	dup cyoa{ ' anime-mort cyoa! }
	drop
;

: .animemark
	55 over .specialtype!
	"Mark" over .name!
	animeclubstats
	dup cyoa{ ' anime-mark cyoa! }
	drop
;

: .animedave
	57 over .specialtype!
	animeclubstats
	"Dave" over .name!
	dup cyoa{ ' anime-dave cyoa! }
	drop
;

: .animeclyde
	54 over .specialtype!
	animeclubstats
	"Clyde" over .name!
	dup cyoa{ ' anime-clyde cyoa! }
	drop
;

// : animeshop-npc new-npc 0 lt .leaveok! 1 lt .unseen! lt .character@ ;

locdef{
		
location: animestore
		max-rooms: 2
		entry-tags: shop
		script: yall-theme
		
: animeshoploot
	map{ room-papers }
//	4 for magazine scatter next
	5 for otaku .scatter next
	magazine cyoa{ ' anime1 cyoa! } scatter
	magazine cyoa{ ' anime2 cyoa! } scatter
	magazine cyoa{ ' anime3 cyoa! } scatter
	spawn 0x 4 themed spriteid! bbox as-cloth cyoa{ ' animebox cyoa! } scatter
	inside-npc .animemort inside-npc .animeclyde inside-npc .animedave inside-npc .animemark 
	
;
		
		room-choice: shop
			room-weight: 10
			room-count: 1
			room-script: 
			room-post-script: animeshoploot
			filter-only		
 
		room-choice: restroom
			room-weight: 10
			room-count: 1
			room-script: floor-bath
	
}