4en3rgY Romania
[Tutorial] Quest Eveniment Vara 2z8bv910
Welcome To 4EN3RGY Romania
Register now to gain access to all of our features. Once registered and logged in, you will be able to create topics, post replies to existing threads, give reputation to your fellow members, get your own private messenger, post status updates, manage your profile and so much more. If you already have an account, login here - otherwise create an account for free today!

4en3rgY Romania


Nu sunteti conectat. Conectati-va sau inregistrati-va

[Tutorial] Quest Eveniment Vara

Vezi subiectul anterior Vezi subiectul urmator In jos  Mesaj [Pagina 1 din 1]

1Válido [Tutorial] Quest Eveniment Vara la data de Sam Sept 02 2017, 19:01

AlexYs

AlexYsMembru

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
[Trebuie sa fiti inscris si conectat pentru a vedea acest link]

Cod:
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 [Trebuie sa fiti înscris şi conectat pentru a vedea această imagine]

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.

Vezi subiectul anterior Vezi subiectul urmator Sus  Mesaj [Pagina 1 din 1]

Permisiunile acestui forum:
Nu puteti raspunde la subiectele acestui forum