PDA

View Full Version : Quest eveniment vara



Mihai.!?
22-12-16, 19:18
Ce face acest quest?
Cu aest quest puteti pornii evenimentul de vara sa pice inghetata la orice mob si sa duci la octavio inghetatele si el te rasplateste cu altceva


quest vara_2016 begin
state start begin
when login with game.get_event_flag("inghetata") == 1 begin
syschat("Dragi jucatori evenimentul de vara este activ!")
syschat("Aduna inghetata de la mobi si schimb-o pe un premiu")
syschat("valoros la Octavio!")
end
when kill with game.get_event_flag("optiunefva") == 4 begin
local inghetata=number(1, 500)
if inghetata==1 and game.get_event_flag("inghetata") == 1 then

pc.give_item2(30149,1)

end
end
when kill with game.get_event_flag("optiunefva") == 3 begin
local inghetata=number(1, 250)
if inghetata==1 and game.get_event_flag("inghetata") == 1 then

pc.give_item2(30149,1)

end
end
when kill with game.get_event_flag("optiunefva") == 2 begin
local inghetata=number(1, 150)
if inghetata==1 and game.get_event_flag("inghetata") == 1 then

pc.give_item2(30149,1)

end
end
when kill with game.get_event_flag("optiunefva") == 1 begin
local inghetata=number(1, 50)
if inghetata==1 and game.get_event_flag("inghetata") == 1 then

pc.give_item2(30149,1)

end
end
when 33004.chat."Event: Vara 2016" with pc.is_gm() begin
say_title("Eventul de Vara -"..pc.getname().."-")
local eventul = select("Porneste Event-ul de vara", "Opreste Eventul de vara", "Panoul de control", "Anuleaza.")
if eventul == 1 and game.get_event_flag("inghetata") == 1 then
say_title("Eventul de inghetata :")
say("Event-ul este deja pornit.")
wait()

return
else
if eventul == 1 then
say_title("Eventul de vara :")
say("Event-ul a fost pornit si automat a fost pus pe mod")
say("'Normal',daca vrei sa modifici modul fa o tura prin")
say("Panoul de control.Bafta!")
notice_all("Dragi jucatori!")
notice_all("Eventul de vara este activ!!")
game.set_event_flag("optiunefva", 3)
game.set_event_flag("inghetata", 1)
wait()
return
end
end
if eventul == 2 and game.get_event_flag("inghetata") == 0 then
say_title("Eventul de vara :")
say("Event-ul este deja oprit.")
wait()
return
else
if eventul == 2 then
say_title("Eventul de inghetata :")
say("Event-ul a fost oprit.")
notice_all("Dragi jucatori!")
notice_all("Event-ul de vara a luat sfarsit!")
game.set_event_flag("inghetata", 0)
wait()
return
end
end
if eventul == 3 then
say_title("Panou de control'Eventul de vara '")
local optiunefva = select("Inghetata rata de 1/50 'USOR'","Inghetata rata de 1/150 'Binisor'","Inghetata rata de 1/250 'Normal'","Inghetata rata de 1/500 'Greu'","Inchide")
if optiunefva == 1 then
game.set_event_flag("optiunefva", 1)
syschat("Succes!")
return
end
if optiunefva == 2 then
game.set_event_flag("optiunefva", 2)
syschat("Succes!")
return
end
if optiunefva == 5 then
return
end
if optiunefva == 3 then
syschat("Succes!")
game.set_event_flag("optiunefva", 3)
return
end
if optiunefva == 4 then
game.set_event_flag("optiunefva", 4)
syschat("Succes!")
return
end
return
end
if eventul == 4 then
return
end
end

end
end[/spoiler]

[spoiler]quest negustoare_2016 begin
state start begin
when 9003.chat."Shop Special(Puncte)" begin

say_title("Octavio!")
say("")
say("Salut "..pc.get_name().." aici poti sa")
say("schimbi inghetata pe care o castigi")
say("omorand mobii !")
say("")
say("Sansa de drop este random")
say("In acest moment ai "..pc.count_item("30149").." Inghetata cu sirop")
say("")
wait()
say("Lista de schimb:")
say("Print Desert(Rosu,PvM) : 350x Inghetata")
say("Print Desert(Albastru,PvP): 350x Inghetata")
say("Printesa Desert(Rosu,PvM): 350x Inghetata")
say("Printesa Desert(Albastru,PvP): 350x Inghetata")
say("Sigiliu:Pepsi(15zile): 800x Inghetata")
say("Amuleta Dragostei Eterne(60zile): 1600x Inghetata")
say("Cufar Misterios(O Bucata): 30x Inghetata")
say("")
say("Ce alegi sa faci?")


local canj = select ("Cumpara" , "Iesire")

if canj == 1 then


say_title("Lista de schimb:")
say("")
local elegir = select("Print Desert(Rosu,PvM)","Print Desert(Albastru,PvP)","Printesa Desert(Rosu,PvM)","Printesa Desert(Albastru,PvP)","Sigiliu:Pepsi(15zile)","Amuleta Dragostei Eterne(60 zile)","Cufar Misterios","Iesire")
local premios = {

{41546,1,30149,350},
{41547,1,30149,350},
{41548,1,30149,350},
{41549,1,30149,350},
{52022,1,30149,800},
{71145,1,30149,1600},
{50125,1,30149,30}

}

if elegir != 14 then

if pc.count_item(premios[elegir][3]) < premios[elegir][4] then

say_title("Octavio")
say("")
say("Imi pare rau, dar nu ai inghetata necesara")
say("pentru a cumpara acest item")
say("")
say("Mai ai nevoie de "..premios[elegir][4]-pc.count_item(premios[elegir][3]).." pentru al cumpara")
say("revino cand ai toata inghetata necesara")
say("")
return
end

pc.give_item2(premios[elegir][1],premios[elegir][2])
pc.remove_item(premios[elegir][3],premios[elegir][4])

end
end
end
end
end

Modificati voi codurile si ce sa ofere dupa ce strangi inghetata ;)

Tutorial instalare quest:
Salvaţi conţinutul quest-ului īntr-un fişier text numit de exemplu nume_quest.quest
Vă conectaţi la filezilla / winscp şi īntrati īn /usr/home/game/share/locale/germany/quest (depinde ce server aveţi).
Īl puneţi acolo (să fie .quest sau .lua).
Te loghezi īn FreeBSD / putty şi scrii īn felul următor: cd /usr/home/game/share/locale/germany/quest apoi ./qc nume_quest.quest
Intraţi pe server şi scrieţi /reload q
Testaţi quest-ul.