function donation_next_settle()
 -- notice('this is a donation settle stuff')
end
function trigger_auto_time()
if math.floor(gv("x") / 16128)~=1 and math.floor(gv("y") / 16128)~=6 then 

if math.floor(gv("x") / 16128)==13 and math.floor(gv("y") / 16128)==11 then 
warp( 219760, 192733 ) --add_state(6008,1,3000) 
elseif math.floor(gv("x") / 16128)==1 and math.floor(gv("y") / 16128)==6 then
warp(20302, 108675)
else
warp( 186987, 160009 )
end 

end 
notice('auto time thing'..gv('name')..' - some stuff')
--add_state(6008,1,2000) --warp( 186987 , 160009 )
set_flag("gsat",gametime())
set_flag("gsas",0)
--set_flag("gsai",math.random(12,15))
end 

function sPVP_CHECK(idx,name)

end
function on_logout(name)
 -- notice('player '..name..'has logged out ')
end

function on_autotime(first,second)
local sum = first + second
set_flag("gsas",sum)
local arrColor = {"22DC4F","E6EC2A","2AECCC","3818B9","F840ED","F84088","EC6A6A"}
local num1 --, num2, num3
num1 = math.random(1,#arrColor)
--num2 = math.random(1,#arrColor)
--num3 = math.random(1,#arrColor)
--local text = "<#"..arrColor[num1].."> "..tostring(first).." + <#"..arrColor[num2].."> "..tostring(second).." <#"..arrColor[num3].."> = ?" 
local text = "<#"..arrColor[num1].."> "..tostring(first).." + "..tostring(second).." = ?" 
private_notice( text, "@CHAT_TYPE:22" )
end

function on_check_overpk(name)
local xID =  math.floor(gv("x",name) / 16128)
local yID =  math.floor(gv("y",name) / 16128)
if (xID >= 5 and xID <= 6 and yID>=0 and yID<=8) or (xID==13 and yID==11) or (xID==12 and yID==11) then 
return true 
else
return false
end 
end 

function on_punish_overpk(name)
--warp( 186987, 160009, name )
private_notice( "لا يحق لك قتل لاعب جديد خلال تدربه<br>you shall not kill newbie players", "@CHAT_TYPE:22", name )
end 

function get_owned_dungeon_state(dungeon_id)
local state_id   = 0
local arrState   = { 19604, 19608, 19605, 19607, 19606, 19609, 19610, 19611, 19601, 19602, 19603, 19604  }
local arrDungeon = { 130000,130600,130300,130500,130400,130700,130800,130900,121000,122000,123000,120700 }
for i = 1, #arrDungeon do 
if arrDungeon[i] == dungeon_id then 
state_id = arrState[i]
break 
end 
end 
return state_id
end 

function get_deathmatch_rewardid(rank)
local rank_rewards ={ 491032, 491033, 491034, 491035, 491036 }
if rank <= 0 or rank > #rank_rewards then 
return 0 
end 
return get_item_name_id(rank_rewards[rank]);
end 

function on_kill_dmm(arg,monster_type)
--[[
	enum _DEATHMATCH_VALUE
	{
		SCORE = 1,
		KILL  = 2,
		DEAD  = 3,
		RANK  = 4,
		IDX   = 5,
		MAX
	};
]]
add_deathmatch_point(1,monster_type)
end 

function on_deathmatch_reward(name,rank,score)

if rank <= 0 then return end 

local exFlag
if rank == 1 then
exFlag = tonumber(get_flag("kill")) or 0
set_flag("kill",exFlag+1)
else
exFlag = tonumber(get_flag("dead")) or 0
set_flag("dead",exFlag+1)
end 

local rank_rewards ={ 491032, 491033, 491034, 491035, 491036 }
local basic_rewards=
{ 
    {491025,1,10}, {491026,11,20}, {491027,21,30}--, {491028,31,40}, {491029,41,50} --update: decreasing rewards to top30 only
}
local score_rewards={ 491030, 491031 }

if rank <= #rank_rewards then 
insert_item(rank_rewards[rank],1)
private_notice( sconv("@90611026", "#@reward@#", "@"..tostring(get_item_name_id(rank_rewards[rank])) ))
end 

if rank <= basic_rewards[#basic_rewards][3] then 
for i = 1, #basic_rewards do
if rank >= basic_rewards[i][2] and rank <= basic_rewards[i][3] then
insert_item(basic_rewards[i][1],1)
private_notice( sconv("@90611025", "#@reward@#", "@"..tostring(get_item_name_id(basic_rewards[i][1])), "#@grade@#", tostring(rank) ))
break 
end 
end 
end 

if score >= 100 then
insert_item(score_rewards[1],1)
elseif score >= 10 then 
insert_item(score_rewards[2],1)
end 

end 

function on_use_deathmatch_reward(rank_reward,special_reward,score_reward)

if rank_reward>=1 and rank_reward<=5 then 
local my_cnt = 100-(rank_reward-1)*20
insert_item(1100119,my_cnt)
message(sconv("@254","#@item_num@#",tostring(my_cnt),"#@item_name@#","@"..tostring(get_item_name_id(1100119))))
local my_id = 705050+math.random(0,14)
insert_item(my_id,1)
message(sconv("@254","#@item_num@#",tostring(1),"#@item_name@#","@"..tostring(get_item_name_id(my_id))))
end 

if special_reward>=1 and special_reward<=2 then 
if math.random(1,20)>=20 then
local my_id = 705126+math.random(0,6)
insert_item(my_id,1)
message(sconv("@254","#@item_num@#",tostring(1),"#@item_name@#","@"..tostring(get_item_name_id(my_id))))
notice("حصل اللاعب "..tostring(gv("name")).." على حجر إستقلاب المعايرة من مبارزات الهلاك","@CHAT_TYPE:22")
end 
end 

if special_reward>= 1 and special_reward <= 2 then 
local handle_1 = get_item_handle(800000055)
if find_item(800000055)>0 and handle_1>0 and math.random(1,10)>=5 then 
change_item_code( handle_1, 800000056 )
notice("مبارك للاعب "..tostring(gv("name")).." ! لقد تطورت الروح البيضاء لديه إلى II","@CHAT_TYPE:22")
end
end 

if special_reward<=2 and math.random(1,10)>=9 then 
local handle_1 = get_item_handle(800000056)
if find_item(800000056)>0 and handle_1>0 then 
change_item_code( handle_1, 800000057 )
notice("مبارك للاعب "..tostring(gv("name")).." ! لقد تطورت الروح البيضاء لديه إلى III","@CHAT_TYPE:22")
end
end 

if score_reward>0 then
local nPotionId = {610167,610169,610171,610173}
local nRand = math.random(1,#nPotionId)
insert_item(nPotionId[nRand],2) 
message(sconv("@254","#@item_num@#",tostring(2),"#@item_name@#","@"..tostring(get_item_name_id(nPotionId[nRand]))))
end 

end 

----------------------------------
function NPC_pierrot_Rondo_contact()
dlg_title("@"..get_npc_type().."|@"..get_npc_name()	)
dlg_text("@90611152")
dlg_menu("@90010002", "")
dlg_show()
end
function NPC_Quest_Katan_priest_contact()
dlg_title("@"..get_npc_type().."|@"..get_npc_name()	)
dlg_text("@90611236")
dlg_menu("@90010002", "")
dlg_show()
end
function NPC_Quest_Horizen_monk_contact()
dlg_title("@"..get_npc_type().."|@"..get_npc_name()	)
dlg_text("@90611236")
dlg_menu("@90010002", "")
dlg_show()
end
function NPC_Quest_RuinCity_monk_contact()
dlg_title("@"..get_npc_type().."|@"..get_npc_name()	)
dlg_text("@90611236")
dlg_menu("@90010002", "")
dlg_show()
end

function pw_merchant_exchange(handle,new,old)
if get_local_info() == 8192 then return end 
dlg_title("@"..get_npc_type().."|@"..get_npc_name()	)
if handle == 0 then 
dlg_text("@90610684")
for i=0,14 do dlg_menu("@"..get_item_name_id(705050+i),"pw_merchant_exchange(1,"..(705050+i)..",0)") end
elseif handle == 1 then 
dlg_text(sconv("@90610685","#@item@#","@"..get_item_name_id(new)))
local it
for i=0,14 do 
it=705050+i
if find_item(it)>0 then dlg_menu(sconv("@90610687","#@number@#",find_item(it),"#@item@#","@"..get_item_name_id(it)),"pw_merchant_exchange(2,"..new..","..it..")") end
end
elseif handle == 2 then 
local nCount = find_item(old)
if delete_item(get_item_handle(old),nCount) == 1 then insert_item(new,nCount) end 
pw_merchant_exchange(0,0,0)
end 
dlg_menu( "@90605284", "parallelworld_merchant_etc()" )
dlg_show()
end 

------------------------------------
function Creature_Enchanter_IncSlot(idx,hHandle)
dlg_title("@"..get_npc_type().."|@"..get_npc_name())
if idx >= 5 then 

local need_id=710015 
if idx==6 then need_id = 710016 end 
if delete_item( get_item_handle( need_id ), 1 ) ~= 1 then return end 
local bSuc = math.random(1,100) >= 100 or idx == 6
if bSuc and get_creature_value( hHandle, "summon_state" ) == 0 then 
dlg_text("@90010274")
message("@90010274")
set_creature_value( hHandle, "sp", get_creature_value( hHandle, "sp" )+1 )
else
dlg_text("@90010277")
message("@90010277")
end  

elseif idx >= 3 and idx <=4 then 
dlg_text( "@90010268" )
local need_id=710015
if idx==4 then need_id = 710016 end 
if find_item(need_id)>=1 and get_creature_value( hHandle, "sp" )<7 then dlg_menu( "@90010195", 'Creature_Enchanter_IncSlot('..(idx+2)..','..hHandle..')' ) end 

else
dlg_text( "@90010265" )
local handle
for i = 0, 5 do
	handle = get_creature_handle( i )
	if handle ~= 0 and handle ~= nil and get_creature_value( handle, "summon_state" ) == 0 and get_item_enhance(get_parent_card(handle))>=5 then
		dlg_menu( sconv("<#ebe6ad>|@90010279", "#@name@#", get_creature_value( handle, "name" ), "#@lv@#",tostring(get_creature_value( handle, "level" )), "#@unit@#", tostring(get_creature_value( handle, "sp" ))), 'Creature_Enchanter_IncSlot('..(idx+2)..','..handle..')' )
	end
end

end
dlg_menu( "@2341", "NPC_Creature_Enchanter_Deva_contact()" )
--dlg_menu( "@2341", "Creature_Enchanter_IncSlot(1)" )
--dlg_menu( "<#ebe6ad>|@90010280", "Creature_Enchanter_IncSlot(1)" ) --MohcenMaher
dlg_show()
end 

----------------------------------------------
function on_use_steel(idx)
local need_id,result_id
local need_cnt=10
if idx == 1 then
need_id=1100103
result_id=1100117
elseif idx == 2 then 
need_id=1100117
result_id=1100119
elseif idx == 3 then 
need_id=1100118
result_id=1100119
need_cnt=100
end 
local create_count = math.floor( find_item( need_id ) / need_cnt )
if delete_item( get_item_handle( need_id ), create_count * need_cnt ) == 1 then insert_item( result_id, create_count ) end
end 

function tp_add()
sv("tp",gv("tp")+1)
cprint( "@90604780" )
end

function NPC_SkyFortress_Summon(idx,is_init)
if is_init =="" or is_init==nil then is_init=false end 

if is_init then 
NPC_SkyFortress()
dgv("skyfort_mbh")
dgv("skyfort_bh")
dgv("skyfort_tick")

end

if idx == 99 and get_quest_progress(6012)==1 then 
set_quest_status(6012,1,get_quest_status(6012,1)+1)  
end 

if idx == 1 then --killing mini-boss
dgv("skyfort_mbh")
dgv("skyfort_tick")
elseif idx == 2 then --killing boss
dgv("skyfort_bh")
add_field_prop( 10602, 0, 24201, 104814, 0, 0 )
elseif idx == 3 then --call mini-boss, when initted, when get_minute() == 1
local pMob = {{24208, 107273,22300423},{24184, 102273,22300423},{26633, 104824,22300424},{21759, 104832,22300424}}
local i = math.random(1,#pMob)
sgv("skyfort_mbh", add_monster(pMob[i][3],pMob[i][1],pMob[i][2],0) )
elseif idx == 4 then --call boss, when mini-boss called (after 1 miniute)
if GAGV("skyfort_mbh") == 0 then
if GAGV("skyfort_tick") == 2 and GAGV("skyfort_bh") == 0 then 
sgv("skyfort_bh", add_monster(22300425,24184,104824,0) )
sgv("skyfort_tick",GAGV("skyfort_tick")+1)
else
sgv("skyfort_tick",GAGV("skyfort_tick")+1)
end 
end 
end 

end

function NPC_SkyFortress_Warp()
local lastMin = GAGV("skyfort_lastmin")
local lastPos = GAGV("skyfort_lastpos")
local SKY_FORTRESS_POS = {{20388, 100958},{20302, 108675},{28208, 108738},{27972, 101036}}
sv("hx",gv("x"))
sv("hy",gv("y"))
if lastMin == get_minute() then 
warp(SKY_FORTRESS_POS[lastPos+1][1],SKY_FORTRESS_POS[lastPos+1][2])
else
sgv("skyfort_lastmin",get_minute())
if lastPos==3 then sgv("skyfort_lastpos",0) else sgv("skyfort_lastpos",lastPos+1) end
lastPos = GAGV("skyfort_lastpos")
warp(SKY_FORTRESS_POS[lastPos+1][1],SKY_FORTRESS_POS[lastPos+1][2])
end 
--set_pk_mode(1)
end 

function NPC_Scout_Adeliana_contact()
dlg_title("@"..get_npc_type().."|@"..get_npc_name()	)
dlg_text("@90611511")
dlg_menu("@90010002", "")
dlg_show()
end 

function NPC_fortune_teller_contact()
dlg_title("@"..get_npc_type().."|@"..get_npc_name()	)
dlg_text("@90108102")
--if get_quest_progress(4074)==255 then dlg_menu("@90611498", "NPC_SkyFortress_Warp()") end 
if gv("level")>=190 then dlg_menu("@90611498", "NPC_SkyFortress_Warp()") end --MohcenMaher, 9.7; 9.8 new change
dlg_menu("@90010002", "")
dlg_show()
end 

function NPC_fris_contact()
dlg_title("@"..get_npc_type().."|@"..get_npc_name()	)
dlg_text("@90108102")
--[[if get_quest_progress(4074)==255 then dlg_menu("@90611498", "NPC_SkyFortress_Warp()") 
else]]
if get_quest_progress(4074)==1 then set_quest_status(4074,1,1) end
if gv("level")>=190 then dlg_menu("@90611498", "NPC_SkyFortress_Warp()") end --MohcenMaher, 9.7; 9.8 new change
dlg_menu("@90010002", "")
dlg_show()
end 

function NPC_derrick_contact()
dlg_title("@"..get_npc_type().."|@"..get_npc_name()	)
dlg_text("@90108102")
--[[if get_quest_progress(4074)==255 then dlg_menu("@90611498", "NPC_SkyFortress_Warp()") 
else]]
if get_quest_progress(4074)==1 then set_quest_status(4074,1,1) end
if gv("level")>=190 then dlg_menu("@90611498", "NPC_SkyFortress_Warp()") end --MohcenMaher, 9.7; 9.8 new change
dlg_menu("@90010002", "")
dlg_show()
end 

function NPC_evangile_contact()
dlg_title("@"..get_npc_type().."|@"..get_npc_name()	)
dlg_text("@90108102")
--[[if get_quest_progress(4074)==255 then dlg_menu("@90611498", "NPC_SkyFortress_Warp()") 
else]]
if get_quest_progress(4074)==1 then set_quest_status(4074,1,1) end
if gv("level")>=190 then dlg_menu("@90611498", "NPC_SkyFortress_Warp()") end --MohcenMaher, 9.7; 9.8 new change
dlg_menu("@90010002", "")
dlg_show()
end 

function nomal_charge_Buff_operation3(step) 
local chaos = gv("chaos")
if step>=1 and chaos>=(step*20000) then 
add_state( 1599, math.min(step,10), 60*60*100 )
av("chaos",-(step*20000))
update_gold_chaos()
elseif step == 0 then 
dlg_title( "@90702501" )
dlg_text(  "@90611530" )
if chaos>=20000 then 
local buffLv = math.floor(chaos/20000)
for i=1,math.min(10,buffLv) do 
dlg_menu( "@90611531|"..i, "nomal_charge_Buff_operation3("..i..")" )
end 
end 
dlg_menu( "@90010003", "NPC_Secroute_mage_contact1()" )
dlg_menu( "@90010002", " " )
dlg_show()
end
end

function NPC_SkyFortress()

local pMob = {
{20522, 108399 ,22300413},
{20869, 108431 ,22300413},
{20404, 108289 ,22300413},
{20719, 108226 ,22300413},
{20577, 107998 ,22300413},
{21034, 108281 ,22300413},
{21231, 107636 ,22300413},
{21570, 107328 ,22300413},
{20743, 108147 ,22300413},
{21184, 108124 ,22300413},
{20814, 107864 ,22300413},
{20380, 108321 ,22300413},
{22042, 106816, 22300417},
{22341, 106832, 22300417},
{22050, 106549, 22300417},
{22239, 106407, 22300417},
{22467, 106273, 22300417},
{22696, 106391, 22300417},
{22759, 106635, 22300417},
{22483, 106801, 22300417},
{22168, 105872, 22300417},
{23247, 106848, 22300417},
{21924, 105423, 22300422},
{22074, 105344, 22300422},
{22365, 104926, 22300422},
{22334, 104698, 22300422},
{22082, 104336, 22300422},
{21877, 104257, 22300422},
{21837, 105068, 22300422},
{22011, 104824, 22300422},
{21585, 104674, 22300422},
{21349, 104383, 22300422},
{21160, 104871, 22300422},
{21270, 105178, 22300422},
{22137, 103911, 22300420},
{22294, 103485, 22300420},
{22184, 103257, 22300420},
{22578, 103312, 22300420},
{22743, 103147, 22300420},
{22790, 103005, 22300420},
{22877, 102863, 22300420},
{22593, 102840, 22300420},
{22334, 102824, 22300420},
{22129, 102840, 22300420},
{23278, 102761, 22300420},
{21790, 102430, 22300416},
{21570, 102162, 22300416},
{21003, 101714, 22300416},
{20853, 101556, 22300416},
{20711, 101784, 22300416},
{20672, 101336, 22300416},
{20719, 101028, 22300416},
{20491, 101422, 22300416},
{20420, 101650, 22300416},
{20672, 101871, 22300416},
{21097, 101336, 22300416},
{20955, 101564, 22300416},
{23594, 102532, 22300421},
{23688, 102651, 22300421},
{24098, 102910, 22300421},
{24286, 102910, 22300421},
{24720, 102627, 22300421},
{24790, 102493, 22300421},
{23964, 102375, 22300421},
{24342, 102501, 22300421},
{24412, 102170, 22300421},
{24783, 102123, 22300421},
{24412, 101769, 22300421},
{23751, 101863, 22300421},
{25484, 102887, 22300419},
{25736, 102824, 22300419},
{25531, 103060, 22300419},
{25901, 103052, 22300419},
{26114, 102910, 22300419},
{25759, 103470, 22300419},
{26082, 103462, 22300419},
{26240, 103202, 22300419},
{25932, 102981, 22300419},
{26271, 102690, 22300419},
{26531, 102446, 22300415},
{26846, 102178, 22300415},
{27405, 101454, 22300415},
{27626, 101013, 22300415},
{28004, 101367, 22300415},
{27578, 101398, 22300415},
{27279, 101241, 22300415},
{27696, 101674, 22300415},
{27547, 101934, 22300415},
{27216, 101769, 22300415},
{27224, 101485, 22300415},
{27310, 101462, 22300415},
{26366, 104304, 22300422},
{26507, 104273, 22300422},
{26074, 104738, 22300422},
{26074, 104926, 22300422},
{26326, 105368, 22300422},
{26484, 105407, 22300422},
{26744, 104564, 22300422},
{26358, 104824, 22300422},
{26688, 105076, 22300422},
{26940, 105368, 22300422},
{27263, 104903, 22300422},
{27058, 104399, 22300422},
{26027, 106163, 22300418},
{25814, 106297, 22300418},
{26114, 106438, 22300418},
{25791, 106533, 22300418},
{25578, 106438, 22300418},
{25546, 106675, 22300418},
{25783, 106824, 22300418},
{26098, 106895, 22300418},
{26145, 106706, 22300418},
{26287, 106998, 22300418},
{25972, 106588, 22300418},
{25862, 106628, 22300418},
{24720, 106974, 22300421},
{24759, 107092, 22300421},
{24279, 106683, 22300421},
{24098, 106683, 22300421},
{23688, 106942, 22300421},
{23625, 107084, 22300421},
{23609, 107446, 22300421},
{23877, 107801, 22300421},
{24491, 107809, 22300421},
{24412, 107132, 22300421},
{24350, 107565, 22300421},
{23908, 107289, 22300421},
{26523, 107250, 22300414},
{26870, 107572, 22300414},
{27184, 107856, 22300414},
{27539, 107817, 22300414},
{27082, 108116, 22300414},
{27870, 108210, 22300414},
{27366, 108549, 22300414},
{27783, 108423, 22300414},
{27523, 108179, 22300414},
{27893, 108202, 22300414},
{27374, 108006, 22300414},
{27248, 108273, 22300414}
}

for i=1,#pMob do 
	respawn_rare_mob( 10600, --[[1*60*100]]30*100, pMob[i][1], pMob[i][2], pMob[i][3], 4, 0 ) --no wandering, 4 per square, 10m revival interval --2m interval
end 

local MOBA_JUNGLE = {
{29000207,11316, 125212},
{29000208,12261, 124071},
{29000209,11844, 124000},
{29000210,10789, 124850},
{29000211,12450, 124803},
{29000212,11096, 124456},
{29000213,11734, 125291},
{29000214,12474, 124559},
{29000215,11686, 124260},
{29000216,11860, 125031},
{29000217,12710, 124102},
{29000218,11513, 125150},
{29000219,10883, 125165},
}

for j=1,#MOBA_JUNGLE do 
	respawn_rare_mob( 700, 10*60*100, MOBA_JUNGLE[j][2], MOBA_JUNGLE[j][3], MOBA_JUNGLE[j][1], 1, 0 ) --no wandering, 1 per square, 10m revival interval
end 

local pNpc = {
{20412, 108541},
{20467, 101076},
{27830, 101107},
{28098, 108628}
}

for i=1,#pNpc do 
    add_npc_to_world( pNpc[i][1], pNpc[i][2], 0, 15133)
end

-------------9.8-------------
local pPos = { 
{139167, 142679},
{139017, 142671},
{138876, 142671}
}
for i = 0,2 do 
add_field_prop( 2320+i, 0, pPos[i+1][1], pPos[i+1][2], 0, 3 ) --layer 0, height 3
end

-------------DAYON-------------
add_field_prop( 400112, 0, 152744, 77537, 0, 0, 0, 0, 0, 2, 2, 2 )
--add_npc_to_world( 153028, 76954, 0, 40004)
--add_npc_to_world( 152466, 76950, 0, 40005)

end 

function quest_start_4073()
--quest_skyfortress_bones()
local pos = {
{100461, 69985},
{100572, 69426},
{100264, 69820},
{101524, 69804},
{101477, 69426},
{102036, 69347},
{102131, 70095},
{102430, 70749},
{102454, 69119},
{102477, 68828}
--[[
{101950, 69780},
{101926, 70560},
{101934, 71143},
{101769, 68702},
{101462, 69402},
]]
}

for i = 1, #pos do 
add_field_prop( 30224, 0, pos[i][1]+math.random(0,10), pos[i][2]+math.random(0,10), 0)
end 

end

function quest_prop_Vulcanus_30179()
enter_vulcanus()
end

function DailyBeast_Call(step)
local wday = tonumber(get_os_date("%w"))
local idx = -1
if wday == 1 or wday == 4 then 
idx = 0
elseif wday == 2 or wday == 5 then 
idx = 1
elseif wday == 3 or wday == 6 then 
idx = 2
end 
if idx < 0 then return end 

if step == 0 then 
notice("@"..tostring(90611452+idx))
return
end 

local pos = {
{116251, 141199},
{155610, 79404},
{114424, 56243}
}
add_npc(pos[idx+1][1], pos[idx+1][2], 22300408+idx, 1, (45*6000), 0)
notice("@"..tostring(90611455+idx))
notice("@"..tostring(90611458+idx))
end 

function DailyBeast_Kill(mid,top_damager)
local stringCode = 90611461 + (mid-22300408)
notice(sconv("@"..tostring(stringCode),"#@winner@#",tostring(top_damager)))
notice("@"..tostring(90611464+mid-22300408))
end 



function salon_dlg()

end


----------------------------------------------

TH_MAX_MINUTE = 30
function NPC_Quest_maze_Templar_contact()
dlg_title("@"..get_npc_type().."|@"..get_npc_name()	)
dlg_text("@90611511")
dlg_menu("@90010002", "")
dlg_show()
end 

function TH_maze(step,layer) --1 init 2 join 3 leave

if step == 1 then 
set_instance_dungeon_flag( 90100, layer, 'room', 0 )
set_instance_dungeon_flag( 90100, layer, 'time', get_os_time() )
local pGate = {
--{74788, 14733, 2301},

{74812, 13750, 2300},
{76072, 13766, 2300},
{77332, 13750, 2300},
{78608, 13750, 2300},
{74805, 12734, 2300},
{76072, 12726, 2300},
{77348, 12734, 2300},
{78585, 12742, 2300},
{74812, 11734, 2300},
{76072, 11734, 2300},
{77325, 11718, 2300},
{78577, 11734, 2300},
{74797, 10718, 2300},
{76057, 10726, 2300},
{77317, 10718, 2300},
{78577, 10726, 2300},

{75884, 13742, 2301},
{77144, 13750, 2301},
{78404, 13742, 2301},
{79664, 13734, 2301},

{75884, 12734, 2301},
{77136, 12734, 2301},
{78404, 12742, 2301},
{79664, 12734, 2301},

{75876, 11726, 2301},
{77144, 11726, 2301},
{78404, 11726, 2301},
{79664, 11726, 2301},

{75884, 10702, 2301},
{77136, 10718, 2301},
{78404, 10718, 2301},
{79671, 10710, 2301}
}

for i = 1, #pGate do
add_field_prop( pGate[i][3], 0, pGate[i][1], pGate[i][2], layer, 41 ) --last par is for height
if pGate[i][3] == 2301 then 
add_field_prop( 2302, 0, pGate[i][1]-22, pGate[i][2]+32, layer, 41, 0, 0, 0, 0.3, 0.3, 0.3 )
add_field_prop( 2303, 0, pGate[i][1]+16, pGate[i][2]+32, layer, 41, 0, 0, 0, 0.3, 0.3, 0.3 )
add_field_prop( 2304, 0, pGate[i][1]+16, pGate[i][2]-32, layer, 41, 0, 0, 0, 0.3, 0.3, 0.3 )
add_field_prop( 2305, 0, pGate[i][1]-22, pGate[i][2]-32, layer, 41, 0, 0, 0, 0.3, 0.3, 0.3 )
end 
end

end 
--warp_to_instance_dungeon(90100)


end 

function TH_clear(group,layer,x,y)
if group >= 90121 then 
local number = tonumber(get_instance_dungeon_flag( 90100, layer, 'number' )) or 0
local code = math.random(1,5)
set_instance_dungeon_flag(90100, layer, 'number', number+code)
add_field_prop( 2311+code-1, 0, x, y, layer, -140 ) --last par is for height
local remaining_time = math.max(0,(tonumber(get_instance_dungeon_flag( 90100, layer, 'time' )) + TH_MAX_MINUTE*60) - get_os_time())
local minute = math.floor(remaining_time/60)
local second = remaining_time - minute*60 
do_each_player_in_instance_dungeon( 90100, layer, 'private_notice(sconv("@9922","#@num@#",tostring('..code..'),"#@time@#","'..minute..':'..second..'"),"@CHAT_TYPE:22")' )
end 
if group == 90136 and get_alive_instance_respawn_group_monster_count( 90100, layer, 90136 ) == 0 then 
add_field_prop( 2317, 0, 74946, 9694, layer, 25 ) 
add_field_prop( 2316, 0, 74773, 9694, layer, 0 ) 
end
end 

function TH_Portal()
local x = gv("x")
local y = gv("y")
if math.floor(x/16128) ~= 4 or math.floor(y/16128) ~= 0 then return end 
local layer = gv("layer")
--local room = tonumber(get_instance_dungeon_flag( 90100, layer, 'room')) or 0
local room = TH_get_room(x,y)

local pRoom = {
{74812, 13750},
{76072, 13766},
{77332, 13750},
{78608, 13750},
{74805, 12734},
{76072, 12726},
{77348, 12734},
{78585, 12742},
{74812, 11734},
{76072, 11734},
{77325, 11718},
{78577, 11734},
{74797, 10718},
{76057, 10726},
{77317, 10718},
{78577, 10726}
}


if room == 0 then 
common_warp_gate(pRoom[room+1][1], pRoom[room+1][2])
elseif room == 16 then
if get_alive_instance_respawn_group_monster_count( 90100, layer, 90120+room ) == 0 then 
common_warp_gate(74883, 9702) 
else
do_each_player_in_instance_dungeon( 90100, layer, 'private_notice("@9921","@CHAT_TYPE:22")' )
end
elseif room >= 1 and room < #pRoom then
local count = get_alive_instance_respawn_group_monster_count( 90100, layer, 90120+room ) 
local skip = tonumber(get_instance_dungeon_flag( 90100, layer, 'skip_'..room )) or 1

if count == 0 then
common_warp_gate(pRoom[math.min(16,room+skip)][1], pRoom[math.min(16,room+skip)][2]) 
local current = tonumber(get_instance_dungeon_flag( 90100, layer, 'room')) or 1
if room+skip > current then
set_instance_dungeon_flag( 90100, layer, 'number', 0 )
set_instance_dungeon_flag( 90100, layer, 'room', math.min(16,room+skip) ) 
end
else
do_each_player_in_instance_dungeon( 90100, layer, 'private_notice("@9921","@CHAT_TYPE:22")' )
end 

end 

end 

function TH_get_room(x,y)
local room = 0
if x >= 74718 and y<=14196 and x<=75936 and y>=13230 then 
room=1
elseif x >= 75978 and y<=14196 and x<=77196 and y>=13230 then 
room=2
elseif x >= 77238 and y<=14196 and x<=78456 and y>=13230 then 
room=3
elseif x >= 78498 and y<=14196 and x<=79884 and y>=13230 then 
room=4
elseif x >= 74718 and y<=13188 and x<=75936 and y>=12222 then 
room=5
elseif x >= 75978 and y<=13188 and x<=77196 and y>=12222 then 
room=6
elseif x >= 77238 and y<=13188 and x<=78456 and y>=12264 then 
room=7
elseif x >= 78498 and y<=13188 and x<=79716 and y>=12222 then 
room=8
elseif x >= 74718 and y<=12180 and x<=75936 and y>=11214 then 
room=9
elseif x >= 75978 and y<=12180 and x<=77196 and y>=11214 then 
room=10
elseif x >= 77238 and y<=12180 and x<=78456 and y>=11214 then 
room=11
elseif x >= 78498 and y<=12180 and x<=79716 and y>=11214 then 
room=12
elseif x >= 74718 and y<=11172 and x<=75936 and y>=10206 then 
room=13
elseif x >= 75978 and y<=11172 and x<=77196 and y>=10206 then 
room=14
elseif x >= 77238 and y<=11172 and x<=78456 and y>=10206 then 
room=15
elseif x >= 78498 and y<=11172 and x<=79716 and y>=10206 then 
room=16
end 
return room
end 

function is_prime(n)
for i = 2, n^(1/2) do
if (n % i) == 0 then return false end
end
return true
end

function TH_Slate(key)
local layer = gv("layer")
local room = TH_get_room(gv("x"),gv("y"))
local count = tonumber(get_alive_instance_respawn_group_monster_count( 90100, layer, 90120+room )) or -1
local number = tonumber(get_instance_dungeon_flag( 90100, layer, 'number' )) or 0
if count ~= 0 or number == 0 then 
private_notice("@9921","@CHAT_TYPE:22")
add_field_prop( 2302+key-1, 0, gv("x"), gv("y"), layer, 41, 0, 0, 0, 0.3, 0.3, 0.3 ) --last par is for height
return
end

local skip = tonumber(get_instance_dungeon_flag( 90100, layer, 'skip_'..room )) or 1 --if skip>=4 then return end
if skip>=3 then return end

local correct = false
if key == 1 and number%2==0 then
correct = true
elseif key == 2 and (number==4 or number==9 or number==16 or number==25) then 
correct = true
elseif key == 3 and is_prime(number) then 
correct = true
end

if correct then 
set_instance_dungeon_flag( 90100, layer, 'skip_'..room, skip+1 )
do_each_player_in_instance_dungeon( 90100, layer, 'private_notice("@'..tostring(170002302+key-1)..'|: T","@CHAT_TYPE:22")' )
else
do_each_player_in_instance_dungeon( 90100, layer, 'private_notice("@'..tostring(170002302+key-1)..'|: F","@CHAT_TYPE:22")' )
end
end 

function TH_Core(code)
if math.floor(gv("x")/16128) ~= 4 or math.floor(gv("y")/16128) ~= 0 then return end 
local layer = gv("layer")
local remaining_time = math.max(0,(tonumber(get_instance_dungeon_flag( 90100, layer, 'time' )) + TH_MAX_MINUTE*60) - get_os_time())
local minute = math.floor(remaining_time/60)
local second = remaining_time - minute*60 
do_each_player_in_instance_dungeon( 90100, layer, 'private_notice(sconv("@9922","#@num@#",tostring('..code..'),"#@time@#","'..minute..':'..second..'"),"@CHAT_TYPE:22")' )
end 

function TH_Reward(idx) --TODO

set_quest_status(6013,1,get_quest_status(6013,1)+1)

local rate = math.random(1,10)
if rate >= 9 then 
do_each_player_in_instance_dungeon( 90100, gv("layer"), 'insert_item(803006,4)' )
do_each_player_in_instance_dungeon( 90100, gv("layer"), 'private_notice(sconv("@254","#@item_num@#",tostring(4),"#@item_name@#","@10803006"),"@CHAT_TYPE:22")' )
elseif rate>=5 then 
do_each_player_in_instance_dungeon( 90100, gv("layer"), 'insert_item(2020003,math.random(3,3))' )
do_each_player_in_instance_dungeon( 90100, gv("layer"), 'private_notice(sconv("@254","#@item_num@#",tostring(3),"#@item_name@#","@12020003"),"@CHAT_TYPE:22")' )
else
do_each_player_in_instance_dungeon( 90100, gv("layer"), 'insert_item(2020000,7)' )
do_each_player_in_instance_dungeon( 90100, gv("layer"), 'private_notice(sconv("@254","#@item_num@#",tostring(7),"#@item_name@#","@12020000"),"@CHAT_TYPE:22")' )
end

end

function test_p(id,h)
-- 74750, 14734
add_field_prop( id, 0, gv("x"), gv("y"), gv("layer"), h )
end

function quest_maze(id,state) --state: 1/start; 3/end;
--[[local pPos = { 
{139167, 142679},
{139017, 142671},
{138876, 142671}
}
local idx = id-4122
if state == 1 then 
add_field_prop( 2320+idx, 0, pPos[idx+1][1], pPos[idx+1][2], gv("layer"), 3 )
end]]
end

function maze_enterance(id)
local status = get_quest_progress(id)
if status == 1 then set_quest_status(id,1,1) end
local can_enter = get_quest_progress(4124)
if id == 4124 and (can_enter == 255 or can_enter == 1 or can_enter == 2) then 
sv("hx",gv("x"))
sv("hy",gv("y"))
warp_to_instance_dungeon(90100)
end 
end 
--//test_p(2301)
--//add_field_prop( 2316, 0, gv("x"), gv("y"), gv("layer"), 10 )

-----------------------------------------------------

function GF_CHECK(tick)
end

--run warp(75462,13950, 3)

function ResponMonsterByID(id)
add_npc(24184,104824,id, 1)

end