Initial commit: server + serverfiles

This commit is contained in:
Game
2026-08-17 17:31:44 +00:00
commit ff1237686b
17389 changed files with 868929 additions and 0 deletions
@@ -0,0 +1 @@
gameforge.entry_event_map._080_npcChat
@@ -0,0 +1 @@
entry_event_map . player_dialog ( )
@@ -0,0 +1 @@
return game . get_event_flag ( "event_map_active" ) == 1
@@ -0,0 +1 @@
gameforge.entry_event_map._090_npcChat
@@ -0,0 +1,79 @@
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 )
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 )
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
@@ -0,0 +1 @@
return pc . get_gm_level ( ) == 5
@@ -0,0 +1 @@
locale.forked_man_chat
@@ -0,0 +1,39 @@
if game . get_event_flag ( "threeway_war" ) == 0 then
say ( locale . forked_man_say_cant )
else
say ( locale . forked_man_say )
local s = select ( locale . forked_enter , locale . forked_no_enter )
local min = game . get_event_flag ( "threeway_war_level_min" )
local max = game . get_event_flag ( "threeway_war_level_max" )
if s == 1 then
if pc . level < min or pc . level > max then
say_title ( gameforge . forked_road . _10_sayTitle )
say_reward ( string . format ( gameforge . forked_road . _20_sayReward , min , max ) )
return
end
local canJoin = false
if ( pc . getempire ( ) == 1 and game . get_event_flag ( "threeway_war_open_gate1" ) ~= 0 ) or
( pc . getempire ( ) == 2 and game . get_event_flag ( "threeway_war_open_gate2" ) ~= 0 ) or
( pc . getempire ( ) == 3 and game . get_event_flag ( "threeway_war_open_gate3" ) ~= 0 ) then
canJoin = true
else
say ( locale . forked_man_say_you_cant2 )
end
if true == canJoin then
pc . warp ( forked . get_pass_start_pos ( ) )
else
if pc . getempire ( ) == 1 then
say_title ( gameforge . buy_fishrod . _210_sayTitle )
say ( gameforge . forked_road . _30_say )
elseif pc . getempire ( ) == 2 then
say_title ( gameforge . buy_fishrod . _210_sayTitle )
say ( gameforge . forked_road . _40_say )
elseif pc . getempire ( ) == 3 then
say_title ( gameforge . buy_fishrod . _210_sayTitle )
say ( gameforge . forked_road . _50_say )
else
say ( locale . forked_man_say_you_cant2 )
end
end
end
end
@@ -0,0 +1 @@
gameforge.forked_road._110_npcChat
@@ -0,0 +1,51 @@
local s = select ( gameforge . forked_road . _120_select , gameforge . forked_road . _130_select , gameforge . locale . cancel )
if s == 1 then
say ( "1> min " .. forked_road . enter_level ( 1 , 1 ) .. " max " .. forked_road . enter_level ( 1 , 2 ) )
say ( "2> min " .. forked_road . enter_level ( 2 , 1 ) .. " max " .. forked_road . enter_level ( 2 , 2 ) )
say ( "3> min " .. forked_road . enter_level ( 3 , 1 ) .. " max " .. forked_road . enter_level ( 3 , 2 ) )
say ( "4> min " .. forked_road . enter_level ( 4 , 1 ) .. " max " .. forked_road . enter_level ( 4 , 2 ) )
say ( "input number" )
local choice = input_number ( "select player's level who will join " )
if choice > 4 or choice == 0 then
say ( "Invalid number only 1 - 4 are allowed" )
return
end
say ( string . format ( gameforge . forked_road . _170_say , forked_road . enter_level ( choice , 1 ) .. " max level: " .. forked_road . enter_level ( choice , 2 ) ) )
local t = select ( gameforge . locale . guild . yes , gameforge . locale . guild . no )
if 1 == t then
game . set_event_flag ( "threeway_war_choice" , choice )
game . set_event_flag ( "threeway_war_level_min" , forked_road . enter_level ( choice , 1 ) )
game . set_event_flag ( "threeway_war_level_max" , forked_road . enter_level ( choice , 2 ) )
forked . purge_all_monsters ( )
forked . initforked ( )
game . set_event_flag ( "threeway_war" , 1 )
game . set_event_flag ( "threeway_war_dead_count" , 25 )
if true == is_test_server ( ) then
game . set_event_flag ( "threeway_war_kill_count" , 5 )
else
game . set_event_flag ( "threeway_war_kill_count" , 250 )
end
game . set_event_flag ( "threeway_war_boss_count" , 5 )
game . set_event_flag ( "threeway_war_open_gate1" , 1 )
game . set_event_flag ( "threeway_war_open_gate2" , 1 )
game . set_event_flag ( "threeway_war_open_gate3" , 1 )
say ( "Event Started !!" )
say ( "" )
wait ( )
regen_in_map ( forked . getpassmapindexbyempire ( 1 ) , forked . getpasspathbyempire ( 1 ) .. "regen00_" .. choice .. ".txt" )
regen_in_map ( forked . getpassmapindexbyempire ( 1 ) , forked . getpasspathbyempire ( 1 ) .. "npc00.txt" )
regen_in_map ( forked . getpassmapindexbyempire ( 2 ) , forked . getpasspathbyempire ( 2 ) .. "regen00_" .. choice .. ".txt" )
regen_in_map ( forked . getpassmapindexbyempire ( 2 ) , forked . getpasspathbyempire ( 2 ) .. "npc00.txt" )
regen_in_map ( forked . getpassmapindexbyempire ( 3 ) , forked . getpasspathbyempire ( 3 ) .. "regen00_" .. choice .. ".txt" )
regen_in_map ( forked . getpassmapindexbyempire ( 3 ) , forked . getpasspathbyempire ( 3 ) .. "npc00.txt" )
notice_multiline ( gameforge . forked_road . _180_notice_all , notice_all )
end
elseif 2 == s then
game . set_event_flag ( "threeway_war" , 0 )
notice_multiline ( gameforge . forked_road . _190_notice_all , notice_all )
forked . purge_all_monsters ( )
warp_all_to_village ( forked . getsungzimapindex ( ) , 1 )
warp_all_to_village ( forked . getpassmapindexbyempire ( 1 ) , 1 )
warp_all_to_village ( forked . getpassmapindexbyempire ( 2 ) , 1 )
warp_all_to_village ( forked . getpassmapindexbyempire ( 3 ) , 1 )
end
@@ -0,0 +1 @@
return pc . get_gm_level ( ) == 5