BEGIN ~beggba~

IF ~ReactionLT(LastTalkedToBy,FRIENDLY_LOWER)
Gender(LastTalkedToBy,FEMALE)~ THEN BEGIN 0
  SAY @8500
  IF ~~ THEN REPLY @8513 DO ~TakePartyGold(1)~ GOTO 9
  IF ~~ THEN REPLY @8512 DO ~TakePartyGold(1)~ GOTO 11
  IF ~~ THEN REPLY @8514 EXIT
END

IF ~ReactionLT(LastTalkedToBy,FRIENDLY_LOWER)
Gender(LastTalkedToBy,MALE)~ THEN BEGIN 1
  SAY @8501
  IF ~~ THEN REPLY @8515 EXIT
  IF ~~ THEN REPLY @8516 DO ~TakePartyGold(1)~ GOTO 10
  IF ~~ THEN REPLY @8517 DO ~TakePartyGold(1)~ GOTO 8
END

IF ~ReactionGT(LastTalkedToBy,NEUTRAL_UPPER)
Gender(LastTalkedToBy,MALE)~ THEN BEGIN 2
  SAY @8502
  IF ~~ THEN REPLY @8519 DO ~TakePartyGold(1)~ GOTO 7
  IF ~~ THEN REPLY @8518 EXIT
END

IF ~ReactionGT(LastTalkedToBy,NEUTRAL_UPPER)
Gender(LastTalkedToBy,FEMALE)~ THEN BEGIN 3
  SAY @8503
  IF ~~ THEN REPLY @8520 DO ~TakePartyGold(1)~ GOTO 9
  IF ~~ THEN REPLY @8521 EXIT
END

IF ~~ THEN BEGIN 4
  SAY @8504
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 5
  SAY @8505
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 6
  SAY @8506
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 7
  SAY @8507
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 8
  SAY @8508
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 9
  SAY @8509
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 10
  SAY @8510
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 11
  SAY @8511
  IF ~~ THEN EXIT
END

IF ~StateCheck(Myself,STATE_CHARMED)~ THEN BEGIN 12
  SAY @8522
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 13
  SAY @8940
  IF ~~ THEN EXIT
END
