[GF]xWiggle scrie:VasiCatalin acesta este quest-ul sistem_onoare.quest
--------------------------------------
-- SISTEM ONOARE REALIZAT DE .EUGEN --
--------------------------------------

quest sistem_onoare begin
state start begin
when kill begin
if npc.is_pc() then

-- INFORMATII DESPRE JUCATORUL OMORAT
local vid = npc.get_vid()
local old_pc = pc.select(vid)
if old_pc == 0 then
return
end
local nume_jucator_omorat = pc.get_name()
local nivel_jucator_omorat = pc.get_level()
pc.select(old_pc)

-- OPRIRE UCIDERE REPETATA
if pc.getqf("ultimul_omorat") == npc.get_vid() then
syschat("L-ai omorat pe "..nume_jucator_omorat.."!")
return
else
pc.setqf("ultimul_omorat", npc.get_vid())
end

-- PUNCTE ONOARE
if nivel_jucator_omorat >= pc.get_level() then
local puncte_onoare = number(1,20)
pc.setqf("puncte_onoare", pc.getqf("puncte_onoare") + puncte_onoare)
syschat("Ai primit "..puncte_onoare.." puncte de onoare.")

-- SCADERE PUNCTE ONOARE JUCATOR OMORAT
local vid = npc.get_vid()
local old_pc = pc.select(vid)
if old_pc == 0 then
return
end
local puncte_onoare_omoarat = pc.getqf("puncte_onoare") - 10
if puncte_onoare_omoarat < 0 then
pc.setqf("puncte_onoare", 0)
else
pc.setqf("puncte_onoare", puncte_onoare_omoarat)
end
syschat("Ai pierdut 10 puncte de onoare.")
cmdchat("valori_ucideri "..pc.getqf("regat1").." "..pc.getqf("regat2").." "..pc.getqf("regat3").." "..pc.getqf("puncte_onoare"))
pc.select(old_pc)
end

-- PUNCTE UCIDERI
pc.setqf("regat"..npc.get_empire(), pc.getqf("regat"..npc.get_empire())+1)

-- TRIMITERE STATUS LA CLIENT
cmdchat("valori_ucideri "..pc.getqf("regat1").." "..pc.getqf("regat2").." "..pc.getqf("regat3").." "..pc.getqf("puncte_onoare"))

-- SETARE OMORURI TOTALE
local puncte_totale = pc.getqf("regat1") + pc.getqf("regat2") + pc.getqf("regat3")
pc.setqf("puncte_totale", puncte_totale)

-- NIVELE
local nivel0 = 0
local nivel1 = 20
local nivel2 = 40
local nivel3 = 60
local nivel4 = 80
local nivel5 = 100

if puncte_totale >= nivel0 and puncte_totale < nivel1 then -- NIVEL 0
pc.setqf("nivel_ucideri", 0)
elseif puncte_totale >= nivel1 and puncte_totale < nivel2 then -- NIVEL 1
if pc.getqf("nivel_ucideri") == 0 then
syschat("Felicitari! Ai atins Nivel 1 la Ucideri")
pc.setqf("nivel_ucideri", 1)
end
elseif puncte_totale >= nivel2 and puncte_totale < nivel3 then -- NIVEL 2
if pc.getqf("nivel_ucideri") == 1 then
syschat("Felicitari! Ai atins Nivel 2 la Ucideri")
pc.setqf("nivel_ucideri", 2)
end
elseif puncte_totale >= nivel3 and puncte_totale < nivel4 then -- NIVEL 3
if pc.getqf("nivel_ucideri") == 2 then
syschat("Felicitari! Ai atins Nivel 3 la Ucideri")
pc.setqf("nivel_ucideri", 3)
end
elseif puncte_totale >= nivel4 and puncte_totale < nivel5 then -- NIVEL 4
if pc.getqf("nivel_ucideri") == 3 then
syschat("Felicitari! Ai atins Nivel 4 la Ucideri")
pc.setqf("nivel_ucideri", 4)
end
elseif puncte_totale >= nivel5 then -- NIVEL 5
if pc.getqf("nivel_ucideri") == 4 then
syschat("Felicitari! Ai atins Nivel 5 la Ucideri")
pc.setqf("nivel_ucideri", 5)
end
end

end
end
when login begin
-- TRIMITERE STATUS LA CLIENT
cmdchat("valori_ucideri "..pc.getqf("regat1").." "..pc.getqf("regat2").." "..pc.getqf("regat3").." "..pc.getqf("puncte_onoare"))
cmdchat("utilizari_kill_ramase ", pc.getqf("uti_kill"))
cmdchat("sistem_onoare_questindex "..q.getcurrentquestindex())
pc.setqf("bonus_activat", 0)
end

-- ACTIVARE SISTEM UCIDERI
when button or info begin

if pc.getqf("bonus_activat") == 1 then
syschat("Nu poti activa sistemul de 2 ori in acelasi timp.")
return
end

if pc.getqf("urm_fol_ucideri") > get_time() then
syschat("Mai asteapata "..(pc.getqf("urm_fol_ucideri")-get_time()).." secunde pentru a putea activa sistemul.")
return
end

local utikill = pc.getqf("uti_kill") - 1

if utikill < 0 then
syschat("Ai nevoie de una din Sferele Magice pentru a putea utiliza aceasta forta.")
return
end

-- SETARE BONUSURI IN FUNCTIE DE NIVELUL UCIDERILOR
if pc.getqf("nivel_ucideri") == 0 then
affect.add_collect(1, 500, 60)
affect.add_collect(3, 1, 60)
affect.add_collect(4, 1, 60)
affect.add_collect(5, 1, 60)
affect.add_collect(6, 1, 60)
syschat("Ai primit 500 PV, 1 INT, 1 STR, 1 DEX, 1 VIT pentru 60 secunde.")
elseif pc.getqf("nivel_ucideri") == 1 then
affect.add_collect(1, 1000, 60)
affect.add_collect(3, 2, 60)
affect.add_collect(4, 2, 60)
affect.add_collect(5, 2, 60)
affect.add_collect(6, 2, 60)
syschat("Ai primit 1000 PV, 2 INT, 2 STR, 2 DEX, 2 VIT pentru 60 secunde.")
elseif pc.getqf("nivel_ucideri") == 2 then
affect.add_collect(1, 1500, 60)
affect.add_collect(3, 4, 60)
affect.add_collect(4, 4, 60)
affect.add_collect(5, 4, 60)
affect.add_collect(6, 4, 60)
syschat("Ai primit 1500 PV, 4 INT, 4 STR, 4 DEX, 4 VIT pentru 60 secunde.")
elseif pc.getqf("nivel_ucideri") == 3 then
affect.add_collect(1, 2000, 60)
affect.add_collect(3, 7, 60)
affect.add_collect(4, 7, 60)
affect.add_collect(5, 7, 60)
affect.add_collect(6, 7, 60)
syschat("Ai primit 2000 PV, 7 INT, 7 STR, 7 DEX, 7 VIT pentru 60 secunde.")
elseif pc.getqf("nivel_ucideri") == 4 then
affect.add_collect(1, 4000, 60)
affect.add_collect(3, 10, 60)
affect.add_collect(4, 10, 60)
affect.add_collect(5, 10, 60)
affect.add_collect(6, 10, 60)
syschat("Ai primit 4000 PV, 10 INT, 10 STR, 10 DEX, 10 VIT pentru 60 secunde.")
elseif pc.getqf("nivel_ucideri") == 5 then
affect.add_collect(1, 10000, 60)
affect.add_collect(3, 20, 60)
affect.add_collect(4, 20, 60)
affect.add_collect(5, 20, 60)
affect.add_collect(6, 20, 60)
syschat("Ai primit 10000 PV, 20 INT, 20 STR, 20 DEX, 20 VIT pentru 60 secunde.")
end
pc.setqf("bonus_activat", 1)
timer("expirare_bonus", 60)

cmdchat("activare_ucideri")
pc.setqf("uti_kill", utikill)
cmdchat("utilizari_kill_ramase ", utikill)
end

-- ELIMINARE BONUSURI
when expirare_bonus.timer or logout begin
if pc.getqf("bonus_activat") == 1 then
pc.setqf("urm_fol_ucideri", get_time() + 60 * 2)
syschat("Bonusul dat de Ucideri a disparut.")
pc.setqf("bonus_activat", 0)

if pc.getqf("nivel_ucideri") == 0 then
affect.remove_collect(1, 500, 60)
affect.remove_collect(3, 1, 60)
affect.remove_collect(4, 1, 60)
affect.remove_collect(5, 1, 60)
affect.remove_collect(6, 1, 60)
elseif pc.getqf("nivel_ucideri") == 1 then
affect.remove_collect(1, 1000, 60)
affect.remove_collect(3, 2, 60)
affect.remove_collect(4, 2, 60)
affect.remove_collect(5, 2, 60)
affect.remove_collect(6, 2, 60)
elseif pc.getqf("nivel_ucideri") == 2 then
affect.remove_collect(1, 1500, 60)
affect.remove_collect(3, 4, 60)
affect.remove_collect(4, 4, 60)
affect.remove_collect(5, 4, 60)
affect.remove_collect(6, 4, 60)
elseif pc.getqf("nivel_ucideri") == 3 then
affect.remove_collect(1, 2000, 60)
affect.remove_collect(3, 7, 60)
affect.remove_collect(4, 7, 60)
affect.remove_collect(5, 7, 60)
affect.remove_collect(6, 7, 60)
elseif pc.getqf("nivel_ucideri") == 4 then
affect.remove_collect(1, 4000, 60)
affect.remove_collect(3, 10, 60)
affect.remove_collect(4, 10, 60)
affect.remove_collect(5, 10, 60)
affect.remove_collect(6, 10, 60)
elseif pc.getqf("nivel_ucideri") == 5 then
affect.remove_collect(1, 10000, 60)
affect.remove_collect(3, 20, 60)
affect.remove_collect(4, 20, 60)
affect.remove_collect(5, 20, 60)
affect.remove_collect(6, 20, 60)
end
end
end

-- SFERELE MAGICE
when 51003.use begin
local utikill = pc.getqf("uti_kill") + 2
pc.setqf("uti_kill", utikill)
cmdchat("utilizari_kill_ramase ", utikill)
syschat("Ai primit 2 utilizari ale sistemului de ucideri.")
pc.remove_item(51003)
end
when 51004.use begin
local utikill = pc.getqf("uti_kill") + 4
pc.setqf("uti_kill", utikill)
cmdchat("utilizari_kill_ramase ", utikill)
syschat("Ai primit 4 utilizari ale sistemului de ucideri.")
pc.remove_item(51004)
end
when 51005.use begin
local utikill = pc.getqf("uti_kill") + 6
pc.setqf("uti_kill", utikill)
cmdchat("utilizari_kill_ramase ", utikill)
syschat("Ai primit 6 utilizari ale sistemului de ucideri.")
pc.remove_item(51005)
end

-- MAGAZIN ONOARE
when 9010.chat."Magazin Onoare" begin
say_title("Magazin Onoare:")
say("Odata ce ai ales o categorie de iteme, onoarea")
say("corespunzatarecategoriei respective va fi scazuta.")
say("O lista cu itemele o gasesti pe site-ul serverului")
say("nostru.")
local s = select ("Iteme cu 50 Onoare", "Iteme cu 100 Onoare", "Iteme cu 150 Onoare", "Pagina Urmatoare", "Iesire")
if s == 1 then
local puncte_onoare = pc.getqf("puncte_onoare") - 50
if puncte_onoare >= 0 then
pc.setqf("puncte_onoare", puncte_onoare)
cmdchat("valori_ucideri "..pc.getqf("regat1").." "..pc.getqf("regat2").." "..pc.getqf("regat3").." "..pc.getqf("puncte_onoare"))
npc.open_shop(3)
setskin (NOWINDOW)
else
say_title("Magazin Onoare:")
say("Nu ai sificeinete puncete de Onoare.")
end

elseif s == 2 then
local puncte_onoare = pc.getqf("puncte_onoare") - 100
if puncte_onoare >= 0 then
pc.setqf("puncte_onoare", puncte_onoare)
cmdchat("valori_ucideri "..pc.getqf("regat1").." "..pc.getqf("regat2").." "..pc.getqf("regat3").." "..pc.getqf("puncte_onoare"))
npc.open_shop(3)
setskin (NOWINDOW)
else
say_title("Magazin Onoare:")
say("Nu ai sificeinete puncete de Onoare.")
end
elseif s == 3 then
local puncte_onoare = pc.getqf("puncte_onoare") - 150
if puncte_onoare >= 0 then
pc.setqf("puncte_onoare", puncte_onoare)
cmdchat("valori_ucideri "..pc.getqf("regat1").." "..pc.getqf("regat2").." "..pc.getqf("regat3").." "..pc.getqf("puncte_onoare"))
npc.open_shop(3)
setskin (NOWINDOW)
else
say_title("Magazin Onoare:")
say("Nu ai sificeinete puncete de Onoare.")
end
elseif s == 4 then
say_title("Magazin Onoare:")
say("Odata ce ai ales o categorie de iteme, onoarea")
say("corespunzatarecategoriei respective va fi scazuta.")
say("O lista cu itemele o gasesti pe site-ul serverului")
say("nostru.")
local d = select ("Iteme cu 300 Onoare","Iteme cu 500 Onoare", "Iteme cu 750 Onoare", "Iteme cu 1000 Onoare", "Iesire")
if d == 1 then
local puncte_onoare = pc.getqf("puncte_onoare") - 300
if puncte_onoare >= 0 then
pc.setqf("puncte_onoare", puncte_onoare)
cmdchat("valori_ucideri "..pc.getqf("regat1").." "..pc.getqf("regat2").." "..pc.getqf("regat3").." "..pc.getqf("puncte_onoare"))
npc.open_shop(3)
setskin (NOWINDOW)
else
say_title("Magazin Onoare:")
say("Nu ai sificeinete puncete de Onoare.")
end
elseif d == 2 then
local puncte_onoare = pc.getqf("puncte_onoare") - 500
if puncte_onoare >= 0 then
pc.setqf("puncte_onoare", puncte_onoare)
cmdchat("valori_ucideri "..pc.getqf("regat1").." "..pc.getqf("regat2").." "..pc.getqf("regat3").." "..pc.getqf("puncte_onoare"))
npc.open_shop(3)
setskin (NOWINDOW)
else
say_title("Magazin Onoare:")
say("Nu ai sificeinete puncete de Onoare.")
end
elseif d == 3 then
local puncte_onoare = pc.getqf("puncte_onoare") - 750
if puncte_onoare >= 0 then
pc.setqf("puncte_onoare", puncte_onoare)
cmdchat("valori_ucideri "..pc.getqf("regat1").." "..pc.getqf("regat2").." "..pc.getqf("regat3").." "..pc.getqf("puncte_onoare"))
npc.open_shop(3)
setskin (NOWINDOW)
else
say_title("Magazin Onoare:")
say("Nu ai sificeinete puncete de Onoare.")
end
elseif d == 4 then
local puncte_onoare = pc.getqf("puncte_onoare") - 1000
if puncte_onoare >= 0 then
pc.setqf("puncte_onoare", puncte_onoare)
cmdchat("valori_ucideri "..pc.getqf("regat1").." "..pc.getqf("regat2").." "..pc.getqf("regat3").." "..pc.getqf("puncte_onoare"))
npc.open_shop(3)
setskin (NOWINDOW)
else
say_title("Magazin Onoare:")
say("Nu ai sificeinete puncete de Onoare.")
end
end
end
end
end
end



-----
Si acesta este quest-ul sistem_putere_activare
quest sistem_putere_activare begin
state start begin
when login begin
cmdchat("questindex_activare_putere "..q.getcurrentquestindex())
if pc.getqf("timp_putere") > 0 then
timer("timp_"..pc.getqf("timp_putere") + 1, 0)
end
end

when button begin

if pc.getqf("putere_terminare_timp") >= get_time() then
chat("Puterea ta este activa. Asteapta ca aceasta sa se termine.")
return
end

--if pc.getqf("putere_terminare_timp") + 60 >= get_time() then
-- chat("Inca nu poti folosi puterea. Mai asteapta "..pc.getqf("putere_terminare_timp") + 60 - get_time().." secunde.")
-- return
--end

local bonus1, bonus2, bonus3, bonus4, puncte_disponibile = citire_puncte_putere()

local bonus = math.random(1,4)
pc.setqf("bonus_putere_activ", bonus)

lista_bonusuri = {}
lista_bonusuri [1] = {apply.MAX_HP, 100, bonus1}
lista_bonusuri [2] = {apply.ATT_GRADE_BONUS, 1, bonus2}
lista_bonusuri [3] = {apply.CRITICAL_PCT, 1, bonus3}
lista_bonusuri [4] = {apply.PENETRATE_PCT, 1, bonus4}

local bara = citire_baraputere()

if bara < lista_bonusuri[bonus][3] then
if bara < lista_bonusuri[1][3] and bara < lista_bonusuri[2][3] and bara < lista_bonusuri[3][3] and bara < lista_bonusuri[4][3] then
chat("Puterea ta s-a terminat.")
return
end
chat("Puterea ta s-a terminat pentru acest bonus. Mai incearca.")
return
end

bara_putere(lista_bonusuri[bonus][3])

valoare_bonus = lista_bonusuri[bonus][2] * lista_bonusuri[bonus][3]

pc.setqf("putere_terminare_timp", get_time() + 40)

affect.add_collect(lista_bonusuri[bonus][1],valoare_bonus, 40)
chat("Puterea a fost activata.")
cmdchat("efect_putere")


cmdchat("bonus_activ "..bonus.." "..valoare_bonus)

timer("timp_1", 0)
end
when timp_1.timer begin
pc.setqf("timp_putere", 1)
cmdchat("timp_putere 1")
timer("timp_2", 5)
end
when timp_2.timer begin
pc.setqf("timp_putere", 2)
cmdchat("timp_putere 2")
timer("timp_3", 5)
end
when timp_3.timer begin
pc.setqf("timp_putere", 3)
cmdchat("timp_putere 3")
timer("timp_4", 5)
end
when timp_4.timer begin
pc.setqf("timp_putere", 4)
cmdchat("timp_putere 4")
timer("timp_5", 5)
end
when timp_5.timer begin
pc.setqf("timp_putere", 5)
cmdchat("timp_putere 5")
timer("timp_6", 5)
end
when timp_6.timer begin
pc.setqf("timp_putere", 6)
cmdchat("timp_putere 6")
timer("timp_7", 5)
end
when timp_7.timer begin
pc.setqf("timp_putere", 7)
cmdchat("timp_putere 7")
timer("timp_8", 5)
end
when timp_8.timer begin
pc.setqf("timp_putere", 8)
cmdchat("timp_putere 8")
timer("timp_9", 5)
end
when timp_9.timer begin
pc.setqf("timp_putere", 9)
cmdchat("timp_putere 9")
cmdchat("bonus_activ 0 0")
end
end
end