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

BEGIN ~_FCOOK2~

IF ~NumberOfTimesTalkedTo(0)
ReactionGT(LastTalkedToBy(Myself),HOSTILE_UPPER)
Gender(LastTalkedToBy,MALE)
~ THEN BEGIN 0 // from:
  SAY #85910 /* ~You're a bunch of greenheads, ain't ya?  You've come here to guzzle, or maybe one of you handsome stags wants to shag me.  I am quite a fubsey, aren't I?  Heh heh heh.~ */
  IF ~~ THEN EXIT
  IF ~  InParty("coran")
InMyArea("coran")
!StateCheck("coran",CD_STATE_NOTVALID)
~ THEN EXTERN ~_BCORAN~ 362
  IF ~Global("X#FCOOK2","GLOBAL",0)
InParty("quayle")
InMyArea("quayle")
!StateCheck("quayle",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#FCOOK2","GLOBAL",1)~ EXTERN ~_QUAYLJ~ 44
  IF ~Global("X#FCOOK2","GLOBAL",0)
InParty("edwin")
InMyArea("edwin")
!StateCheck("edwin",CD_STATE_NOTVALID)
~ THEN DO ~SetGlobal("X#FCOOK2","GLOBAL",1)~ EXTERN ~_EDWINJ~ 166
END

IF ~NumberOfTimesTalkedTo(0)
ReactionLT(LastTalkedToBy(Myself),NEUTRAL_LOWER)
~ THEN BEGIN 1 // from:
  SAY #85911 /* ~Ya buncha chuckle headed shag bags, trying to sneak by me will ya.  I'm going to drub you but good.~ */
  IF ~~ THEN EXIT
END

IF ~StateCheck(Myself,STATE_CHARMED)
~ THEN BEGIN 2 // from:
  SAY #85912 /* ~I really like all of ya.  We should have a little private shag party, right here in me kitchen.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 3 // from:
  SAY #75439 /* ~Get out or be thrown out!~ */
  IF ~~ THEN EXIT
END

IF ~NumberOfTimesTalkedTo(0)
ReactionGT(LastTalkedToBy(Myself),HOSTILE_UPPER)
~ THEN BEGIN 4 // from:
  SAY #85913 /* ~Yer a bunch o' happy-galaghers, ain't ya? I's no time fer chits or chats, so move along.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 5 // from:
  SAY #100653 /* ~Aye, but a shag is still a shag. You're a bit flimsy for me liking, but if you want some-~ */
  IF ~  Global("P#CoranMatch","GLOBAL",1)
!Global("P#CoranRomanceInactive","GLOBAL",1)
~ THEN EXIT
  IF ~  OR(2)
!Global("P#CoranMatch","GLOBAL",1)
Global("P#CoranRomanceInactive","GLOBAL",1)
~ THEN REPLY #100657 /* ~Cooooran! Must I pry you loose from *every* skirt?~ */ EXTERN ~_CORANJ~ 155
  IF ~  OR(2)
!Global("P#CoranMatch","GLOBAL",1)
Global("P#CoranRomanceInactive","GLOBAL",1)
~ THEN REPLY #100658 /* ~But you do not. So the littl' bird's name is irrelevant. Now let us go.~ */ EXTERN ~_BCORAN~ 365
  IF ~  Gender(Player1,MALE)
OR(2)
!Global("P#CoranMatch","GLOBAL",1)
Global("P#CoranRomanceInactive","GLOBAL",1)
~ THEN REPLY #100659 /* ~Excuse me kindly, gentle lady, but I must steal my comrade from you...~ */ GOTO 8
  IF ~  OR(2)
!Global("P#CoranMatch","GLOBAL",1)
Global("P#CoranRomanceInactive","GLOBAL",1)
~ THEN EXTERN ~_BCORAN~ 364
  IF ~  Global("P#CoranMatch","GLOBAL",1)
!Global("P#CoranRomanceInactive","GLOBAL",1)
~ THEN GOTO 6
  IF ~  Global("P#CoranMatch","GLOBAL",1)
!Global("P#CoranRomanceInactive","GLOBAL",1)
~ THEN EXTERN ~_BCORAN~ 363
END

IF ~~ THEN BEGIN 6 // from: 5.5
  SAY #100655 /* ~Your ladylove would chop you into sauerkraut, if you stray, that's what you mean... oh, well. Maybe another time. *winks*~ */
  IF ~  Global("P#CoranMatch","GLOBAL",1)
!Global("P#CoranRomanceInactive","GLOBAL",1)
~ THEN EXIT
  IF ~  OR(2)
!Global("P#CoranMatch","GLOBAL",1)
Global("P#CoranRomanceInactive","GLOBAL",1)
~ THEN REPLY #100657 /* ~Cooooran! Must I pry you loose from *every* skirt?~ */ EXTERN ~_CORANJ~ 155
  IF ~  OR(2)
!Global("P#CoranMatch","GLOBAL",1)
Global("P#CoranRomanceInactive","GLOBAL",1)
~ THEN REPLY #100658 /* ~But you do not. So the littl' bird's name is irrelevant. Now let us go.~ */ EXTERN ~_BCORAN~ 365
  IF ~  Gender(Player1,MALE)
OR(2)
!Global("P#CoranMatch","GLOBAL",1)
Global("P#CoranRomanceInactive","GLOBAL",1)
~ THEN REPLY #100659 /* ~Excuse me kindly, gentle lady, but I must steal my comrade from you...~ */ GOTO 8
  IF ~  OR(2)
!Global("P#CoranMatch","GLOBAL",1)
Global("P#CoranRomanceInactive","GLOBAL",1)
~ THEN EXTERN ~_BCORAN~ 364
END

IF ~~ THEN BEGIN 7 // from:
  SAY #89646 /* ~*giggles*~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 8 // from: 6.3 5.3
  SAY #100719 /* ~Seems that our mine now attracts the gentle-borns... I’d better do something about my hairdo... and buy new shoes.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 9 // from:
  SAY #100720 /* ~I have not had that much fun in ages! Here ya go!~ */
  IF ~~ THEN EXTERN ~_BCORAN~ 366
END
