[Colectie]DaRealPains Quests

Totalitatea subiectelor care nu respectă regulamentul vor fi stocate aici.
Deconectat
Avatar utilizator
DaRealPain
Fost Helper
Fost Helper
Mesaje: 956
Membru din: 05 Oct 2014
Status: I'm happy (:
Server Metin2: Loading ...
Mulțumiri acordate: 8
Mulțumiri primite: 6
Contact:

[Colectie]DaRealPains Quests

Mesajde DaRealPain » 10 Oct 2014, 18:43

Buna seara!

Am decis sa impart cu voi cateva dintre questurile facute de mine
O sa actualizez topicul cu regularitate


Daca un quest asemanator este deja postat va rog sa ma anuntati
O sa sterg questul de la mine imediat


Ma-s bucura daca ati putea posta si parerile voastre

Daca apar probleme nu ezitati sa imi cereti ajutorul


InGame Ranglist

Cod: Selectaţi tot

quest ingame_lista begin
   state start begin
      when 20011.chat."Lista cu cei mai buni jucatori" begin
         local rang = mysql_query("SELECT * from player.player where name not like '[%' order by level DESC, exp DESC;")
         local rang_len = table.getn(rang.name)
         local splits = math.floor((rang_len + 5) / 10)
         local pos = 1
         for a = 1, splits do
            say_reward("Pagina cu lista de rang "..a)
            say()
            for b = 1, 10 do
               local c = 10 * ( a - 1 ) + b
               say("Locul "..c..": Numele: "..rang.name[c]..", Level: "..rang.level[c]..", Experienta: "..rang.exp[c])
               if c == rang_len then
                  say("Ati atins sfarsitul listei")
                  wait()
                  return
               end               
            end      
            local sel = select("Mai departe", "Anuleaza")
            if sel == 2 then
               say("Okey.Pe mai tarziu")
               return
            end
         end
      end
   end
end


PvP Quest cu Auto-Bonusuri pentru Kill-uri

Cod: Selectaţi tot

quest pvp begin   
    state start begin   
        when login or levelup with pc.get_level() >= 75 and pc.getqf("level") == 0 begin
            say("Felicitari!!")
            say("Ai ajuns la levelul 75 ,")
            say("si asta e intradevar uimitor.")
            say("Incepand de acum, partea PvP va ")
            say("deveni din ce in ce mai interesanta..")
            say("Din aceasta cauza ne-am gandit la ceva.")
            say("De acum vei primi pentru uciderea altor")
            say("Playeri anumite bonusuri permanente!")
            say_reward("50 de jucatori omorati = 10% Semi-Om")
            say_reward("100 de jucatori omorati = 10% Semi-Om , 1.000 PV")
            say_reward("200 de jucatori omorati = 20% Semi-Om , 1.000 PV,")
            say_reward("500 de jucatori omorati = 20% Semi-Om , 3.000 PV,")
            pc.setqf("level", 1)
        end
        when kill with npc.is_pc() begin
            if get_time() < pc.getqf("kill_time") then
                chat("Doua minute nu au trecut inca!")
                chat("Nu primesti nici un punct!")
                return
            end   
            chat("Felicitari!Ai primit un punct")
            chat("Urmatorul punct il poti primi in doua minute")
            chat("Momentan ai "..pc.getqf("kill_punkte").." Punct(e)")
            pc.setqf("kill_punkte", pc.getqf("kill_punkte")+1)
            pc.setqf("kill_time", get_time() + 60*2)
            if pc.getqf("kill_punkte") == 50 then
                affect.add_collect(apply.ATTBONUS_HUMAN,10,60*60*24*365*60)
                say("Nu-i rau!Tocmai ai omorat 50 de playeri")
                say("Ca bonus primesti 10% Semi-Om")
            elseif pc.getqf("kill_punkte") == 100 then
                affect.add_collect(apply.MAX_HP,1000,60*60*24*365*60)
                say("Felicitari!Tocmau ai omorat 100 de playeri")
                say("Ca bonus primesti 1000 PV.")
            elseif pc.getqf("kill_punkte") == 200 then
                affect.add_collect(apply.ATTBONUS_HUMAN,10,60*60*24*365*60)
                say("Oho super!Tocmai ce ai omorat 200 de playeri.")
                say_reward("Ca bonus primesti inca 10% Semi-Om")
            elseif pc.getqf("kill_punkte") == 500 then
                affect.add_collect(apply.MAX_HP,2000,60*60*24*365*60)
                say("WOW!WOW!WOW!Ai reusit!Ai omorat 500 de playeri")
                say("Ultimul tau bonus e 2000 PV!")
            end
        end
    end
end 


Sistem "Reconpensa"

Cod: Selectaţi tot

quest kopfgeld_sys begin
   state start begin
      when 20095.chat."Recompensa" begin
         say_title(string.format("%s:", mob_name(string.format("%d", npc.get_race()))))
         say()
         say("Pe ce jucator vrei sa pui o recompensa?")
         local target_name = tostring(input())
         if target_name == pc.get_name() or target_name == "" then return end
         if mysql_query("select exists from player.player where name = '"..target_name.."';") != "1" then return end
         if mysql_query("select kopfgeld from player.player where name = '"..target_name.."';") != "0" then
            say_title(string.format("%s:", mob_name(string.format("%d", npc.get_race()))))
            say_reward(string.format("%d", target_name))
            say()
            say("Pe capul acestui jucator este deja o recompensa pusa!")
            return
         end
         say_title(string.format("%s:", mob_name(string.format("%d", npc.get_race()))))
         say()
         say("Introdu suma:")
         local lohn = tonumber(input())
         if lohn == 0 or lohn > pc.get_money() then return end
         say_title(string.format("%s:", mob_name(string.format("%d", npc.get_race()))))
         say_reward(string.format("Tinta: %d", target_name))
         say_reward(string.format("Recompensa: %d Yang", lohn))
         say()
         if select("Accepta","Anuleaza") == 2 then return end
         mysql_query("update player.player set kopfgeld = '"..lohn.."' where name = '"..target_name.."';")
         pc.change_money(-lohn)
      end
      when kill with npc.is_pc() begin
         vid = npc.get_vid()
         ask = mysql_query("select kopfgeld from player.player where id = '"..vid.."';")
         if ask != "0" then
            send_letter("Recompensa")
            --mysql_query("update player.player set kopfgeld = '0' where id = '"..vid.."';")
         end
      end
      when button or info begin
         if pc.getqf("info") == 0 then
            say_title("Recompensa")
            say()
            say("Pe capul tau au fost pusi")
            say_reward(string.format("%d Yang", ask))
            say("Yang.")
            say("Fii atent sa ai destul loc liber la Yang.")
            wait()
            send_letter("Rascupara recompensa")
            pc.setqf("info",1)
         if pc.getqf("info") == 1 then
            say_title("Recompensa")
            say_reward(string.format("%d Yang", ask))
            if select("Rascumpara","Inapoi") == 2 then return send_letter("Kopfgeld") end
            local ask = mysql_query("select kopfgeld from player.player where id = '"..vid.."';")
            local max_yang = pc.get_money()+ask
            if max_yang > 1999999999 then return send_letter("Kopfgeld") end
            pc.change_money(ask)
            pc.setqf("info",0)
            clear_letter()
         end
      end
   end
end
end
Doresti sa iti omori timpul cu un Let's Play de la cele mai actuale jocuri?
Da click pe banner, lasa un like si aboneaza-te.
Trebuie să fii logat sau înregistrat pentru a vedea acest link.

Tutoriale pentru servere de Metin2
Trebuie să fii logat sau înregistrat pentru a vedea acest link.

Deconectat
Avatar utilizator
DaRealPain
Fost Helper
Fost Helper
Mesaje: 956
Membru din: 05 Oct 2014
Status: I'm happy (:
Server Metin2: Loading ...
Mulțumiri acordate: 8
Mulțumiri primite: 6
Contact:

Re: [Colectie]DaRealPains Quests

Mesajde DaRealPain » 15 Oct 2014, 02:02

# up
Doresti sa iti omori timpul cu un Let's Play de la cele mai actuale jocuri?
Da click pe banner, lasa un like si aboneaza-te.
Trebuie să fii logat sau înregistrat pentru a vedea acest link.

Tutoriale pentru servere de Metin2
Trebuie să fii logat sau înregistrat pentru a vedea acest link.

Deconectat
Avatar utilizator
Ibrahimović
Utilizator interzis !
Utilizator interzis !
Mesaje: 1153
Membru din: 08 Sep 2014
Mulțumiri acordate: 0
Mulțumiri primite: 16
Contact:

Re: [Colectie]DaRealPains Quests

Mesajde Ibrahimović » 17 Oct 2014, 16:26

Coş la cererea autorului .


Înapoi la “Topicuri şi mesaje şterse”

Cine este conectat

Utilizatori ce ce navighează pe acest forum: Niciun utilizator înregistrat și 8 vizitatori