
cyoa{

: npc-heman-go 
	($ "I agree with you!" pbold $) text!
	($ cname .. " says he'll help you until you're on your way!" $) +crtext
	ccharget
;

cyoa-choice: npc-heman-fab
	npc-heman-go
	($ "He bestows upon " .. pname .. " some of his " .. "FABULOUS POWER" rainbold $) +crtext
	pchar .strength++ pchar .fitness++
;

cyoa-choice: npc-heman-mor
	npc-heman-go
	($ "He bestows renewed " .. "COURAGE" rainbold .. " upon " .. pname .. "." $) +crtext
	pchar .morale4+
;

cyoa-choice: npc-heman-vit
	npc-heman-go
	($ "He bestows upon " .. pname .. " great " .. "DETERMINATION" rainbold $) +crtext
	pchar .vitality++ pchar .health++
;

cyoa: npc-heman
	"Herman" cyoa-title!
	nearest .character@ choosechar cicon
	($ "The burly man in a strange costume speaks to " .. pname .. "." $) text!
	($ "What do you think is the most important quality in a hero?" pbold $) +crtext
		choice( "Don't answer yet" )choice
		choice( "Fabulous Power" )choice: npc-heman-fab
		choice( "Courage" )choice: npc-heman-mor
		choice( "Determination" )choice: npc-heman-vit
;

}

: .heman args( char )
	18 <- char .specialtype!
	"Prince Herman" <- char .name!
	WEAPON_CLAYMORE <- char .weapona!
	WEAPON_CLAYMORE <- char .weapon_nodropa!
	6 <- char .strength!
	6 <- char .fitness!
	4 <- char .vitality!
	4 <- char .health!
	0 <- char .female!
	<- char cyoa{ ' npc-heman cyoa! }
	drop
;

locdef{
		
location
		tags: heman
		max-rooms: 2
		entry-tags: trashed
		script: set-theme-house
		pre-script: set-theme-house
		
		room-choice: trashed
			room-weight: 10
			room-count: 2
			room-script: nad
			room-post-script: still-npc .heman
			filter-only
			
}