server/gamefiles/data/quest/entry_event_map.quest

quest entry_event_map begin
    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}
            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), 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
end