IF
InParty(Myself)
Global("CoRomReaction","GLOBAL",1)
!Global("CoranRomanceInactive", "GLOBAL",1)
Global("CoranMatch","GLOBAL",1)
Global("CoranLover","GLOBAL",1)
RealGlobalTimerExpired("CRoReactionTime","GLOBAL")
Global("CRIM1","GLOBAL",0)
THEN
RESPONSE #100
RealSetGlobalTimer("CRoReactionlyTime","GLOBAL",10)
SetGlobal("CRIM1","GLOBAL",1)
Interact(Player1)
END

IF 
InParty(Myself)
RealGlobalTimerExpired("CRoReactionlyTime","GLOBAL")
Global("CRIM1","GLOBAL",1)
THEN
RESPONSE #100
IncrementGlobal("CRIM1","GLOBAL",1)
RealSetGlobalTimer("CRoReactionTime","GLOBAL",600)
END
