//****************************************************************************
//SPHERE by : Menasoft ©1997-2000
//www.sphereserver.com
// All SPHERE script files and formats are copyright Menasoft & Partners.
// This file may be freely edited for personal use, but may not be distributed
// in whole or in part, in any format without express written permission from
// Menasoft & Partners.  All donations and contributions
// become the property of Menasoft & Partners.
//****************************************************************************
VERSION=0.54

[EVENTS e_magehunter]
ON=@SpellEffect
IF (((<ARGN>==41)||(<ARGN>==54))&&(<FINDID.i_memory_greater_magic_reflection>))
	FINDID.i_memory_greater_magic_reflection.REMOVE
	RETURN 0
ENDIF

IF !(<SRC.ISEVENT.e_magehunter>)
	VAR.OLDACT=<SRC.ACT.UID>
	SRC.NEWITEM i_reflectfudge
	SRC.ACT.LINK=<SRC.UID>
	SRC.ACT.MOREX=<ARGN>
	SRC.ACT.MOREY=<EVAL <SRC.MAGERY> + (<MAGICRESISTANCE>+<MAGERY>)/2>
	EQUIP <SRC.ACT.UID>

	IF (<SRC.FLAGS> & statf_conjured)
		SRC.NEWITEM i_reflectfudge
		SRC.ACT.LINK=<SRC.MEMORYFINDTYPE.memory_ipet.LINK>
		SRC.ACT.MOREX=<ARGN>
		SRC.ACT.MOREY=<EVAL <SRC.MAGERY> + (<MAGICRESISTANCE>+<MAGERY>)/2>
		EQUIP <SRC.ACT.UID>
	ENDIF

	SRC.ACT=<EVAL <VAR.OLDACT>>
	VAR.OLDACT=
ENDIF

RETURN 1

ON=@GetHit
IF (<SRC.FLAGS>&statf_conjured)
	SRC.MEMORYFINDTYPE.memory_ipet.LINK.DAMAGE <ARGN>, <ARGN2>, <UID>
	SRC.DAMAGE <ARGN>, <ARGN2>, <UID>

	RETURN 1
ENDIF

[ITEMDEF i_reflectfudge]
ID=i_memory
NAME=Reflect Spell
TYPE=t_eq_script

ON=@Create
ATTR=attr_move_never|attr_invis

ON=@Equip
LINK.SPELLEFFECT <MOREX>,<MOREY>
REMOVE
RETURN 1

[EVENTS e_Undead]

ON=@GetHit
IF (<ARGN2> & 010)
	SRC.SYSMESSAGE Fire seems effective.
	DAMAGE <ARGN> <HVAL <ARGN2> &~ 010> <SRC.UID>
ELSEIF (<ARGN2> & 08)
	SRC.SYSMESSAGE Undead are healed by harm and poison spells.
	HITS=<EVAL <HITS>+<ARGN>>
	UPDATE
	RETURN 1
//ELSEIF (<ARGN2> & 0402)
//	TAG.EXTRADAMAGE=<EVAL {1 10}>
//	DAMAGE <EVAL <TAG.EXTRADAMAGE>> <EVAL <ARGN2> &~ 0402> <SRC.UID>
//	SRC.SYSMESSAGE Undead are weak against slashing; you deal <EVAL <TAG.EXTRADAMAGE>> extra damage.
//	TAG.EXTRADAMAGE=
ENDIF

ON=@SpellEffect
IF ((!<SRC.NPC>)||(<SRC.UID>==<UID>))
	IF (<ARGN>==4)
		//Heal.
		DAMAGE <EVAL <ARGN2> / {40 125}> 084 <SRC.UID>
	ELSEIF (<ARGN>==29)
		//Greater heal.
		DAMAGE <EVAL <ARGN2> / {20 80}> 084 <SRC.UID>
	ELSEIF (<ARGN>==59)
		//Resurrection.
		DAMAGE <EVAL <ARGN2> / {10 30}> 084 <SRC.UID>
	ELSE
		RETURN 0
	ENDIF

	SRC.SYSMESSAGE That seemed to hurt it.
	RETURN 1
ENDIF

ON=@SkillStart
	IF !(<ISEVENT.e_Undead>)
		EVENTS=+e_Undead
	ENDIF

//
//	if ! <tag.lightstr>
//	tag.lightstr=<str>
//	endif
//
//	str=<tag.lightstr>+(<tag.lightstr>*(<sector.light>/100))
//
//	// i like the dark
//	if <sector.isdark> || (<flags>&(statf_nightsight|statf_indoors))
//		if ! <tag.lightstr>
//			return 0
//		endif
//		anim 011
//		bark 4
//		str=<tag.lightstr>	// restore me.
//		hits=<str>
//		tag.lightstr=0
//		karma=<tag.lightkarma>
//		tag.lightkarma=//just dispose of this.
//		fame=<tag.lightfame>
//		tag.lightfame=
//		flags=<flags>&~statf_conjured	// no loot if killed.
//		return 0
//	endif
//	// i can't live in light areas. weaken me ? or destroy me ?
//	anim 014
//	bark 4
//	if <tag.lightstr>
//		return 0
//	endif
//	if ( <flags>&statf_conjured	) 
//		remove
//		return 1
//	endif
//	flags=<flags>|statf_conjured	// no loot if killed.
//	tag.lightstr=<str>
//	str=1
//	hits=1	// very weak.
//	tag.lightkarma=<karma>	// killing it means nothing now.
//	karma=-2
//	tag.lightfame=<fame>
//	fame=10
//	return 0

[EVENTS e_vampire]
ON=@EnvironChange
IF ((<SECTOR.ISDARK>)||(<FLAGS> & statf_indoors))
	IF (<FLAGS> & statf_stone)
		SFX 012e
		STONE 0
	ENDIF
ELSE
	IF (<FLAGS> &~ statf_stone)
		SFX 011d
		STONE 1
	ENDIF
ENDIF

ON=@GetHit
IF (<HITS> < <EVAL <STR> / 2>)
	//Change strategies. We drain HP, so wrestle.
	TAG.ORIGINALMAGERY=<EVAL <MAGERY>>
	MAGERY=0.0
ELSEIF (<EVAL 0<TAG.ORIGINALMAGERY>> > 0)
	MAGERY=<EVAL <TAG.ORIGINALMAGERY>>
	TAG.ORIGINALMAGERY=
ENDIF

[EVENTS e_damagedrain]
ON=@GetHit
SYSMESSAGE <SRC.NAME> drains <EVAL <ARGN> / 2> hitpoints!
IF (<EVAL <SRC.HITS>+(<ARGN>/2)> < <SRC.STR>)
	SRC.HITS=<EVAL <SRC.HITS> + (<ARGN>/2)>
ELSEIF (<SRC.HITS> < <SRC.STR>)
	SRC.HITS=<SRC.STR>
ENDIF

SRC.UPDATE
EVENTS=-e_damagedrain
RETURN 0

[EVENTS e_blood_suck]
ON=@Hit
SRC.EVENTS=+e_damagedrain

ON=@ItemStep
IF (<ACT.TYPE>==t_corpse)
	IF (<ACT.COLOR>==1001)
		RETURN 1
	ENDIF

	ACT.COLOR=1001
	EMOTE sucks blood from <ACT.NAME>!
	HITS=<EVAL <HITS>+50>
	UPDATE
ELSEIF (<ACT.TYPE>==t_blood)
	IF ((<ACT.ATTR> & 010)||(<ACT.COLOR>==0497))
		RETURN 0
	ELSE
		EMOTE drinks <ACT.NAME>
		HITS=<EVAL <HITS>+{10 25}>
		UPDATE
		ACT.REMOVE
	ENDIF
ENDIF

[EVENTS e_Carnivores]
// weak carnivores.

[EVENTS e_Carnivores2]
// normal carnivores.

[EVENTS e_Carnivores3]
// strong carnivores.

[EVENTS e_Terathan]

[EVENTS e_Ophidian]

[EVENTS e_Horses]

ON=@NPCSeeNewPlayer
IF ((<EVAL <SRC.TAG.HORSEFEAR>> != 0)&&(<EVAL <MEMORYFINDTYPE.memory_ipet.LINK.UID>> != <SRC.UID>))
	IF (<RAND(5)> != 1)
		FLEE
	ELSE
		ATTACK
	ENDIF
ENDIF

ON=@SkillStart
//IF !(STRCMPI(<NAME>,Mustang))
//	IF ((<COLOR> != 0455)&&(<MEMORYFINDTYPE.memory_ispawned>))
//		REMOVE
//	ENDIF
//ENDIF

IF (<ACTION>=064)
	IF (<EVAL 0<TAG.HASTESCROLL>> > 0)
		TRYP 0 UID.<TAG.HASTESCROLL>.REMOVE
		TAG.HASTESCROLL=
	ENDIF

	TAG.OLDACT=<EVAL <ACT.UID>>
	NEWITEM=i_scroll_haste
	ACT.ATTR=attr_invis|attr_magic|attr_move_never
	ACT.P=<P>
	ACT.MORE1=4000
	ACT.LINK=<UID>
	ACT.TIMERd=1
	TAG.HASTESCROLL=<EVAL <ACT.UID>>
	ACT=<EVAL <TAG.OLDACT>>
	TAG.OLDACT=
ELSEIF (<EVAL 0<TAG.HASTESCROLL>> > 0)
	TRYP 0 UID.<TAG.HASTESCROLL>.REMOVE
	TAG.HASTESCROLL=
ENDIF

ON=@EnvironChange

IF (<FLAGS>&statf_conjured)
IF !(STRMATCH(Summoned*,<NAME>))
NAME=Summoned <NAME>
ENDIF
ENDIF

IF (<FLAGS>&statf_pet)
	IF (<eval 0<TAG.OLDKARMA>> == 0)
		TAG.OLDKARMA=<KARMA>
		KARMA=<eval <MEMORYFINDTYPE.memory_ipet.LINK.KARMA> / 2>
	ENDIF
ENDIF

IF !(<FLAGS>&statf_pet)
	IF !(<eval 0<TAG.OLDKARMA>> == 0)
		KARMA=<eval <TAG.OLDKARMA>>
		TAG.OLDKARMA=
	ENDIF
ENDIF

[EVENTS e_llamas]

ON=@EnvironChange

IF (<FLAGS>&statf_pet)
	IF (<eval 0<TAG.OLDKARMA>> == 0)
		TAG.OLDKARMA=<KARMA>
		KARMA=<eval <MEMORYFINDTYPE.memory_ipet.LINK.KARMA> / 2>
	ENDIF
ENDIF

IF !(<FLAGS>&statf_pet)
	IF !(<eval 0<TAG.OLDKARMA>> == 0)
		KARMA=<eval <TAG.OLDKARMA>>
		TAG.OLDKARMA=
	ENDIF
ENDIF

ON=@SkillStart
IF (<ACTION>=064)
	IF (<EVAL 0<TAG.HASTESCROLL>> > 0)
		TRYP 0 UID.<TAG.HASTESCROLL>.REMOVE
		TAG.HASTESCROLL=
	ENDIF

	TAG.OLDACT=<EVAL <ACT.UID>>
	NEWITEM=i_scroll_haste
	ACT.ATTR=attr_invis|attr_magic|attr_move_never
	ACT.P=<P>
	ACT.MORE1=4000
	ACT.LINK=<UID>
	ACT.TIMERd=1
	TAG.HASTESCROLL=<EVAL <ACT.UID>>
	ACT=<EVAL <TAG.OLDACT>>
	TAG.OLDACT=
ELSEIF (<EVAL 0<TAG.HASTESCROLL>> > 0)
	TRYP 0 UID.<TAG.HASTESCROLL>.REMOVE
	TAG.HASTESCROLL=
ENDIF

[EVENTS e_Notoriety]

[EVENTS e_Ostards]
ON=@SkillStart
IF (<ACTION>=064)
	IF (<EVAL 0<TAG.HASTESCROLL>> > 0)
		TRYP 0 UID.<TAG.HASTESCROLL>.REMOVE
		TAG.HASTESCROLL=
	ENDIF

	TAG.OLDACT=<EVAL <ACT.UID>>
	NEWITEM=i_scroll_haste
	ACT.ATTR=attr_invis|attr_magic|attr_move_never
	ACT.P=<P>
	ACT.MORE1=4000
	ACT.LINK=<UID>
	ACT.TIMERd=1
	TAG.HASTESCROLL=<EVAL <ACT.UID>>
	ACT=<EVAL <TAG.OLDACT>>
	TAG.OLDACT=
ELSEIF (<EVAL 0<TAG.HASTESCROLL>> > 0)
	TRYP 0 UID.<TAG.HASTESCROLL>.REMOVE
	TAG.HASTESCROLL=
ENDIF

[EVENTS e_Human_Environ]

ON=@EnvironChange
	if <flags>&statf_war 
		return 0
	endif
	
	if ((<NPC>=3)||(<NPC>=4)||(<NPC>=5))
		if (<EVAL <TAG.HAIRID>>)
		TAG.NIGHTBODY=
		TAG.NIGHTHAIR=
		TAG.NIGHTBEARD=
		TAG.DAYBODY=
		TAG.DAYNAME=
		TAG.DAYTITLE=
		TAG.DAYCOLOR=
		TAG.HAIRID=
		TAG.HAIRCOLOR=
		TAG.BEARDID=
		TAG.BEARDCOLOR=
		ENDIF
	ENDIF		

	if (<NPC>=4)
		return 0
	endif

	if !<sector.isdark> || (<flags>&statf_nightsight)
		if (<MEMORYFINDTYPE.memory_ipet>)
			return 0
		endif
		if <findlayer(layer_hand2)>
			if <findlayer(layer_hand2).type> == t_light_lit
				findlayer(layer_hand2).bounce
			endif
		endif
		return 0
	endif
	// already have a lit light ?
	if <findlayer(layer_hand2)>
		if <findlayer(layer_hand2).type> == t_light_lit
			return 0
		endif
	endif
	// try to use a torch or light source if i have one. (and it's dark)
	if <findtype.t_light_out>
		findtype.t_light_out.equip
		findtype.t_light_out.use
	endif
	return 0

[EVENTS e_Human_Greet]

ON=@NPCHearGreeting
	// They just spoke to me for the first time.
	IF ( <SRC.FAME.INFAMOUS> || <SRC.FAME.OUTLAW> )
		IF ( <SRC.KARMA.WICKED> || <SRC.KARMA.BELLIGERANT> )
			DORAND 5
				SAY I don't have time for the likes of thee.  Begone!
				SAY Please leave this place immediately.
				SAY Thou'rt not welcome here.
				SAY What dost thou want from me, dog?
				SAY Off with thee!
			ENDDO
		ELIF ( <SRC.KARMA.NEUTRAL> )
			IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
				DORAND 7
					SAY Might I help thee?
					SAY Get thee gone from here.
					SAY I do not deal with thy kind.
					SAY Yes?
					SAY Might I assist thee?
					SAY Hello.
					SAY What dost thou need?
				ENDDO
			ELSE
				DORAND 7
					SAY Might I help thee?
					SAY Get gone from here.
					SAY I don't deal with thy kind.
					SAY Yes?
					SAY What?
					SAY Hello.
					SAY What's thou need?
				ENDDO
			ENDIF
		ELSE
			IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
				DORAND 6
					SAY Good day.
					SAY How might I help thee?
					SAY Yes?
					SAY How may I assist thee?
					SAY Hello.
					SAY What dost thou need, <SRC.SEX milord/milady>?
				ENDDO
			ELSE
				DORAND 6
					SAY Good day.
					SAY How can I help thee?
					SAY Yes?
					SAY What's thou needin'?
					SAY Hello.
					SAY What's thou need, <SRC.SEX milord/milady>?
				ENDDO
			ENDIF
		ENDIF
	ELIF ( <SRC.FAME.ANONYMOUS> )
		IF ( <SRC.KARMA.WICKED> || <SRC.KARMA.BELLIGERANT> )
			IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
				DORAND 5
					SAY Huh?
					SAY Umm?  Thou didst want something?
					SAY Yes?  Might I help thee?
					SAY What?
					SAY What dost thou want?
				ENDDO
			ELSE
				DORAND 5
					SAY Huh?
					SAY Umm? Thou want somethin'?
					SAY Yes? Kin I help thee?
					SAY What?
					SAY What's thou want?
				ENDDO
			ENDIF
		ELIF ( <SRC.KARMA.NEUTRAL> )
			IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
				DORAND 7
					SAY Greetings.  What might I do for thee?
					SAY Greetings.  What might I help thee with?
					SAY Good morrow!  How might I help thee?
					SAY Yes?
					SAY Hello, my friend!  How may I assist thee?
					SAY Hello!
					SAY What dost thou need?
				ENDDO
			ELSE
				DORAND 7
					SAY Greetings. What can I do for thee?
					SAY Greetings. What can I help thee with?
					SAY Good morrow!  How can I help thee?
					SAY Yes?
					SAY Hello! ?
					SAY Hello!
					SAY What's thou need?
				ENDDO
			ENDIF
		ELSE
			IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
				DORAND 6
					SAY Greetings!  Is there something I might do for thee?
					SAY Good morrow!  How might I help thee?
					SAY Yes?
					SAY Hello, my friend!  How may I assist thee?
					SAY Well hello!
					SAY What dost thou need, <SRC.SEX milord/milady>?
				ENDDO
			ELSE
				DORAND 6
					SAY Greetings! Is there somethin' I can do for thee?
					SAY Good morrow! How can I help thee?
					SAY Yes?
					SAY Hello, my friend! How may I help thee?
					SAY Well hello!
					SAY What's thou need, <SRC.SEX milord/milady>?
				ENDDO
			ENDIF
		ENDIF
	ELSE
		IF ( <SRC.KARMA.WICKED> || <SRC.KARMA.BELLIGERANT> )
			IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
				DORAND 5
					SAY Greetings to thee.
					SAY How might I fulfill thy grandiose wishes?
					SAY Yes, oh perfumed one?
					SAY What?
					SAY What dost thou desire of my lowly self?
				ENDDO
			ELSE
				DORAND 5
					SAY Greetings to thee.
					SAY How can I do for thee?
					SAY Yes, oh perfumed one?
					SAY What?
					SAY What's thou want of my low self?
				ENDDO
			ENDIF
		ELIF ( <SRC.KARMA.NEUTRAL> )
			IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
				DORAND 6
					SAY Greetings.  What might I do for thee, <SRC.SEX milord/milady>?
					SAY Good morrow <SRC.SEX milord/milady>!  How might I help thee this day?
					SAY Yes?  Didst thou need something?
					SAY Hello!  How may I assist thee?
					SAY Hello!
					SAY What might I do for thee?
				ENDDO
			ELSE
				DORAND 6
					SAY Greetings.  What can I do for thee, <SRC.SEX milord/milady>?
					SAY Good morrow <SRC.SEX milord/milady>!  How can I help thee today?
					SAY Yes?  Did thou need somethin'?
					SAY Hello!  How may I help thee?
					SAY Hello!
					SAY What can I do for thee?
				ENDDO
			ENDIF
		ELSE
			IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
				DORAND 7
					SAY Greetings, <SRC.SEX good sir/good lady>!  What might I do for thee?
					SAY Good morrow, <SRC.SEX milord/milady>!  How might I help thee?
					SAY Yes?  What can I do for thee today?
					SAY Yes?  Dost thou require my assistance?
					SAY Hello, my friend!  How may I assist thee?
					SAY Well hello!
					SAY What dost thou need, <SRC.SEX good sir/good lady>?
				ENDDO
			ELSE
				DORAND 7
					SAY Greetings, <SRC.SEX good sir/good lady>!  What can I do for thee?
					SAY Good morrow, <SRC.SEX milord/milady>!  How can I help?
					SAY Yes?  What can I do for thee today?
					SAY Yes?  Art thou requirin' my assistance?
					SAY Hello, my friend!  How may I help thee?
					SAY Well hello!
					SAY What's thou need, <SRC.SEX good sir/good lady>?
				ENDDO
			ENDIF
		ENDIF
	ENDIF

[EVENTS e_Human_HearUnk]
ON=@NPCHearUnknown
// Sorry I don't understand.
	IF ( <SRC.KARMA.WICKED> )
		IF ( <SRC.FAME.INFAMOUS> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND 4
					SAY Begging thy <SRC.SEX lordship's/ladyship's> pardon, but kindly remove thyself from here. Thy blatherings annoy me.
					SAY Even if thou hast a reputation, it says little about thy sense. Canst thou give me a reason why I shouldst not have thy legs broken?
					SAY 'Tis not my life full enough of inconveniences? Must I also deal with the awkward importunings of the likes of thee?
					SAY It revolts me how petty lordlings and puffed-up peacocks disturb me with their callow chatter. Begone.
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY I don't care if thou art a dangerous powerful <SRC.SEX man/woman>. Please leave me alone.
					SAY All high and mighty, are we? Why dost thou not wander off, eh?
					SAY Even if thou hast a bit of a reputation, I'll wager if I hit thee, thou wouldst bleed.
				ENDDO
			ELSE
				DORAND 3
					SAY Go 'way, big shot.
					SAY Ye want me to break thy nose?
					SAY Thou art quite stuck on thyself.
				ENDDO
			ENDIF
		ELIF ( <SRC.FAME.OUTLAW> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND
					SAY My time is valuable enough to me without thy pratings wasting it.
					SAY If thou wert capable of talking sense, perhaps thou wouldst.
					SAY The rumors that reached me of thy small measure of fame failed to include how annoying thou art.
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND
					SAY Make sense, or leave.
					SAY I had heard of thee, but thy annoying nature wasn't mentioned.
					SAY I'm busy and have no time for this.
				ENDDO
			ELSE
				DORAND 3
					SAY Go 'way.
					SAY Make sense, please.
					SAY Gosh, thou art annoying.
				ENDDO
			ENDIF
		ELIF ( <SRC.FAME.ANONYMOUS> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY I know not who thou art, but annoying is a right good term for thee.
					SAY To put it politely, given the miserable state of the world today, GO AWAY.
					SAY 'Tis said that one of the burdens we of high intelligence bear is the pestering of folk such as thee: the idle questioners of no consequence.
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY Who art thou anyway?
					SAY Go away.
					SAY Why am I always pestered by those with nothing better to do?
				ENDDO
			ELSE
				DORAND 3
					SAY Who art thou anyway? Besides annoying.
					SAY Life is lousy. Go away.
					SAY Go shovel stables or something.
				ENDDO
			ENDIF
		ELIF ( <SRC.FAME.KNOWN> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY Not to puncture thy small bubble of self-importance, but I have work to do.
					SAY I do not care who thou art--thou art tiring.
					SAY I cannot understand thee, which I did not expect from one of thy small reputation.
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY I know thou fanciest thyself a public figure, but some of us have work to do.
					SAY I don't care who thou art, I have better things to spend my time upon.
					SAY Excuse me? I would have thought I would be able to understand someone as well known as thee.
				ENDDO
			ELSE
				DORAND 3
					SAY Uh, I have work to do.
					SAY Hmm?
					SAY Ye talk confusing.
				ENDDO
			ENDIF
		ELSE
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY Ah, the high and mighty deign to speak with me. I feel honored that they soil their feet with the ground upon which I walk.
					SAY For one of the greats of this land, thou makest remarkably little sense.
					SAY Noble <SRC.SEX lord/lady> of whatever it is thou art, know this: my life is a miserable cesspool, and right now the honor of thy asking me a question makes me merely the noblest toad there. It also maketh of thee the noblest leech.
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY Goodness, a high and mighty <SRC.SEX lord/lady> talking to ME. I suppose thou thinkest I have no work to do.
					SAY For a fancy <SRC.SEX lord/lady>, thou makest little sense.
					SAY Even if thou art famous, talking to me will not make my day any better.
				ENDDO
			ELSE
				DORAND 3
					SAY Are ye somebody famous?
					SAY Huh?
					SAY Um, yeah, whatever.
				ENDDO
			ENDIF
		ENDIF
	ELIF ( <SRC.KARMA.BELLIGERANT> )
		IF ( <SRC.FAME.INFAMOUS> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY Begging thy pardon, oh terrible one, but today is not the day to say things I do not understand.
					SAY Please do not hurt me! Life is hard enough without the whims of the likes of thee.
					SAY I don't know what it is thou seekest from me. I am but a humble wretch whose life is a disaster.
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY See here, today hath not been a good day for me. I beg thee, <SRC.SEX sir/ma'am>, try to make more sense.
					SAY Please don't hurt me! Life is hard enough.
					SAY Life is terrible, I am but a poor wretch, and I do not know what 'tis thou wantest from me.
				ENDDO
			ELSE
				DORAND 3
					SAY This ain't a good day to talk funny.
					SAY Don' hurt me!,
					SAY I'm nobody, right? Leave me alone, please?
				ENDDO
			ENDIF
		ELIF ( <SRC.FAME.OUTLAW> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY Thou art unsavory, much like my life.
					SAY I fear that I do not understand thee.
					SAY I hear what thou sayest, but do not understand. Then again, everything seems that way to me these days.
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY I fear I don't understand thee.
					SAY Thou art that person I have been hearing rumors about! Sort of unsavory, not quite the model citizen? Is that thee?
					SAY These days nothing seems to make sense.
				ENDDO
			ELSE
				DORAND 3
					SAY Hey, art thou a bad guy?
					SAY Um, er, what?
					SAY Yes? No? I don't understand.
				ENDDO
			ENDIF
		ELIF ( <SRC.FAME.ANONYMOUS> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY My life is bad, and thy face worse. Go away
					SAY If I asked thee to go away, wouldst thou forgive my ill-temper on the grounds that I do not know thee?
					SAY I am not here for thy pleasure. Kindly begin to make sense.
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY Today is the WORST day I have seen. Please bother me not.
					SAY Mind thee, I do not know who thou art, so if I tell thee to go away, do not take it amiss.
					SAY I am not here to answer thy questions. Make sense if thou must ask.
				ENDDO
			ELSE
				DORAND 3
					SAY My, thou art ugly.
					SAY Enh?
					SAY I don't understand.
				ENDDO
			ENDIF
		ELIF ( <SRC.FAME.KNOWN> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY Ah, forgive me, but I fail to understand what thou meanest. I am much distracted by my pitiful life these days.
					SAY Enough about thy wants. When shall folk like thee, of some meager reputation, begin to heed the needs of those such as I?
					SAY Thou hast some reputation in these parts. A shame that thou talkest so little sense.
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY Sorry, but I do not quite follow. My life these days is terrible and my attention wanders.
					SAY Enough about what thou wantest! When will it ever be about people like me?
					SAY I have heard of thee! A shame that thou makest no sense.
				ENDDO
			ELSE
				DORAND 3
					SAY Oh, thee's somebody, right?
					SAY Who cares? Let's talk about me.
					SAY I know thee! Thou art... umm... <SRC.SEX whatsisface/whatserface>!
				ENDDO
			ENDIF
		ELIF ( <SRC.FAME.FAMOUS> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY I know nothing, nothing, nothing.
					SAY Forgive me, if it please thee. I am weary, and fail to understand what thou sayest.
					SAY And I suppose my petty problems are beneath one such as thou?
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY I know nothing, <SRC.SEX milord/milady>.
					SAY I'm sorry, I am tired and do not understand thee.
					SAY I guess that my small problems are too small for the likes of thee?
				ENDDO
			ELSE
				DORAND 3
					SAY Wha'?
					SAY Thou ought to spend time grubbing in the dirt, getting to know the poor.
					SAY Erm, I guess I canna help ye. I think. Not sure.
				ENDDO
			ENDIF
		ENDIF
	ELIF ( <SRC.KARMA.NEUTRAL> )
		IF ( <SRC.FAME.INFAMOUS> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY I beg thee, do not harm me. I cannot help thee.
					SAY I do not understand thee--I am sure it must be my fault, however.
					SAY Begging thy pardon, but I fail to understand what it is that thou wantest.
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY Do not hurt me! I can't help thee!,
					SAY I, ahh, can't help thee, with this at least, thou seest, I, ahh, oh, please... I can grovel, wouldst thou like to see me grovel?
					SAY I beg thy pardon, but I do not understand.
				ENDDO
			ELSE
				DORAND 3
					SAY Don' hurt me!,
					SAY Sorry, sorry, I'm stupid, don't hit me.
					SAY Please, my old grandmother, she'd miss me if thou slit my throat!
				ENDDO
			ENDIF
		ELIF ( <SRC.FAME.OUTLAW> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY I wish I could answer thee, so that thou wouldst leave me alone.
					SAY Excuse my incomprehension, oh mighty terrorizer of small children, but I did not understand thee, and would find life more pleasant without thy ilk nearby.
					SAY I am sorry, but I do not always understand the utterances of petty criminals.
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY If I knew, I would tell thee so as to be left alone.
					SAY Life would be better if people like thee were not around.
					SAY Sorry. Can't help thee.
				ENDDO
			ELSE
				DORAND 3
					SAY Lemme alone.
					SAY Hey, thou art stinkin' up the place.
					SAY Thou'rt a bad'un, aren't ye?
				ENDDO
			ENDIF
		ELIF ( <SRC.FAME.ANONYMOUS> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY Forgive me, but I do not understand.
					SAY Excuse me? Forgive my lack of comprehension.
					SAY If I look perplexed, 'tis because I am.
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY Sorry, I don't know what thou talkest about.
					SAY I'd scratch my head, but I's told it ain't polite.
					SAY Excuse me?
				ENDDO
			ELSE
				DORAND 3
					SAY Huh?
					SAY Um... um?
					SAY What?
				ENDDO
			ENDIF
		ELIF ( <SRC.FAME.KNOWN> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY Accept my apologies, <SRC.SEX sir/milady>, for my lack of comprehension.
					SAY If 'twere in my capabilities to help thee, I surely would.
					SAY I cannot fathom what 'tis that thou wishest.
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY Forgive me, but... what?
					SAY If I could help thee with that, I would.
					SAY I don't know what 'tis thou wantest?
				ENDDO
			ELSE
				DORAND 3
					SAY Come again?
					SAY I'd help ye, ifn I knew how.
					SAY Ye lost me, not that it's hard.
				ENDDO
			ENDIF
		ELIF ( <SRC.FAME.FAMOUS> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY Begging thy pardon, but in my awe at seeing thee actually here before me, I neglected to listen closely to what thou spoke.
					SAY Sadly, I must report that I know nothing of what thou speakest.
					SAY Help me to understand thee, for I know not what thou seekest.
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY Thou art amazing, didst thou know that? A truly magnificent person.
					SAY Oh... I know nothing about that.
					SAY Begging thy pardon, <SRC.SEX sir/ma'am>, but couldst thou explain that a bit better for me?
				ENDDO
			ELSE
				DORAND 3
					SAY It 'ud be so great to help ye! I'd love to tell thee all abouts it! It's like this, it's... um... oh, consarn it.,
					SAY Aw, why'd ye ask something I ain't never known?
					SAY How old are ye really? No, really, ye're so famous an' all...
				ENDDO
			ENDIF
		ENDIF
	ELIF ( <SRC.KARMA.KINDLY> )
		IF ( <SRC.FAME.INFAMOUS> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY Please do not hurt me! I know nothing of what thou speakest!
					SAY I wish I could help thee, but I cannot. Please believe me
					SAY Even for one of thy dread reputation, I cannot answer what I do not know.
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY Don't hurt me! I know noting of what thou sayest!,
					SAY I wish I could help thee, believe me.
					SAY Even if thou didst threaten me, I could not tell what I do not know.
				ENDDO
			ELSE
				DORAND 3
					SAY Don' beat me up, huh?
					SAY I can't help ye, honest, really!,
					SAY I hear ye eat little children. Does they taste good?
				ENDDO
			ENDIF
		ELIF ( <SRC.FAME.OUTLAW> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY Poor <SRC.SEX fellow/lass>, I fear I cannot help thee.
					SAY I do not understand--and best thee not harass me for my lack of understanding.
					SAY And why would a hooligan like thou wish to know that? In any case, I do not know.
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY Thou art rather pitiable. Sorry, but I cannot help thee.
					SAY 'Twould go ill with thee wert thou to harass me because I cannot answer.
					SAY Why doth a crook like thee want to know about that? Not that I know either.
				ENDDO
			ELSE
				DORAND 3
					SAY Aye, I heard 'bout that I think... no, wait, 'twasn't that... or was it? Me mind's going, not that I had a good one in the first place, ifn ye know what I mean.
					SAY I dunno what ye're sayin'.
					SAY Does bad guys like to ask about that stuff?
				ENDDO
			ENDIF
		ELIF ( <SRC.FAME.ANONYMOUS> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY Sorry, friend, I fail to follow what thou sayest.
					SAY I do not understand.
					SAY Forgive me--I do not quite follow.
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY Sorry, I don't follow.
					SAY Eh? I don't understand.
					SAY Huh?
				ENDDO
			ELSE
				DORAND 3
					SAY Ye ain't makin' sense, friend.
					SAY Huh?
					SAY Er, aye, whatever. Nice talking to ye.
				ENDDO
			ENDIF
		ELIF ( <SRC.FAME.KNOWN> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY Alas, I know nothing about that.
					SAY 'Twere it within my abilities to aid thee, I would.
					SAY I do not understand thee--doubtless not thy fault, of course.
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY Oh, no, I know nothing about that.
					SAY If I could, I would help thee.
					SAY 'Tis probably my fault, but I do not understand thee.
				ENDDO
			ELSE
				DORAND 3
					SAY I don' know anythin' 'bout that.
					SAY I'd help ye, ifn I knew.
					SAY Argh! I's so stupid. I ALMOST understood what ye were on about.
				ENDDO
			ENDIF
		ELIF ( <SRC.FAME.FAMOUS> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY 'Tis indeed a great honor to speak with thee!,
					SAY I fear that thy words go straight over my head, <SRC.SEX milord/milady>.
					SAY I shall have a tale to tell my children now! That I met thee, spoke with thee, and even failed to answer thy brilliant inquiries and subtle comments! They shall never believe me, alas.
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY This is such an honor, to talk to thee!,
					SAY Oh my, that went right over my head.
					SAY My friends will never believe I spoke to thee!
				ENDDO
			ELSE
				DORAND 3
					SAY Kin I kiss yer foot?
					SAY Wow, thee talks pretty.
					SAY I can't believe I met ye! This is the greatest day of my life!
				ENDDO
			ENDIF
		ENDIF
	ELIF ( <SRC.KARMA.GOODHEARTED> )
		IF ( <SRC.FAME.INFAMOUS> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY I know thy reputation, but surely thou wouldst not harm me for not knowing the answer?
					SAY Even if I knew, would I tell such as thee, scoundrel?
					SAY To think I have met thee, the infamous <SRC.NAME>.
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY Even if thou art a cruel and frightening person, thou wouldst not harm me for not knowing... wouldst thou?
					SAY Why would I tell scum like thee, if I knew?
					SAY I never thought I would meet a famous villain like thee!
				ENDDO
			ELSE
				DORAND 3
					SAY Ye're going to kill me, aren't ye. Well, I've lived a good life.
					SAY I ain't talking to scum like ye.
					SAY Where's the horns? I thought ye had horns growin' out of yer head.
				ENDDO
			ENDIF
		ELIF ( <SRC.FAME.OUTLAW> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY And if I knew, would it cause thee to reform thy ways?
					SAY How typical of a petty criminal to speak so nonsensically.
					SAY Poor <SRC.NAME>, thy life has led thee astray, and thou makest no sense now.
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY If I know, wouldst thou return to the path of the virtuous?
					SAY Smalltime criminals usually make no sense.
					SAY I almost feel sorry for thee, making so little sense.
				ENDDO
			ELSE
				DORAND 3
					SAY Ye oughter try to reform, ye know. Ifn the guards catch ye, yer bound for the gallows.
					SAY Ain't bad guys like ye educated these days? Ye don't talk half so well as me!,
					SAY Erm, what ye said made no sense.
				ENDDO
			ENDIF
		ELIF ( <SRC.FAME.ANONYMOUS> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY Terribly sorry, friend, but I fear I do not understand what thou askest.
					SAY I fail to grasp thy meaning, friend.
					SAY My apologies, but thy meaning escapes me.
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY I am very sorry, friend, but I don't understand thee.
					SAY I don't know what thou art talking about.
					SAY Excuse me, but what art thou saying?
				ENDDO
			ELSE
				DORAND 3
					SAY Huh?
					SAY Ye ain't talking sense there.
					SAY Sorry, I don't get yer drift.
				ENDDO
			ENDIF
		ELIF ( <SRC.FAME.KNOWN> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY 'Twould be a pleasure to assist thee, but alas, I cannot.
					SAY Unfortunately, <SRC.SEX sir/milady>, I know nothing of that.
					SAY I do not understand. Couldst thou clarify?
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY I would love to help thee, but I can't.
					SAY I know nothing of that, <SRC.SEX milord/milady>.
					SAY I do not understand... couldst thou explain further?
				ENDDO
			ELSE
				DORAND 3
					SAY I wanna help ye, but...
					SAY <SRC.SEX Sir/Ma'am>, I don't know, <SRC.SEX milord/milady>, but ifn I did, ye know, I'd be sure to tell one as <SRC.SEX noble/lovely> as ye are!,
					SAY Yer such a nice person. Sorry I canna help ye.
				ENDDO
			ENDIF
		ELIF ( <SRC.FAME.FAMOUS> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY Help me to understand thee, <SRC.SEX milord/milady>. One of thy caliber should not go unassisted.
					SAY Thou art as kind and wondrous as they say. Sadly, I cannot help thee on this matter as I know not whereof thou speakest.
					SAY If only we had more such as thee! I regret that I know nothing of what thou sayest.
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY I could not let a person like thee go by unassisted... help me understand what 'tis thou seekest.
					SAY I know nothing of that. But thou art as wonderful as thy reputation has it.
					SAY I'm sorry that I cannot help thee. If only we had more like thee!
				ENDDO
			ELSE
				DORAND 3
					SAY Why, someone oughter answer ye, thou bein' so nice an' all. Yes indeedy, someone out there somewheres must know. Ye just go on lookin', an' I know ye'll find the answer.
					SAY Thee's the best, the best we have. I wisht I could help ye.
					SAY I wish I understood ye... but the greats, ye know, talk a different language from the likes o' me.
				ENDDO
			ENDIF
		ENDIF
	ENDIF

	//SAY=Uhhh, sorry I have not a clue what you mean.

[EVENTS e_Human_ConvInit]

ON=@NPCSeeNewPlayer
	// When a new person comes into range do something (attack them?)
	if ( <DISTANCE> > 5 )	// too far away ?
		return 1	// do nothing for now
	ENDIF
	FACE
	IF ( <COMPLEXITY.HIGH> )
		IF ( <SRC.KARMA.WICKED> || <SRC.KARMA.BELLIGERANT> )
			DORAND 3
				SAY Prithee, be quiet.
				SAY Thou mayst wish to talk to me, but I do not wish to talk to thee.
				SAY What, thou dost wish to waste my time?
			ENDDO
		ELSE
			ACT=<SRC.UID>
			IF ( <SRC.FAME.ANONYMOUS> )
				DORAND 4
					SAY Thou wishest to speak with me?
					SAY Thou hast mine attention.
					SAY What is it thou wishest?
					SAY I am listening to thee.
				ENDDO
				SALUTE
			ELSE
				DORAND 4
					SAY Thou wishest to speak with me, <SRC.NAME>?
					SAY Thou hast mine attention, <SRC.NAME>.
					SAY What is it thou wishest, <SRC.NAME>?
					SAY I am listening to thee, <SRC.NAME>.
				ENDDO
				BOW
			ENDIF
			ACTION=107 // NPCACT_TALK_FOLLOW
		ENDIF
	ELIF ( <COMPLEXITY.MEDIUM> )
		IF ( <SRC.KARMA.WICKED> || <SRC.KARMA.BELLIGERANT> )
			DORAND 3
				SAY Be quiet, mine head hurts.
				SAY What if I do not wish to speak with thee?
				SAY Waste not my time.
			ENDDO
		ELSE
			ACT=<SRC.UID>
			IF ( <SRC.FAME.INFAMOUS> || <SRC.FAME.OUTLAW> )
				DORAND 4
					SAY Prithee, do not hurt me.
					SAY Hurt me not, and I will talk with thee.
					SAY Thou'rt a dangerous <SRC.SEX man/woman> to talk to.
					SAY Thou wishest to speak to me? Please, harm me not...
				ENDDO
			ELIF ( <SRC.FAME.ANONYMOUS> )
				DORAND 4
					SAY Thou wishest to speak with me?
					SAY Thou hast mine attention.
					SAY What is it thou wishest?
					SAY I am listening to thee.
				ENDDO
				SALUTE
			ELSE
				DORAND 4
					SAY Thou wishest to speak with me, <SRC.NAME>?
					SAY Thou hast mine attention, <SRC.NAME>.
					SAY What is it thou wishest, <SRC.NAME>?
					SAY I am listening to thee, <SRC.NAME>.
				ENDDO
				BOW
			ENDIF
			ACTION=107 // NPCACT_TALK_FOLLOW
		ENDIF
	ELSE ( <COMPLEXITY.LOW> )
		IF ( <SRC.KARMA.WICKED> || <SRC.KARMA.BELLIGERANT> )
			DORAND 3
				SAY Go 'way.
				SAY I ain't wantin' to talk to thee.
				SAY Thou'rt rude.
			ENDDO
		ELIF ( <SRC.KARMA.NEUTRAL> || <SRC.KARMA.KINDLY> || <SRC.KARMA.GOODHEARTED> )
			IF ( <SRC.FAME.INFAMOUS> || <SRC.FAME.OUTLAW> )
				DORAND 4
					SAY Don't hurt me.
					SAY What do thou want? I can't help.
					SAY Thou wants to talk to me? Umm...
					SAY Thou'rt talkin' to me?
				ENDDO
			ELIF ( <SRC.FAME.ANONYMOUS> )
				DORAND 4
					SAY Hmm?
					SAY Aye?
					SAY What's thee wantin'?
					SAY I'm listenin'.
				ENDDO
			ELSE
				DORAND 4
					SAY Yes, <SRC.NAME>?
					SAY Hmm? Oh! Tis thee, <SRC.NAME>!
					SAY Can I help thee?
					SAY <SRC.NAME>! Nice to see thee.
				ENDDO
			ENDIF
		ENDIF
	ENDIF

	RETURN 0	// don't come here again.

[EVENTS e_Human_Space]

ON=@PersonalSpace
	// Someone is standing on me.
	if ( <flags>& statf_war )	// I'm in war mode.
		return 1
	endif
	if ( <src.karma.wicked> || <src.karma.belligerant> )
		if ( <src.fame.infamous> || <src.fame.outlaw> )
			if ( <complexity.high> || <complexity.medium> )
				dorand 4
					SAY Here, get off me!
					SAY Back off, fool.
					SAY Back away. Thy smell overwhelms me.
					SAY I have no wish to look so closely on thine ugly face.
				ENDDO
			ELSE
				DORAND 4
					SAY Here, get off me!
					SAY Back off.
					SAY Back away!
					SAY Thou'rt too close!
				ENDDO
			ENDIF
		ELIF ( <SRC.FAME.ANONYMOUS> )
			IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
				DORAND 4
					SAY Dost thou try to provoke me?
					SAY Thy nearness offends me.
					SAY Stand not so close by me.
					SAY Stand back, I do not wish to be seen so near to thee.
				ENDDO
			ELSE
				DORAND 4
					SAY Back away from me!
					SAY Please, get away.
					SAY Stand away.
					SAY Get away. Thou'rt too close.
				ENDDO
			ENDIF
		ELSE
			IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
				DORAND 4
					SAY Who would have thought that such a great personage would smell so common.
					SAY I care not how important thou art, stand back from me.
					SAY Step back, or thou shalt need more than a fine name to protect thee.
					SAY Wherefore followest thou me so closely?
				ENDDO
			ELSE
				DORAND 4
					SAY Back up a bit!
					SAY Stand back from me.
					SAY Step back, or thy fame won't protect thee.
					SAY Get away from me, oh exalted one!
				ENDDO
			ENDIF
		ENDIF
	ELIF ( <SRC.KARMA.NEUTRAL> )
		IF ( <SRC.FAME.INFAMOUS> || <SRC.FAME.OUTLAW> )
			IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
				DORAND 4
					SAY Why standest thou so near to me?
					SAY Prithee, step back.
					SAY Wilt thou stand back a bit
					SAY I seek no trouble with thee, but please step back.
				ENDDO
			ELSE
				DORAND 4
					SAY Don't stand so near.
					SAY Hey, step back.
					SAY Wilt thou stand back a bit?
					SAY I don' want no trouble, but step back!
				ENDDO
			ENDIF
		ELIF ( <SRC.FAME.ANONYMOUS> )
			IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
				DORAND 5
					SAY Wherefore dost thou press me so closely?
					SAY Thou art nearer to me than I like.
					SAY Stand thou back.
					SAY Please back away a bit, <SRC.SEX milord/milady>.
					SAY I would ask thee to stand not so near to me.
				ENDDO
			ELSE
				DORAND 6
					SAY Don't stand so close.
					SAY Could thou back off a bit?
					SAY Thou'rt nearer to me than I like.
					SAY Stand back.
					SAY Please back away a bit.
					SAY I'd ask thee to stand away some.
				ENDDO
			ENDIF
		ELSE
			IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
				DORAND 5
					SAY An it please thee, wilt thou step back a bit.
					SAY Is it necessary to stand so near by?
					SAY Forgive me for asking, but please step back.
					SAY Please back away a bit, <SRC.SEX milord/milady>.
					SAY <SRC.SEX Sir/Madam>, thou standest too close.
				ENDDO
			ELSE
				DORAND 6
					SAY An it please thee, wilt thou step back a bit.
					SAY Is it necessary to stand so near by?
					SAY Forgive me for askin', but please step back.
					SAY Please back away a bit, <SRC.SEX milord/milady>.
					SAY Please give me some space, <SRC.SEX milord/milady>.
					SAY <SRC.SEX Sir/Madam>, thou stands too close.
				ENDDO
			ENDIF
		ENDIF
	ELSE
		IF ( <SRC.FAME.INFAMOUS> || <SRC.FAME.OUTLAW> )
			IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
				DORAND 4
					SAY Please, wilt thou stand off a little ways?
					SAY A bit more distance between thee and me, an it please thee.
					SAY Excuse me, but pray step back.
					SAY May I ask thee to step back a bit.
				ENDDO
			ELSE
				DORAND 4
					SAY Please, stand off a ways?
					SAY A bit more distance 'tween us would be better.
					SAY 'Scuse me, but step back.
					SAY Step back a bit.
				ENDDO
			ENDIF
		ELIF ( <SRC.FAME.ANONYMOUS> )
			IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
				DORAND 4
					SAY Friend, why standest thou so close?
					SAY Take a step back, if it please thee.
					SAY I would prefer if thou wouldst step back.
					SAY A bit more space between thee and me, I pray thee.
				ENDDO
			ELSE
				DORAND 4
					SAY Friend, why're thou so close?
					SAY Take a step back, if thou would.
					SAY I'd like thee to step back.
					SAY A bit more space 'tween us, please.
				ENDDO
			ENDIF
		ELSE
			IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
				DORAND 4
					SAY Forgive me, I seem to be standing too close to thee.
					SAY An it please thee, wilt thou step back a bit.
					SAY Forgive me <SRC.SEX sir/madam>, but wilt thou step back a pace or two.
					SAY Thou art standing very close to me.
				ENDDO
			ELSE
				DORAND 4
					SAY Forgive me, I'm too close to thee.
					SAY An it please thee, wilt thou step back a bit.
					SAY Pleas step back a pace or two.
					SAY Thou'rt standin' too close to me.
				ENDDO
			ENDIF
		ENDIF
	ENDIF

[EVENTS e_Human_Needs]
// Notes:  This is called whenever an item is given to an NPC

ON=@NPCAcceptItem
	// I was given an item i want
	SAY Thou art giving me <ACT.NAME>?
	IF ( <SRC.KARMA.WICKED> || <SRC.KARMA.BELLIGERANT> )
		IF ( <SRC.FAME.INFAMOUS> || <SRC.FAME.OUTLAW> )
			DORAND 6
				SAY Good! 'Tis what I need!
				SAY Good! 'I needed this!
				SAY Good! 'Tis what I need!
				SAY Thanks.
				SAY 'Tis appreciated.
				SAY 'Tis a welcome thing.
			ENDDO
		ELIF ( <SRC.FAME.ANONYMOUS> )
			DORAND 7
				SAY I will accept it from thee. Thanks.
				SAY I will make good use of it.
				SAY I will take it from thee. Thanks.
				SAY I will make use of it.
				SAY I'll be glad to take it from thee. Thanks.
				SAY I'll make good use of it.
				SAY I've been needing it.
			ENDDO
		ELSE
			DORAND 7
				SAY I'm happy that thou chose to do without.
				SAY This will certainly help me. Thanks.
				SAY I appreciate it.
				SAY I'm happy that thou chose to give it to me.
				SAY This will certainly help. Thank thee.
				SAY I'm happy that thou chose to do this.
				SAY It will certainly help me. Thanks.
			ENDDO
		ENDIF
	ELIF ( <SRC.KARMA.NEUTRAL> )
		IF ( <SRC.FAME.INFAMOUS> || <SRC.FAME.OUTLAW> )
			DORAND 3
				SAY Thank thee.
				SAY I accept.
				SAY I will take it, then.
			ENDDO
		ELSE
			DORAND 3
				SAY Tis very generous of thee.
				SAY Tis generous of thee.
				SAY I shall accept with pleasure!
				SAY I shall accept with pleasure.
				SAY Thank thee!
			ENDDO
		ELSE
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY Thou art most kind <SRC.SEX good sir/good lady>!
					SAY I shall be happy to take it!  Thank thee!
					SAY May a light follow thee in the dark!
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM>)
				DORAND 3
					SAY Thou art a kind <SRC.SEX man/lady>!
					SAY I shall be happy to take it!  Thank thee!
					SAY May thy paths be smooth!
				ENDDO
			ELSE
				DORAND 3
					SAY Thou art kind!
					SAY I shall take it gladly! Thanks!
					SAY Thank thee! And be safe!
				ENDDO
			ENDIF
		ENDIF
	ELSE
		IF ( <SRC.FAME.INFAMOUS> || <SRC.FAME.OUTLAW> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY Why, I thank thee!
					SAY 'Tis good to see thee doing right.
					SAY I knew that thy generosity would show through!
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM>)
				DORAND 3
					SAY Why, I thank thee!
					SAY 'Tis good to see thee doing aright.
					SAY I knew that thy generosity would finally come through!
				ENDDO
			ELSE
				DORAND 3
					SAY Why, I thank thee!
					SAY About time thou did something good.
					SAY I knew that thy goodness would show itself!
				ENDDO
			ENDIF
		ELIF ( <SRC.FAME.ANONYMOUS> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY 'Tis gracious of thee!
					SAY I humbly accept. Thank thee.
					SAY Thank thee, kind <SRC.SEX sir/lady>!
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM>)
				DORAND 3
					SAY 'Tis gracious of thee!
					SAY I humbly accept. Thank thee, kind <SRC.SEX sir/lady>.
					SAY Thank thee, <SRC.SEX milord/milady>!
				ENDDO
			ELSE
				DORAND 3
					SAY 'Tis gracious of thee!
					SAY I accept! Thank thee.
					SAY Thank thee, kind <SRC.SEX sir/lady>!
				ENDDO
			ENDIF
		ELSE
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY This from <SRC.NAME>? Oh thank thee!
					SAY Thank thee <SRC.NAME>! Thank thee!
					SAY 'Tis greatly appreciated!
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM>)
				DORAND 3
					SAY This from <SRC.NAME>? Thank thee!
					SAY Thank thee <SRC.NAME>! Thank thee very much!
					SAY 'Tis greatly appreciated!
				ENDDO
			ELSE
				DORAND 3
					SAY This from thee? Oh thank thee!
					SAY Thank thee <SRC.NAME>! Thank thee!
					SAY 'Tis very welcome!
				ENDDO
			ENDIF
		ENDIF
	ENDIF

ON=@NPCHearNeed
	IF ( <SRC.KARMA.WICKED> || <SRC.KARMA.BELLIGERANT> )
		IF ( <SRC.FAME.INFAMOUS> || <SRC.FAME.OUTLAW> )
			IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY I heard thee say <needname>! I need some!
					SAY Thou did say <needname>! I could really use some!
					SAY I want some <needname>!
				ENDDO
			ELSE
				DORAND 3
					SAY <needname>? I need some!
					SAY Thou said <needname>! Get me some!
					SAY I want some <needname>!
				ENDDO
			ENDIF
		ELIF ( <SRC.FAME.ANONYMOUS> )
			IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY 'Twould be helpful if I could get <needname> myself.
					SAY If thou dost have <needname>, I'd be happy to take some from thee.
					SAY Could I have some? <needname>, I mean.
				ENDDO
			ELSE
				DORAND 3
					SAY 'Twould be nice to get <needname> for me.
					SAY If thou dost have <needname>, I'd like some.
					SAY Could I have some? <needname>, I mean.
				ENDDO
			ENDIF
		ELSE
			IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY If thou couldst bring thy great person to get ME some<needname>, twould help!
					SAY Not that I expect it, but I could really use help getting <needname>.
					SAY If thou couldst find some <needname> for me, 'twould make my life that much better. Not that a great one like thee should care...
				ENDDO
			ELSE
				DORAND 3
					SAY If thou couldst stoop to get ME some<needname>, twould help!
					SAY I could really use help getting <needname>.
					SAY If thou could find some <needname>, 'twould be great. But only if thou dost have time.
				ENDDO
			ENDIF
		ENDIF
	ELIF ( <SRC.KARMA.NEUTRAL> )
		IF ( <SRC.FAME.INFAMOUS> || <SRC.FAME.OUTLAW> )
			IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY I could use some of thy stolen <needname>.
					SAY If thou did... happen upon some <needname>, I could use some.
					SAY I could use some <needname>. However thou might obtain it.
				ENDDO
			ELSE
				DORAND 3
					SAY I could use some of thy ill-gotten <needname>.
					SAY If thou did... find some <needname>, I could use it.
					SAY I could use some <needname>. However thou might get it.
				ENDDO
			ENDIF
		ELIF ( <SRC.FAME.ANONYMOUS> )
			IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY If thou art given any <needname>, bring it here. I could use some.
					SAY If thou dost have <needname>, I'd be willing to take it from thee.
					SAY Just a little <needname> is all I need!
				ENDDO
			ELSE
				DORAND 3
					SAY If thou art given any <needname>, bring it here. I could use some.
					SAY If thou have any <needname>, I'd be willing to take some.
					SAY I need just a little <needname>!
				ENDDO
			ENDIF
		ELSE
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY If thou couldst find it in thy heart to get ME some <needname>, twould be most wonderful!
					SAY I would appreciate it greatly if thou couldst get me <needname>. I could really use some.
					SAY If thou couldst find some <needname> for me, 'twould make my life that much better.
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY If thou couldst get ME some <needname>, twould be most wonderful!
					SAY I would appreciate it greatly if thou couldst get me <needname>. I could really use some.
					SAY If thou couldst find some <needname> for me, 'twould be easier on me.
				ENDDO
			ELSE
				DORAND 3
					SAY If thou couldst get ME some <needname>, twould be great!
					SAY I'd really appreciate it if thou got me <needname>. I could use some.
					SAY If thou couldst find <needname> for me, 'twould be helpful!
				ENDDO
			ENDIF
		ENDIF
	ELSE
		IF ( <SRC.FAME.INFAMOUS> || <SRC.FAME.OUTLAW> )
			IF ( <COMPLEXITY.HIGH> )
				DORAND 3
					SAY Please, <SRC.SEX sir/madam>, if thou art able, I could really make use of <needname>.
					SAY I would be grateful if thou wouldst help me acquire some <needname>.
					SAY If thou couldst bring me some <needname>, I would be in thy debt.
				ENDDO
			ELIF ( <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY Please, <SRC.SEX sir/madam>, I could really make use of <needname>, if thou art able.
					SAY I would be grateful if thou wouldst help me get some more <needname>.
					SAY If thou couldst bring me some <needname>, I would be in thy debt.
				ENDDO
			ELSE
				DORAND 3
					SAY Please, <SRC.SEX sir/madam>, if thou'rt able, I could make use of <needname>.
					SAY I'd be grateful to get some more <needname>.
					SAY If thou couldst bring me some <needname>, I'd be in thy debt.
				ENDDO
			ENDIF
		ELIF ( <SRC.FAME.ANONYMOUS> )
			IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY I would love to have some <needname>!
					SAY 'Twould be nice to get more <needname>
					SAY <needname>? I could use some more.
				ENDDO
			ELSE
				DORAND 3
					SAY I really need some <needname>!
					SAY 'Twould be nice to get more <needname>
					SAY <needname>? I could always use more.
				ENDDO
			ENDIF
		ELSE
			IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
				DORAND 3
					SAY Please, <SRC.SEX good sir/good lady>, I could use some more <needname>.
					SAY I could really do with some more <needname>. I could reward thee... maybe.
					SAY If thou dost find the time, more <needname> would do wonders for me.
				ENDDO
			ELSE
				DORAND 3
					SAY I could really use some more <needname>, <SRC.SEX milord/milady>.
					SAY I could really do with some more <needname>.
					SAY If thou dost find the time, more <needname> would do wonders for me.
				ENDDO
			ENDIF
		ENDIF
	ENDIF
	return 1

[EVENTS e_Human_Scavenge]

ON=@npcSeeWantItem
	IF ( <KARMA.WICKED> || ( <KARMA.BELLIGERANT> )
		IF ( <COMPLEXITY.HIGH> )
			DORAND 6
				SAY Mine!
				SAY I'll take that!
				SAY Keep away from this! It's mine!
				SAY Ah ha! It's mine!
				SAY Come here, my pretty.
				SAY Well here's something!
			ENDDO
		ELIF ( <COMPLEXITY.MEDIUM> )
			DORAND 6
				SAY Well, well, what have we here?
				SAY Ah, this will be useful.
				SAY Excellent. 'Tis my lucky day.
				SAY I've been needing one of these.
				SAY This will come in handy indeed.
				SAY Well, look what I found!
			ENDDO
		ELSE
			DORAND 5
				SAY Why look at that!
				SAY Ah, most interesting.
				SAY This may be of some use.
				SAY And what's this then?
				SAY A most fortunate discovery!
			ENDDO
		ENDIF
	ELIF ( <KARMA.NEUTRAL> )
		IF ( <COMPLEXITY.HIGH> )
			DORAND 6
				SAY Mine!
				SAY I'll take that!
				SAY Keep away from that! It's mine!
				SAY Ah ha! I've got it now.
				SAY Come here, my pretty.
				SAY Here's something!
			ENDDO
		ELIF ( <COMPLEXITY.MEDIUM> )
			DORAND 6
				SAY Well, well, what have we here?
				SAY Ah, this will be useful.
				SAY Excellent. 'Tis my lucky day.
				SAY I've been needing one of these.
				SAY This will come in handy indeed.
				SAY Hmmm! Look what I found!
			ENDDO
		ELSE
			DORAND 5
				SAY Why look at that!
				SAY Ah, most interesting.
				SAY This may be of some use.
				SAY And what's this then?
				SAY A most fortunate discovery!
			ENDDO
		ENDIF
	ELSE
		IF ( <COMPLEXITY.HIGH> )
			DORAND 5
				SAY Mine!
				SAY I'll take that!
				SAY Ah ha!
				SAY Come here, my pretty.
				SAY At last!
			ENDDO
		ELIF ( <COMPLEXITY.MEDIUM> )
			DORAND 6
				SAY Well, well, what have we here?
				SAY Ah, this will be useful.
				SAY Excellent. This is mine, now.
				SAY This'll help.
				SAY This'll come in handy.
				SAY Huh! Look what I found!
			ENDDO
		ELSE
			DORAND 5
				SAY Why look at that!
				SAY Ah. Good.
				SAY This'll be of use.
				SAY And what's this then?
				SAY This is useful!
			ENDDO
		ENDIF
	ENDIF
	return 1

[EVENTS e_Human_Refuse]

ON=@NPCRefuseItem
	// I got something I don't want.
	SAY Thou art giving me <argo.name>?
	IF ( <SRC.KARMA.WICKED> || <SRC.KARMA.BELLIGERANT> )
		IF ( <SRC.FAME.INFAMOUS> || <SRC.FAME.OUTLAW> )
			DORAND 3
				SAY No thanks!
				SAY Thanks, but no.
				SAY I don't want that!
			ENDDO
		ELIF ( <SRC.FAME.ANONYMOUS> )
			DORAND 3
				SAY I don't want it.
				SAY I can't use that!
				SAY Don't give me that!
			ENDDO
		ELSE
			DORAND 3
				SAY I really don't need thy cast-offs!
				SAY Thy generosity is duly noted. Thanks, but no thanks.
				SAY I don't need that.
				ENDDO
			ENDDO
		ENDIF
	ELIF ( <SRC.KARMA.NEUTRAL> )
		IF ( <SRC.FAME.INFAMOUS> || <SRC.FAME.OUTLAW> )
			DORAND 3
				SAY Thank thee. Don't need any.
				SAY I don't want it. Sorry.
				SAY I don't have a use for it. Thanks, though.
			ENDDO
		ELIF ( <SRC.FAME.ANONYMOUS> )
			DORAND 3
				SAY Tis very generous of thee, but I don't need it.
				SAY I can't take it. Sorry.
				SAY Thank thee, but I don't want it.
			ENDDO
		ELSE
			DORAND 3
				SAY Thou art most kind <SRC.SEX good sir/good lady>, but it isn't anything that I need.
				SAY Please, keep it. I don't want it.
				SAY I really don't need it.
			ENDDO
		ENDIF
	ELSE
		IF ( <SRC.FAME.INFAMOUS> || <SRC.FAME.OUTLAW> )
			DORAND 3
				SAY Keep it! I have no need for it.
				SAY 'Tis a shame I have no use for it. Keep it.
				SAY If only I needed it! I don't.
			ENDDO
		ELIF ( <SRC.FAME.ANONYMOUS> )
			DORAND 3
				SAY 'Tis kind of thee, but I have no use for it.
				SAY Thank thee, but no.
				SAY Thank thee, kind <SRC.SEX sir/lady>, but no.
			ENDDO
		ELSE
			DORAND 3
				SAY I would like to accept thy gift, but I cannot. Thank thee.
				SAY Thank thee <SRC.NAME>! But keep it. I have no use for it.
				SAY 'Tis greatly appreciated, but unnecessary. I don't want it.
			ENDDO
		ENDIF
	ENDIF
	return 1

[EOF]