[Questuri]Servere Pvm!

Deconectat
Avatar utilizator
andreiviva
Nivel 1
Nivel 1
Mesaje: 92
Membru din: 02 Oct 2014
Localitate: Iasi
Status: Sunt bine mersi ^.^
Server Metin2: www.bugged.mt2.ro
Regat: Jinno
Mulțumiri acordate: 0
Mulțumiri primite: 0
Contact:

[Questuri]Servere Pvm!

Mesajde andreiviva » 20 Mar 2015, 09:13

Daca va ajuta am si eu cateva questuri pvm care le folosesc pe serverul meu si m-am gandit sa vi le dau si voua!
Questuri:

Quest activare rate

Cod: Selectaţi tot

quest activare_rate begin
   state start begin
      when letter with pc.is_gm() begin
         send_letter("Rate:250x")
      end
      when info or button with pc.is_gm() begin
         command("priv_empire 0 1 250 10000")
         command("priv_empire 0 2 100 10000")
         command("priv_empire 0 3 100 10000")
         command("priv_empire 0 4 250 10000")
         send_letter("Rate:250x")
      end
   end
end

Quest stergere iteme

Cod: Selectaţi tot

quest clean_objects begin
    state start begin
      when 20092.chat begin
         say( "Esti sigur ca vrei sa stergi acest obiect?" )
         say_item( item.name , item.vnum , "" )
         say ("")      
         say_reward( "Odata ce obiectul va fi sters nu il vei," )
       say_reward( "mai putea recupera" )
         say("")
         s = select("Da","Nu")
         if s == 1 then
            pc.remove_item(item.vnum,item.count)
         else
            say("Ok, vino inapoi cand te-ai hotarat.")
         say("")
         end
      end
   end
end

Quest piatra curcubeu

Cod: Selectaţi tot

    quest piatracurcubeu begin
        state start begin
                when 50512.use begin
                     
                    say_title("Piatra curcubeu:")
                    say("Vrei sa-ti ridici toate abilitatile la")
                    say("gradul perfect?")
                    say("Selecteaza skilurile care vrei sa le")
                    say("dobandesti.")
                     
                    if pc.job ==0 then
                    say("Selecteaza tipul abilitatilor detinute:.")
                     
                    local s=select("Corp","Mental")
                     
                    if s==1 then
                    pc.set_skill_group(1)
                    pc.set_skill_level(1 ,59)
                    pc.set_skill_level(2 ,59)
                    pc.set_skill_level(3 ,59)
                    pc.set_skill_level(4 ,59)
                    pc.set_skill_level(5 ,59)
                    pc.remove_item(50512, 1)
                    say("Toate magiile ti-au fost facute perfect!")
                    end
                     
                    if s==2 then               
                    pc.set_skill_group(2)
                    pc.set_skill_level(16 ,59)
                    pc.set_skill_level(17 ,59)
                    pc.set_skill_level(18 ,59)
                    pc.set_skill_level(19 ,59)
                    pc.set_skill_level(20 ,59)
                    pc.remove_item(50512, 1)
                    say("Toate magiile ti-au fost facute perfect!")
                    end
                     
                    elseif pc.job ==1 then
                    say("Selecteaza tipul abilitatilor detinute:.")
                     
                    local s=select("Lupta aproape","Lupta cu arcul")
                     
                    if s==1 then               
                    pc.set_skill_group(3)
                    pc.set_skill_level(31 ,59)
                    pc.set_skill_level(32 ,59)
                    pc.set_skill_level(33 ,59)
                    pc.set_skill_level(34 ,59)
                    pc.set_skill_level(35 ,59)
                    pc.set_skill_level(36 ,59)
                    pc.remove_item(50512, 1)
                    say("Toate magiile ti-au fost facute perfect!")
                    end
                     
                    if s==2 then
                    pc.set_skill_group(4)
                    pc.set_skill_level(46 ,59)
                    pc.set_skill_level(47 ,59)
                    pc.set_skill_level(48 ,59)
                    pc.set_skill_level(49 ,59)
                    pc.set_skill_level(50 ,59)
                    pc.set_skill_level(51 ,59)
                    pc.remove_item(50512, 1)
                    say("Toate magiile ti-au fost facute perfect!")
                    end
                     
                    elseif pc.job ==2 then
                    say("Selecteaza tipul abilitatilor detinute:.")
                    local s=select("Magie neagra","Arme magice")
                     
                    if s==1 then
                    pc.set_skill_group(5)
                    pc.set_skill_level(76 ,59)
                    pc.set_skill_level(77 ,59)
                    pc.set_skill_level(78 ,59)
                    pc.set_skill_level(79 ,59)
                    pc.set_skill_level(80 ,59)
                    pc.set_skill_level(81, 59)
                    pc.remove_item(50512, 1)
                    say("Toate magiile ti-au fost facute perfect!")
                    end
                     
                    if s==2 then
                    --Waffe
                    pc.set_skill_group(6)
                    pc.set_skill_level(61 ,59)
                    pc.set_skill_level(62 ,59)
                    pc.set_skill_level(63 ,59)
                    pc.set_skill_level(64 ,59)
                    pc.set_skill_level(65 ,59)
                    pc.set_skill_level(66 ,59)
                    pc.remove_item(50512, 1)
                    say("Toate magiile ti-au fost facute perfect!")
                    end
                     
                    elseif pc.job ==3 then
                    say("Selecteaza tipul abilitatilor detinute:.")
                    local s=select("Vindecare","Dragon")
                     
                    if s==1 then
                    pc.set_skill_group(7)
                    pc.set_skill_level(106 ,59)
                    pc.set_skill_level(107 ,59)
                    pc.set_skill_level(108 ,59)
                    pc.set_skill_level(109 ,59)
                    pc.set_skill_level(110 ,59)
                    pc.set_skill_level(111 ,59)
                    pc.remove_item(50512, 1)
                    say("Toate magiile ti-au fost facute perfect!")
                    end
                     
                    if s==2 then
                    pc.set_skill_group(8)
                    pc.set_skill_level(91 ,59)
                    pc.set_skill_level(92 ,59)
                    pc.set_skill_level(93 ,59)
                    pc.set_skill_level(94 ,59)
                    pc.set_skill_level(95 ,59)
                    pc.set_skill_level(96 ,59)
                    pc.remove_item(50512, 1)
                    say("Toate magiile ti-au fost facute perfect!")
                    end
                end
            end
        end
    end

Quest fruct(grad)

Cod: Selectaţi tot

quest frucht begin
   state start begin
      when 71107.use begin
         if get_time() > pc.getqf("frucht") then
         pc.change_alignment(5000)
         pc.setqf("frucht", get_time()+ 3600)
         notice("Sie haben 5000 Rang erhalten.")
         pc.remove_item("71107", 1)
         else
         notice("Sie müssen zwischen jeder Frucht 1 Stunden warten.")
         end
         
      end
   end
end

Quest inel teleportare

Cod: Selectaţi tot

    quest warpring begin
       state start begin
          when 70007.use begin
             local x
             local y
             local t
             local e = pc.get_empire()
             say_title("Teleporter:")
             say("Încotro vrei sã mergi strãine?")
             local s = select("Map1", "Map2", "Valea Orcilor", "Deºert", "Sohan", "Tara de foc", "Urmãtoarele", "Închide")
             if s==7 then
                say_title("Teleporter:")
                say("Încotro vrei sã mergi strãine?")
                local p = select("Turnul Demonilor", "V1", "Pãdurea Fantomelor", "Pãdurea Roºie", "Tara Gigantilor", "Grota Exilului", "Închide")
                if p==1 then
                   x="590400"
                   y="110500"
                elseif p==2 then
                   x="91900"
                   y="525400"
                elseif p==3 then
                   x="289000"
                   y="5800"
                elseif p==4 then
                   say_title("Teleporter")
                   say("Încotro vrei sã mergi strãine?")
                   t = select("Început", "Sfârºit", "Închide")
                   if t==1 then
                      x="1119900"
                      y="70800"
                   elseif t==2 then
                      x="1119200"
                      y="7000"
                   end
                elseif p==5 then
                   x="828100"
                   y="763400"
                elseif p==6 then
                   x="284200"
                   y="809600"
                end
             elseif s==1 then
                say_title("Teleporter")
                say("Încotro vrei sã mergi strãine?")
                t = select("Regatul Roºu", "Regatul Galben", "Regatul Albastru","Închide")
                if t==1 then
                   x="473900"
                   y="954600"
                elseif t==2 then
                   x="63200"
                   y="166700"
                elseif t==3 then
                   x="959600"
                   y="269700"
                end
             elseif s==2 then
                say_title("Teleporter:")
                say("Încotro vrei sã mergi strãine?")
                t = select("Regatul Roºu", "Regatul Galben", "Regatul Albastru", "Închide")
                if t==1 then
                   x="352300"
                   y="882700"
                elseif t==2 then
                   x="145700"
                   y="239800"
                elseif t==3 then
                   x="863800"
                   y="246000"
                end
             elseif s==3 then
                say_title("Teleporter:")
                say("Încotro vrei sã mergi strãine?")
                t = select("Început", "Centru", "Arahani", "Închide")
                if t==1 then
                   if e==1 then
                      x="402100"
                      y="673900"                 
                   elseif e==2 then
                      x="270400"
                      y="739900"
                   elseif e==3 then
                      x="321300"
                      y="808000"
                   end
                elseif t==2 then
                   x="332700"
                   y="745600"
                elseif t==3 then
                   x="282800"
                   y="792800"
                end
             elseif s==4 then
                say_title("Teleporter:")
                say("Încotro vrei sã mergi strãine?")
                t = select("Inceput", "Sfârºit", "Închide")
                if t==1 then
                   if e==1 then
                      x="217800"
                      y="627200"                 
                   elseif e==2 then
                      x="221900"
                      y="502700"
                   elseif e==3 then
                      x="344000"
                      y="502500"
                   end
                elseif t==2 then
                   x="296300"
                   y="547500"
                end
             elseif s==5 then
                say_title("Teleporter")
                say("Încotro vrei sã mergi strãine?")
                t = select("Început", "Mijloc", "Închide")
                if t==1 then
                   if e==1 then
                      x="434200"
                      y="290600"                 
                   elseif e==2 then
                      x="375200"
                      y="174900"
                   elseif e==3 then
                      x="491800"
                      y="173600"
                   end
                elseif t==2 then
                   x="436200"
                   y="215300"
                end         
             elseif s==6 then
                say_title("Teleporter:")
                say("Încotro vrei sã mergi strãine?")
                t = select("Început", "Închide")
                if t==1 then
                   if e==1 then
                      x="599400"
                      y="756300"                 
                   elseif e==2 then
                      x="597800"
                      y="622200"
                   elseif e==3 then
                      x="730700"
                      y="689800"
                   end
                elseif t==2 then
                   return
                end
             end         
             if s!=8 or p!= 7 then
                pc.warp(x, y)
             end
          end
       end
    end

quest 500 duele

Cod: Selectaţi tot

    quest duele begin
       state start begin
           when login with pc.level >= 95 begin
               set_state(player_kill)
           end
       end

       state player_kill begin
           when letter begin
               send_letter("Duele")
           end

           when button or info begin
               say_title("Experti in duele!")
            say("")
               say("Crezi ca esti cel mai bun din regat ?")
               say("Demonstreaza!")
               say("Respecta regulile si fi corect")
            say("")
            say("")
            say("")
               say_reward("Omoara 500 jucatori in duel")
            say_reward("Si iti vei primi recompensa!")
               say("")
               pc.setqf("state", 500)
               q.set_counter("Dueluri ramase:", 500)
            set_state (kill)
           end
       end

       state kill begin
         when letter begin
            send_letter("Duel")
         end
         
         when button or info begin
               say("Crezi ca esti cel mai bun din regat ?")
               say("Demonstreaza!")
               say("Respecta regulile si fi corect")
            say_reward("Dueluri ramase: "..pc.getqf("state").." ")
         end


           when kill begin
               if npc.is_pc() then
               local count = pc.getqf("state") - 1
               if count <= 500 then
                   pc.setqf("state", count)
                   q.set_counter("Dueluri restante:", count)
               end
               if count == 0 then
                   say_title("BRAVO ai reusit!")
                   say("Ai omorat 500 jucatori in duel!")
                   say("Recompesa:")
                   say_reward("5% impotriva oricarei rase.")
                   affect.add_collect(apply.ATT_BONUS_TO_WARRIOR, 5, 60*60*24*365*60)
                   affect.add_collect(apply.ATT_BONUS_TO_ASSASSIN, 5, 60*60*24*365*60)
                   affect.add_collect(apply.ATT_BONUS_TO_SURA, 5, 60*60*24*365*60)
                   affect.add_collect(apply.ATT_BONUS_TO_SHAMAN, 5, 60*60*24*365*60)
               notice_all("".. pc.get_name() .." a castigat 500 de duele")
                   clear_letter()
                   set_state(__COMPLETE__)

               end
           end
       end
       end

       state __COMPLETE__ begin
       end
    end

Quest teleportare jucator la alt jucator

Cod: Selectaţi tot

    quest teleportarea_jucatorului begin
    state start begin
    when 40004.use begin
      local ramas = pc.getqf("next_time") - get_time()
      local ramas_min = ramas / 60
      if get_time() < pc.getqf("next_time")then
        say_title("Teleportarea jucatorului:")
        say("Trebuie sa mai astepti "..ramas_min.." minute[ENTER]pentru a te putea teleporta din nou!")
      else
        say_title("Teleportarea jucatorului:")
        say("Acest obiect iti permite sa te teleportezi la un[ENTER]jucator.")
        say_reward("Vrei sa te teleportezi?")
        local a = select("Da","Nu am timp!")
        if a == 1 then
          say_title("Teleportarea jucatorului:")
          say_reward("Scrie numele jucatorului la care vrei sa te[ENTER]teleportezi:")
          local name = input()
          if pc.get_level() < 35 then
            say_title("Teleportarea jucatorului:")
            say("Poti folosi acest item decat dupa nivelul 35!")
          else
            pc.teleport(name)
            pc.setqf("next_time", get_time() + 3600)
          end
        end   
      end
    end
    end
    end

Quest boss kill

Cod: Selectaţi tot

    quest mob_kill_notice begin
       state start begin
          when 691.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 300 )
             chat ("Gradul tau a crescut cu 300 de puncte!")
             notice_all ( pc.getname() , " l-a omorat pe Seful Orc din Valea Orcilor!" )
          end
         
          when 692.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 900 )
             chat ("Gradul tau a crescut cu 900 de puncte!")
             notice_all ( pc.getname() , " l-a omorat pe Seful Orc de elita din Valea Orcilor!" )
          end
         
          when 693.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 1500 )
             chat ("Gradul tau a crescut cu 1500 de puncte!")
             notice_all ( pc.getname() , " l-a omorat pe Seful Orc ucigator din Valea Orcilor!" )
          end
         
          when 791.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 500 )
             pc . give_item2 ( 50513 )
             chat ("Ai primit 1 piatra spiritului si gradul tau a crescut cu 500 de puncte!")
             notice_all ( pc.getname() , " l-a omorat pe Stapânul Esotericilor din Templul Întunecat!" )
          end
         
          when 792.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 900 )
             chat ("Gradul tau a crescut cu 900 de puncte!")
             notice_all ( pc.getname() , " l-a omorat pe Stapânul Esotericilor Demonizat din Templul Întunecat!" )
          end
         
          when 793.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 900 )
             chat ("Gradul tau a crescut cu 900 de puncte!")
             notice_all ( pc.getname() , "l-a omorât pe Stapanul Esotericilor Demonizat din Templul Întunecat!" )
          end
         
          when 794.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 1500 )
             chat ("Gradul tau a crescut cu 1500 de puncte!")
             notice_all ( pc.getname() , " l-a omorat pe Stapânul Esotericilor din Templul Întunecat!" )
          end
         
          when 795.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 8000 )
             chat ("Gradul tau a crescut cu 8000 de puncte!")
             notice_all ( pc.getname() , " l-a omorat pe Stapânul Esotercilor Demonizat EXTRA" )
          end
         
          when 1306.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 1500 )
             chat ("Gradul tau a crescut cu 1500 de puncte!")
             notice_all ( pc.getname() , " l-a omorat pe Fantoma Tigrului Galben !" )
          end
         
          when 1307.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 8000 )
             chat ("Gradul tau a crescut cu 8000 de puncte!")
             notice_all ( pc.getname() , " l-a omorat pe Fantoma Tigrului Galben EXTRA !" )
          end
         
          when 1091.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 600 )
             chat ("Gradul tau a crescut cu 600 de puncte!")
             notice_all ( pc.getname() , " l-a omorat pe Regele Demon!" )
          end
         
          when 1092.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 800 )
             chat ("Gradul tau a crescut cu 800 de puncte!")
             notice_all ( pc.getname() , "l-a omorat pe Regele Demon Mândru!" )
          end
         
          when 1093.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 1000 )
             chat ("Gradul tau a crescut cu 1000 de puncte!")
             notice_all ( pc.getname() , " l-a omorat pe Îngerul cu Coasa!" )
          end
         
          when 1094.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 1000 )
             chat ("Gradul tau a crescut cu 1000 de puncte!")
             notice_all ( pc.getname() , " l-a omorat pe Regele Demon Mândru EXTRA!" )
          end
         
          when 1095.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 8000 )
             chat ("Gradul tau a crescut cu 8000 de puncte!")
             notice_all ( pc.getname() , " l-a omorat pe Îngerul cu Coasa EXTRA!" )
          end
         
          when 993.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 1500 )
             chat ("Gradul tau a crescut cu 1500 de puncte!")
             notice_all ( pc.getname() , " l-a omorat pe Regele gazda al ciumei!" )
          end
         
          when 1901.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 1500 )
             chat ("Gradul tau a crescut cu 1500 de puncte!")
             notice_all ( pc.getname() , " a omorat-o pe Vulpea cu 9 cozi!" )
          end
         
          when 1902.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 2000 )
             chat ("Gradul tau a crescut cu 2000 de puncte!")
             notice_all ( pc.getname() , " a omorat-o pe Vulpea cu 9 cozi 2!" )
          end
         
          when 1903.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 3000 )
             chat ("Gradul tau a crescut cu 3000 de puncte!!")
             notice_all ( pc.getname() , " a omorât-o pe Vulpea cu 9 cozi EXTRA!" )
          end
         
          when 2091.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 1500 )
             chat ("Gradul tau a crescut cu 1500 de puncte!")
             notice_all ( pc.getname() , " a omorat-o pe Regina Paianjen!" )
          end
         
          when 2092.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 3000 )
             chat ("Gradul tau a crescut cu 3000 de puncte!")
             notice_all ( pc.getname() , " l-a omorat pe Regele Paianjen!" )
          end
         
          when 2093.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 8000 )
             chat ("Gradul tau a crescut cu 8000 de puncte!")
             notice_all ( pc.getname() , " a omorat-o pe Regina Pianjen EXTRA!" )
          end
         
          when 2191.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 2000 )
             chat ("Gradul tau a crescut cu 2000 de puncte!")
             notice_all ( pc.getname() , " a omorat-o pe Testoasa Uriasa de Desert!" )
          end
         
          when 2192.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 8000 )
             chat ("Gradul tau a crescut cu 8000 de puncte!")
             notice_all ( pc.getname() , " a omorat-o pre Testoasa Uriasa de Desert EXTRA!" )
          end
         
          when 2491.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 8000 )
             chat ("Gradul tau a crescut cu 8000 de puncte!")
             notice_all ( pc.getname() , " l-a omorat pe Liderul Seatou Levhiatan!" )
          end
         
          when 2492.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 8000 )
             chat ("Gradul tau a crescut cu 8000 de puncte!")
             notice_all ( pc.getname() , " l-a omorat pe Liderul Seatou Levhiatan 2 !" )
          end
         
          when 2493.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 10000 )
             chat ("Gradul tau a crescut cu 10000 de puncte!")
             notice_all ( pc.getname() , " l-a omorat pe Beran-Setaou!" )
          end
         
          when 5002.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 2000 )
             chat ("Gradul tau a crescut cu 2000 de puncte!")
             notice_all ( pc.getname() , " l-a omorat pe Hae-Tae!" )
          end
         
          when 2206.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 1500 )
             chat ("Gradul tau a crescut cu 1500 de puncte!")
             notice_all ( pc.getname() , " l-a omorat pe Regele de Foc!" )
          end
         
          when 2207.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 8000 )
             chat ("Gradul tau a crescut cu 8000 de puncte!")
             notice_all ( pc.getname() , " l-a omorat pe Regele de Foc 2!" )
          end
         
          when 2291.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 8000 )
             chat ("Gradul tau a crescut cu 8000 de puncte!")
             notice_all ( pc.getname() , " l-a omorat pe Dragonul Rosu!" )
          end
         
          when 2306.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 3000 )
             chat ("Gradul tau a crescut cu 3000 de puncte!")
             notice_all ( pc.getname() , " l-a omorat pe Copacul Gigant!" )
          end
         
          when 2307.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 8000 )
             chat ("Gradul tau a crescut cu 8000 de puncte!")
             notice_all ( pc.getname() , " l-a omorat pe Copacul Batrân!" )
          end

                  when 1191.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 3000 )
             chat ("Gradul tau a crescut cu 3000 de puncte!")
             notice_all ( pc.getname() , " a omorat pe Vrajitoarea de gheata!" )
          end
       
          when 1403.kill begin
             if pc.is_gm() then
             return
             end
             pc . change_alignment ( 300 )
             chat ("Gradul tau a crescut cu 300 de puncte!")
             notice_all ( pc.getname() , " l-a omorat pe Gigantul Milenar!" )
          end
       end
    end

Quest Loterie

Cod: Selectaţi tot

quest loterie begin
    state start begin
   when 20359.chat."Loteria Metin2BuGGed" begin
   if 600 > get_global_time() - pc . getqf ( "loterie_timp" ) then
      if pc.is_gm() then
         say_title ( "LOterie:" )
         say ("Urmatoarea loterie este peste 10 minute!")
         say("")
         say_reward("Daca esti GM nu trebuie sa mai astepti!")
         local gm = select("Nu vreau sa astept, sunt grabit" , "Am destul timp, pot astepta")
         if gm == 1 then
            say_title ( "Loterie:" )
            say("Timpul de asteptare a fost oprit!")
            pc.setqf("loterie_timp", 0)
         end
      else
         say_title ( "Femeia batrana:" )
         say ("Urmatoarea loterie este peste 10 minute!")
      end
   else
      say_title ( "Loterie:" )
      say ("Bun venit la loteria Metin2BuGGed. Daca alegi numarul[ENTER]corect poti castiga 10.000.000yang")
      local bilet = select ( "Da","Nu cred ca am noroc!" )
      if bilet == 1 then
         if pc . gold >= 500000 then
            pc . changegold ( - 500000 )
            local numar
            repeat
               say_title ( "Loterie:" )
               say ( "Alegeti un numar de la 1 la 20!" )
               numar = tonumber(input())
               if numar == nil then
                  say_reward("Trebuie sa introduceti un numar!")
                  say("")
               else
                  if numar <= 0 or numar > 20 then
                     say_reward("Numarul trebuie sa fie intre 1 si 20!")
                     say("")
                  else
                     break
                  end
               end
            until false
            say_title ( "Loterie:" )
            say("Ati introdus numarul " .. numar )
            wait ()
            local random_number = tostring(number(1,20))
            say_title ( "Femeia batrana:" )
            say("Numarul extras este: " .. random_number)
            if random_number == tostring(numar) then
               say ("Felicitari! Ati castigat 10.000.000. yang!")
               pc.changegold ( 10000000 )
            else
               say ("Se pare ca nu sunteti destul de norocos..")
            end
         else
            say_title ( "Loterie:" )
            say ("Nu ai suficienti bani!")
         end
         pc.setqf("loterie_timp" , get_global_time())
         return
      end
   end
   end
   end
end

Quest marmura

Cod: Selectaţi tot

quest marmura begin
   state start begin
      when 9006.chat."Vrei sã cumperi marmurã? " begin
         
         say_title("Femeia bãtrânã ")
         say("Am deschis un nou magazin în regat,deoarece ")
         say("eu sunt bãtrânã ºi nu am posibilitãþi sa fac bani. ")
         say("Îþi pot oferi 5 Marmure binecuvântate, ")
         say("constra sumei de 2.000.000 yang. ")
            local sedatu=select("Cumpãrã marmurã. ", "Ma-m rãzgândit. ")
               
               if sedatu == 1 then
               if pc . gold >= 2000000 then
               pc.change_money(-2000000)
               pc.give_item2("70024",5)
               else
                  return
               end
         end   
      end
   end
end

Quest event mingi

Cod: Selectaţi tot

quest mingi begin
    state start begin
        when login begin
            if game.get_event_flag("mondlicht_event") == 1 then
                notice("[Eveniment]Mingi de Fotbal: Activ")
            end
        end
        when kill begin
            local m_ind = pc.get_map_index()
            if npc.is_pc() then
            else
                if m_ind == 1 or m_ind == 3 or m_ind == 21 or m_ind == 23 or m_ind == 41 or m_ind == 43 and pc.get_level() <= 100 then                    if game.get_event_flag("mondlicht_event") == 1 then
                        local chance = number(1, 100)
                        local chance_max = game.get_event_flag("mond_drop_chance")
                        if chance <= chance_max then
                            pc.give_item2(50096)                        
                        else
                        end
                    else
                    end
                elseif m_ind == 63 or m_ind == 64 and pc.get_level() <= 100  then
                    if game.get_event_flag("mondlicht_event") == 1 then
                        local chance = number(1, 100)
                        local chance_max = game.get_event_flag("mond_drop_chance")
                        if chance <= chance_max then
                            pc.give_item2(50096)                           
                        else
                        end
                    else
                    end
                elseif m_ind == 65 or m_ind == 61 or m_ind == 104 and pc.get_level() <= 100  then                    if game.get_event_flag("mondlicht_event") == 1 then
                        local chance = number(1, 100)
                        local chance_max = game.get_event_flag("mond_drop_chance")
                        if chance <= chance_max then
                            pc.give_item2(50096)                        
                        else
                        end
                    else
                    end
                elseif m_ind == 62 or m_ind == 71 or m_ind == 67 and pc.get_level() <= 100  then                    if game.get_event_flag("mondlicht_event") == 1 then
                        local chance = number(1, 100)
                        local chance_max = game.get_event_flag("mond_drop_chance")
                        if chance <= chance_max then
                            pc.give_item2(50096)                        
                        else
                        end
                    else
                    end
                elseif m_ind == 68 or m_ind == 72 or m_ind == 73 or m_ind == 66 and pc.get_level() <= 100  then                    if game.get_event_flag("mondlicht_event") == 1 then
                        local chance = number(1, 100)
                        local chance_max = game.get_event_flag("mond_drop_chance")
                        if chance <= chance_max then
                            pc.give_item2(50096)                        
                        else
                        end
                    else
                    end
                elseif m_ind == 103 or m_ind == 70 or m_imd == 69 and pc.get_level() <= 100  then                    if game.get_event_flag("mondlicht_event") == 1 then
                        local chance = number(1, 100)
                        local chance_max = game.get_event_flag("mond_drop_chance")
                        if chance <= chance_max then
                            pc.give_item2(50096)                        
                        else
                        end
                    else
                    end
                end
            end
        end
        when 9004.chat."<GM> Eveniment Mingi de Fotbal" with pc.is_gm() begin
            if game.get_event_flag("mondlicht_event") == 1 then
                say_title("Administrare Eveniment:")
                say("")
                say("[Eveniment]Mingi de Fotbal: Activ")
                say("")
                say_reward("Event Beenden?")
                local s=select("Da", "Nu")
                if s==1 then
                    say_title("Administrare Eveniment:")
                    say("")
                    say("Evenimentul a luat sfârsit .")
                    say("~ Pe data viitoare !")
                    game.set_event_flag("mondlicht_event", 0)
                    char_log(0, "Mondlicht_event_end from" ..pc.get_name())
                    notice_all("[Eveniment]Mingi de Fotbal: Terminat")
                elseif s==2 then
                    say_title("Administrare Eveniment:")
                    say("")
                    say("~ Pe curând !")
                end
            else
                say_title("Administrare Eveniment:")
                say("")
                say("Mingi de Fotbal : ~ Închis ")
                say("")
                say_reward("Start Eveniment?")
                local s=select("Da", "Nu")
                if s==1 then
                    say_title("Administrare Eveniment:")
                    say("")
                    say("[Eveniment]Mingi de Fotbal: A inceput")
                    game.set_event_flag("mondlicht_event", 1)
                    char_log(0, "Mondlicht_event_start from" ..pc.get_name())
                    notice_all("[Eveniment]Mingi de Fotbal: A inceput!")
                elseif s==2 then
                    say_title("Administrare Eveniment:")
                    say("")
                    say("~ Pe curând !")
                end
            end
        end
when 9004.chat."<GM> Dropul Mingi" with pc.is_gm() begin
            if pc.get_name() == "[OwN]Laur" or pc.get_name() == "[OwN]Tannia" or pc.get_name() == "" then
                say_title("Administrare Eveniment:")
                say("")
                say("Cat de mult sã fie dropul acestora ?")
                say("")
                say_reward("Între 1-100")
                say("")
                local new_chance = tonumber(input())
                if new_chance < 0 or new_chance > 100  then                    say_title("Administrare Eveniment:")
                    say("")
                    say("Introducere incorectã ~")
                else
                    char_log(0, "Mondlicht_event_chance from" ..pc.get_name().. " to " ..new_chance.. "%")
                    game.set_event_flag("mond_drop_chance", new_chance)
                    say_title("Administrare Eveniment:")
                    say("")
                    say("Dropul actual " ..new_chance.. " setat.")
                    say("~ Pe curând !")
                end
            else
                say_title("Administrare Eveniment:")
                say("")
                say("Nu ai dreptul pentru a executa evenimentul .")
            end
        end
    end
end

Quest inel Gm (poti da mute si inca ceva)

Cod: Selectaţi tot

quest vip_item begin
           state start begin
               when 40003.use with pc.is_gm() or pc.get_gm_level() >= 2 begin
                      
                   say_title ("Salut, ".. pc.get_name() ..".")
                   say("")
                               say("Acesta este Inelul Lui Thor, el poate sa: ")
                               say(" 1)Sa dea mute ")
                               say(" 2)Sa scoata mute-ul")
                               say(" 3)Sa te teleporteze pe tine sau un player la tine. ")
                   say("")
                               local a = select ( "Blocheaza Chatul Unui Jucator" , "Deblocheaza Chatul" , "Teleporteaza-te", "Transfera un Player", "Iesire" )
                              
                   if a == 1 then
                               say("Te rog sa scrii numele celui caruia vrei sa ii dai mute.")
                               say("")
                               say("Atentie! Daca abuezi de acest item ,poti fi scos din functie!")
                   say("Fi sigur ca scrii numele jucatorului corect!")
                               local cblock = input()
                   say("Acesta e numele playerului caruia doresti sa ii dai mute???")
                   say_title(" Name : ".. cblock .." ")
                   local m = select ( "Da", "Nu")
                   if m == 1 then
                               say("Timp in secunde!")
                               say("Exemple :")
                               say("5 Min. = 300s")
                               say("10 Min. = 600s")
                               say("1 Ora = 3600s")
                           say("Scrie numarul de secunde dorite!")
                           local cbtime = input()
                           command("block_chat ".. cblock .." ".. cbtime .."")
                               notice_all("Jucatorul ".. cblock .." a primit mute pentru ".. cbtime .." secunde!")
                              notice_all("Aveti grija la limbaj si la comportament!")
                   end
                   if m == 2 then
                   return
                   end
                               end
                              
                           if a == 2 then
                              say("Scrie numele playerului caruia doresti sa ii scoti mute-ul.")
                      say("Poti sa il verifici in lista celor ce au mute.")
                      say("cu aceasta comanda : block_chat_list ")
                              local cublock = input()
                              command("block_chat ".. cublock .." 0")
                              notice_all("Jucatorul ".. cublock .." nu mai are mute!")
                    notice_all("Mute-ul i-a fost scos!")
                    notice_all("Sa nu se mai repete greseala facuta!")
                              end
                              
                      if a == 3 then
                      say("Te poti teleporta langa playerii care doresti tu.")
                      say("Scrie numele player-ului langa care doresti sa te teleportezi.")
                      say("Atentie! Cateodata, poti fi teleportat putin mai departe de acesta.")
                 say("Asa ca te rog sa mai folosesti odata aceasta optiune daca intampini erori")
                   local t = select ("Teleporteaza-ma!", "Nu, merci!")
                   if t == 1 then
                   say("Scrie numele playerului :")
                   local wtp = input()
                   command("warp ".. wtp .."")
                   end
                   if t == 2 then
                   return
                       end   
                      end
              
                      if a == 4 then
                      say("Poti sa transferi playerii langa tine acum.")
                      say("Trebuie doar sa introduci numele playerului aici :)")
                      say("Vrei sa aduci un player langa tine? :D")
                   local r = select ("Transfera!", "Nu, merci!")
                   if r == 1 then
                   say("Scrie numele playerului aici :")
                   local ttp = input()
                   command("transfer ".. ttp .." ")
                   end
                   if r == 2 then
                   return
                   end              
                       end

                      if a == 5 then
                      return
                      end

       end
       end
       end

Quest premium mingi

Cod: Selectaţi tot

quest christmas_tree1 begin
        state start begin
       when 20017.click begin
           say_title("Fotbalist:")
          say("")
           local s = select("Mingi", "Informatii..", "De unde pot lua mingi", "Inchide")
           if s==1 then
          -- Socke aufhängen:
             if pc.level >= 30 then
                if pc.getqf("put_sock_count") >= 5000 then
                say("Dispui de 5000 de mingi?")
                say("in caz contrar..imi pare rau!")
                else
                if pc.countitem("50096") >= 1 then
                   pc.setqf("put_sock_count", pc.getqf("put_sock_count") + 1)
                   pc.removeitem("50096", 5)
                   say("Ai atasat o minge corespunzator")
                   say("Inchide ochii pentru 3 secunde,")
                   say("si pune-ti o dorinta")
                   say("[DELAY value;400]. . .[/DELAY]")
                   say("Dorinta ta e indeplinita?")
                   say("")
                   say("Numarul maxim de mingi pe care")
                   say("le poti aduce este : 5000")

                   pc.give_item_from_special_item_group("50127")
                else
                   say("Nu ai adus mingi? Foarte rau..")
                end
                end
             else
                say("Salut micutule..")
                say("Ce mai faci?")
                say("Vad ca inca nu esti matur")
                say("Ai nevoie de nivel 30 minim")
                say("revino cand ai nivel 30...")
                say("In orice caz,iti urez:")
                say_title("O zi  Fericita!")
             end
           elseif s==2 then
                -- Informationen über den Baum:
                say("Ai nevoie de INFO ...")
                say("in privinta fotbalistului?")
                say("Ok,asculta-ma")
                say("Lumea spune ca el nu lipseste ")
                say("de pe teren")
                say("la campionatul mondial.")
               
           elseif s==3 then
                -- Wo bekommt man socken?:
                say("Ho Ho Ho")
                say("Cred ca vrei sa stii de ce sunt aici")
                say("Stai linistit micutule,am sa-ti explic:")
                say("")
                say("Te duci intr-o mapa cu moobi")
                say("apropiati de nivelul tau.")
                say("Omori cat de multi poti,")
                say("strangi mingi si le aduci la mine.")
                say("Eu drept rasplata te voi recompensa")
                say("cu premii pe masura")
                say("cadouri,arme,armuri..iteme in general.")
                say("")
                say("Sper ca am fost destul de clar.")
                say_title("Echipa Metin2Marghita iti ureaza o zi frumoasa!")

           elseif s==4 then
             return
          end
       end
        end
    end

Quest schimba rasa

Cod: Selectaţi tot

quest schimba_raza begin
state start begin

when 40003.use begin
say_title("Schimba rasa !")
say("Salut tinere ! ")
say("rasa actuala ?")
say("")
say_reward("ATENTIE !!!")
say_reward("Odata ce ti-ai schimbat rasa nu vei mai putea")
say_reward("reveni la cea veche decat daca vei folosi un")
say_reward("nou Inel !")
say("")
wait ()
say_title("Schimba rasa !")
say_reward("Esti sigur ca vrei sa-ti schimbi rasa caracterului?")
say("")
local main_set = select ("Da","Nu")

if main_set == 2 then
return
end

if main_set == 1 then
say_title("Schimba Rasa")
say("Ce rasa ai vrea sa aiba")
say("caracterul tau ?")
say("")
local schimbarasa = select ("Razboinic","Ninja","Sura","Saman","Iesire")

if schimbarasa == 1 then
say_title("Schimba Rasa")
say("Ce sex vrei sa aiba caracterul ?")
say("")
local sexwar = select ("Masculin","Feminin","Iesire")

if sexwar == 1 then
pc.polymorph("4")
pc.change_sex()

elseif sexwar == 2 then
pc.polymorph("4")
pc.change_sex()
pc.polymorph("20032")
pc.polymorph("1")
pc.change_sex()
pc.polymorph("20032")

elseif sexwar == 3 then
return
end
elseif schimbarasa == 2 then
say_title("Schimba Rasa")
say("Ce sex vrei sa aiba caracterul ?")
say("")
local sexninja = select ("Masculin","Feminin","Iesire")

if sexninja == 2 then
pc.polymorph("5")
pc.change_sex()

elseif sexninja == 1 then
pc.polymorph("5")
pc.change_sex()
pc.polymorph("20032")
pc.polymorph("1")
pc.change_sex()
pc.polymorph("20032")

elseif sexninja == 3 then
return
end

elseif schimbarasa == 3 then
say_title("Schimba Rasa")
say("Ce sex vrei sa aiba caracterul ?")
say("")
local sexsura = select ("Masculin","Feminin","Iesire")
if sexsura == 1 then
pc.polymorph("6")
pc.change_sex()

elseif sexsura == 2 then
pc.polymorph("6")
pc.change_sex()
pc.polymorph("20032")
pc.polymorph("1")
pc.change_sex()
pc.polymorph("20032")

elseif sexsura == 3 then
return
end

elseif schimbarasa == 4 then
say_title("Schimba Rasa")
say("Ce sex vrei sa aiba caracterul ?")
say("")
local sexshamy = select ("Masculin","Feminin","Iesire")
if sexshamy == 2 then
pc.polymorph("7")
pc.change_sex()

elseif sexshamy == 1 then
pc.polymorph("7")
pc.change_sex()
pc.polymorph("20032")
pc.polymorph("1")
pc.change_sex()
pc.polymorph("20032")

elseif sexshamy == 3 then
return
end

elseif schimbarasa == 5 then
return
end
pc.removeitem(40003, 1)
end
end
end
end

Quest top10 pvp

Cod: Selectaţi tot

    quest rank_list begin
        state start begin
           when 20094.chat."Top 10" begin
                local jucator = mysql_query("SELECT * FROM player.player WHERE player.name NOT LIKE '[%]%' ORDER BY player.level DESC, player.exp DESC","root","rootpw","player","rootip")
                say_title("Top 10 al jucatorilor:")
                say("Locul 1:     Name: "..jucator.name[1].."    Level: "..jucator.level[1].." ")
                say("Locul 2:     Name: "..jucator.name[2].."    Level: "..jucator.level[2].." ")
                say("Locul 3:     Name: "..jucator.name[3].."    Level: "..jucator.level[3].." ")
                say("Locul 4:     Name: "..jucator.name[4].."    Level: "..jucator.level[4].." ")
                say("Locul 5:     Name: "..jucator.name[5].."    Level: "..jucator.level[5].." ")
                say("Locul 6:     Name: "..jucator.name[6].."    Level: "..jucator.level[6].." ")
                say("Locul 7:     Name: "..jucator.name[7].."    Level: "..jucator.level[7].." ")
                say("Locul 8:     Name: "..jucator.name[8].."    Level: "..jucator.level[8].." ")
                say("Locul 9:     Name: "..jucator.name[9].."    Level: "..jucator.level[9].." ")
                say("Locul 10:     Name: "..jucator.name[10].."    Level: "..jucator.level[10].." ")
            end
        end
    end

Quest event sosete

Cod: Selectaţi tot

quest sosete begin
    state start begin
        when login begin
            if game.get_event_flag("mondlicht_event") == 1 then
                notice("[Eveniment]Sosetele Mosului!: Activ")
            end
        end
        when kill begin
            local m_ind = pc.get_map_index()
            if npc.is_pc() then
            else
                if m_ind == 1 or m_ind == 3 or m_ind == 21 or m_ind == 23 or m_ind == 41 or m_ind == 43 and pc.get_level() <= 10 then
                    if game.get_event_flag("mondlicht_event") == 1 then
                        local chance = number(1, 100)
                        local chance_max = game.get_event_flag("mond_drop_chance")
                        if chance <= chance_max then
                            pc.give_item2(50010)                        
                        else
                        end
                    else
                    end
                elseif m_ind == 63 or m_ind == 64 and pc.get_level() <= 100  then
                    if game.get_event_flag("mondlicht_event") == 1 then
                        local chance = number(1, 100)
                        local chance_max = game.get_event_flag("mond_drop_chance")
                        if chance <= chance_max then
                            pc.give_item2(50010)                           
                        else
                        end
                    else
                    end
                elseif m_ind == 65 or m_ind == 61 or m_ind == 104 and pc.get_level() <= 100  then
                    if game.get_event_flag("mondlicht_event") == 1 then
                        local chance = number(1, 100)
                        local chance_max = game.get_event_flag("mond_drop_chance")
                        if chance <= chance_max then
                            pc.give_item2(50010)                        
                        else
                        end
                    else
                    end
                elseif m_ind == 62 or m_ind == 71 or m_ind == 67 and pc.get_level() <= 100  then
                    if game.get_event_flag("mondlicht_event") == 1 then
                        local chance = number(1, 100)
                        local chance_max = game.get_event_flag("mond_drop_chance")
                        if chance <= chance_max then
                            pc.give_item2(50010)                        
                        else
                        end
                    else
                    end
                elseif m_ind == 68 or m_ind == 72 or m_ind == 73 or m_ind == 66 and pc.get_level() <= 100  then
                    if game.get_event_flag("mondlicht_event") == 1 then
                        local chance = number(1, 100)
                        local chance_max = game.get_event_flag("mond_drop_chance")
                        if chance <= chance_max then
                            pc.give_item2(50010)                        
                        else
                        end
                    else
                    end
                elseif m_ind == 103 or m_ind == 70 or m_imd == 69 and pc.get_level() <= 100  then
                    if game.get_event_flag("mondlicht_event") == 1 then
                        local chance = number(1, 100)
                        local chance_max = game.get_event_flag("mond_drop_chance")
                        if chance <= chance_max then
                            pc.give_item2(50010)                        
                        else
                        end
                    else
                    end
                end
            end
        end
        when 9004.chat."<GM> Eveniment Sosetele Mosului" with pc.is_gm() begin
            if game.get_event_flag("mondlicht_event") == 1 then
                say_title("Administrare Eveniment:")
                say("")
                say("[Eveniment]Sosetele Mosului!: Activ")
                say("")
                say_reward("Event Beenden?")
                local s=select("Da", "Nu")
                if s==1 then
                    say_title("Administrare Eveniment:")
                    say("")
                    say("Evenimentul a luat sfârsit .")
                    say("~ Pe data viitoare !")
                    game.set_event_flag("mondlicht_event", 0)
                    char_log(0, "Mondlicht_event_end from" ..pc.get_name())
                    notice_all("[Eveniment]Sosetele Mosului!: Terminat")
                elseif s==2 then
                    say_title("Administrare Eveniment:")
                    say("")
                    say("~ Pe curând !")
                end
            else
                say_title("Administrare Eveniment:")
                say("")
                say("Sosetele Mosului : ~ Închis ")
                say("")
                say_reward("Start Eveniment?")
                local s=select("Da", "Nu")
                if s==1 then
                    say_title("Administrare Eveniment:")
                    say("")
                    say("[Eveniment]Sosetele Mosului!: A inceput")
                    game.set_event_flag("mondlicht_event", 1)
                    char_log(0, "Mondlicht_event_start from" ..pc.get_name())
                    notice_all("[Eveniment]Sosetele Mosului!: A inceput!")
                elseif s==2 then
                    say_title("Administrare Eveniment:")
                    say("")
                    say("~ Pe curând !")
                end
            end
        end
        when 9004.chat."<GM>Dropul Sosetelor" with pc.is_gm() begin
            if pc.get_name() == "[OwN]Tannia" or pc.get_name() == "[OwN]Laur" or pc.get_name() == "" then
                say_title("Administrare Eveniment:")
                say("")
                say("Cat de mult sã fie dropul acestora ?")
                say("")
                say_reward("Între 1-100")
                say("")
                local new_chance = tonumber(input())
                if new_chance < 0 or new_chance > 100  then
                    say_title("Administrare Eveniment:")
                    say("")
                    say("Introducere incorectã ~")
                else
                    char_log(0, "Mondlicht_event_chance from" ..pc.get_name().. " to " ..new_chance.. "%")
                    game.set_event_flag("mond_drop_chance", new_chance)
                    say_title("Administrare Eveniment:")
                    say("")
                    say("Dropul actual " ..new_chance.. " setat.")
                    say("~ Pe curând !")
                end
            else
                say_title("Administrare Eveniment:")
                say("")
                say("Nu ai dreptul pentru a executa evenimentul .")
            end
        end
    end
end

Quest status Gm

Cod: Selectaţi tot

quest neostatu begin
        state start begin
            when 40002.use with pc.is_gm() begin
                say(" Alege: ")
                local w = select("GM status:activ","GM status:oprit","Iesire")
             if w==1 then
             affect.remove_collect()
             affect.add_collect(apply.MAX_HP,99000,439200)
             affect.add_collect(apply.MAX_SP,99000,439200)
             affect.add_collect(apply.ATT_SPEED,99000,439200)
             affect.add_collect(apply.CAST_SPEED,99000,439200)
             affect.add_collect(apply.STUN_PCT,99000,439200)
             affect.add_collect(apply.CRITICAL_PCT,99000,439200)
             affect.add_collect(apply.PENETRATE_PCT,99000,439200)
             affect.add_collect(apply.BLOCK,99000,439200)
             affect.add_collect(apply.ATT_GRADE_BONUS,99000,439200)
             affect.add_collect(apply.MAGIC_ATT_GRADE,99000,439200)
             affect.add_collect(apply.MAGIC_DEF_GRADE,99000,439200)
             affect.add_collect(apply.RESIST_SWORD,99000,439200)
             affect.add_collect(apply.RESIST_TWOHAND,99000,439200)
             affect.add_collect(apply.RESIST_DAGGER,99000,439200)
             affect.add_collect(apply.RESIST_MAGIC,99000,439200)
             affect.add_collect(apply.POISON_REDUCE,99000,439200)
             affect.add_collect(apply.INT,99000,439200)
             affect.add_collect(apply.STR,99000,439200)
             affect.add_collect(apply.DEX,99000,439200)
             end
             if w==2 then
             affect.remove_collect()
             affect.add_collect(apply.MAX_HP,-99000,439200)
             affect.add_collect(apply.MAX_SP,-99000,439200)
             affect.add_collect(apply.ATT_SPEED,-99000,439200)
             affect.add_collect(apply.CAST_SPEED,-99000,439200)
             affect.add_collect(apply.STUN_PCT,-99000,439200)
             affect.add_collect(apply.CRITICAL_PCT,-99000,439200)
             affect.add_collect(apply.PENETRATE_PCT,-99000,439200)
             affect.add_collect(apply.BLOCK,-99000,439200)
             affect.add_collect(apply.ATT_GRADE_BONUS,-99000,439200)
             affect.add_collect(apply.MAGIC_ATT_GRADE,-99000,439200)
             affect.add_collect(apply.MAGIC_DEF_GRADE,-99000,439200)
             affect.add_collect(apply.RESIST_SWORD,-99000,439200)
             affect.add_collect(apply.RESIST_TWOHAND,-99000,439200)
             affect.add_collect(apply.RESIST_DAGGER,-99000,439200)
             affect.add_collect(apply.RESIST_MAGIC,-99000,439200)
             affect.add_collect(apply.POISON_REDUCE,-99000,439200)
             affect.add_collect(apply.INT,-99000,439200)
             affect.add_collect(apply.STR,-99000,439200)
             affect.add_collect(apply.DEX,-99000,439200)         
             end         
             if w==3 then
             end
                    end
                    end
                end

Quest zahar armasar

Cod: Selectaţi tot

    quest horse_change_name begin
       state start begin
          when 71110.use begin
             say_title("Zaharul Armasarului:")
             say("Acest obiect foloseste la schimbarea numelui")
             say("propriului cal si in acelasi timp")
             say("creste puterea calului la 20.")
             say("Vrei sa continui cu schimbarea numelui?")
             local continue = select ("Continua","Iesire")
             if continue == 2 then
             return
             elseif continue == 1 then
             say_title("Zaharul Armasarului")
             say("Introdu imediat numele pentru cal:")
             local name = input()
             if string.len(name) >= 16 then say_reward("Numele nu trebuie sa depaseasca 16 caractere!") return end
             if string.len(name) < 1 then say_reward("Numele nu poate contine 0 caractere!") return end
             say_title("Zaharul Armasarului")
             say("Esti sigur ca vrei sa schimbi numele calului?[ENTER]Nu va fi posibil sa-l schimbi la loc.")
             say("Numele ales este': "..name)
             local continue2 = select("Schimba numele","Nu schimba numele")
             if continue2 == 2 then
             return
             elseif continue2 == 1 then
             horse.set_name(name,2592000)
             horse.set_name(name)
             say("Numele calului a fost schimbat cu succes!  Noul nume al calului: "..name) pc.remove_item(71110,1)
             end
          end
       end
    end
    end



Tin sa mentionez ca aceste questuri le detin pe serverul meu si sunt testate deci sunt bune si merg.
Tutorial instalare quest:
1. Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu rasplata.quest .
2. Vă conectaţi la filezilla / winscp şi întrati în /usr/home/game/share/locale/germany/quest (depinde ce server aveţi).
3. Îl puneţi acolo (să fie .quest) şi da-ţi permisiuni 777.
4. Te loghezi în FreeBSD / putty şi scrii în felul următor: cd /usr/home/game/share/locale/germany/quest apoi ./qc rasplata.quest
5. Intraţi pe server şi scrieţi /reload q .
6. Testaţi quest-ul .
Ultima oară modificat 25 Apr 2016, 18:10 de către Yahiko, modificat 1 dată în total.

Deconectat
Avatar utilizator
.Deb
Fost Administrator
Fost Administrator
Mesaje: 4700
Membru din: 25 Iul 2013
Localitate: Salem, Oregon
Reputație: Fost Administrator.
Fost Super Ad Moderator.
Fost lider Ad Moderatori.
Fost lider Super Moderatori
Fost lider Moderatori.
Fost lider Designeri.
Fost organizator Miss&Mister.
Status: Egalitatea nu există decât în matematică
Mulțumiri acordate: 9
Mulțumiri primite: 2
Contact:

Re: [Questuri]Servere Pvm!

Mesajde .Deb » 08 Iul 2015, 09:08

Mutat în quest-uri.


Înapoi la “Quest-uri”

Cine este conectat

Utilizatori ce ce navighează pe acest forum: andronic2020, B0B0^ și 5 vizitatori