IF
    Global("RukrakiaMageCome","GLOBAL",11)
    Alignment(Myself,NEUTRAL)
    Global("RukrakiaMageComeTalk1","LOCALS",0)
THEN
    RESPONSE #100
        SetGlobal("RukrakiaMageComeTalk1","LOCALS",1)
        PlaySong(0)
        StartDialogNoSet(Protagonist)
        ChangeEnemyAlly(Myself,GOODBUTBLUE)
        ChangeEnemyAlly("rukmage1",GOODBUTBLUE)
        DialogInterrupt(FALSE)
END

IF
    See([PC])
    Global("RukrakiaRomanceActive","GLOBAL",0)
THEN
    RESPONSE #100
        Wait(1)
        StartDialogNoSet(Protagonist)
END

IF
    !Dead("Rukrakia")
    Global("CheckRukrakiaMatch1","GLOBAL",0)
    OR(2)
        Global("RukrakiaRomanceActive","GLOBAL",1)
        Global("RukrakiaRomanceActive","GLOBAL",2)
THEN
    RESPONSE #100
        SetGlobal("CheckRukrakiaMatch1","GLOBAL",1)
        Enemy()
END

IF
    Global("CheckRukrakiaMatch1","GLOBAL",1)
    HPPercentLT(Myself, 30)
    !Dead("Rukrakia")
THEN
    RESPONSE #100
        SetGlobal("CheckRukrakiaMatch1","GLOBAL",2)
        ChangeAlignment(Myself,NEUTRAL)
        ClearAllActions()
        PlaySong(0)
        StartDialogNoSet(Protagonist)
END

IF
    Global("CheckRukrakiaMatch1","GLOBAL",4)
THEN
    RESPONSE #100
        SetGlobal("CheckRukrakiaMatch1","GLOBAL",3)
        Enemy()
END

IF
    Global("CheckRukrakiaMatch1","GLOBAL",5)
THEN
    RESPONSE #100
        SetGlobal("CheckRukrakiaMatch1","GLOBAL",3)
        EscapeArea()
END

IF
    !AreaCheck("RU6700")
    Global("LoveTalk","LOCALS",0)
    InParty(Myself)
THEN
    RESPONSE #100
        RealSetGlobalTimer("RukrakiaRomance","GLOBAL",10)
        SetGlobal("CheckRukrakiaMatch2","GLOBAL",1)
        SetGlobal("LoveTalk","LOCALS",1)
END

IF
    InParty(Myself)
    PartyRested()
    Global("RukrakiaFirstNight","GLOBAL",2)
THEN
    RESPONSE #100
        Wait(2)
        PlaySong(0)
        Interact(Protagonist)
END

IF
    InParty(Myself)
    Global("RukrakiaFirstNight","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("RukrakiaFirstNight","GLOBAL",2)
        RestParty()
END

IF
    Global("RukMeetFirkTalk1","LOCALS",1)
    InParty(Myself)
    IsValidForPartyDialog(Myself)
THEN
    RESPONSE #100
        SetGlobal("RukMeetFirkTalk1","LOCALS",2)
        StartDialogNoSet(Protagonist)
END

//---------------------------

IF
    InParty(Myself)
    Global("RukrakiaSezarMeeting","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("RukrakiaSezarMeeting","GLOBAL",2)
        RealSetGlobalTimer("RukrakiaSezarTimer","GLOBAL",3000)
END

IF
    !Dead("Rukrakia")
    InParty(Myself)
    Dead("ruksezar")
    Dead("rukstorm")
    Global("RukrakiaSezarMeeting","GLOBAL",3)
    See(Protagonist)
    !See([ENEMY])
    CombatCounter(0)
THEN
    RESPONSE #100
        SetGlobal("RukrakiaSezarMeeting","GLOBAL",4)
        PlaySong(0)
        StartDialogNoSet(Protagonist)
END

IF
    InParty(Myself)
    OR(2)
    RealGlobalTimerExpired("RukrakiaRomance","GLOBAL")
    RealGlobalTimerExpired("RukrakiaSezarTimer","GLOBAL")
    OR(2)
    Global("LoveTalk","LOCALS",5)
    Global("RukrakiaSezarMeeting","GLOBAL",2)
    See(Protagonist)
    !See([ENEMY])
    !AreaType(DUNGEON)
    CombatCounter(0)
    Global("RukrakiaSezarCame","GLOBAL",0)
    !Global("Chapter","GLOBAL",4)
    !Global("Chapter","GLOBAL",5)
    !Global("Chapter","GLOBAL",7)
    !AreaCheck("AR2500")
    !AreaCheck("AR1300")
    !Range([NEUTRAL],10)
THEN
    RESPONSE #100
        SetGlobal("RukrakiaSezarCame","GLOBAL",1)
        SetGlobal("RukrakiaSezarMeeting","GLOBAL",3)
        ClearAllActions()
        StartCutSceneMode()
        CreateCreatureObjectDoor("ruksezar",Protagonist, 0, 0, 0)
        Wait(2)
        CreateCreatureObjectDoor("rukstorm",Protagonist, 0, 0, 0)
        Wait(2)
        CreateCreatureObjectDoor("rukstorm",Protagonist, 0, 0, 0)
        Wait(1)
        CreateCreatureObjectDoor("rukstorm",Player1, 0, 0, 0)
        Wait(1)
        CreateCreatureObjectDoor("rukstorm",Player2, 0, 0, 0)
        Wait(1)
        CreateCreatureObjectDoor("rukstorm",Player3, 0, 0, 0)
        Wait(1)
        CreateCreatureObjectDoor("rukstorm",Player4, 0, 0, 0)
        Wait(1)
        CreateCreatureObjectDoor("rukstorm",Player5, 0, 0, 0)
        Wait(1)
        CreateCreatureObjectDoor("rukstorm",Player6, 0, 0, 0)
        EndCutSceneMode()
        StartDialogNoSet(Protagonist)
END

//-------------------

IF
    InParty(Myself)
    Global("LoveTalk","LOCALS",21)
    Global("Chapter","GLOBAL",6)
    RealGlobalTimerExpired("RukrakiaRomance","GLOBAL")
    Range(Protagonist,6)
    !AreaType(DUNGEON)
    LevelGT(Protagonist,14)
    Global("RukrakiaMageCome","GLOBAL",0)
    !AreaCheck("AR2500")
    !AreaCheck("AR1300")
    !Range([NEUTRAL],10)
THEN
    RESPONSE #100
        ClearAllActions()
        StartCutSceneMode()
        CreateCreatureObjectDoor("rukmage1","rukrakia", 0, 0, 0)
        Wait(2)
        EndCutSceneMode()
        SetGlobal("RukrakiaMageCome","GLOBAL",1)
END

IF
    Global("RukrakiaMageCome","GLOBAL",3)
THEN
    RESPONSE #100
        ClearAllActions()
        StartCutSceneMode()
        ActionOverride("rukmage1",ForceSpellRES("ruksnw2","rukrakia"))
        Wait(2)
        DisplayStringHead(Myself,@73)
        Wait(2)
        LeaveParty()
        SetLeavePartyDialogFile()
        ChangeAIScript("",DEFAULT)
        SetGlobal("RukrakiaMageCome","GLOBAL",4)
        EndCutSceneMode()
        MoveBetweenAreas("RU6700",[449.331],5)
END

//--------------------------

IF
    Global("RukrakiaMageCome","GLOBAL",14)
    Allegiance(Myself,GOODBUTBLUE)
    See(Protagonist)
    CombatCounter(0)
THEN
    RESPONSE #100
        PlaySong(0)
        DialogInterrupt(TRUE)
        StartDialogNoSet(Protagonist)
END

IF
    Global("RukrakiaMageCome","GLOBAL",16)
    Allegiance(Myself,GOODBUTBLUE)
    See(Protagonist)
    CombatCounter(0)
THEN
    RESPONSE #100
        PlaySong(0)
        DialogInterrupt(TRUE)
        StartDialogNoSet(Protagonist)
END

IF
    Global("RukrakiaMageCome","GLOBAL",15)
    Allegiance(Myself,GOODBUTBLUE)
    See(Protagonist)
    CombatCounter(0)
THEN
    RESPONSE #100
        PlaySong(0)
        DialogInterrupt(TRUE)
        StartDialogNoSet(Protagonist)
END

//-------------------

IF
    InParty(Myself)
    Global("RukPastPhaere","LOCALS",0)
    OR(2)
        Global("PhaereInnuendo","GLOBAL",2)
        Global("PhaereInnuendo","GLOBAL",3)
    !Range("Phaere",6)
    GlobalGT("RukrakiaRomanceActive","GLOBAL",1)
    CombatCounter(0)
THEN
    RESPONSE #100
        SetGlobal("RukPastPhaere","LOCALS",1)
        PlaySong(0)
        StartDialogueNoSet(Protagonist)
END

//-------------------

IF
    Global("CheckRukrakiaMatch2","GLOBAL",1)
    !Gender(Protagonist,FEMALE)
    OR(3)
    Race(Protagonist,HUMAN)
    Race(Protagonist,ELF)
    Race(Protagonist,HALF_ELF)
THEN
    RESPONSE #100
        SetGlobal("RukrakiaMatch","GLOBAL",1)
        SetGlobal("CheckRukrakiaMatch2","GLOBAL",2)
END

//-------------------

IF
    InParty(Myself)
    InParty("jaheira")
    GlobalGT("RukrakiaRomanceActive","GLOBAL",2)
    Global("JaheiraRomanceActive","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("JaheiraRomanceActive","GLOBAL",3)
END

IF
    InParty(Myself)
    InParty("viconia")
    GlobalGT("RukrakiaRomanceActive","GLOBAL",2)
    Global("ViconiaRomanceActive","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("ViconiaRomanceActive","GLOBAL",3)
END

IF
    InParty(Myself)
    InParty("aerie")
    GlobalGT("RukrakiaRomanceActive","GLOBAL",2)
    Global("AerieRomanceActive","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("AerieRomanceActive","GLOBAL",3)
END

IF
    InParty(Myself)
    InParty("nalia")
    GlobalGT("RukrakiaRomanceActive","GLOBAL",2)
    Global("NaliaRomanceActive","GLOBAL",1)
THEN
    RESPONSE #100
        SetGlobal("NaliaRomanceActive","GLOBAL",3)
END

IF
    InParty(Myself)
    GlobalGT("RukrakiaRomanceActive","GLOBAL",1)
    OR(4)
        Global("JaheiraRomanceActive","GLOBAL",2)
        Global("AerieRomanceActive","GLOBAL",2)
        Global("ViconiaRomanceActive","GLOBAL",2)
        Global("NaliaRomanceActive","GLOBAL",2)
THEN
    RESPONSE #100
        SetGlobal("RukrakiaRomanceActive","GLOBAL",1)
END

//-------------------

IF
    InParty(Myself)
    RealGlobalTimerExpired("RukrakiaRomance","GLOBAL")
    PartyRested()
    !Global("RukrakiaRomanceActive","GLOBAL",0)
    See(Protagonist)
    !AreaType(DUNGEON)
    CombatCounter(0)
    OR(2)
        Global("LoveTalk","LOCALS",1)
        Global("LoveTalk","LOCALS",3)
THEN
    RESPONSE #100
        RealSetGlobalTimer("RukrakiaRomance","GLOBAL",10)
END

IF
    InParty(Myself)
    RealGlobalTimerExpired("RukrakiaRomance","GLOBAL")
    !Global("RukrakiaRomanceActive","GLOBAL",0)
    !AreaType(DUNGEON)
    See(Protagonist)
    !See([ENEMY])
    !Range([NEUTRAL],6)
    CombatCounter(0)
    OR(2)
        Global("LoveTalk","LOCALS",1)
        Global("LoveTalk","LOCALS",3)
THEN
    RESPONSE #100
        IncrementGlobal("LoveTalk","LOCALS",1)
        PlaySong(0)
        Interact(Protagonist)
END


IF
    InParty(Myself)
    RealGlobalTimerExpired("RukrakiaRomance","GLOBAL")
    PartyRested()
    !Global("RukrakiaRomanceActive","GLOBAL",0)
    !Global("RukrakiaRomanceActive","GLOBAL",1)
    Global("RukrakiaMatch","GLOBAL",1)
    See(Protagonist)
    !AreaType(DUNGEON)
    CombatCounter(0)
    OR(12)
        Global("LoveTalk","LOCALS",7)
        Global("LoveTalk","LOCALS",9)
        Global("LoveTalk","LOCALS",11)
        Global("LoveTalk","LOCALS",13)
        Global("LoveTalk","LOCALS",15)
        Global("LoveTalk","LOCALS",17)
        Global("LoveTalk","LOCALS",19)
        Global("LoveTalk","LOCALS",23)
        Global("LoveTalk","LOCALS",25)
        Global("LoveTalk","LOCALS",27)
        Global("LoveTalk","LOCALS",29)
        Global("LoveTalk","LOCALS",31)
THEN
    RESPONSE #100
        RealSetGlobalTimer("RukrakiaRomance","GLOBAL",10)
END

IF
    InParty(Myself)
    RealGlobalTimerExpired("RukrakiaRomance","GLOBAL")
    !Global("RukrakiaRomanceActive","GLOBAL",0)
    !Global("RukrakiaRomanceActive","GLOBAL",1)
    Global("RukrakiaMatch","GLOBAL",1)
    !AreaType(DUNGEON)
    See(Protagonist)
    !See([ENEMY])
    !Range([NEUTRAL],6)
    CombatCounter(0)
    OR(12)
        Global("LoveTalk","LOCALS",7)
        Global("LoveTalk","LOCALS",9)
        Global("LoveTalk","LOCALS",11)
        Global("LoveTalk","LOCALS",13)
        Global("LoveTalk","LOCALS",15)
        Global("LoveTalk","LOCALS",17)
        Global("LoveTalk","LOCALS",19)
        Global("LoveTalk","LOCALS",23)
        Global("LoveTalk","LOCALS",25)
        Global("LoveTalk","LOCALS",27)
        Global("LoveTalk","LOCALS",29)
        Global("LoveTalk","LOCALS",31)
THEN
    RESPONSE #100
        IncrementGlobal("LoveTalk","LOCALS",1)
        PlaySong(0)
        Interact(Protagonist)
END

IF
    InParty(Myself)
    RealGlobalTimerExpired("RukrakiaRomance","GLOBAL")
    OR(15)
        Global("LoveTalk","LOCALS",2)
        Global("LoveTalk","LOCALS",4)
        Global("LoveTalk","LOCALS",6)
        Global("LoveTalk","LOCALS",8)
        Global("LoveTalk","LOCALS",10)
        Global("LoveTalk","LOCALS",12)
        Global("LoveTalk","LOCALS",14)
        Global("LoveTalk","LOCALS",16)
        Global("LoveTalk","LOCALS",18)
        Global("LoveTalk","LOCALS",20)
        Global("LoveTalk","LOCALS",22)
        Global("LoveTalk","LOCALS",24)
        Global("LoveTalk","LOCALS",26)
        Global("LoveTalk","LOCALS",28)
        Global("LoveTalk","LOCALS",30)
THEN
    RESPONSE #100
        IncrementGlobal("LoveTalk","LOCALS",1)
        RealSetGlobalTimer("RukrakiaRomance","GLOBAL",3000)
END

IF
    Allegiance(Myself,ENEMY)
    !InParty(Myself)
    Global("CheckRukrakiaMatch1","GLOBAL",6)
THEN
    RESPONSE #100
        SetGlobal("RukrakiaRomanceActive","GLOBAL",1)
        DisplayStringHead(Myself,@100)
        EscapeArea()
        Continue()
END

IF
    Allegiance(Myself,NEUTRAL)
    AttackedBy([GOODCUTOFF],DEFAULT)
    Global("CheckRukrakiaMatch1","GLOBAL",6)
THEN
    RESPONSE #100
        SetGlobal("RukrakiaRomanceActive","GLOBAL",1)
        DisplayStringHead(Myself,@100)
        EscapeArea()
        Continue()
END

IF
    InParty(Myself)
    GlobalGT("RukrakiaRomanceActive","GLOBAL",2)
    OR(8)
      SpellCastOnMe(Player1,CLERIC_RESTORATION)
      SpellCastOnMe(Player1,CLERIC_LESSER_RESTORATION)
      SpellCastOnMe(Player1,CLERIC_CURE_LIGHT_WOUNDS)
      SpellCastOnMe(Player1,CLERIC_CURE_MEDIUM_WOUNDS)
      SpellCastOnMe(Player1,CLERIC_CURE_DISEASE)
      SpellCastOnMe(Player1,CLERIC_CURE_SERIOUS_WOUNDS)
      SpellCastOnMe(Player1,CLERIC_CURE_CRITICAL_WOUNDS)
      SpellCastOnMe(Player1,CLERIC_HEAL)
    !GlobalTimerNotExpired("ThankYou","LOCALS")
THEN
    RESPONSE #100
        SetGlobalTimer("ThankYou","LOCALS",30)
        DisplayStringHead(Myself,@245)
END


IF
	See(NearestEnemyOf(Myself))
        ActionListEmpty()
	!Range(NearestEnemyOf(Myself),8)
        !InParty(Myself)
THEN
	RESPONSE #100
		ReallyForceSpell(NearestEnemyOf(Myself),PHASE_SPIDER_TELEPORT)
                SmallWait(30)
END

IF
	See(NearestEnemyOf(Myself))
        ActionListEmpty()
        Range(NearestEnemyOf(Myself),8)
        !InParty(Myself)
THEN
	RESPONSE #100
		AttackReevaluate(NearestEnemyOf(Myself),30)
END

IF
        InParty(Myself)
	See(NearestEnemyOf(Myself))
        ActionListEmpty()
	!Range(NearestEnemyOf(Myself),8)
        Global("RukrakiaTELEPORT","LOCALS",0)
THEN
	RESPONSE #100
		ReallyForceSpell(NearestEnemyOf(Myself),PHASE_SPIDER_TELEPORT)
                SmallWait(30)
END

IF
        InParty(Myself)
	See(NearestEnemyOf(Myself))
        ActionListEmpty()
        Range(NearestEnemyOf(Myself),8)
        Global("RukrakiaSCRAttack","LOCALS",0)
THEN
	RESPONSE #100
		AttackReevaluate(NearestEnemyOf(Myself),30)
END

//-------------------------

IF
    AreaCheck("AR1100")
    InParty(Myself)
    Global("RukUmarHillComment","LOCALS",0)
    !See([ENEMY])
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukUmarHillComment","LOCALS",1)
        DisplayStringHead(Myself,@39)
END

IF
    AreaCheck("AR0803")
    InParty(Myself)
    Global("RukVampireComment","LOCALS",0)
    !See([ENEMY])
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukVampireComment","LOCALS",1)
        DisplayStringHead(Myself,@40)
END

IF
    AreaCheck("AR0201")
    InParty(Myself)
    Global("RukAR0201Comment","LOCALS",0)
    OR(2)
    Exists("SKELDED")
    Exists("BHGHOUL3")
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukAR0201Comment","LOCALS",1)
        DisplayStringHead(Myself,@41)
END

IF
    AreaCheck("AR0202")
    InParty(Myself)
    Global("RukAR0202Comment","LOCALS",0)
    OR(2)
    Exists("CULTIST1")
    Exists("SHADOW01")
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukAR0202Comment","LOCALS",1)
        DisplayStringHead(Myself,@42)
END

IF
    AreaCheck("AR0205")
    InParty(Myself)
    Global("RukAR0205Comment","LOCALS",0)
    !See([ENEMY])
    OR(2)
    Exists("CULTBH1")
    Exists("BRAIWA1") 
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukAR0205Comment","LOCALS",1)
        DisplayStringHead(Myself,@43)
END

IF
    AreaCheck("AR0206")
    InParty(Myself)
    Global("RukAR0206Comment","LOCALS",0)
    OR(2)
    Exists("GHOLOR01")
    Exists("BHGHOUL5")
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukAR0206Comment","LOCALS",1)
        DisplayStringHead(Myself,@44)
END

IF
    AreaCheck("AR0411")
    InParty(Myself)
    Global("RukAR0411Comment","LOCALS",0)
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukAR0411Comment","LOCALS",1)
        DisplayStringHead(Myself,@45)
END

IF
    AreaCheck("AR0412")
    InParty(Myself)
    Global("RukAR0412Comment","LOCALS",0)
    Exists("TOLMAG02")
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukAR0412Comment","LOCALS",1)
        DisplayStringHead(Myself,@46)
END

IF
    AreaCheck("AR0414")
    InParty(Myself)
    Global("RukAR0414Comment","LOCALS",0)
    Exists("ABYDEM01")
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukAR0414Comment","LOCALS",1)
        DisplayStringHead(Myself,@47)
END

IF
    AreaCheck("AR0700")
    InParty(Myself)
    Global("RukAR0700Comment","LOCALS",0)
    !See([ENEMY])
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukAR0700Comment","LOCALS",1)
        DisplayStringHead(Myself,@48)
END

IF
    AreaCheck("AR0802")
    InParty(Myself)
    Global("RukAR0802Comment","LOCALS",0)
    See("MUMMY01")
    Delay(1)
THEN
    RESPONSE #100
        SetGlobal("RukAR0802Comment","LOCALS",1)
        DisplayStringHead(Myself,@49)
END

IF
    AreaCheck("AR0900")
    InParty(Myself)
    Global("RukAR0900Comment","LOCALS",0)
    !See([ENEMY])
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukAR0900Comment","LOCALS",1)
        DisplayStringHead(Myself,@50)
END

IF
    AreaCheck("AR1000")
    InParty(Myself)
    Global("RukAR1000Comment","LOCALS",0)
    !See([ENEMY])
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukAR1000Comment","LOCALS",1)
        DisplayStringHead(Myself,@51)
END

IF
    AreaCheck("AR1008")
    InParty(Myself)
    Global("RukAR1008Comment","LOCALS",0)
    Global("ShangalarMove","AR1008",1)
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukAR1008Comment","LOCALS",1)
        DisplayStringHead(Myself,@52)
END

IF
    AreaCheck("AR1201")
    InParty(Myself)
    Global("RukAR1201Comment","LOCALS",0)
    !See([ENEMY])
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukAR1201Comment","LOCALS",1)
        DisplayStringHead(Myself,@53)
END

IF
    AreaCheck("AR1203")
    InParty(Myself)
    Global("RukAR1203Comment","LOCALS",0)
    Exists("FIRKRA02")
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukAR1203Comment","LOCALS",1)
        DisplayStringHead(Myself,@54)
END

IF
    AreaCheck("AR1300")
    InParty(Myself)
    Global("RukAR1300Comment","LOCALS",0)
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukAR1300Comment","LOCALS",1)
        DisplayStringHead(Myself,@55)
END

IF
    AreaCheck("AR1302")
    InParty(Myself)
    Global("RukAR1302Comment","LOCALS",0)
    OR(2)
    See("KPTROL04")
    See("KPTROL03")
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukAR1302Comment","LOCALS",1)
        DisplayStringHead(Myself,@56)
END

IF
    AreaCheck("AR1401")
    InParty(Myself)
    Global("RukAR1401Comment","LOCALS",0)
    !See([ENEMY])
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukAR1401Comment","LOCALS",1)
        DisplayStringHead(Myself,@57)
END

IF
    AreaCheck("AR1402")
    See("DRAGSHAD")
    InParty(Myself)
    Global("RukAR1402Comment","LOCALS",0)
    Delay(1)
THEN
    RESPONSE #100
        SetGlobal("RukAR1402Comment","LOCALS",1)
        DisplayString(Myself,@58)
END

IF
    AreaCheck("AR1404")
    InParty(Myself)
    Global("RukAR1404Comment","LOCALS",0)
    Global("FinishedLensPlot","AR1404",0)
    !See([ENEMY])
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukAR1404Comment","LOCALS",1)
        DisplayStringHead(Myself,@59)
END

IF
    AreaCheck("AR1500")
    InParty(Myself)
    Global("RukAR1500Comment","LOCALS",0)
    !See([ENEMY])
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukAR1500Comment","LOCALS",1)
        DisplayStringHead(Myself,@60)
END

IF
    AreaCheck("AR1508")
    InParty(Myself)
    Global("RukAR1508Comment","LOCALS",0)
    Global("Deactivate","AR1508",3)
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukAR1508Comment","LOCALS",1)
        DisplayStringHead(Myself,@61)
END

IF
    AreaCheck("AR1600")
    InParty(Myself)
    Global("RukAR1600Comment","LOCALS",0)
    Global("AsylumPlot","GLOBAL",4)
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukAR1600Comment","LOCALS",1)
        DisplayStringHead(Myself,@62)
END

IF
    AreaCheck("AR1600")
    InParty(Myself)
    Global("RukAR1600Comment","LOCALS",0)
    Dead("ppvalen")
    Dead("ppparis")
    Dead("ppdel")
    !See([ENEMY])
    CombatCounter(0)
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukAR1600Comment","LOCALS",1)
        DisplayStringHead(Myself,@62)
END

IF
    AreaCheck("AR1900")
    InParty(Myself)
    Global("RukAR1900Comment","LOCALS",0)
    !See([ENEMY])
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukAR1900Comment","LOCALS",1)
        DisplayStringHead(Myself,@63)
END

IF
    AreaCheck("AR2000")
    InParty(Myself)
    Global("RukAR2000Comment","LOCALS",0)
    !See([ENEMY])
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukAR2000Comment","LOCALS",1)
        DisplayStringHead(Myself,@64)
END

IF
    AreaCheck("AR2100")
    InParty(Myself)
    Global("RukAR2100Comment","LOCALS",0)
    !See([ENEMY])
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukAR2100Comment","LOCALS",1)
        DisplayStringHead(Myself,@65)
END

IF
    AreaCheck("AR2101")
    InParty(Myself)
    Global("RukAR2101Comment","LOCALS",0)
    !See([ENEMY])
    Dead("BEHOLD01")
    Delay(1)
THEN
    RESPONSE #100
        SetGlobal("RukAR2101Comment","LOCALS",1)
        DisplayStringHead(Myself,@66)
END

IF
    AreaCheck("AR2102")
    InParty(Myself)
    Global("RukAR2102Comment","LOCALS",0)
    !See("UDSILVER")
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukAR2102Comment","LOCALS",1)
        DisplayStringHead(Myself,@67)
END

IF
    AreaCheck("AR2401")
    InParty(Myself)
    Global("RukAR2401Comment","LOCALS",0)
    Delay(2)
THEN
    RESPONSE #100
        SetGlobal("RukAR2401Comment","LOCALS",1)
        DisplayStringHead(Myself,@68)
END


IF
    AreaCheck("AR2402")
    Global("spawnKnights","AR2402",1)
    InParty(Myself)
    OR(2)
    See("uddeath")
    See("uddeath2")
    Global("RukAR2402DeathComment","LOCALS",0)
    Delay(4)
THEN
    RESPONSE #100
        SetGlobal("RukAR2402DeathComment","LOCALS",1)
        DisplayStringHead(Myself,@90)
END

IF
    AreaCheck("AR1512")
    OR(11)
      PartyHasItem("MISCA9")
      PartyHasItem("MISCAA")
      PartyHasItem("MISCAI")
      PartyHasItem("MISCAB")
      PartyHasItem("MISCAC")
      PartyHasItem("MISCAD")
      PartyHasItem("MISCAE")
      PartyHasItem("MISCAF")
      PartyHasItem("MISCAG")
      PartyHasItem("MISCAH")
      PartyHasItem("MISCAJ")
    InParty(Myself)
    See(Player1)
    CombatCounter(0)
    Global("RukAR1512Comment","LOCALS",0)
THEN
    RESPONSE #100
        SetGlobal("RukAR1512Comment","LOCALS",1)
        Wait(3)
        StartDialogNoSet(Protagonist)
END

IF
    Global("RukrakiaMageCome","GLOBAL",12)
THEN
    RESPONSE #100
        DestroySelf()
END