[SERVICE] Die Questkontrolle

Page 334 of 845

334

03/06/2012 19:50 collado#4996

i m testing, but have more errors, one is this:

PHP Code:


			
when login begin with pc.getqf("start") == 0  begin

mus be

PHP Code:


			
when login begin
if pc.getqf("start") == 0 then

but have this error:

must start with -quest-
willkomen.quest83 abort (core dumped)

im going to test xD

03/06/2012 19:53 [SA]KiLLeD#4997

Quote:

Originally Posted by collado

i m testing, but have more errors, one is this:

PHP Code:

when login begin with pc.getqf("start") == 0 begin

mus be

PHP Code:

when login begin if pc.getqf("start") == 0 then

but have this error:

must start with -quest-
willkomen.quest83 abort (core dumped)

im going to test xD

now the old error is not there but new errors.. please help :D

03/06/2012 20:39 collado#4998

test it now xD

PHP Code:


			
quest willkommen begin
    state start begin
        when login begin
            if pc.getqf("start") == 0 then
                pc.setqf("start", 1)
                say_title("text")
                say("text")
                say("text")
                say("text")
                say("text")
                say("text")
                say("text")
                say("text")
                say("text")
                pc.give_exp2 (999999999)
                pc.give_exp2 (999999999)
                pc.give_exp2 (999999999)
                pc.give_exp2 (999999999)
                pc.give_exp2 (999999999)
                pc.give_exp2 (999999999)
                pc.give_item2 ("27003", 200)
                pc.give_item2 ("27003", 200)
                pc.give_item2 ("27003", 200)
                pc.give_item2 ("27003", 200)
                pc.give_item2 ("27003", 200)
                pc.give_item2 ("27006", 200)
                pc.give_item2 ("27006", 200)
                pc.give_item2 ("71050", 200)
                pc.give_item2 ("72702", 1)
                pc.give_item2 ("50053", 1)
                pc.give_item2 ("70044", 1)
                pc.give_item2 ("70045", 1)
                horse.set_level(21)
                say_reward("text")
                say_reward("text")
                say_reward("text")
                say_reward("text")
                say_reward("text")
                say_reward("text")
                clear_letter()
            end
        end
    end
end

i maked it now, its more simple and gives no errors when use make.py xD

03/06/2012 21:03 [SA]KiLLeD#4999

Quote:

Originally Posted by collado

test it now xD

PHP Code:

quest willkommen begin state start begin when login begin if pc.getqf("start") == 0 then pc.setqf("start", 1) say_title("text") say("text") say("text") say("text") say("text") say("text") say("text") say("text") say("text") pc.give_exp2 (999999999) pc.give_exp2 (999999999) pc.give_exp2 (999999999) pc.give_exp2 (999999999) pc.give_exp2 (999999999) pc.give_exp2 (999999999) pc.give_item2 ("27003", 200) pc.give_item2 ("27003", 200) pc.give_item2 ("27003", 200) pc.give_item2 ("27003", 200) pc.give_item2 ("27003", 200) pc.give_item2 ("27006", 200) pc.give_item2 ("27006", 200) pc.give_item2 ("71050", 200) pc.give_item2 ("72702", 1) pc.give_item2 ("50053", 1) pc.give_item2 ("70044", 1) pc.give_item2 ("70045", 1) horse.set_level(21) say_reward("text") say_reward("text") say_reward("text") say_reward("text") say_reward("text") say_reward("text") clear_letter() end end end end

i maked it now, its more simple and gives no errors when use make.py xD

thanks but the character get a kick if i am ingame.. how i fixx that?

03/07/2012 01:05 collado#5000

i tested the quest and works fine, it can kick the character but recibe lots of experience, or have the other quest bugged on object folder... make a make.sh xD,

when I tried I have not kicked

give swap to the virtual and problem was ;)

03/07/2012 15:03 JeeX#5001

Die Quest Funktioniert, nur lassen sich die Moobs nicht spawnen:
Wenn ich das Item "70045" drauf ziehe, dann kommt der erste Text ich w�hle: "Ja, Mobs Spawnen" aus und er macht nix :/ // weder mit mob.spawn_group noch mit mob.spawn

Rest Funktioniert mit "70044" und das ich auf die andere Map komme...

Fazit: nur die moobs lassen sich nicht spawnen...

Code:

quest feuersigel begin 
    state start begin 
        when 20096.take with item.vnum == 70045 begin 
            say_title("Die n�chste Ebene:") 
            say("") 
            say("Guten Tag.") 
            say("Du hast das Item") 
            say("")
            say_blue("Zahn des dunklen F�rste") 
            say("")
            say("auf mich gezogen!") 
            wait("") 
            say_red("M�chtest du nun denn richtigen Schl�ssel droppen") 
            say_red("um ins Feuerland2 zu gelangen?") 
            say("") 
            say("Dazu musst du eine Aufgabe beweltigen") 
            say("diese besagt, du musst die b�sen Monster vernichten") 
            local s = select("Ja, Mobs Spawnen", "Nein, lieber nicht") 
            if s == 2 then 
                return 
        
            elseif s == 1 then 
                mob.spawn_group(804, 60, 739) 
                mob.spawn(101, 60, 737)
            end
        end
         
        when 20096.take with item.vnum == 70044 begin 
            say_title("N�chste Ebene:") 
            say("Also, willst du nun in die n�chste Ebene?") 
            say("Aber Achtung!!") 
            say("Dort lauert ein b�ser Drache!") 
            local s = select("Ja!", "Nein!") 
            if s == 2 then 
                return  
            elseif s == 1 then 
                pc.remove_item(70045, 1) 
                pc.warp(460800, 1049600) 
            end
        end 
    end 
end

03/07/2012 15:19 buja12#5002

Hey Leute schaut mal

Code:

quest new_weapon begin
	state start begin
		when login or levelup with pc.level >= 25 begin
			set_state(new_weapon)
		end
	end
	state new_weapon begin
		when letter begin
			send_letter("Neue Waffen - Quest")
		end
		when button or info begin
			say("Nun hast du endlich Level 25 erreicht.")
			say("Nun musst du nat�rlich auch zeigen,")
			say("was in dir steckt!")
			say("Am besten kannst du das beweisen, wenn du")
			say("25x Metin der Eifersucht erledigst.")
			say_reward("Erledige Metinsteine aus Map2")
			say_reward("und werde kr�ftig belohnt!")
			say("")
			pc.setqf("state", 25)
			q.set_counter("kills", 25)
			set_state(kill)
		end
	end
	state kill begin
		when letter begin
			send_letter("T�te den Metin der Eifersucht")
		end
		when button or info begin
			say_title("Spieler:")
			say_reward("Du musst noch "..25-pc.getqf("state").." von 25 t�ten")
			say("")
		end
		when kill with npc.get_race() == 8007 begin
			local count = pc.getqf("state") - 1
			if count > 0 then
				if count <= 25 then
					pc.setqf("state", count)
					q.set_counter("kills", count)
				end
			end
			if count == 0 then
				say("Sehr sch�n, du hast es geschafft!")
				say("Nach langem k�mpfen hast du nun endlich")
				say("deinen 25. Kill gemacht! Gratulation")
				say("Diese M�hen sollen nat�rlich nicht unbelohnt")
				say("bleiben, deshalb kannst du zwischen folgenden")
				say("Preisen w�hlen:")
				if pc.job == 0 then
					say("Da du ein Krieger bist, kannst du zwischen")
					say("folgenden Preisen entscheiden:")
					say("")
					local s = select("Vollmondschwert+5", "Roteisenklinge+5")
					if s == 1 then
						say("Gut, du hast dich f�r das Vollmondschwert+5 entschieden!")
						say("Viel Spa� mit deinem Gewinn!")
						pc.give_item2(295, 1)
					elseif s == 2 then
						say("Gut, du hast dich f�r das Roteisenklinge+5 entschieden!")
						say("Viel Spa� mit deinem Gewinn!")
						pc.give_item2(3215, 1)
					end
				elseif pc.job == 1 then
					say("Da du ein Ninja bist, kannst du zwischen")
					say("folgenden Preisen entscheiden:")
					local g = select("Hornbogen+5", "Schwarzblattdolch+5")
					if g == 1 then
						say("Gut, du hast dich f�r das Hornbogen+5 entschieden!")
						say("Viel Spa� mit deinem Gewinn!")
						pc.give_item2(2155, 1)
					elseif g == 2 then
						say("Gut, du hast die f�r den Schwarzblattdolch+5 entschieden!")
						say("Viel Spa� mit deinem Gewinn!")
						pc.give_item2(1175, 1)
					end
				elseif pc.job == 2 then
					say("Da du ein Sura bist, kannst du zwischen")
					say("folgenden Preisen entscheiden:")
					local f = select("Vollmondschwert+5")
					if f == 1 then
						say("Gut, du hast dich f�r das Vollmondschwert+5 entschieden!")
						say("Viel Spa� mit deinem Gewinn!")
						pc.give_item2(295, 1)
					end
				elseif pc.job == 3 then
					say("Da du eine Schamane bist, kannst du zwischen")
					say("folgenden Preisen entscheiden:")
					local a = select("Herbstwindf�cher+5", "Antike Glocke+5")
					if a == 1 then
						say("Gut, du hast dich f�r den Herbstwindf�cher+5 entschieden!")
						say("Viel Spa� mit deinem Gewinn!")
						pc.give_item2(7165, 1)
					elseif a == 2 then
						say("Gut, du hast dich f�r die Antike Glocke+5 entschieden!")
						say("Viel Spa� mit deinem Gewinn!")
						pc.give_item2(5115, 1)
					end		
				end
			set_state(__COMPLETE__)
			end
		end
	end
	state __COMPLETE__ begin
	end
end

hier passsiert nach dem ausw�hlen der waffe nicht es kommt nur oben und unten ein schwarzer rand un man kann nichtz machn kann mir wer den fehler verraten?

03/07/2012 16:46 Synfonia#5003

Quote:

Originally Posted by JeeX

Code:

quest feuersigel begin 
    state start begin 
        when 20096.take with item.vnum == 70045 begin 
            say_title("Die n�chste Ebene:") 
            say("") 
            say("Guten Tag.") 
            say("Du hast das Item") 
            say("")
            say_blue("Zahn des dunklen F�rste") 
            say("")
            say("auf mich gezogen!") 
            wait("") 
            say_red("M�chtest du nun denn richtigen Schl�ssel droppen") 
            say_red("um ins Feuerland2 zu gelangen?") 
            say("") 
            say("Dazu musst du eine Aufgabe beweltigen") 
            say("diese besagt, du musst die b�sen Monster vernichten") 
            local s = select("Ja, Mobs Spawnen", "Nein, lieber nicht") 
            if s == 2 then 
                return 
        
            elseif s == 1 then 
                mob.spawn_group(804, 60, 739) 
                mob.spawn(101, 60, 737)
            end
        end
         
        when 20096.take with item.vnum == 70044 begin 
            say_title("N�chste Ebene:") 
            say("Also, willst du nun in die n�chste Ebene?") 
            say("Aber Achtung!!") 
            say("Dort lauert ein b�ser Drache!") 
            local s = select("Ja!", "Nein!") 
            if s == 2 then 
                return  
            elseif s == 1 then 
                pc.remove_item(70045, 1) 
                pc.warp(460800, 1049600) 
            end
        end 
    end 
end

[Only registered and activated users can see links. Click Here To Register...]

Kannst dir das ja mal durchlesen, dann wirst du auch erfahren, dass mob.spawn() 6 Variablen braucht um gerufen zu werden und nicht nur drei.
Und feil mal an deinem Deutsch...

03/08/2012 11:06 ShaiiShaii#5004

Ja schaut euch das mal bitte an

Wir haben ein Error in der ride.quest und hair.quest

das ist der Error

ride.quest

Spoiler

hair.quest

Spoiler

03/08/2012 13:50 .iXream.#5005

PHP Code:


			
quest reittiere2 begin

    state start begin

        when 71126.use with pc.getqf("reittiere") == 0 begin

            say_title("Schlachtl�wen")

            say("Hallo "..pc.get_name())

            say("Du m�chtest nun einen Schlachtl�wen haben.")

            say_reward("M�chtest du den Schlachtl�wen nun haben?")

            if s == 1 then

                say("Du hast erfolgreich den Schlachtl�wen ausgew�hlt")

                say("Folgende Bonis hast du erhalten!")

                say_green("Boni 1")

                say_green("Boni 2")

                pc.setqf("reittiere",1")

            elseif == 2 then

                say("Du hast nicht die Boni�s Aktiviert!")

                say("Dann noch viel Spa� auf Mitin2!")

                return

            end

        end

        when 71126.use with pc.getqf("reittiere") == 1 and game.get_event_flag("runter_") == 0 begin

            pc.mount(20118,999999)

            game.set_event_flag("runter_",1)

        end

        when 71126.use with game.get_event_flag("runter_") == 1 begin

            pc.unmount()

            game.set_event_flag("runter_",0)

        end

    end

end

03/08/2012 14:30 Sp0ngeb0b ist cool#5006

PHP Code:


			
quest reittiere2 begin
    state start begin
        when 71126.use with pc.getqf("reittiere") == 0 begin
            say_title("Schlachtl�wen")
            say("Hallo "..pc.get_name())
            say("Du m�chtest nun einen Schlachtl�wen haben.")
            say_reward("M�chtest du den Schlachtl�wen nun haben?")
            if s == 1 then
                say("Du hast erfolgreich den Schlachtl�wen ausgew�hlt")
                say("Folgende Bonis hast du erhalten!")
                say_green("Boni 1")
                say_green("Boni 2")
                pc.setqf("reittiere",1)
            elseif == 2 then
                say("Du hast nicht die Boni�s Aktiviert!")
                say("Dann noch viel Spa� auf Mitin2!")
                return
            end
        end
        when 71126.use with pc.getqf("reittiere") == 1 and game.get_event_flag("runter_") == 0 begin
            pc.mount(20118,999999)
            game.set_event_flag("runter_",1)
        end
        when 71126.use with game.get_event_flag("runter_") == 1 begin
            pc.unmount()
            game.set_event_flag("runter_",0)
        end
    end
end

03/09/2012 15:28 buja12#5007

Hallo Leute hab mir mal die de Bio Quest geschrieben funzt auch eig nur ich kann nach den Orkz�hnen wenn ich den jinungiys seelenstein habe den biologen nicht anklicken(chat �ffnen)

PHP Code:


			
quest biologe1_quest  begin
    state start begin
        when login or levelup with pc.level >= 30 begin
            set_state(information)
        end    
    end

    state information begin
        when letter begin
            local v = find_npc_by_vnum(20084)
            if v != 0 then
                target.vid("__TARGET__", v, "Biologenquest")
            end
            send_letter("Die Forschung des Biologen")
        end

        when button or info begin
            say_title("Die Forschung des Biologen")
            say("")
            say("Der Biologe braucht deine Hilfe!")
            say("Gehe zu ihm.")
            say("")
        end
        
        when __TARGET__.target.click or
            20084.chat."Die Orkzaehne" begin
            target.delete("__TARGET__")
            say_title("Biologe:")
            say("Oh!?! Du hilfst mir?")
            say("Gut ...")
            say("Nachdem du mir die letzten male schon")
            say("erfolgreich geholfen hast, hoff ich erneut")
            say("auf deine Hilfe. Ich werde dich")
            say("dafuer auch wieder angemessen belohnen.")
            wait()
            say_title("Biologe:")
            say("Ich habe vor kurzem zu Ohren bekommen")
            say("das sich die Orks im Lande breitmachen.")
            say("Wie ich von einigen Jaegern gehoert habe")
            say("lassen diese Orks nach ihrem Tot nur ihre")
            say("Orkzaehne zurueck. Wuerdest du mir helfen")
            say("und diese Orkzaehne fuer mich besorgen?")
            wait()
            say("Ich brauche 10  Orkzaehne um")
            say("meine Forschung ein fuer alle mal zu beenden.")
            say("Aber Orkzaehne sind sehr zerbrechlich")
            say("es kann also sein das ein paar bei")
            say("meinen Untersuchungen kaputt gehen.")
            say("Bitte verstehen sie das ich alle 10")
            say("brauche ich muss wissen was hinter der")
            say("Legende steckt ...")
            say("")                                                                                                                                                          
            set_state(go_to_disciple)
            pc.setqf("duration",0)
            pc.setqf("collect_count",0)
            pc.setqf("drink_drug",0)
        end
    end

    state go_to_disciple begin
        when letter begin
            send_letter("Sammelauftrag: Orkzaehne")            
        end
        when button or info begin
            say_title("Orkzaehne")
            say("")
            say("Der Biologe gab euch den Auftrag")
            say("10 Orkzaehne zu sammeln!")
            say("Sammelt sie von den Orks im Orktal")
            say("und gebt sie dem Biologen.")
            say_item_vnum(30006) 
            say_reward("   Ihr habt".." "..pc.getqf("collect_count").." derzeit abgegeben!")
            say("")
        end
        
        when 71035.use begin
            if get_time() < pc.getqf("duration") then
                say("")
                say("�٤��i�H�ϥΰg�b�Ĥ�")
                say("")
                return
            end
            if pc.getqf("drink_drug")==1 then
                say("")
                say("�w�g�ϥΤF1��")
                say("")

                return
            end
            if pc.count_item(30006)==0 then
                say("Du hast keine!")
                say("Du sollst mir aber welche bringen.")
                say("")
                return
            end
            item.remove()    
            pc.setqf("drink_drug",1)
        end



        
        when 20084.chat."Die Orkzaehne!" with pc.count_item(30006) >0   begin
            if get_time() > pc.getqf("duration") then
                say_title("Biologe:")
                say("Einen Moment ...")
                say("Vielen Dank,")
                say("lasst es mich schnell ueberpruefen")
                say("ob dieser Orkzahn in Ordnung ist ...")
                say("")
                pc.remove_item("30006", 1)
                pc.setqf("duration",get_time()+60*60*1)-- Rechnung 60*60= 3600 Sekunden = 1 (Stunde)*1 = 1 Stunden
                wait()                
                local pass_percent
                if pc.getqf("drink_drug")==0 then
                    pass_percent=60
                else        
                    pass_percent=90
                end
                
                local s= number(1,100)
                if s<= pass_percent  then
                   if pc.getqf("collect_count")< 9 then
                        local index =pc.getqf("collect_count")+1 
                        pc.setqf("collect_count",index)
                        say(pass_percent)
                        say_title("Biologe:")
                        say("Hervorragend dieser Zahn ist in Ordnung")
                        say("Ihr habt bis jetzt ".." "..10-pc.getqf("collect_count").. " Abgegeben!")
                        say("Bringt mir noch welche, damit ich die")
                        say("Forschungen abschlie�en kann.")
                        pc.setqf("drink_drug",0)
                        return
                    end
                    say_title("Biologe:")
                    say("Du hast mir die 10 Stueck gebracht...")
                    say("Nun bitte ich dich noch mir den")
                    say("Jinunggyis Seelenstein zu bringen du")
                    say("bekommst ihn von den Solzen Ork's im Orktal.")    
                    say("Ich denke das du stark genug bist, dass")
                    say("zu schaffen.")
                    say("")
                    pc.setqf("collect_count",0)
                    pc.setqf("drink_drug",0)    
                    pc.setqf("duration",0) 
                    set_state(key_item)
                    return
                else                                
                say_title("Biologe:")
                say("Es tut mir leid aber dieser Zahn ist bei")
                say("den Untersuchungen zerbrochen.")
                say("Bitte hole mir einen Neuen!")
                say("")
                pc.setqf("drink_drug",0)
                return
                end
        else
          say_title("Biologe:")
          say("Oh entschuldige ich habe die letzten")
          say("Studien noch nicht beendet ...")
          say("Bitte bringe mir den Zahn wenn die")
          say("derzeitigen Studien beendet sind.")
          say("")
          return
        end

    end
end


    state key_item begin
        when letter begin
            send_letter("Jinunggyis Seelenstein")
            
            if pc.count_item(30220)>0 then    
                local v = find_npc_by_vnum(20084)
                if v != 0 then
                    target.vid("__TARGET__", v, "Biologenquest")
                end
            end

        end
        when button or info begin
            if pc.count_item(30220) >0 then
                say_title("Jinunggyis Seelenstein")
                say("")
                say("Du haste den Jinunggyis Seelenstein!")
                say("Gehe zu Biologe Chaegirab")
                say("und gib ihn ab.")
                return
            end
            say_title("Jinunggyis Seelenstein")
            say("")
            say("Ihr habt erfolgreich alle ")
            say("10 Orkzaehne gesammelt ...")
            say("Nun muesst ihr den Jinunggyis ")
            say("Seelenstein bekommen.")
            say_item_vnum(30220)
            say("Ob dieser Seelenstein tatsaechlich")
            say("eine Seele enthaelt?")
            say("")
        end
        

    
        when 631.kill or
             632.kill or 
             633.kill or
             634.kill  begin
            local s = number(1, 250)
            if s == 1 and pc.count_item(30220)==0 then
                pc.give_item2(30220, 1)
                send_letter("Jinunggyis Seelenstein")        
            end    
        end
        
        when 20084.chat."Jinunggyis Seelenstein!" with pc.count_item(30228) > 0  begin
            say_title("Biologe:")
            say("Du hast hart gekaempft ...")
            say("Dafuer werde ich deine innere Staerke erhoehen!")
            say("Ich werde dir ein Rezept geben mit dem")
            say("du deine Innere Kraft verbessern kannst!")
            say("Dank deiner Hilfe verstehe ich nun")
            say("die Legende um den Jinunggyis Seelenstein ...")
            say("Gehe mit diesen Informationen zu Baek-Go.")
            say("Er kann dir dabei helfen deine")
            say("Staerke zu erhoehen.")
            say("")
            pc.remove_item(30220,1)
            set_state(__reward)
        end
        
    end
    
    state __reward begin
        when letter begin
            send_letter("Infos des Biologen")
            
            local v = find_npc_by_vnum(20018)
            if v != 0 then
                target.vid("__TARGET__", v, "Baek-Go")
            end

        end
        when button or info begin
            say_title("Zugang zu den Informationen des Biologen!")
            say("Um die Belohnen des Biologen zu erhalten")
            say("und die innere Staerke zu verbessern")
            say("suche Baek-Go auf.")
            say("")
        end
        
        when __TARGET__.target.click  or
            20018.chat."Rezept zur Verbesserung der inneren Kraft"  begin
            target.delete("__TARGET__")
            say("Baek-Go:")
            say("Ich sehe ..")
            say("Sie sagen das der Biologe sie schickte, ")
            say("wegen eines Rezeptes halber?")
            say("Zeigen sie mal her ...")
            say("...")
            say("")
            say_reward("Du hast dem Biologen erfolgreich geholfen")
            say_reward("Du erhaelst folgende Belohnungen:")
            say_reward("-Bewegungsgeschwindigkeit +10%")
            say_reward("")        
            say_reward("")    
            affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60)
            clear_letter()
            set_state(__complete)
        end
            
    end

    
    state __giveup__ begin
        when 20084.chat."Sie wollen es versuchen?" begin
            say("Biologe:")
            say("Sie wollen es versuchen?")
            say("... und die Kraft die sie in sich tragen?")
            say("Sie muessen sich hier anmelden, bevor sie die")
            say("Aufgabe wieder aufnehmen koennen.")
            say("Das kann eine Minute dauern ...")
         end
     end
    state __complete begin
    end
end

Kann mir einer sagen woran das liegt?

03/09/2012 16:34 RealMadrid94rk#5008

Lag daran, dass du die falsche vnum benutzt hast.

PHP Code:


			
quest biologe1_quest  begin

    state start begin

        when login or levelup with pc.level >= 30 begin

            set_state(information)

        end    

    end



    state information begin

        when letter begin

            local v = find_npc_by_vnum(20084)

            if v != 0 then

                target.vid("__TARGET__", v, "Biologenquest")

            end

            send_letter("Die Forschung des Biologen")

        end



        when button or info begin

            say_title("Die Forschung des Biologen")

            say("")

            say("Der Biologe braucht deine Hilfe!")

            say("Gehe zu ihm.")

            say("")

        end

        

        when __TARGET__.target.click or

            20084.chat."Die Orkzaehne" begin

            target.delete("__TARGET__")

            say_title("Biologe:")

            say("Oh!?! Du hilfst mir?")

            say("Gut ...")

            say("Nachdem du mir die letzten male schon")

            say("erfolgreich geholfen hast, hoff ich erneut")

            say("auf deine Hilfe. Ich werde dich")

            say("dafuer auch wieder angemessen belohnen.")

            wait()

            say_title("Biologe:")

            say("Ich habe vor kurzem zu Ohren bekommen")

            say("das sich die Orks im Lande breitmachen.")

            say("Wie ich von einigen Jaegern gehoert habe")

            say("lassen diese Orks nach ihrem Tot nur ihre")

            say("Orkzaehne zurueck. Wuerdest du mir helfen")

            say("und diese Orkzaehne fuer mich besorgen?")

            wait()

            say("Ich brauche 10  Orkzaehne um")

            say("meine Forschung ein fuer alle mal zu beenden.")

            say("Aber Orkzaehne sind sehr zerbrechlich")

            say("es kann also sein das ein paar bei")

            say("meinen Untersuchungen kaputt gehen.")

            say("Bitte verstehen sie das ich alle 10")

            say("brauche ich muss wissen was hinter der")

            say("Legende steckt ...")

            say("")                                                                                                                                                          

            set_state(go_to_disciple)

            pc.setqf("duration",0)

            pc.setqf("collect_count",0)

            pc.setqf("drink_drug",0)

        end

    end



    state go_to_disciple begin

        when letter begin

            send_letter("Sammelauftrag: Orkzaehne")            

        end

        when button or info begin

            say_title("Orkzaehne")

            say("")

            say("Der Biologe gab euch den Auftrag")

            say("10 Orkzaehne zu sammeln!")

            say("Sammelt sie von den Orks im Orktal")

            say("und gebt sie dem Biologen.")

            say_item_vnum(30006) 

            say_reward("   Ihr habt".." "..pc.getqf("collect_count").." derzeit abgegeben!")

            say("")

        end

        

        when 71035.use begin

            if get_time() < pc.getqf("duration") then

                say("")

                say("�٤��i�H�ϥΰg�b�Ĥ�")

                say("")

                return

            end

            if pc.getqf("drink_drug")==1 then

                say("")

                say("�w�g�ϥΤF1��")

                say("")



                return

            end

            if pc.count_item(30006)==0 then

                say("Du hast keine!")

                say("Du sollst mir aber welche bringen.")

                say("")

                return

            end

            item.remove()    

            pc.setqf("drink_drug",1)

        end







        

        when 20084.chat."Die Orkzaehne!" with pc.count_item(30006) >0   begin

            if get_time() > pc.getqf("duration") then

                say_title("Biologe:")

                say("Einen Moment ...")

                say("Vielen Dank,")

                say("lasst es mich schnell ueberpruefen")

                say("ob dieser Orkzahn in Ordnung ist ...")

                say("")

                pc.remove_item("30006", 1)

                pc.setqf("duration",get_time()+60*60*1)-- Rechnung 60*60= 3600 Sekunden = 1 (Stunde)*1 = 1 Stunden

                wait()                

                local pass_percent

                if pc.getqf("drink_drug")==0 then

                    pass_percent=60

                else        

                    pass_percent=90

                end

                

                local s= number(1,100)

                if s<= pass_percent  then

                   if pc.getqf("collect_count")< 9 then

                        local index =pc.getqf("collect_count")+1 

                        pc.setqf("collect_count",index)

                        say(pass_percent)

                        say_title("Biologe:")

                        say("Hervorragend dieser Zahn ist in Ordnung")

                        say("Ihr habt bis jetzt ".." "..10-pc.getqf("collect_count").. " Abgegeben!")

                        say("Bringt mir noch welche, damit ich die")

                        say("Forschungen abschlie�en kann.")

                        pc.setqf("drink_drug",0)

                        return

                    end

                    say_title("Biologe:")

                    say("Du hast mir die 10 Stueck gebracht...")

                    say("Nun bitte ich dich noch mir den")

                    say("Jinunggyis Seelenstein zu bringen du")

                    say("bekommst ihn von den Solzen Ork's im Orktal.")    

                    say("Ich denke das du stark genug bist, dass")

                    say("zu schaffen.")

                    say("")

                    pc.setqf("collect_count",0)

                    pc.setqf("drink_drug",0)    

                    pc.setqf("duration",0) 

                    set_state(key_item)

                    return

                else                                

                say_title("Biologe:")

                say("Es tut mir leid aber dieser Zahn ist bei")

                say("den Untersuchungen zerbrochen.")

                say("Bitte hole mir einen Neuen!")

                say("")

                pc.setqf("drink_drug",0)

                return

                end

        else

          say_title("Biologe:")

          say("Oh entschuldige ich habe die letzten")

          say("Studien noch nicht beendet ...")

          say("Bitte bringe mir den Zahn wenn die")

          say("derzeitigen Studien beendet sind.")

          say("")

          return

        end



    end

end





    state key_item begin

        when letter begin

            send_letter("Jinunggyis Seelenstein")

            

            if pc.count_item(30220)>0 then    

                local v = find_npc_by_vnum(20084)

                if v != 0 then

                    target.vid("__TARGET__", v, "Biologenquest")

                end

            end



        end

        when button or info begin

            if pc.count_item(30220) >0 then

                say_title("Jinunggyis Seelenstein")

                say("")

                say("Du haste den Jinunggyis Seelenstein!")

                say("Gehe zu Biologe Chaegirab")

                say("und gib ihn ab.")

                return

            end

            say_title("Jinunggyis Seelenstein")

            say("")

            say("Ihr habt erfolgreich alle ")

            say("10 Orkzaehne gesammelt ...")

            say("Nun muesst ihr den Jinunggyis ")

            say("Seelenstein bekommen.")

            say_item_vnum(30220)

            say("Ob dieser Seelenstein tatsaechlich")

            say("eine Seele enthaelt?")

            say("")

        end

        



    

        when 631.kill or

             632.kill or 

             633.kill or

             634.kill  begin

            local s = number(1, 250)

            if s == 1 and pc.count_item(30220)==0 then

                pc.give_item2(30220, 1)

                send_letter("Jinunggyis Seelenstein")        

            end    

        end

        

        when 20084.chat."Jinunggyis Seelenstein!" with pc.count_item(30220) > 0  begin

            say_title("Biologe:")

            say("Du hast hart gekaempft ...")

            say("Dafuer werde ich deine innere Staerke erhoehen!")

            say("Ich werde dir ein Rezept geben mit dem")

            say("du deine Innere Kraft verbessern kannst!")

            say("Dank deiner Hilfe verstehe ich nun")

            say("die Legende um den Jinunggyis Seelenstein ...")

            say("Gehe mit diesen Informationen zu Baek-Go.")

            say("Er kann dir dabei helfen deine")

            say("Staerke zu erhoehen.")

            say("")

            pc.remove_item(30220,1)

            set_state(__reward)

        end

        

    end

    

    state __reward begin

        when letter begin

            send_letter("Infos des Biologen")

            

            local v = find_npc_by_vnum(20018)

            if v != 0 then

                target.vid("__TARGET__", v, "Baek-Go")

            end



        end

        when button or info begin

            say_title("Zugang zu den Informationen des Biologen!")

            say("Um die Belohnen des Biologen zu erhalten")

            say("und die innere Staerke zu verbessern")

            say("suche Baek-Go auf.")

            say("")

        end

        

        when __TARGET__.target.click  or

            20018.chat."Rezept zur Verbesserung der inneren Kraft"  begin

            target.delete("__TARGET__")

            say("Baek-Go:")

            say("Ich sehe ..")

            say("Sie sagen das der Biologe sie schickte, ")

            say("wegen eines Rezeptes halber?")

            say("Zeigen sie mal her ...")

            say("...")

            say("")

            say_reward("Du hast dem Biologen erfolgreich geholfen")

            say_reward("Du erhaelst folgende Belohnungen:")

            say_reward("-Bewegungsgeschwindigkeit +10%")

            say_reward("")        

            say_reward("")    

            affect.add_collect(apply.MOV_SPEED, 10, 60*60*24*365*60)

            clear_letter()

            set_state(__complete)

        end

            

    end



    

    state __giveup__ begin

        when 20084.chat."Sie wollen es versuchen?" begin

            say("Biologe:")

            say("Sie wollen es versuchen?")

            say("... und die Kraft die sie in sich tragen?")

            say("Sie muessen sich hier anmelden, bevor sie die")

            say("Aufgabe wieder aufnehmen koennen.")

            say("Das kann eine Minute dauern ...")

         end

     end

    state __complete begin

    end

end

03/09/2012 16:40 buja12#5009

hey nice thx funktioniert

03/09/2012 18:25 Kriegergeist^^#5010

Tag auch :rolleyes:,

Leider habe ich immer noch ein problem mit meiner quest.
Hier erst mal die Quest:

Spoiler

HTML Code:

----------------------------------------------------
--Tempel des Drachen
----------------------------------------------------
quest tempel_of_dragon begin
	state start begin
		when logout with pc.get_map_index() == 408 and pc.getqf("drachenraumerlaubnis") == 1 begin
			game.set_event_flag("playerinroom", game.get_event_flag("playerinroom")-1)
			pc.setqf("dpbelohnung", 0)
			pc.setqf("drachenraumerlaubnis", 0)
		end
		
	when 30131.chat."Tempel des Drachen" begin
		if game.get_event_flag("drachenraumstatus") == 0 then
			game.set_event_flag("drachenraumstatus", 1)
			say_title(""..mob_name(30131).."")
			say("")
			say("Ihr wollt also Beran-Setaou bek�mpfen?")
			say("Das ist eine schwere St�ck Arbeit, ohne")
			say("eine starke Gruppe oder Gilde schaffste das")
			say("nicht. Wollt ihr es wirklich versuchen?")
			say("")
		local a = select("Wir sind bereit!", "Abbrechen")
		if a == 1 then
			say_title(""..mob_name(30131).."")
			say("")
			say("Gib hier ein Passwort ein, das auch")
			say("nur deine Gruppenmitglieder oder Gildenmitglieder")
			say("mit dir k�mpfen k�nnen. Vergiss nicht, ihnen das")
			say("Passwort zugeben.")
			say_reward("Achtung: Aber nur Zahlen als Passwort eingeben!")
		local passwort = tonumber(input(""))
		if passwort and passwort <= 999999999 then
			game.set_event_flag("drachenraum_passwort",passwort)
			say_title(""..mob_name(30131).."")
			say("")
			say("Das Passwort lautet:")
			say_reward(""..passwort.."")
			chat("Das Passwort f�r den Drachenraum: "..passwort.."")
			say("")
			say("Jetzt ist es soweit!")
			say("Der Kampf wird lange dauern. Aber wen ihr nicht")
			say("in 30 Minuten zur�ck seit, hole ich euch da raus.")
			say("Viel gl�ck!")
			say("")
			regen_in_map(408, "data/dungeon/drachenraum/1.txt")
			regen_in_map(408, "data/dungeon/drachenraum/2.txt")
			game.set_event_flag("drachenraumstatus", 2)
			pc.setqf("drachenraumerlaubnis", 1)
			wait()
			pc.warp(2801562, 2795021)
		else
			say_title(""..mob_name(30131).."")
			say("")
			say("Das Passwort ist entweder zu kurz oder zu lang!")
			say("Versuch es nochmal!")
			game.set_event_flag("drachenraumstatus", 0)
			end
		elseif a == 2 then
			game.set_event_flag("drachenraumstatus", 0)
			return
			end
		elseif game.get_event_flag("drachenraumstatus") == 2 then
			say_title(""..mob_name(30131).."")
			say("")
			say("Tut mir Leid, der Raum ist reseviert.")
			say("Willst du trotzdem gegen Beran-Setaou k�mpfen?")
			say("")
		local b = select("Ich will k�mpfen!", "Abbrechen")
		if b == 1 then
			say_title(""..mob_name(30131).."")
			say("")
			say("Mal sehen ob du das Passwort kennst!")
			say("Wenn du das Passwort f�r den Zugang hast,")
			say("dan lass ich dich eintreten.")
			say("")
		local passwort = tonumber(input(""))
		if game.get_event_flag("drachenraum_passwort") == passwort then
			say_title(""..mob_name(30131).."")
			say("")
			say("Das Passwort stimmt �berein.")
			say("Ich bringe dich in den Tempel des Drachen.")
			pc.setqf("drachenraumerlaubnis", 1)
			wait()
			pc.warp(2801562, 2795021)
		else
			say_title(""..mob_name(30131).."")
			say("")
			say("Das Passwort stimmt nicht �berein.")
			return
			end
		elseif b == 2 then
			return
			end
		else
			say_title(""..mob_name(30131).."")
			say("")
			say("Siehste du nicht das ich gerade rede?")
			say("Warte noch!")
			end
		end
	
	when 30131.chat."Drachenraum Configuration!" with pc.is_gm() begin
			say_title(""..mob_name(30131).."")
			say("")
			say("Ist etwa ein Fehler aufgetreten durch ein Reboot?")
			say("Soll ich schnell diesen Fehler beheben?")
		local z = select("Fehler beheben!", "Abbrechen")
		if z == 2 then
			return
		elseif z == 1 then
			clear_server_timer("drachenraumzu1", get_server_timer_arg())
			clear_server_timer("drachenraumzu2", get_server_timer_arg())
			clear_server_timer("drachenraumzu3", get_server_timer_arg())
			clear_server_timer("drachenraumzu4", get_server_timer_arg())
			clear_server_timer("drachenraumspawn", get_server_timer_arg())
			clear_server_timer("drachenraumspawn1", get_server_timer_arg())
			pc.setqf("dpbelohnung", 0)
			pc.setqf("drachenraumerlaubnis", 0)
			game.set_event_flag("dragondead", 0)
			game.set_event_flag("drachenraumstatus", 0)
			game.set_event_flag("playerinroom", 0)
			kill_all_in_map(408)
			kill_all_in_map(408)
			warp_all_to_village(408, 1)
			say_title(""..mob_name(30131).."")
			say("")
			say("Der Fehler m�sste behoben sein.")
			end
		end

	when login with pc.get_map_index() == 408 begin
		if game.get_event_flag("drachenraumtimerset") == 1 and pc.getqf("drachenraumerlaubnis") == 1 then
			notice("Schnell!")
			notice("Der Kampf gegen Beran-Setaou hat schon begonnen.")
			game.set_event_flag("playerinroom", game.get_event_flag("playerinroom")+1)
		elseif game.get_event_flag("drachenraumtimerset") == 0 and pc.getqf("drachenraumerlaubnis") == 1 then
			game.set_event_flag("playerinroom", 1)
			notice("Jetzt liegt es an dir und deinem Team!")
			notice("Der Kampf gegen Beran-Setaou hat begonnen.")
			server_timer("drachenraumspawn", 120, 408)
			server_timer("drachenraumzu1", 600, 408)
		else
			warp_to_village()
		end
	end
		
	when drachenraumspawn.server_timer with pc.get_map_index() == 408 and game.get_event_flag("drachenraumstatus") == 2 and game.get_event_flag("playerinroom") >= 1 begin
		server_timer("drachenraumspawn1", 120, 408)
		regen_in_map(408, "data/dungeon/drachenraum/2.txt")
	end

	when drachenraumspawn1.server_timer with pc.get_map_index() == 408 and game.get_event_flag("drachenraumstatus") == 2 and game.get_event_flag("playerinroom") >= 1 begin
		server_timer("drachenraumspawn", 120, 408)
		regen_in_map(408, "data/dungeon/drachenraum/2.txt")
	end

		when drachenraumzu1.server_timer with pc.get_map_index() == 408 and game.get_event_flag("drachenraumstatus") == 2 begin
		notice_in_map("Ihr habt noch 20 Minuten Zeit.")
		notice_in_map("Viel Gl�ck!")
		server_timer("drachenraumzu2", 600, 408)
	end

	when drachenraumzu2.server_timer with pc.get_map_index() == 408 and game.get_event_flag("drachenraumstatus") == 2 begin
		notice_in_map("Ihr habt noch 10 Minuten Zeit.")
		notice_in_map("Viel Gl�ck!")
		server_timer("drachenraumzu3", 300, 408)
	end

	when drachenraumzu3.server_timer with pc.get_map_index() == 408 and game.get_event_flag("drachenraumstatus") == 2 begin
		notice_in_map("Ihr habt noch 5 Minuten Zeit.")
		notice_in_map("Viel Gl�ck!")
		server_timer("drachenraumzu4", 300, 408)
	end

	when drachenraumzu4.server_timer with pc.get_map_index() == 408 and game.get_event_flag("drachenraumstatus") == 2 begin
		if game.get_event_flag("dragondead") == 1 then
			game.set_event_flag("dragondead", 0)
			pc.setqf("dpbelohnung", 0)
			pc.setqf("drachenraumerlaubnis", 0)
			game.set_event_flag("drachenraumstatus", 0)
			notice_in_map("Dass kann nicht sein, er ist wiederauferstanden.")
			notice_in_map("Ich hole euch jetzt da raus!")
			kill_all_in_map(408)
			kill_all_in_map(408)
			clear_server_timer("drachenraumzu1", get_server_timer_arg())
			clear_server_timer("drachenraumzu2", get_server_timer_arg())
			clear_server_timer("drachenraumzu3", get_server_timer_arg())
			clear_server_timer("drachenraumzu4", get_server_timer_arg())
			clear_server_timer("drachenraumspawn", get_server_timer_arg())
			clear_server_timer("drachenraumspawn1", get_server_timer_arg())
			warp_all_to_village(408, 1)
		else
			pc.setqf("dpbelohnung", 0)
			pc.setqf("drachenraumerlaubnis", 0)
			game.set_event_flag("drachenraumstatus", 0)
			notice_in_map("Ihr braucht zu lange.")
			notice_in_map("Ich hole euch jetzt da raus, es hat kein Sinn mehr.")
			kill_all_in_map(408)
			kill_all_in_map(408)
			clear_server_timer("drachenraumzu1", get_server_timer_arg())
			clear_server_timer("drachenraumzu2", get_server_timer_arg())
			clear_server_timer("drachenraumzu3", get_server_timer_arg())
			clear_server_timer("drachenraumzu4", get_server_timer_arg())
			clear_server_timer("drachenraumspawn", get_server_timer_arg())
			clear_server_timer("drachenraumspawn1", get_server_timer_arg())
			warp_all_to_village(408, 1)
		end
	end
		
	when kill with pc.get_map_index() == 408 and game.get_event_flag("drachenraumstatus") == 2 begin
		if npc.race == 2494 then
			notice_in_map("Ihr habt Beran-Setaou get�tet.")
			notice_in_map("Seine schreckens Herrschaft ist endg�ltig vorbei.")
			game.set_event_flag("dragondead", 1)
			game.set_event_flag("playerinroom", 0)
			server_timer("dpbelohnung", 5, 408)
		else
			end
		end
		
	when dpbelohnung.server_timer with pc.get_map_index() == 408 and game.get_event_flag("drachenraumstatus") == 2 begin
		notice_in_map("Ihr k�nnt euch jetzt eure Dungeonpunkte abholen!")
		mob.spawn(23004, 154, 173, 1)
		mob.spawn(9012, 245, 173, 1)
		pc.setqf("dpbelohnung", 0)
		server_timer("drachenraumzu4", 5, 408)
	end	
	
	--------------------------------------
	-- Dungeonpunkte verteilung
	--------------------------------------
	
	when 23004.chat."Dungeonpunkte" with pc.get_map_index() == 408 and game.get_event_flag("drachenraumstatus") == 2 begin
		if pc.getqf("dpbelohnung") == 0 then
			say_title("Gelehrter:")
			say("")			
			say("Herzlichen Gl�ckwunsch,")			
			say("du hast das Dungeon bezwungen, daf�r bekommst")			
			say("du eine Belohnung.")			
			say("Du erh�lst:")			
			say_reward("30 Dungeonpunkte")
			say("Viel gl�ck bei deinen Abenteuer.")
			chat("Du hast 30 Dungeonpunkte erhalten!")
			pc.setqf("dungeonpoint", pc.getqf("dungeonpoint")+30)
			pc.setqf("dpbelohnung", 1)
			wait()
			say_title("Gelehrter:")
			say("")
			say("Wenn du willst, kann ich dich in eine der")
			say("drei St�dte teleportieren.")	
			say_reward("In welche Stadt soll ich dich teleportiren?")
		local z = select("Shinsoo Reich!","Chunjo Reich!","Jinno Reich!","Abbrechen!")
		if z == 1 then
			pc.setqf("dpbelohnung", 0)
			pc.warp (469300, 964200)
		elseif z == 2 then
			pc.setqf("dpbelohnung", 0)
			pc.warp (55700, 157900)  
		elseif z == 3 then 
			pc.setqf("dpbelohnung", 0)
			pc.warp (969600, 278400)
		elseif z == 4 then
			return
		else
			say_title("Gelehrter:")
			say("")			
			say("Du hast bereits deine Belohnung erhalten.")			
			say("Ich kann dich aber in eine der drei")			
			say("St�dte teleportieren")			
			say_reward("In welche Stadt soll ich dich teleportiren?")			
		local y = select("Shinsoo Reich!","Chunjo Reich!","Jinno Reich!","Abbrechen!")
		if y == 1 then
			pc.setqf("dpbelohnung", 0)
			pc.warp (469300, 964200)
		elseif y == 2 then
			pc.setqf("dpbelohnung", 0)
			pc.warp (55700, 157900)  
		elseif y == 3 then 
			pc.setqf("dpbelohnung", 0)
			pc.warp (969600, 278400)
		elseif y == 4 then
			return
				end
				end
			end
		end
	end
end

Jetzt zu den Problem.
Wen ich mich �ber die quest in die map bringe, st�rzt der server nach 2 min ab. Also genau wen der erste server.timer endet. Habe aber mehere server.timer :D
Ich wei� nicht, ob die server timer richtig eingesetzt wurden sind.
W�r nett wen ihr mir helfen k�nntet und es berichtigen k�nntet :handsdown::handsdown:

MfG
Kriegergeist^^

Page 334 of 845

334