
;----------------------
; The Bank!           -
;----------------------

SCENE 8, hall, SCENE, "The Bank"

;COMPARE #<nocomebank>, 1
;IF=, @end

ACTOR 1, "Bank Attendent", joshRoyalty, 11, 50, 70
1: Welcome to the bank, %1.
COMPARE #<bank>, "2"
IF= @normal
1: Here, you can deposit any amount of money.

SET money, "0"

1: When you enter the bank after this, you will have a few choices.
1: The first is to deposit. You mearly click "Deposit" To give money to the bank.
1: The second option is to "Withdraw". This allows you to take money out of your bank account.
1: The third option is "Balance".  This will show you your current balance of gold pieces.
1: Right Click me to make a transaction.

SET bank, "2"

@normal

END

@eventActorClick1

1: What can I do for you today?
WAIT 1
MENU "Deposit=@deposit","Withdraw=@withdraw","Balance=@balance","Nothing=@end"

END

@deposit
1: How much money would you like to deposit? (Enter the amount in full form without comma's)
SET deposit, "0"

ASK 9999999

SET deposit, "#<lastAsk>"
IF G#<lastAsk>, @continued

1: You do not have that much money.

GOTO #<at>deposit
END

@continued

1: You would like to deposit #<deposit>?
WAIT 1
MENU "Yes=@goon2","No=@no"

@goon2
1: Okay, please wait a moment..

GOTO #<at>%R4

@1

IF -G#<deposit>, @nogo
TAKE G#<deposit>
ADD money, "#<deposit>"
SET check, "#<money>"
SET bob, #<money>
SET larry, #<money>

1: Thank you for your deposit.
1: Your new balance is #<money> Gold Coins.
GOTO #<at>normal

@2

IF -G#<deposit>, @nogo
TAKE G#<deposit>
ADD check, "#<deposit>"
SET money, "#<check>"
SET bob, #<check>
SET larry, #<check>

1: Thank you for your deposit.
1: Your new balance is #<money> Gold Coins.
GOTO #<at>normal

@3

IF -G#<deposit>, @nogo
TAKE G#<deposit>
ADD bob, "#<deposit>"
SET money, "#<bob>"
SET check, #<bob>
SET larry, #<bob>

1: Thank you for your deposit.
1: Your new balance is #<money> Gold Coins.
GOTO #<at>normal

@4

IF -G#<deposit>, @nogo
TAKE G#<deposit>
ADD larry, "#<deposit>"
SET check, "#<larry>"
SET bob, #<larry>
SET money, #<larry>

1: Thank you for your deposit.
1: Your new balance is #<money> Gold Coins.
GOTO #<at>normal

END

@withdraw

1: How much money would you like to withdraw? (Enter the amount in full form without comma's)

SET withdraw, "0"
ASK 99999
SET withdraw, "#<lastAsk>"
COMPARE #<money>, #<withdraw>
IF> @continuew
IF= @continuew

1: You do not have that much money deposited. Your current balance is #<money> Gold Coins.

GOTO #<at>withdraw

END

@continuew

1: You would like to withdraw #<withdraw> Gold?
WAIT 1
MENU "Yes=@goon3","No=@no"

IF No, @no

@goon3
1: Okay, one moment please.

COMPARE #<money>, #<check>
IF>, @cheater
COMPARE #<money>, #<bob>
IF>, @cheater
COMPARE #<money>, #<larry>
IF>, @cheater
COMPARE #<larry>, #<bob>
IF>, @cheater
COMPARE #<bob>, #<check>
IF>, @cheater
COMPARE #<larry>, #<check>
IF>, @cheater

HOST_GIVE G#<withdraw>
SUB money, #<withdraw>
SUB larry, #<withdraw>
SUB bob, #<withdraw>
SUB check, #<withdraw>

1: Thank you for using our bank!

GOTO #<at>normal
END

@no
1: No? Okay.

GOTO #<at>normal

END

@nogo

1: You no longer have enough money.

GOTO #<at>normal

END

@balance

1: Your current balance is #<money> Gold Coins.

@end
END

;@buycheck

;1: What amount would you like the check to be made out for?

;WAIT 2

;MENU "100,000=@buy876","250,000=@buy877","500,000=@buy878","750,000=@buy879","1,000,000=@buy880"

;END

;@buy876

;COMPARE #<money>, "100000"
;IF<, @nosell

;SUB money, "100000"
;GIVE I876

;1: Here is your check for 100,000 gold pieces.

;END

;@buy877

;COMPARE #<money>, "250000"
;IF<, @nosell

;SUB money, "250000"
;GIVE I877

;1: Here is your check for 250,000 gold pieces.

;END

;@buy878

;COMPARE #<money>, "500000"
;IF<, @nosell

;SUB money, "500000"
;GIVE I878

;1: Here is your check for 500,000 gold pieces.

;END

;@buy879

;COMPARE #<money>, "750000"
;IF<, @nosell

;SUB money, "750000"
;GIVE I879

;1: Here is your check for 750,000 gold pieces.

;END

;@buy880

;COMPARE #<money>, "1000000"
;IF<, @nosell

;SUB money, "1000000"
;GIVE I880

;1: Here is your check for 1,000,000 gold pieces.

;END

;@eventActorGive1

;COMPARE #<item.id>, "876"
;IF=, @876
;COMPARE #<item.id>, "877"
;IF=, @877
;COMPARE #<item.id>, "878"
;IF=, @878
;COMPARE #<item.id>, "879"
;IF=, @879
;COMPARE #<item.id>, "880"
;IF=, @880

;END

;@876

;ADD money, "100000"

;1: So you've given me a check for 100,000 gold pieces.
;1: It has been deposited to your account.

;END

;@877

;ADD money, "250000"

;1: So you've given me a check for 250,000 gold pieces.
;1: It has been deposited to your account.

;END

;@878

;ADD money, "500000"

;1: So you've given me a check for 500,000 gold pieces.
;1: It has been deposited to your account.

;END

;@879

;ADD money, "750000"

;1: So you've given me a check for 750,000 gold pieces.
;1: It has been deposited to your account.

;END

;@880

;ADD money, "1000000"

;1: So you've given me a check for 1,000,000 gold pieces.
;1: It has been deposited to your account.

;END

;@eventActorAttack1
;SET nocomebank, 1
;SUB karma, %R10
;1: Gaurds!
;WAIT .5
;MOVE 1,-50,-50,1
;SET gaurdattack, %R4
;ADD gaurdattack, 999
;FIGHT2 #<gaurdattack>
;END

;@eventActorSpell1
;COMPARE #<spell.damage>, 50
;IF<, @end
;SET nocomebank, 1
;SUB karma, %R10
;1: Gaurds!
;WAIT .5
;MOVE 1,-50,-50,1
;SET gaurdattack, %R4
;ADD gaurdattack, 999
;FIGHT2 #<gaurdattack>
;END

@cheater

GIVE T4002

N: You bad person you!

GOTO LINK 199,0

END

;-----
;--
;  Temple o Knowledge of Yourself
;--
;-----

SCENE 109, temple, SCENE, "Temple of Self-Knowledge
ACTOR 1, "Essence of Knowledge", gateway, 1, 50, 80
POSE 1,2,3
END
@eventActorClick1
1: What do you wish to know?
WAIT 2
MENU "My karma rating..=@karma","My bank balance..=@balance","Nothing..=@end"
END
@karma
1: Your current karma rating is #<karma>.
END
@balance
1: Your current bank balance is #<money>.
@end
END


;-------------------------
;----PK-Arena-------------
;-------------------------

SCENE 110, , SCENE, "Restoration Chamber"

IF DEAD, @heal

END

@heal

N: Ressurection has a charge of 100 Gold Pieces. 

IF -G100, @noheal

TAKE G100
GIVE L1
GIVE H5000
GIVE M5000

END

@noheal

N: You do not have 100 Gold Pieces, and therefore cannot be ressurected here.

END



;--------------------------
;----Basora----------------
;--------------------------
;-------------------------------------------------
;------Kingdom-of-the-Dwarves---------------------
;-------------------------------------------------

SCENE 111, shop, SCENE, "Dwarven Hall"

ACTOR 1, "Lee-Roy", josh97, 1, 25, 90
ACTOR 2, "Brutus", josh95, 1, 32, 80
ACTOR 3, "Cledis", battledwarf, 1, 70, 81
ACTOR 4, "Gerald", battledwarf2, 1, 60, 97

GOTO #<at>#<g.num>

@0

; Human

1: Humans!
3: Attack!

FIGHT 1018,1019,1020,1021
IF DEAD, @dead

2: Maybe we should leave...

MOVE 1,-10,90
MOVE 2,-10,80
MOVE 3,-10,81
MOVE 4,-10,97

;1: Bloody humans..
;2: Why even bother..
;4: They know they shouldn't be here..
;3: Get outta here ye human!

END

@dead

4: That'll show em!

END

@1

; Elf

1: Gooday mate.
3: Gooday mate.
2: Gooday mate.
4: Gooday mate.

END

@2

; Dwarf

1: Those bloody humans are attacking us!
3: Aye!
2: If you haven't seen F'Nok, ya shud go seeum!

END

;------------------------
;   The Shops  102-
;------------------------

SCENE 112, shop, SCENE, "Impermeable Resorts"

ACTOR 1, "Borus", battledwarf, 1, 20, 90
FACE 1
	1: So, you're looking for armor eh?

OFFER 76,77,78,79,80,81,83,84,85,88,89,140,141,142,156,157,158,159,171,172,173,174

END

;----------------------

SCENE 113, shop, SCENE, "Sharpenin' Times"

ACTOR 1, "Chester", battledwarf2, 1, 20, 90
FACE 1
1: Weapons it is.

OFFER 25,26,27,28,29,200,201,202,204,207,209,400


END


;------------------
; Item Shop
;------------------


SCENE 114, shop, SCENE, "Arctor's Goods"

ACTOR 1, "Russ", josh97, 1, 20, 85

OFFER 1,2,3,11,12,13,21

	1: You may want some potions for your journey.

END


;----------
; Inn     -
;----------

SCENE 115, templeHall, SCENE, "Daracs' Pub"

ACTOR 1, "Minister", ministers, 1, 20, 85

;1: For lack of a better skin, I'm using this cat..
;1: If you have any better skins, help would be appreciated.

COMPARE #<g.num>, "2"
IF=, @free

COMPARE #<g.num>, "0"
IF=, @human

1: I'll have to charge you for any healing services.

IF DEAD, @dead

SET healhp, "#<num.hostMaxHP>"
SUB healhp, "#<num.hostHP>"
SET healmp, "#<num.hostMaxMP>"
SUB healmp, "#<num.hostMP>"

COMPARE #<healhp>, "0"
IF=, @skiphp

1: It'll cost you #<healhp> Gold Coins to restore your hit points.
1: Do you wish to be healed?
ASK 9999
IF YES, @collecthp



GOTO #<at>collectmp

@collecthp

TAKE G#<healhp>
GIVE H#<healhp>

@skiphp

COMPARE #<healmp>, "0"
IF=, @end

1: It will cost you #<healmp> Gold Coins to restore your magic points.
1: Do you wish to be restored?
ASK 9999
IF YES, @collectmp

1: Have a nice day.

END

@collectmp

TAKE G#<healmp>
GIVE M#<healmp>

1: Have a nice day.

END

@dead

1: I see you are dead.
1: It will cost you 100 Gold Coins to ressurect you.
1: Do you wish to be ressurected?
ASK 9999
IF YES, @ressurect

1: Alrighty..

END

@ressurect

IF -G100, @nomoneytores

TAKE G100
GIVE L10000
GIVE M10000

1: Have a nice day.

END

@nomoneytores

1: I'm sorry, you don't have sufficient funds to be ressurected.

END

@free

1: Here, let me fix you up.

GIVE L1
GIVE H9999
GIVE M9999

1: There, all better.
1: Return whenever you are in need of healing.

@end
END

@human

1: I refuse to ressurect or heal a human.

END

;-----------------

SCENE 116, Flagstone, SCENE, "The Watchtower"

ACTOR 1, "Watch Gaurd", BattleDwarf, 1, 10, 97
FACE 1
ACTOR 2, "Watch Gaurd", BattleDwarf2, 1, 90, 97

COMPARE #<g.num>, "2"
IF=, @dwarf

1: This place is off limits.
2: Please leave.

WAIT 2

GOTO EXIT

@dwarf

1: Hail %1.
2: The humans are attacking!
1: They snuck through the forest maze they did!
2: They needs ta leave this place!
1: I'll say!
2: I sure hope F'Nok matters inta consideration.
1: Well %1, Good luck ta ya.
2: You may need it against them humans!

END


;-------------------
;---F'Nok-----------
;-------------------

SCENE 117, templeHall, SCENE, "F'Nok's Chamber"

ACTOR 1, "F'Nok", battledwarf, 1, 25, 90
FACE 1
GOTO #<at>g#<g.num>

@g0

; Human

ACTOR 1 "F'Nok"

FIGHT2 1137
IF WON, @won

1: Argh! Ye humans needa leave!
1: And tell yer leeder ta know whats commin'!

END

@won

1: This isn't tha last of me!

@g1

; Elf

1: Guday mate!
1: Yer welcome here anytime ye wish.
1: Ye elves are friends of us dwarfs.

END

@g2



; Dwarf

1: %1!
1: Them bloody humans have attacked us!
1: I dunnae why, but we needs all our forces up front.
1: It's yer duty as a Dwarf to fight!

END

;1: Hail %1.
;COMPARE "#<km.human>", "100"
;IF=, @prize1
;1: I was wanting to talk to ye.
;1: I been thinkin'
;1: Ye needs ta go huntin'!
;1: Why not go o'er ta Zephar n hack sum human flesh?
;1: Lessay a hundrid.
;1: I'll be sure to reward ye.
;1: Now off with ye, go'n now.

END

@prize1

COMPARE #<nomoredwarfprize1>, "1"
IF=, @end
SET nomoredwarfprize1, 1

1: Arr!
1: Ye dun it!

1: On behalf of all Basora, I thank ye!
1: Now fer yer prize!
1: This lil' guy'll load ye up!

FIGHT 4095

1: We found em in the mines o'er there one day.
1: Can't see ta find any others though..

@end

1: Back to plannin'
1: Never know when them humans are gonna strike!
1: We must always be alert!

END

















;-------------------------
;------Zephar-------------
;-------------------------
;---------------------------------------------------
;-----Kingdom-of-the-humans-------------------------
;---------------------------------------------------


;-------------------------
; Darangen, Human Leader -
;-------------------------


SCENE 201, templehall, SCENE, "Darangen's Shrine"

GOTO #<at>#<g.num>

@2

; Dwarfs

;ACTOR 1

;1: You shouldn't be here.
;1: Dwarfs aren't accepted well by my people.
;1: Please may your stay brief.

END

@0

; Humans

ACTOR 1, "Darangen", magus, 4, 25, 90

1: Hail %1!
;1: I'm busy planning our next offensive against the dwarfs.

SET checkdwarfkills, #<km.dwarf>
COMPARE "#<checkdwarfkills>", "100"
IF=, @prize1
IF>, @prize1

1: I tell you what..
WAIT 2
1: If you kill 100 dwarfs, I'll reward you with a prize!
1: Yes, a prize from Darangen, your master!

1: Just kill 100 dwarfs.

END

@1

; Elves 

1: Welcome fellow elf.
1: Please enjoy your visit to Zephar.

END

@prize1

COMPARE "#<nogiveprize1>", "1"
IF=, @end

1: Excellent %1!
1: You've slayed 100 dwarfs!
1: Now I will keep my word, and award you with this.
1: This is the same armor I use.
1: It repels monsters because of it's fame.

SET nogiveprize1, 1

GIVE I87

N: You have recieved %I87

@end
END

@eventActorGive1
COMPARE #<dargavering>, "1"
IF=, @end
COMPARE #<item.id>, "25"
IF=, @broadsword
END

@broadsword

1: A Broadsword!
1: I see you must've found my secret.

1: Here is a prize for you.

GIVE I110
SET dargavering, "1"

1: Take this %I110
1: It will double your walking speed.

END
;------------------------
;   The Shops  202-
;------------------------

SCENE 202, shop, SCENE, "Armored Corps"

ACTOR 1, "Stephen", joshTownsfolk, 1, 20, 90

1: So, you're looking for armor eh?

OFFER 76,77,78,79,80,81,83,84,85,88,89,140,141,142,156,157,158,159,171,172,173,174

END

;----------------------

SCENE 203, shop, SCENE, "Slashing Goodness"

ACTOR 1, "Emma", joshTownsfolk, 2, 20, 90

1: Weapons it is.

OFFER 25,26,27,28,29,200,201,202,204,207,209,400,401

END

;------------------------------------------

SCENE 204, templehall, SCENE, "Warriors Rest"

ACTOR 1, "Minister", ministers, 3, 20, 85

;1: For lack of a better skin, I'm using this cat..
;1: If you have any better skins, help would be appreciated.

COMPARE #<g.num>, "0"
IF=, @free

1: I'll have to charge you for any healing services.

IF DEAD, @dead

SET healhp, "#<num.hostMaxHP>"
SUB healhp, "#<num.hostHP>"
SET healmp, "#<num.hostMaxMP>"
SUB healmp, "#<num.hostMP>"

COMPARE #<healhp>, "0"
IF=, @skiphp

1: It'll cost you #<healhp> Gold Coins to restore your hit points.
1: Do you wish to be healed?
ASK 9999
IF YES, @collecthp

GOTO #<at>collectmp

@collecthp

TAKE G#<healhp>
GIVE H#<healhp>

@skiphp

COMPARE #<healmp>, "0"
IF=, @end

1: It will cost you #<healmp> Gold Coins to restore your magic points.
1: Do you wish to be restored?
ASK 9999
IF YES, @collectmp

1: Have a nice day.

@end
END

@collectmp

TAKE G#<healmp>
GIVE M#<healmp>

1: Have a nice day.

END

@dead

1: I see you are dead.
1: It will cost you 100 Gold Coins to ressurect you.
1: Do you wish to be ressurected?
ASK 9999
IF YES, @ressurect

1: Alrighty..

END

@ressurect

IF -G100, @nomoneytores

TAKE G100
GIVE L10000
GIVE M10000

1: Have a nice day.

END

@nomoneytores

1: I'm sorry, you don't have sufficient funds to be ressurected.

END

@free

1: Here, let me fix you up.

GIVE L1
GIVE H9999
GIVE M9999

1: There, all better.
1: Return whenever you are in need of healing.

END

;------------------------------------------

SCENE 205, Flagstone, SCENE, "Watchtower"

ACTOR 1, "Watch Gaurd", josh55, 1, 10, 98
ACTOR 2, "Watch Gaurd", josh55, 1, 90, 98
SEL 2
FACE 2

COMPARE #<g.num>, "0"
IF=, @human

1: I'm sorry.
1: This area is off limits.
2: Please leave.

WAIT 2

GOTO EXIT

@human

1: The battles going well as far as we can see!
2: Yes, Darangen is leading our troops fearlessly into battle!
1: We'll have those dwarfs begging for mercy before long!
2: Yes, %1, you should go and assist Darangen!
1: After all, you ARE a human.

END

1: All looks good so far.
2: Yes, no strange activity coming from the east.
1: We'll know if they ever try something!
2: Of course!
2: We can see all the way to Basora, the Kingdom of the Dwarfs from up here!

1: That's right.
1: As long as we're here and the weather stays good, we're invincible!

END

;------------------
; Item Shop
;------------------


SCENE 206, shop, SCENE, "Jack's Item Shop"

ACTOR 1, "Jack", joshTownsfolk, 9, 20, 85

	1: You may want some potions for your journey.

OFFER 1,2,3,11,12,13,21

END
















;----------------------------------
;------------Tikinato--------------
;----------------------------------
;------------------------------------------------------
;--------------Kingdom-of-the-Elves--------------------
;------------------------------------------------------




;------------------------
;   The Shops  302-306
;------------------------

SCENE 302, shop, SCENE, "Defense Post"

ACTOR 1, "Cathy", josh93, 1, 20, 90

	1: So, you're looking for armor eh?

OFFER 76,77,78,79,80,81,83,84,85,88,89,140,141,142,156,157,158,159,171,172,173,174

END

;----------------------

SCENE 303, shop, SCENE, "Marvin's Artillery"

ACTOR 1, "Marvin", josh92, 1, 20, 90

1: Weapons it is.

OFFER 25,26,27,28,29,200,201,202,204,207,209,400

END

;------------------------------------------

SCENE 304, templehall, SCENE, "Elven Sincerity"

ACTOR 1, "Minister", ministers, 2, 20, 85

;1: For lack of a better skin, I'm using this cat..
;1: If you have any better skins, help would be appreciated.

COMPARE #<g.num>, "1"
IF=, @free

1: I'll have to charge you for any healing services.

IF DEAD, @dead

SET healhp, "#<num.hostMaxHP>"
SUB healhp, "#<num.hostHP>"
SET healmp, "#<num.hostMaxMP>"
SUB healmp, "#<num.hostMP>"

COMPARE #<healhp> "0"
IF=, @skiphp

1: It'll cost you #<healhp> Gold Coins to restore your hit points.
1: Do you wish to be healed?
ASK 9999
IF YES, @collecthp

GOTO #<at>collectmp

@collecthp

TAKE G#<healhp>
GIVE H#<healhp>

@skiphp

COMPARE #<healmp>, "0"
IF=, @end

1: It will cost you #<healmp> Gold Coins to restore your magic points.
1: Do you wish to be restored?
ASK 9999
IF YES, @collectmp

1: Have a nice day.

@end

END

@collectmp

TAKE G#<healmp>
GIVE M#<healmp>

1: Have a nice day.

END

@dead

1: I see you are dead.
1: It will cost you 100 Gold Coins to ressurect you.
1: Do you wish to be ressurected?
ASK 9999
IF YES, @ressurect

1: Alrighty..

END

@ressurect

IF -G100, @nomoneytores

TAKE G100

GIVE L10000
GIVE M10000

1: Have a nice day.

END

@nomoneytores


1: I'm sorry, you don't have sufficient funds to be ressurected.

END

@free

1: Here, let me fix you up.

GIVE L1
GIVE H9999
GIVE M9999

1: There, all better.
1: Return whenever you are in need of healing.

END

;------------------------------------------

SCENE 305, shop, SCENE, "Elven Hall"

ACTOR 1, "Celoril", Elf, 1, 79, 90
ACTOR 2, "Cithramir", Elf2, 1, 75, 82
ACTOR 3, "Elvorfimbor", josh92, 1, 30, 81
ACTOR 4, "Belithrandel", josh93, 1, 25, 90
ACTOR 5, "Delar", josh94, 1, 50, 50

1: Hello %1.
3: Ah, hello friend.
5: You're always welcome to stay here.
2: Yes, this is Tikinato, the peaceful village of the elves.
4: We welcome all races here.

END

;------------------
; Item Shop
;------------------


SCENE 306, shop, SCENE, "Lucia's Goods"

ACTOR 1, "Lucia", josh94, 1, 20, 85

OFFER 1,2,3,11,12,13,21

	1: You may want some potions for your journey.

END























;---------------------------------
;----------Mysteria---------------
;---------------------------------
;----------------------------------------------
;-----------Kindgom-of-the-Tribesman-----------
;----------------------------------------------



; SCENES 400-499
;------------------------
;   The Shops  302-306
;------------------------

SCENE 402, shop, SCENE, "Armor Shop - Mysteria"

ACTOR 1, "Tribesman", Skullguy, 1, 20, 90

	1: So, you're looking for armor eh?


OFFER 76,77,78,79,80,81,83,84,85,88,89,140,141,142,156,157,158,159,171,172,173,174

END


;----------------------

SCENE 403, shop, SCENE, "Weapon Shop - Mysteria"

ACTOR 1, "Tribesman", Skullguy, 1, 20, 90

1: Weapons it is.

OFFER 25,26,27,28,29,200,201,202,204,207,209,400,401,402


END

------------------------------------------

SCENE 304, templehall, SCENE, "Temple of Healing"

ACTOR 1, "Tribesman", Skullguy, 1, 20, 90

1: For lack of a better skin, I'm using this cat..
1: If you have any better skins, help would be appreciated.

1: Here, let me fix you up.

GIVE L1
GIVE H9999
GIVE M9999


1: There, all better.
1: Return whenever you are in need of healing.

END

;------------------------------------------

SCENE 405, shop, SCENE, "Hino Shop"

ACTOR 1, "Tribesman", Skullguy, 1, 20, 90

END

;------------------
; Item Shop
;------------------



SCENE 406, shop, SCENE, "Item Shop"

ACTOR 1, "Tribesman", Skullguy, 1, 20, 90

OFFER 1,2,3,11,12,13,21

	1: You may want some potions for your journey.

END

;-----------------------
; Elves of the Moon Rose
;-----------------------

SCENE 407, forest2, SCENE, "Elves of the Moon Rose"

ACTOR 1, "Elven High Sorceress", elfsorceress, 1, 35, 50
ACTOR 2, "Elven Strider", elvenstrider, 4, 30, 90
ACTOR 3, "Jasmin", jasmin, 4, 20, 85
ACTOR 4, "Kit", kit, 1, 40, 85

IF I939, @alreadyjoined
IF I940, @alreadyjoined

1:Welcome young elf!
1:I have been informed you want to join the Elves of the Moon Rose.
1:Is this really your wish?
ASK 9999
IF yes, @joinemr
@idontwanttojoin
1:I see...
1:That is dissapointing.
1:Farewell!

WAIT 2

GOTO EXIT

END

@joinemr
1:Very good choice!
1:Before you join the Elves of the Moon Rose you must make some decisions.
1:Now there are three you shall meet meet.
1:Here are the faithful leaders of EMR.
2:Hello, I am Elven Strider. I founded the guild and I am in charge of the Shadow Elves.
3:How very nice to meet you. I am in charge of the Light Elves.
4:Hello I am the Lady of the Elves I am glad that you are to join us.
1:Please explain to the young Elf what his or her goals are.
2:First this elf must make a desision Oh Honerable Sorceress.
3:Yes, you can choose to be either a Shadow or a Light elf.
3:The Light Elves are peaceloving, carefree, wiling, and does not much like combat, but will fight fiercely if needed.
2:The Shadow Elves are mischievious, are skilled and enjoy combat, and sometimes mysterious.
4:Now think and make your choice.
1:So what will it be?
WAIT 2
@choosefatemenu
MENU "I want to be a Light Elf=@iamalightelf","I want to be a Shadow Elf=@iamashadowelf","I changed my mind...=@idontwanttojoin"
1:You have to choose something.
GOTO #<at>choosefatemenu

END

@iamalightelf
H: I want to be a Light Elf.
3:You have chosen to be a Light Elf.
3:You do not have to speak Out of Character.
3:If you want to speak out of character make sure you still reflect your real personality.
3:If you are kind and innocent speak that way but make it broader.
3:I will now give you this Pure White Rose.
GIVE I940
3:This significates that you are a Light Elf, keep it proudly!
4:Also you are worthy of receiving this "Warp to the Mana Tree" Spell.
GIVE S718
4:The Mana Tree is our homeland, use this spell whenever you are feeling homesick or worried.
2:And that is it. Welcome, you are now an Elf of the Moon rose!

END

@iamashadowelf
H: I want to be a Shadow Elf.
2:You have chosen to be a Shadow Elf.
2:You do not have to speak Out of Character.
2:If you want to speak out of character make sure you still reflect your real personality.
2:If you are warlike speak that way but make it broader.
2:I will now give you this Dark Black Rose.
GIVE I939
2:This significates that you are a Shadow Elf, keep it proudly!
4:Also you are worthy of receiving this "Warp to the Mana Tree" Spell.
GIVE S718
4:The Mana Tree is our homeland, use this spell whenever you are feeling homesick or worried.
3:And that is it. Welcome, you are now an Elf of the Moon rose!

WAIT 5

GOTO LINK 23,1

END


@alreadyjoined

1: It seems you have already joined the Elves of the Moon Rose.

END














;--------------------------
;----Shalrom---------------
;--------------------------
;-------------------------------------------------
;------Kingdom-of-the-Orcs------------------------
;-------------------------------------------------

SCENE 501, shop, SCENE, "Orcish Hall"

ACTOR 1, "Axro", josh82, 1, 25, 90
ACTOR 2, "Lerx", josh88, 1, 32, 80
ACTOR 3, "Xizor", pet02, 1, 70, 81
ACTOR 4, "Monto", orccalvary, 1, 60, 97

1: ...
2: ...
3: ...
4: ...

END

GOTO #<at>#<g.num>

@0

; Human

MOVE 1,-10,90
MOVE 2,-10,80
MOVE 3,-10,81
MOVE 4,-10,97

1: Bloody humans..
2: Why even bother..
4: They know they shouldn't be here..
3: Get outta here ye human!

END

@1

; Elf

1: Gooday mate.
3: Gooday mate.
2: Gooday mate.
4: Gooday mate.

END

@2

; Dwarf

1: I hear we been planning an attack on Zephar!
4: Aye!
2: We need ta show dem humans who's boss in Althagar!
4: Aye!
3: Do ye ever say anything but aye?
4: ...
1: F'Nok himself is sending certain mates off in that direction.
4: Aye!
3: ...
2: Kill 'em all!
1: Aye!
4: Aye!
3: .. Aye!

END

;------------------------
;   The Shops  102-
;------------------------

SCENE 502, shop, SCENE, "Clyde's Armory"

ACTOR 1, "Clyde", josh88, 1, 20, 90
FACE 1
	1: So, you're looking for armor eh?

OFFER 76,77,78,79,80,81,83,84,85,88,89,140,141,142,156,157,158,159,171,172,173,174

END

;----------------------

SCENE 503, shop, SCENE, "Uykle's Smithery"

ACTOR 1, "Uykle", josh88, 1, 20, 90
FACE 1
1: Weapons it is.

OFFER 25,26,27,28,29,200,201,202,204,207,209,400

END


;------------------
; Item Shop
;------------------


SCENE 504, shop, SCENE, "Arke's Goods"

ACTOR 1, "Arke", josh82, 1, 20, 85

OFFER 1,2,3,11,12,13,21

	1: You may want some potions for your journey.

END


;----------
; Inn     -
;----------

SCENE 505, templeHall, SCENE, "Rocks and Boulders"

ACTOR 1, "Minister", ministers, 1, 20, 85



1: I'll have to charge you for any healing services.

IF DEAD, @dead

SET healhp, "#<num.hostMaxHP>"
SUB healhp, "#<num.hostHP>"
SET healmp, "#<num.hostMaxMP>"
SUB healmp, "#<num.hostMP>"

COMPARE #<healhp>, "0"
IF=, @skiphp

1: It'll cost you #<healhp> Gold Coins to restore your hit points.
1: Do you wish to be healed?
ASK 9999
IF YES, @collecthp

GOTO #<at>collectmp

@collecthp

TAKE G#<healhp>
GIVE H#<healhp>

@skiphp

COMPARE #<healmp>, "0"
IF=, @end

1: It will cost you #<healmp> Gold Coins to restore your magic points.
1: Do you wish to be restored?
ASK 9999
IF YES, @collectmp

1: Have a nice day.

END

@collectmp

TAKE G#<healmp>
GIVE M#<healmp>

1: Have a nice day.

END

@dead

1: I see you are dead.
1: It will cost you 100 Gold Coins to ressurect you.
1: Do you wish to be ressurected?
ASK 9999
IF YES, @ressurect

1: Alrighty..

END

@ressurect

IF -G100, @nomoneytores

TAKE G100
GIVE L10000
GIVE M10000

1: Have a nice day.

END

@nomoneytores

1: I'm sorry, you don't have sufficient funds to be ressurected.

END

@free

1: Here, let me fix you up.

GIVE L1
GIVE H9999
GIVE M9999

1: There, all better.
1: Return whenever you are in need of healing.

@end
END

;-----------------

SCENE 506, Flagstone, SCENE, "The Watchtower"

ACTOR 1, "Watch Gaurd", josh82, 1, 10, 97
FACE 1
ACTOR 2, "Watch Gaurd", josh88, 1, 90, 97

1: ...
2: ...

END


;-------------------
;---Orc - X-----------
;-------------------

SCENE 507, templeHall, SCENE, "Orc Palace"

ACTOR 1, "Mihtork", josh88, 1, 25, 90

IF T101, @three
IF T100, @two

1: Those goblins have done it again!
1: They've stolen from our villagers!
1: It's not the item they stole that we're worried about, It's the fact they stole it!
1: But we can't seem to get close to them, they just fire those catapults at us!
1: Hmm..
1: Do you have any ideas %1?
WAIT 1
MENU "Nope, sorry..=@no","Maybe I could help you out..=@yes"

@no

H: Nope, sorry..
1: Well, I guess I can't really blame you, it's not like you're an orc or anything..

END

@yes

H: Maybe I could help you out..
1: You would help us orcs?
1: We usually don't trust other races, but in this case we will.
1: If you can go to Malros and retrieve the item they stole, you can keep the item.
1: Just bring back the item as proof that you have completed your task.
1: I'll be waiting here for your return.
GIVE T100

END

@two

1: Have you retrieved the item yet?
1: I see that you haven't..
1: Please retrieve it so that my people can rest well.

END

@three
COMPARE #<gaveprizeorcs>, 1
IF=, @four
1: Great!  You've retrieved it %1!
1: Thank you so very much!
1: You deserve another reward.
1: Hmm..
SET gaveprizeorcs, 1
ADD money, 100000
ADD larry, 100000
ADD bob, 100000
ADD check, 100000
1: I'll deposit 100,000 gold pieces into your account!
1: Thank you again, %1.

END

@four

1: My people are glad that you helped us.
1: You are always welcome here.

END

;1: ...
;Wait 5
;1: We don't usually communicate with other races.
;1: Don't take it personal.
;1: We're just trying to find a way into Morlos, the city of the goblins.
;1: Apparently they've locked themselves in there...
;1: We fear they're planning an attack on us.
;1: With those catapults, it's hard to get too close.
;1: But we also have our own secret weapon..
;1: Heh..
;1: Heh..
;1: Of course, I can't tell you what it is.
;1: You might be a spy!
;1: Heh..

END







;---------------------------------------------------------------------------
;---------------------------------------------------------------------------
;-																		   -
;-																		   -
;-  MERCHANTVILLE!  Scenes 600-604     									   -
;-																		   -
;---------------------------------------------------------------------------
;---------------------------------------------------------------------------

SCENE 600, shop, SCENE, "Equipment"

ACTOR 1, "Legendary Merchant of Equipment", joshTownsfolk, 9, 25, 90
POSE 9,10

1: Hail %1!
1: I see you want to purchase some exclusive Equipment!
1: Right Click me to get started.

END

@eventActorClick1

1: Choose which type you'd like, then click on the shop button below.

WAIT 1

MENU "Weapons=@weapons","Armor=@armor","Rings=@rings","Shields=@shields","Helmets=@helmets","Boots=@boots","Rare Items=@rare"

END

@weapons
OFFER 30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,50,51,52,53,54,200,201,202,203,204,205,206,207,209,400,401,402,403,404,405
END
@armor
OFFER 76,77,78,79,80,81,83,84,85,86,88,89,90,91,92
END
@rings
OFFER 110,111,112,113,114,115,116,117
END
@shields
OFFER 171,172,173,174,175,176,177
END
@helmets
OFFER 140,141,142,143,144,145
END
@boots
OFFER 156,157,158,159,160
END
@rare

1: Ok..
1: These are the rare selections.
1: The money required will be taken out of your bank account.

WAIT 1

MENU "Vanquishing=@vanq","Dragonscale=@drag"

END
@vanq
MENU "Broadsword - 234,000=@broadvanq","Longsword - 237,000=@longvanq","Viking Sword - 236,000=@vikingvanq","Cutlas - 235,000=@cutvanq","Katana - 238,000=@katvanq"
@end
END
@broadvanq
COMPARE #<money>, "234000"
IF<, @notenoughmoney
1: Purchase a Broadsword of Vanquishing?
ASK 10
IF NO, @end
SUB money, 234000
SET larry, #<money>
SET bob, #<money>
SET check, #<money>
GIVE I45
END
@longvanq
COMPARE #<money>, "237000"
IF<, @notenoughmoney
1: Purchase a Longsword of Vanquishing?
ASK 10
IF NO, @end
SUB money, 237000
SET larry, #<money>
SET bob, #<money>
SET check, #<money>
GIVE I46
@vikingvanq
COMPARE #<money>, "236000"
IF<, @notenoughmoney
1: Purchase a Viking Sword of Vanquishing?
ASK 10
IF NO, @end
SUB money, 236000
SET larry, #<money>
SET bob, #<money>
SET check, #<money>
GIVE I47
@cutlasvanq
COMPARE #<money>, "235000"
IF<, @notenoughmoney
1: Purchase a Cutlas of Vanquishing?
ASK 10
IF NO, @end
SUB money, 235000
SET larry, #<money>
SET bob, #<money>
SET check, #<money>
GIVE I49
@katvanq
COMPARE #<money>, "238000"
IF<, @notenoughmoney
1: Purchase a Katana of Vanquishing?
ASK 10
IF NO, @end
SUB money, 238000
SET larry, #<money>
SET bob, #<money>
SET check, #<money>
GIVE I48
END

@drag

1: Choose which piece of Dragonscale equipment you'd like to purchase.
WAIT 1
MENU "Helmet - 289,999=@draghelm","Armor - 499,999=@dragarm","Shield - 399,999=@dragshield","Boots - 264,999=@dragboots"
END
@draghelm
1: Purchase a %I148?
ASK 10
IF NO, @end
COMPARE #<money>, "289999"
IF<, @notenoughmoney
SUB money, "289999"
SET larry, #<money>
SET bob, #<money>
SET check, #<money>
HOST_GIVE I148
END
@dragarm
1: Purchase a %I82?
ASK 10
IF NO, @end
COMPARE #<money>, "499999"
IF<, @notenoughmoney
SUB money, "499999"
SET larry, #<money>
SET bob, #<money>
SET check, #<money>
HOST_GIVE I82
END
@dragshield
1: Purchase a %I179?
ASK 10
IF NO, @end
COMPARE #<money>, "399999"
IF<, @notenoughmoney
SUB money, "399999"
SET larry, #<money>
SET bob, #<money>
SET check, #<money>
HOST_GIVE I179
END

@dragboots
1: Purchase a %I162?
ASK 10
IF NO, @end
COMPARE #<money>, "264999"
IF<, @notenoughmoney
SUB money, "264999"
SET larry, #<money>
SET bob, #<money>
SET check, #<money>
HOST_GIVE I162
END
@notenoughmoney
1: The transaction was denied due to insufficient funds.
1: Your account must not have enough money in it.
END

SCENE 601, shop, SCENE, "Warps"

ACTOR 1, "Legendary Merchant of Warps", joshTownsfolk, 21, 25, 90
POSE 21,22

1: So yer interested in warps eh?
1: Well, right click me to get started.
END

@eventActorClick1

1: Choose which warp you'd like:
WAIT 1
MENU "The Forest Maze=@fm","The Sanctuary=@sanc","The City of the Dead=@cod","The Temple of Dragons=@drag","The Abyss=@abyss","The Mystik Circle=@circle"
@end
END

@fm
1: This warp costs 500,000 gold pieces.
1: Buy this warp and have 500,000 gold pieces taken from your bank account?
ASK 10
IF NO, @end
COMPARE #<money>, "500000"
IF<, @notenoughmoney
SUB money, "500000"
SET larry, #<money>
SET bob, #<money>
SET check, #<money>
HOST_GIVE S706
1: Have a nice day.
END
@sanc
1: This warp costs 500,000 gold pieces.
1: Buy this warp and have 500,000 gold pieces taken from your bank account?
ASK 10
IF NO, @end
COMPARE #<money>, "500000"
IF<, @notenoughmoney
SUB money, "500000"
SET larry, #<money>
SET bob, #<money>
SET check, #<money>
HOST_GIVE S713
1: Have a nice day.
END
@cod
1: This warp costs 500,000 gold pieces.
1: Buy this warp and have 500,000 gold pieces taken from your bank account?
ASK 10
IF NO, @end
COMPARE #<money>, "500000"
IF<, @notenoughmoney
SUB money, "500000"
SET larry, #<money>
SET bob, #<money>
SET check, #<money>
HOST_GIVE S708
1: Have a nice day.
END
@drag
1: This warp costs 500,000 gold pieces.
1: Buy this warp and have 500,000 gold pieces taken from your bank account?
ASK 10
IF NO, @end
COMPARE #<money>, "500000"
IF<, @notenoughmoney
SUB money, "500000"
SET larry, #<money>
SET bob, #<money>
SET check, #<money>
HOST_GIVE S709
1: Have a nice day.
END
@abyss
1: This warp costs 750,000 gold pieces.
1: Buy this warp and have 750,000 gold pieces taken from your bank account?
ASK 10
IF NO, @end
COMPARE #<money>, "750000"
IF<, @notenoughmoney
SUB money, "750000"
SET larry, #<money>
SET bob, #<money>
SET check, #<money>
HOST_GIVE S714
1: Have a nice day.
END
@circle
1: This warp costs 750,000 gold pieces.
1: Buy this warp and have 750,000 gold pieces taken from your bank account?
ASK 10
IF NO, @end
COMPARE #<money>, "750000"
IF<, @notenoughmoney
SUB money, "750000"
SET larry, #<money>
SET bob, #<money>
SET check, #<money>
HOST_GIVE S716
1: Have a nice day.
END
@notenoughmoney
1: The transaction was denied due to insufficient funds.
1: Your account must not have enough money in it.
END


SCENE 602, shop, SCENE, "Items"
ACTOR 1, "Legendary Merchant of Items", joshTownsfolk, 8, 25, 90
POSE 8,11

1: An Item wanter eh?
1: Click the shop button below to get started.
OFFER 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23

END


SCENE 603, shop, SCENE, "Pets"
ACTOR 1, "Legendary Merchant of Pets", joshRoyalty, 6, 25, 90
POSE 6,12

1: Hello %1.
COMPARE #<num.hostClass>, 20
IF>, @checkagain
@notranger

1: I'm sorry, but you don't have the ability to possess pets.
1: Only the Ranger classes have this ability.

END

@checkagain

COMPARE #<num.hostClass>, 29
IF<, @notranger

1: I have a few pets I've trained up and are ready to sell!
1: Take a look!

OFFER 300,301,302,303,304,305,306

END
SCENE 604, stoneGate, SCENE, "Gateway"
ACTOR 1, "Gateway", gateway, 1, 50, 80
POSE 1,2,3
END
@eventActorClick1
N: Leaving in 3 seconds...
WAIT 3
GOTO LINK 197,4
END

















; THE GREEN BUNNY HAS PINK EARS  