//****************************************************************************
//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.
//****************************************************************************
// FILE LAST UPDATED: Friday, April 28, 2000

// Purpose: Britannia Bowyer Script
// Notes:  This is used for general information pertaining to all Britannian Bowyers
// Current Keyword List: job,bow,arrow,archer,cross,stick,feather,bolt,occupation,what*do*do,profession
//
//
[SPEECH jobBowyer]
ON=bulk order
VAR.BULKORDERVENDORID=<UID>
SRC.ENCOMENDA 8

ON=*job*
ON=*work*
ON=*what*do*do*
ON=*profession*
ON=*occupation*
	IF ( <SRC.KARMA.WICKED> || <SRC.KARMA.BELLIGERANT> )
		IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
			DORAND 2
				SAY I'm a bowyer.
				SAY I make bows and arrows.
			ENDDO
		ELSE
			DORAND 2
				SAY I'm a bowyer.
				SAY I make bows and arrows.
			ENDDO
		ENDIF
	ELIF ( <SRC.KARMA.NEUTRAL> )
		IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
			DORAND 2
				SAY I'm a bowyer by trade.
				SAY I make bows and arrows.
			ENDDO
		ELSE
			DORAND 2
				SAY I'm a bowyer by trade.
				SAY I make bows and arrows.
			ENDDO
		ENDIF
	ELSE
		IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
			DORAND 2
				SAY I'm a bowyer by trade.
				SAY I make fine bows and arrows.
			ENDDO
		ELSE
			DORAND 2
				SAY I'm a bowyer by trade.
				SAY I make fine bows and arrows.
			ENDDO
		ENDIF
	ENDIF
ON=*bow*
	IF ( <SRC.KARMA.WICKED> || <SRC.KARMA.BELLIGERANT> )
		IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
			DORAND 2
				SAY I sell longbows and crossbows.
				SAY Dost thou want to buy a bow?
			ENDDO
		ELSE
			DORAND 2
				SAY I sell longbows and crossbows.
				SAY Dost thou want to buy a bow?
			ENDDO
		ENDIF
	ELIF ( <SRC.KARMA.NEUTRAL> )
		IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
			DORAND 2
				SAY I sell both longbows and crossbows.
				SAY Crossbows are tricky, but thou dost need a good eye and better wood to craft a longbow.
			ENDDO
		ELSE
			DORAND 2
				SAY I sell both longbows and crossbows.
				SAY Crossbows are tricky, but thou dost need a good eye and better wood to craft a longbow.
			ENDDO
		ENDIF
	ELSE
		IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
			DORAND 2
				SAY Many satisfied customers have bought my longbows and crossbows.
				SAY Any fool can put a string on a stick, but a good bow is a work of art.
			ENDDO
		ELSE
			DORAND 2
				SAY Many satisfied customers have bought my longbows and crossbows.
				SAY Any fool can put a string on a stick, but a good bow is a work of art.
			ENDDO
		ENDIF
	ENDIF
ON=*arrow*
	IF ( <SRC.KARMA.WICKED> || <SRC.KARMA.BELLIGERANT> )
		IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
			DORAND 2
				SAY I sell arrows and crossbow bolts.
				SAY I can supply thee with arrows.
			ENDDO
		ELSE
			DORAND 2
				SAY I sell arrows and crossbow bolts.
				SAY I can supply thee with arrows.
			ENDDO
		ENDIF
	ELIF ( <SRC.KARMA.NEUTRAL> )
		IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
			DORAND 2
				SAY I sell arrows and crossbow bolts.
				SAY Mine arrows fly true.
			ENDDO
		ELSE
			DORAND 2
				SAY I sell arrows and crossbow bolts.
				SAY Mine arrows fly true.
			ENDDO
		ENDIF
	ELSE
		IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
			DORAND 2
				SAY The finest archers in the land use mine arrows.
				SAY An arrow is just feathers on a shaft, but in flight it becomes a thing of beauty.
			ENDDO
		ELSE
			DORAND 2
				SAY The finest archers in the land use mine arrows.
				SAY An arrow is just feathers on a shaft, but in flight it becomes a thing of beauty.
			ENDDO
		ENDIF
	ENDIF
ON=*archery*
	IF ( <SRC.KARMA.WICKED> || <SRC.KARMA.BELLIGERANT> )
		IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
			DORAND 2
				SAY I'm not an archery coach. I just sell bows.
				SAY If thou wish to be an archer, thou wilt need a bow.
			ENDDO
		ELSE
			DORAND 2
				SAY I'm not an archery coach. I just sell bows.
				SAY If thou wish to be an archer, thou wilt need a bow.
			ENDDO
		ENDIF
	ELIF ( <SRC.KARMA.NEUTRAL> )
		IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
			DORAND 2
				SAY Archery is an art which requires fine equipment.
				SAY My bows and arrows will certainly improve thine archery.
			ENDDO
		ELSE
			DORAND 2
				SAY Archery is an art which requires fine equipment.
				SAY My bows and arrows will certainly improve thine archery.
			ENDDO
		ENDIF
	ELSE
		IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
			DORAND 2
				SAY I'm sure an archer of thy skill wants only the finest weaponry.
				SAY Archery is as much good equipment as it is good skill.
			ENDDO
		ELSE
			DORAND 2
				SAY I'm sure an archer of thy skill wants only the finest weaponry.
				SAY Archery is as much good equipment as it is good skill.
			ENDDO
		ENDIF
	ENDIF
ON=*cross*
	IF ( <SRC.KARMA.WICKED> || <SRC.KARMA.BELLIGERANT> )
		IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
			DORAND 2
				SAY I make and sell crossbows.
				SAY I have small and large crossbows.
			ENDDO
		ELSE
			DORAND 2
				SAY I make and sell crossbows.
				SAY I have small and large crossbows.
			ENDDO
		ENDIF
	ELIF ( <SRC.KARMA.NEUTRAL> )
		IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
			DORAND 2
				SAY My crossbows are well known.
				SAY My small crossbows are accurate and easy to use, and my large crossbows are powerful.
			ENDDO
		ELSE
			DORAND 2
				SAY My crossbows are well known.
				SAY My small crossbows are accurate and easy to use, and my large crossbows
			ENDDO
		ENDIF
	ELSE
		IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
			DORAND 2
				SAY The most noble knights in the land all know my crossbows.
				SAY Small crossbows are best for hunting and self defense, large crossbows are devastating in wartime.
			ENDDO
		ELSE
			DORAND 2
				SAY The most noble knights in the land all know my crossbows.
				SAY Small crossbows are best for hunting and self defense, large crossbows are devastating in wartime.
			ENDDO
		ENDIF
	ENDIF
ON=*stick*
ON=*shaft*
	IF ( <SRC.KARMA.WICKED> || <SRC.KARMA.BELLIGERANT> )
		IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
			DORAND 2
				SAY If thou wouldst rather make thine own, I can provide straight boards for bows or shafts for arrows.
				SAY I can sell thee boards, shafts and feathers suitable for making bows and arrows.
			ENDDO
		ELSE
			DORAND 2
				SAY If thou wouldst rather make thine own, I can provide straight boards for bows or shafts for arrows.
				SAY I can sell thee boards, shafts and feathers suitable for making bows and arrows.
			ENDDO
		ENDIF
	ELIF ( <SRC.KARMA.NEUTRAL> )
		IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
			DORAND 2
				SAY If thou prefer, I can sell thee good wood to make thine own bows or arrows.
				SAY I'll sell thee a bow, or a fine straight board to make thine own.
			ENDDO
		ELSE
			DORAND 2
				SAY If thou prefer, I can sell thee good wood to make thine own bows or arrows.
				SAY I'll sell thee a bow, or a fine straight board to make thine own.
			ENDDO
		ENDIF
	ELSE
		IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
			DORAND 2
				SAY If thou dost prefer to make thine own, I can sell thee excellent shafts and feathers.
				SAY I can sell thee wood if thou wishest to make thine own bows and arrows.
			ENDDO
		ELSE
			DORAND 2
				SAY If thou dost prefer to make thine own, I can sell thee excellent shafts and feathers.
				SAY I can sell thee wood if thou wishest to make thine own bows and arrows.
			ENDDO
		ENDIF
	ENDIF
ON=*feathers*
ON=*fletching*
	IF ( <SRC.KARMA.WICKED> || <SRC.KARMA.BELLIGERANT> )
		IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
			DORAND 2
				SAY I can sell thee feathers for arrows.
				SAY I sell feathers suitable to fletch an arrow.
			ENDDO
		ELSE
			DORAND 2
				SAY I can sell thee feathers for arrows.
				SAY I sell feathers suitable to fletch an arrow.
			ENDDO
		ENDIF
	ELIF ( <SRC.KARMA.NEUTRAL> )
		IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
			DORAND 2
				SAY Arrows must be fletched with the proper quality of feather.
				SAY I could sell thee feathers with which to make thine own arrows.
			ENDDO
		ELSE
			DORAND 2
				SAY Arrows must be fletched with the proper quality of feather.
				SAY I could sell thee feathers with which to make thine own arrows. 
			ENDDO
		ENDIF
	ELSE
		IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
			DORAND 2
				SAY A quality arrow must be fletched with the finest feathers.
				SAY I have a personally selected stock of feathers which will make fine arrows.
			ENDDO
		ELSE
			DORAND 2
				SAY A quality arrow must be fletched with the finest feathers.
				SAY I have a personally selected stock of feathers which will make fine arrows.
			ENDDO
		ENDIF
	ENDIF
ON=*bolt*
	IF ( <SRC.KARMA.WICKED> || <SRC.KARMA.BELLIGERANT> )
		IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
			DORAND 2
				SAY I can sell thee bolts for thy crossbow.
				SAY I sell both bolts and the crossbows with which to use them effectively.
			ENDDO
		ELSE
			DORAND 2
				SAY I can sell thee bolts for thy crossbow.
				SAY I sell both bolts and the crossbows with which to use them effectively.
			ENDDO
		ENDIF
	ELIF ( <SRC.KARMA.NEUTRAL> )
		IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
			DORAND 2
				SAY My crossbow bolts never shatter. Unless, of course, thou dost happen to step on them.
				SAY A precision instrument like a crossbow needs the finest quality bolts.
			ENDDO
		ELSE
			DORAND 2
				SAY My crossbow bolts never shatter. Unless, of course, thou dost happen to step on them.
				SAY A precision instrument like a crossbow needs the finest quality bolts.
			ENDDO
		ENDIF
	ELSE
		IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
			DORAND 2
				SAY Without good bolts, the finest crossbow is but an expensive club with a prod attached.
				SAY My crossbow bolts are unconditionally guaranteed! Unless thou dost lose them.
			ENDDO
		ELSE
			DORAND 2
				SAY Without good bolts, the finest crossbow is but an expensive club with a prod attached.
				SAY My crossbow bolts are unconditionally guaranteed! Unless thou dost lose them.
			ENDDO
		ENDIF

	ENDIF

[COMMENT SPEECH jobBowyer]
//BOWYER
DEFAULT=I do not understand thee.
ON=BUY
BUY
ON=SELL
SELL
ON=Hail
ON=Hi
ON=Hello
ON=Greet
SAY=Hail, friend! How art thou?
ON=job
SAY=I am a bowyer of exceptional skill. Just give me any variety of bow, and you'll see my arrows fly!
ON=bye
ON=farewell
ON=goodbye
	SAY=Farewell.
	BYE
	return 1
ON=Archery
SAY=If skilled in archery, you may pick off enemies or dangerous creatures from a safe distance.
ON=arrow
SAY=You may make arrows with feathers and sticks.  Of, if that's too advanced for you, just buy some from a merchant.
ON=bolt
SAY=Bolts are used in crossbows not long bows, any bowyer knows that.
ON=crossbow
SAY=A crossbow may be unwieldy, but will definitely ruin your target's day.
ON=bow
SAY=Bows travel well and are perfect for ranged combat.
ON=feather
SAY=Feathers are used in the making of arrows and may be acquired from some of our fine feathered friends.
ON=fletching
SAY=Fletching is a fine skill for a bowyer. The more advanced the skill the better the arrow made.
ON=shaft
ON=stick
SAY=Remember to use straight shafts when making arrows.
//RANDOM=I shot an arrow in the air, and where it went I do not care...

[EOF]
