Cerere quest

Ionuț Daniel · 09 Mar 2017, 15:59

Are cineva un quest de genul ? de exemplu sa primesti la un anumit nivel o misiune sa te duci la un npc . acel npc sa te puna sa omori x mobi de un fel si cand te intorci la el sa primesti ceva. Dau THX

Pongo A.K.A Titan · 09 Mar 2017, 16:00

---------------------------------- 
    -- LvL 40 / Fluchsammlung 
    ---------------------------------- 
    state collect_quest_lv40 begin 
        when login or levelup with pc.level>39 begin 
            set_state(talk_to_disciple_lv40) 
        end     
    end 
    state talk_to_disciple_lv40 begin 
        when letter begin 
            local v = find_npc_by_vnum(20084) 
            if v != 0 then target.vid("__TARGET__", v, "Biologe") 
            end 
            send_letter("Cercetarea biologului nr 2") 
        end 
        when button or info begin 
            say_title("Cercetarea biologului nr 2") 
            say("") 
            say("Biologul are nevoie de ajutor") 
            say("Spune ca doreste sa il ajuti in cautarea ") 
            say("elementelor de constructie") 
            say("Dute si vorbeste cu el,") 
            say("Pentru a obtine mai multe amanunte") 
            say("") 
            say_reward("Vorbeste cu biologul") 
            say("") 
        end 
        when __TARGET__.target.click or 20084.chat."Fluchbücher" begin 
            target.delete("__TARGET__") 
            say("Biologul:") 
            say("Ei bine ai ajuns...") 
            say("Investigatia privind Orcii") 
            say("S-a terminat.") 
            say("Acum am descoperit noi obiecte,") 
            say("As vrea sa investighezi") 
            wait() 
            say("Biologul:") 
            say("As putea sa le colectez eu dar,") 
            say("am prea multe de facut.") 
            say("Ar fi foarte frumos") 
            say("daca a-i face asta pentru mine.") 
            wait() 
            say("Biologul:") 
            say("Vreau sa examinezi cartile blesteme.") 
            say("Am nevoie de 15 carti") 
            say("Cartile sunt destul de vechi,") 
            say("acestea cad uneori in afara templului!") 
            say("")                                                                                                                                                           
            set_state(collect_cursebook) 
            pc.setqf("duration",0) 
            pc.setqf("collect_count",0) 
        end 
    end 
    state collect_cursebook begin 
        when letter begin 
            send_letter("Cercetarea biologului nr 2") 
        end 
        when button or info begin 
            say_title("Colectionarea Blestemelor") 
            say("") 
            say("Biologul ti-a dat un loc de munca,") 
            say("Pentru a obtine 15 carti blesteme.") 
            say("Acest lucru se poate si pe intuneric") 
            say("Colectionarea cartilor blesteme") 
            say("") 
            say_item_vnum(30047)  
            say_reward("Ai in prezent "..pc.getqf("collect_count").." colectionate!") 
            say("") 
        end 
        when 20084.chat."Cercetarea cartilor blesteme" with pc.count_item(30047)>0 begin 
            if get_time()>pc.getqf("duration") then 
                say("Ateapta un minut ...") 
                say("Multumesc,") 
                say("lasa-ma sa ma uit") 
                say("In cazul in care aceasta carte este buna ...") 
                say("") 
                pc.remove_item("30047", 1) 
                pc.setqf("duration",get_time()+300) 
                wait() 

                local rand = number(0,99) 
                if rand<50 then 
                    local count = pc.getqf("collect_count")+1 
                    if count<15 then 
                        pc.setqf("collect_count", count) 
                        say("Biologul:") 
                        say("Excelent aceasta carte este in ordine.") 
                        say("Mai adu-mi deoarece ") 
                        say("Am nevoie de mai multe.") 
                        say("") 
                        say_reward("In prezent ai  "..pc.getqf("collect_count").." colectionate!") 
                        say("") 
                    else  
                        say("Biologul:") 
                        say("Ai adus 15 carti .") 
                        say("Ei bine mai am o cercetare.") 
                        say("Am nevoie de piatra sufletului din templu,") 
                        say("Aceasta pica langa templul,") 
                        say("Luptator precum Ork Sef te poate invinge") 
                        say("Cred ca esti suficient de puternic") 
                        say("") 
                        pc.setqf("collect_count",0) 
                        pc.setqf("duration",0) 
                        set_state(collect_templekey) 
                    end 
                else                                 
                    say("Biologul:") 
                    say("Imi pare rau aceasta carte,") 
                    say("S-a deteriorat pe parcusul investigatiei") 
                    say("Te rog adu-mi alta.") 
                end 
            else 
                say("Biologul:") 
                say("Imi pare rau ") 
                say("nu am terminat studiile inca ...") 
                say("Te rog sa imi aduci Fluchsammmlung mai tarziu...") 
            end 
        end 
    end 
    state collect_templekey begin 
        when letter begin 
            send_letter("Piatra sufletului din Templu") 
        end 
        when button or info begin 
            say_title("Piatra sufletului din Templu") 
            say("") 
            say("Tu ai adus toate cele 15 carti blestem.") 
            say("Iar acum ai Piatra sufletului din Templu.") 
            say("") 
            say_item_vnum(30221) 
            say("Stiai ca aceasta piatra contine") 
            say("Sufletul urmasilor din templu?") 
            say("") 
        end 
        when 635.kill or 636.kill or 637.kill begin 
            if pc.count_item(30221)<1 then 
                local rand = number(0,99) 
                if rand<5 then pc.give_item2(30221, 1) 
                end 
            end     
        end 
        when 20084.chat."Piatra sufletului din Templu" begin 
            if pc.count_item(30221)>0 then 
                say("Biologul:") 
                say("Pentru a primii recompensa ") 
                say("In urma cautarii de informatii despre.") 
                say("Cartile blesteme si Piatra sufletului din Templu.") 
                say("Dute si cauta-l pe Baek-Go,") 
                say("Acesta se afla in oras.") 
                say("") 
                pc.remove_item(30221,1) 
                set_state(templekey_reward) 
            else 
                 say("Biologul:") 
                 say("Ai adus 15 carti .") 
                 say("Ei bine mai am o cercetare.") 
                 say("Am nevoie de piatra sufletului din templu,") 
                 say("Aceasta pica langa templul,") 
                 say("Luptator precum Ork Sef te poate invinge") 
                 say("Cred ca esti suficient de puternic") 
                 say("") 
             
        end
    end 
    state templekey_reward begin 
        when letter begin 
            send_letter("Dute si vorbeste cu Baek-GO") 
            local v = find_npc_by_vnum(20018) 
            if v != 0 then target.vid("__TARGET__", v, "Doktor") 
            end 
        end 
        when button or info begin 
            say_title("Vorbeste cu Baek-Go") 
            say(Pentru a primi recompensa,") 
            say("In urma colecatrii de informatii") 
            say("despre cartile blestem si piatra sufletului din templu") 
            say("Dute in oras la Baek-Go.") 
            say("") 
        end 
        when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin 
            target.delete("__TARGET__") 
            say_title("Baek-Go:") 
            say("Sa vedem, zici ca biologul te-a trimis la mine ...") 
            say("Biologul te-a trimis la mine") 
            say("Uite rasplata ta") 
            say("") 
            say_reward("Primesti:") 
            say_reward("+5% Viteza de atac (Permanent)") 
            say("") 
            affect.add_collect(apply.ATT_SPEED,5,60*60*24*365*60) 
            set_state(collect_quest_lv50) 
        end 
    end

iNooB · 09 Mar 2017, 16:01

Cod: Selectaţi tot

---------------------------------------------
-- Quest » Main quest lv. 110				-
-- Created by Mandi							-
-- Language » Româna 						-				-
---------------------------------------------
quest main_quest_lv_110 begin
	state start begin
		when login or levelup with pc.get_level() >= 110 begin
			send_letter("Suprematia Bosilor")
		end
		when button or info begin
			say_title("Suprematia Bosilor")
			say("")
			say("Bine-ai revenit, "..pc.get_name().."!")
			say("De data aceasta va trebui sa omori pentru mine")
			say("niste bosi care ameninta orasele noastre!")
			say("")
			say("Lista bosilor:")
			say_reward("Beran | Azrael | Reaper | Regina Arahnidelor | Gargoyle | Wubba")
			say("")
			pc.setqf("kill_beran", 0)
			pc.setqf("kill_azrael", 0)
			pc.setqf("kill_reaper", 0)
			pc.setqf("kill_spider_queen", 0)
			pc.setqf("kill_gargoyle", 0)
			pc.setqf("kill_wubba", 0)
			set_state(kill_boss)
		end
	end
	
	state kill_boss begin
		when letter begin
			send_letter("Suprematia Bosilor - Distrugere")
		end
		when button or info begin
			say_title("Distrugere:")
			say("")
			say("Distruge-i fara remuscari sau sentimente!")
			say("")
			say("Beran: "..pc.getqf("kill_beran")..".")
			say("Azrael: "..pc.getqf("kill_azrael")..".")
			say("Reaper: "..pc.getqf("kill_reaper")..".")
			say("Regina Arahnidelor: "..pc.getqf("kill_spider_queen")..".")
			say("Gargoyle: "..pc.getqf("kill_gargoyle")..".")
			say("Wubba: "..pc.getqf("kill_wubba")..".")
			say("")
			wait()
			if pc.getqf("kill_beran") == 1 and pc.getqf("kill_azrael") == 1 and pc.getqf("kill_reaper") == 1 and pc.getqf("kill_spider_queen") == 1 and pc.getqf("kill_gargoyle") == 1 and pc.getqf("kill_wubba") == 1 then
				set_state(succeed)
			else
				send_letter("Suprematia Bosilor - Distrugere")
			end
		end
		
		when 2493.kill with pc.getqf("kill_beran") == 0 begin
			pc.setqf("kill_beran", 1)
			syschat("Beran Setaou a fost distrus!")
		end
		
		when 2598.kill with pc.getqf("kill_azrael") == 0 begin
			pc.setqf("kill_azrael", 1)
			syschat("Azrael a fost distrus!")
		end
		
		when 1093.kill with pc.getqf("kill_reaper") == 0 begin
			pc.setqf("kill_reaper", 1)
			syschat("Reaper-ul a fost distrus!")
		end
		
		when 2092.kill with pc.getqf("kill_spider_queen") == 0 begin
			pc.setqf("kill_spider_queen", 1)
			syschat("Regina Paianjenilor a fost distrusa!")
		end
		
		when 3790.kill with pc.getqf("kill_gargoyle") == 0 begin
			pc.setqf("kill_gargoyle", 1)
			syschat("Gargoyle a fost distrus!")
		end
		
		when 3791.kill with pc.getqf("kill_wubba") == 0 begin
			pc.setqf("kill_wubba", 1)
			syschat("Wubba a fost distrus!")
		end
		
		when 2493.kill or 2598.kill or 1093.kill or 2092.kill or 41022.kill or 2620.kill with pc.getqf("kill_beran") == 1 and pc.getqf("kill_azrael") == 1 and pc.getqf("kill_reaper") == 1 and pc.getqf("kill_spider_queen") == 1 and pc.getqf("kill_gargoyle") == 1 and pc.getqf("kill_wubba") == 1 begin
			syschat("Misiunea ta a fost incheiata cu succes!")
			set_state(succeed)
		end
	end
	
	state succeed begin
		when letter begin
			send_letter("Suprematia Bosilor - Terminat")
		end
		when button or info begin
			say_title("Suprematia Bosilor - Terminat:")
			say("")
			say("Foarte bine, sobolane... Acum orasul este")
			say("un loc mai sigur pentru toata lumea!")
			say("")
			say("Poftim si recompensa ta:")
			say_reward("Tare impotriva warrior + 10")
			say_reward("Tare impotriva assassin + 10")
			say_reward("Tare impotriva sura + 10")
			say_reward("Tare impotriva shaman + 10")
			say("")
			
			affect.add_collect(apply.ATTBONUS_WARRIOR, 10, 60*60*24*365*60)
			affect.add_collect(apply.ATTBONUS_ASSASSIN, 10, 60*60*24*365*60)
			affect.add_collect(apply.ATTBONUS_SURA, 10, 60*60*24*365*60)
			affect.add_collect(apply.ATTBONUS_SHAMAN, 10, 60*60*24*365*60)
			clear_letter()
			set_state(__COMPLETE__)
			end
		end
	state __COMPLETE__ begin
	end
end

este quest de la happines II , ca sa faci quest la npc, modifci acolo when lv 110..

Ionuț Daniel · 09 Mar 2017, 16:01

Pongo scrie:

---------------------------------- 
    -- LvL 40 / Fluchsammlung 
    ---------------------------------- 
    state collect_quest_lv40 begin 
        when login or levelup with pc.level>39 begin 
            set_state(talk_to_disciple_lv40) 
        end     
    end 
    state talk_to_disciple_lv40 begin 
        when letter begin 
            local v = find_npc_by_vnum(20084) 
            if v != 0 then target.vid("__TARGET__", v, "Biologe") 
            end 
            send_letter("Cercetarea biologului nr 2") 
        end 
        when button or info begin 
            say_title("Cercetarea biologului nr 2") 
            say("") 
            say("Biologul are nevoie de ajutor") 
            say("Spune ca doreste sa il ajuti in cautarea ") 
            say("elementelor de constructie") 
            say("Dute si vorbeste cu el,") 
            say("Pentru a obtine mai multe amanunte") 
            say("") 
            say_reward("Vorbeste cu biologul") 
            say("") 
        end 
        when __TARGET__.target.click or 20084.chat."Fluchbücher" begin 
            target.delete("__TARGET__") 
            say("Biologul:") 
            say("Ei bine ai ajuns...") 
            say("Investigatia privind Orcii") 
            say("S-a terminat.") 
            say("Acum am descoperit noi obiecte,") 
            say("As vrea sa investighezi") 
            wait() 
            say("Biologul:") 
            say("As putea sa le colectez eu dar,") 
            say("am prea multe de facut.") 
            say("Ar fi foarte frumos") 
            say("daca a-i face asta pentru mine.") 
            wait() 
            say("Biologul:") 
            say("Vreau sa examinezi cartile blesteme.") 
            say("Am nevoie de 15 carti") 
            say("Cartile sunt destul de vechi,") 
            say("acestea cad uneori in afara templului!") 
            say("")                                                                                                                                                           
            set_state(collect_cursebook) 
            pc.setqf("duration",0) 
            pc.setqf("collect_count",0) 
        end 
    end 
    state collect_cursebook begin 
        when letter begin 
            send_letter("Cercetarea biologului nr 2") 
        end 
        when button or info begin 
            say_title("Colectionarea Blestemelor") 
            say("") 
            say("Biologul ti-a dat un loc de munca,") 
            say("Pentru a obtine 15 carti blesteme.") 
            say("Acest lucru se poate si pe intuneric") 
            say("Colectionarea cartilor blesteme") 
            say("") 
            say_item_vnum(30047)  
            say_reward("Ai in prezent "..pc.getqf("collect_count").." colectionate!") 
            say("") 
        end 
        when 20084.chat."Cercetarea cartilor blesteme" with pc.count_item(30047)>0 begin 
            if get_time()>pc.getqf("duration") then 
                say("Ateapta un minut ...") 
                say("Multumesc,") 
                say("lasa-ma sa ma uit") 
                say("In cazul in care aceasta carte este buna ...") 
                say("") 
                pc.remove_item("30047", 1) 
                pc.setqf("duration",get_time()+300) 
                wait() 

                local rand = number(0,99) 
                if rand<50 then 
                    local count = pc.getqf("collect_count")+1 
                    if count<15 then 
                        pc.setqf("collect_count", count) 
                        say("Biologul:") 
                        say("Excelent aceasta carte este in ordine.") 
                        say("Mai adu-mi deoarece ") 
                        say("Am nevoie de mai multe.") 
                        say("") 
                        say_reward("In prezent ai  "..pc.getqf("collect_count").." colectionate!") 
                        say("") 
                    else  
                        say("Biologul:") 
                        say("Ai adus 15 carti .") 
                        say("Ei bine mai am o cercetare.") 
                        say("Am nevoie de piatra sufletului din templu,") 
                        say("Aceasta pica langa templul,") 
                        say("Luptator precum Ork Sef te poate invinge") 
                        say("Cred ca esti suficient de puternic") 
                        say("") 
                        pc.setqf("collect_count",0) 
                        pc.setqf("duration",0) 
                        set_state(collect_templekey) 
                    end 
                else                                 
                    say("Biologul:") 
                    say("Imi pare rau aceasta carte,") 
                    say("S-a deteriorat pe parcusul investigatiei") 
                    say("Te rog adu-mi alta.") 
                end 
            else 
                say("Biologul:") 
                say("Imi pare rau ") 
                say("nu am terminat studiile inca ...") 
                say("Te rog sa imi aduci Fluchsammmlung mai tarziu...") 
            end 
        end 
    end 
    state collect_templekey begin 
        when letter begin 
            send_letter("Piatra sufletului din Templu") 
        end 
        when button or info begin 
            say_title("Piatra sufletului din Templu") 
            say("") 
            say("Tu ai adus toate cele 15 carti blestem.") 
            say("Iar acum ai Piatra sufletului din Templu.") 
            say("") 
            say_item_vnum(30221) 
            say("Stiai ca aceasta piatra contine") 
            say("Sufletul urmasilor din templu?") 
            say("") 
        end 
        when 635.kill or 636.kill or 637.kill begin 
            if pc.count_item(30221)<1 then 
                local rand = number(0,99) 
                if rand<5 then pc.give_item2(30221, 1) 
                end 
            end     
        end 
        when 20084.chat."Piatra sufletului din Templu" begin 
            if pc.count_item(30221)>0 then 
                say("Biologul:") 
                say("Pentru a primii recompensa ") 
                say("In urma cautarii de informatii despre.") 
                say("Cartile blesteme si Piatra sufletului din Templu.") 
                say("Dute si cauta-l pe Baek-Go,") 
                say("Acesta se afla in oras.") 
                say("") 
                pc.remove_item(30221,1) 
                set_state(templekey_reward) 
            else 
                 say("Biologul:") 
                 say("Ai adus 15 carti .") 
                 say("Ei bine mai am o cercetare.") 
                 say("Am nevoie de piatra sufletului din templu,") 
                 say("Aceasta pica langa templul,") 
                 say("Luptator precum Ork Sef te poate invinge") 
                 say("Cred ca esti suficient de puternic") 
                 say("") 
             
        end
    end 
    state templekey_reward begin 
        when letter begin 
            send_letter("Dute si vorbeste cu Baek-GO") 
            local v = find_npc_by_vnum(20018) 
            if v != 0 then target.vid("__TARGET__", v, "Doktor") 
            end 
        end 
        when button or info begin 
            say_title("Vorbeste cu Baek-Go") 
            say(Pentru a primi recompensa,") 
            say("In urma colecatrii de informatii") 
            say("despre cartile blestem si piatra sufletului din templu") 
            say("Dute in oras la Baek-Go.") 
            say("") 
        end 
        when __TARGET__.target.click  or 20018.chat."Belohnung des Biologen" begin 
            target.delete("__TARGET__") 
            say_title("Baek-Go:") 
            say("Sa vedem, zici ca biologul te-a trimis la mine ...") 
            say("Biologul te-a trimis la mine") 
            say("Uite rasplata ta") 
            say("") 
            say_reward("Primesti:") 
            say_reward("+5% Viteza de atac (Permanent)") 
            say("") 
            affect.add_collect(apply.ATT_SPEED,5,60*60*24*365*60) 
            set_state(collect_quest_lv50) 
        end 
    end

După cum spuneam pe chat , nu vreau să duci nimic . Doar să te pună să omori. Asa puteam prin quest direct , dar vreau sa fie la un NPC. Am primit mai sus un raspuns , o sa-l incerc

Va dau THX la amandoi.

iNooB · 09 Mar 2017, 16:10

Cod: Selectaţi tot

quest nume.quest begin
	state start begin
		when login or levelup with pc.get_level() >= 70 begin
			set_state("go_to_disciple")
		end
	end
	
	state go_to_disciple begin
		when letter begin
			local v = find_npc_by_vnum(cod npc )
			if v != 0 then
				target.vid("capitan", v, "Capitan")
			end
			send_letter("*nume.quest")
		end

Ionuț Daniel · 12 Mai 2017, 19:53

Mutat în cereri rezolvate.

Cerere quest

Cerere quest Transmutation system la thowahdan si un quest cufar drop vizual

Cerere Quest/Tutorial Modificare Quest Alchimie - Drop Cioburi

Cerere quest manusa/inel site direct din quest

[CERERE]Quest Skill P ! Sau quest Piatra curcubeu !REPEDEEEE

Cine este conectat

!	Mesaj de la: Pongo A.K.A Titan
	Cand credeati ca am sa mor M-am ridicat ca un invingator