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

BEGIN ~KIELPC~

IF ~Global("KielPC","AR0512",1)~ THEN BEGIN 0 // from:
  SAY #20832 /* ~I call on you to abandon your false gods!  They have done nothing for you!  Cast them aside and join me on the true path, join me in the calling of the true sight!~ [GAAL16] */
  IF ~~ THEN DO ~MoveToPoint([1830.904])
OpenDoor(Door09)
MoveToPoint([2052.974])
MoveToPoint([2092.924])
Deactivate("Levers 1-3, 6-7")
Activate("Lever 8")
MoveToPoint([2135.890])
SetGlobal("KielPC","AR0512",2)
StartDialogueNoSet([PC])~ EXIT
END

IF ~Global("KielPC","AR0512",2)~ THEN BEGIN 1 // from:
  SAY #20838 /* ~Bah!  What has your god ever done for me, eh?  Eh!? I'm poorer and no better off than I ever was!~ [CSSUP102] */
  IF ~~ THEN DO ~Deactivate("Levers 4-5")
Activate("Levers 9-11")
MoveToPoint(2357.930])
MoveToPoint([2488.839])
MoveToPoint([2631.966])
MoveToPoint([2350.1215])
MoveToPoint([2294.1341])
MoveToPoint([2047.1371])
SetGlobal("KielPC","AR0512",3)
StartDialogueNoSet([PC])~ EXIT
END

IF ~Global("KielPC","AR0512",3)~ THEN BEGIN 2 // from:
  SAY #20843 /* ~A truer gift that you'll not find amongst any of these other so-called deities.  Come, witness the miracle of the truth!  Come and behold the Unseeing Eye for yourself and see the true god that is present amongst us!~ [GAAL20] */
  IF ~~ THEN DO ~MoveToPoint([2169.1371])
MoveToPoint([2252.1452])
MoveToPoint([2218.1517])
OpenDoor("Door13")
MoveToPoint([2115.1652])
SetGlobal("KielPC","AR0512",4)
StartDialogueNoSet([PC])
~ EXIT
END

IF ~Global("KielPC","AR0512",4)~ THEN BEGIN 3 // from:
  SAY #20846 /* ~Yes!  Show me!~ [CSSUP103] */
  IF ~~ THEN DO ~MoveToPoint([1816.1815])
MoveToPoint([1623.1679])
MoveToPoint([1520.1601])
MoveToPoint([1410.1644])
MoveToPoint([1424.1841])
MoveToPoint([1560.1877])
MoveToPoint([1716.2025])
MoveToPoint([1698.2129])
MoveToPoint([1563.2212])
MoveToPoint([1410.2159])
MoveToPoint([1306.2063])
MoveToPoint([1217.1969])
OpenDoor("Door14")
MoveToPoint([1130.1929])
MoveToPoint([1040.1933])
OpenDoor("Door15")
MoveToPoint([1005.2247])
SetGlobal("KielPC","AR0512",5)
StartDialogueNoSet([PC])
~ EXIT
END

IF ~Global("KielPC","AR0512",5)~ THEN BEGIN 4 // from:
  SAY #20849 /* ~Quit yer mouth, wench!~ [CSSUP203] */
  IF ~~ THEN DO ~SetGlobal("KielPC","AR0512",6)
CreateCreature("kiel2",[1005.2247])
AddExperienceParty(5000)
ChangeAIScript(?????,Override)
ActionOverride("kiel2",EscapeArea())
~ EXIT
END
