[Service]Creere de Questuri # Gratis #

DaRealPain · 03 Ian 2015, 19:37

alex25cm scrie:Buna ziua am nevoie si eu de un quest adica ?

cand dau clik pe un cufar sa mise descida si sami d-ea 5kk am bagat cufere noi si 1 vrau sal fac sami d-ea 5kk cand dau clik pe iel Multumesc !

p.s mai am nev de un quest la fiecare lvl facut sati d-ea cate 1kk la lvl 2 2kk lvl 3 1kk tot asa era un quest pe net dar nul mai gasesc daca al gasesti te astept cu reply !!!!

Scuze ca iti raspund asa de tarziu

Quest pentru cufere cu bani:

Cod: Selectaţi tot

--- ####################
--- ## Quest facut de DaRealPain ##
--- ###################

quest bani begin
    state start begin
        when ITEM_VNUM.use begin --- ITEM_VNUM -> VNUM-ul cufarului
			pc.remove_item(ITEM_VNUM, 1)  --- ITEM_VNUM -> VNUM-ul cufarului
            pc.changegold(5000000)
        end 
    end 
end

Marggraf · 04 Ian 2015, 14:42

Un quest prin care sa omori 50 de caini,dar sa ai limita de timp,adica in 5m..

LiiKeFam3 · 04 Ian 2015, 21:35

Un quest care sa anunte cate metine a distrus jucatorul x . Sa-l arate jos la chat o data la x ore, dar sa se reseteze la 1 saptamana,de exemplu.

DaRealPain · 05 Ian 2015, 08:54

Marggraf scrie:Un quest prin care sa omori 50 de caini,dar sa ai limita de timp,adica in 5m..

Trebuie sa inlocuiesti MOB_VNUM cu VNUM-ul monstrului dorit.
Quest

Cod: Selectaţi tot

--- ####################
--- ## Quest facut de DaRealPain ##
--- ###################

quest timekill begin 
    state start begin 
        when login begin 
            send_letter("Distruge raul") 
        end 
        when info or button begin 
            say_title("Omoara monstrii") 
            say("") 
            say("Trebuie sa omori 50 de monstrii in 5 Minute!") 
            set_state("kill1") 
        end 
    end 
    state kill1 begin 
        when letter begin 
            send_letter("Omoara")
            timer("Timp ramas", 60*5)
        end 
        when info or button begin 
            say_title("Omoara monstrii") 
            say("Ai omorat deja "..pc.getqf("mob").." monstrii.") 
        end 
        when kill begin 
            local mobanzahl = pc.getqf("mob")+1  
            if mobanzahl<=49 then 
                pc.setqf("MOB_VNUM", mobanzahl) 
            end 
            if mobanzahl>=50 then 
                set_state("fertig") 
                send_letter("Ai reusit!") 
            end 
        end 
        when Verbleibend.timer begin 
            say("Timpul a expirat!") 
            complete_quest() 
        end 
    end 
    state fertig begin 
        when info or button begin 
            say("Ai reusit!") 
            say("Felicitari.") 
            complete_quest() 
        end 
        when Verbleibend.timer begin 
            say("Timpul a expirat!") 
            complete_quest() 
        end 
    end 
end

LiiKeFam3 scrie:Un quest care sa anunte cate metine a distrus jucatorul x . Sa-l arate jos la chat o data la x ore, dar sa se reseteze la 1 saptamana,de exemplu.

Questul trimite un mesaj in chat dar nu se reseteaza dupa o saptamana. La asta mai lucrez
Daca vrei sa mai adaugi Pietre Metin scrii dupa

Cod: Selectaţi tot

npc.get_race()==8027

->

Cod: Selectaţi tot

or npc.get_race()==VNUM-ul Metinului

Si dupa vezi sa scrie

Cod: Selectaţi tot

then

Cod: Selectaţi tot

--- ####################
--- ## Quest facut de DaRealPain ##
--- ###################

quest metin begin 
    state start begin 
        when login begin 
            send_letter("Pietre Metin") 
        end 
        when button or info begin 
            say_title("Pietre Metin distruse") 
            say("") 
            say("PAna acum ai distrus "..pc.getqf("metins").." Pietre Metin.") 
        end 
        when kill begin 
            timer("anzeige", 3600*3)
            timer("woche", 10080*60) 
            if npc.get_race()==8001 or npc.get_race()==8002 or npc.get_race()==8003 or npc.get_race()==8004 or npc.get_race()==8005 or npc.get_race()==8006 or npc.get_race()==8007 or npc.get_race()==8008 or npc.get_race()==8009 or npc.get_race()==8010 or npc.get_race()==8011 or npc.get_race()==8012 or npc.get_race()==8013 or npc.get_race()==8014 or npc.get_race()==8015 or npc.get_race()==8016 or npc.get_race()==8017 or npc.get_race()==8018 or npc.get_race()==8019 or npc.get_race()==8020 or npc.get_race()==8021 or npc.get_race()==8022 or npc.get_race()==8023 or npc.get_race()==8024 or npc.get_race()==8025 or npc.get_race()==8026 or npc.get_race()==8027 then 
                local metinanzahl = pc.getqf("metins")+1  
                pc.setqf("metins", metinanzahl) 
            end 
        end 
        when timer.anzeige begin
            notice_all(""..pc.get_name.." a distrus pana acum "..pc.getqf("metins").." Pietre Metin.")
            timer("anzeige", 3600*3)
        end
    end 
end

[/color]

Iosif Deak · 05 Ian 2015, 22:16

Frumos din partea ta

mare domn

DaRealPain · 05 Ian 2015, 22:25

MenCar scrie:Frumos din partea ta mare domn

Mersi mersi

Va astept ^_^

Masturbel · 05 Ian 2015, 22:43

Vreau si eu te rog un quest de skilluri G la itemul 72708 contra sumei de 10kk la level 35 daca se poate.
Multumesc anticipat.

LiiKeFam3 · 05 Ian 2015, 23:13

Sarutmana mult, DaRealPain!

DaRealPain · 09 Ian 2015, 16:34

Masturbel scrie:Vreau si eu te rog un quest de skilluri G la itemul 72708 contra sumei de 10kk la level 35 daca se poate.
Multumesc anticipat.

Quest

Cod: Selectaţi tot

quest curcubeu begin
    state start begin
        when 72708.use begin
			if pc.get_level() >=35 then
            say_title("Piatra curcubeu:")
            say("")
            say("Cu aceasta piatra magica iti poti face")
            say("skillurile de la M la G!")
            say("")
            say("Alege Invatatura")
            say("")
            if pc.job == 0 then
                local s = select("Corp","Mental","Abbrechen")
                if s == 1 then
                    --Corp
                    pc.set_skill_group(1)
                    pc.remove_item(72708 , 1)
					pc.change_gold(-10000000)
                    pc.set_skill_level(1, 30)
                    pc.set_skill_level(2, 30)
                    pc.set_skill_level(3, 30)
                    pc.set_skill_level(4, 30)
                    pc.set_skill_level(5, 30)
                    pc.set_skill_level(6, 30)
                    say_title("Piatra curcubeu:")
                    say("")
                    say("Skillurile tale sunt acum la G")
                    say("")
                elseif s == 2 then
                    --Mental
                    pc.set_skill_group(2)
                    pc.remove_item(72708 , 1)
					pc.change_gold(-10000000)
                    pc.set_skill_level(16, 30)
                    pc.set_skill_level(17, 30)
                    pc.set_skill_level(18, 30)
                    pc.set_skill_level(19, 30)
                    pc.set_skill_level(20, 30)
                    pc.set_skill_level(21, 30)
                    say_title("Piatra curcubeu:")
                    say("")
                    say("Skillurile tale sunt acum la G")
                    say("")
                end
             elseif pc.job ==1 then
                say("Wähle deine Lehre aus")
                local s = select("Cutite","Arc","Abbrechen")
                if s == 1 then
                    --Cutite
                    pc.set_skill_group(3)
                    pc.remove_item(72708 , 1)
					pc.change_gold(-10000000)
                    pc.set_skill_level(31, 30)
                    pc.set_skill_level(32, 30)
                    pc.set_skill_level(33, 30)
                    pc.set_skill_level(34, 30)
                    pc.set_skill_level(35, 30)
                    pc.set_skill_level(36, 30)
                    say_title("Piatra curcubeu:")
                    say("")
                    say("Skillurile tale sunt acum la G")
                    say("")
                elseif s == 2 then
                    --Fernkampf
                    pc.set_skill_group(4)
                    pc.remove_item(72708 , 1)
					pc.change_gold(-10000000)
                    pc.set_skill_level(46, 30)
                    pc.set_skill_level(47, 30)
                    pc.set_skill_level(48, 30)
                    pc.set_skill_level(49, 30)
                    pc.set_skill_level(50, 30)
                    pc.set_skill_level(51, 30)
                    say_title("Piatra curcubeu:")
                    say("")
                    say("Skillurile tale sunt acum la G")
                    say("")
                end
            elseif pc.job == 2 then
                say("Wähle deine Lehre aus")
                local s = select("Magie","Arma","Abbrechen")
                if s == 1 then
                    --Magie
                    pc.set_skill_group(5)
                    pc.remove_item(72708 , 1)
					pc.change_gold(-10000000)
                    pc.set_skill_level(76, 30)
                    pc.set_skill_level(77, 30)
                    pc.set_skill_level(78, 30)
                    pc.set_skill_level(79, 30)
                    pc.set_skill_level(80, 30)
                    pc.set_skill_level(81, 30)
                    say_title("Piatra curcubeu:")
                    say("")
                    say("Skillurile tale sunt acum la G")
                    say("")
                elseif s == 2 then
                    --Arma
                    pc.set_skill_group(6)
                    pc.remove_item(72708 , 1)
					pc.change_gold(-10000000)
                    pc.set_skill_level(61, 30)
                    pc.set_skill_level(62, 30)
                    pc.set_skill_level(63, 30)
                    pc.set_skill_level(64, 30)
                    pc.set_skill_level(65, 30)
                    pc.set_skill_level(66, 30)
                    say_title("Piatra curcubeu:")
                    say("")
                    say("Skillurile tale sunt acum la G")
                    say("")
                end
            elseif pc.job == 3 then
                say("Wähle deine Lehre aus")
                local s = select("Vindecare","Dragon","Abbrechen")
                if s == 1 then
                    --Vindecare
                    pc.set_skill_group(7)
                    pc.remove_item(72708 , 1)
					pc.change_gold(-10000000)
                    pc.set_skill_level(106, 30)
                    pc.set_skill_level(107, 30)
                    pc.set_skill_level(108, 30)
                    pc.set_skill_level(109, 30)
                    pc.set_skill_level(110, 30)
                    pc.set_skill_level(111, 30)
                    say_title("Piatra curcubeu:")
                    say("")
                    say("Skillurile tale sunt acum la G")
                    say("")
                elseif s == 2 then
                    --Dragon
                    pc.set_skill_group(8)
                    pc.remove_item(72708 , 1)
					pc.change_gold(-10000000)
                    pc.set_skill_level(91, 30)
                    pc.set_skill_level(92, 30)
                    pc.set_skill_level(93, 30)
                    pc.set_skill_level(94, 30)
                    pc.set_skill_level(95, 30)
                    pc.set_skill_level(96, 30)
                    say_title("Piatra curcubeu:")
                    say("")
                    say("Skillurile tale sunt acum la G")
                    say("")
                end
			elseif pc.money < 10000000 then
					say_reward("Nu ai destul Yang.")
					say_reward("Ai nevoie de 20kk Yang pentru ati putea face skillurile G.")
					return false
				end
            end ]]
            
            
        end
    end
end

Nu sunt sigur daca functioneaza dar ar trebui ^_^

Masturbel · 10 Ian 2015, 14:02

DaRealPain scrie:

Masturbel scrie:Vreau si eu te rog un quest de skilluri G la itemul 72708 contra sumei de 10kk la level 35 daca se poate.
Multumesc anticipat.

Quest

Cod: Selectaţi tot

quest curcubeu begin
    state start begin
        when 72708.use begin
			if pc.get_level() >=35 then
            say_title("Piatra curcubeu:")
            say("")
            say("Cu aceasta piatra magica iti poti face")
            say("skillurile de la M la G!")
            say("")
            say("Alege Invatatura")
            say("")
            if pc.job == 0 then
                local s = select("Corp","Mental","Abbrechen")
                if s == 1 then
                    --Corp
                    pc.set_skill_group(1)
                    pc.remove_item(72708 , 1)
					pc.change_gold(-10000000)
                    pc.set_skill_level(1, 30)
                    pc.set_skill_level(2, 30)
                    pc.set_skill_level(3, 30)
                    pc.set_skill_level(4, 30)
                    pc.set_skill_level(5, 30)
                    pc.set_skill_level(6, 30)
                    say_title("Piatra curcubeu:")
                    say("")
                    say("Skillurile tale sunt acum la G")
                    say("")
                elseif s == 2 then
                    --Mental
                    pc.set_skill_group(2)
                    pc.remove_item(72708 , 1)
					pc.change_gold(-10000000)
                    pc.set_skill_level(16, 30)
                    pc.set_skill_level(17, 30)
                    pc.set_skill_level(18, 30)
                    pc.set_skill_level(19, 30)
                    pc.set_skill_level(20, 30)
                    pc.set_skill_level(21, 30)
                    say_title("Piatra curcubeu:")
                    say("")
                    say("Skillurile tale sunt acum la G")
                    say("")
                end
             elseif pc.job ==1 then
                say("Wähle deine Lehre aus")
                local s = select("Cutite","Arc","Abbrechen")
                if s == 1 then
                    --Cutite
                    pc.set_skill_group(3)
                    pc.remove_item(72708 , 1)
					pc.change_gold(-10000000)
                    pc.set_skill_level(31, 30)
                    pc.set_skill_level(32, 30)
                    pc.set_skill_level(33, 30)
                    pc.set_skill_level(34, 30)
                    pc.set_skill_level(35, 30)
                    pc.set_skill_level(36, 30)
                    say_title("Piatra curcubeu:")
                    say("")
                    say("Skillurile tale sunt acum la G")
                    say("")
                elseif s == 2 then
                    --Fernkampf
                    pc.set_skill_group(4)
                    pc.remove_item(72708 , 1)
					pc.change_gold(-10000000)
                    pc.set_skill_level(46, 30)
                    pc.set_skill_level(47, 30)
                    pc.set_skill_level(48, 30)
                    pc.set_skill_level(49, 30)
                    pc.set_skill_level(50, 30)
                    pc.set_skill_level(51, 30)
                    say_title("Piatra curcubeu:")
                    say("")
                    say("Skillurile tale sunt acum la G")
                    say("")
                end
            elseif pc.job == 2 then
                say("Wähle deine Lehre aus")
                local s = select("Magie","Arma","Abbrechen")
                if s == 1 then
                    --Magie
                    pc.set_skill_group(5)
                    pc.remove_item(72708 , 1)
					pc.change_gold(-10000000)
                    pc.set_skill_level(76, 30)
                    pc.set_skill_level(77, 30)
                    pc.set_skill_level(78, 30)
                    pc.set_skill_level(79, 30)
                    pc.set_skill_level(80, 30)
                    pc.set_skill_level(81, 30)
                    say_title("Piatra curcubeu:")
                    say("")
                    say("Skillurile tale sunt acum la G")
                    say("")
                elseif s == 2 then
                    --Arma
                    pc.set_skill_group(6)
                    pc.remove_item(72708 , 1)
					pc.change_gold(-10000000)
                    pc.set_skill_level(61, 30)
                    pc.set_skill_level(62, 30)
                    pc.set_skill_level(63, 30)
                    pc.set_skill_level(64, 30)
                    pc.set_skill_level(65, 30)
                    pc.set_skill_level(66, 30)
                    say_title("Piatra curcubeu:")
                    say("")
                    say("Skillurile tale sunt acum la G")
                    say("")
                end
            elseif pc.job == 3 then
                say("Wähle deine Lehre aus")
                local s = select("Vindecare","Dragon","Abbrechen")
                if s == 1 then
                    --Vindecare
                    pc.set_skill_group(7)
                    pc.remove_item(72708 , 1)
					pc.change_gold(-10000000)
                    pc.set_skill_level(106, 30)
                    pc.set_skill_level(107, 30)
                    pc.set_skill_level(108, 30)
                    pc.set_skill_level(109, 30)
                    pc.set_skill_level(110, 30)
                    pc.set_skill_level(111, 30)
                    say_title("Piatra curcubeu:")
                    say("")
                    say("Skillurile tale sunt acum la G")
                    say("")
                elseif s == 2 then
                    --Dragon
                    pc.set_skill_group(8)
                    pc.remove_item(72708 , 1)
					pc.change_gold(-10000000)
                    pc.set_skill_level(91, 30)
                    pc.set_skill_level(92, 30)
                    pc.set_skill_level(93, 30)
                    pc.set_skill_level(94, 30)
                    pc.set_skill_level(95, 30)
                    pc.set_skill_level(96, 30)
                    say_title("Piatra curcubeu:")
                    say("")
                    say("Skillurile tale sunt acum la G")
                    say("")
                end
			elseif pc.money < 10000000 then
					say_reward("Nu ai destul Yang.")
					say_reward("Ai nevoie de 20kk Yang pentru ati putea face skillurile G.")
					return false
				end
            end ]]
            
            
        end
    end
end

Nu sunt sigur daca functioneaza dar ar trebui ^_^

Multumesc mult!
O sa revin cu edit cand il instalez si iti zic daca functioneaza cum trebuie.

[Service]Creere de Questuri # Gratis #

[Service II]Creere de Mape # Gratis #

[Serviciu]Creere de Questuri, Arme si Mape#Gratis#

[Service] Creare questuri

[#LIVE]Play4Funn-GM-GRATIS/MODARE-GRATIS!!!Grad-uri gratis la alegere!

Cine este conectat