İçindekiler

    state start begin
    function enter_level (vnum1,vnum2)
    lv_range={}
    lv_range[1] ={15,39}
    lv_range[2] ={40,64}
    lv_range[3] ={65,84}
    lv_range[4] ={85,99}
    lv_range[5] ={100,105}
    lv_range[6] ={100,120}
    return lv_range [vnum1][vnum2]
    end
    function warp_to_map(modu)
    if modu == 1 then
    pc.warp(903*100, 83*100, 200)
    elseif modu == 2 then
    pc.warp(1025*100, 95*100, 200)
    else
    pc.warp(959*100, 176*100, 200)
    end
    end
    function check_limit()
    if game.get_event_flag("event_map_login_counter") == game.get_event_flag("event_map_player_max") then
    return 0
    else
    return 1
    end
    end
    function player_dialog()
    if pc.get_map_index() == 200 then
    say_title(gameforge.entry_event_map._010_sayTitle)
    say(gameforge.entry_event_map._020_say)

    local sub_sel = select (gameforge.locale.yes, gameforge.locale.no)

    if sub_sel == 2 then
    return
    end

    warp_to_village()

    local counter = game.get_event_flag("event_map_login_counter")
    game.set_event_flag("event_map_login_counter", counter-1)
    end

    if game.get_event_flag("event_map_active") == 0 then
    say(locale.forked_man_say_cant)
    else
    say_title(gameforge.entry_event_map._010_sayTitle)
    say(gameforge.entry_event_map._030_say)

    local s = select(locale.forked_enter, locale.forked_no_enter)
    local min = game.get_event_flag("event_map_level_min")
    local max = game.get_event_flag("event_map_level_max")
    local empire = game.get_event_flag("event_map_empire")

    if s == 1 then
    if pc.level < min or pc.level > max then
    say_title(gameforge.entry_event_map._010_sayTitle)
    say_reward(string.format(gameforge.entry_event_map._040_say, min, max))
    return
    end

    if pc.get_empire() != empire and empire != 0 then
    say_title(gameforge.entry_event_map._010_sayTitle)
    say(gameforge.entry_event_map._050_say)
    return
    end

    if entry_event_map.check_limit() == 0 then
    say_title(gameforge.entry_event_map._010_sayTitle)
    say(gameforge.entry_event_map._060_say)
    return
    end

    say_title(gameforge.entry_event_map._010_sayTitle)
    say(gameforge.entry_event_map._070_say)

    if empire == 0 then
    entry_event_map.warp_to_map(pc.get_empire())
    else
    local modu = math.mod(pc.get_player_id(),2)
    entry_event_map.warp_to_map(modu)
    end

    end
    end
    end
    function gm_exit_check()
    if pc.get_map_index() == 200 and pc.get_gm_level()== 5 then
    return 1
    else
    return 0
    end
    end

    when login or enter begin
    if pc.get_map_index() == 200 then
    if game.get_event_flag("event_map_active") == 0 then
    warp_to_village()
    end

    local counter = game.get_event_flag("event_map_login_counter")
    game.set_event_flag("event_map_login_counter", counter+1)
    end
    end

    when 11001.chat.gameforge.entry_event_map._080_npcChat or 11003.chat.gameforge.entry_event_map._080_npcChat or 11005.chat.gameforge.entry_event_map._080_npcChat with game.get_event_flag("event_map_active") == 1 begin
    entry_event_map.player_dialog()
    end

    when 11001.chat.gameforge.entry_event_map._090_npcChat or 11003.chat.gameforge.entry_event_map._090_npcChat or 11005.chat.gameforge.entry_event_map._090_npcChat with pc.get_gm_level()== 5 begin
    local s = select(gameforge.entry_event_map._100_select, gameforge.entry_event_map._110_select, gameforge.entry_event_map._120_select, gameforge.locale.cancel)
    if s == 3 then
    if entry_event_map.gm_exit_check() == 1 then
    say_title("GM: "..gameforge.entry_event_map._010_sayTitle)
    say(gameforge.entry_event_map._130_say)

    -- reset all setting for this event and nobody can enter it
    game.set_event_flag("event_map_active", 0)
    game.set_event_flag("event_map_choice", 0)
    game.set_event_flag("event_map_level_min", 0)
    game.set_event_flag("event_map_level_max", 0)
    game.set_event_flag("event_map_player_max",0)
    game.set_event_flag("event_map_empire", 0)
    game.set_event_flag("event_map_login_counter",0)

    -- teleport all out from the map
    warp_all_to_village(200, 30)
    else
    say_title("GM: "..gameforge.entry_event_map._010_sayTitle)
    say(gameforge.entry_event_map._140_say)
    return
    end
    end
    if s == 1 then
    say_title("GM: "..gameforge.entry_event_map._010_sayTitle)
    say(gameforge.entry_event_map._150_say)
    local choice = select ("1> min "..entry_event_map.enter_level(1,1).." max "..entry_event_map.enter_level(1,2),"2> min "..entry_event_map.enter_level(2,1).." max "..entry_event_map.enter_level(2,2), "3> min "..entry_event_map.enter_level(3,1).." max "..entry_event_map.enter_level(3,2), "4> min "..entry_event_map.enter_level(4,1).." max "..entry_event_map.enter_level(4,2), "5> min "..entry_event_map.enter_level(5,1).." max "..entry_event_map.enter_level(5,2), "5> min "..entry_event_map.enter_level(6,1).." max "..entry_event_map.enter_level(6,2), gameforge.locale.cancel)
    if choice == 6 then return end

    say_title("GM: "..gameforge.entry_event_map._010_sayTitle)
    say(gameforge.entry_event_map._160_say)
    local amount_choice = input_number(gameforge.entry_event_map._240_say)

    if amount_choice > 200 or amount_choice <= 0 then
    say_title("GM: "..gameforge.entry_event_map._010_sayTitle)
    say(gameforge.entry_event_map._250_say)
    return
    end

    local empire_names ={[0] = gameforge.priv_empire._33_array,[1] = gameforge.locale.empire_names_2,[2] = gameforge.locale.empire_names_3,[3] = gameforge.locale.empire_names_4,}


    say_title("GM: "..gameforge.entry_event_map._010_sayTitle)
    say(gameforge.entry_event_map._170_say)
    local kingdom_sub_set = select(empire_names[1], empire_names[2], empire_names[3], empire_names[0], gameforge.locale.cancel)

    if kingdom_sub_set == 5 then return end
    if kingdom_sub_set == 4 then kingdom_sub_set = 0 end

    say_title("GM: "..gameforge.entry_event_map._010_sayTitle)
    say(gameforge.entry_event_map._180_say)
    say(gameforge.entry_event_map._190_say .. " " .. entry_event_map.enter_level(choice,1).. " - " ..entry_event_map.enter_level(choice,2))
    say(gameforge.entry_event_map._200_say .. " " .. amount_choice)
    say(gameforge.entry_event_map._210_say .. " " .. empire_names[kingdom_sub_set])

    local t = select(gameforge.locale.guild.yes, gameforge.locale.guild.no)
    if t == 2 then return end

    game.set_event_flag("event_map_active", 1)
    game.set_event_flag("event_map_choice", choice)
    game.set_event_flag("event_map_level_min",entry_event_map.enter_level(choice,1))
    game.set_event_flag("event_map_level_max",entry_event_map.enter_level(choice,2))
    game.set_event_flag("event_map_player_max",amount_choice)
    game.set_event_flag("event_map_empire", kingdom_sub_set)

    if kingdom_sub_set == 0 then
    notice_multiline(string.format(gameforge.entry_event_map._220_notice_all, entry_event_map.enter_level(choice,1),entry_event_map.enter_level(choice,2)),notice_all)
    else
    notice_multiline(string.format(gameforge.entry_event_map._230_notice_all, empire_names[kingdom_sub_set], entry_event_map.enter_level(choice,1),entry_event_map.enter_level(choice,2)),notice_all)
    end
    elseif s== 2 then
    game.set_event_flag("event_map_active", 0)
    game.set_event_flag("event_map_choice", 0)
    game.set_event_flag("event_map_level_min", 0)
    game.set_event_flag("event_map_level_max", 0)
    game.set_event_flag("event_map_player_max",0)
    game.set_event_flag("event_map_empire", 0)
    game.set_event_flag("event_map_login_counter",0)
    end
    end
    end