open [main]
    var InterruptBlock      1
        InterruptArg        2
        Door1               3
        Door2               4
        Door3               5
        Guard               "6"
        EffDoor1            "7"
        EffDoor2            "8"
        EffDoor3            "9"
        BossLich           "ABCDE".

    doorbuild Door1 "KQ_SlimeGate" 9860 6094  272 1000 "Normal".      ; Gate1 - Floor1
    doorbuild Door2 "KQ_SlimeGate" 6692 3944    6 1000 "Normal".      ; Gate2 - Floor2
    doorbuild Door3 "KQ_SlimeGate" 5894 6098   88 1000 "Normal".      ; Gate3 - Floor3

    doorclose Door1 "CloseGate01".           ; Set doors closed by default
    doorclose Door2 "CloseGate02".
    doorclose Door3 "CloseGate03".

    effectobj EffDoor1 Door1 "KQ_SlimeGate" 3600000 1000.
    effectobj EffDoor2 Door2 "KQ_SlimeGate" 3600000 1000.
    effectobj EffDoor3 Door3 "KQ_SlimeGate" 3600000 1000.

    waitlogin Guard.
    if Guard == 0                            ; If guard missing, KQfail
    then open
        call "QuestFail".
    close



    pause Sec 5.

    scriptfile "KQSiege".

    npcstand Guard "EldSpeGuard01" 2099 10440 180 1000 "Normal".

    chatwin "DarkFog" "StartWarn0".
    pause Sec 4.                        

    chatwin "DarkFog" "StartWarn1".
    pause Sec 4.                        

    chatwin "FbattleSoul" "StartWarn2".
    pause Sec 4.                        

    chatwin "FbattleSoul" "StartWarn3".
    pause Sec 4.                        

    chatwin "DarkFog" "StartWarn4".
    pause Sec 4.                        

    vanish Guard.

    timelimit Min 60.

    call "FirstFloor".
    call "SecondFloor".
    call "ThirdFloor".
    call "TopFloor".
close

;; First Floor
;open [FirstFloor]
;    interruptclear.
;    interruptset TimeInterval 10000 "DoorOC".
;    var DoorState.
;    DoorState = "Close".
;    infinite
;    open
;        waitinterrupt InterruptBlock "InterruptArg".
;        call InterruptBlock.
;    close
;close
;
;open [DoorOC]
;    if DoorState === "Close"
;    then open
;        dooropen Door1 "CloseGate01".
;        DoorState = "Open".
;    close
;    else open
;        doorclose Door1 "CloseGate01".
;        DoorState = "Close".
;    close
;close
;
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
open [FirstFloor]
    regengroup "KDSiege" "KDSiegeArea05".
    regengroup "KDSiege" "KDSiegeArea07".
    regengroup "KDSiege" "KDSiegeArea06".
    regengroup "KDSiege" "KDSiegeArea11".
    regengroup "KDSiege" "KDSiegeArea13".
    regengroup "KDSiege" "KDSiegeArea16".
    regengroup "KDSiege" "KDSiegeArea24".

	pause Sec 1. ; Pause before commanding

    interruptclear.
    interruptset PlayerEliminate "" 1 "QuestFail".
    interruptset TimeOut "" 1 "QuestFail".
    interruptset MobEliminate "" 1 "FirstMobEleminate".

    infinite
    open
        waitinterrupt InterruptBlock "InterruptArg".
        call InterruptBlock.
    close
close

open [FirstMobEleminate]
    dooropen Door1 "CloseGate01".
    vanish EffDoor1.
    break "FirstFloor".
close
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
open [SecondFloor]
    regengroup "KDSiege" "KDSiegeArea49".
    regengroup "KDSiege" "KDSiegeArea50".
    regengroup "KDSiege" "KDSiegeArea48".
    regengroup "KDSiege" "KDSiegeArea53".
    regengroup "KDSiege" "KDSiegeArea19".
    regengroup "KDSiege" "KDSiegeArea20".
    regengroup "KDSiege" "KDSiegeArea21".
    regengroup "KDSiege" "KDSiegeArea56".
    regengroup "KDSiege" "KDSiegeArea57".

	pause Sec 1. ; Pause before commanding

    interruptclear.
    interruptset PlayerEliminate "" 1 "QuestFail".
    interruptset TimeOut "" 1 "QuestFail".
    interruptset MobEliminate "" 1 "SecondMobEleminate".

    infinite
    open
        waitinterrupt InterruptBlock "InterruptArg".
        call InterruptBlock.
    close
close

open [SecondMobEleminate]
    dooropen Door2 "CloseGate02".
    vanish EffDoor2.
    break "SecondFloor".
close
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
open [ThirdFloor]
    regengroup "KDSiege" "KDSiegeArea26".
    regengroup "KDSiege" "KDSiegeArea22".
    regengroup "KDSiege" "KDSiegeArea27".
    regengroup "KDSiege" "KDSiegeArea25".
    regengroup "KDSiege" "KDSiegeArea23".
    regengroup "KDSiege" "KDSiegeArea30".
    regengroup "KDSiege" "KDSiegeArea29".
    regengroup "KDSiege" "KDSiegeArea03".
    regengroup "KDSiege" "KDSiegeArea04".
    regengroup "KDSiege" "KDSiegeArea45".
    regengroup "KDSiege" "KDSiegeArea46".
    regengroup "KDSiege" "KDSiegeArea47".
    regengroup "KDSiege" "KDSiegeArea44".

	pause Sec 1. ; Pause before commanding

    interruptclear.
    interruptset PlayerEliminate "" 1 "QuestFail".
    interruptset TimeOut "" 1 "QuestFail".
    interruptset MobEliminate "" 1 "ThirdMobEleminate".

    infinite
    open
        waitinterrupt InterruptBlock "InterruptArg".
        call InterruptBlock.
    close
close

open [ThirdMobEleminate]
    dooropen Door3 "CloseGate03".
    vanish EffDoor3.
    break "ThirdFloor".
close
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
open [TopFloor]
    mobregen BossLich "KQ_SiegeDLich" 7081 5972 90 1000 "Normal".

    chatwin "DarkFog" "DarkFog00".
    pause Sec 2.                        ; Boss chat pause
    chatwin "DarkFog" "DarkFog01".

    interruptclear.
    interruptset PlayerEliminate "" 1 "QuestFail".
    interruptset TimeOut "" 1 "QuestFail".
    interruptset MobEliminate "" 1 "QuestSuccess".

    interruptset HPLow "" 1 BossLich 750 "BossSummon1".
    interruptset HPLow "" 1 BossLich 250 "BossSummon2".
    interruptset DeadHandle "" 1 BossLich "BossDead".

    infinite
    open
        waitinterrupt InterruptBlock "InterruptArg".
        call InterruptBlock.
    close
close

open [BossSummon1]
    npcshout BossLich "DarkFog02".
    summonmob BossLich "FireLich" 4.
close

open [BossSummon2]
    npcshout BossLich "DarkFog02".
    summonmob BossLich "IceLich" 4.
close

open [BossDead]
    npcshout BossLich "DarkFog03".
close
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
open [QuestSuccess]
    questresult Suc.                   ; Successful, now execute return
    reward KingdomQuest.

    someoneshout "Guardian" "GuardianSuc0".
    pause Sec 4.                        

    someoneshout "Guardian" "GuardianSuc1".
    pause Sec 4.                        

    chatwin "DarkFog" "KarvokxSuc1".
    pause Sec 4.                        

    chatwin "DarkFog" "KarvokxSuc2".
    pause Sec 4.                        

    broadcast all "KQReturn30".
    pause sec 10.
    broadcast all "KQReturn20".
    pause sec 10.
    broadcast all "KQReturn10".
    pause sec 5.
    broadcast all "KQReturn5".
    pause sec 5.
    linkto all "Urg_Alruin" "Urg_Alruin" 6120 10286.
    endofkq.
    break "main".
close

open [QuestFail]
    questresult Fail.                  ; Failed, now execute return

    broadcast all "KQReturn30".
    pause sec 10.
    broadcast all "KQReturn20".
    pause sec 10.
    broadcast all "KQReturn10".
    pause sec 5.
    broadcast all "KQReturn5".
    pause sec 5.
    linkto all "Urg_Alruin" "Urg_Alruin" 6120 10286.
    endofkq.
    break "main".
close