;Glandor
;Glandor Equipment
SCENE 31 bwEuroStreet
#Include prtychk.txt
#include steal.txt
MUSIC	waltz2.mid
	ACTOR	1,	"Karren", joshTownsFolk, 2, 25, 90
	POSE 2, 3
	SEL		1
	MOVE	1,	15, 80
COMPARE #<num.hostClass> "35"
IF> @monster
IF= @monster
	1: We have the best equipment on the island!
	H: Really? What about that island across the sea?
	1: Well thats NOT this island....
	1: Right click me for armour or weapons
END
@eventactorclick1
COMPARE #<num.hostClass> "35"
IF> @monster
IF= @monster
MENU "Armour=@armour", "Weapons=@weapons"
END
@armour
	OFFER2 60,80,10, 60,80,11, 60,80,21, 60,80,22, 60,80,23
END
@weapons
	OFFER2 60,80,12, 60,80,13, 60,80,14, 60,80,15, 60,80,16, 60,80,17, 60,80,18, 60,80,19,
END

@monster
1: These weapons are NOT for demons and beasts like you
1: Go away!
END

;Glandor House
SCENE 32 bazaar
#Include prtychk.txt
#include steal.txt
ACTOR 1	"Karl", joshtownsfolk, 1, 25, 90
POSE 1, 7
COMPARE #<num.hostClass> "35"
IF> @monster
IF= @monster
1: Karl here
H: Hello Karl, Im...
1: I know, %1 right, Im phycic.
H: Cool! Can ya tell me anything about my future?
1: Nope, but I know where the monstorian lives!.
H: Whos the monstorain?
1: Just some old dude living inside an old tree in the plains, he is a powerful summoner who can summon monsters as pets!
H: Hey thanks
1: Sure anytime
1: Did you ever notice how all the herb shop owners are called harriet?
H: Hey your right
1: I know
GIVE T202
END

@monster
1: I saw you coming %2 you monster
1: Leave now. 
END

;Glandor Inn
SCENE 33 bazaar
#Include prtychk.txt
#include steal.txt
MUSIC steel.mid
ACTOR 1 "Innkeeper", Joshtownsfolk, 17, 25, 90
COMPARE #<num.hostClass> "35"
IF> @monster
IF= @monster
If Alive @sleep
1: AHHHH you are DEAD, this is NOT the graveyard!
1: I cannot help you, go back to your home town to get resurected, or go find a grave to rot in!
END
@sleep
1: Hi there, welcome to my inn.
1: We great water beds here, recover 1000HP and 1000MP every time.
1: 600GP what do ya say?
ASK 30
IF Qyes @stay
1: No? Fine
END
@stay
TAKE G600
1: Great, good night!
WAIT 2
IF R1 @badsleep
GIVE H1000
GIVE M1000
1: I hope you slept well, goodbye.
END

@badsleep
1: I hope you slept well!
H: I didnt actually
1: WHAT? But these are my best water beds!
H: It popped.
1: Ahh I see...
H: Im soaked
1: Well no refunds sorry!
1: /a runs
MOVE 1, -10, 90
WAIT 3
H: GAH!
END

@monster
1: AHHHH you beast!
1: I cant have you in my fine water beds, you would ruin them!
1: Begone!
END 

;Glandor Herbs
SCENE 34 bwEuroStreet
#Include prtychk.txt
#include steal.txt
ACTOR 1 "Harriet", joshtownsfolk 24, 25, 90
POSE 24, 25
COMPARE #<num.hostClass> "35"
IF> @monster
IF= @monster
1: I LOVE herbs, dont you?
1: Of course you do, they heal you right, well buy them RIGHT here!
OFFER 1, 2, 3, 4, 7, 12, 13, 14, 15, 16, 18, 19, 24, 27, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38
END

@monster
1: I really love herbs
1: But I cant stand monsters, ICK!
END

;harbourmaster
SCENE 35 bazaar
#include steal.txt
ACTOR 1 "Harbour master", joshtownsfolk, 9, 25, 90
POSE 9, 10
COMPARE #<num.hostClass> "35"
IF> @monster
IF= @monster
1: Hello, welcome to the harbour!
H: Thanks Im %1
1: This is the only harbour on the island, and the only way to the neibouring island is by ship!
1: Here you may buy a ship for 200,000GP, or buy a ticket to sail across to the Miners Island for 1000GP.
1: Right click me and make your choice!
END

@eventactorclick1
MENU "Buy a ship for 200k=@ship", "Buy a ticket for 1k=@ticket"
END

@Ship
IF G200000 @buy1
1: Im sorry, but you seam a little short, I did say 200,000Gp right?
H: Yes
1: Well come back when you have enouth.
END

@buy1
1: Wow you are richer than you look!
H: Whats THAT supposed to mean?
1: Heh nothing. Heres your ship.
TAKE G200000
GIVE I700
END

@ticket
If G1000 @buy2
1:Hmmm you dont have enouth, sorry.
END

@buy2
1: here ya go
TAKE G1000
GIVE I95
END

@monster
1: HEY get out of here
1: NO animals
END

;Ship
SCENE 36 deck1
#Include prtychk.txt
#include steal.txt
ACTOR 1 "Ship master", joshtownsfolk, 1, 25, 90
POSE 1, 7
COMPARE #<num.hostClass> "35"
IF> @monster
IF= @monster
IF I95 @safe
1: Hello there
H: hi
1: I trust you have a ticket to give me for passage to the island?
H: Ticket?
1: WHAT did you expect to be a stow away?
1: Get off my ship!
EXIT
END

@safe
1: Hello there
H: Hi
1: I trust you have a ticket?
H: Of course.
@ask
1: Well are you ready to leave?
ASK 30
If Qyes @yes
If Qno @no
1: Well?
GOTO @ask
END

@yes
1: Great, ill take your ticket
TAKE I95
1: All abourd!
GOTO link 8, 4
END

@no
1: Ok come back when you are ready
END

@monster
1: Get away from my ship you %3
1: Im not taking any beasts across with me!
END


