// creator  : weidu.exe (version 23600)
// argument : SHOAL.DLG
// game     : .
// source   : ./override/SHOAL.DLG
// dialog   : lang\en_us/dialog.tlk
// dialogF  : (none)

BEGIN ~SHOAL~

IF ~  NumberOfTimesTalkedTo(0)
ReactionGT(LastTalkedToBy,HOSTILE_UPPER)
~ THEN BEGIN 0 // from:
  SAY #1974 /* ~Please to help me, will you? I am alone on this desolate dry-land and who knows what lurks in these woods.~ */
  IF ~~ THEN REPLY #1978 /* ~Accompany me and I will make certain you are safe!~ */ GOTO 2
  IF ~~ THEN REPLY #1979 /* ~You would only slow me down.~ */ GOTO 1
END

IF ~~ THEN BEGIN 1 // from: 0.1
  SAY #1975 /* ~Then might I have a parting kiss? I doubt I'll see you again.~ */
  IF ~~ THEN REPLY #1980 /* ~Far be it from me to turn down a kiss from a comely lass.~ */ DO ~Kill(LastTalkedToBy)
SetGlobal("ShoalKiss","GLOBAL",1)
Enemy()
~ EXIT
  IF ~~ THEN REPLY #1981 /* ~It is not my place to do so. I hardly know you.~ */ GOTO 3
END

IF ~~ THEN BEGIN 2 // from: 0.0
  SAY #1976 /* ~Wonderful! Perhaps a kiss to show my appreciation?~ */
  IF ~~ THEN REPLY #1982 /* ~Far be it from me to turn down a kiss from a comely lass.~ */ DO ~Kill(LastTalkedToBy)
SetGlobal("ShoalKiss","GLOBAL",1)
Enemy()
~ EXIT
  IF ~~ THEN REPLY #1983 /* ~It is not my place to do so. I hardly know you.~ */ GOTO 3
END

IF ~~ THEN BEGIN 3 // from: 2.1 1.1
  SAY #1977 /* ~I am truly sorry, but I must insist!~ */
  IF ~~ THEN DO ~Kill(LastTalkedToBy)
SetGlobal("ShoalKiss","GLOBAL",1)
Enemy()
~ EXIT
END

IF ~  Global("ShoalHit","GLOBAL",1)
Global("LastBug","GLOBAL",0)
~ THEN BEGIN 4 // from:
  SAY #1986 /* ~No! This is no longer fun! I cannot die for this! They are my actions, but not my intent! I can but do as I am bid by the master!~ */
  IF ~  Global("ShoalKiss","GLOBAL",1)
~ THEN REPLY #1987 /* ~Restore my fallen and explain your actions, else I shall continue!~ */ DO ~SetGlobal("ShoalHit","GLOBAL",2)
SetGlobal("LastBug","GLOBAL",1)
~ GOTO 5
  IF ~  Global("ShoalKiss","GLOBAL",0)
~ THEN REPLY #1988 /* ~Explain yourself, lest I fertilize my garden with you.~ */ DO ~SetGlobal("ShoalHit","GLOBAL",2)
SetGlobal("LastBug","GLOBAL",1)
~ GOTO 5
  IF ~~ THEN REPLY #1989 /* ~These are mere words to try and save your skin! You'll not fool me! Die and wash away!~ */ DO ~SetGlobal("ShoalHit","GLOBAL",2)
SetGlobal("LastBug","GLOBAL",1)
~ EXIT
END

IF ~~ THEN BEGIN 5 // from: 4.1 4.0
  SAY #1990 /* ~I would not be here at all, but my shawl is held by Ogre-Droth. It is my essence he commands, so to him I listen. It was a lark for a while, but no longer. I do not want to harm you further, but if he so wills, then I must. It is all I can do.~ */
  IF ~~ THEN REPLY #1991 /* ~Then I shall fight as best I can, to release you from his grasp.~ */ GOTO 6
  IF ~~ THEN REPLY #1992 /* ~It is your fate and I leave you to it.~ */ GOTO 7
  IF ~~ THEN REPLY #1993 /* ~Lies and falsehoods! I trust you not! Die by my hand!~ */ EXIT
  IF ~Global("X#SHOAL5","GLOBAL",0)
InParty("garrick")
InMyArea("garrick")
!StateCheck("garrick",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#SHOAL5","GLOBAL",1)~ EXTERN ~GARRIJ~ 252
  IF ~Global("X#SHOAL5","GLOBAL",0)
InParty("ajantis")
InMyArea("ajantis")
!StateCheck("ajantis",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#SHOAL5","GLOBAL",1)~ EXTERN ~AJANTJ~ 304
END

IF ~~ THEN BEGIN 6 // from: 5.0
  SAY #1994 /* ~Oh. That could be interesting... Yes, do that.~ */
  IF ~~ THEN DO ~ClearAllActions()
ChangeEnemyAlly(Myself,NEUTRAL)
ForceSpell(Myself,SHOAL_REVIVE)
CreateCreature("DROTH",[2500.500],S)
ActionOverride("Droth",MoveToPoint([2900.525]))
~ EXIT
  IF ~Global("X#AjantisShoal2","GLOBAL",0)
InParty("ajantis")
InMyArea("ajantis")
!StateCheck("ajantis",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#AjantisShoal2","GLOBAL",1)~ EXTERN ~AJANTJ~ 66
END

IF ~~ THEN BEGIN 7 // from: 5.1
  SAY #1995 /* ~Then you had best go now, for Droth is close by and this may get difficult for both of us.~ */
  IF ~~ THEN DO ~ClearAllActions()
ChangeEnemyAlly(Myself,NEUTRAL)
CreateCreature("DROTH",[2500.500],S)
ActionOverride("Droth",MoveToPoint([2900.525]))
~ EXIT
END

IF ~  Global("ShoalLeaving","GLOBAL",0)
Dead("Droth")
~ THEN BEGIN 8 // from:
  SAY #1996 /* ~By the waters of home, I am free once more! You must pardon me for leaving so quick, but I'll not spend another second on this hard-land. It was a fun game, but it is stale now. Thank you, goodbye!~ */
  IF ~~ THEN DO ~SetGlobal("ShoalLeaving","GLOBAL",1)
AddexperienceParty(750)
EscapeArea()
~ EXIT
  IF ~Global("X#JaheiraShoal","GLOBAL",0)
InParty("jaheira")
InMyArea("jaheira")
!StateCheck("jaheira",CD_STATE_NOTVALID)
InParty("khalid")
InMyArea("khalid")
!StateCheck("khalid",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#JaheiraShoal","GLOBAL",1)~ EXTERN ~JAHEIJ~ 123
END

IF ~  Global("ShoalLeaving","GLOBAL",1)
Dead("Droth")
~ THEN BEGIN 9 // from:
  SAY #1997 /* ~Leave me be, silly dirt-fish.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 10 // from:
  SAY #1999 /* ~It is not my fault, Ogre-Droth. They are stronger than I.~ */
  IF ~~ THEN EXTERN ~DROTH~ 1
END

IF ~~ THEN BEGIN 11 // from:
  SAY #2000 /* ~As you say, so it shall be.~ */
  IF ~~ THEN REPLY #2008 /* ~By what right do you keep this creature captive, Ogre? Return what is rightfully hers.~ */ EXTERN ~DROTH~ 2
  IF ~~ THEN REPLY #2009 /* ~I wish only to leave in peace. Let me go and no harm will come to anyone.~ */ EXTERN ~DROTH~ 3
  IF ~~ THEN REPLY #2010 /* ~You and your lying accomplice shall harm no one else, Ogre!~ */ EXTERN ~DROTH~ 4
END

IF ~~ THEN BEGIN 12 // from:
  SAY #20728 /* ~Leave me be, silly dirt-fish.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 13 // from:
  SAY #45262 /* ~More than you can imagine, druid... but they died happy...~ */
  IF ~~ THEN DO ~SetGlobal("ShoalLeaving","GLOBAL",1)
AddexperienceParty(750)
EscapeArea()
~ EXIT
END

IF ~~ THEN BEGIN 14 // from:
  SAY #46098 /* ~He will, if you kill the ogre.~ */
  IF ~~ THEN DO ~ClearAllActions()
ChangeEnemyAlly(Myself,NEUTRAL)
ForceSpell(Myself,SHOAL_REVIVE)
CreateCreature("DROTH",[2500.500],S)
ActionOverride("Droth",MoveToPoint([2900.525]))
~ EXIT
END
