BEGIN ~7XSILK~

IF ~Global("SILKEQUEST","LOCALS",0)InParty("7XGAR")!StateCheck("7XGAR",CD_STATE_NOTVALID) AreaCheck("AR0511")~ THEN BEGIN SILKE1
SAY @0
IF ~~ THEN EXTERN ~7XGarJ~ GarrickWhat
END

IF ~~ THEN BEGIN GarrickSILKE2
SAY @1
IF ~~ THEN EXTERN ~7XGarJ~ GarrickWhat2
END

IF ~~ THEN BEGIN GarrickSILKE3
SAY @2
IF ~~ THEN REPLY @3 GOTO GarrickSILKE4
IF ~~ THEN REPLY @4 GOTO GarrickSILKE4
END

IF ~~ THEN BEGIN GarrickSILKE4
SAY @5
IF ~~ THEN EXTERN ~7XGarJ~ GarrickWhat3
END

IF ~~ THEN BEGIN GarrickSILKE5
SAY @6 
IF ~~ THEN DO ~SetGlobal("SILKEQUEST","LOCALS",1)~ GOTO GarrickSILKE6   
END

IF ~~ THEN BEGIN GarrickSILKE6
SAY @7
IF ~~ THEN DO ~CreateCreatureDoor("OGRE01",[1041.821],7)
CreateCreatureDoor("7XCRE44",[993.767],3)
AddJournalEntry(@1818,QUEST_DONE)
~ GOTO GarrickSILKE7
END

IF ~AreaCheck("AR0700")~ THEN BEGIN SILKEohoh
SAY @8
=
@9
IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN GarrickSILKE7
SAY @10
IF ~~ THEN DO ~EscapeAreaMove("AR0700",2429,2852,3)~ EXIT
END


APPEND 7XGarJ
IF ~~ THEN BEGIN GarrickWhat
SAY @11
=
@12
IF ~~ THEN EXTERN ~7XSILK~ GarrickSILKE2
END
END

APPEND 7XGarJ
IF ~~ THEN BEGIN GarrickWhat2
SAY @13
IF ~~ THEN EXTERN ~7XSILK~ GarrickSILKE3
END
END

APPEND 7XGarJ
IF ~~ THEN BEGIN GarrickWhat3
SAY @14
IF ~~ THEN EXTERN ~7XSILK~ GarrickSILKE5
END
END








