//****************************************************************************
//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 Scribe Script
// Notes:  This is used for general information pertaining to all Britannian Scribes
// Current Keyword List:
//	job, what*do*do, profession, occupation, ink, scroll, oppressor, scribe
//
[SPEECH jobScribe]
ON=bulk order
IF !(<SRC.FINDID.i_encomenda_timer>)
IF !(<SRC.FINDID.i_encomenda_deed>)
SERV.NEWITEM i_encomenda_limite,1,<src>
NEW.TIMER <EVAL 60*60*24*3>
SERV.NEWITEM i_encomenda_deed
NEW.BOUNCE
NEW.COLOR=0481
NEW.LINK <UID>
NEW.ATTR ATTR_MOVE_NEVER|ATTR_NEWBIE
IF (<SRC.INSCRIPTION> < 65.0)
NEW.NAME=Encomenda de Inscription
LOCAL.ITEM <ENCOMENDAITEMSELECT 5 1>
NEW.MORE1 <LOCAL.ITEM>
NEW.MORE2 <EVAL {25 40}>
OBJ=<NEW>
CALL ENCOMENDACOLORSELECT <LOCAL.ITEM>
OBJ.MOREX=<LOCAL.COLOR>
OBJ.MOREY=<EVAL {1 2}>
ELSE
NEW.NAME=Encomenda Grande
LOCAL.ITEM <ENCOMENDAITEMSELECT 5 2>
NEW.MORE1 <LOCAL.ITEM>
NEW.MORE2 <EVAL {1 6}>
OBJ=<NEW>
CALL ENCOMENDACOLORSELECT <LOCAL.ITEM>
OBJ.MOREX=<LOCAL.COLOR>
OBJ.MOREY=<EVAL {2 3}>
ENDIF
ENDIF
ELIF (<SRC.FINDID.i_encomenda_timer>)
SAY Voce ainda tem que esperar <EVAL <SRC.FINDID.i_encomenda_timer.TIMER>/(60*60)> horas para poder fazer outra encomenda.
ENDIF

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 scribe.
				SAY I'm a humble and poor scribe.
			ENDDO
		ELSE
			DORAND 2
				SAY I'm a scribe.
				SAY I'm an 'umble and poor scribe.
			ENDDO
		ENDIF
	ELIF ( <SRC.KARMA.NEUTRAL> )
		IF ( <COMPLEXITY.HIGH> )
			DORAND 2
				SAY I'm a humble scrivener <SRC.SEX sir/madam>.
				SAY I copy documents, and sometimes scribe the words of individuals.
			ENDDO
		ELIF ( <COMPLEXITY.MEDIUM>)
			DORAND 2
				SAY I'm a lowly scrivner <SRC.SEX sir/madam>.
				SAY I copy documents, and sometimes write speeches.
			ENDDO
		ELSE
			DORAND 2
				SAY I'm an 'umble scrivner <SRC.SEX sir/madam>.
				SAY I copy documents, and sometimes write speeches.
			ENDDO
		ENDIF
	ELSE
		IF ( <COMPLEXITY.HIGH> )
			DORAND 2
				SAY I am a scribe.
				SAY I'm a humble scrivener <SRC.SEX sir/madam>.
			ENDDO
		ELIF ( <COMPLEXITY.MEDIUM>)
			DORAND 2
				SAY I am a scribe.
				SAY I'm a lowly scrivner <SRC.SEX sir/madam>.
			ENDDO
		ELSE
			DORAND 2
				SAY I'm a scribe.
				SAY I'm an 'umble scrivner <SRC.SEX sir/madam>.
			ENDDO
		ENDIF
	ENDIF
ON=*ink*
ON=*scroll*
	IF ( <SRC.KARMA.WICKED> || <SRC.KARMA.BELLIGERANT> )
		SAY If thou hast need of ink or blank scrolls, I can sell thee some.
	ELIF ( <SRC.KARMA.NEUTRAL> )
		IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
			SAY I have more ink and blank scrolls than I need just now, if thou wouldst like to buy some.
		ELSE
			SAY I've more ink and blank scrolls than I need just now, if thou would like to buy some.
		ENDIF
	ELSE
		SAY I can supply thee with ink and blank scrolls of the finest quality.
	ENDIF
ON=*oppressor*
	IF ( <SRC.KARMA.WICKED> || <SRC.KARMA.BELLIGERANT> )
		IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
			SAY Thou art obviously not intelligent enough to understand elementary politics.
		ELSE
			SAY Thou'rt obviously not intelligent enough to understand elementary politics.
		ENDIF
	ELIF ( <SRC.KARMA.NEUTRAL> )
		SAY Hast thou been talking to those other scribes?
	ELSE
		SAY Thou hast been talking to those other scribes, haven't thou?
	ENDIF
ON=*scribe*
	IF ( <SRC.KARMA.WICKED> || <SRC.KARMA.BELLIGERANT> )
		DORAND 2
			SAY Yes, I'm a scribe, and if thou will excuse me, I'm very busy.
			SAY Scribe, ha! Drudge is more like it. Or slave. But not for long!
		ENDDO
	ELIF ( <SRC.KARMA.NEUTRAL> )
		DORAND 2
			SAY I see to the official correspondence of nobles and officials.
			SAY I provide quick and reliable copying and transcription.
		ENDDO
	ELSE
		DORAND 2
			SAY Of course, my duties go far beyond simple copying.
			SAY A simple ink-stained wretch, that's me. But I jest.
		ENDDO
	ENDIF

[COMMENT SPEECH jobSCRIBE]
//SCRIBE
DEFAULT=I do not understand thee.
ON=BUY
BUY
ON=SELL
SELL
ON=Hail
ON=Hi
ON=Greet
ON=Hello
SAY=Greetings.
ON=Job
ON=What do you do
SAY=I record history and tales of adventure.
ON=Bye
ON=Goodbye
ON=Farewell
	SAY=Goodbye.
	BYE
	return 1
ON=INK
SAY='Tis the finest ink in all the land!
ON=KNOWLEDGE
SAY=Knowledge is the spring from which civilization flows.
ON=OPPRESSOR
SAY=Oppressor?  'Tis those damn scholars...
ON=SCHOLAR
SAY=Arrogant fools. They believe they are the only ones that can think.
ON=SCRIBE
SAY=Without scribes all civilization would fail!  We are the cradle of all learning!
ON=SCROLL
SAY=Damn scholars want us to copy scroll after scroll after...
ON=WISDOM
SAY=Sometimes I wonder if there is any wisdom in the world left.
//RANDOM=All I want is ten minutes with any damn scholar in the Jhelom arena...

[EOF]

