[SERVICE] Die Questkontrolle

12/25/2010 21:21 .NoThx#1156
okay danke..
ich mach immer so sinnlose einzigartige quests
12/25/2010 23:53 .CranKii#1157
Hilfe pls^^

PHP Code:
----------------------------------
--    
Teil einer Karte , ItemID 30128
--       Vergibt King-, Königsrüstungen
----------------------------------
quest give_king begin
    state start begin
        when 30128.
use begin
            
            say_title
("Die Könige")
            
say("")
            
say("Dieser Teil der Karte wird dich zu den")
            
say("Königsrüstung führen, die schon vor vielen")
            
say("Jahren von Kaiser Seon-Hwang versteckt wurden.")
            
say("Nicht viele kennen den Ort dieser Rüstungen.")
            
say("Behalten ihn deshalb besser für dich!")
            
local w=select("Weiter","Abbrechen")
                if 
w == 1 then
                    say_title
("Die Könige")
                    
say("")
                    
say_reward("Obwohl die Karte schon sehr alt und zerrissen ist,")
                    
say_reward("konntest du sie noch lesen. Wähle nun deine Klasse.")
                    
say("")
                        
local c=select("Krieger", "Sura", "Ninja", "Schamane", "Abbrechen")
                            if 
c == 1 then
                                say_title
("Die Könige")
                                
say("")
                                
say("Bist du dir sicher dass du die Königsrüstung")
                                
say("für Krieger haben möchtest?")
                                
say_item("Hwang-Rüstung", 11971, "")
                                
say("")
                                    
local sub1=select("Ja","Nein") 
                                    if 
sub1 == 1 then
                                        say_title
("Die Könige")
                                        
say("")
                                        
say("Beim aufheben der Königsrüstung ist die Karte")
                                        
say("leider zerissen und ist nun nichtmehr brauchbar.")
                                        
say("")
                                        
say_reward("Königsrüstung für Krieger erhalten.")
                                        
pc.give_item2("11971", 1)
                                        
pc.removeitem("30128", 1)
                                    elseif 
sub1 == 2 then
                                        
return
                                    
end
                            
elseif c == 2 then
                                say_title
("Die Könige")
                                
say("")
                                
say("Bist du dir sicher dass du die Königsrüstung")
                                
say("für Sura haben möchtest?")
                                
say_item("Zin-Hwang Rüstung", 11973, "")
                                
say("")
                                    
local sub2=select("Ja","Nein") 
                                    if 
sub2 == 1 then
                                        say_title
("Die Könige")
                                        
say("")
                                        
say("Beim aufheben der Königsrüstung ist die Karte")
                                        
say("leider zerissen und ist nun nichtmehr brauchbar.")
                                        
say("")
                                        
say_reward("Königsrüstung für Sura erhalten.")
                                        
pc.give_item2("11973", 1)
                                        
pc.removeitem("30128", 1)
                                    elseif 
sub2 == 2 then
                                        
return
                                    
end
                            
elseif c == 3 then
                                say_title
("Die Könige")
                                
say("")
                                
say("Bist du dir sicher dass du die Königsrüstung")
                                
say("für Ninja haben möchtest?")
                                
say_item("Rote Hwang-Rüstung", 11972, "")
                                
say("")
                                    
local sub3=select("Ja","Nein") 
                                    if 
sub3 == 1 then
                                        say_title
("Die Könige")
                                        
say("")
                                        
say("Beim aufheben der Königsrüstung ist die Karte")
                                        
say("leider zerissen und ist nun nichtmehr brauchbar.")
                                        
say("")
                                        
say_reward("Königsrüstung für Ninja erhalten.")
                                        
pc.give_item2("11972", 1)
                                        
pc.removeitem("30128", 1)
                                    elseif 
sub3 == 2 then
                                        
return
                                    
end
                            
elseif c == 4 then
                                say_title
("Die Könige")
                                
say("")
                                
say("Bist du dir sicher dass du die Königsrüstung")
                                
say("für Schamanen haben möchtest?")
                                
say_item("Sang-Hwang Rüstung", 11974, "")
                                
say("")
                                    
local sub4=select("Ja","Nein") 
                                    if 
sub4 == 1 then
                                        say_title
("Die Könige")
                                        
say("")
                                        
say("Beim aufheben der Königsrüstung ist die Karte")
                                        
say("leider zerissen und ist nun nichtmehr brauchbar.")
                                        
say("")
                                        
say_reward("Königsrüstung für Schamanen erhalten.")
                                        
pc.give_item2("11974", 1)
                                        
pc.removeitem("30128", 1)
                                    elseif 
sub4 == 2 then
                                        
return
                                    
end
                            
elseif c == 5 then
                                
return
                            
end
                            
                            
                
elseif w==2 then
                    
return
                
end
            
            
    
        
        end
    end
end 
12/26/2010 04:40 Avulsed#1158
Quote:
Originally Posted by .CranKii View Post
Hilfe pls^^

PHP Code:
----------------------------------
--    
Teil einer Karte , ItemID 30128
--       Vergibt King-, Königsrüstungen
----------------------------------
quest give_king begin
    state start begin
        when 30128.
use begin
            
            say_title
("Die Könige")
            
say("")
            
say("Dieser Teil der Karte wird dich zu den")
            
say("Königsrüstung führen, die schon vor vielen")
            
say("Jahren von Kaiser Seon-Hwang versteckt wurden.")
            
say("Nicht viele kennen den Ort dieser Rüstungen.")
            
say("Behalten ihn deshalb besser für dich!")
            
local w=select("Weiter","Abbrechen")
                if 
w == 1 then
                    say_title
("Die Könige")
                    
say("")
                    
say_reward("Obwohl die Karte schon sehr alt und zerrissen ist,")
                    
say_reward("konntest du sie noch lesen. Wähle nun deine Klasse.")
                    
say("")
                        
local c=select("Krieger", "Sura", "Ninja", "Schamane", "Abbrechen")
                            if 
c == 1 then
                                say_title
("Die Könige")
                                
say("")
                                
say("Bist du dir sicher dass du die Königsrüstung")
                                
say("für Krieger haben möchtest?")
                                
say_item("Hwang-Rüstung", 11971, "")
                                
say("")
                                    
local sub1=select("Ja","Nein") 
                                    if 
sub1 == 1 then
                                        say_title
("Die Könige")
                                        
say("")
                                        
say("Beim aufheben der Königsrüstung ist die Karte")
                                        
say("leider zerissen und ist nun nichtmehr brauchbar.")
                                        
say("")
                                        
say_reward("Königsrüstung für Krieger erhalten.")
                                        
pc.give_item2("11971", 1)
                                        
pc.removeitem("30128", 1)
                                    elseif 
sub1 == 2 then
                                        
return
                                    
end
                            
elseif c == 2 then
                                say_title
("Die Könige")
                                
say("")
                                
say("Bist du dir sicher dass du die Königsrüstung")
                                
say("für Sura haben möchtest?")
                                
say_item("Zin-Hwang Rüstung", 11973, "")
                                
say("")
                                    
local sub2=select("Ja","Nein") 
                                    if 
sub2 == 1 then
                                        say_title
("Die Könige")
                                        
say("")
                                        
say("Beim aufheben der Königsrüstung ist die Karte")
                                        
say("leider zerissen und ist nun nichtmehr brauchbar.")
                                        
say("")
                                        
say_reward("Königsrüstung für Sura erhalten.")
                                        
pc.give_item2("11973", 1)
                                        
pc.removeitem("30128", 1)
                                    elseif 
sub2 == 2 then
                                        
return
                                    
end
                            
elseif c == 3 then
                                say_title
("Die Könige")
                                
say("")
                                
say("Bist du dir sicher dass du die Königsrüstung")
                                
say("für Ninja haben möchtest?")
                                
say_item("Rote Hwang-Rüstung", 11972, "")
                                
say("")
                                    
local sub3=select("Ja","Nein") 
                                    if 
sub3 == 1 then
                                        say_title
("Die Könige")
                                        
say("")
                                        
say("Beim aufheben der Königsrüstung ist die Karte")
                                        
say("leider zerissen und ist nun nichtmehr brauchbar.")
                                        
say("")
                                        
say_reward("Königsrüstung für Ninja erhalten.")
                                        
pc.give_item2("11972", 1)
                                        
pc.removeitem("30128", 1)
                                    elseif 
sub3 == 2 then
                                        
return
                                    
end
                            
elseif c == 4 then
                                say_title
("Die Könige")
                                
say("")
                                
say("Bist du dir sicher dass du die Königsrüstung")
                                
say("für Schamanen haben möchtest?")
                                
say_item("Sang-Hwang Rüstung", 11974, "")
                                
say("")
                                    
local sub4=select("Ja","Nein") 
                                    if 
sub4 == 1 then
                                        say_title
("Die Könige")
                                        
say("")
                                        
say("Beim aufheben der Königsrüstung ist die Karte")
                                        
say("leider zerissen und ist nun nichtmehr brauchbar.")
                                        
say("")
                                        
say_reward("Königsrüstung für Schamanen erhalten.")
                                        
pc.give_item2("11974", 1)
                                        
pc.removeitem("30128", 1)
                                    elseif 
sub4 == 2 then
                                        
return
                                    
end
                            
elseif c == 5 then
                                
return
                            
end
                            
                            
                
elseif w==2 then
                    
return
                
end
            
            
    
        
        end
    end
end 

Was für ein Problem hast du mit der Quest? Bei mir kommt da kein Fehler.
12/26/2010 12:00 .NoThx#1159
Brauch ma hilfe bei meinen beiden quests da simmt i-was ned :(
PHP Code:
quest gmverwaltung begin     
    state start begin     
        when 9008.chat
."GM-Zentrale" begin
        
        say_title
("GM Komando Zentrale")
        
say("Möchtest du OX Starten?")
        
local ox = select("Ja", "Nein")
        if 
ox == 2 then
            
return
        
end
        
if ox == 1 then
        oxevent
.open()
        
command("go ox")
        
        
end
        say
("Möchtest du ein Spawn event starten?")
        
locale sp = select("Ja", "Nein")
        if 
"..sp.." = 2 then
            
return
        
end
        
if "..sp.." = 1 then
        say
("Welches Monster Soll Gespawnt werden?")
        
local how = input()
        
say("Wie oft? bei 0 wird 1 monster gespwnt")
        
locale many = input()
        
say(" Jetzt Spawn event beginnen?")
        
local bes = select("Ja", "Nein")
        if 
"..bes.." = 2 then
            
return
        
end
        
if "..bes.." = 1 then
        mob
.spawn("..how..", "..many..")
        
end
        say
(" Server Boni Event")
        
say("")
        
say("Was Soll Erhöht werden?")
        
locale eboni = select("Item", "Yang", "Exp", "Nichts")
        
say("um Wv %?")
        
local emuch = input()
        
say("Wie lange")
        
local elong = input()
        if 
"..eboni.." = 4 then
            
return
        
end
            
if "..eboni.." = 1 then 
            command
("priv_empire 0 1:item_drop "..emuch.." "..elong.."")
            
end 
        
if "..eboni.." = 2 then
        command
("priv_empire 0 2:gold_drop "..emuch.." "..elong.."")
        
end
            
if "..eboni.." = 3 then
            command
("priv_empire 0 4:exp "..emuch.." "..elong.."")
            
            
end
        end
    end
end 
und da:
PHP Code:
quest funkill begin      
    state start begin      
               when 9008.chat
."Kill 4 Fun" begin      
                   
if pc.getqf("kill") == 1 then     
                   say
("Du musst 10 Sekunden warten..")     
                   return     
                
end
    
else
        if 
pc.getqf("kill") == 0 then
                   say
("Das Töten kostet dich 3.000.000 Yang.")   
                   
say("Zudem brauchst du mindestens Level 30.")   
                   
say("Möchtest du jemanden töten?")   
                   
local abfrage = select("Weiter", "Abbrechen")   

    if 
abfrage == 2 then   
                    
return   
            
end
    
if abfrage == 1 then
    
if pc.get_level() => 30
    
if pc.get_gold() => 3000000 then
               say
("Gib die den Spieler namen hier ein:")
        
pc.give_gold(-3000000) 
    
local z=input()
    if 
z ==  "" then
        say
("Der Spieler existiert nicht")                                end
    
else
    if 
"z" == pc.is_gm()      
                     
say("Du Kannst Keinen GameMaster töten!")      
                    
mob.spawn(2291)    
                    
notice(" Der Spieler "b" wollte einen GameMaster Töten!")    
                     
notice("Folge dessen ist, Das Ein Roter Drache Gespawnt wurde")    
                    
notice("Solltet ihr durch den Roten Drachen sterben, bedankt")    
                    
notice(" bei spieler "b" Ende Der Durchsage! ")    
                   
end     
                    
return     
                
end
    
else
        
d.kill_all(z)
        
say("Der Spieler Wurde Erfolgreich Umgebarcht")
        
pc.setqf("kill", 1)     
                   
timer("killdelay", 10)    
        
end
    
else    
                if 
pc.get_gold() <= 2999999 then   
                   say
("Du hast nicht genug Yang.")   
                    return   
                
end
    
else
                    if 
pc.get_level() <= 29 then   
                    say
("Dein Level reicht nicht aus.")   
                    return   
                
end
            when 
"kill".timer begin     
                    pc
.setqf("kill", 2)     
            
end     
            when login with pc
.getqf("kill") == 1 then     
                    timer
("killdelay", 10)     
                
end     
        end      
end 
Norm. sollte sich dann die auswahl öffnen und dann kann man endscheiden ob gm-zentrale oder funkill aber es öffnet sich nichts
12/26/2010 18:50 .CranKii#1160
Quote:
Originally Posted by Avulsed View Post
Was für ein Problem hast du mit der Quest? Bei mir kommt da kein Fehler.
Wen ich Teil einer Karte ( 30128) anklicke passiert nichts x_x
12/26/2010 20:28 [SA]Achi#1161
Wie kann ich bei meiner Quest
Code:
quest Kuerbis begin
	state start begin
		when 50095.use begin 
		
			if pc.countitem("50095")>=1 then
				pc.removeitem("50095", 1)
									
				end
			end
		end
	end
end
so einstellen, das ich zum Beispiel beim Dorfplatzwächter den Quest aktivieren / deaktivieren kann? Und ist das soweit überhaupt richtig?

Bitte um Hilfe.
12/26/2010 20:41 .NoThx#1162
öm richtig schon eig. bloß was bringts?
item anklicken
KEIN FENSTER öffnet sich und das item ist weg
sinn?
12/26/2010 20:54 [SA]Achi#1163
Meinst du mich damit?
Ich will eigentlich nur, damit ich einen NPC am besten den Dorfplatzwächter anklicken kann um bei diesem den Kürbisquest zu starten.
Bin noch relativ neu auf dem Questschreiber Gebiet^^
12/26/2010 21:09 iYoshix3#1164
@ Achi
Willst du es so, das man die Kürbisse NUR öffnen kann wenn der Event per Wäcjhter gestartet ist?
12/26/2010 21:21 [SA]Achi#1165
Ne ich will das ich das Event über den Wächter starten bzw beenden kann.
Wer die Kürbisse gefarmt hat, sollte die noch danach öffnen können
12/26/2010 22:30 iKyroja :>#1166
PHP Code:
quest level_quest35 begin
    state start begin
        when login an levelup with pc
.level >= 35 begin
            set_state
(information)
        
end
    end

    state information begin
        when letter begin
            send_letter
("Level 35 Quest")
        
end

        when info 
or button begin
            say_titel
("Level 35 Quest")
     
say("Du mein starker Kämpfer / Kämpferin, ")
     
say("hast den Auftrag Monster zu töten ")
     
say("und bekommt dafür eine große belohnung")
            
say_reward("Töte 10 Stolze Orks und 1 Schwarzer Ork")
            
say("")
            
pc.setqf("state", )
            
q.set_counter("", )
        
end

        when 3234.kill begin
            local count 
= pc.getqf("state") - 1
            
if count <=  then
                pc
.setqf("state", count)
                
q.set_counter("", count)
            
end
            
if count == 0 then
                say_title
("Level 35 Quest")
                
say("Du hast die Quest erfolgreich abgeschlossen!")
                
say("Du erhälst:")
                
say_reward("Außerdem:")
                
say_reward("1000000 Yang")
                
say_reward("10000000 Erfahrung")
                
pc.change_money(1000000)
                
pc.give_exp2(10000000)
            
                
set_state(__COMPLETE__)

            
end
        end
    end

    state __COMPLETE__ begin
    end
end 
12/26/2010 22:59 Endless.#1167
meine neue Quest funktioniert mal wieder nicht.. und diesmal hab ich keine Ahnung..wo der
Fehler ist.. vllt seht ihr des..aber ich weiss nicht wo da einer ist..laut VPC.
ich gebe Thanks wenn mir jemand hilft..

PHP Code:
quest dieb begin
    state start begin
        when login 
or levelup with pc.get_level() >= 82 begin
            set_state
(information)
        
end
    end
    state information begin
        when letter begin
            send_letter 
("Notfall bei der Gemi!")
        
when button or info begin
            say 
("Hallo "..pc.get_name().."! ")
            
say ("Es ist ein dringender Notfall!")
            
say ("du sollst so schnell wie möglich")
            
say ("zur Gemischtwarenhändlerin gehen, ")
            
say ("es ist etwas schreckliches passiert!")
            
say (" ")
            
say_reward ("Beeil dich!")
            
set_state(gotogemi)
        
end
    end
    state gotogemi begin
        when 9003.chat
."Der Dieb" begin
            say_title 
("Gemi:")
            
say ("Ohh da bist du ja, hilf mir bitte.")
            
say ("Mir ist gerade was schreckliches passiert... ")
            
say ("Ein Dieb hat gerade meine Geldtasche geklaut")
            
say ("und von dem Geld muss ich ausgerechnet morgen")
            
say ("meine Miete bezahlen, meine Kinder ernähren")
            
say ("und sämtliche Versicherungen abbezahlen.."
            
say ("und in der Tasche waren gerade lockere")
            
say ("32Millionen Yang drin..das würde 3 Monate zum")
            
say ("leben reichen. ")
            
say ("Kannst du mir bitte helfen und mir die Tasche")
            
say ("zurückbringen? Ich werde dich dafür reich belohnen.")
            
local a = select ("Ja, ich helfe dir!", "Nein keine Zeit.")
            if 
a == 2 then
                say 
("Na toll..das wars wohl")
                
say ("du kannst es dir ja nochmal überlegen")
                return
            
end
            
if a == 1 then
                say_title 
(""..pc.get_name()..": ")
                
say_reward ("Wohin ist der Dieb jetzt?")
                
say_title ("Gemi: "
                
say ("Er ist in den experten Affendungeon gerannt")
                
say_title (""..pc.get_name()..": ")
                
say_reward ("Dann werde ich dort ersteinmal suchen")
                
say_reward ("und melde mich wenn ich was neues habe")
                
say_title ("Gemi: ")
                
say ("In Ordnung! Ich danke dir, das du mir hilfst.")
                
say_reward ("Finde den Affenboss im Exp. Affendungeon")
                
say_reward ("und hol die Tasche..egal wie!")
                
set_state(suche)
            
end
        end
    end
    state suche begin
        when 5163.kill begin
            say_title 
(""..pc.get_name()..": ")
            
say ("Ich muss jetzt so schnell wie möglich raus hier")
            
say ("bevor man den Ausgang sperrt.")
            
say (" ")
            
say_reward ("Du hast die Tasche und den Los erhalten.")
            
say_reward ("Bringe sie der Gemi")
            
pc.give_item2(50027)
            
set_state(back)
        
end
    end
    state back begin
        when 9003.chat
."Habe deine Tasche gefunden" begin
            say_title 
("Gemi: VIELEN DANK!!")
            
say ("Ohh "..pc.get_name().." was würde ich nur ")
            
say ("ohne dich tun?! Naja hier deine Belohnung")
            
say (" ")
            
say_reward ("Du hast dein Auftrag erfüllt.")
            
clear_letter()
            
set_state(finish)
            
pc.give_exp2(150000000)
            
pc.give_item2(28643)
            
pc.give_item2(28642)
            
pc.give_item2(28641)
        
end
    end
    state finish begin
    end
end 
syntax error : [string "information"]:2: unexpected symbol near `when´
dieb.quest:20:Abort trap (core dumped)


was ist denn da los?>.<
12/27/2010 00:08 CauTaRt#1168
Quote:
Originally Posted by iKyroja :> View Post
Naja ein bisschen genauer schildern was dein Problem ist ;)

Aber hier ist die Quest für iKyroja :>

MfG CauTaRt
12/27/2010 00:17 RauschGiftx3#1169
Quote:
Originally Posted by xEndless View Post
meine neue Quest funktioniert mal wieder nicht.. und diesmal hab ich keine Ahnung..wo der
Fehler ist.. vllt seht ihr des..aber ich weiss nicht wo da einer ist..laut VPC.
ich gebe Thanks wenn mir jemand hilft..

PHP Code:
quest dieb begin
    state start begin
        when login 
or levelup with pc.get_level() >= 82 begin
            set_state
(information)
        
end
    end
    state information begin
        when letter begin
            send_letter 
("Notfall bei der Gemi!")
        
when button or info begin
            say 
("Hallo "..pc.get_name().."! ")
            
say ("Es ist ein dringender Notfall!")
            
say ("du sollst so schnell wie möglich")
            
say ("zur Gemischtwarenhändlerin gehen, ")
            
say ("es ist etwas schreckliches passiert!")
            
say (" ")
            
say_reward ("Beeil dich!")
            
set_state(gotogemi)
        
end
    end
    state gotogemi begin
        when 9003.chat
."Der Dieb" begin
            say_title 
("Gemi:")
            
say ("Ohh da bist du ja, hilf mir bitte.")
            
say ("Mir ist gerade was schreckliches passiert... ")
            
say ("Ein Dieb hat gerade meine Geldtasche geklaut")
            
say ("und von dem Geld muss ich ausgerechnet morgen")
            
say ("meine Miete bezahlen, meine Kinder ernähren")
            
say ("und sämtliche Versicherungen abbezahlen.."
            
say ("und in der Tasche waren gerade lockere")
            
say ("32Millionen Yang drin..das würde 3 Monate zum")
            
say ("leben reichen. ")
            
say ("Kannst du mir bitte helfen und mir die Tasche")
            
say ("zurückbringen? Ich werde dich dafür reich belohnen.")
            
local a = select ("Ja, ich helfe dir!", "Nein keine Zeit.")
            if 
a == 2 then
                say 
("Na toll..das wars wohl")
                
say ("du kannst es dir ja nochmal überlegen")
                return
            
end
            
if a == 1 then
                say_title 
(""..pc.get_name()..": ")
                
say_reward ("Wohin ist der Dieb jetzt?")
                
say_title ("Gemi: "
                
say ("Er ist in den experten Affendungeon gerannt")
                
say_title (""..pc.get_name()..": ")
                
say_reward ("Dann werde ich dort ersteinmal suchen")
                
say_reward ("und melde mich wenn ich was neues habe")
                
say_title ("Gemi: ")
                
say ("In Ordnung! Ich danke dir, das du mir hilfst.")
                
say_reward ("Finde den Affenboss im Exp. Affendungeon")
                
say_reward ("und hol die Tasche..egal wie!")
                
set_state(suche)
            
end
        end
    end
    state suche begin
        when 5163.kill begin
            say_title 
(""..pc.get_name()..": ")
            
say ("Ich muss jetzt so schnell wie möglich raus hier")
            
say ("bevor man den Ausgang sperrt.")
            
say (" ")
            
say_reward ("Du hast die Tasche und den Los erhalten.")
            
say_reward ("Bringe sie der Gemi")
            
pc.give_item2(50027)
            
set_state(back)
        
end
    end
    state back begin
        when 9003.chat
."Habe deine Tasche gefunden" begin
            say_title 
("Gemi: VIELEN DANK!!")
            
say ("Ohh "..pc.get_name().." was würde ich nur ")
            
say ("ohne dich tun?! Naja hier deine Belohnung")
            
say (" ")
            
say_reward ("Du hast dein Auftrag erfüllt.")
            
clear_letter()
            
set_state(finish)
            
pc.give_exp2(150000000)
            
pc.give_item2(28643)
            
pc.give_item2(28642)
            
pc.give_item2(28641)
        
end
    end
    state finish begin
    end
end 
syntax error : [string "information"]:2: unexpected symbol near `when´
dieb.quest:20:Abort trap (core dumped)


was ist denn da los?>.<
in zeile 20 is da i wo ein fehler
haste die quest mal ganz neu geschrieben?
12/27/2010 00:21 Endless.#1170
In VPC sieht man..das es bis zu

set_state(gotogemi)
end

problemlos weiter geht.. nur ab dann ist irgentwas falsch..und ich hab kein Plan..
wo..