Tipologie server(PvM / PvP): PVM
*Resursă folosită: *Link exclusiv J4M* -
*ServerFiles utilizat: SF happiness
*Syserr:-
Poză:-
*Detalii suplimentare: Am 2 questuri pentru valentine's day dar nu inteleg de ce nu merg. Daca ma puteti ajuta..
quest v_day begin
state start begin
function is_on()
if game.get_event_flag("is_v_day") >= 1 then
return true
else
return false
end
end
when login with v_day.is_on() == true begin
set_state("__INFORMATIONS__")
end
end
state __INFORMATIONS__ begin
when letter with v_day.is_on() == true begin
local v = find_npc_by_vnum(20011)
if v != 0 then
target.vid("uriel", v, "Uriel")
end
send_letter("Valentine's Day!")
end
when button or info with v_day.is_on() == true begin
local sex
local partener
if pc.get_sex() == 1 then
sex = "îndrãgostito"
partener = "iubitul tãu"
else
sex = "îndrãgostitule"
partener = "iubita ta"
end
if pc.count_item(900105) >= 1 then
addimage(25, 15, "v_day.png")
say_size(350, 330)
say_white("[ENTER][ENTER][ENTER][ENTER]")
say_title("Valentine's Day[ENTER]")
say("Se pare cã ai primit deja o scrisoare de recomandare!")
say("Mult succes cu Ursuleþii Ted![ENTER]")
else
addimage(25, 15, "v_day.png")
say_size(350, 330)
say_white("[ENTER][ENTER][ENTER][ENTER]")
say_title("Valentine's Day[ENTER]")
say_white("Este ziua îndrãgostiþilor, "..sex.."! Du-te la Uriel")
say_white("ºi aflã ce trebuie sã faci pentru a obþine un cadou pentru")
say_white(""..partener.."! Dar grãbeºte-te, Uriel oferã aceste ponturi")
say_white("doar pânã pe 15 februarie la ora 23:59![ENTER]")
end
end
when uriel.target.click or 20011.chat."Valentine's Day" with v_day.is_on() == true begin
local sex
if pc.get_sex() == 1 then
sex = "îndrãgostitã "
else
sex = "îndrãgostit"
end
target.delete("uriel")
if pc.count_item(900105) >= 1 then
addimage(25, 15, "v_day.png")
say_size(350, 330)
say_white("[ENTER][ENTER][ENTER][ENTER]")
say_title("Valentine's Day[ENTER]")
say("Se pare cã ai primit deja o scrisoare de recomandare!")
say("Mult succes cu Ursuleþii Ted![ENTER]")
else
say_title("Valentine's Day[ENTER]")
say_white("De ziua îndrãgostiþilor, Ursuleþii Ted ne-au vizitat þinuturile.")
say_white("Ei au o mulþime de cadouri de oferit, însã aceºtia vor")
say_white("sã fie vãzuþi doar de persoanele cu adevãrat îndrãgostite![ENTER]")
local continue = select("Þi se pare cã nu sunt "..sex.."?","Închide")
if continue == 1 then
say_title("Valentine's Day[ENTER]")
say_white("De unde pot ºti eu asta?!")
say_white("Este un singur mod de a afla! Pentru început, cautã o scrisoare")
say_white("de dragoste la monºtrii care se aflã pe aceste þinuturi!")
say_item_vnum(900103)
say_white("Când o vei gãsi, revino la mine sã mai vorbim...[ENTER]")
set_state("kill_for_letter_v_day")
pc.setqf("kill_monster", 200)
else
return
end
end
end
end
state kill_for_letter_v_day begin
when letter with v_day.is_on() == true begin
send_letter("O scrisoare de dragoste")
end
when button or info with v_day.is_on() == true begin
say_title("O scrisoare de dragoste...[ENTER]")
say_white("Distruge câþi mai mulþi monºtri pentru a gãsi")
say_white("scrisoarea de dragoste!")
say_item_vnum(900103)
end
when kill with not npc.is_pc() and v_day.is_on() == true begin
local count = pc.getqf("kill_monster") - 1
if count <= 200 then
pc.setqf("kill_monster", count)
end
if count == 0 then
say_title("O scrisoare de dragoste - Terminat[ENTER]")
say_white("Ai gãsit scrisoarea de dragoste, întoarce-te la Uriel!")
say_item_vnum(900103)
pc.give_item2(900103, 1)
pc.delqf("kill_monster")
set_state("kill_for_letter_v_day_finish")
end
end
end
state kill_for_letter_v_day_finish begin
when letter with v_day.is_on() == true begin
local v = find_npc_by_vnum(20011)
if v != 0 then
target.vid("uriel", v, "Uriel")
end
send_letter("Întoarce-te la Uriel")
end
when button or info with v_day.is_on() == true begin
say_title("O scrisoare de dragoste - Terminat[ENTER]")
say_white("Întoarce-te la Uriel ºi dã-i aceastã ")
say_white("scrisoare de dragoste.[ENTER]")
end
when target.uriel.click or 20011.chat."O scrisoare de dragoste" with v_day.is_on() == true begin
target.delete("uriel")
pc.removeitem(900103, pc.count_item(900103))
say_title("Valentine's Day[ENTER")
say_white("Mhm, se pare cã ai reuºit sã gãseºti o scrisoare")
say_white("de dragoste. Însã, aceasta este goalã, ce pot face cu ea?![ENTER]")
say_white("Þi-aº putea scrie o recomandare pentru ursuleþii Ted, dar")
say_white("nu am un stilou la îndemânã...[ENTER]")
local continue = select("Îþi pot face eu rost de unul","Închide")
if continue == 1 then
say_title("Valentine's Day[ENTER]")
say_white("Din nou, acest stilou se aflã la monºtrii de pe")
say_white("aceste þinuturi. Vâneazã-i![ENTER]")
say_white("")
say_item_vnum(900104)
say_white("Când o vei gãsi, revino la mine sã mai vorbim...[ENTER]")
set_state("kill_for_pen_v_day")
pc.setqf("kill_monster", 200)
else
return
end
end
end
state kill_for_pen_v_day begin
when letter with v_day.is_on() == true begin
send_letter("Un stilou")
end
when button or info with v_day.is_on() == true begin
say_title("Un stilou...[ENTER]")
say_white("Distruge câþi mai mulþi monºtri pentru a gãsi stiloul!")
say_item_vnum(900104)
end
when kill with not npc.is_pc() and v_day.is_on() == true begin
local count = pc.getqf("kill_monster") - 1
if count <= 200 then
pc.setqf("kill_monster", count)
end
if count == 0 then
say_title("Un stilou - Terminat[ENTER]")
say_white("Ai gãsit stiloul, întoarce-te la Uriel!")
say_item_vnum(900104)
pc.give_item2(900104, 1)
pc.delqf("kill_monster")
set_state("kill_for_pen_v_day_finish")
end
end
end
state kill_for_pen_v_day_finish begin
when letter with v_day.is_on() == true begin
local v = find_npc_by_vnum(20011)
if v != 0 then
target.vid("uriel", v, "Uriel")
end
send_letter("Întoarce-te la Uriel")
end
when button or info with v_day.is_on() == true begin
say_title("Un stilou - Terminat")
say_white("Întoarce-te la Uriel ºi dã-i acest stilou![ENTER]")
end
when uriel.target.click or 20011.chat."Un stilou" with v_day.is_on() == true begin
target.delete("uriel")
pc.removeitem(900104, pc.count_item(900104))
say_title("Valentine's Day[ENTER]")
say_white("Mhm, se pare cã ai reuºit sã gãseºti ºi un stilou.")
say_white("Foarte bine, îþi voi scrie acea recomandare.[ENTER]")
say_reward("Sper cã nu voi regreta...[ENTER]")
wait()
say_title("Recomandare pentru Ursuleþii Ted[ENTER]")
say_white("Poftim, sã ai mare grijã de ea!")
say_item_vnum(900105)
pc.give_item2(900105)
set_state("__INFORMATIONS__")
end
end
endquest v_day_fixed begin
state start begin
function is_on()
if game.get_event_flag("is_v_day") >= 1 then
return true
else
return false
end
end
when login with v_day_fixed.is_on() == false begin
if pc.count_item(900103) >= 1 or pc.count_item(900104) >= 1 or pc.count_item(900105) >= 1 then
if not pc.is_gm() then
pc.remove_item(900103, pc.count_item(900103))
pc.remove_item(900104, pc.count_item(900104))
pc.remove_item(900105, pc.count_item(900105))
pc.delqf("ted_kill")
else
return
end
end
if pc.get_map_index() == 114 then
if not pc.is_gm() then
warp_to_village()
else
return
end
end
end
when 900105.use with v_day_fixed.is_on() == true begin
say_title("Scrisoare de Recomandare[ENTER]")
say_white("Zilele acestea Ursuleþii Ted ne viziteazã þinuturile!")
say_white("Aceºtia au o mulþime de cadouri de oferit.[ENTER]")
say_reward("Doreºti sã-i viztezi?[ENTER]")
local enter = select("Da","Închide")
if enter == 1 then
pc.warp(921600, 100)
else
return
end
end
when 35042.kill with v_day_fixed.is_on() == true begin
local count = pc.getqf("ted_kill") + 1
pc.setqf("ted_kill", count)
syschat("Acesta este al "..pc.getqf("ted_kill").."-lea ursuleþ Ted doborât! Doboarã cât mai mulþi, sunt plini de surprize!")
end
when 35043.chat."Valentine's Day" with v_day_fixed.is_on() == true begin
say_title("Valentine's Day[ENTER]")
say_white("Despre costumele & peturile îndrãgostiþilor...[ENTER]")
say_reward("x200 de Trandafiri + x25 Ciocolãþi = Costum Valentine's Day")
say_reward("x200 de Trandafiri + x50 Ciocolãþi = Pet Valentine's Day[ENTER]")
local continuare = select("Spune-mi despre Costum","Spune-mi despre Pet","Închide")
if continuare == 1 then
say_title("Costum Valentine's Day[ENTER]")
say_item_vnum(41550)
say_reward("Bonus1: Max. PV +3500")
say_reward("Bonus2: Valoarea atacului +75")
say_reward("Bonus3: ªansa 10% la lovituri pãtrunzãtoare[ENTER]")
wait()
if pc.count_item(80061) < 200 then
syschat("Nu ai suficienþi Trandafiri adunaþi.")
return
end
if pc.count_item(50025) < 25 then
syschat("Nu ai suficiente ciocolaþi adunate.")
return
end
if pc.count_item(80061) >= 200 and pc.count_item(50025) >= 25 then
say_title("Costum Valentine's Day[ENTER]")
say_white("Se pare cã ai la tine ce îþi trebuie pentru a obþine")
say_white("un costum de Valentine's Day.[ENTER]")
say_reward("Alege sexul costumului[ENTER]")
local sex = select("Masculin","Feminin","Închide")
if sex == 1 then
pc.removeitem(80061, 200)
pc.removeitem(50025, 25)
pc.give_item2(41550, 1)
end
if sex == 2 then
pc.removeitem(80061, 200)
pc.removeitem(50025, 25)
pc.give_item2(41551, 1)
end
if sex == 3 then
return
end
end
end
if continuare == 2 then
say_title("Pet Valentine's Day[ENTER]")
say_white("Primul PET:")
say_reward("Nume: Amoras")
say_reward("Bonus1: Max. PV +1850")
say_reward("Bonus1: Tare împotriva semi-oamenilor +10%")
say_reward("Bonus1: ªansa de loviturã criticã +10%[ENTER]")
say_white("Al II-lea PET:")
say_reward("Nume: Inimã Iute")
say_reward("Bonus1: Max. PV +1850")
say_reward("Bonus1: Tare împotriva semi-oamenilor +10%")
say_reward("Bonus1: ªansa 10% de lovituri pãtrunzãtoare[ENTER]")
wait()
if pc.count_item(80061) < 200 then
syschat("Nu ai suficienþi Trandafiri adunaþi.")
return
end
if pc.count_item(50025) < 50 then
syschat("Nu ai suficiente ciocolaþi adunate.")
return
end
if pc.count_item(80061) >= 200 and pc.count_item(50025) >= 50 then
say_title("Pet Valentine's Day[ENTER]")
say_white("Se pare cã ai la tine ce îþi trebuie pentru a obþine")
say_white("un Pet de Valentine's Day.[ENTER]")
say_reward("Alege Pet-ul dorit[ENTER]")
local sex = select("Amoras","Inimã Iute","Închide")
if sex == 1 then
pc.removeitem(80061, 200)
pc.removeitem(50025, 50)
pc.give_item2(900500, 1)
end
if sex == 2 then
pc.removeitem(80061, 200)
pc.removeitem(50025, 50)
pc.give_item2(900501, 1)
end
if sex == 3 then
return
end
end
end
if continuare == 3 then
return
end
end
end
end








