open [Regen_1]
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea01" "Breeder" "EventManagerA".
close

open [Regen_2]
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea02" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea03" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea04" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea05" "Breeder" "EventManagerA".
close

open [Regen_3]
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea06" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea07" "Breeder" "EventManagerA".
close

open [Regen_4]
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea10" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea11" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea12" "Breeder" "EventManagerA".
close

open [Regen_5]
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea13" "Breeder" "EventManagerA".
close

open [Regen_6]
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea14" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea16" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea17" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea19" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea20" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea21" "Breeder" "EventManagerA".
close

open [Regen_7]
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea24" "Breeder" "EventManagerA".
close

open [Regen_8]
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea25" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea26" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea27" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea28" "Breeder" "EventManagerA".
close

open [Regen_9]
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea29" "Breeder" "EventManagerA".
close

open [Regen_10]
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea30" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea31" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea32" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea33" "Breeder" "EventManagerA".
close

open [Regen_11]
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea34" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea35" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea36" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea37" "Breeder" "EventManagerA".
close

open [Regen_12]
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea39" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea40" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea41" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea42" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea43" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea44" "Breeder" "EventManagerA".
close

open [Regen_13]
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea45" "Breeder" "EventManagerA".
close

open [Regen_14]
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea47" "Breeder" "EventManagerA".
close

open [Regen_15]
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea49" "Breeder" "EventManagerA".
close

open [Regen_16]
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea51" "Breeder" "EventManagerA".
close

open [Regen_17]
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea53" "Breeder" "EventManagerA".
close

open [Regen_18]
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea54" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea55" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea56" "Breeder" "EventManagerA".
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea57" "Breeder" "EventManagerA".
close

open [Regen_19]
    mobregen Aggressive "KDTrDn" "KDTravelerDnArea58" "Breeder" "EventManagerA".
close
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
open [main]
    var MyName.
    var MyHandle.
    myname MyName.
    myhandle MyHandle.

    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
close

open [WaitMobRegen]
    var Mob.
    Mob = 0.
    while Mob == 0
    open
        howmanymob Mob "All".                ; ¸ðµç Àû¼ö È®ÀÎ
    close
close

open [WaitMobAnnihilation]
    var Mob.
    Mob = 10.
    while Mob > 0
    open
        howmanymob Mob "All".                ; ¸ðµç Àû¼ö È®ÀÎ
        call "IsTimeUp".
    close

    broadcast all "¸ðµç ÀûÀ» ´Ù ¹°¸®Ä¡¼Ì±º¿ä.".
close
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
open [EventManagerA]

    print "EventManagerA : Entry".

    call "WaitPlayerEntry".             ; »ç¶÷µéÀÌ µé¾î¿Ã ¶§±îÁö ±â´Ù¸²

    var Stage.
    Stage = 1.

    var KQResult.
    KQResult = "Success".

    broadcast all "ÀÚ, ÀÌÁ¦ºÎÅÍ ¿©·¯°¡Áö ÀûµéÀÌ".
    broadcast all "¿©·¯ºÐµéÀÇ ¾ÕÀ» ¸·¾Æ¼³ °ÍÀÔ´Ï´Ù.".
    broadcast all "¸ðµÎµé Çà¿îÀ» º÷´Ï´Ù.".

    open [MainLoop]
        while Stage <= 19
        open
            broadcast all "´ÙÀ½ ÀûÀÌ ³ªÅ¸³¯ ¶§±îÁö Àá½Ã¸¸ ±â´Ù·Á ÁֽʽÿÀ.".

            var RegenRoutine.
            RegenRoutine = "Regen_" % Stage.

            call RegenRoutine.          ; Àû ¸®Á¨
            call "WaitMobRegen".         ; ¸®Á¨µÉ¶§±îÁö ±â´Ù¸²
            call "WaitMobAnnihilation".   ; Àü¸êÇÒ¶§±îÁö ±â´Ù¸²

            Stage = Stage + 1.
        close
    close

    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