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

BEGIN ~_BORDA~

IF ~True()
~ THEN BEGIN 0 // from:
  SAY #76708 /* ~Why, looky here.  A finer bunch of adventurers, I don't think I've ever seen.  Hmmm, though from the looks of it, you don't seem to be that well equipped.  Well, you're in a lot of luck, I can solve all of your problems.  I have a huge collection of potions and scrolls, all for a cheap price.  Right now I can give you a potion of extra healing for 25 gold, a scroll of protection from petrification for 25 gold, or a scroll of protection from magic for 100 gold.  So what do ya say?~ */
  IF ~~ THEN REPLY #76709 /* ~Sorry, but we're not really needing to stock up right now.~ */ GOTO 1
  IF ~~ THEN REPLY #76710 /* ~How about the potion of extra healing.~ */ GOTO 2
  IF ~~ THEN REPLY #76711 /* ~The scroll of protection from petrification looks good.~ */ GOTO 3
  IF ~~ THEN REPLY #76712 /* ~Protection from magic!  Say no more, we want that.~ */ GOTO 4
  IF ~~ THEN REPLY #76713 /* ~I don't think we really need to buy anything from you.  You hand over all of your precious potions and scrolls, or we'll take them from you by force.~ */ GOTO 5
END

IF ~~ THEN BEGIN 1 // from: 0.0
  SAY #76714 /* ~You don't know what you're missing.~ */
  IF ~~ THEN DO ~EscapeArea()
~ EXIT
END

IF ~~ THEN BEGIN 2 // from: 0.1
  SAY #76715 /* ~This potion can be a life saver, trust me.~ */
  IF ~~ THEN DO ~GiveItem("_POTN25",LastTalkedToBy)
TakePartyGold(25)
EscapeArea()
~ EXIT
  IF ~Global("X#ImoenBorda1","GLOBAL",0)
InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
!Class(Player1,THIEF_ALL)
~ THEN DO ~SetGlobal("X#ImoenBorda1","GLOBAL",1)~ EXTERN ~_IMOEN2~ 164
  IF ~Global("X#ImoenBorda2","GLOBAL",0)
InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
Class(Player1,THIEF_ALL)
~ THEN DO ~SetGlobal("X#ImoenBorda2","GLOBAL",1)~ EXTERN ~_IMOEN2~ 167
END

IF ~~ THEN BEGIN 3 // from: 0.2
  SAY #76716 /* ~Great protection against basilisks.  See you later.~ */
  IF ~~ THEN DO ~GiveItem("_SCRL16",LastTalkedToBy)
TakePartyGold(25)
EscapeArea()
~ EXIT
  IF ~Global("X#ImoenBorda1","GLOBAL",0)
InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
!Class(Player1,THIEF_ALL)
~ THEN DO ~SetGlobal("X#ImoenBorda1","GLOBAL",1)~ EXTERN ~_IMOEN2~ 165
  IF ~Global("X#ImoenBorda2","GLOBAL",0)
InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
Class(Player1,THIEF_ALL)
~ THEN DO ~SetGlobal("X#ImoenBorda2","GLOBAL",1)~ EXTERN ~_IMOEN2~ 168
END

IF ~~ THEN BEGIN 4 // from: 0.3
  SAY #76717 /* ~This scroll is a dandy.  If you ever find yourself in a battle against magic users, just read this one off, and you'll have no worries.~ */
  IF ~~ THEN DO ~GiveItem("_SCRL10",LastTalkedToBy)
TakePartyGold(100)
EscapeArea()
~ EXIT
  IF ~Global("X#ImoenBorda1","GLOBAL",0)
InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
!Class(Player1,THIEF_ALL)
~ THEN DO ~SetGlobal("X#ImoenBorda1","GLOBAL",1)~ EXTERN ~_IMOEN2~ 166
  IF ~Global("X#ImoenBorda2","GLOBAL",0)
InParty("imoen")
InMyArea("imoen")
!StateCheck("imoen",CD_STATE_NOTVALID)
Class(Player1,THIEF_ALL)
~ THEN DO ~SetGlobal("X#ImoenBorda2","GLOBAL",1)~ EXTERN ~_IMOEN2~ 169
END

IF ~~ THEN BEGIN 5 // from: 0.4
  SAY #76718 /* ~Holy, Bloodthirsty!  You guys obviously don't calm down often to think about things much.  Okay now, let me explain:  I'm selling magic items for cheap.  Therefore, I have easy access to said items.  Therefore, you just called out the wrong guy.~ */
  IF ~~ THEN DO ~Enemy()
~ EXIT
END

IF ~~ THEN BEGIN 6 // from:
  SAY #100329 /* ~Gotta go!~ */
  IF ~~ THEN DO ~GiveItem("_POTN25",LastTalkedToBy)
TakePartyGold(25)
EscapeArea()
~ EXIT
END

IF ~~ THEN BEGIN 7 // from:
  SAY #100329 /* ~Gotta go!~ */
  IF ~~ THEN DO ~GiveItem("_SCRL16",LastTalkedToBy)
TakePartyGold(25)
EscapeArea()
~ EXIT
END

IF ~~ THEN BEGIN 8 // from:
  SAY #100329 /* ~Gotta go!~ */
  IF ~~ THEN DO ~GiveItem("_SCRL10",LastTalkedToBy)
TakePartyGold(100)
EscapeArea()
~ EXIT
END

IF ~~ THEN BEGIN 9 // from:
  SAY #100329 /* ~Gotta go!~ */
  IF ~~ THEN DO ~GiveItem("_POTN25",LastTalkedToBy)
TakePartyGold(25)
EscapeArea()
~ EXIT
END

IF ~~ THEN BEGIN 10 // from:
  SAY #100329 /* ~Gotta go!~ */
  IF ~~ THEN DO ~GiveItem("_SCRL16",LastTalkedToBy)
TakePartyGold(25)
EscapeArea()
~ EXIT
END

IF ~~ THEN BEGIN 11 // from:
  SAY #100329 /* ~Gotta go!~ */
  IF ~~ THEN DO ~GiveItem("_SCRL10",LastTalkedToBy)
TakePartyGold(100)
EscapeArea()
~ EXIT
END
