//****************************************************************************
//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
[SPEECH jobBANKER]
ON=*job*
ON=*work*
ON=*what*do*do*
ON=*profession*
ON=*occupation*
	IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
		DORAND 3
			SAY I am a Banker, <SRC.SEX milord/milady>.
			SAY I handle the money transactions for <REGION.NAME>, <SRC.SEX milord/milady>.
			SAY I am the local banker.
		ENDDO
	ELSE
		DORAND 3
			SAY I'm the Banker here, <SRC.SEX milord/milady>.
			SAY I handle the money for <REGION.NAME>, <SRC.SEX milord/milady>.
			SAY I'm the local banker.
		ENDDO
	ENDIF

ON=*Balance*
	SAY=You have <SRC.BANKBALANCE> gold in your account.

ON=*Bank*
ON=Bank
ON=DEPOSIT
ON=GOLD
ON=MONEY
ON=SILVER
ON=TRANSACTION

	IF ( <SRC.REGION.UID> != <REGION.UID>)||(<DISTANCE> > 10)
			DORAND 3
			SAYU <SRC.NAME>, thou'rt quite far from the bank. I would ask thee to come closer.
			SAYU <SRC.NAME>, please do not make me carry this... I do charge fees for these type of things to some.
			SAYU <SRC.NAME>, I wish thou wouldst come a bit closer to the bank when asking for thine bank box.
			ENDDO
			RETURN 1
	ENDIF

//			VAR.OLDACT=<eval <SRC.ACT>>
//			SRC.ACT=<UID>
//			VAR.CURRENTBANK=<eval <TAG.<SRC.UID>>>
//			VAR.CURRENTBANK=<eval <VAR.CURRENTBANK> + 1>
//			SRC.TRYP 0 SRC.ACT.TAG.<SRC.UID> = <VAR.CURRENTBANK>
//
//			IF (<eval <VAR.CURRENTBANK>> < 2)
//			DORAND 3
//				SAYU <SRC.NAME>, thou'rt quite far from the bank. I would ask thee to come closer next time.
//				SAYU <SRC.NAME>, please do not make me carry this... I do charge fees for these type of things to some.
//				SAYU <SRC.NAME>, I wish thou wouldst come a bit closer to the bank when asking for thine bank box.
//			ENDDO
//			ELSEIF (<eval <VAR.CURRENTBANK>> == 2)
//				SAYU <SRC.NAME>, this is the second time ye've done asked for me to carry thine bank box... I shall charge a fee next time.
//			ELSEIF (<eval <VAR.CURRENTBANK>> > 2)
//
//				SRC.TAG.RPRATING=<eval <SRC.TAG.RPRATING> + (-50)>
//
//				VAR.GOLDLOST=<eval <DISTANCE>*<eval <VAR.CURRENTBANK> * 4>>
//
//				IF <eval <VAR.GOLDLOST>> > 1000
//					VAR.GOLDLOST=1000
//				ENDIF
//			SRC.CONSUMEBANK <eval <VAR.GOLDLOST>> i_gold
//
//			IF (<SRC.FINDID.i_gold> == 0)
//			IF (<SRC.FINDLAYER(29).FINDID.i_gold> == 0)
//			SRC.TAG.RPRATING=<eval <SRC.TAG.RPRATING> + (-50)>
//			SAYU Bah, ye have not enough gold to pay the service fee I require to carry thine box. Come closer and carry yer own bank box.
//			RETURN 1
//			ENDIF
//			ENDIF
//
//			SAYU I have taken <eval <VAR.GOLDLOST>> gold out of thine bank box as a fee for carrying it over such a distance. I thank thee for the gold, <SRC.NAME>.
//			VAR.GOLDLOST=
//
//			ENDIF
//	SRC.ACT=<eval <VAR.OLDACT>>
//	VAR.OLDACT=
//	ENDIF

	IF (rand(30)==1)
	SRC.ACT=<UID>
	VAR.CURRENTBANK=<eval <TAG.<SRC.UID>>>
	VAR.CURRENTBANK=<eval <VAR.CURRENTBANK> + -1>
	SRC.TRYP 0 SRC.ACT.TAG.<SRC.UID> = <VAR.CURRENTBANK>
	ENDIF

	IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
		DORAND 3
			SAY Banking is a satisfactory experience.
			SAY Do not worry, thine gold is safe with us!
			SAY My mother wanted me to adventure, but I find banking much more satisfying.
		ENDDO
	ELSE
		DORAND 3
			SAY Keeping the money of others is my job.
			SAY Very well, here is thy bank box.
			SAY Yes, banking is my unfortunate lot in life.
		ENDDO
	ENDIF
	src.BANKSELF

ON=hi
ON=hello*
ON=greetings*
ON=good*see*thee*
ON=Hail*
ON=Greet
	SAY=Good day, may I assist thee?

ON=*rob*
ON=*steal*
ON=*hold up*
	DORAND 4
		SAY Guards!  Guards they are robbing the bank!
		SAY You see, once a client's money.is deposited, no one can get to it. Not even me.
		SAY A thief could kill me and I still couldn't give any money away.
		SAY I can't give any money away unless a client specifically asks for a withdrawal.
	ENDDO

ON=*coin*
ON=*money*
ON=*currency*
ON=*deposit*
ON=*transaction*
ON=*account*
	IF ( <COMPLEXITY.HIGH> || <COMPLEXITY.MEDIUM> )
		DORAND 4
			SAY Thou can certainly leave thy money with us. 'Tis safer than in thine own pockets, I assure thee.
			SAY Thou art welcome to open an account at any time that we are open.
			SAY Just give thy money to me, <SRC.NAME>, and I shall take care of it for thee.
			SAY No one shall take thy gold as long as it is in our hands,<SRC.SEX milord/milady>.
		ENDDO
	ELSE
		DORAND 4
			SAY Thou can certainly leave thy money with us. 'Tis safer than in thine own pockets, I assure thee.
			SAY Thou can only open an account when we're open.
			SAY Just give thy money to me, <SRC.NAME>. 'Tis safe. I promise.
			SAY Dost thou not think me an honest man? No one will take thy gold as long as it's with us.
		ENDDO
	ENDIF

ON=*account*
	IF ( <COMPLEXITY.HIGH> )
		DORAND 2
			SAY If thou dost need to withdraw money from thy account, just say withdraw and the amount that thou dost need.
			SAY To find thy balance, ask for a statement or for thy balance.
		ENDDO
	ELIF ( <COMPLEXITY.MEDIUM> )
		DORAND 2
			SAY If thou dost need some of thy money, just ask to withdraw whatever amount thou needs.
			SAY To check how much money thou dost have in thy account, ask for a statement or for thy balance.
		ENDDO
	ELSE
		DORAND 2
			SAY To get some money out of thy account, ask to withdraw X. X bein' how much thou needs.
			SAY To check thy statement balance, ask for a statement or for thy balance. Easy as that.
		ENDDO
	ENDIF

ON=*gold*
ON=*silver*
ON=*copper*
	DORAND 3
		SAY Gold is the only metal we use when minting our coins.
		SAY Silver and copper just aren't suitable for coinage.
		SAY Gold is the basis for nearly all of our exchanges.
	ENDDO

ON=Bye
ON=Goodbye
ON=Farewell
	SAY=Goodbye.
	BYE
	return 1

ON=ACCOUNT
	SAY=I'm sorry, thine account information is private.

ON=COIN
	SAY=We accept only the coin of the realm.

ON=COPPER
	SAY=A copper piece is the smallest coin we accept.

ON=CURRENCY
	SAY=We deal in gold, silver and copper.

ON=HOLD UP
	SAY=Guards! Guards!

//RANDOM=Greenspan, that rogue!  Ah... I remember the lovely days of Volker...
//DEFAULT=Pardon me?

[EOF]