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

BEGIN ~_LUCKY~

IF ~True()
~ THEN BEGIN 0 // from:
  SAY #85403 /* ~Hi, folks. Welcome to Lucky Aello's, where the prices are so low there's gotta be something wrong. Nobody sells it lower than me, because nobody buys it cheaper. If you can find a price lower than mine this side of Calimshan the item will probably kill you. What can I get for you?~ */
  IF ~~ THEN REPLY #85404 /* ~So you've got the cheapest goods around? Let's have a look.~ */ DO ~StartStore("_TOCHEAP",LastTalkedToBy(Myself))
~ EXIT
  IF ~~ THEN REPLY #85405 /* ~No thanks. You get what you pay for.~ */ EXIT
  IF ~Global("X#EdwinLucky","GLOBAL",0)
InParty("edwin")
InMyArea("edwin")
!StateCheck("edwin",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#EdwinLucky","GLOBAL",1)~ EXTERN ~_EDWINJ~ 80
  IF ~Global("X#AloraLucky","GLOBAL",0)
InParty("alora")
InMyArea("alora")
!StateCheck("alora",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#AloraLucky","GLOBAL",1)~ EXTERN ~_ALORAJ~ 45
  IF ~Global("X#CoranLucky","GLOBAL",0)
InParty("coran")
InMyArea("coran")
!StateCheck("coran",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#CoranLucky","GLOBAL",1)~ EXTERN ~_CORANJ~ 118
END

IF ~~ THEN BEGIN 1 // from:
  SAY #100013 /* ~I swear, sir, it is not quite as bad as it er... appears.~ */
  IF ~~ THEN REPLY #85404 /* ~So you've got the cheapest goods around? Let's have a look.~ */ DO ~StartStore("_TOCHEAP",LastTalkedToBy(Myself))
~ EXIT
  IF ~~ THEN REPLY #85405 /* ~No thanks. You get what you pay for.~ */ EXIT
END

IF ~~ THEN BEGIN 2 // from:
  SAY #100198 /* ~Those are completely unfounded accusations! Why, that boy only suffered minor burns, and I'm sure her ladyship's scars will heal, in time...~ */
  IF ~~ THEN REPLY #85404 /* ~So you've got the cheapest goods around? Let's have a look.~ */ DO ~StartStore("_TOCHEAP",LastTalkedToBy(Myself))
~ EXIT
  IF ~~ THEN REPLY #85405 /* ~No thanks. You get what you pay for.~ */ EXIT
  IF ~Global("X#EdwinLucky","GLOBAL",0)
InParty("edwin")
InMyArea("edwin")
!StateCheck("edwin",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#EdwinLucky","GLOBAL",1)~ EXTERN ~_EDWINJ~ 80
  IF ~  InParty("alora")
InMyArea("alora")
!StateCheck("alora",CD_STATE_NOTVALID)
~ THEN GOTO 3
END

IF ~~ THEN BEGIN 3 // from: 2.3
  SAY #100199 /* ~For the sake of her lord husband, I hope they do...~ */
  IF ~~ THEN REPLY #85404 /* ~So you've got the cheapest goods around? Let's have a look.~ */ DO ~StartStore("_TOCHEAP",LastTalkedToBy(Myself))
~ EXIT
  IF ~~ THEN REPLY #85405 /* ~No thanks. You get what you pay for.~ */ EXIT
  IF ~Global("X#EdwinLucky","GLOBAL",0)
InParty("edwin")
InMyArea("edwin")
!StateCheck("edwin",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#EdwinLucky","GLOBAL",1)~ EXTERN ~_EDWINJ~ 80
END

IF ~~ THEN BEGIN 4 // from:
  SAY #100630 /* ~That? That's eyes of some lady lich... or, at least, the gnome who sold it to me claimed that 'twas...~ */
  IF ~~ THEN REPLY #85404 /* ~So you've got the cheapest goods around? Let's have a look.~ */ DO ~StartStore("_TOCHEAP",LastTalkedToBy(Myself))
~ EXIT
  IF ~~ THEN REPLY #85405 /* ~No thanks. You get what you pay for.~ */ EXIT
  IF ~Global("X#EdwinLucky","GLOBAL",0)
InParty("edwin")
InMyArea("edwin")
!StateCheck("edwin",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#EdwinLucky","GLOBAL",1)~ EXTERN ~_EDWINJ~ 80
  IF ~Global("X#AloraLucky","GLOBAL",0)
InParty("alora")
InMyArea("alora")
!StateCheck("alora",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#AloraLucky","GLOBAL",1)~ EXTERN ~_ALORAJ~ 45
END
