// creator  : weidu.exe (version 23600)
// argument : CHARLE.DLG
// game     : .
// source   : ./override/CHARLE.DLG
// dialog   : lang\en_us/dialog.tlk
// dialogF  : (none)

BEGIN ~CHARLE~
//////////////////////////////////////////////////
// WARNING: this file contains non-trivial WEIGHTs
//////////////////////////////////////////////////

IF WEIGHT #1 /* Triggers after states #: 22 even though they appear after this state */
~  NumberOfTimesTalkedTo(0)
~ THEN BEGIN 0 // from:
  SAY #8538 /* ~Put yer backs to those shovels, men! If she's not out tonight we'll lose 'er to the bandito scum!~ */
  IF ~~ THEN GOTO 1
  IF ~Global("X#KAWTFTS","GLOBAL",0)
InParty("kivan")
InMyArea("kivan")
!StateCheck("kivan",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#KAWTFTS","GLOBAL",1)~ EXTERN ~KIVANJ~ 226
END

IF ~~ THEN BEGIN 1 // from: 0.0
  SAY #8539 /* ~You there! State your business, but don't move from where you stand! I don't want to have to sic the boys on you!~ */
  IF ~  ReactionGT(LastTalkedToBy,HOSTILE_UPPER)
~ THEN REPLY #8562 /* ~Stay your wrath, we are just passing through and mean you no harm!~ */ GOTO 2
  IF ~  ReactionLT(LastTalkedToBy,NEUTRAL_LOWER)
~ THEN REPLY #8563 /* ~Stay your wrath, we are just passing through! I have no time to stop.~ */ GOTO 3
  IF ~  CheckStatGT(LastTalkedToBy,14,STR)
~ THEN REPLY #8564 /* ~You look to be nothing more than rabble tomb robbers! I think you had best put your weapons down!~ */ GOTO 4
  IF ~  CheckStatLT(LastTalkedToBy,15,STR)
~ THEN REPLY #8565 /* ~You look to be nothing more than rabble tomb robbers! I think you had best put your weapons down!~ */ GOTO 5
  IF ~  ReactionLT(LastTalkedToBy,NEUTRAL_LOWER)
~ THEN REPLY #8566 /* ~Relax, we mean no harm to ye. Have ye had much trouble?~ */ GOTO 6
  IF ~  ReactionGT(LastTalkedToBy,HOSTILE_UPPER)
~ THEN REPLY #8567 /* ~Relax, we mean no harm to ye. Have ye had much trouble?~ */ GOTO 7
END

IF ~~ THEN BEGIN 2 // from: 1.0
  SAY #8540 /* ~No? Good then. Sorry for the rough greeting, but it has surely been slow digging with bandits harassing us nightly. Charleston Nib, at your service.~ */
  IF ~~ THEN REPLY #8568 /* ~Well met sir. What exactly is your goal here? You look to be excavating a tomb of sorts.~ */ GOTO 8
  IF ~~ THEN REPLY #8569 /* ~Apology noted, though not accepted. I do not take kindly to being threatened. Good day.~ */ GOTO 9
  IF ~~ THEN REPLY #8570 /* ~Wary of bandits, are you? Must be digging up something pretty valuable, eh? Looting an old tomb perhaps?~ */ GOTO 10
END

IF ~~ THEN BEGIN 3 // from: 1.1
  SAY #8541 /* ~Then stay your course and continue on! We don't want an audience!~ */
  IF ~~ THEN DO ~SetGlobal("CharlestonMoved","GLOBAL",1)
CreateCreature("GALLOR",[3077.1261],S)
ActionOverride("Gallor",MoveToPoint([3069.1315]))
MoveToPoint([3077.1261])
~ EXIT
END

IF ~~ THEN BEGIN 4 // from: 1.2
  SAY #8542 /* ~Well, if you put it like that... drop your weapons, boys. We don't want any dying here today. The dig is important, but it's not worth our lives. What do you thieving scum intend for us now?~ */
  IF ~~ THEN REPLY #8571 /* ~Now that you are disarmed, we can talk civilized. I'm no thief, and I'm certainly no friend of any bandits! Maybe I can be of some help to you. Have you been having much trouble?~ */ GOTO 6
  IF ~~ THEN REPLY #8572 /* ~I have no wish to harm any of you, but you are obviously guarding something valuable. I suggest you hand it over, along with any gold on your persons.~ */ GOTO 11
  IF ~~ THEN REPLY #8573 /* ~I intend to simply move on. I only wished to see you humbled, since your greeting was so rude. Goodbye.~ */ GOTO 9
END

IF ~~ THEN BEGIN 5 // from: 1.3
  SAY #8543 /* ~Big words, but I don't think ye have the muscle to back them up! We've many a strong back here, and I think we know enough to take care of the likes of you!~ */
  IF ~~ THEN REPLY #8574 /* ~Whoa there! I didn't want to cause any trouble! Let's all put our weapons down and talk about this! Perhaps I can help with your problem!~ */ GOTO 6
  IF ~~ THEN REPLY #8575 /* ~Whoa there! I didn't want to cause any trouble! Let's all put our weapons down and talk about this!~ */ GOTO 10
  IF ~~ THEN REPLY #8576 /* ~So be it! We'll run you all through and take what we wish!~ */ GOTO 13
  IF ~~ THEN REPLY #8577 /* ~I've no wish to fight you. Perhaps it would be best if we just left.~ */ GOTO 12
END

IF ~~ THEN BEGIN 6 // from: 5.0 4.0 1.4
  SAY #8544 /* ~Our trouble is no concern of yours... though if you must know, yes. Hm... would you perhaps be mercenaries? If you wish to earn an honest coin, mayhaps you would help guard our placement. We need only keep it secure a while longer, as we near the goal of our search.~ */
  IF ~~ THEN REPLY #8578 /* ~I am NO mercenary! Your offer is an insult! Goodbye!~ */ GOTO 9
  IF ~~ THEN REPLY #8579 /* ~What is the object of your search? Can there be anything of value in such a decrepit ruin? Seems little more than an abandoned tomb.~ */ GOTO 8
  IF ~~ THEN REPLY #8580 /* ~I'm always on the lookout for a bit o' spare cash. How much are we talking about?~ */ GOTO 14
END

IF ~~ THEN BEGIN 7 // from: 1.5
  SAY #8545 /* ~Have we? Aye, and plenty of it. Nary an eve goes by without us losing another hand to the night. I swear, if we could just get a few moments of uninterrupted digging done... say, you wouldn't be willing to do a little service for me, would you? You could do a lot worse than working for ol' Charleston Nib.~ */
  IF ~~ THEN REPLY #8581 /* ~I've no interest in doing you any favors... but if the price was right I might be "persuaded."
~ */ GOTO 14
  IF ~~ THEN REPLY #8582 /* ~I would like to know just what I would be protecting. What are you doing here? Looks to be glorified grave robbing in nothing but a decrepit tomb.~ */ GOTO 8
  IF ~~ THEN REPLY #8583 /* ~I'll not aid any two-bit tomb-robbers!~ */ GOTO 9
END

IF ~~ THEN BEGIN 8 // from: 7.1 6.1 2.0
  SAY #8546 /* ~You are partially right, though it's not a tomb, but an ancient settlement. It is also all that remains of a primitive race long since extinct, and we know little about their culture save that they seem to have destroyed themselves in war. Perhaps today we will learn something more. We are just about to break through into an inner chamber, perhaps the dwelling of the village shaman himself. Mayhaps you could be of assistance to us? We need but keep the camp secure a short while longer. Your very presence would probably dissuade anyone from attacking us, though I do not know the force behind our misfortune. They seem to take great pleasure in minor sabotage and kidnapping, though some of the missing men may have just run off from fear. Nothing is ever stolen, which is odd for bandits, but they must still be the cause. Will you help us?~ */
  IF ~~ THEN REPLY #8584 /* ~It would be an honor to help you learned people in your quest for knowledge.~ */ GOTO 15
  IF ~~ THEN REPLY #8585 /* ~What would be in it for me? Knowledge is well and good, but I have bills to pay.~ */ GOTO 14
  IF ~~ THEN REPLY #8586 /* ~Sorry, but I see very little here to interest me. My time is best spent elsewhere.~ */ GOTO 9
END

IF ~~ THEN BEGIN 9 // from: 16.1 14.1 14.0 8.2 7.2 6.0 4.2 2.1
  SAY #8547 /* ~No need to be that way. Off you go then, and let us get about our work.~ */
  IF ~~ THEN DO ~SetGlobal("CharlestonMoved","GLOBAL",1)
CreateCreature("GALLOR",[3077.1261],S)
ActionOverride("Gallor",MoveToPoint([3069.1315]))
MoveToPoint([3077.1261])
~ EXIT
END

IF ~~ THEN BEGIN 10 // from: 5.1 2.2
  SAY #8548 /* ~I dare say that what we are attempting here is more than mere looting! It's a quest for knowledge and history and if you have no appreciation for such things, I would suggest you leave as soon as possible. You will find little here to please your mercenary sensibilities.~ */
  IF ~~ THEN DO ~SetGlobal("CharlestonMoved","GLOBAL",1)
CreateCreature("GALLOR",[3077.1261],S)
ActionOverride("Gallor",MoveToPoint([3069.1315]))
MoveToPoint([3077.1261])
~ EXIT
END

IF ~~ THEN BEGIN 11 // from: 4.1
  SAY #8549 /* ~A common criminal! Fine! Collect what e'er gold you can off us, but 'tis certain to be very little. We've restocked the camp thrice over because of sabotage, so we've no great wealth here. As for what we are guarding, we've no idea what we are to find; neither does it matter to us whether it's valuable or not. We are on a quest for knowledge. Move along now that you have your petty earnings. Leave us to our toil.~ */
  IF ~~ THEN DO ~SetGlobal("CharlestonMoved","GLOBAL",1)
CreateCreature("GALLOR",[3077.1261],S)
ActionOverride("Gallor",MoveToPoint([3069.1315]))
MoveToPoint([3077.1261])
~ EXIT
END

IF ~~ THEN BEGIN 12 // from: 5.3
  SAY #8550 /* ~Aye! Scurry back under what e'er rock you crawled out from! Leave us to our honest work!~ */
  IF ~~ THEN DO ~SetGlobal("CharlestonMoved","GLOBAL",1)
CreateCreature("GALLOR",[3077.1261],S)
ActionOverride("Gallor",MoveToPoint([3069.1315]))
MoveToPoint([3077.1261])
~ EXIT
END

IF ~~ THEN BEGIN 13 // from: 5.2
  SAY #8551 /* ~Have at them, men! Drive off these fools!~ */
  IF ~~ THEN DO ~Shout(99)
EscapeArea()
~ EXIT
END

IF ~~ THEN BEGIN 14 // from: 8.1 7.0 6.2
  SAY #8552 /* ~We have little to offer, but would 50 gold suffice? It's all we can give, what with having to restock our camp thrice over. Damnable saboteurs! Your mere presence may be enough to discourage our mystery assailants. Are ye up for it? It would only be for a short while.~ */
  IF ~  CheckStatLT(LastTalkedToBy,9,STR)
~ THEN REPLY #8587 /* ~Such paltry coin is not worth my time! Raise your offer or I am leaving!~ */ GOTO 9
  IF ~~ THEN REPLY #8589 /* ~I have changed my mind. Keep your problems and your dig. I am leaving.~ */ GOTO 9
  IF ~~ THEN REPLY #8590 /* ~An acceptable wage for potentially doing nothing. Continue your work and I shall keep watch.~ */ DO ~SetGlobal("CharlestonPay","GLOBAL",50)
~ GOTO 15
  IF ~  CheckStatGT(LastTalkedToBy,8,STR)
~ THEN REPLY #8588 /* ~Such paltry coin is not worth my time! Raise your offer or I am leaving!~ */ GOTO 16
END

IF ~~ THEN BEGIN 15 // from: 16.0 14.2 8.0
  SAY #8553 /* ~Gracious we are! Now we stand a chance of completing the most exciting day of our dig! We're going to try for an entire new room today, possibly the shaman or chieftain quarters! We could find any number of relics within. Move amongst the men as you will, as your presence will no doubt reassure them.~ */
  IF ~~ THEN DO ~SetGlobal("HelpCharleston","GLOBAL",1)
SetGlobal("CharlestonMoved","GLOBAL",1)
CreateCreature("GALLOR",[3077.1261],S)
ActionOverride("Gallor",MoveToPoint([3069.1315]))
MoveToPoint([3077.1261])
~ EXIT
END

IF ~~ THEN BEGIN 16 // from: 14.3
  SAY #8554 /* ~But... as you wish. Perhaps we can scrape another 50 gold together, but it means that we MUST be done today. Is 100 gold total satisfactory?~ */
  IF ~~ THEN REPLY #8591 /* ~An acceptable price for potentially doing nothing. Continue your work and I shall keep watch.~ */ DO ~SetGlobal("CharlestonPay","GLOBAL",100)
~ GOTO 15
  IF ~~ THEN REPLY #8592 /* ~I have changed my mind. Keep your problems and your dig. I am leaving.~ */ GOTO 9
END

IF WEIGHT #2 /* Triggers after states #: 22 even though they appear after this state */
~  Global("CharlestonMoved","GLOBAL",1)
Global("HelpCharleston","GLOBAL",1)
~ THEN BEGIN 17 // from:
  SAY #8555 /* ~Success! We are about to enter the last remaining room! It's sure to be the shaman's abode!~ */
  IF ~~ THEN DO ~SetGlobal("CharlestonMoved","GLOBAL",2)
ClearAllActions()
FadeToColor([20.0],0)
StartCutScene("Digcut01")
~ EXIT
END

IF ~~ THEN BEGIN 18 // from:
  SAY #8556 /* ~A good question young man. I would guess that we are the first people to walk this room in nearly 5,000 years. The very gods of Netheril would have been young at that time.~ */
  IF ~~ THEN EXTERN ~DIGGER~ 7
END

IF WEIGHT #3 /* Triggers after states #: 22 even though they appear after this state */
~  NumDeadGT("CharleDig",5)
PartyHasItem("MISC48")
Global("TalkedToCharleston","GLOBAL",1)
~ THEN BEGIN 19 // from:
  SAY #8558 /* ~I... I think I can explain the madness that overcame my men. They seemed to scream in some ancient tongues, but I recognize the word "Kozah." It's the name of an ancient power, the name of a god of Pandemonium. The tribe that lived here must have worshipped Kozah and the destruction he brought. The artifact that lies within this stone sarcophagus must be what has caused all of this bloodshed. Surely that artifact is cursed beyond belief! We should let it lie within this tomb forever. It's best that it never see the light of day.~ */
  IF ~~ THEN DO ~SetGlobal("TalkedToCharleston","GLOBAL",2)
~ GOTO 21
  IF ~Global("X#CHARLE19","GLOBAL",0)
InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#CHARLE19","GLOBAL",1)~ GOTO 25
  IF ~Global("X#CHARLE19","GLOBAL",0)
InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#CHARLE19","GLOBAL",1)~ EXTERN ~IMOEN2~ 477
  IF ~Global("X#CHARLE19","GLOBAL",0)
InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#CHARLE19","GLOBAL",1)~ GOTO 27
  IF ~Global("X#CHARLE19","GLOBAL",0)
InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#CHARLE19","GLOBAL",1)~ EXTERN ~IMOEN2~ 479
  IF ~Global("X#CHARLE19","GLOBAL",0)
InParty("sharteel")
InMyArea("sharteel")
!StateCheck("sharteel",CD_STATE_NOTVALID)
Global("X#SharGallor","GLOBAL",1)
~ THEN DO ~SetGlobal("X#CHARLE19","GLOBAL",1)~ EXTERN ~SHARTJ~ 199
  IF ~Global("X#CHARLE19","GLOBAL",0)
InParty("sharteel")
InMyArea("sharteel")
!StateCheck("sharteel",CD_STATE_NOTVALID)
Global("X#SharGallor","GLOBAL",1)
~ THEN DO ~SetGlobal("X#CHARLE19","GLOBAL",1)~ EXTERN ~SHARTJ~ 200
END

IF WEIGHT #4 /* Triggers after states #: 22 even though they appear after this state */
~  NumDeadGT("CharleDig",5)
!PartyHasItem("MISC48")
Global("TalkedToCharleston","GLOBAL",1)
~ THEN BEGIN 20 // from:
  SAY #8559 /* ~I... I think I can explain the madness that overcame my men. They seemed to scream in some ancient tongues, but I recognize the word "Kozah." It's the name of an ancient power, the name of a god of Pandemonium. The tribe that lived here must have worshipped Kozah and the destruction he brought. The artifact that lies within this stone sarcophagus must be what has caused all of this bloodshed. Surely that artifact is cursed beyond belief! Please make sure it is within its proper place and we will seal the entrance. It's best that it never sees the light of day.~ */
  IF ~~ THEN DO ~SetGlobal("TalkedToCharleston","GLOBAL",2)
~ GOTO 21
  IF ~Global("X#CHARLE20","GLOBAL",0)
InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#CHARLE20","GLOBAL",1)~ GOTO 35
  IF ~Global("X#CHARLE20","GLOBAL",0)
InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#CHARLE20","GLOBAL",1)~ EXTERN ~IMOEN2~ 485
  IF ~Global("X#CHARLE20","GLOBAL",0)
InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#CHARLE20","GLOBAL",1)~ GOTO 37
  IF ~Global("X#CHARLE20","GLOBAL",0)
InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#CHARLE20","GLOBAL",1)~ EXTERN ~IMOEN2~ 487
  IF ~Global("X#CHARLE20","GLOBAL",0)
InParty("sharteel")
InMyArea("sharteel")
!StateCheck("sharteel",CD_STATE_NOTVALID)
Global("X#GALLOR5","GLOBAL",1)
~ THEN DO ~SetGlobal("X#CHARLE20","GLOBAL",1)~ EXTERN ~SHARTJ~ 202
  IF ~Global("X#CHARLE20","GLOBAL",0)
InParty("sharteel")
InMyArea("sharteel")
!StateCheck("sharteel",CD_STATE_NOTVALID)
Global("X#GALLOR5","GLOBAL",1)
~ THEN DO ~SetGlobal("X#CHARLE20","GLOBAL",1)~ EXTERN ~SHARTJ~ 203
END

IF ~~ THEN BEGIN 21 // from: 44.0 43.0 42.0 41.0 40.0 39.0 38.0 37.0 36.0 35.0 34.0 33.0 32.0 31.0 30.0 29.0 28.0 27.0 26.0 25.0 20.0 19.0
  SAY #8560 /* ~It's sad, really. I had sought to bring a little life back to a long extinct people, and look what I wrought. Certainly some things are better off remaining dead. Here is your pay for the time you have spent here. Your services are no longer required. Everyone pack up! We are leaving this accursed place!~ */
  IF ~  Global("HelpGallor","GLOBAL",0)
~ THEN REPLY #31817 /* ~Yes, we should leave. You should watch out for your partner, Gallor. He wanted me to kill you so he could profit from your find. Tread carefully.~ */ DO ~GivePartyGoldGlobal("CharlestonPay","GLOBAL")
AddexperienceParty(1000)
ReputationInc(1)
EscapeArea()
~ EXIT
  IF ~  Global("HelpGallor","GLOBAL",0)
~ THEN REPLY #31818 /* ~Best of luck to you.~ */ DO ~GivePartyGoldGlobal("CharlestonPay","GLOBAL")
AddexperienceParty(1000)
ReputationInc(1)
EscapeArea()
~ EXIT
  IF ~  Global("HelpGallor","GLOBAL",1)
~ THEN REPLY #31819 /* ~This accursed place shall be your final resting place. Die!~ */ DO ~Enemy()
~ EXIT
  IF ~  Global("HelpGallor","GLOBAL",1)
~ THEN REPLY #31820 /* ~Yes, we should leave. You should watch out for Gallor. He hired me to kill you, but enough blood has been spilled this day.~ */ DO ~SetGlobal("BetrayGallor","GLOBAL",1)
GivePartyGoldGlobal("CharlestonPay","GLOBAL")
AddexperienceParty(1000)
EscapeArea()
~ EXIT
END

IF WEIGHT #0 ~  StateCheck(Myself,STATE_CHARMED)
~ THEN BEGIN 22 // from:
  SAY #8953 /* ~I've little to say, and less time to say it. All I'm looking for is some clue to the origins of the people that once lived here. We must know our history, lest we are doomed to repeat it. I must go now.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 23 // from:
  SAY #8954 /* ~Not to be rude, but I'd rather you left immediately.~ */
  IF ~~ THEN EXIT
END

IF WEIGHT #5 ~  Global("CharlestonMoved","GLOBAL",1)
Global("HelpCharleston","GLOBAL",0)
~ THEN BEGIN 24 // from:
  SAY #1211 /* ~What are you doing here?! We are about to enter the last remaining room, and I don't want the likes of you around when we make our discovery.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 25 // from: 19.1
  SAY #50304 /* ~I am unable to answer your question. We know little of this culture, and that is why I was doing research. I doubt that I would ever have an answer for you, Imoen.~ */
  IF ~~ THEN DO ~SetGlobal("TalkedToCharleston","GLOBAL",2)
~ GOTO 21
END

IF ~~ THEN BEGIN 26 // from:
  SAY #50304 /* ~I am unable to answer your question. We know little of this culture, and that is why I was doing research. I doubt that I would ever have an answer for you, Imoen.~ */
  IF ~~ THEN DO ~SetGlobal("TalkedToCharleston","GLOBAL",2)
~ GOTO 21
END

IF ~~ THEN BEGIN 27 // from: 19.3
  SAY #50302 /* ~Yes. Basically you're right. What of it?~ */
  IF ~~ THEN DO ~SetGlobal("TalkedToCharleston","GLOBAL",2)
~ GOTO 21
  IF ~  InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN GOTO 28
  IF ~  InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN EXTERN ~IMOEN2~ 478
END

IF ~~ THEN BEGIN 28 // from: 27.1
  SAY #50304 /* ~I am unable to answer your question. We know little of this culture, and that is why I was doing research. I doubt that I would ever have an answer for you, Imoen.~ */
  IF ~~ THEN DO ~SetGlobal("TalkedToCharleston","GLOBAL",2)
~ GOTO 21
END

IF ~~ THEN BEGIN 29 // from:
  SAY #50302 /* ~Yes. Basically you're right. What of it?~ */
  IF ~~ THEN DO ~SetGlobal("TalkedToCharleston","GLOBAL",2)
~ GOTO 21
  IF ~  InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN GOTO 30
  IF ~  InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN EXTERN ~IMOEN2~ 480
END

IF ~~ THEN BEGIN 30 // from: 29.1
  SAY #50304 /* ~I am unable to answer your question. We know little of this culture, and that is why I was doing research. I doubt that I would ever have an answer for you, Imoen.~ */
  IF ~~ THEN DO ~SetGlobal("TalkedToCharleston","GLOBAL",2)
~ GOTO 21
END

IF ~~ THEN BEGIN 31 // from:
  SAY #50302 /* ~Yes. Basically you're right. What of it?~ */
  IF ~~ THEN DO ~SetGlobal("TalkedToCharleston","GLOBAL",2)
~ GOTO 21
  IF ~  InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN GOTO 32
  IF ~  InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN EXTERN ~IMOEN2~ 482
END

IF ~~ THEN BEGIN 32 // from: 31.1
  SAY #50304 /* ~I am unable to answer your question. We know little of this culture, and that is why I was doing research. I doubt that I would ever have an answer for you, Imoen.~ */
  IF ~~ THEN DO ~SetGlobal("TalkedToCharleston","GLOBAL",2)
~ GOTO 21
END

IF ~~ THEN BEGIN 33 // from:
  SAY #50302 /* ~Yes. Basically you're right. What of it?~ */
  IF ~~ THEN DO ~SetGlobal("TalkedToCharleston","GLOBAL",2)
~ GOTO 21
  IF ~  InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN GOTO 34
  IF ~  InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN EXTERN ~IMOEN2~ 484
END

IF ~~ THEN BEGIN 34 // from: 33.1
  SAY #50304 /* ~I am unable to answer your question. We know little of this culture, and that is why I was doing research. I doubt that I would ever have an answer for you, Imoen.~ */
  IF ~~ THEN DO ~SetGlobal("TalkedToCharleston","GLOBAL",2)
~ GOTO 21
END

IF ~~ THEN BEGIN 35 // from: 20.1
  SAY #50304 /* ~I am unable to answer your question. We know little of this culture, and that is why I was doing research. I doubt that I would ever have an answer for you, Imoen.~ */
  IF ~~ THEN DO ~SetGlobal("TalkedToCharleston","GLOBAL",2)
~ GOTO 21
END

IF ~~ THEN BEGIN 36 // from:
  SAY #50304 /* ~I am unable to answer your question. We know little of this culture, and that is why I was doing research. I doubt that I would ever have an answer for you, Imoen.~ */
  IF ~~ THEN DO ~SetGlobal("TalkedToCharleston","GLOBAL",2)
~ GOTO 21
END

IF ~~ THEN BEGIN 37 // from: 20.3
  SAY #50302 /* ~Yes. Basically you're right. What of it?~ */
  IF ~~ THEN DO ~SetGlobal("TalkedToCharleston","GLOBAL",2)
~ GOTO 21
  IF ~  InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN GOTO 38
  IF ~  InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN EXTERN ~IMOEN2~ 486
END

IF ~~ THEN BEGIN 38 // from: 37.1
  SAY #50304 /* ~I am unable to answer your question. We know little of this culture, and that is why I was doing research. I doubt that I would ever have an answer for you, Imoen.~ */
  IF ~~ THEN DO ~SetGlobal("TalkedToCharleston","GLOBAL",2)
~ GOTO 21
END

IF ~~ THEN BEGIN 39 // from:
  SAY #50302 /* ~Yes. Basically you're right. What of it?~ */
  IF ~~ THEN DO ~SetGlobal("TalkedToCharleston","GLOBAL",2)
~ GOTO 21
  IF ~  InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN GOTO 40
  IF ~  InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN EXTERN ~IMOEN2~ 488
END

IF ~~ THEN BEGIN 40 // from: 39.1
  SAY #50304 /* ~I am unable to answer your question. We know little of this culture, and that is why I was doing research. I doubt that I would ever have an answer for you, Imoen.~ */
  IF ~~ THEN DO ~SetGlobal("TalkedToCharleston","GLOBAL",2)
~ GOTO 21
END

IF ~~ THEN BEGIN 41 // from:
  SAY #50302 /* ~Yes. Basically you're right. What of it?~ */
  IF ~~ THEN DO ~SetGlobal("TalkedToCharleston","GLOBAL",2)
~ GOTO 21
  IF ~  InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN GOTO 42
  IF ~  InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN EXTERN ~IMOEN2~ 490
END

IF ~~ THEN BEGIN 42 // from: 41.1
  SAY #50304 /* ~I am unable to answer your question. We know little of this culture, and that is why I was doing research. I doubt that I would ever have an answer for you, Imoen.~ */
  IF ~~ THEN DO ~SetGlobal("TalkedToCharleston","GLOBAL",2)
~ GOTO 21
END

IF ~~ THEN BEGIN 43 // from:
  SAY #50302 /* ~Yes. Basically you're right. What of it?~ */
  IF ~~ THEN DO ~SetGlobal("TalkedToCharleston","GLOBAL",2)
~ GOTO 21
  IF ~  InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN GOTO 44
  IF ~  InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
~ THEN EXTERN ~IMOEN2~ 492
END

IF ~~ THEN BEGIN 44 // from: 43.1
  SAY #50304 /* ~I am unable to answer your question. We know little of this culture, and that is why I was doing research. I doubt that I would ever have an answer for you, Imoen.~ */
  IF ~~ THEN DO ~SetGlobal("TalkedToCharleston","GLOBAL",2)
~ GOTO 21
END
