BEGIN ~CBHREDWN~

IF ~~ THEN BEGIN 0
  SAY @1
  IF ~~ THEN GOTO 1
END

IF ~~ THEN BEGIN 1
  SAY @2
  IF ~~ THEN EXTERN ~CBTARDTH~ 21
END

IF ~~ THEN BEGIN 2
  SAY @3
  IF ~~ THEN EXTERN ~CBMONDRP~ 2
END

IF ~~ THEN BEGIN 3
  SAY @4
  IF ~~ THEN EXTERN ~CBTARDTH~ 66
END

IF ~~ THEN BEGIN 4
  SAY @5
  IF ~~ THEN EXTERN ~CBSTTFLW~ 2
END

IF ~~ THEN BEGIN 5
  SAY @6
  IF ~~ THEN GOTO 6
END

IF ~~ THEN BEGIN 6
  SAY @7
  IF ~~ THEN EXTERN ~CBTARDTH~ 75
END

IF ~~ THEN BEGIN 7
  SAY @8
  IF ~~ THEN EXTERN ~CBMONDRP~ 10
END

IF ~~ THEN BEGIN 8
  SAY @9
  IF ~~ THEN EXTERN ~CBLSLNDA~ 6
END

IF ~~ THEN BEGIN 9
  SAY @10
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 10
  SAY @11
  IF ~~ THEN GOTO 11
END

IF ~~ THEN BEGIN 11
  SAY @12
  IF ~~ THEN EXTERN ~CBARKSLV~ 20
END

IF ~~ THEN BEGIN 12
  SAY @13
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 13
  SAY @14
  IF ~~ THEN GOTO 14
END

IF ~~ THEN BEGIN 14
  SAY @15
  IF ~~ THEN EXIT
END

IF ~Global("Cb_PartyAlliesWith_C_o_8","GLOBAL",0)
AreaCheck("AR2600")~ THEN BEGIN 15
  SAY @16
  IF ~~ THEN REPLY @17 GOTO 16
  IF ~~ THEN REPLY @18 GOTO 32
  IF ~~ THEN REPLY @19 GOTO 35
END

IF ~~ THEN BEGIN 16
  SAY @20
  IF ~IsValidForPartyDialog("JAHEIRA")~ THEN GOTO 17
  IF ~!IsValidForPartyDialog("JAHEIRA")~ THEN GOTO 25
END

IF ~~ THEN BEGIN 17
  SAY @21
  IF ~~ THEN EXTERN JAHEIRAJ 
CB_INTERJECT_JH1
END

IF ~~ THEN BEGIN 18
  SAY @22
  IF ~~ THEN GOTO 19
END

IF ~~ THEN BEGIN 19
  SAY @23
  IF ~~ THEN GOTO 20
END

IF ~~ THEN BEGIN 20
  SAY @24
  IF ~~ THEN GOTO 21
END

IF ~~ THEN BEGIN 21
  SAY @25
  IF ~~ THEN REPLY @26 GOTO 22
END

IF ~~ THEN BEGIN 22
  SAY @27
  IF ~~ THEN GOTO 23
END

IF ~~ THEN BEGIN 23
  SAY @28
  IF ~~ THEN GOTO 24
END

IF ~~ THEN BEGIN 24
  SAY @29
  IF ~~ THEN REPLY @30 GOTO 30
END

IF ~~ THEN BEGIN 25
  SAY @31
  IF ~~ THEN GOTO 26
END

IF ~~ THEN BEGIN 26
  SAY @32
  IF ~~ THEN GOTO 27
END

IF ~~ THEN BEGIN 27
  SAY @33
  IF ~~ THEN GOTO 28
END

IF ~~ THEN BEGIN 28
  SAY @34
  IF ~~ THEN GOTO 29
END

IF ~~ THEN BEGIN 29
  SAY @35
  IF ~~ THEN GOTO 24
END

IF ~~ THEN BEGIN 30
  SAY @36
  IF ~~ THEN REPLY @37 GOTO 31
END

IF ~~ THEN BEGIN 31
  SAY @38
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 32
  SAY @39
  IF ~~ THEN GOTO 33
END

IF ~~ THEN BEGIN 33
  SAY @40
  IF ~~ THEN GOTO 34
END

IF ~~ THEN BEGIN 34
  SAY @41
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 35
  SAY @42
  IF ~~ THEN GOTO 36
END

IF ~~ THEN BEGIN 36
  SAY @43
  IF ~~ THEN GOTO 37
END

IF ~~ THEN BEGIN 37
  SAY @44
  IF ~~ THEN GOTO 38
END

IF ~~ THEN BEGIN 38
  SAY @45
  IF ~~ THEN EXIT
END

IF ~Global("Cb_PartyAlliesWith_C_o_8","GLOBAL",1)
AreaCheck("AR2600")~ THEN BEGIN 39
  SAY @46
  IF ~~ THEN GOTO 40
END

IF ~~ THEN BEGIN 40
  SAY @47
  IF ~Class(LastTalkedToBy(Myself),FIGHTER)~ THEN GOTO 41
  IF ~Class(LastTalkedToBy(Myself),MAGE)~ THEN GOTO 42
  IF ~Class(LastTalkedToBy(Myself),CLERIC)~ THEN GOTO 43
  IF ~Class(LastTalkedToBy(Myself),THIEF)~ THEN GOTO 44
  IF ~Class(LastTalkedToBy(Myself),BARD)~ THEN GOTO 45
  IF ~Class(LastTalkedToBy(Myself),PALADIN)~ THEN GOTO 48
  IF ~Class(LastTalkedToBy(Myself),FIGHTER_MAGE)~ THEN GOTO 49
  IF ~Class(LastTalkedToBy(Myself),FIGHTER_CLERIC)~ THEN GOTO 50
  IF ~Class(LastTalkedToBy(Myself),FIGHTER_THIEF)~ THEN GOTO 51
  IF ~Class(LastTalkedToBy(Myself),FIGHTER_MAGE_THIEF)~ THEN GOTO 52
  IF ~Class(LastTalkedToBy(Myself),DRUID)~ THEN GOTO 53
  IF ~Class(LastTalkedToBy(Myself),RANGER)~ THEN GOTO 54
  IF ~Class(LastTalkedToBy(Myself),MAGE_THIEF)~ THEN GOTO 55
  IF ~Class(LastTalkedToBy(Myself),CLERIC_MAGE)~ THEN GOTO 56
  IF ~Class(LastTalkedToBy(Myself),CLERIC_THIEF)~ THEN GOTO 57
  IF ~Class(LastTalkedToBy(Myself),FIGHTER_DRUID)~ THEN GOTO 58
  IF ~Class(LastTalkedToBy(Myself),FIGHTER_MAGE_CLERIC)~ THEN GOTO 59
  IF ~Class(LastTalkedToBy(Myself),CLERIC_RANGER)~ THEN GOTO 60
  IF ~Class(LastTalkedToBy(Myself),SORCERER)~ THEN GOTO 61
  IF ~Class(LastTalkedToBy(Myself),MONK)~ THEN GOTO 62
END

IF ~~ THEN BEGIN 41
  SAY @48
  IF ~~ THEN GOTO 63
END

IF ~~ THEN BEGIN 42
  SAY @49
  IF ~~ THEN GOTO 63
END

IF ~~ THEN BEGIN 43
  SAY @50
  IF ~~ THEN GOTO 63
END

IF ~~ THEN BEGIN 44
  SAY @51
  IF ~~ THEN GOTO 63
END

IF ~~ THEN BEGIN 45
  SAY @52
  IF ~~ THEN REPLY @53 GOTO 46
  IF ~~ THEN REPLY @54 GOTO 47
  IF ~~ THEN REPLY @55 GOTO 46
  IF ~~ THEN REPLY @56 GOTO 46
  IF ~~ THEN REPLY @57 GOTO 46
  IF ~~ THEN REPLY @58 GOTO 46
  IF ~~ THEN REPLY @59 GOTO 46
  IF ~~ THEN REPLY @60 GOTO 46
  IF ~~ THEN REPLY @61 GOTO 46
END

IF ~~ THEN BEGIN 46
  SAY @62
  IF ~~ THEN GOTO 63
END

IF ~~ THEN BEGIN 47
  SAY @63
  IF ~~ THEN REPLY @64 GOTO 46
  IF ~~ THEN REPLY @65 GOTO 46
END

IF ~~ THEN BEGIN 48
  SAY @66
  IF ~~ THEN GOTO 63
END

IF ~~ THEN BEGIN 49
  SAY @67
  IF ~~ THEN GOTO 63
END

IF ~~ THEN BEGIN 50
  SAY @68
  IF ~~ THEN GOTO 63
END

IF ~~ THEN BEGIN 51
  SAY @69
  IF ~~ THEN GOTO 63
END

IF ~~ THEN BEGIN 52
  SAY @70
  IF ~~ THEN GOTO 63
END

IF ~~ THEN BEGIN 53
  SAY @71
  IF ~~ THEN GOTO 63
END

IF ~~ THEN BEGIN 54
  SAY @72
  IF ~~ THEN GOTO 63
END

IF ~~ THEN BEGIN 55
  SAY @73
  IF ~~ THEN GOTO 63
END

IF ~~ THEN BEGIN 56
  SAY @74
  IF ~~ THEN GOTO 63
END

IF ~~ THEN BEGIN 57
  SAY @75
  IF ~~ THEN GOTO 63
END

IF ~~ THEN BEGIN 58
  SAY @76
  IF ~~ THEN GOTO 63
END

IF ~~ THEN BEGIN 59
  SAY @77
  IF ~~ THEN GOTO 63
END

IF ~~ THEN BEGIN 60
  SAY @78
  IF ~~ THEN GOTO 63
END

IF ~~ THEN BEGIN 61
  SAY @79
  IF ~~ THEN GOTO 63
END

IF ~~ THEN BEGIN 62
  SAY @80
  IF ~~ THEN GOTO 63
END

IF ~~ THEN BEGIN 63
  SAY @81
  IF ~~ THEN REPLY @82 EXIT
  IF ~~ THEN REPLY @83 GOTO 65
  IF ~~ THEN REPLY @84 GOTO 64
END

IF ~~ THEN BEGIN 64
  SAY @85
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 65
  SAY @86
  IF ~~ THEN REPLY @87 GOTO 66
END

IF ~~ THEN BEGIN 66
  SAY @88
  IF ~~ THEN REPLY @89 GOTO 67
  IF ~~ THEN REPLY @90 GOTO 77
END

IF ~~ THEN BEGIN 67
  SAY @91
  IF ~~ THEN GOTO 68
END

IF ~~ THEN BEGIN 68
  SAY @92
  IF ~~ THEN GOTO 69
END

IF ~~ THEN BEGIN 69
  SAY @93
  IF ~~ THEN GOTO 70
END

IF ~~ THEN BEGIN 70
  SAY @94
  IF ~~ THEN GOTO 71
END

IF ~~ THEN BEGIN 71
  SAY @95
  IF ~~ THEN GOTO 72
END

IF ~~ THEN BEGIN 72
  SAY @96
  IF ~~ THEN GOTO 73
END

IF ~~ THEN BEGIN 73
  SAY @97
  IF ~~ THEN GOTO 74
END

IF ~~ THEN BEGIN 74
  SAY @98
  IF ~~ THEN GOTO 75
END

IF ~~ THEN BEGIN 75
  SAY @99
  IF ~~ THEN REPLY @100 GOTO 76
  IF ~~ THEN REPLY @101 GOTO 77
END

IF ~~ THEN BEGIN 76
  SAY @102
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 77
  SAY @103
  IF ~~ THEN GOTO 78
END

IF ~~ THEN BEGIN 78
  SAY @104
  IF ~~ THEN GOTO 79
END

IF ~~ THEN BEGIN 79
  SAY @105
  IF ~~ THEN GOTO 80
END

IF ~~ THEN BEGIN 80
  SAY @106
  IF ~~ THEN GOTO 81
END

IF ~~ THEN BEGIN 81
  SAY @107
  IF ~~ THEN GOTO 82
END

IF ~~ THEN BEGIN 82
  SAY @108
  IF ~~ THEN GOTO 83
END

IF ~~ THEN BEGIN 83
  SAY @109
  IF ~~ THEN GOTO 84
END

IF ~~ THEN BEGIN 84
  SAY @110
  IF ~~ THEN GOTO 85
END

IF ~~ THEN BEGIN 85
  SAY @111
  IF ~~ THEN GOTO 86
END

IF ~~ THEN BEGIN 86
  SAY @112
  IF ~~ THEN GOTO 87
END

IF ~~ THEN BEGIN 87
  SAY @113
  IF ~~ THEN REPLY @100 GOTO 76
  IF ~~ THEN REPLY @89 GOTO 67
END

IF ~AreaCheck("AR3530")
Global("CbMarilynSpeaksHere","AR3530",0)~ THEN BEGIN 88
  SAY @114
  IF ~~ THEN EXTERN ~CBTARDTH~ 89
END

IF ~~ THEN BEGIN 89
  SAY @115
  IF ~~ THEN EXTERN ~CBARKSLV~ 27
END

IF ~~ THEN BEGIN 90
  SAY @116
  IF ~~ THEN DO ~SetGlobal("CbMarilynSpeaksHere","AR3530",1)
SetGlobal("MarilynWarnsBeCareful","LOCALS",1)~ EXIT
END

IF ~~ THEN BEGIN 91
  SAY @117
  IF ~~ THEN DO ~SetGlobal("Cb_LawanthaWarns","AR3532",1)~ EXIT
END

IF ~AreaCheck("AR2600")
Global("Cb_PartyAlliesWith_C_o_8","GLOBAL",3)~ THEN BEGIN 92
  SAY @118
  IF ~~ THEN GOTO 93
END

IF ~~ THEN BEGIN 93
  SAY @119
  IF ~~ THEN GOTO 94
END

IF ~~ THEN BEGIN 94
  SAY @120
  IF ~~ THEN GOTO 95
END

IF ~~ THEN BEGIN 95
  SAY @121
  IF ~~ THEN DO ~GiveItem("CBDRDSWD",LastTalkedToBy(Myself))
AddXPObject(Player1,20000)
AddXPObject(Player2,20000)
AddXPObject(Player3,20000)
AddXPObject(Player4,20000)
AddXPObject(Player5,20000)
AddXPObject(Player6,20000)
ReputationInc(1)
EraseJournalEntry(@124)
AddJournalEntry(@123,QUEST_DONE)~ GOTO 96
END

IF ~~ THEN BEGIN 96
  SAY @122
  IF ~~ THEN DO ~SetGlobal("Cb_PartyAlliesWith_C_o_8","GLOBAL",4)
ActionOverride("CBTARDTH",EscapeArea())
ActionOverride("CBHREDWN",EscapeArea())
ActionOverride("CBSTTFLW",EscapeArea())
ActionOverride("CBMONDRP",EscapeArea())
ActionOverride("CBMANARB",EscapeArea())
ActionOverride("CBLSLNDA",EscapeArea())
ActionOverride("CBARKSLV",EscapeArea())~ EXIT
END

APPEND JAHEIRAJ
IF ~~ THEN BEGIN CB_INTERJECT_JH1
SAY @670
  IF ~~ THEN REPLY @671 EXTERN ~CBHREDWN~ 18
  IF ~~ THEN REPLY @672 GOTO CB_INTERJECT_JH3
END

IF ~~ THEN BEGIN CB_INTERJECT_JH3
SAY @673
  IF ~~ THEN EXTERN ~CBHREDWN~ 18
END
END


