[Resursă] Quest eveniment de vară

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

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/questapoi ./qc nume_quest.quest

• Intraţi pe server şi scrieţi /reload q