// creator  : weidu.exe (version 23100)
// argument : _SHOAL.DLG
// game		 : .
// source	 : ./override/_SHOAL.DLG
// dialog	 : ./DIALOG.TLK
// dialogF  : (none)

BEGIN ~_SHOAL~

IF ~NumberOfTimesTalkedTo(0)
ReactionGT(LastTalkedToBy,HOSTILE_UPPER)
~ THEN BEGIN 0 // from:
  SAY #86402 /* ~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 #86403 /* ~Accompany me and I will make certain you are safe!~ */ GOTO 2
  IF ~~ THEN REPLY #86404 /* ~You would only slow me down.~ */ GOTO 1
END

IF ~~ THEN BEGIN 1 // from: 0.1
  SAY #86405 /* ~Then might I have a parting kiss.  I doubt I'll see you again.~ */
  IF ~~ THEN REPLY #86406 /* ~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 #86407 /* ~It is not my place to do so.  I hardly know you.~ */ GOTO 3
END

IF ~~ THEN BEGIN 2 // from: 0.0
  SAY #86408 /* ~Wonderful!  Perhaps a kiss to show my appreciation?~ */
  IF ~~ THEN REPLY #86406 /* ~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 #86407 /* ~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 #86409 /* ~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 #86410 /* ~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 #86411 /* ~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 #86412 /* ~Explain yourself, lest I fertilize my garden with you.~ */ DO ~SetGlobal("ShoalHit","GLOBAL",2)
SetGlobal("LastBug","GLOBAL",1)
~ GOTO 5
  IF ~~ THEN REPLY #86413 /* ~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 #86414 /* ~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 #86415 /* ~Then I shall fight as best I can, to release you from his grasp.~ */ GOTO 6
  IF ~~ THEN REPLY #86416 /* ~It is your fate and I leave you to it.~ */ GOTO 7
  IF ~~ THEN REPLY #86417 /* ~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~ 260
  IF ~Global("X#SHOAL5","GLOBAL",0)
InParty("ajantis")
InMyArea("ajantis")
!StateCheck("ajantis",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#SHOAL5","GLOBAL",1)~ EXTERN ~_AJANTJ~ 300
END

IF ~~ THEN BEGIN 6 // from: 5.0
  SAY #86418 /* ~Oh.  That could be interesting..  Yes, do that.~ */
  IF ~~ THEN DO ~ClearAllActions()
ChangeEnemyAlly(Myself,NEUTRAL)
ForceSpell(Myself,SHOAL_REVIVE)
CreateCreature("_DROTH",[2500.500],0)
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~ 62
END

IF ~~ THEN BEGIN 7 // from: 5.1
  SAY #86431 /* ~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],0)
ActionOverride("droth",MoveToPoint([2900.525]))
~ EXIT
END

IF ~Global("ShoalLeaving","GLOBAL",0)
Dead("droth")
~ THEN BEGIN 8 // from:
  SAY #86432 /* ~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 and 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~ 118
END

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

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

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

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

IF ~~ THEN BEGIN 13 // from:
  SAY #98613 /* ~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 #99449 /* ~He will, if you kill the ogre.~ */
  IF ~~ THEN DO ~ClearAllActions()
ChangeEnemyAlly(Myself,NEUTRAL)
ForceSpell(Myself,SHOAL_REVIVE)
CreateCreature("_DROTH",[2500.500],0)
ActionOverride("droth",MoveToPoint([2900.525]))
~ EXIT
END
