open [RegenGorDonMaster]
	print "Regen RegenGorDonMaster".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea01" "Breeder" "EventManagerA".
close

open [RegenBat]
	print "Regen RegenBat".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea07" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea08" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea11" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea24" "Breeder" "EventManagerA".
close

open [RegenFireViVi]
	print "Regen RegenFireViVi".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea10" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea12" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea39" "Breeder" "EventManagerA".
close

open [RegenSkelArcher]
	print "Regen RegenSkelArcher".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea04" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea09" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea18" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea19" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea21" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea28" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea30" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea33" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea37" "Breeder" "EventManagerA".
close

open [RegenSkeleton]
	print "Regen RegenSkeleton".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea02" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea03" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea31" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea35" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea36" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea42" "Breeder" "EventManagerA".
close

open [RegenSkelKnight]
	print "Regen RegenSkelKnight".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea14" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea15" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea20" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea25" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea26" "Breeder" "EventManagerA".
close

open [RegenSkelWarrior]
	print "Regen RegenSkelWarrior".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea05" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea23" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea27" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea32" "Breeder" "EventManagerA".
close

open [RegenSpider]
	print "Regen RegenSpider".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea13" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea17" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea38" "Breeder" "EventManagerA".
close

open [RegenZombie]
	print "Regen RegenZombie".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea06" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEchoCave" "KDEchoCaveArea29" "Breeder" "EventManagerA".
close
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
open [main]
    var MyName.
    var MyHandle.
    myname MyName.
    myhandle MyHandle.

    var KQResult.

    call MyName "DefRoutine".
close

open [DefRoutine]
close

open [WaitPlayerEntry]
    var InitRest.
    var CurRest.
    kqrestminute InitRest.                ; ³²Àº ½Ã°£À» ºÐ´ÜÀ§·Î ¾ò¾î¿È

    var Ply.
    Ply = 0.
    while Ply == 0
    open
        howmanymob Ply "Player".           ; µé¾î¿Â Ç÷¹À̾îµé È®ÀÎ

        kqrestminute CurRest.                ; ³²Àº ½Ã°£À» ºÐ´ÜÀ§·Î ¾ò¾î¿È
        if InitRest - CurRest > 5       ; 5ºÐ°£ ´ë±â
        then
        open
            print "Room vanish".
            endofevent KingdomQuest 0.       ; Å·´ýÄù½ºÆ® ½ÇÆзΠ¸¶¹«¸®
            break "main".
        close
    close
close

open [IsTimeUp]            ; ½Ã°£Á¦ÇÑÀÌ ´Ù µÇ¾ú´ÂÁö È®ÀÎ
    print "IsTimeUp".
    var TimeUp.
    kqrestminute TimeUp.                ; ³²Àº ½Ã°£À» ºÐ´ÜÀ§·Î ¾ò¾î¿È
    print "EventManagerAIsTimeUp : " % TimeUp % "Minute left".
    if TimeUp == 0                      ; ½Ã°£¿À¹ö
    then
    open
        print "IsTimeUp : Exit 0".
        KQResult = "Fail".
        break "MainLoop".
    close

    var Ply.
    howmanymob Ply "Player".           ; ³²¾ÆÀÖ´Â Ç÷¹À̾îµé È®ÀÎ
    print "EventManagerAIsTimeUp : " % Ply % "Player left".
    if Ply == 0
    then
    open
        print "IsTimeUp : Exit 1".
        KQResult = "Fail".
        break "MainLoop".
    close

    var NumGoden.

    howmanymob NumGoden "KQ_GorDonMaster".
    if NumGoden == 0
    then
    open
        print "IsTimeUp : Exit 2".
        KQResult = "Success".
        break "MainLoop".
    close
close
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
open [EventManagerAMobAppend]
    var Mobs.
    howmanymob Mobs "KQ_" % AppendMobName.

    print "KQ_" % AppendMobName % "[" % Mobs % "]".

    if Mobs < @("Num" % AppendMobName)
    then
    open
        call "Regen" % AppendMobName.
    close
close

open [EventManagerA]

    print "EventManagerA : Entry".

    var CurMap.
    currentmap CurMap.                  ; ÇöÀç ÁÖÀθ÷ÀÌ ÀÖ´Â ¸Ê ¸®ÅÏ

    ; Ç÷¹À̾ µé¾î¿À±â¸¦ ±â´Ù¸²
    call "WaitPlayerEntry".

    ; ¸ðµç ¸÷ ¸®Á¨
    call "RegenGorDonMaster".
    call "RegenBat".
    call "RegenFireViVi".
    call "RegenSkelArcher".
    call "RegenSkeleton".
    call "RegenSkelKnight".
    call "RegenSkelWarrior".
    call "RegenSpider".
    call "RegenZombie".


    ; ±âº» ¸÷¼ö ¾ò±â À§ÇØ
    var NumBat.
    var NumFireViVi.
    var NumGhost.
    var NumOldFox.
    var NumSkelArcher.
    var NumSkeleton.
    var NumSkelKnight.
    var NumSkelWarrior.
    var NumSpider.
    var NumZombie.

    howmanymob NumBat "KQ_Bat".
    howmanymob NumFireViVi "KQ_FireViVi".
    howmanymob NumSkelArcher "KQ_SkelArcher".
    howmanymob NumSkeleton "KQ_Skeleton".
    howmanymob NumSkelKnight "KQ_SkelKnight".
    howmanymob NumSkelWarrior "KQ_SkelWarrior".
    howmanymob NumSpider "KQ_Spider".
    howmanymob NumZombie "KQ_Zombie".

    NumBat = NumBat / 2.
    NumFireViVi = NumFireViVi / 2.
    NumGhost = NumGhost / 2.
    NumOldFox = NumOldFox / 2.
    NumSkelArcher = NumSkelArcher / 2.
    NumSkeleton = NumSkeleton / 2.
    NumSkelKnight = NumSkelKnight / 2.
    NumSkelWarrior = NumSkelWarrior / 2.
    NumSpider = NumSpider / 2.
    NumZombie = NumZombie / 2.

    var AppendMobName.
    open [MainLoop]
        infinite
        open
            ; ¸ðÀÚ¶õ ¸÷ Ãß°¡
            AppendMobName = "Bat".          call "EventManagerAMobAppend".
            AppendMobName = "FireViVi".     call "EventManagerAMobAppend".
            AppendMobName = "SkelArcher".   call "EventManagerAMobAppend".
            AppendMobName = "Skeleton".     call "EventManagerAMobAppend".
            AppendMobName = "SkelKnight".   call "EventManagerAMobAppend".
            AppendMobName = "SkelWarrior".  call "EventManagerAMobAppend".
            AppendMobName = "Spider".       call "EventManagerAMobAppend".
            AppendMobName = "Zombie".       call "EventManagerAMobAppend".

            call "IsTimeUp".
        close
    close

    wait sec 3.
    if KQResult === "Success"   ; ¼º°ø
    then
    open
        reward KingdomQuest.         ; ¸®¿öµå¸¦ ÁÜ
        broadcast all "°íµç¸¶½ºÅÍÀÇ ½À°ÝÀ» ¼º°øÀûÀ¸·Î ¸·¾Æ³Â½À´Ï´Ù.".
        endofevent KingdomQuest 1.  ; Å·´ýÄù½ºÆ® ¼º°øÀ¸·Î ¸¶¹«¸®
    close
    else
    open
        broadcast all "°íµç¸¶½ºÅÍÀÇ ½À°ÝÀ» ¸·´Âµ¥ ½ÇÆÐÇÏ¿´½À´Ï´Ù.".
        endofevent KingdomQuest 0.       ; Å·´ýÄù½ºÆ® ½ÇÆзΠ¸¶¹«¸®
    close

    broadcast all "30ÃÊÈÄ ·ç¸àÀ¸·Î À̵¿ÇÕ´Ï´Ù.".
    wait sec 10.
    broadcast all "20ÃÊÈÄ ·ç¸àÀ¸·Î À̵¿ÇÕ´Ï´Ù.".
    wait sec 10.
    broadcast all "10ÃÊÈÄ ·ç¸àÀ¸·Î À̵¿ÇÕ´Ï´Ù.".
    wait sec 5.
    broadcast all "5ÃÊÈÄ ·ç¸àÀ¸·Î À̵¿ÇÕ´Ï´Ù.".
    wait sec 5.
    linkto all "Rou" "Rou" 7907 8572.

    mapclear all.

close
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
open [KQ_GorDonMaster]
    var MaxHP.
    currenthp MaxHP.   ; ¸Æ½º HP ÃøÁ¤

    var NextSummonHPRate.
    var NextTeleportHPRate.

    NextSummonHPRate = 910.
    NextTeleportHPRate = 800.

    var CurHP.
    var CurHPRate.
    open [MainLoop]
        infinite
        open
            currenthp CurHP.
            CurHPRate = (CurHP * 1000) / MaxHP.   ; ÁÖÀÇ : ÀÌ·± ¼ö½ÄÀº µÚ¿¡¼­ºÎÅÍ ½ÇÇàµÊ!!!!

            ; ¼Òȯüũ
            if CurHPRate < NextSummonHPRate
            then
            open
                shout all "" "±ú¾î³ª°Å¶ó, ¾îµÒÀÇ Á¸ÀçµéÀÌ¿©..".
                mobsummon Aggressive "KQ_GorDon" 5 "Breeder" "KQ_GorDonMaster".
                NextSummonHPRate = NextSummonHPRate - 91.
            close

            ; ÅÚ·¹Æ÷Æ® üũ
            if CurHPRate < NextTeleportHPRate
            then
            open
                shout all "" "¾î¸®¼®Àº °Íµé °°À¸´Ï, ´É·ÂÀÌ µÇ¸é ³¯ ã¾ÆºÁ¶ó.".
                skillblast me "GoMasterTeleportStart".
                NextTeleportHPRate = NextTeleportHPRate - 200.
            close
            call "IsTimeUp".
        close
    close

    if KQResult === "Success"   ; ¼º°ø
    then
    open
        shout All "" "¾ÈµÅ!!!!".
    close
    else
    open
        shout All "" "ÈÄÈÄÈÄ, ¿À·£¸¸¿¡ ÁúÁÁÀº ¿µÈ¥µéÀ» ÀÜ¶à ¸ð¾Ò±º...".
    close
close