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.guild_manage._10_npcChat
@@ -0,0 +1,47 @@
say_title ( gameforge . find_squareguard . _10_targetVid )
say ( gameforge . guild_manage . _20_say )
local u_name = input ( )
local u_vid = find_pc_by_name ( u_name )
if u_vid == 0 then
say_title ( gameforge . guild_manage . _30_sayTitle )
say ( u_name )
return
end
local old_vid = pc . select ( u_vid , u_vid )
u_withdrawTime = pc . getqf ( "new_withdraw_time" )
u_withdrawTime = pc . getqf ( "new_withdraw_time" )
pc . select ( old_vid , old_vid )
withdrawDelay = game . get_event_flag ( "guild_withdraw_delay" )
disbandDelay = game . get_event_flag ( "guild_disband_delay" )
say_title ( gameforge . find_squareguard . _10_targetVid )
say ( gameforge . guild_manage . _40_say )
if u_withdrawTime > 0 then
say ( string . format ( gameforge . guild_manage . _50_say , time_to_str ( u_withdrawTime ) .. gameforge . guild_manage . _55_say .. withdrawDelay ) )
end
if u_disbandTime > 0 then
say ( string . format ( gameforge . guild_manage . _60_say , time_to_str ( u_disbandTime ) .. gameforge . guild_manage . _65_say .. disbandDelay ) )
end
local retryTime1 = u_withdrawTime + withdrawDelay * 86400
local retryTime2 = u_withdrawTime + disbandDelay * 86400
local retryTime = 0
if retryTime1 > retryTime2 then
retryTime = retryTime1
else
retryTime = retryTime2
end
local curTime = get_time ( )
if curTime < retryTime then
say ( string . format ( gameforge . guild_manage . _70_say , time_to_str ( retryTime ) .. gameforge . guild_manage . _75_say .. ( ( retryTime - curTime ) / 3600 ) ) )
if is_test_server ( ) then
local s = select ( gameforge . guild_manage . _80_select , gameforge . arena_manager . _200_tableInsert )
if s == 1 then
local old_vid = pc . select ( u_vid , u_vid )
local curTime = get_time ( )
pc . setqf ( "new_withdraw_time" , curTime - withdrawDelay * 86400 )
pc . setqf ( "new_withdraw_time" , curTime - disbandDelay * 86400 )
pc . select ( old_vid , old_vid )
end
end
else
say ( gameforge . guild_manage . _90_say )
end
@@ -0,0 +1 @@
return pc . is_gm ( )
@@ -0,0 +1 @@
gameforge.guild_manage._100_npcChat
@@ -0,0 +1 @@
test_chat ( string . format ( gameforge . guild_manage . _110_chat , bool_to_str ( pc . has_guild ( ) ) .. " [ENTER]pc.is_guildmaster: " .. bool_to_str ( pc . isguildmaster ( ) ) .. " [ENTER]pc.empire: " .. pc . empire .. " [ENTER]npc.empire: " .. npc . empire ) )
@@ -0,0 +1 @@
return pc . is_gm ( )
@@ -0,0 +1 @@
gameforge.locale.guild.withdraw
@@ -0,0 +1,9 @@
say_title ( gameforge . find_squareguard . _10_targetVid )
say ( gameforge . guild_manage . _120_say )
local s = select ( gameforge . locale . guild . yes , gameforge . locale . guild . no )
if s == 1 then
say_title ( gameforge . find_squareguard . _10_targetVid )
say ( gameforge . guild_manage . _130_say )
pc . remove_from_guild ( )
pc . setqf ( "new_withdraw_time" , get_global_time ( ) )
end
@@ -0,0 +1 @@
return pc . hasguild ( ) and not pc . isguildmaster ( ) and ( pc . is_gm ( ) or npc . empire == pc . empire )
@@ -0,0 +1 @@
gameforge.locale.guild.disband
@@ -0,0 +1,10 @@
say_title ( gameforge . find_squareguard . _10_targetVid )
say ( gameforge . guild_manage . _140_say )
local s = select ( gameforge . locale . guild . yes , gameforge . locale . guild . no )
if s == 1 then
say_title ( gameforge . find_squareguard . _10_targetVid )
say ( gameforge . guild_manage . _150_say )
pc . destroy_guild ( )
pc . setqf ( "new_disband_time" , get_global_time ( ) )
pc . setqf ( "new_withdraw_time" , get_global_time ( ) )
end
@@ -0,0 +1 @@
return pc . hasguild ( ) and pc . isguildmaster ( ) and ( pc . is_gm ( ) or npc . empire == pc . empire )
@@ -0,0 +1 @@
gameforge.guild_manage._170_npcChat
@@ -0,0 +1,39 @@
local level_limit ;
local guild_create_item
level_limit = 40
guild_create_item = false
if pc . hasguild ( ) then
return
end
if game . get_event_flag ( "guild_withdraw_delay" ) * 86400 >
get_global_time ( ) - pc . getqf ( "new_withdraw_time" ) then
say_title ( gameforge . find_squareguard . _10_targetVid )
say ( gameforge . guild_manage . _180_say )
return
end
if game . get_event_flag ( "guild_disband_delay" ) * 86400 >
get_global_time ( ) - pc . getqf ( "new_withdraw_time" ) then
say_title ( gameforge . find_squareguard . _10_targetVid )
say ( gameforge . guild_manage . _200_say )
return
end
say_title ( gameforge . find_squareguard . _10_targetVid )
say ( gameforge . guild_manage . _210_say )
local s = select ( gameforge . locale . guild . yes , gameforge . locale . guild . no )
if s == 2 then
return
end
if pc . level >= 40 then
if pc . gold >= 200000 then
if not guild_create_item or pc . countitem ( guild_create_item ) > 0 then
game . request_make_guild ( )
end
else
say_title ( gameforge . find_squareguard . _10_targetVid )
say ( gameforge . guild_manage . _220_say )
return
end
else
say_title ( gameforge . find_squareguard . _10_targetVid )
say ( gameforge . guild_manage . _230_say )
end
@@ -0,0 +1 @@
gameforge.locale.show_guild_ranking_around
@@ -0,0 +1,2 @@
say_title ( gameforge . find_squareguard . _30_sayTitle )
say ( string . format ( gameforge . guild_ranking . _10_say , guild . around_ranking_string ( ) ) )
@@ -0,0 +1 @@
return pc . hasguild ( )
@@ -0,0 +1 @@
gameforge.locale.show_guild_ranking_top
@@ -0,0 +1,2 @@
say_title ( gameforge . find_squareguard . _30_sayTitle )
say ( string . format ( gameforge . guild_ranking . _20_say , guild . high_ranking_string ( ) ) )
@@ -0,0 +1 @@
return pc . hasguild ( )
@@ -0,0 +1 @@
gameforge.locale.show_guild_cur_score
@@ -0,0 +1,3 @@
say_title ( gameforge . find_squareguard . _30_sayTitle )
say ( string . format ( gameforge . guild_ranking . _30_say , guild . get_rank ( ) ) )
say ( string . format ( gameforge . guild_ranking . _35_say , guild . get_ladder_point ( ) ) )
@@ -0,0 +1 @@
return pc . hasguild ( )
@@ -0,0 +1 @@
gameforge.priv_empire._10_npcChat
@@ -0,0 +1,84 @@
say_title ( gameforge . priv_empire . _20_sayTitle )
say ( gameforge . priv_empire . _30_say )
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 ,
}
local e = select ( empire_names [ 1 ] , empire_names [ 2 ] , empire_names [ 3 ] , empire_names [ 0 ] , gameforge . locale . cancel )
if 5 == e then
return
end
if 4 == e then
e = 0
end
say_title ( gameforge . priv_empire . _40_sayTitle )
say_reward ( __get_empire_priv_string ( e ) )
say ( gameforge . priv_empire . _50_say )
local titles =
{
gameforge . priv_empire . _53_array ,
gameforge . priv_empire . _54_array ,
gameforge . priv_empire . _55_array ,
gameforge . priv_empire . _56_array ,
}
local t = select (
titles [ 1 ] ,
titles [ 2 ] ,
titles [ 3 ] ,
titles [ 4 ] ,
gameforge . locale . cancel )
if 5 == t then
return
end
say_title ( gameforge . priv_empire . _40_sayTitle )
say_reward ( string . format ( gameforge . priv_empire . _60_sayReward , empire_names [ e ] , titles [ t ] ) )
say ( gameforge . priv_empire . _70_say )
local g = { 10 , 20 , 50 , 100 , 150 , 200 }
local p = select ( g [ 1 ] .. "%" , g [ 2 ] .. "%" , g [ 3 ] .. "%" , g [ 4 ] .. "%" , g [ 5 ] .. "%" , g [ 6 ] .. "%" , gameforge . locale . cancel )
if p == 7 then
return
end
say_title ( gameforge . priv_empire . _40_sayTitle )
say_reward ( string . format ( gameforge . priv_empire . _100_sayReward , empire_names [ e ] , titles [ t ] , g [ p ] ) )
say ( gameforge . priv_empire . _110_say )
local v = 0
local h = select (
gameforge . priv_empire . _120_select ,
gameforge . priv_empire . _130_select ,
gameforge . priv_empire . _134_select ,
gameforge . priv_empire . _135_select ,
gameforge . locale . cancel )
if 5 == h then
return
elseif 4 == h then
say_title ( gameforge . priv_empire . _40_sayTitle )
say_reward ( string . format ( gameforge . priv_empire . _100_sayReward , empire_names [ e ] , titles [ t ] , g [ p ] ) )
say ( gameforge . priv_empire . _140_say )
v = input ( )
if v == "" then
v = 0
else
v = tonumber ( v )
end
elseif 3 == h then
v = 24
elseif 2 == h then
v = 12
elseif 1 == h then
v = 6
end
say_title ( gameforge . priv_empire . _40_sayTitle )
say_reward ( string . format ( gameforge . priv_empire . _150_sayReward , empire_names [ e ] , titles [ t ] , g [ p ] , v ) )
say ( gameforge . priv_empire . _160_say )
local s = select ( gameforge . locale . guild . yes , gameforge . locale . guild . no )
if 1 == s then
say_title ( gameforge . priv_empire . _40_sayTitle )
__give_empire_priv ( e , t , g [ p ] , v * 60 * 60 )
say_reward ( gameforge . priv_empire . _170_sayReward )
else
say_title ( gameforge . priv_empire . _40_sayTitle )
say_reward ( gameforge . priv_empire . _180_sayReward )
end
@@ -0,0 +1 @@
return pc . get_gm_level ( ) == 5