// creator  : weidu.exe (version 23100)
// argument : OBSGOL01.DLG
// game		 : .
// source	 : ./DATA/DIALOG.BIF
// dialog	 : ./DIALOG.TLK
// dialogF  : (none)

BEGIN ~OBSGOL01~

IF ~NumTimesTalkedTo(0)~ THEN BEGIN 0 // from:
  SAY #33129 /* ~This servant detects an intruder! It must be destroyed.~ */
  IF ~~ THEN DO ~SetGlobal("OSKillOrb","GLOBAL",1)
StartCutScene("cut22c")~ UNSOLVED_JOURNAL #3422 /* ~Inside the planar sphere.

It appears I have successfully assembled a golem, of sorts, which has run off to do battle with the nearby beholder.~ */ EXIT
END

IF ~~ THEN BEGIN 1 // from:
  SAY #33131 /* ~Master Lavok was repairing this servant after a brutish demon damaged it.  Lavok must be hurt if he left this servant in a state of disrepair.  This servant despairs for its master.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 2 // from:
  SAY #33132 /* ~There is a demon nearby.  This servant must destroy him.~ */
  IF ~~ THEN EXIT
END

IF ~Global("PCSphere","GLOBAL",0)
Dead("obsdem03")
NumTimesTalkedToGT(0)~ THEN BEGIN 3 // from:
  SAY #39682 /* ~There are no more intruders... this servant may rest for a time.~ */
  IF ~~ THEN EXIT
END

IF ~GlobalGT("PCSphere","GLOBAL",0)
InPartySlot(LastTalkedToBy,0)~ THEN BEGIN 4 // from:
  SAY #59887 /* ~This servant is here to serve <CHARNAME>.  Give it orders so that it may obey.~ */
  IF ~~ THEN REPLY #59888 /* ~You can best protect me by following me.~ */ GOTO 5
  IF ~~ THEN REPLY #59889 /* ~Stay here.~ */ GOTO 7
  IF ~~ THEN REPLY #59890 /* ~Patrol the Planar Sphere and report any problems to me.~ */ GOTO 6
END

IF ~~ THEN BEGIN 5 // from: 4.0
  SAY #59891 /* ~This servant may not leave the Planar Sphere, but it will protect you while within it.~ */
  IF ~~ THEN DO ~SetGlobal("TheGolemsOrders","AR0411",2)~ EXIT
END

IF ~~ THEN BEGIN 6 // from: 4.2
  SAY #59892 /* ~This servant will patrol the Sphere for <CHARNAME>.~ */
  IF ~~ THEN DO ~SetGlobal("TheGolemsOrders","AR0411",1)~ EXIT
END

IF ~~ THEN BEGIN 7 // from: 4.1
  SAY #59893 /* ~This servant will remain here until ordered otherwise.~ */
  IF ~~ THEN DO ~SetGlobal("TheGolemsOrders","AR0411",0)~ EXIT
END

IF ~!InPartySlot(LastTalkedToBy,0)
GlobalGT("PCSphere","GLOBAL",0)~ THEN BEGIN 8 // from:
  SAY #61025 /* ~This servant obeys only <CHARNAME>.~ */
  IF ~~ THEN EXIT
END
