// creator  : weidu (version 23800)
// argument : BGVICONI.DLG
// game     : .
// source   : ./DATA/TB#GEN95.BIF
// dialog   : ./dialog.tlk
// dialogF  : (none)

BEGIN ~BGVICONI~

IF ~  NumberOfTimesTalkedTo(0)
~ THEN BEGIN 0 // from:
  SAY #96246 /* ~Help me! If you don't help me, they'll kill me.~ */
  IF ~~ THEN REPLY #96247 /* ~Sorry lady, it's not our business.~ */ GOTO 2
  IF ~~ THEN REPLY #96248 /* ~Calm down, we'll help you.  Just tell us who you are.~ */ GOTO 1
  IF ~  Global("X#SHARTEELVICONI1","GLOBAL",0)
IfValidForPartyDialogue("sharteel")
InMyArea("sharteel")
!StateCheck("sharteel",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#SHARTEELVICONI1","GLOBAL",1)
~ EXTERN ~SHARTJ~ 115
  IF ~  Global("SanVicInve","GLOBAL",0)
IfValidForPartyDialogue("CVSandr")
~ THEN DO ~SetGlobal("SanVicInve","GLOBAL",1)
~ EXTERN ~CVSANDRJ~ 1062
END

IF ~~ THEN BEGIN 1 // from: 17.1 0.1
  SAY #96249 /* ~My name is Viconia, I... I'm not from around here, thank you so much for helping.~ */
  IF ~~ THEN DO ~CreateCreature("FLAM2",[1400.310],14)
ActionOverride("FlamingFist2",SetInterrupt(FALSE))
ActionOverride("FlamingFist2",ChangeAIScript("INITDLG",OVERRIDE))
ActionOverride("FlamingFist2",MoveToPoint([1440.270]))
ActionOverride("FlamingFist2",SetInterrupt(TRUE))
~ EXIT
END

IF ~~ THEN BEGIN 2 // from: 17.0 0.0
  SAY #96250 /* ~I should have expected that from craven surface dwellers.  May you rot in all the hells.~ */
  IF ~~ THEN DO ~EscapeAreaDestroy(90)
~ EXIT
END

IF ~~ THEN BEGIN 3 // from:
  SAY #96251 /* ~They lie, I've done nothing wrong.~ */
  IF ~~ THEN REPLY #96252 /* ~If you want her, have her.  We won't get in your way.~ */ EXTERN ~FLAM2~ 3
  IF ~~ THEN REPLY #96253 /* ~You'll have to get through us if you want her.~ */ EXTERN ~FLAM2~ 2
  IF ~~ THEN REPLY #96254 /* ~What do you intend to do once you have her?~ */ EXTERN ~FLAM2~ 1
  IF ~  Global("BGavinViconia1","GLOBAL",0)
IfValidForPartyDialogue("B!GAVIN")
InMyArea("B!GAVIN")
!StateCheck("B!GAVIN",CD_STATE_NOTVALID)
!Global("endofbg1","GLOBAL",2)
~ THEN DO ~SetGlobal("BGavinViconia1","GLOBAL",1)
~ EXTERN ~B!GAVINJ~ 107
END

IF ~~ THEN BEGIN 4 // from:
  SAY #96255 /* ~Just like surface dwellers, traitorous scum!~ */
  IF ~~ THEN DO ~Enemy()
~ EXIT
END

IF ~  Dead("FlamingFist2")
ReactionGT(LastTalkedToBy,NEUTRAL_UPPER)
~ THEN BEGIN 5 // from:
  SAY #96256 /* ~I thank you for risking yourselves on my behalf.  I know what you are thinking, you see my dark skin and won't trust me for it.  I am a dark elf, but I'm an outcast, I need your help.  I no longer receive my powers from the spider goddess you surface dwellers fear so; the Goddess Shar grants me wisdom, and she is a surface divinity.  If you'd let me join your group, I would be most grateful.  I have nowhere else to go.~ */
  IF ~~ THEN REPLY #96257 /* ~Sorry, we can't harbor a drow.~ */ GOTO 8
  IF ~~ THEN REPLY #96258 /* ~We don't judge someone by their race, we'll take you in.~ */ GOTO 9
  IF ~~ THEN REPLY #96259 /* ~It has nothing to do with race, we just don't need another person along to worry about.  Sorry.~ */ GOTO 8
  IF ~  Global("X#JaheiraViconia2","GLOBAL",0)
IfValidForPartyDialogue("jaheira")
InMyArea("jaheira")
!StateCheck("jaheira",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#JaheiraViconia2","GLOBAL",1)
~ EXTERN ~JAHEIRAJ~ 684
  IF ~  Global("SanVicObli1","GLOBAL",0)
IfValidForPartyDialogue("CVSandr")
~ THEN DO ~SetGlobal("SanVicObli1","GLOBAL",1)
~ EXTERN ~CVSANDRJ~ 1063
END

IF ~  Dead("FlamingFist2")
ReactionLT(LastTalkedToBy,FRIENDLY_LOWER)
ReactionGT(LastTalkedToBy,HOSTILE_UPPER)
~ THEN BEGIN 6 // from:
  SAY #96260 /* ~I thank you.  I know you may not be willing to give me a chance because of my dark skin.  I am a drow, but if you give me a chance you won't regret it.  Can I join with you?  I need friends, now more than ever.~ */
  IF ~~ THEN REPLY #96261 /* ~We'll never trust a dark elf, get out of our sight!~ */ GOTO 8
  IF ~~ THEN REPLY #96262 /* ~We need the extra help, so of course we'll take you in.~ */ GOTO 9
  IF ~~ THEN REPLY #96263 /* ~We can't afford any dead weight, sorry.~ */ GOTO 8
  IF ~  Global("X#JaheiraViconia3","GLOBAL",0)
IfValidForPartyDialogue("jaheira")
InMyArea("jaheira")
!StateCheck("jaheira",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#JaheiraViconia3","GLOBAL",1)
~ EXTERN ~JAHEIRAJ~ 683
  IF ~  Global("SanVicObli2","GLOBAL",0)
IfValidForPartyDialogue("CVSandr")
~ THEN DO ~SetGlobal("SanVicObli2","GLOBAL",1)
~ EXTERN ~CVSANDRJ~ 1064
END

IF ~  Dead("FlamingFist2")
ReactionLT(LastTalkedToBy,NEUTRAL_LOWER)
~ THEN BEGIN 7 // from:
  SAY #96264 /* ~I thank you for your help, but more will be on their way, perhaps our paths will cross again.~ */
  IF ~~ THEN DO ~EscapeAreaDestroy(90)
~ EXIT
  IF ~  Global("X#JaheiraViconia4","GLOBAL",0)
IfValidForPartyDialogue("jaheira")
InMyArea("jaheira")
!StateCheck("jaheira",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#JaheiraViconia4","GLOBAL",1)
~ EXTERN ~JAHEIRAJ~ 682
  IF ~  Global("SanVicObli3","GLOBAL",0)
IfValidForPartyDialogue("CVSandr")
~ THEN DO ~SetGlobal("SanVicObli3","GLOBAL",1)
~ EXTERN ~CVSANDRJ~ 1065
END

IF ~~ THEN BEGIN 8 // from: 16.2 16.0 15.2 15.0 6.2 6.0 5.2 5.0
  SAY #96265 /* ~You surface dwellers are so weak, I should be glad that you turned me down.~ */
  IF ~~ THEN DO ~EscapeAreaDestroy(90)
~ EXIT
  IF ~  Global("SanVicObli4","GLOBAL",0)
IfValidForPartyDialogue("CVSandr")
~ THEN DO ~SetGlobal("SanVicObli4","GLOBAL",1)
~ EXTERN ~CVSANDRJ~ 1066
END

IF ~~ THEN BEGIN 9 // from: 16.1 15.1 6.1 5.1
  SAY #96266 /* ~I won't disappoint you, I promise.~ */
  IF ~~ THEN DO ~ReallyForceSpellRES("fjxpmooc",Myself)
DestroyItem("minhp1")
JoinParty()
~ EXIT
  IF ~  Global("X#VICONI9","GLOBAL",0)
IfValidForPartyDialogue("jaheira")
InMyArea("jaheira")
!StateCheck("jaheira",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#VICONI9","GLOBAL",1)
~ GOTO 18
  IF ~  Global("X#VICONI9","GLOBAL",0)
IfValidForPartyDialogue("jaheira")
InMyArea("jaheira")
!StateCheck("jaheira",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#VICONI9","GLOBAL",1)
~ EXTERN ~JAHEIRAJ~ 1054
  IF ~  Global("X#VICONI9","GLOBAL",0)
IfValidForPartyDialogue("ajantis")
InMyArea("ajantis")
!StateCheck("ajantis",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#VICONI9","GLOBAL",1)
~ GOTO 20
  IF ~  Global("X#VICONI9","GLOBAL",0)
IfValidForPartyDialogue("ajantis")
InMyArea("ajantis")
!StateCheck("ajantis",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#VICONI9","GLOBAL",1)
~ EXTERN ~AJANTJ~ 340
END

IF ~  StateCheck(Myself,STATE_CHARMED)
~ THEN BEGIN 10 // from:
  SAY #95592 /* ~I come from the city of Menzoberranzan.  My family was slaughtered, and I was forced to flee to the surface.  When I reached the realms of light, the traitor Lolth abandoned me.  I would have been lost had it not been for the divine Shar!  She took me in and gave me the will and strength to survive!  It makes me so happy that I have found friends such as you to make my acclimatization to the surface a little easier.~ */
  IF ~~ THEN EXIT
END

IF ~  True()
~ THEN BEGIN 11 // from:
  SAY #96267 /* ~I am sorry to be so nervous, but the surface is so large, unending when compared to my homeland.~ */
  IF ~~ THEN EXIT
END

IF ~  False()
~ THEN BEGIN 12 // from:
  SAY #95585 /* ~A welcome release.  Your weakling surface ways have left a bitter taste in my mouth.  Perhaps I should seek shelter back under the cover of the earth.  I understood my fellows there.~ */
  IF ~~ THEN DO ~LeaveParty()
EscapeAreaDestroy(90)
~ EXIT
END

IF ~  False()
~ THEN BEGIN 13 // from:
  SAY #95586 /* ~You have been very kind to me in this strange and lighted world. Perhaps you are right, though. The drow were meant to be a race apart... Take care of yourselves, alright?~ */
  IF ~~ THEN DO ~LeaveParty()
SetDialogue("viconip")
~ EXIT
END

IF ~~ THEN BEGIN 14 // from:
  SAY #133652 /* ~Your underlings lack... respect for you, rivvin, to speak out of turn... pfft...~ */
  IF ~~ THEN DO ~EscapeAreaDestroy(90)
~ EXIT
END

IF ~~ THEN BEGIN 15 // from:
  SAY #133652 /* ~Your underlings lack... respect for you, rivvin, to speak out of turn... pfft...~ */
  IF ~~ THEN REPLY #96261 /* ~We'll never trust a dark elf, get out of our sight!~ */ GOTO 8
  IF ~~ THEN REPLY #96262 /* ~We need the extra help, so of course we'll take you in.~ */ GOTO 9
  IF ~~ THEN REPLY #96263 /* ~We can't afford any dead weight, sorry.~ */ GOTO 8
END

IF ~~ THEN BEGIN 16 // from:
  SAY #133652 /* ~Your underlings lack... respect for you, rivvin, to speak out of turn... pfft...~ */
  IF ~~ THEN REPLY #96257 /* ~Sorry, we can't harbor a drow.~ */ GOTO 8
  IF ~~ THEN REPLY #96258 /* ~We don't judge someone by their race, we'll take you in.~ */ GOTO 9
  IF ~~ THEN REPLY #96259 /* ~It has nothing to do with race, we just don't need another person along to worry about.  Sorry.~ */ GOTO 8
END

IF ~~ THEN BEGIN 17 // from:
  SAY #134925 /* ~Rivvin, in the Underdark a weak-spirited drow dies. The strong one lives, and I am not yet a rotting corpse.~ */
  IF ~~ THEN REPLY #96247 /* ~Sorry lady, it's not our business.~ */ GOTO 2
  IF ~~ THEN REPLY #96248 /* ~Calm down, we'll help you.  Just tell us who you are.~ */ GOTO 1
END

IF ~~ THEN BEGIN 18 // from: 9.1
  SAY #138961 /* ~Save your pity for our foes!~ */
  IF ~~ THEN DO ~ReallyForceSpellRES("fjxpmooc",Myself)
DestroyItem("minhp1")
JoinParty()
~ EXIT
END

IF ~~ THEN BEGIN 19 // from:
  SAY #138961 /* ~Save your pity for our foes!~ */
  IF ~~ THEN DO ~ReallyForceSpellRES("fjxpmooc",Myself)
DestroyItem("minhp1")
JoinParty()
~ EXIT
END

IF ~~ THEN BEGIN 20 // from: 9.3
  SAY #138959 /* ~I bet you will, jaluk!~ */
  IF ~~ THEN DO ~ReallyForceSpellRES("fjxpmooc",Myself)
DestroyItem("minhp1")
JoinParty()
~ EXIT
  IF ~  IfValidForPartyDialogue("jaheira")
InMyArea("jaheira")
!StateCheck("jaheira",CD_STATE_NOTVALID)
~ THEN GOTO 21
  IF ~  IfValidForPartyDialogue("jaheira")
InMyArea("jaheira")
!StateCheck("jaheira",CD_STATE_NOTVALID)
~ THEN EXTERN ~JAHEIRAJ~ 1055
END

IF ~~ THEN BEGIN 21 // from: 20.1
  SAY #138961 /* ~Save your pity for our foes!~ */
  IF ~~ THEN DO ~ReallyForceSpellRES("fjxpmooc",Myself)
DestroyItem("minhp1")
JoinParty()
~ EXIT
END

IF ~~ THEN BEGIN 22 // from:
  SAY #138959 /* ~I bet you will, jaluk!~ */
  IF ~~ THEN DO ~ReallyForceSpellRES("fjxpmooc",Myself)
DestroyItem("minhp1")
JoinParty()
~ EXIT
  IF ~  IfValidForPartyDialogue("jaheira")
InMyArea("jaheira")
!StateCheck("jaheira",CD_STATE_NOTVALID)
~ THEN GOTO 23
  IF ~  IfValidForPartyDialogue("jaheira")
InMyArea("jaheira")
!StateCheck("jaheira",CD_STATE_NOTVALID)
~ THEN EXTERN ~JAHEIRAJ~ 1056
END

IF ~~ THEN BEGIN 23 // from: 22.1
  SAY #138961 /* ~Save your pity for our foes!~ */
  IF ~~ THEN DO ~ReallyForceSpellRES("fjxpmooc",Myself)
DestroyItem("minhp1")
JoinParty()
~ EXIT
END

IF ~~ THEN BEGIN 24 // from:
  SAY #249180 /* ~ Priestess, I recognise how you tried to bring this jaluk to <PRO_HISHER> senses. Maybe you will kill <PRO_HIMHER> soon to lead this group on. Take this from me - we two will meet again.~ */
  IF ~~ THEN DO ~GiveItemCreate("Sanwi1","CVSandr",0,0,0)
AddJournalEntry(240058,QUEST)
SetGlobal("IWasKickedOut","LOCALS",1)
EscapeAreaMove("AR6704",800,1085,0)
~ EXIT
END