open [RegenZaco]
    mobregen Aggressive "KDEnMaze" "KDEndless_MiroArea01" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEnMaze" "KDEndless_MiroArea02" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEnMaze" "KDEndless_MiroArea03" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEnMaze" "KDEndless_MiroArea04" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEnMaze" "KDEndless_MiroArea05" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEnMaze" "KDEndless_MiroArea07" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEnMaze" "KDEndless_MiroArea08" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEnMaze" "KDEndless_MiroArea10" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEnMaze" "KDEndless_MiroArea11" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEnMaze" "KDEndless_MiroArea12" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEnMaze" "KDEndless_MiroArea13" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEnMaze" "KDEndless_MiroArea14" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEnMaze" "KDEndless_MiroArea15" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEnMaze" "KDEndless_MiroArea16" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEnMaze" "KDEndless_MiroArea17" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEnMaze" "KDEndless_MiroArea18" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEnMaze" "KDEndless_MiroArea19" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEnMaze" "KDEndless_MiroArea20" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEnMaze" "KDEndless_MiroArea21" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEnMaze" "KDEndless_MiroArea22" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEnMaze" "KDEndless_MiroArea24" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEnMaze" "KDEndless_MiroArea25" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEnMaze" "KDEndless_MiroArea26" "Breeder" "EventManagerA".
    mobregen Aggressive "KDEnMaze" "KDEndless_MiroArea32" "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 [EventManagerA]

    print "EventManagerA : Entry".

    var CurMap.
    currentmap CurMap.                  ; ���� ���θ��� �ִ� �� ����

    ; �÷��̾ �����⸦ ��ٸ�
    call "WaitPlayerEntry".



    ; ��� �� ����
    call "RegenZaco".

    open [MainLoop]
        infinite
        open
            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