Creating Own Mod - Romance won't start!

Hi

I am currently trying to make my own NPC mod with a romance. 

Really very helpful tutorials on the forums. I have been following the "Coding Friendships and Romance" one by Kaeloree, which has been great. The only problem I have having is my NPC joins up with my PC but the romance just won't start no matter what. I have attached both my NPCJ dialogue file and script file for the romance. If you could have a look at them and double check I haven't missed something really stupid that would be great! No matter how much I read them I just can't seem to find the problem!!

Thanks in advice

// 1. Someone Like You

IF ~Global("LE#LetanLoveTalk","GLOBAL",1)~ LoveTalk1

  SAY ~So what is someone like you doing in the lovely Amn?~

  IF ~~THEN REPLY ~I am hunting down Irencius. I will find him and have what he knows~GOTO Power

  IF ~~THEN REPLY ~I am trying to get Imoen back. She is like a sister to me. I must find her~GOTO Family

  IF ~~THEN REPLY ~Just decided to come here for a holiday. Was told it was a great place for fun~GOTO Liar

  IF ~~THEN REPLY ~None of your business Half-Drow. Now come away from me~GOTO Fine

END

 

IF ~~THEN BEGIN Power

SAY ~Ah.. I see. Power is what you are after then. Why kind of power could this Irencius possess that you already don't <RACE>?~

= ~Oh don't look at me that way, I know what you are <RACE>... the famous Bhaal of the Sword Coast. So again I ask what kind of power could this wizard hold for you?~

IF ~~THEN REPLY ~Oh so that is why you approached me then Half-Drow, thought to be protected?~GOTO Protected

END

 

IF ~~THEN BEGIN Protected

SAY ~Can you blame me Bhaal spawn? Isn't it better to be on the winning side. Ha! But still you intrigue me. I will follow you for now. Come let us find this wizard of yours~

  IF ~~ DO ~SetGlobal("LE#LetanLoveTalk","GLOBAL",2) RealSetGlobalTimer("LE#LetanRomanceTimer","GLOBAL",3600)~ EXIT

END

 

IF ~~THEN BEGIN Family

SAY ~Pfff.... you do all this for some human girl who is like a sister to you. She is no sister... for a start she is Human. Really <RACE>? You obviously are more stupid than you look! At the end of the day Family mean nothing. I spit on family! Power is what counts~

IF ~~THEN REPLY ~Family meets everything to me Letan.~GOTO Fool

IF ~~THEN REPLY ~Imeon means something to me but the promise of power is intruging to me too~GOTO Power

END

 

IF ~~THEN BEGIN Fool

SAY ~You are a fool <RACE>. You will die a fool too. Pfff... Family. *laughs* You will learn.~

  IF ~~ DO ~SetGlobal("LE#LetanLoveTalk","GLOBAL",2) RealSetGlobalTimer("LE#LetanRomanceTimer","GLOBAL",3600)~ EXIT

END

 

IF ~~THEN BEGIN Liar

SAY ~Ha! <RACE> you can't lie to me. I know why you are here really. So you might as well come out with it~

IF ~~THEN REPLY ~It's not none or your business fool!~GOTO Fine

IF ~~THEN REPLY ~Ha! You got me. I am hunting Irencius for what he might be able to do for me~GOTO Power

IF ~~THEN REPLY ~As much as I would love a holiday now, I am trying to get Imeon back... she is a sister to me~GOTO Family

END

 

IF ~~THEN BEGIN Fine

SAY ~Fine <RACE>. Have it your way...~

  IF ~~ DO ~SetGlobal("LE#LetanLoveTalk","GLOBAL",2) RealSetGlobalTimer("LE#LetanRomanceTimer","GLOBAL",3600)~ EXIT

END

 

// 2. The Stink

IF ~Global("LE#LetanLoveTalks","GLOBAL",3)~ ##F2

  SAY ~The stink can sometimes get too much. Don't you think?~

  IF ~~ DO ~SetGlobal("LE#LetanLoveTalk","GLOBAL",4) RealSetGlobalTimer("LE#LetanRomanceTimer","GLOBAL",3600)~ EXIT

END

// Dialogues

IF

    InParty(Myself)

    Global("LE#LetanRomanceCheck","GLOBAL",0)

    Global("LE#LetanRomanceActive","GLOBAL",0)

    Global("LE#LetanLoveTalk","GLOBAL",0)

    OR(3)

      Race(Player1,HALF_ELF)

      Race(Player1,HALF_ORC)

      Race(Player1,HALFLING)

THEN

  RESPONSE #100

    RealSetGlobalTimer("LE#LetanRomanceTimer","GLOBAL",1200)

    SetGlobal("LE#LetanLoveTalk","GLOBAL",1)

    SetGlobal("LE#LetanRomanceCheck","GLOBAL",1)

    SetGlobal("LE#LetanLoveTalk","GLOBAL",1)

END

 

IF

    InParty(Myself)

    Global("LE#LetanRomanceCheck","GLOBAL",0)

THEN

  RESPONSE #100

    SetGlobal("LE#LetanRomanceCheck","GLOBAL",1)

END

 

 

IF

    InParty(Myself)

    See(Player1)

    !StateCheck("Letan",CD_STATE_NOTVALID)

    !StateCheck(Player1,CD_STATE_NOTVALID)

    RealGlobalTimerExpired("LE#LetanRomanceTimer","GLOBAL")

    CombatCounter(0)

    !See([ENEMY])

    OR(

      Global("LE#LetanLoveTalk","GLOBAL",1)

      Global("LE#LetanLoveTalk","GLOBAL",3)

      Global("LE#LetanLoveTalk","GLOBAL",5)

      Global("LE#LetanLoveTalk","GLOBAL",7)

      Global("LE#LetanLoveTalk","GLOBAL",9)

      Global("LE#LetanLoveTalk","GLOBAL",11)

      Global("LE#LetanLoveTalk","GLOBAL",13)

      Global("LE#LetanLoveTalk","GLOBAL",15)

THEN

  RESPONSE #100

    MoveToObject(Player1)

    Dialogue(Player1)

END

 

 

IF

    InParty(Myself)

    See(Player1)

    RealGlobalTimerExpired("LE#LetanRomanceTimer","GLOBAL")

    OR(6)

      Global("LE#LetanLoveTalk","GLOBAL",2)

      Global("LE#LetanLoveTalk","GLOBAL",4)

      Global("LE#LetanLoveTalk","GLOBAL",6)

      Global("LE#LetanLoveTalk","GLOBAL",

      Global("LE#LetanLoveTalk","GLOBAL",12)

      Global("LE#LetanLoveTalk","GLOBAL",14)

THEN

  RESPONSE #100

    IncrementGlobal("LE#LetanLoveTalk","GLOBAL",1)

END