open [RegenBossRobo]
    mobregen Aggressive "KDRockCan" "KDRockCanArea36" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea83" "Breeder" "EventManagerA".
close

open [RegenDesertWolf]
    mobregen Aggressive "KDRockCan" "KDRockCanArea11" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea28" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea103" "Breeder" "EventManagerA".
close

open [RegenGiantMushroom]
    mobregen Aggressive "KDRockCan" "KDRockCanArea03" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea04" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea06" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea09" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea14" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea20" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea21" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea29" "Breeder" "EventManagerA".
close

open [RegenKissLips]
    mobregen Aggressive "KDRockCan" "KDRockCanArea73" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea78" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea85" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea87" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea93" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea97" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea101" "Breeder" "EventManagerA".
close

open [RegenRapidBoar]
    mobregen Aggressive "KDRockCan" "KDRockCanArea12" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea27" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea31" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea34" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea39" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea40" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea41" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea43" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea61" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea62" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea63" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea64" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea68" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea72" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea86" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea90" "Breeder" "EventManagerA".
close

open [RegenSandRatman]
    mobregen Aggressive "KDRockCan" "KDRockCanArea01" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea32" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea33" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea35" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea47" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea51" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea53" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea81" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea92" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea95" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea98" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea99" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea100" "Breeder" "EventManagerA".
close

open [RegenSmallProck]
    mobregen Aggressive "KDRockCan" "KDRockCanArea02" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea13" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea19" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea44" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea48" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea49" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea54" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea55" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea56" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea57" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea58" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea59" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea60" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea66" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea67" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea70" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea71" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea74" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea75" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea76" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea77" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea79" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea80" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea82" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea84" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea88" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea89" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea94" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea96" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea102" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea104" "Breeder" "EventManagerA".
close

open [RegenStoneImp]
    mobregen Aggressive "KDRockCan" "KDRockCanArea08" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea10" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea15" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea16" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea17" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea18" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea22" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea24" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea30" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea50" "Breeder" "EventManagerA".
close

open [RegenWildKebing]
    mobregen Aggressive "KDRockCan" "KDRockCanArea05" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea07" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea23" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea25" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea26" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea37" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea38" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea42" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea45" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea46" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea52" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea65" "Breeder" "EventManagerA".
    mobregen Aggressive "KDRockCan" "KDRockCanArea91" "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 = "Success".
        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 Robo.
    howmanymob Robo "KQ_BossRobo".           ; ³²¾ÆÀÖ´Â Ç÷¹À̾îµé È®ÀÎ
    print "EventManagerAIsTimeUp : " % Ply % "Robo left".
    if Robo == 0
    then
    open
        print "IsTimeUp : Exit 2".
        KQResult = "Success".
        break "MainLoop".
    close
close
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
open [EventManagerAMobAppend]
    var Mobs.
    howmanymob Mobs "KQ_" % AppendMobName.
    if Mobs < 10
    then
    open
        call "Regen" % AppendMobName.
    close
close

open [EventManagerA]

    print "EventManagerA : Entry".

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

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

    var LeftMinute.
    var AppendMobName.


    AppendMobName = "StoneImp".         call "EventManagerAMobAppend".
    AppendMobName = "DesertWolf".       call "EventManagerAMobAppend".
    AppendMobName = "GiantMushroom".    call "EventManagerAMobAppend".
    AppendMobName = "KissLips".         call "EventManagerAMobAppend".
    AppendMobName = "RapidBoar".        call "EventManagerAMobAppend".
    AppendMobName = "SandRatman".       call "EventManagerAMobAppend".
    AppendMobName = "SmallProck".       call "EventManagerAMobAppend".
    AppendMobName = "WildKebing".       call "EventManagerAMobAppend".
    AppendMobName = "BossRobo".         call "EventManagerAMobAppend".




    open [MainLoop]
        infinite
        open


;           ¿¹Àü ¼­¹öÀ̹ú ¹öÀü
;            kqrestminute LeftMinute.                ; ³²Àº ½Ã°£À» ºÐ´ÜÀ§·Î ¾ò¾î¿È
;
;            AppendMobName = "StoneImp".         call "EventManagerAMobAppend".
;            AppendMobName = "DesertWolf".       call "EventManagerAMobAppend".
;            if LeftMinute < 25
;            then
;            open
;                AppendMobName = "GiantMushroom".    call "EventManagerAMobAppend".
;                AppendMobName = "KissLips".         call "EventManagerAMobAppend".
;            close
;            if LeftMinute < 20
;            then
;            open
;                AppendMobName = "RapidBoar".        call "EventManagerAMobAppend".
;                AppendMobName = "SandRatman".       call "EventManagerAMobAppend".
;            close
;            if LeftMinute < 15
;            then
;            open
;                AppendMobName = "SmallProck".       call "EventManagerAMobAppend".
;                AppendMobName = "WildKebing".       call "EventManagerAMobAppend".
;            close
;            if LeftMinute < 5
;            then
;            open
;                AppendMobName = "BossRobo".         call "EventManagerAMobAppend".
;            close

            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.
 
    retrate me.


close

;open [KQ_BossRobo]
;    shout all "" "¹Ùº¸°°Àº ³ðµé! ¾ðÁ¦±îÁö À̵ûÀ§ ¾²·¹±âµé°ú ³î°í ÀÖÀ» ¼ÀÀ̳Ä!".
;    wait sec 2.
;    shout all "" "Àΰ£°°Àº ³¯Æĸ®µé¿¡°Ô ¿¿¸Å´Ù´Ï, ÇѽÉÇÑ °Íµé!".
;    wait sec 2.
;    shout all "" "ÀÚ¿¬À» Æı«ÇÏ´Â ¾²·¹±âµéÀº ³»°¡ Á÷Á¢ ÀÀ¡Çϸ®¶ó!".
;
;    open [MainLoop]
;        infinite
;        open
;            call "IsTimeUp".
;        close
;    close
;    
;    if KQResult === "Success"   ; ¼º°ø
;    then
;    open
;        shout "" all "ÀÌ·²¼ö°¡... õ³âÀÇ Áغñ°¡ ¹°°ÅÇ°ÀÌ µÇ¾î¹ö¸®´Ù´Ï...".
;        wait sec 2.
;        shout "" all "ÇÏÁö¸¸... ´Ù¸¥ õ³â·Îº¸°¡ ³ÊÈñµéÀ» ´ÜÁËÇÒ °ÍÀÌ´Ù.".
;    close
;close