BEGIN ACBRERED
BEGIN ACTAEROM
IF ~GlobalLT("ACREVIQUEST","GLOBAL",5)NumTimesTalkedToGT(0)GlobalTimerNotExpired("ACTAEROMTIMER","GLOBAL")~ THEN BEGIN START.1
SAY @0
IF ~~ THEN EXIT
END

IF ~GlobalLT("ACREVIQUEST","GLOBAL",5)NumTimesTalkedToGT(0)GlobalTimerExpired("ACTAEROMTIMER","GLOBAL")~ THEN BEGIN START.1
SAY @1
IF ~~ THEN DO ~SetGlobal("AC6701TELEPORT","GLOBAL",2)EraseJournalEntry(@10008)ReputationInc(-1)SetGlobal("ACBrePlotLost","GLOBAL",1)SetGlobal("ACBREEXISTS","GLOBAL",2)ClearAllActions()StartCutSceneMode()StartCutScene("ACCUT_02")~ SOLVED_JOURNAL @10010 EXIT
END

IF ~~ THEN BEGIN 1
SAY @2
IF ~~ THEN GOTO 4
END

IF ~~ THEN BEGIN 2
SAY @3 = @4
IF ~~ THEN GOTO 4
END

IF ~~ THEN BEGIN 3
SAY @5
IF ~~ THEN GOTO 4
END

IF ~~ THEN BEGIN 4
SAY @6 = @7 = @8
++ @9 + 5
IF ~CLASS(PLAYER1,CLERIC_ALL)~ THEN REPLY @10 + 6
IF ~CLASS(PLAYER1,DRUID_ALL)~ THEN REPLY @11 + 6
IF ~OR(5)CLASS(PLAYER2,CLERIC_ALL)CLASS(PLAYER3,CLERIC_ALL)CLASS(PLAYER4,CLERIC_ALL)CLASS(PLAYER5,CLERIC_ALL)CLASS(PLAYER6,CLERIC_ALL)~ THEN REPLY @12 + 6
IF ~OR(5)CLASS(PLAYER2,DRUID_ALL)CLASS(PLAYER3,DRUID_ALL)CLASS(PLAYER4,DRUID_ALL)CLASS(PLAYER5,DRUID_ALL)CLASS(PLAYER6,DRUID_ALL)~ THEN REPLY @13 + 6
++ @14 + 5
END

IF ~~ THEN BEGIN 7
SAY @15
++ @16 + 9
++ @17 + 10
END

IF ~~ THEN BEGIN 8
SAY @18
IF ~~ THEN DO ~SetGlobalTimer("ACTAEROMTIMER","GLOBAL",TWO_HOURS)~ UNSOLVED_JOURNAL @10008 EXIT
END

IF ~~ THEN BEGIN 9
SAY @19
IF ~~ THEN DO ~ReputationInc(-1)SetGlobal("ACBrePlotLost","GLOBAL",1)SetGlobal("AC6701TELEPORT","GLOBAL",2)SetGlobal("ACBREEXISTS","GLOBAL",2)ClearAllActions()StartCutSceneMode()StartCutScene("ACCUT_02")~ SOLVED_JOURNAL @10009 EXIT
END

IF ~~ THEN BEGIN 10
SAY @20 = @18
IF ~~ THEN DO ~SetGlobalTimer("ACTAEROMTIMER","GLOBAL",TWO_HOURS)~ UNSOLVED_JOURNAL @10008 EXIT
END

IF ~~ THEN BEGIN REVIQUEST.3
SAY @21
IF ~~ THEN DO ~AddJournalEntry(@10019,QUEST)~ EXIT
END

IF ~~ THEN BEGIN REVIQUEST.4
SAY @22
IF ~~ THEN DO ~AddJournalEntry(@10019,QUEST)StartStore("%tutu_var%Taerum",LastTalkedToBy(Myself))~ EXIT
END

IF ~~ THEN BEGIN REVIQUEST.5
SAY @23
++ @24 + REVIQUEST.3
++ @25 + REVIQUEST.4
END

IF ~Global("ACREVIQUEST","GLOBAL",5)~ THEN BEGIN REVIQUEST.6
SAY @26
++ @27 + REVIQUEST.7
++ @28 + REVIQUEST.4
END

IF ~~ THEN BEGIN REVIQUEST.7
SAY @29
++ @24 + REVIQUEST.3
++ @25 + REVIQUEST.4
END

IF ~~ THEN BEGIN REVIQUEST.8
SAY @30
++ @31 + REVIQUEST.3
++ @32 + REVIQUEST.4
++ @33 + REVIQUEST.5
++ @34 + REVIQUEST.9
END

CHAIN
IF ~GlobalLT("ACREVIQUEST","GLOBAL",5)NumTimesTalkedTo(0)~ THEN ACTAEROM START
@35 DO ~EraseJournalEntry(@10006)~
==ACBRERED @36 
==ACTAEROM @37 = @38
END
++ @39 + 1
++ @40 + 2
++ @41 + 3

CHAIN
IF ~~ THEN ACTAEROM 6
@42
==%JAHEIRA_BANTER% IF ~InParty("Jaheira")InMyArea("JAHEIRA")!StateCheck("Jaheira",CD_STATE_NOTVALID)~ THEN @43
==%VICONIA_BANTER% IF ~InParty("Viconia")InMyArea("Viconia")!StateCheck("Viconia",CD_STATE_NOTVALID)~ THEN @44
==%BRANWEN_BANTER% IF ~InParty("BRANWEN")InMyArea("BRANWEN")!StateCheck("BRANWEN",CD_STATE_NOTVALID)~ THEN @45
==%TIAX_BANTER% IF ~InParty("TIAX")InMyArea("TIAX")!StateCheck("TIAX",CD_STATE_NOTVALID)~ THEN @46
==%QUAYLE_BANTER% IF ~InParty("QUAYLE")InMyArea("QUAYLE")!StateCheck("QUAYLE",CD_STATE_NOTVALID)~ THEN @47
END
++ @9 + 5
++ @14 + 5

CHAIN
IF ~~ THEN ACTAEROM 5
@48
==%MINSC_BANTER% IF ~InParty("MINSC")InMyArea("MINSC")!StateCheck("MINSC",CD_STATE_NOTVALID)~ THEN @49
==%AJANTIS_BANTER% IF ~InParty("AJANTIS")InMyArea("AJANTIS")!StateCheck("AJANTIS",CD_STATE_NOTVALID)~ THEN @50
==%IMOEN_BANTER% IF ~InParty("%IMOEN_DV%")InMyArea("%IMOEN_DV%")!StateCheck("%IMOEN_DV%",CD_STATE_NOTVALID)~ THEN @51
==%JAHEIRA_BANTER% IF ~InParty("Jaheira")InMyArea("JAHEIRA")!StateCheck("Jaheira",CD_STATE_NOTVALID)~ THEN @52
==%VICONIA_BANTER% IF ~InParty("Viconia")InMyArea("Viconia")!StateCheck("Viconia",CD_STATE_NOTVALID)~ THEN @53
==%MONTARON_BANTER% IF ~InParty("MONTARON")InMyArea("MONTARON")!StateCheck("MONTARON",CD_STATE_NOTVALID)~ THEN @54
==%TIAX_BANTER% IF ~InParty("TIAX")InMyArea("TIAX")!StateCheck("TIAX",CD_STATE_NOTVALID)~ THEN @55
END
++ @56 + 7
++ @57 + 8