BEGIN ACDUERGA
IF ~RandomNum(5,1)~ THEN BEGIN 1
SAY @0
IF ~~ THEN EXIT
END

IF ~RandomNum(5,2)~ THEN BEGIN 2
SAY @1
IF ~~ THEN EXIT
END

IF ~RandomNum(5,3)~ THEN BEGIN 3
SAY @2
IF ~~ THEN EXIT
END

IF ~RandomNum(5,4)~ THEN BEGIN 4
SAY @3
IF ~~ THEN EXIT
END

IF ~RandomNum(5,5)~ THEN BEGIN 5
SAY @4
IF ~~ THEN EXIT
END

BEGIN ACFORRES
IF ~~ THEN BEGIN 3
SAY @5
IF ~~ THEN DO ~SetGlobal("ACFORRESDEAD","GLOBAL",1)DestroyItem("MINHP1")Enemy()~ EXIT
END

IF ~Global("ACAUDQUEST","GLOBAL",11)~ THEN BEGIN end
SAY @1
IF ~~ THEN EXIT
END

IF ~!Global("ACAUDQUEST","GLOBAL",10)~ THEN BEGIN always
SAY @40
IF ~~ THEN EXIT
END

CHAIN
IF ~Global("ACAUDQUEST","GLOBAL",10)~ THEN ACFORRES 1
@6 DO ~EraseJournalEntry(@10037)~
==ACBREJ @7
==ACFORRES @8
==ACBREJ @9
==ACFORRES @10
==ACBREJ @11
==ACFORRES @12
END
++ @13 + 2
++ @14 DO ~SetGlobal("ACAUDQUEST","GLOBAL",12)~ + 3

CHAIN
IF ~~ THEN ACFORRES 2
@15
==ACBREJ @16
==ACFORRES @17 = @18
==ACBREJ @19
==ACFORRES @20 = @21
==ACBREJ @22
END
++ @23 DO ~SetGlobal("ACAUDQUEST","GLOBAL",12)~ EXTERN ACFORRES 3
++ @24 EXTERN ACFORRES 4
++ @25 EXTERN ACFORRES 4

CHAIN
IF ~~ THEN ACFORRES 4
@26
==ACBREJ @27
==ACFORRES @28 DO ~GiveItem("ACAXE","ACBRE")~
==ACBREJ @29
==ACFORRES @30
==ACBREJ @31
END
++ @32 DO ~SetGlobal("ACAUDQUEST","GLOBAL",12)~ EXTERN ACFORRES 3
++ @33 EXTERN ACFORRES 5
++ @34 EXTERN ACFORRES 6

CHAIN
IF ~~ THEN ACFORRES 5
@35 = @36
==ACBREJ @37
END
++ @38 DO ~SetGlobal("ACAUDQUEST","GLOBAL",12)~ EXTERN ACFORRES 3
++ @39 EXTERN ACFORRES 7

CHAIN
IF ~~ THEN ACFORRES 6
@40 = @41
==ACBREJ @37
END
++ @38 DO ~SetGlobal("ACAUDQUEST","GLOBAL",12)~ EXTERN ACFORRES 3
++ @39 EXTERN ACFORRES 7

CHAIN
IF ~~ THEN ACFORRES 7
@42 = @43
==ACBREJ @44
==ACFORRES @45 DO ~SetGlobal("ACAUDQUEST","GLOBAL",11)GiveItem("ACPLOT1A",LastTalkedToBy())GiveItem("ACPLOT1B",LastTalkedToBy())GiveItem("ACPLOT1C",LastTalkedToBy()) DestroyItem("MINHP1") ChangeEnemyAlly(Myself,NEUTRAL)~ 
EXIT