[SERVICE] Die Questkontrolle

08/24/2013 15:46 _Jimbo#8821
Code:
quest sdentry begin
	state start begin
		when 20090.chat."BlackSky2 Drachengottrun" begin
			if pc.count_item("71123") < 1 then
				say("Dieses Tor lässt sich nur mit der")
				say("Wasserdrachen Schuppe öffnen. Diesen Schlüssel")
				say("droppst du vom Wasserdrachen im Drachenraum Run.")d.new_jump_all(193, 881, 6149)
			elseif pc.count_item("71123") >= 1 then
					say("Ihr habt den Wasserdrachen besiegt und")
					say("eine Wasserdrachen Schuppe ergattert?")
					say("Ihr seid wahrlich bereit gegen die Bosse und den Minoking")
					say("zu kämpfen!")
					say("Ich teleporte euch jetzt.")
					party.warp(88100, 614900)
					d.setf("sd3_boss", 1)
					end
					
		when login with pc.in_dungeon() and d.getf("sd3_boss") == 1 begin
			d.new_jump_all(193, 881, 6149)
			d.spawn_mob(8027, 395, 581)
			d.setf("sd3_boss", 2)
			d.notice("Nun seid ihr im Drachengottraum")
			d.notice("Stellt euch auf viele Bosse und Herausforderungen ein.")
			d.notice("Viel Spaß wünscht euch nun das BlackSky2 Team")
			end
			
		when 8027.kill with pc.in_dungeon() and d.getf("sd3_boss") == 2 begin
			d.notice("Den 1. Metin habt ihr nun Geschafft aber es wird noch viel schwerer")
			d.notice("Jetzt zerstört den Metin der Vernunft !")
			d.spawn_mob(8035, 368, 551)
			d.setf("sd3_boss", 3)
			end
		
		when 8035.kill with pc.in_dungeon() and d.getf("sd3_boss") == 3 begin
			d.notice("Ihr habt den 1. Metin gekillt aber nun wird es noch viel schwerer !")
			d.notice("Schnappt euch den nächsten Metin")
			d.notice("Da ist er der Metin des Lichts")
			d.spawn_mob(8036, 365, 581)
			d.setf("sd3_boss", 4)
			end

		when 8036.kill with pc.in_dungeon() and d.getf("sd3_boss") == 4 begin
			d.notice("Ihr seit echt starke Spieler")
			d.notice("Doch nur die stärksten von euch können überleben!")
			d.notice("Nun geht es weiter mit etwas sehr starkem.")
			d.spawn_mob(8037, 336, 591)
			d.setf("sd3_boss", 5)
			end
			
		when 8037.kill with pc.in_dungeon() and d.getf("sd3_boss") == 5 begin
			d.notice("Der Metin der Verzweiflung")
			d.notice("Ihr seid sehr stark")
			d.notice("Doch nun macht euch bereit ! Jetzt kommen noch ein paar leichte Monster")
			d.notice("bevor ihr gegen die Bosse antretet ")
			d.setf("sd3_boss", 6)
			d.spawn_mob(1093, 383, 576)
			end
		
		when 1093.kill with pc.in_dungeon() and d.getf("sd3_boss") == 6 begin
			d.setf("sd3_boss", 7)
			d.notice("Schnappt euch nun den Blauen Tod und killt nacheinander die Bosse um zum Minoking zu gelangen")
			d.spawn_mob(1095, 336, 591)
			end
		
		when 1095.kill with pc.in_dungeon() and d.getf("sd3_boss") == 7 begin
			d.setf("sd3_boss", 8)
			d.notice("Haut nun den Geisterbaumlord down")
			d.spawn_mob(2307, 336, 591)
			end
		
		when 2307.kill with pc.in_dungeon() and d.getf("sd3_boss") == 8 begin
			d.setf("sd3_boss", 9)
			d.notice("Tötet den Dunklen Flammenkönig. ")
			d.spawn_mob(2207, 336, 591)
			end
		
		when 2207.kill with pc.in_dungeon() and d.getf("sd3_boss") == 9 begin
			d.setf("sd3_boss", 10)
			d.notice("Tötet jetzt den Elitären Neunschwanz ")
			d.spawn_mob(1902, 336, 591)
			end
		
		when 1902.kill with pc.in_dungeon() and d.getf("sd3_boss") == 10 begin
			d.setf("sd3_boss", 11)
			d.notice("Tötet nun auch die Eixhexe um aufzusteigen")
			d.spawn_mob(1192, 336, 591)
			end
		when 1192.kill with pc.in_dungeon() and d.getf("sd3_boss") == 11 begin
			d.setf("sd3_boss", 12)
			d.notice("Nun habt ihr auch die Bosse getötet ihr seid nun bereit für die Endgegner")
			d.notice("Los meine Tapferen Freunde schnappt euch den Metin der Geduld")
			d.spawn_mob(8038, 336, 591)
			end
			
		when 8038.kill with pc.in_dungeon() and d.getf("sd3_boss") == 12 begin
			d.notice("Ihr habt es nun bis zum Minoking geschafft!")
			d.notice("Den Metin der Geduld zu schaffen ist eine hervorragende Leistung")
			d.notice("Nun könnt ihr euch einen Tresor vom Minoking droppen")
			d.spawn_mob(2619, 371, 580)
			d.setf("sd3_boss", 13)
			end
			
		when 2619.kill with pc.in_dungeon() and d.getf("sd3_boss") == 13 begin
			d.notice("Ihr habt es wirklich geschafft die ganzen Bosse und den Minoking zu töten!")
			d.notice("Ihr seit wahre Kämpfer!")
			d.notice("Ihr werdet in 10 Sekunden in euer Dorf teleportiert.")
			kill_all_in_map(401) 
			game.set_event_flag("sd3_zugang",0)
			d.setf("sd3_boss", 0)			
			d.exit_all()
			end
			
		when login with pc.in_dungeon() and d.getf("sd3_boss") = 2 begin
			pc.warp(863900,246000)
			end
			
		end
	end
end
syntax error : [string "start"]:14: unexpected symbol near `when'
sd3bruthoehle.quest:117:Abort trap (core dumped)
08/24/2013 16:20 G.I Duke#8822
Quote:
Originally Posted by _Jimbo View Post
Code:
quest sdentry begin
	state start begin
		when 20090.chat."BlackSky2 Drachengottrun" begin
			if pc.count_item("71123") < 1 then
				say("Dieses Tor lässt sich nur mit der")
				say("Wasserdrachen Schuppe öffnen. Diesen Schlüssel")
				say("droppst du vom Wasserdrachen im Drachenraum Run.")d.new_jump_all(193, 881, 6149)
			elseif pc.count_item("71123") >= 1 then
					say("Ihr habt den Wasserdrachen besiegt und")
					say("eine Wasserdrachen Schuppe ergattert?")
					say("Ihr seid wahrlich bereit gegen die Bosse und den Minoking")
					say("zu kämpfen!")
					say("Ich teleporte euch jetzt.")
					party.warp(88100, 614900)
					d.setf("sd3_boss", 1)
					end
					
		when login with pc.in_dungeon() and d.getf("sd3_boss") == 1 begin
			d.new_jump_all(193, 881, 6149)
			d.spawn_mob(8027, 395, 581)
			d.setf("sd3_boss", 2)
			d.notice("Nun seid ihr im Drachengottraum")
			d.notice("Stellt euch auf viele Bosse und Herausforderungen ein.")
			d.notice("Viel Spaß wünscht euch nun das BlackSky2 Team")
			end
			
		when 8027.kill with pc.in_dungeon() and d.getf("sd3_boss") == 2 begin
			d.notice("Den 1. Metin habt ihr nun Geschafft aber es wird noch viel schwerer")
			d.notice("Jetzt zerstört den Metin der Vernunft !")
			d.spawn_mob(8035, 368, 551)
			d.setf("sd3_boss", 3)
			end
		
		when 8035.kill with pc.in_dungeon() and d.getf("sd3_boss") == 3 begin
			d.notice("Ihr habt den 1. Metin gekillt aber nun wird es noch viel schwerer !")
			d.notice("Schnappt euch den nächsten Metin")
			d.notice("Da ist er der Metin des Lichts")
			d.spawn_mob(8036, 365, 581)
			d.setf("sd3_boss", 4)
			end

		when 8036.kill with pc.in_dungeon() and d.getf("sd3_boss") == 4 begin
			d.notice("Ihr seit echt starke Spieler")
			d.notice("Doch nur die stärksten von euch können überleben!")
			d.notice("Nun geht es weiter mit etwas sehr starkem.")
			d.spawn_mob(8037, 336, 591)
			d.setf("sd3_boss", 5)
			end
			
		when 8037.kill with pc.in_dungeon() and d.getf("sd3_boss") == 5 begin
			d.notice("Der Metin der Verzweiflung")
			d.notice("Ihr seid sehr stark")
			d.notice("Doch nun macht euch bereit ! Jetzt kommen noch ein paar leichte Monster")
			d.notice("bevor ihr gegen die Bosse antretet ")
			d.setf("sd3_boss", 6)
			d.spawn_mob(1093, 383, 576)
			end
		
		when 1093.kill with pc.in_dungeon() and d.getf("sd3_boss") == 6 begin
			d.setf("sd3_boss", 7)
			d.notice("Schnappt euch nun den Blauen Tod und killt nacheinander die Bosse um zum Minoking zu gelangen")
			d.spawn_mob(1095, 336, 591)
			end
		
		when 1095.kill with pc.in_dungeon() and d.getf("sd3_boss") == 7 begin
			d.setf("sd3_boss", 8)
			d.notice("Haut nun den Geisterbaumlord down")
			d.spawn_mob(2307, 336, 591)
			end
		
		when 2307.kill with pc.in_dungeon() and d.getf("sd3_boss") == 8 begin
			d.setf("sd3_boss", 9)
			d.notice("Tötet den Dunklen Flammenkönig. ")
			d.spawn_mob(2207, 336, 591)
			end
		
		when 2207.kill with pc.in_dungeon() and d.getf("sd3_boss") == 9 begin
			d.setf("sd3_boss", 10)
			d.notice("Tötet jetzt den Elitären Neunschwanz ")
			d.spawn_mob(1902, 336, 591)
			end
		
		when 1902.kill with pc.in_dungeon() and d.getf("sd3_boss") == 10 begin
			d.setf("sd3_boss", 11)
			d.notice("Tötet nun auch die Eixhexe um aufzusteigen")
			d.spawn_mob(1192, 336, 591)
			end
		when 1192.kill with pc.in_dungeon() and d.getf("sd3_boss") == 11 begin
			d.setf("sd3_boss", 12)
			d.notice("Nun habt ihr auch die Bosse getötet ihr seid nun bereit für die Endgegner")
			d.notice("Los meine Tapferen Freunde schnappt euch den Metin der Geduld")
			d.spawn_mob(8038, 336, 591)
			end
			
		when 8038.kill with pc.in_dungeon() and d.getf("sd3_boss") == 12 begin
			d.notice("Ihr habt es nun bis zum Minoking geschafft!")
			d.notice("Den Metin der Geduld zu schaffen ist eine hervorragende Leistung")
			d.notice("Nun könnt ihr euch einen Tresor vom Minoking droppen")
			d.spawn_mob(2619, 371, 580)
			d.setf("sd3_boss", 13)
			end
			
		when 2619.kill with pc.in_dungeon() and d.getf("sd3_boss") == 13 begin
			d.notice("Ihr habt es wirklich geschafft die ganzen Bosse und den Minoking zu töten!")
			d.notice("Ihr seit wahre Kämpfer!")
			d.notice("Ihr werdet in 10 Sekunden in euer Dorf teleportiert.")
			kill_all_in_map(401) 
			game.set_event_flag("sd3_zugang",0)
			d.setf("sd3_boss", 0)			
			d.exit_all()
			end
			
		when login with pc.in_dungeon() and d.getf("sd3_boss") = 2 begin
			pc.warp(863900,246000)
			end
			
		end
	end
end
syntax error : [string "start"]:14: unexpected symbol near `when'
sd3bruthoehle.quest:117:Abort trap (core dumped)
PHP Code:
quest sd3bruthoehle begin
    state start begin
        when 20090.chat
."BlackSky2 Drachengottrun" begin
            
if pc.count_item("71123") < 1 then
                say
("Dieses Tor lässt sich nur mit der")
                
say("Wasserdrachen Schuppe öffnen. Diesen Schlüssel")
                
say("droppst du vom Wasserdrachen im Drachenraum Run.")
                
d.new_jump_all(193, 881, 6149)
            elseif 
pc.count_item("71123") >= 1 then
                    say
("Ihr habt den Wasserdrachen besiegt und")
                    
say("eine Wasserdrachen Schuppe ergattert?")
                    
say("Ihr seid wahrlich bereit gegen die Bosse und den Minoking")
                    
say("zu kämpfen!")
                    
say("Ich teleporte euch jetzt.")
                    
party.warp(88100, 614900)
                    
d.setf("sd3_boss", 1)
                
end
            end
                    
        when login with pc
.in_dungeon() and d.getf("sd3_boss") == 1 begin
            d
.new_jump_all(193, 881, 6149)
            
d.spawn_mob(8027, 395, 581)
            
d.setf("sd3_boss", 2)
            
d.notice("Nun seid ihr im Drachengottraum")
            
d.notice("Stellt euch auf viele Bosse und Herausforderungen ein.")
            
d.notice("Viel Spaß wünscht euch nun das BlackSky2 Team")
            
end
            
        when 8027.kill with pc
.in_dungeon() and d.getf("sd3_boss") == 2 begin
            d
.notice("Den 1. Metin habt ihr nun Geschafft aber es wird noch viel schwerer")
            
d.notice("Jetzt zerstört den Metin der Vernunft !")
            
d.spawn_mob(8035, 368, 551)
            
d.setf("sd3_boss", 3)
            
end
        
        when 8035.kill with pc
.in_dungeon() and d.getf("sd3_boss") == 3 begin
            d
.notice("Ihr habt den 1. Metin gekillt aber nun wird es noch viel schwerer !")
            
d.notice("Schnappt euch den nächsten Metin")
            
d.notice("Da ist er der Metin des Lichts")
            
d.spawn_mob(8036, 365, 581)
            
d.setf("sd3_boss", 4)
            
end

        when 8036.kill with pc
.in_dungeon() and d.getf("sd3_boss") == 4 begin
            d
.notice("Ihr seit echt starke Spieler")
            
d.notice("Doch nur die stärksten von euch können überleben!")
            
d.notice("Nun geht es weiter mit etwas sehr starkem.")
            
d.spawn_mob(8037, 336, 591)
            
d.setf("sd3_boss", 5)
            
end
            
        when 8037.kill with pc
.in_dungeon() and d.getf("sd3_boss") == 5 begin
            d
.notice("Der Metin der Verzweiflung")
            
d.notice("Ihr seid sehr stark")
            
d.notice("Doch nun macht euch bereit ! Jetzt kommen noch ein paar leichte Monster")
            
d.notice("bevor ihr gegen die Bosse antretet ")
            
d.setf("sd3_boss", 6)
            
d.spawn_mob(1093, 383, 576)
            
end
        
        when 1093.kill with pc
.in_dungeon() and d.getf("sd3_boss") == 6 begin
            d
.setf("sd3_boss", 7)
            
d.notice("Schnappt euch nun den Blauen Tod und killt nacheinander die Bosse um zum Minoking zu gelangen")
            
d.spawn_mob(1095, 336, 591)
            
end
        
        when 1095.kill with pc
.in_dungeon() and d.getf("sd3_boss") == 7 begin
            d
.setf("sd3_boss", 8)
            
d.notice("Haut nun den Geisterbaumlord down")
            
d.spawn_mob(2307, 336, 591)
            
end
        
        when 2307.kill with pc
.in_dungeon() and d.getf("sd3_boss") == 8 begin
            d
.setf("sd3_boss", 9)
            
d.notice("Tötet den Dunklen Flammenkönig. ")
            
d.spawn_mob(2207, 336, 591)
            
end
        
        when 2207.kill with pc
.in_dungeon() and d.getf("sd3_boss") == 9 begin
            d
.setf("sd3_boss", 10)
            
d.notice("Tötet jetzt den Elitären Neunschwanz ")
            
d.spawn_mob(1902, 336, 591)
            
end
        
        when 1902.kill with pc
.in_dungeon() and d.getf("sd3_boss") == 10 begin
            d
.setf("sd3_boss", 11)
            
d.notice("Tötet nun auch die Eixhexe um aufzusteigen")
            
d.spawn_mob(1192, 336, 591)
            
end
        when 1192.kill with pc
.in_dungeon() and d.getf("sd3_boss") == 11 begin
            d
.setf("sd3_boss", 12)
            
d.notice("Nun habt ihr auch die Bosse getötet ihr seid nun bereit für die Endgegner")
            
d.notice("Los meine Tapferen Freunde schnappt euch den Metin der Geduld")
            
d.spawn_mob(8038, 336, 591)
            
end
            
        when 8038.kill with pc
.in_dungeon() and d.getf("sd3_boss") == 12 begin
            d
.notice("Ihr habt es nun bis zum Minoking geschafft!")
            
d.notice("Den Metin der Geduld zu schaffen ist eine hervorragende Leistung")
            
d.notice("Nun könnt ihr euch einen Tresor vom Minoking droppen")
            
d.spawn_mob(2619, 371, 580)
            
d.setf("sd3_boss", 13)
            
end
            
        when 2619.kill with pc
.in_dungeon() and d.getf("sd3_boss") == 13 begin
            d
.notice("Ihr habt es wirklich geschafft die ganzen Bosse und den Minoking zu töten!")
            
d.notice("Ihr seit wahre Kämpfer!")
            
d.notice("Ihr werdet in 10 Sekunden in euer Dorf teleportiert.")
            
kill_all_in_map(401) 
            
game.set_event_flag("sd3_zugang",0)
            
d.setf("sd3_boss", 0)            
            
d.exit_all()
            
end
            
        when login with pc
.in_dungeon() and d.getf("sd3_boss") = 2 begin
            pc
.warp(863900,246000)
            
end
            
    end
end 
08/24/2013 16:21 _Jimbo#8823
Code:
quest sd3bruthoehle begin
	state start begin
		when 20090.chat."BlackSky2 Drachengottrun" begin
			if pc.count_item("71123") < 1 then
				say("Dieses Tor lässt sich nur mit der")
				say("Wasserdrachen Schuppe öffnen. Diesen Schlüssel")
				say("droppst du vom Wasserdrachen im Drachenraum Run.")
				wait()
				d.new_jump_all(193, 881, 6149)
			elseif pc.count_item("71123") >= 1 then
					say("Ihr habt den Wasserdrachen besiegt und")
					say("eine Wasserdrachen Schuppe ergattert?")
					say("Ihr seid wahrlich bereit gegen die Bosse und den Minoking")
					say("zu kämpfen!")
					say("Ich teleporte euch jetzt.")
					pc.warp(88100, 614900)
					d.setf("sd3_boss", 1)
				end
			end
					
		when login with pc.in_dungeon() and d.getf("sd3_boss") == 1 begin
			d.new_jump_all(193, 881, 6149)
			d.spawn_mob(8027, 395, 581)
			d.setf("sd3_boss", 2)
			d.notice("Nun seid ihr im Drachengottraum")
			d.notice("Stellt euch auf viele Bosse und Herausforderungen ein.")
			d.notice("Viel Spaß wünscht euch nun das BlackSky2 Team")
			end
			
		when 8027.kill with pc.in_dungeon() and d.getf("sd3_boss") == 2 begin
			d.notice("Den 1. Metin habt ihr nun Geschafft aber es wird noch viel schwerer")
			d.notice("Jetzt zerstört den Metin der Vernunft !")
			d.spawn_mob(8035, 368, 551)
			d.setf("sd3_boss", 3)
			end
		
		when 8035.kill with pc.in_dungeon() and d.getf("sd3_boss") == 3 begin
			d.notice("Ihr habt den 1. Metin gekillt aber nun wird es noch viel schwerer !")
			d.notice("Schnappt euch den nächsten Metin")
			d.notice("Da ist er der Metin des Lichts")
			d.spawn_mob(8036, 365, 581)
			d.setf("sd3_boss", 4)
			end

		when 8036.kill with pc.in_dungeon() and d.getf("sd3_boss") == 4 begin
			d.notice("Ihr seit echt starke Spieler")
			d.notice("Doch nur die stärksten von euch können überleben!")
			d.notice("Nun geht es weiter mit etwas sehr starkem.")
			d.spawn_mob(8037, 336, 591)
			d.setf("sd3_boss", 5)
			end
			
		when 8037.kill with pc.in_dungeon() and d.getf("sd3_boss") == 5 begin
			d.notice("Der Metin der Verzweiflung")
			d.notice("Ihr seid sehr stark")
			d.notice("Doch nun macht euch bereit ! Jetzt kommen noch ein paar leichte Monster")
			d.notice("bevor ihr gegen die Bosse antretet ")
			d.setf("sd3_boss", 6)
			d.spawn_mob(1093, 383, 576)
			end
		
		when 1093.kill with pc.in_dungeon() and d.getf("sd3_boss") == 6 begin
			d.setf("sd3_boss", 7)
			d.notice("Schnappt euch nun den Blauen Tod und killt nacheinander die Bosse um zum Minoking zu gelangen")
			d.spawn_mob(1095, 336, 591)
			end
		
		when 1095.kill with pc.in_dungeon() and d.getf("sd3_boss") == 7 begin
			d.setf("sd3_boss", 8)
			d.notice("Haut nun den Geisterbaumlord down")
			d.spawn_mob(2307, 336, 591)
			end
		
		when 2307.kill with pc.in_dungeon() and d.getf("sd3_boss") == 8 begin
			d.setf("sd3_boss", 9)
			d.notice("Tötet den Dunklen Flammenkönig. ")
			d.spawn_mob(2207, 336, 591)
			end
		
		when 2207.kill with pc.in_dungeon() and d.getf("sd3_boss") == 9 begin
			d.setf("sd3_boss", 10)
			d.notice("Tötet jetzt den Elitären Neunschwanz ")
			d.spawn_mob(1902, 336, 591)
			end
		
		when 1902.kill with pc.in_dungeon() and d.getf("sd3_boss") == 10 begin
			d.setf("sd3_boss", 11)
			d.notice("Tötet nun auch die Eixhexe um aufzusteigen")
			d.spawn_mob(1192, 336, 591)
			end
		when 1192.kill with pc.in_dungeon() and d.getf("sd3_boss") == 11 begin
			d.setf("sd3_boss", 12)
			d.notice("Nun habt ihr auch die Bosse getötet ihr seid nun bereit für die Endgegner")
			d.notice("Los meine Tapferen Freunde schnappt euch den Metin der Geduld")
			d.spawn_mob(8038, 336, 591)
			end
			
		when 8038.kill with pc.in_dungeon() and d.getf("sd3_boss") == 12 begin
			d.notice("Ihr habt es nun bis zum Minoking geschafft!")
			d.notice("Den Metin der Geduld zu schaffen ist eine hervorragende Leistung")
			d.notice("Nun könnt ihr euch einen Tresor vom Minoking droppen")
			d.spawn_mob(2619, 371, 580)
			d.setf("sd3_boss", 13)
			end
			
		when 2619.kill with pc.in_dungeon() and d.getf("sd3_boss") == 13 begin
			d.notice("Ihr habt es wirklich geschafft die ganzen Bosse und den Minoking zu töten!")
			d.notice("Ihr seit wahre Kämpfer!")
			d.notice("Ihr werdet in 10 Sekunden in euer Dorf teleportiert.")
			kill_all_in_map(401) 
			game.set_event_flag("sd3_zugang",0)
			d.setf("sd3_boss", 0)			
			d.exit_all()
			end
			
		when login with pc.in_dungeon() and d.getf("sd3_boss") == 2 begin
			pc.warp(863900,246000)
			end
			
	end
end

must start with 'quest'
sd3bruthoehle.quest:1:Abort trap (core dumped)
08/24/2013 17:17 AreSleepLess#8824
Bei mir geht die drachenrun quest nicht so ganz kan mir jemand weiter helfen ?


Quest
08/24/2013 17:25 G.I Duke#8825
Quote:
Originally Posted by AreSleepLess View Post
Bei mir geht die drachenrun quest nicht so ganz kan mir jemand weiter helfen ?


Quest
Fehlermeldung? Fehler definierung?
08/24/2013 18:03 AreSleepLess#8826
Quote:
Originally Posted by .мαяfυ™ View Post
Fehlermeldung? Fehler definierung?
Naja keine Fehlermeldung aba sie funtz einfach nicht ich werde in den raum geportet sa steht kein stein auch wen ich ein stein da hin stelle und den kille passirt nix
08/24/2013 18:28 G.I Duke#8827
Quote:
Originally Posted by AreSleepLess View Post
Naja keine Fehlermeldung aba sie funtz einfach nicht ich werde in den raum geportet sa steht kein stein auch wen ich ein stein da hin stelle und den kille passirt nix
den Stein würd ich per Filezilla rein stellen also
durch die spawn.txt oder stone.txt .. und halt die
Spawnzeit so einstellen wie lang der run max. geht
zur quest addest mich mal Skype
08/24/2013 21:05 Krittiker#8828
PHP Code:

    quest saphirrusi begin
            state start begin
                    when login 
or levelup with pc.get_level()>= 90 begin
                            set_state
(info)
                    
end
            end
            state info begin
                    when letter begin
                            send_letter
("Die Zeit ist Reif!")
                            
local v = find_npc_by_vnum(20011)
                if 
v != 0 then
                    target
.vid("target1", v, "Uriel")
                
end
                    end
                    when button 
or info begin
                            say_title
("Die Zeit ist Reif!")
                            
say("Uriel erwartet dich!")
                            
say("Es wird gemunkelt, dass")
                            
say("neue Rüstungen aufgetaucht sind!")
                            
say("Schnell - geh zu ihm!")
                    
end
                    when target1
.target.click or 20011.chat."Finde die Edelsteinrüstungen" begin  
                            target
.delete("target1")
                            
say_title("Uriel")
                            
say("Ich habe entdeckt, dass es unglaubliche")
                            
say("Edelsteinrüstungen gab.")
                            
say("Leider fehlen mir die Gegenstände")
                            
say("um sie für dich herzustellen.")
                            
say("Es wäre mit Sicherheit eine leichte")
                            
say("Aufgabe für dich diese zu besorgen.")
                            
say("...")
                            
wait()
                            
say_title("Uriel")
                            
say("Es gibt Anzeichen, dass du die")
                            
say("Gegenstände im Geisterwald, Berg Sohan")
                            
say("bzw. im Feuerland findest.")
                            
say("…")
                            
wait()
                            
say("Auf was wartest du noch?")
                            
say("Ich bin auch nicht mehr der Jüngste!")
                            
clear_letter()
                            
set_state(SearchUppItems)
                            
pc.setqf("collect_count",0)
                            
pc.setqf("killcountone",0)
                    
end
            end
            state SearchUppItems begin
                    when letter begin
                            send_letter
("Suche die Gegenstände")                  
                    
end
                    when button 
or info begin
                            say_title
("Die Suche beginnt!")
                            
say("Töte die Monster im Tiefen vom")
                            
say("Berg Sohan um die alten Gegenstände")
                            
say("zu finden.")
                    
end
                    local killcountice 
= number(1,50)
                     
when 1107.kill begin
                        local killco 
= pc.getqf("killcountone")+1
                            
if pc.getqf("killcountone")==30 then
                                    local count 
= pc.getqf("collect_count")+1
                                    
if pc.count_item(30146)<15 then
                                    pc
.give_item2(30146, 1)
                                    
pc.setqf("collect_count",count)
                                    
killcountice = 0
                                    end
                                    
if count==15 then
                                            set_state
(to_uriel1)
                                    
end
                            end
                    end
            end
            state to_uriel1 begin
                    when letter begin
                            send_letter
("Gehe zu Uriel")
                            
local v = find_npc_by_vnum(20011)
                if 
v != 0 then
                    target
.vid("target2", v, "Uriel")
                
end
                    end
                    when button 
or info begin
                            say_title
("Finde die Edelsteinrüstungen")
                            
say("Du hast die Gegenstände! Bringe sie")
                            
say("zu Uriel.")
                    
end
                    when target2
.target.click or 20011.chat."Die erste Rüstung" begin     
                            target
.delete("target2")
                            
say_title("Die erste Rüstung")
                            
say("Wahnsinn, du hast sie gefunden!")
                            
say("...")
                            
say("Es gibt sie also wirklich.")
                            
say("...")
                            
say("Bring mir noch eine deiner Level 66er+9 Rüstungen")
                            
say("Ich glaube mit einer dieser kann ich dir eine")
                            
say("Saphir-Rüstung erstellen!")
                            
say("...")
                            
wait()
                            
say("Die Eisklumpen nehm ich mir jetzt gleich.")
                            
say("Beeile dich bevor sie schmelzen!")
                            
pc.remove_item(30146, 15)
                            
clear_letter()
                            
set_state(SaphirPoint1)
                    
end
            end
            state SpahirPoint1 begin
                    when letter begin
                            send_letter
("Gehe zu Uriel")
                            
local v = find_npc_by_vnum(20011)
                if 
v != 0 then
                    target
.vid("target3", v, "Uriel")
                
end
                    end
                    when button 
or info begin
                            say_title
("Die erste Rüstung")
                            
say("Bringe Uriel eine 66er+9 Rüstung")
                            
say("Mit etwas Glück bist du bald der")
                            
say("Besitzer einer einzigartigen Rüstung")
                    
end
                    when target3
.target.click or 20011.chat."Die erste Rüstung" begin     
                            target
.delete("target2")
                            
say_title("Die erste Rüstung")
                            
say("Da bist du ja endlich!")
                            
say("Ich habe schon so lange darauf gewartet")
                            
say("eine von diesen Rüstungen herzustellen")
                            
wait()
                            if 
pc.get_job()==0 then
                                    pc
.remove_item(11299,1)
                            
end
                            
if pc.get_job()==1 then
                                    pc
.remove_item(11499,1)
                            
end
                            
if pc.get_job()==2 then
                                    pc
.remove_item(11699,1)
                            
end
                            
if pc.get_job()==3 then
                                    pc
.remove_item(11899,1)
                            
end
                            say
("...")
                            
wait()
                            
clear_letter()
                            
say("Es ist vollbracht")
                            
say("Ich habe sie fertig gestellt!")
                            
say("...")
                            
say("Hier ist sie deine Saphirrüstung:")
                            if 
pc.get_job()==0 then
                                    say
(42010)
                                    
pc.give_item2(42010,1)
                            
end
                            
if pc.get_job()==1 then
                                    say
(44010)
                                    
pc.give_item2(44010,1)
                            
end
                            
if pc.get_job()==2 then
                                    say
(46010)
                                    
pc.give_item2(46010,1)
                            
end
                            
if pc.get_job()==3 then
                                    say
(48010)
                                    
pc.give_item2(48010,1)
                            
end
                            say
("Ich hoffe, dass ich bald wieder etwas")
                            
say("in den alten Schriften für dich entdecke.")
                            
set_state(complete)
                    
end
            end
            state complete begin
            end
    end 
Error on compiling saphirrusi.quest :S hat hjmd hilfe?
08/25/2013 11:33 G.I Duke#8829
Quote:
Originally Posted by Krittiker View Post
PHP Code:

    quest saphirrusi begin
            state start begin
                    when login 
or levelup with pc.get_level()>= 90 begin
                            set_state
(info)
                    
end
            end
            state info begin
                    when letter begin
                            send_letter
("Die Zeit ist Reif!")
                            
local v = find_npc_by_vnum(20011)
                if 
v != 0 then
                    target
.vid("target1", v, "Uriel")
                
end
                    end
                    when button 
or info begin
                            say_title
("Die Zeit ist Reif!")
                            
say("Uriel erwartet dich!")
                            
say("Es wird gemunkelt, dass")
                            
say("neue Rüstungen aufgetaucht sind!")
                            
say("Schnell - geh zu ihm!")
                    
end
                    when target1
.target.click or 20011.chat."Finde die Edelsteinrüstungen" begin  
                            target
.delete("target1")
                            
say_title("Uriel")
                            
say("Ich habe entdeckt, dass es unglaubliche")
                            
say("Edelsteinrüstungen gab.")
                            
say("Leider fehlen mir die Gegenstände")
                            
say("um sie für dich herzustellen.")
                            
say("Es wäre mit Sicherheit eine leichte")
                            
say("Aufgabe für dich diese zu besorgen.")
                            
say("...")
                            
wait()
                            
say_title("Uriel")
                            
say("Es gibt Anzeichen, dass du die")
                            
say("Gegenstände im Geisterwald, Berg Sohan")
                            
say("bzw. im Feuerland findest.")
                            
say("…")
                            
wait()
                            
say("Auf was wartest du noch?")
                            
say("Ich bin auch nicht mehr der Jüngste!")
                            
clear_letter()
                            
set_state(SearchUppItems)
                            
pc.setqf("collect_count",0)
                            
pc.setqf("killcountone",0)
                    
end
            end
            state SearchUppItems begin
                    when letter begin
                            send_letter
("Suche die Gegenstände")                  
                    
end
                    when button 
or info begin
                            say_title
("Die Suche beginnt!")
                            
say("Töte die Monster im Tiefen vom")
                            
say("Berg Sohan um die alten Gegenstände")
                            
say("zu finden.")
                    
end
                    local killcountice 
= number(1,50)
                     
when 1107.kill begin
                        local killco 
= pc.getqf("killcountone")+1
                            
if pc.getqf("killcountone")==30 then
                                    local count 
= pc.getqf("collect_count")+1
                                    
if pc.count_item(30146)<15 then
                                    pc
.give_item2(30146, 1)
                                    
pc.setqf("collect_count",count)
                                    
killcountice = 0
                                    end
                                    
if count==15 then
                                            set_state
(to_uriel1)
                                    
end
                            end
                    end
            end
            state to_uriel1 begin
                    when letter begin
                            send_letter
("Gehe zu Uriel")
                            
local v = find_npc_by_vnum(20011)
                if 
v != 0 then
                    target
.vid("target2", v, "Uriel")
                
end
                    end
                    when button 
or info begin
                            say_title
("Finde die Edelsteinrüstungen")
                            
say("Du hast die Gegenstände! Bringe sie")
                            
say("zu Uriel.")
                    
end
                    when target2
.target.click or 20011.chat."Die erste Rüstung" begin     
                            target
.delete("target2")
                            
say_title("Die erste Rüstung")
                            
say("Wahnsinn, du hast sie gefunden!")
                            
say("...")
                            
say("Es gibt sie also wirklich.")
                            
say("...")
                            
say("Bring mir noch eine deiner Level 66er+9 Rüstungen")
                            
say("Ich glaube mit einer dieser kann ich dir eine")
                            
say("Saphir-Rüstung erstellen!")
                            
say("...")
                            
wait()
                            
say("Die Eisklumpen nehm ich mir jetzt gleich.")
                            
say("Beeile dich bevor sie schmelzen!")
                            
pc.remove_item(30146, 15)
                            
clear_letter()
                            
set_state(SaphirPoint1)
                    
end
            end
            state SpahirPoint1 begin
                    when letter begin
                            send_letter
("Gehe zu Uriel")
                            
local v = find_npc_by_vnum(20011)
                if 
v != 0 then
                    target
.vid("target3", v, "Uriel")
                
end
                    end
                    when button 
or info begin
                            say_title
("Die erste Rüstung")
                            
say("Bringe Uriel eine 66er+9 Rüstung")
                            
say("Mit etwas Glück bist du bald der")
                            
say("Besitzer einer einzigartigen Rüstung")
                    
end
                    when target3
.target.click or 20011.chat."Die erste Rüstung" begin     
                            target
.delete("target2")
                            
say_title("Die erste Rüstung")
                            
say("Da bist du ja endlich!")
                            
say("Ich habe schon so lange darauf gewartet")
                            
say("eine von diesen Rüstungen herzustellen")
                            
wait()
                            if 
pc.get_job()==0 then
                                    pc
.remove_item(11299,1)
                            
end
                            
if pc.get_job()==1 then
                                    pc
.remove_item(11499,1)
                            
end
                            
if pc.get_job()==2 then
                                    pc
.remove_item(11699,1)
                            
end
                            
if pc.get_job()==3 then
                                    pc
.remove_item(11899,1)
                            
end
                            say
("...")
                            
wait()
                            
clear_letter()
                            
say("Es ist vollbracht")
                            
say("Ich habe sie fertig gestellt!")
                            
say("...")
                            
say("Hier ist sie deine Saphirrüstung:")
                            if 
pc.get_job()==0 then
                                    say
(42010)
                                    
pc.give_item2(42010,1)
                            
end
                            
if pc.get_job()==1 then
                                    say
(44010)
                                    
pc.give_item2(44010,1)
                            
end
                            
if pc.get_job()==2 then
                                    say
(46010)
                                    
pc.give_item2(46010,1)
                            
end
                            
if pc.get_job()==3 then
                                    say
(48010)
                                    
pc.give_item2(48010,1)
                            
end
                            say
("Ich hoffe, dass ich bald wieder etwas")
                            
say("in den alten Schriften für dich entdecke.")
                            
set_state(complete)
                    
end
            end
            state complete begin
            end
    end 
Error on compiling saphirrusi.quest :S hat hjmd hilfe?
#Per Skype erfolgreich geholfen (x
08/25/2013 14:25 Rici#8830
PHP Code:
quest find_item begin
    state start begin
        when 9009.chat
."Item suchen" with isAdmin() begin
            say_title
(string.format("%s:", mob_name(string.format("%d", npc.get_race()))))
            
say()
            
say("Was möchtest du tun?")
            
local a = select("Namen suchen", "ID suchen", "Abbrechen")
            if 
a == 3 then return end
            
if a == 1 then
                say_title
("Namen suchen")
                
say()
                
say("Gib die ID ein!")
                
local id_in = tonumber(input())
                if 
type(id_in) ~= "number" then return end
                local name 
= mysql_query(string.format("SELECT name FROM player.item_proto WHERE vnum= %q;", id_in))
                if 
name then
                    say_title
("Namen suchen")
                    
say()
                    
say()
                    
say("Der Name für die ID : "..id_in.." lautet:")
                    
say()
                    
say(name[1][1])
                    return
                else
                    
say_title("Namen suchen")
                    
say()
                    
say()
                    
say("Leider gab es kein Ergebniss!")
                    return
                
end
            
elseif a == 2 then
                say_title
("ID suchen")
                
say()
                
say("Gib den Namen ein!")
                
local name_in = input()
                
local id = mysql_query(string.format("SELECT vnum FROM player.item_proto WHERE name= %q", name_in))
                if 
id then
                    say_title
("ID suchen")
                    
say()
                    
say("Die ID für den Namen : "..name_in.." lautet:")
                    
say()
                    
say(id[1][1])
                    return
                else
                    
say_title("Namen suchen")
                    
say()
                    
say()
                    
say("Leider gab es kein Ergebnis!")
                    return
                
end
            end
        end
    end
end 
[Only registered and activated users can see links. Click Here To Register...]
08/25/2013 14:35 AGU#8831
@Golecz: ganz einfach, die questfunktion "mysql_query" gibts in der quest_function liste nicht.
Ich glaube das hier ist ein How To wie man die questfunktion einbaut: [Only registered and activated users can see links. Click Here To Register...]
08/25/2013 16:25 Yiv#8832
Mal nach langer Zeit, wieder ein Fehler...

Code:
syntax error : [string "startgame . get_event_flag ( "monarch_election" ) == 1"]:43: `=' expected near `else'
monarch_election.quest:91:Error occured on compile monarch_election.quest
Quest:
PHP Code:
quest monarch_election begin
    state start begin
        when 20011.chat
."Königswahl-Event" with pc.get_name() == "[SA]Risiss" begin
            say_title
("Uriel:")
            
say("")
            
say("Was willst du machen?")
            
say("")
            
local gm = select("An-/Ausschalten", "Abbrechen")
            if 
1 == gm then
                
if game.get_event_flag("monarch_election") == 0 then
                    game
.set_event_flag("monarch_election", 1)
                elseif 
game.get_event_flag("monarch_election") == 1 then
                    game
.set_event_flag("monarch_election", 2)
                elseif 
game.get_event_flag("monarch_election") == 2 then
                    game
.set_event_flag("monarch_election", 0)
                
end
                say_title
("Uriel:")
                
say("")
                
say("Done")
                
say("")
                return
            else
                return
            
end
        end
        when 20011.chat
."Für die Königswahlen kandidieren" with game.get_event_flag("monarch_election") == 1 begin
            
if pc.get_level() <= 79 then
                say_title
("Uriel:")
                
say("")
                
say("Du kannst dich erst ab Level 80 als")
                
say("Kandidat aufstellen lassen.")
                
say("")
                return
            
end
            say_title
("Uriel:")
            
say("")
            
say("Du möchtest dich also als Kandidat")
            
say("aufstellen lassen?")
            
say("")
            
local b = select("Ja", "Nein")
            if 
1 == b then
                local cnt 
= mysql_query(string.format("SELECT COUNT(*) FROM monarch.candidacy WHERE empire = %d;", pc.get_empire()))
                if 
cnt >= 5 then
                    say_title
("Uriel:")
                    
say("")
                    
say("Es tut mir leid, aber es gibt bereits")
                    
say("5 Kandidaten.")
                    
say("Villeicht hast du bei den nächsten")
                    
say("Wahlen mehr Glück.")
                    
say("")
                    return
                else
                    
say_title("Uriel:")
                    
say("")
                    
say("Du hast Glück. Es sind noch Kandidaten-")
                    
say("plätze frei.")
                    
say("Möchtest du dich wirklich aufstellen?")
                    
say("")
                    
local c = select("Ja", "Nein")
                    if 
1 == c then
                        
if mysql_query(string.format("SELECT COUNT(*) FROM monarch.candidacy WHERE pid = %d", mysql_query(string.format("SELECT id FROM player.player WHERE name = '%s'", pc.get_name())))) < 1 then
                            
if mysql_query(string.format("SELECT COUNT(*) FROM monarch.candidacy WHERE empire = %d;", pc.get_empire())) < 5 then
                                mysql_query
(string.format("INSERT INTO monarch.candidacy(pid, often, empire) VALUES(%d, 0, %d);", mysql_query(string.format("SELECT id FROM player.player WHERE name = '%s'", pc.get_name())), pc.get_empire()))
                                
say_title("Uriel:")
                                
say("")
                                
say("Ich habe dich erfolgreich eingetragen.")
                                
say("")
                                
retrun
                            
else
                                
say_title("Uriel:")
                                
say("")
                                
say("Es tut mir leid, aber jemand war schneller.")
                                
say("")
                                return
                            
end
                        
else
                            
say_title("Uriel:")
                            
say("")
                            
say("Ich kann dich leider nicht zwei mal")
                            
say("eintragen.")
                            
say("")
                            return
                        
end
                    
else
                        return
                    
end
                end
            
else
                return
            
end
        end
        when 20011.chat
."König wählen" with game.get_event_flag("monarch_election") == 2 begin
            say_title
("Uriel:")
            
say("")
            
say("Du möchtest also wählen?")
            
say("Für eine Wahl musst du mindestens")
            
say("Level 35 sein.")
            
wait()
            if 
pc.get_level() >= 35 then
                say_title
("Uriel:")
                
say("")
                
say("Du kannst dich über unser Forum oder")
                
say("über unsere Homepage über die")
                
say("Kandidaten informieren.")
                
say("")
                
wait()
                
say("Wen möchtest du wählen?")
                
local can_tab = {"", "", "", "", ""}
                
local can_pid = mysql_query(string.format("SELECT pid FROM monarch.candidacy WHERE empire = %d", pc.get_empire()))
                for 
i = 1, 5, 1 do
                    
local can_name = mysql_query(string.format("SELECT name FROM player.player WHERE id = %d", can_pid[i][1]))
                    
table.insert(can_tab, i, can_name)
                
end
                local sel 
= select(can_tab[1], can_tab[2], can_tab[3], can_tab[4], can_tab[5], "Abbrechen")
                if 
1 == sel then
                    say_title
("Uriel:")
                    
say("")
                    
say(string.format("Möchtest du wirklich %s wählen?", can_tab[1]))
                    
say("")
                    
local b = select("Ja", "Nein")
                    if 
1 == b then
                        mysql_query
(string.format("UPDATE monarch.candidacy SET often = often + 1 WHERE pid = %d", can_pid[1][1]))
                        
say("Wahl erfolreich.")
                    else
                        return
                    
end
                
elseif 2 == sel then
                    say_title
("Uriel:")
                    
say("")
                    
say(string.format("Möchtest du wirklich %s wählen?", can_tab[2]))
                    
say("")
                    
local b = select("Ja", "Nein")
                    if 
1 == b then
                        mysql_query
(string.format("UPDATE monarch.candidacy SET often = often + 1 WHERE pid = %d", can_pid[2][1]))
                        
say("Wahl erfolreich.")
                    else
                        return
                    
end
                
elseif 3 == sel then
                    say_title
("Uriel:")
                    
say("")
                    
say(string.format("Möchtest du wirklich %s wählen?", can_tab[3]))
                    
say("")
                    
local b = select("Ja", "Nein")
                    if 
1 == b then
                        mysql_query
(string.format("UPDATE monarch.candidacy SET often = often + 1 WHERE pid = %d", can_pid[3][1]))
                        
say("Wahl erfolreich.")
                    else
                        return
                    
end
                
elseif 4 == sel then
                    say_title
("Uriel:")
                    
say("")
                    
say(string.format("Möchtest du wirklich %s wählen?", can_tab[4]))
                    
say("")
                    
local b = select("Ja", "Nein")
                    if 
1 == b then
                        mysql_query
(string.format("UPDATE monarch.candidacy SET often = often + 1 WHERE pid = %d", can_pid[4][1]))
                        
say("Wahl erfolreich.")
                    else
                        return
                    
end
                
elseif 5 == sel then
                    say_title
("Uriel:")
                    
say("")
                    
say(string.format("Möchtest du wirklich %s wählen?", can_tab[5]))
                    
say("")
                    
local b = select("Ja", "Nein")
                    if 
1 == b then
                        mysql_query
(string.format("UPDATE monarch.candidacy SET often = often + 1 WHERE pid = %d", can_pid[5][1]))
                        
say("Wahl erfolreich.")
                    else
                        return
                    
end
                
else
                    return
                
end
            
else
                
say_title("Uriel:")
                
say("")
                
say("Du musst Level 35 sein um wählen")
                
say("zu können.")
            
end
        end
    end
end 
Wer kann helfen?

MfG
08/25/2013 21:09 Colourfull#8833
auch wenn ich grad keine quest habe vwollte nur sagen danke das ihr das macht echt top :*
08/25/2013 23:41 Mijago#8834
Code:
quest monarch_election begin
    state start begin
        when 20011.chat."Königswahl-Event" with pc.get_name() == "[SA]Risiss" begin
            say_title("Uriel:")
            say("")
            say("Was willst du machen?")
            say("")
            local gm = select("An-/Ausschalten", "Abbrechen")
            if 1 == gm then
                if game.get_event_flag("monarch_election") == 0 then
                    game.set_event_flag("monarch_election", 1)
                elseif game.get_event_flag("monarch_election") == 1 then
                    game.set_event_flag("monarch_election", 2)
                elseif game.get_event_flag("monarch_election") == 2 then
                    game.set_event_flag("monarch_election", 0)
                end
                say_title("Uriel:")
                say("")
                say("Done")
                say("")
                return
            else
                return
            end
        end
        when 20011.chat."Für die Königswahlen kandidieren" with game.get_event_flag("monarch_election") == 1 begin
            if pc.get_level() <= 79 then
                say_title("Uriel:")
                say("")
                say("Du kannst dich erst ab Level 80 als")
                say("Kandidat aufstellen lassen.")
                say("")
                return
            end
            say_title("Uriel:")
            say("")
            say("Du möchtest dich also als Kandidat")
            say("aufstellen lassen?")
            say("")
            local b = select("Ja", "Nein")
            if 1 == b then
                local cnt = mysql_query(string.format("SELECT COUNT(*) FROM monarch.candidacy WHERE empire = %d;", pc.get_empire()))
                if cnt >= 5 then
                    say_title("Uriel:")
                    say("")
                    say("Es tut mir leid, aber es gibt bereits")
                    say("5 Kandidaten.")
                    say("Villeicht hast du bei den nächsten")
                    say("Wahlen mehr Glück.")
                    say("")
                    return
                else
                    say_title("Uriel:")
                    say("")
                    say("Du hast Glück. Es sind noch Kandidaten-")
                    say("plätze frei.")
                    say("Möchtest du dich wirklich aufstellen?")
                    say("")
                    local c = select("Ja", "Nein")
                    if 1 == c then
                        if mysql_query(string.format("SELECT COUNT(*) FROM monarch.candidacy WHERE pid = %d", mysql_query(string.format("SELECT id FROM player.player WHERE name = '%s'", pc.get_name())))) < 1 then
                            if mysql_query(string.format("SELECT COUNT(*) FROM monarch.candidacy WHERE empire = %d;", pc.get_empire())) < 5 then
                                mysql_query(string.format("INSERT INTO monarch.candidacy(pid, often, empire) VALUES(%d, 0, %d);", mysql_query(string.format("SELECT id FROM player.player WHERE name = '%s'", pc.get_name())), pc.get_empire()))
                                say_title("Uriel:")
                                say("")
                                say("Ich habe dich erfolgreich eingetragen.")
                                say("")
                                return
                            else
                                say_title("Uriel:")
                                say("")
                                say("Es tut mir leid, aber jemand war schneller.")
                                say("")
                                return
                            end
                        else
                            say_title("Uriel:")
                            say("")
                            say("Ich kann dich leider nicht zwei mal")
                            say("eintragen.")
                            say("")
                            return
                        end
                    else
                        return
                    end
                end
            else
                return
            end
        end
        when 20011.chat."König wählen" with game.get_event_flag("monarch_election") == 2 begin
            say_title("Uriel:")
            say("")
            say("Du möchtest also wählen?")
            say("Für eine Wahl musst du mindestens")
            say("Level 35 sein.")
            wait()
            if pc.get_level() >= 35 then
                say_title("Uriel:")
                say("")
                say("Du kannst dich über unser Forum oder")
                say("über unsere Homepage über die")
                say("Kandidaten informieren.")
                say("")
                wait()
                say("Wen möchtest du wählen?")
                local can_tab = {"", "", "", "", ""}
                local can_pid = mysql_query(string.format("SELECT pid FROM monarch.candidacy WHERE empire = %d", pc.get_empire()))
                for i = 1, 5, 1 do
                    local can_name = mysql_query(string.format("SELECT name FROM player.player WHERE id = %d", can_pid[i][1]))
                    table.insert(can_tab, i, can_name)
                end
                local sel = select(can_tab[1], can_tab[2], can_tab[3], can_tab[4], can_tab[5], "Abbrechen")
                if 1 == sel then
                    say_title("Uriel:")
                    say("")
                    say(string.format("Möchtest du wirklich %s wählen?", can_tab[1]))
                    say("")
                    local b = select("Ja", "Nein")
                    if 1 == b then
                        mysql_query(string.format("UPDATE monarch.candidacy SET often = often + 1 WHERE pid = %d", can_pid[1][1]))
                        say("Wahl erfolreich.")
                    else
                        return
                    end
                elseif 2 == sel then
                    say_title("Uriel:")
                    say("")
                    say(string.format("Möchtest du wirklich %s wählen?", can_tab[2]))
                    say("")
                    local b = select("Ja", "Nein")
                    if 1 == b then
                        mysql_query(string.format("UPDATE monarch.candidacy SET often = often + 1 WHERE pid = %d", can_pid[2][1]))
                        say("Wahl erfolreich.")
                    else
                        return
                    end
                elseif 3 == sel then
                    say_title("Uriel:")
                    say("")
                    say(string.format("Möchtest du wirklich %s wählen?", can_tab[3]))
                    say("")
                    local b = select("Ja", "Nein")
                    if 1 == b then
                        mysql_query(string.format("UPDATE monarch.candidacy SET often = often + 1 WHERE pid = %d", can_pid[3][1]))
                        say("Wahl erfolreich.")
                    else
                        return
                    end
                elseif 4 == sel then
                    say_title("Uriel:")
                    say("")
                    say(string.format("Möchtest du wirklich %s wählen?", can_tab[4]))
                    say("")
                    local b = select("Ja", "Nein")
                    if 1 == b then
                        mysql_query(string.format("UPDATE monarch.candidacy SET often = often + 1 WHERE pid = %d", can_pid[4][1]))
                        say("Wahl erfolreich.")
                    else
                        return
                    end
                elseif 5 == sel then
                    say_title("Uriel:")
                    say("")
                    say(string.format("Möchtest du wirklich %s wählen?", can_tab[5]))
                    say("")
                    local b = select("Ja", "Nein")
                    if 1 == b then
                        mysql_query(string.format("UPDATE monarch.candidacy SET often = often + 1 WHERE pid = %d", can_pid[5][1]))
                        say("Wahl erfolreich.")
                    else
                        return
                    end
                else
                    return
                end
            else
                say_title("Uriel:")
                say("")
                say("Du musst Level 35 sein um wählen")
                say("zu können.")
            end
        end
    end
end
Du hattest
retrun statt return in Zeile 68 ;)
08/26/2013 15:37 Colourfull#8835
quest tele begin
state start begin
function warp_tab(warp)
local a,lvl={},pc.get_level()
table.foreach(warp,function(val,i)
if lvl >= val then table.insert(a,val) end
end)
return a
end
function local_table(warp)
--= tele.warp_tab(warp)???
local tabelle,main_menu,sel_table = tele.warp_tab(warp),{},{}
table.sort(tabelle)
table.foreach(tabelle,function(i,n) main_menu[i]={warp[n][1],warp[n][2]} sel_table[i]=warp[n][3] end)
return main_menu,sel_table
end
when 20041.chat."Teleport" begin
local warp={
--[lvl]={x,y,"Ort"},
[100]={3498900,3498900,"Run1"},
[120]={12470,12485,"Run2"},
[140]={5501,4925,"Buggy"},
}
say_title("Teleportieren:")
say()
say("Bitte sehr.")
say("Wohin möchtest du dich Teleportieren lassen?")
local ports,map_auswahl=tele.local_table(warp)
table.insert(map_auswahl,"Abbrechen")
local auswahl=select2(map_auswahl)--select_table(map_auswahl)
if auswahl==table.getn(map_auswahl) then return end
--pc.warp(ports[auswahl][1],ports[auswahl][2])
say(ports[auswahl][1].."x , "..ports[auswahl][2].." y")
end
end
end

man wird nicht geportet :O