As promised, here's the dialogue. Just plug in the appropriate file names. Feel free to change the variable names, prices, or whatever. I haven't tested it, obviously, but it shouldn't take too long to do that, once you've got the scripts, creatures, and store files in place.
/* You could put this guy either in Athkatla's city gates or Imnesvale. For Tutu/BGT, maybe in the courtyard of the FAI. He's a prospector who's had nothing but bad luck and thinks he might do better in another career. */
BEGIN ##WRANGL /* Swap ## for whatever prefix you're using for the mod */
IF ~NumTimesTalkedTo(0)~ THEN BEGIN w0
SAY ~Heya. Help a prospector who's down on his luck?~
++ ~Here's 5 gold. Get yourself a hot meal.~ + w1
++ ~What seems to be the trouble?~ + w2
++ ~Who are you?~ + w2
++ ~Forget it. I've had enough of beggars, thanks.~ + w1
END
IF ~~ w1
SAY ~I'm not begging. I just need a bit of a start, and there's something in it for you.~
++ ~I'm listening.~ + w2
++ ~'A bit of a start,' eh? What are you starting?~ + w2
++ ~You have nothing I want.~ + w3
END
IF ~~ w2
SAY ~The name's Stedd. I've been working the hills north of here, panning the streams, doing a bit of mining if I came across an abandoned claim, but my luck's run out. Haven't found a thing in months.~
= ~Now I've got this idea, and I know I can make it work, if only I had the coin to make some... acquisitions.~
= ~So, here I am, standing next to this fine, strong mule that I won't be needing anymore and you walk up with gear and bits of things sticking out every which way, looking like you could really use a pack animal. It's a sign, I tell you.~
++ ~Now that you mention it, I could use one. What are you asking?~ + w4
++ ~You just said that you won't be needing her anymore. Why don't you just give her to me?~ + w5
++ ~Thanks, but I'll carry my own gear. It builds character.~ + w6
++ ~Forget it.~ + w7
END
IF ~~ w3
SAY ~You're wrong there, my friend. I've got something you want very much. I'm standing here next to this fine, strong mule and you walk up with gear and bits of things sticking out every which way. Put the two together over a few coins and a handclasp and we both get what we want.~
++ ~Now that you mention it, I could use a pack animal. What are you asking?~ + w4
++ ~You just said that you won't be needing her anymore. Why don't you just give her to me?~ + w5
++ ~What's your idea of a few coins?~ + w4
++ ~Thanks, but I'll carry my own gear. It builds character.~ + w6
++ ~Forget it. I'm not interested now and I never will be.~ + w7
END
IF ~~ w4
SAY ~I'll let her go for 15,000 gold.~
+ ~PartyGoldGT(15,000)~ + ~Sold.~ DO ~TakePartyGold(15000)~ + w10
++ ~What makes you think you can charge all that for a mule?~ DO ~SetGlobal("B!PackMuleWrangler","GLOBAL",1)~ + w8
++ ~You don't want much, do you? I'll give you 100.~ DO ~SetGlobal("B!PackMuleWrangler","GLOBAL",1)~ + w8
++ ~Whoa, that's too rich for me.~ DO ~SetGlobal("B!PackMuleWrangler","GLOBAL",1)~ + w8
++ ~You're mad! I won't buy her at any price.~ + w7
END
IF ~~ w5
SAY ~I'd like to help you out, but I need gold to start my new venture.~
IF ~~ THEN + w4
END
IF ~~ w6
SAY ~It builds backaches, is what it does. Won't you at least hear my pitch?~
++ ~Oh, alright.~ + w4
++ ~I don't have the gold to spare right now. Are you going to be around for a while?~ + w9
++ ~I said 'no' and I meant 'no.' I am not buying your mule.~ + w7
END
IF ~~ w7
SAY ~Ah, well, it was worth a shot, but it looks like this town has it out for me. I s'pose I'd better try somewhere else. Farewell.~
IF ~~ THEN DO ~EscapeArea()~ EXIT
END
IF ~~ w8
SAY ~Alright, maybe that is a bit steep. How's 12,000 gold strike you?~
+ ~Gender(LastTalkedToBy(),MALE) CheckStatGT(LastTalkedToBy(),18,CHR) PartyGoldGT(200)~ + ~Does she come with a dancing girl and a camp cook? Because that's what I'd expect for all that gold. I'll give you 200.~ DO ~TakePartyGold(200)~ + w10
+ ~Gender(LastTalkedToBy(),FEMALE) CheckStatGT(LastTalkedToBy(),18,CHR) PartyGoldGT(200)~ + ~Does she come with a personal body servant and a camp cook? Because that's what I'd expect for all that gold I'll give you 200.~ DO ~TakePartyGold(200)~ + w10
+ ~Gender(LastTalkedToBy(),MALE) !CheckStatGT(LastTalkedToBy(),18,CHR)~ + ~Does she come with a dancing girl and a camp cook? Because that's what I'd expect for all that gold. I'll give you 200.~ DO ~SetGlobal("B!PackMuleWrangler","GLOBAL",2)~ + w11
+ ~Gender(LastTalkedToBy(),FEMALE) !CheckStatGT(LastTalkedToBy(),18,CHR)~ + ~Does she come with a personal body servant and a camp cook? Because that's what I'd expect for all that gold I'll give you 200.~ DO ~SetGlobal("B!PackMuleWrangler","GLOBAL",2)~ + w11
+ ~CheckStatGT(LastTalkedToBy(),16,CHR) PartyGoldGT(500)~ + ~That's still too high. Make it 500 gold and I'll take her.~ DO ~TakePartyGold(500)~ + w10
+ ~!CheckStatGT(LastTalkedToBy(),16,CHR)~ + ~That's still too high. Make it 500 gold and I'll take her. SetGlobal("B!PackMuleWrangler","GLOBAL",2)~ + w11
+ ~PartyGoldGT(12000)~ + ~I guess that will do. I'll take her.~ DO ~TakePartyGold(12000)~ + w10
++ ~I don't have that much coin on me. Are you going to be here for a while?~ DO ~SetGlobal("B!PackMuleWrangler","GLOBAL",1)~ + w9
++ ~If you're going to insult me with these outrageous prices, you can take your mule and go.~ + w7
END
IF ~~ w9
SAY ~Aye, I reckon I'll be around for a while, if you change your mind.~
IF ~~ THEN EXIT
END
IF ~~ w10 /* Replace the creature code as appropriate */
SAY ~You've bought yourself a mule. Come on, Arveene, come out and meet your new friend. And if you'll excuse me, I've got some business to take care of.~
IF ~~ THEN DO ~CreateCreatureObjectOffset("##mule",LastTalkedToBy(),[10.10])~ EXIT
END
IF ~~ w11
SAY ~Be reasonable, my friend, she's a highly trained animal. She'll follow you anywhere, even into tunnels. You don't find mules like her every day! We'll make it 10,000 gold, alright?~
+ ~CheckStatGT(LastTalkedToBy(),16,CHR) PartyGoldGT(1000)~ + ~I don't care if she brays the Amnish anthem, it's still too much. I'll give you 1000, and that's being generous.~ DO ~TakePartyGold(1000)~ + w10
+ ~!CheckStatGT(LastTalkedToBy(),16,CHR)~ + ~I don't care if she brays the Amnish anthem, it's still too much. I'll give you 1000, and that's being generous.~ DO ~SetGlobal("B!PackMuleWrangler","GLOBAL",3)~ + w12
+ ~CheckStatGT(LastTalkedToBy(),14,CHR) PartyGoldGT(2000)~ + ~That is worth a bit more gold, I'll grant you that. I'll go as high as 2000 gold.~ DO ~TakePartyGold(2000)~ + w10
+ ~!CheckStatGT(LastTalkedToBy(),14,CHR)~ + ~That is worth a bit more gold, I'll grant you that. I'll go as high as 2000 gold.~ DO ~SetGlobal("B!PackMuleWrangler","GLOBAL",3)~ + w12
+ ~CheckStatGT(LastTalkedToBy(),10,CHR) PartyGoldGT(7500)~ + ~You know we're going to wind up meeting in the middle. Let's save ourselves a bit of a haggle and just agree on 7500 gp.~ DO ~TakePartyGold(7500)~ + w10
+ ~!CheckStatGT(LastTalkedToBy(),10,CHR)~ + ~You know we're going to wind up meeting in the middle. Let's save ourselves a bit of a haggle and just agree on 7500 gp.~ DO ~SetGlobal("B!PackMuleWrangler","GLOBAL",3)~ + w13
+ ~PartyGoldGT(10000)~ + ~That sounds fair. We have a deal.~ DO ~TakePartyGold(10000)~ + w10
++ ~I don't have that much coin on me. Are you going to be here for a while?~ DO ~SetGlobal("B!PackMuleWrangler","GLOBAL",1)~ + w9
++ ~I didn't want her for 15,000, I don't want her for 10,000 and I won't want her for 1000, either, so you can take your mule and go.~ + w7
END
IF ~~ w12
SAY ~I can get more than that from the butchers, and that would be a crime. Look how strong she is! She carries everything I give her, and she'll still be rested and ready to go when you're dead on your feet. But hey, maybe you're down on your luck, too. I might let you have her for 9,000 gp.~
+ ~CheckStatGT(LastTalkedToBy(),14,CHR) PartyGoldGT(3000)~ + ~That's a little better, but it's still too much. I'll go as high as 3,000 gp.~ DO ~TakePartyGold(1000)~ + w10
+ ~!CheckStatGT(LastTalkedToBy(),14,CHR)~ + ~That's a little better, but it's still too much. I'll go as high as 3,000 gp.~ DO ~SetGlobal("B!PackMuleWrangler","GLOBAL",4)~ + w13
+ ~CheckStatGT(LastTalkedToBy(),12,CHR) PartyGoldGT(5000)~ + ~I'll go as high as 5,000 gold, no more.~ DO ~TakePartyGold(2000)~ + w10
+ ~!CheckStatGT(LastTalkedToBy(),12,CHR)~ + ~I'll go as high as 5,000 gold, no more.~ DO ~SetGlobal("B!PackMuleWrangler","GLOBAL",4)~ + w13
+ ~PartyGoldGT(9000)~ + ~That sounds fair. We have a deal.~ DO ~TakePartyGold(9000)~ + w10
++ ~I don't have that much coin on me. Are you going to be here for a while?~ DO ~SetGlobal("B!PackMuleWrangler","GLOBAL",4)~ + w9
++ ~I'm out of patience. Take your mule and go.~ + w7
END
IF ~~ w13
SAY ~It's a wrench, letting her go for so little, but I'll let her go for 8,000 gold pieces. I'm sorry, but I really can't part with her for anything less than that.~
+ ~CheckStatGT(LastTalkedToBy(),12,CHR) PartyGoldGT(6000)~ + ~I'll give you 6,000 gp for her, and that's my final offer.~ DO ~TakePartyGold(6000)~ + w10
+ ~!CheckStatGT(LastTalkedToBy(),12,CHR)~ + ~I'll give you 6,000 gp for her, and that's my final offer.~ DO ~SetGlobal("B!PackMuleWrangler","GLOBAL",5)~ + w14
+ ~PartyGoldGT(8000)~ + ~That sounds fair. We have a deal.~ DO ~TakePartyGold(8000)~ + w10
++ ~I don't have that much coin on me. Are you going to be here for a while?~ DO ~SetGlobal("B!PackMuleWrangler","GLOBAL",5)~ + w9
++ ~Forget it. Take your mule and go.~ + w7
END
IF ~~ w14
SAY ~I'm sorry, I really am, but I won't go any lower than 8,000 gp.~
+ ~PartyGoldGT(8000)~ + ~Alright, if that's the way you want to be. Here's your gold.~ DO ~TakePartyGold(8000)~ + w10
++ ~I don't have that much coin on me. Are you going to be here for a while?~ + w9
++ ~Forget it. Take your mule and go.~ + w7
END
IF ~NumTimesTalkedToGT(0)~ THEN BEGIN w15
SAY ~Hello again! Come back to talk about Arveene? Finest pack mule in Faerun!~
+ ~Global("B!PackMuleWrangler","GLOBAL",1) PartyGoldGT(12000)~ + ~Aye. Last time I was here, you were asking 15,000 gp for her. I'll give you 12,000, but no more.~ DO ~TakePartyGold(12000)~ + w10
+ ~Global("B!PackMuleWrangler","GLOBAL",2) PartyGoldGT(10000)~ + ~Aye. Last time I was here, you were asking 12,000 gp for her. I'll give you 10,000, but no more.~ DO ~TakePartyGold(10000)~ + w10
+ ~Global("B!PackMuleWrangler","GLOBAL",3) PartyGoldGT(8000)~ + ~Aye. Last time I was here, you were asking 10,000 gp for her. I'll give you 8,000 gp, but no more.~ DO ~TakePartyGold(8000)~ + w10
+ ~Global("B!PackMuleWrangler","GLOBAL",4) PartyGoldGT(7000)~ + ~Aye. Last time I was here, you were asking 9,000 for her. I'll give you 7,000 gp, but no more.~ DO ~TakePartyGold(7000)~ + w10
+ ~Global("B!PackMuleWrangler","GLOBAL",5) PartyGoldGT(6000)~ + ~Aye. Last time I was here, you were asking 8,000 for her. I'll give you 6,000 gp, but no more.~ DO ~TakePartyGold(6000)~ + w10
++ ~No, I just wanted to see if she was still for sale.~ + w9
END
Edited by berelinde, 20 June 2010 - 02:43 PM.