TILEMASTER2004 DATA V1
SCRIPT: 75
0 AddKeyWords bye 2  look 3  name 4  job 5  components 6  searching 6  buy 20  recharge 30  cat 15
0 Look
0 Message "[He jumps]  Oh!  Hello, there.  Sorry, you startled me!"
1 DoConvInput "Well, hmm... [He scratches his head]  I'm not sure about that one, sorry."
2 Message "Farewell."
0 BREAK
3 Look
0 GOTO 1
4 Message "My name is Tiayrad"
0 GOTO 1
5 Message "I am searching for components."
0 GOTO 1
6 Message "For my greatest creation!  You see, I have discovered the means to create extraplanar abodes!  That means... Oh, did I mention, I'm a wizard?  Well, anyway, right, extraplaner abodes... That means, you teleport to a small, safe pocket dimension.  That means... Well, never mind.  The point is, you use one of my wands and you go to your hidden home from anywhere you want!  But it requires a LOT of work and a LOT of rare components to make them.  So many components... [he mutters, looking a little flustered]  Anyway!  I've only made a few so far.  I keep the best one for myself and sell the rest."
0 CheckBFlag 3 4 1 21
0 Message "[He looks closely at you]  You know, you look like you can take care of yourself, maybe separated a few orcs from their gold or something, yes?  I'll admit, it's a little expensive, but I do have one left that I could sell to you, if you want.  Interested?"
0 AddKeyWords yes 7 no 8
0 GOTO 1
7 Message "Well, the wand ... I call it the 'Wand of the Planar Abode'.  'Wand of the Extraplanar Abode' would have been more accurate, but it is already SUCH a long name!  It doesn't need the EXTRA length!  Ha ha ha!  Actually, I usually just call it the 'Homestick'.  Get it?  If you ever get HOMESICK just use the HOMESTICK?  Ha ha ha!  Oh, and it even comes with... a little surprise.  [He grins]"
0 CMessage "Well, anyway, I'll sell you one for " -PRICE 3000
0 Message " gold.  Oh, and when you need to recharge it later, please come back and I'll do it for 100 gold.  Did I mention it has 3 charges?  I'm hoping my new ones will hold a few more, but I haven't got that figured out yet because... well, nevermind.  Anyway, I know that may seem a little expensive, but it takes a LOT of work to make one or even recharge one, plus, as you can see, searching for rare components.  So many components...  Oh yeah, and don't worry, they all go to different places, of course.  Kind of be a rude surprise to have everyone I sold these to end up in the same house, wouldn't it?  Ha ha ha!"
0 CMessage "Well, anyway, do you want it? "
0 Verify 9
0 Message "Well, all you have to do is let me know if you want to buy it later.  Unless someone else buys it first.  It takes a while to make each one, you know... So many components...  Well, I would still make another.  But it would be a good idea to buy this one now so you don't have to wait.  Unless I've made the next one by then... Well, you know what I mean."
0 GOTO 1
8 Message "No problem, they are pretty expensive, but its just that they take a LOT of work and a LOT of components... So many components... uh, well, anyway."
0 GOTO 1
9 Message "Great!  You'll love it!"
0 Pay 3000 1
0 GOTO 10
10 Message "Here it is!"
0 GiveItem 85
0 SetBFlag 3 4
0 GOTO 1
15 Message "Ha ha ha!  Yes, my little surprise.  Every home needs a cat, of course."
0 GOTO 1
20 CheckBFlag 3 4 1 21
0 Message "I knew you'd want one!"
0 GOTO 7
21 Message "Wait a minute, I recognize you!  I already sold you the only one I had left.  I could recharge it for you, though, if you want."
0 GOTO 1
30 CMessage "So recharging is 100 gold.  Is that ok? "
0 Verify 31
0 Message "Well, it is a LOT of work and a LOT of components... So many components... Uh, anyway... So that's why it costs so much.  That's ok, I know it is expensive.  Just come back if you change your mind."
0 GOTO 1
31 Pay 100 1 -EXACT -CHECKONLY
0 CheckItem 86 1 33
0 CheckItem 85 1 34
0 Message "Well, if you want to recharge one you'll have to bring it to me.  Kind of hard otherwise, right?  Ha ha ha!"
0 GOTO 1
33 TakeItem 86
0 GOTO 36
34 CCheckItem -CHARGES 85 == 3 35
0 TakeItem 85
0 GOTO 36
35 Message "Wait, wait, this one is already fully-charged!  I don't want to cheat you!"
0 GOTO 1
36 Pay 100 1 -EXACT
0 Message "[He takes the uncharged wand from you.  You wait around for quite a while as he performs a variety of magical incantations, pulling strange component after strange component from various pounches he is wearing.  The air around him grows more and more electric and your hair begins to stand up like lightning is about to strike.  Suddenly, there is a sharp crack and the wand flashes with a bright blue burst of energy, crackles a bit, and then fades back to normal.  Breathing and sweating a bit, he grins and hands the wand back to you.]  Fyew!  All done!  Now you see why it cost that much!  It's even more work creating one in the first place, takes weeks."
0 GiveItem 85
0 GOTO 1
