TILEMASTER2004 DATA V1
SCRIPT: 175
0 AddKeyWords bye 2  look 3  name 4  job 4  shipwright 5  standard 6  question* 7  sell 8  boat 10  portable 11  fishing 12  ship 14  warship 15  skiff 16  buy 20  supplies 30  craft 100  1 110  2 111  3 112  4 114  5 115  6 116  repair 200  emergency 300  cannon 301  balls 301  shattering 302  flame 303  plating 210  special 400  wand* 410  shield 410
0 Look
0 Message "Are you here to buy a craft or supplies?  Or do you need a repair or plating?  Oh, and just ask if you have any questions about the craft I sell."
1 DoConvInput "I cannot help with that."
2 Message "Farewell."
0 BREAK
3 Look
0 GOTO 1
4 Message "Fen, the shipwright, at your service."
0 GOTO 1
5 Message "Yep, that's what I do.  Let me know if you want to buy a craft or supplies, or if you need repairs or plating.  Also, let me know if you have any questions about the craft I sell."
0 AddKeyWords supplies 30
0 GOTO 1
6 Message "Boat or ship?"
0 GOTO 1
7 Message "Sure, what do you want to know about?"
0 GOTO 1
8 Message "Yeah, I sell various craft and supplies.  I also can do repairs or reinforce a ship with some plating."
0 AddKeyWords supplies 30
0 GOTO 1
10 Message "Yes, a relatively small craft that uses oars, great for fishing if you can't afford the larger one."
0 GOTO 1
11 Message "Ah, yes, the portable boat.  Very, very useful.  It isn't a pain in the neck to carry long distances like other craft and is light enough for one person to carry, so you can travel with it.  The main drawback is that it is not very sturdy."
0 GOTO 1
12 Message "That one is a small, unarmed sailing ship typically used for fishing."
0 GOTO 1
14 Message "That's the standard sailing ship used for all sorts of things, from merchant vessels to light warships.  Most pirates tend to use them, as well."
0 GOTO 1
15 Message "If you can afford it, I doubt you can find anything to sail that is more powerful."
0 GOTO 1
16 Message "The skiff is a small, outboard vessel for ships.  I'd recommend you purchase one for every ship you own.  They're not only useful for getting to land blocked by shallow water, but can save your life if your ship goes down.  By the way, to avoid any confusion I should mention that I've heard that the same name is used in some other lands for a totally different type of craft.  But this is what the name means here."
0 GOTO 1
20 Message "A craft or supplies?"
0 AddKeyWords supplies 30
0 GOTO 1
21 Message "Do you need a craft, supplies, or a repair?"
0 AddKeyWords supplies 30
0 GOTO 1
30 Message "What I've got are emergency repair supplies, cannon balls, Cannon Balls of Flame, and Cannon Balls of Shattering.  I've also got a few special items.  Which would you like?"
0 AddKeyWords supplies 300
0 GOTO 1
100 Message "Here's what I have.  And if you have any questions about these, please ask."
0 CMessage "1: Standard boat for " -PRICE 450 -NL
0 CMessage "2: Portable boat for " -PRICE 750 -NL
0 CMessage "3: Fishing boat (small, unarmed ship) for " -PRICE 1200 -NL
0 CMessage "4: Standard ship for " -PRICE 3000 -NL
0 CMessage "5: Warship for " -PRICE 6000 -NL
0 CMessage "6: Skiff for " -PRICE 600 -NL
0 Check CREDIT > 0 108
0 GOTO 1
102 Message "Enjoy your purchase."
0 GOTO 104
104 Message "That it?"
0 AddKeyWords yes 2 no 100
0 GOTO 1
105 Message "You'll find it at the docks, specifically the north pier.  Go out the door and head east until you reach the water, then head north until you reach the last pier.  It is docked near the end, to the north."
0 GOTO 104
106 Message "If I sold you that, it'd be down at the docks, but there's something in the way right now.  You'll have to come back later once that is cleared out."
0 GOTO 104
107 Message "Looks like you got your hands full right now with the one you have.  You should come back after you set that down."
0 GOTO 104
108 CMessage "And don't forget, you've already paid me " -CREDIT "." -NL
0 GOTO 1
110 CheckCollision EMPTY 45 7 106
0 Pay 450 104
0 MakeMapObj Vehicle 1 45 7
0 GOTO 105
111 CheckItem 40 1 107
0 Pay 750 104
0 GiveItem 40
0 GOTO 102
112 CheckCollision EMPTY 45 7 106
0 Pay 1200 104
0 MakeMapObj Vehicle 5 45 7
0 GOTO 105
114 CheckCollision EMPTY 45 7 106
0 Pay 3000 104
0 MakeMapObj Vehicle 2 45 7
0 GOTO 105
115 CheckCollision EMPTY 45 7 106
0 Pay 6000 104 -MPARTIAL "Hey, I know that's a lot of gold to carry at once.  Do you just want to pay %d now and bring me the rest later? "
0 MakeMapObj Vehicle 6 45 7
0 GOTO 105
116 CheckCollision EMPTY 45 7 106
0 Pay 600 104
0 MakeMapObj Vehicle 7 45 7
0 GOTO 105
200 Message "Which craft should I repair?"
0 Buy 8
0 Message "That it?"
0 AddKeyWords yes 2 no 200
0 GOTO 1
210 Message "I can reinforce a ship with some plating, but it is more expensive than a repair.  Oh, and make sure any damage is fixed first because I can't add plating when there's a big hole in the hull or something."
0 Message "Which ship should I reinforce?"
0 Buy 12
0 Message "That it?"
0 AddKeyWords yes 2 no 210
0 GOTO 1
300 CMessage "Sure, emergency repair supplies.  Since I've already got the facilities and tools, it's actually cheaper to have me fix it for you, but then again I can't come with you so if you're really beat up these could hold you together long enough to keep you from getting stranded somewhere.  Anyway, one unit costs " -PRICE 25 ".  "
0 SelectAmount 1 "How many do you want? "
0 Pay 25 1 -QMULT
0 AddKeyWords _GiveInv 321  _GiveCargo 331
0 GOTO 310
301 CMessage "Sure, cannon balls.  Each one of those is " -PRICE 10 ".  "
0 SelectAmount 1 "How many do you want? "
0 Pay 10 1 -QMULT
0 AddKeyWords _GiveInv 322  _GiveCargo 332
0 GOTO 310
302 CMessage "Ah, Cannon Balls of Shattering.  They are a little expensive, but worth it because when they land they shatter into many pieces and that causes more damage to your enemies.  Each one of those is " -PRICE 30 ".  "
0 SelectAmount 1 "How many do you want? "
0 Pay 30 1 -QMULT
0 AddKeyWords _GiveInv 323  _GiveCargo 333
0 GOTO 310
303 CMessage "Cannon Balls of Flame are set ablaze when they are fired so they can cause more damage to your target.  They are a little expensive, but worth it.  Each one of those is " -PRICE 20 ".  "
0 SelectAmount 1 "How many do you want? "
0 Pay 20 1 -QMULT
0 AddKeyWords _GiveInv 324  _GiveCargo 334
0 GOTO 310
310 PMessage "These are pretty heavy.  Do you want for me to have someone load them onto your ship or whatever for " -QMULT -PRICE 1 "? "
0 Verify 330
320 DoKeyWord _GiveInv
321 GiveItem 175 1 -QMULT
0 GOTO 329
322 GiveItem 245 1 -QMULT
0 GOTO 329
323 GiveItem 250 1 -QMULT
0 GOTO 329
324 GiveItem 251 1 -QMULT
329 Message "Here you go.  That it?"
0 GOTO 390
330 Pay 1 340 -QMULT
0 DoKeyWord _GiveCargo
331 GiveCargo 175 1 340 -QMULT
0 GOTO 339
332 GiveCargo 245 1 340 -QMULT
0 GOTO 339
333 GiveCargo 250 1 340 -QMULT
0 GOTO 339
334 GiveCargo 251 1 340 -QMULT
339 Message "Ok, I'll have those sent immediately.  That it?"
0 GOTO 390
340 Message "Well, in that case I'll just leave these with you."
0 GOTO 320
390 AddKeyWords yes 2 no 21
0 GOTO 1
400 M "I have a lot of contacts, so I get a chance to buy some special items every so often.  I buy those that are rare and useful whenever I get a chance so that I can offer them to my customers.  But since they are so rare and cost me a lot, the price is pretty high.  Still, they can really be worth having if you need them."
0 Pause
0 M "The type I currently have is a magic item called the Wand of Shield Vehicle.  It will protect your ship ... or boat, or whatever ... while you are away from it.  Do you want to hear more?"
0 Pause
0 AddKeyWords yes 410 no 491
0 GOTO 1
410 CM "These things are absolutely critical if you are not near a safe harbor and you have to leave your ship where you think something like a whirlpool or storm may sink it while you are gone." -NL "Anyway, they are " -PRICE 1000 " each.  Do you want to buy one?" -NL
0 AddKeyWords yes 411 no 491
0 GOTO 1
411 Pay 1000 490
0 GiveItem 243
0 GOTO 492
490 M "What else can I help you with?"
0 GOTO 1
491 CM "Sure.  "
0 GOTO P490
492 CM "Here you are.  "
0 GOTO P490
