JeS

quest monarch_election begin
state start begin
when login or enter begin
if oh.ismonarch() > 0 and pc.count_item(70021) == 0 then
set_state(newking)
elseif oh.ismonarch() == 0 then
if pc.count_item(70021) > 0 then
pc.remove_item(70021)
syschat("Has sido desposeído de tu Bendición Angelical.")
end
if pc.count_item(11971) > 0 or pc.count_item(11972) > 0 or pc.count_item(11973) > 0 or pc.count_item(11974) > 0 then
if pc.get_part(PART_MAIN) > 11970 and pc.get_part(PART_MAIN) < 11975 then
syschat("Por favor, desequipa tu armadura de Monarca.")
syschat("No se te permite usarla.")
else
local armor = 11971 + pc.get_job()
pc.removeitem(armor)
syschat("Has sido desposeído de tu armadura de Monarca.")
end
end
end
if game.get_event_flag("monarch_elect") > 0 and pc.get_level() >= 40 then
send_letter("Elección del Monarca")
end
end
when button or info begin
if game.get_event_flag("monarch_elect") == 1 then
say_title("Candidaturas a la monarquía")
say("")
----"12345678901234567890123456789012345678901234567890"|
say("Si desea presentarse para ser el próximo Monarca,")
say("debe hablar con el Alguacil de Batalla en la")
say("ciudad. Recuerde que necesitarás 1.000.000 Yang y")
say("nivel 65 para ello.")
say("")
say("Cuando el proceso de Candidatura termine, podrás votar.")
elseif game.get_event_flag("monarch_electionid") == pc.getqf("electionid") then
say_title("Elecciones a Monarca")
say("")
----"12345678901234567890123456789012345678901234567890"|
say("Ya ha realizado su voto. Los resultados serán")
say("anunciados al final de las elecciones.")
else
say_title("Elecciones a Monarca")
say("")
----"12345678901234567890123456789012345678901234567890"|
say("Diríjase al Alguacil de Batalla para votar.")
say("Necesitará este objeto:")
say("")
say_item_vnum(60004)
say("Puedesobtenerlo matando monstruos y enemigos.")
end
say("")
end
when kill with game.get_event_flag("monarch_elect") > 0 and pc.level >= 45 begin
if game.get_event_flag("monarch_electionid") != pc.getqf("electionid") then
if not npc.is_pc() then
local limit = get_mob_level[npc.get_race()]
if limit == nil then
return
else
if pc.get_level() > limit+10 then
return
end
end
end
if number(1, 500) == 1 then
if pc.count_item(60004) == 0 and pc.enough_inventory(60004) then
pc.give_item2(60004, 1)
syschat("Ha sido autorizado para votar en las elecciones.")
end
end
end
end
when electionman1.chat."GM: Ajustes de elección a Monarca" or electionman2.chat."GM: Ajustes de elección a Monarca" or electionman3.chat."GM: Ajustes de elección a Monarca" with pc.is_gm() begin
if game.get_event_flag("monarch_elect") == 1 then
say_title("Candidaturas a la monarquía:")
say("")
----"123456789012345678901234567890123456789012345678901234567890"|
say("Actualmente las candidaturas para la elección")
say("del nuevo Monarca estan abiertas.")
say("")
say("Desea cerrarlas ahora?")
say("")
local s = select("Cerrar", "Continuar" )
if s == 1 then
notice_all("Las elecciones a Monarca acaba de empezar!")
notice_all("Dirígete al Algacil de Batallas, presenta tu Certificado")
notice_all("y vota por tu candidato.")
game.set_event_flag("monarch_elect", 2)
game.set_event_flag("monarch_electionid", get_global_time())
say_title("Candidaturas a la monarquía:")
say("")
say("Candidaturas cerradas, ahora se abren")
say("las votaciones para el nuevo Monarca.")
say("")
end
elseif game.get_event_flag("monarch_elect") == 2 then
say_title("Elecciones a Monarca:")
say("")
say("Elecciones a Monarca en proceso..")
say("Cerrar votaciones?")
say("")
say_reward("Votación actual:")
say_reward("Shinsoo: "..monarch_election.getcurrentwinner(1)[1])
say_reward("Chunjo: "..monarch_election.getcurrentwinner(2)[1])
say_reward("Jinno: "..monarch_election.getcurrentwinner(3)[1])
say("")
local s = select("Terminar", "Continuar")
if s == 1 then
notice_all("Las votaciones a la elección del nuevo Monarca acaban de cerrarse.")
game.set_event_flag("monarch_elect", 0)
if monarch_election.getcurrentwinner(1)[2] != 0 then mgmt.monarch_change_lord(1, monarch_election.getcurrentwinner(1)[2]) end
if monarch_election.getcurrentwinner(2)[2] != 0 then mgmt.monarch_change_lord(2, monarch_election.getcurrentwinner(2)[2]) end
if monarch_election.getcurrentwinner(3)[2] != 0 then mgmt.monarch_change_lord(3, monarch_election.getcurrentwinner(3)[2]) end
end
elseif game.get_event_flag("monarch_elect") == 0 then
say_title("Elecciones a Monarca:")
say("")
say("Aquí puede permitir las candidaturas a la monarquía.")
say("")
say("Iniciar candidaturas ahora?")
say("")
local s = select("Si", "No")
if s == 1 then
notice_all("Ha empezado la candidatura a la Monarquía!")
notice_all("Dirígete al Algacil de Batallas para participar.")
game.set_event_flag("monarch_elect", 1)
game.set_event_flag("monarch_electionid", get_global_time())
monarch_election.clearcandidacy()
end
end
end
when electionman1.chat."Elecciones a Monarca" or electionman2.chat."Elecciones a Monarca" or electionman3.chat."Elecciones a Monarca" with game.get_event_flag("monarch_elect") == 2 begin
say_title("Elecciones a Monarca:")
say("")
if pc.get_level() < 45 then
say("Necesita ser Nivel 45 o más para poder votar,")
say("vuelva cuando cumpla este requisito.")
say("")
return
end
if game.get_event_flag("monarch_electionid") == pc.getqf("electionid") then
say("No puede volver a votar!")
say("")
return
end
if pc.count_item(60004) < 1 then
say("Lo siento, debe mostrarme el certificado")
say("para demostrar que pertenece al "..locale.empire_names[pc.get_empire()]..".")
say("")
say_item_vnum(60004)
say("Puede obtenerlo matando monstruos y enemigos.")
say("*Vuelva cuando lo tenga.")
say("")
return
end
local gname_table = monarch_election.candidacy_list(pc.get_empire())
if table.getn(gname_table) == 0 then
-- no currently war
say("No hay candidatos disponibles!")
say("") else
table.insert(gname_table, "Cancel")
----"123456789012345678901234567890123456789012345678901234567890"|
say("Bien! tiene la autorización para poder votar,")
say("hágalo cuidadosamente ya que solo puede hacerlo una vez.")
say("")
wait()
local s = select_table(gname_table)
if s == table.getn(gname_table) then
return;
else
monarch_election.election(s)
pc.setqf("electionid", game.get_event_flag("monarch_electionid"))
pc.remove_item(60004, 1)
say_title("Elecciones a Monarca:")
say("")
say("Se agradece su participación.")
say("")
say_reward("Su voto fue para: "..gname_table)
say("")
end
end
end
when electionman1.chat."Postular a la Monarquía" or electionman2.chat."Postular a la Monarquía" or electionman3.chat."Postular a la Monarquía" with game.get_event_flag("monarch_elect") == 1 begin
local NEED_MONEY = 1000000
local NEED_LEVEL = 65
say_title("Candidaturas a la monarquía:")
say("")
say("Para postular como el nuevo Monarca necesitas:")
say("")
say_reward("1. "..NEED_MONEY.." Yang para poder postular.")
say_reward("2. Nivel superior o igual a "..NEED_LEVEL..".")
say("")
if game.get_event_flag("monarch_elect") == 0 then
say("Elecciones a la Monarquía cerradas.")
say("")
say("Vuelva luego")
say("")
return
end
if game.get_event_flag("monarch_electionid") == pc.getqf("electionid") then
say("*Usted ya esta entre los candidatos a la Monarquía.")
say("")
return
end
say("Cumples todos los requisitos y deseas postular?")
say("")
local s = select("Sí, Postular", "No, Gracias.")
if s == 1 then
say_title("Candidaturas a la monarquía:")
say("")
if monarch_election.candidacycount(pc.get_empire()) >= 8 then
say("Lo sentimos, ya hay suficientes candidatos.")
say("")
say("Intente en las próximas elecciones.")
elseif pc.get_gold() >= NEED_MONEY and pc.get_level() >= NEED_LEVEL then
say("Muy Bien!")
say("Ahora forma parte de los candidatos para la elección.")
say("del nuevo Monarca.")
say("")
say("Buena Suerte!")
pc.change_gold(-NEED_MONEY);
monarch_election.candidacy();
pc.setqf("electionid", game.get_event_flag("monarch_electionid"))
else
say("Lo siento, no cumple con los requisitos.")
end
say("")
end
end
function candidacy()
local f = io.open("data/monarch_election", "a+")
f:write(pc.get_player_id().."t"..pc.get_empire().."t0t"..pc.get_name().."tn")
f:close()
end
function clearcandidacy()
local f = io.open("data/monarch_election", "w+")
f:close()
end
function candidacycount(empire)
local count = 0
local f = io.open("data/monarch_election", "r")
for line in f:lines() do
local e = string.split(line, "t")
if e != nil and tonumber(e[2]) == empire then
count = count + 1
end
end
f:close()
return count
end
function candidacy_list(empire)
local res = {}
local f = io.open("data/monarch_election", "r")
for line in f:lines() do
cinfo = string.split(line, "t")
if tonumber(cinfo[2]) == empire then
table.insert(res, cinfo[4])
end
end
f:close()
return res
end
function election(id)
local c_list = {}
local c_count = 0
local f = io.open("data/monarch_election", "r")
for line in f:lines() do
table.insert(c_list, string.split(line, "t"))
c_count = c_count + 1
end
f:close()
f = io.open("data/monarch_election", "w+")
local e_i = 1
for i = 1, c_count, 1 do
if e_i == id then
c_list[3] = tonumber(c_list[3]) + 1
end
if tonumber(c_list[2]) == pc.get_empire() then
e_i = e_i + 1
end
f:write(c_list[1].."t"..c_list[2].."t"..c_list[3].."t"..c_list[4].."tn")
end
f:close()
end
function getcurrentwinner(empire)
local res = {"Nadie", 0}
local f = io.open("data/monarch_election", "r")
local maxvotes = -1
for line in f:lines() do
local exploded = string.split(line, "t")
if tonumber(exploded[2]) == empire and tonumber(exploded[3]) > maxvotes then
maxvotes = tonumber(exploded[3])
res = {exploded[4], tonumber(exploded[1])}
end
end
f:close()
return res
end
end
state newking begin
when login or enter begin
q.set_icon("scroll_open_blue.tga")
send_letter("Felicitaciones!")
end
when button or info begin
local treatment = {
[0] = "Rey",
[1] = "Reina",
}
local prefix = {
[0] = "el",
[1] = "la",
}
local armor = 11971 + pc.get_job()
----"123456789012345678901234567890123456789012345678901234567890"|
say_title("Felicitaciones!")
say("")
say("Has sido elegido como "..prefix[pc.get_sex()].." nuevo "..treatment[pc.get_sex()].." de "..locale.empire_names[pc.get_empire()].."!")
say("")
say("como "..treatment[pc.get_sex()]..", se le concede la Armadura de Monarca")
say("y la Bendición Angelical mientras dure su reinado.")
say("")
say("Esta Joya le permitirá utilizar habilidades Monárquicas")
say("limitadas y dependiente del Yang que disponga,")
say("elija sabiamente.")
say("")
say("Mucha Prosperidad para su Reinado!")
say("")
clear_letter()
set_state(start)
if pc.count_item(armor) == 0 then
pc.give_item2(armor)
end
if pc.count_item(70021) == 0 then
pc.give_item2(70021)
end
notice_all("El "..treatment[pc.get_sex()].." "..pc.getname().." de "..locale.empire_names[pc.get_empire()].." ha sido coronado "..treatment[pc.get_sex()].."!")
end
end
end