[SERVICE] Die Questkontrolle

[MQTT.]

die Function heißt local nicht locale
schau mal beim ersten local genau hin

[PlayerVHD TV]

Oh. Natürlich! Danke hab das echt nicht gesehen

[MilkingCow]

Jo, habe mal angefangen eine PvP Event Quest zu schreiben und wollte direkt mal die query testen in der Quest. Es kommt beim compilieren nur der Fehler: "Error occured on compile Quest/pvpevent.quest"

 Spoiler

quest pvpevent begin
	state start begin
		when 20011.chat."PvP Event" begin
			local set = mysql_query("INSERT INTO pvp_event (name) VALUES ('"..pc.get_name().."')
			pc.setqf("pvp_event", 1)
		end
	end
end

Danke im vorraus

['Fleischhauer']

PHP Code:

quest horse_getting_new begin
    state start begin
        when 20349.chat."Die Pferdeausbildung" with horse.get_level()==0 begin
            say_title("Stallbursche")
            say("Hallo "..pc.get_name())
            say("Um ein Pferd von mir zu erhalten")
            say("Musst du mir eine Pferdemedallie geben")
            say("Dies muss sein damit Ich sicher gehen kann")
            say("Das du genug mittel hast um ein Pferd zu halten")
            if pc.count_item("50050")==0 then
                say("Bitte hole mir eine, dann werde")
                say("Ich dir ein Pferd überlassen.")
                return
            end
            say("Möchtest du mir die Medallie geben?")
            local s=select("Ja", "Nein")
            if s==1 then
                pc.remove_item("50050", 1)
                pc.give_item2("50053", 1)
                say("Nagut.........")
                say("Ich überlasse dir eins meiner besten Pferde.")
                say("Passe gut drauf auf und enttäusche mich nicht.")
                pc.set_skill_level(131,21)
                horse.set_level(21)
                horse.summon()
                horse.ride()
            end
            if s==2 then
                say_title("Stallbursche)
                say("Schade, dann kann Ich dir kein Pferd überlassen.")
                return
            end
        end
    state end begin
    end
end 


Wo ist der Fehler ?

[Nick]

Originally Posted by 'Fleischhauer'

PHP Code:

quest horse_getting_new begin
    state start begin
        when 20349.chat."Die Pferdeausbildung" with horse.get_level()==0 begin
            say_title("Stallbursche")
            say("Hallo "..pc.get_name())
            say("Um ein Pferd von mir zu erhalten")
            say("Musst du mir eine Pferdemedallie geben")
            say("Dies muss sein damit Ich sicher gehen kann")
            say("Das du genug mittel hast um ein Pferd zu halten")
            if pc.count_item("50050")==0 then
                say("Bitte hole mir eine, dann werde")
                say("Ich dir ein Pferd überlassen.")
                return
            end
            say("Möchtest du mir die Medallie geben?")
            local s=select("Ja", "Nein")
            if s==1 then
                pc.remove_item("50050", 1)
                pc.give_item2("50053", 1)
                say("Nagut.........")
                say("Ich überlasse dir eins meiner besten Pferde.")
                say("Passe gut drauf auf und enttäusche mich nicht.")
                pc.set_skill_level(131,21)
                horse.set_level(21)
                horse.summon()
                horse.ride()
            end
            if s==2 then
                say_title("Stallbursche)
                say("Schade, dann kann Ich dir kein Pferd überlassen.")
                return
            end
        end
    state end begin
    end
end 


Wo ist der Fehler ?

            if s==2 then
                say_title("Stallbursche)
                ..
            end

            if s==2 then
                say_title("Stallbursche")
                ..
            end

Syntax-Highlighting beachten.

[36666669]

Hey.. habe keider net viele kenntnise.. kann mit jemand sagen wo da ein fhler ist..

putty gibt mir das raus
:quest doesn't have begin-end clause. (fertigkeiten)

 Spoiler

quest keine fertigkeiten begin
state start begin
when login with pc.level >= 5 begin
set_state(information)
end
end


when info or button begin
say("keine_fertigkeiten")
say("Hey, Du Hast So Eben Level 5 erreicht")
say("Du Bekommst Erst ab level 10 Deine Kräfte! Aber Dafür Bekommst Du Diese quest")
say_reward("KÄMPF!")
say("")
pc.setqf("state", 15)
q.set_counter("Hungriger Roter Keiler", 15)
end

when 179.kill begin
local count = pc.getqf("state") - 1
if count <= 15 then
pc.setqf("state", count)
q.set_counter("Hungriger Roter Keiler", count)
end
if count == 0 then
say_title("keine fertigkeiten")
say("Hier Hast Du etwas Gold ")
say("Das Wirst du Gebrauchen!")
pc.change_money(50000)
pc.give_exp2(1000)
clear_letter()
set_state(__COMPLETE__)
end
end
end
end

[.Delta]

--Keine Leerzeichen im Questnamen!
quest keine_fertigkeiten begin
	state start begin
		when login with pc.level >= 5 begin
			set_state(information)
		end
	end
	--Wenn du einen state beendest (start) musst du auch einen neuen starten, wenn die quest weiter geht.
	--When / function blöcke können nur innerhalb von states stehen.
	state information begin
		--Würde auch nen Brief schicken.
		when letter begin
			send_letter("Keine Fertigkeiten")
		end
		when info or button begin
			say("keine_fertigkeiten")
			say("Hey, Du Hast So Eben Level 5 erreicht")
			say("Du Bekommst Erst ab level 10 Deine Kräfte!  Aber Dafür Bekommst Du Diese quest")
			say_reward("KÄMPF!")
			say("")
			pc.setqf("state", 15)
			q.set_counter("Hungriger Roter Keiler", 15)
			--Nachdem du eine questflag für killquests setzt würde ich einen neuen state aufmachen, sonst kann es passieren,
			--dass dein Fortschritt zurückgesetzt wird, wenn du den Brief nochmal aufmachst.
			set_state(killen)
		end
	end
	state killen begin
		when letter begin
			send_letter("Keine Fertigkeiten")
		end
		when button or info begin
			say(string.format("Du musst noch %d Hungriger Roter Keiler töten.", pc.getqf("state")))
		end
		--Arbeite lieber mit npc.get_race(), beugt bugs vor.
		when kill with npc.get_race() == 179 begin
			local count = pc.getqf("state") - 1
			if count <= 15 then
				pc.setqf("state", count)
				q.set_counter("Hungriger Roter Keiler", count)
			end
			if count == 0 then
				say_title("keine fertigkeiten")
				say("Hier Hast Du etwas Gold ")
				say("Das Wirst du Gebrauchen!")
				pc.change_money(50000)
				pc.give_exp2(1000)
				clear_letter()
				set_state(__COMPLETE__)
			end
		end
	end
	--Gleiches wie oben, definierten state auch aufmachen.
	state __COMPLETE__ begin
	end
--Hattest n bisschen viele ends am Ende :)
end

[36666669]

Ja das Habe ich Eben Auch Bemerkt nach paar min Rausfinden^^ Einfach ein "_" machen dan geht des. wollte es grade schreiben aber dann hast du schon geantwortet
Trozdem Vielen Dank

[.Delta]

Originally Posted by 36666669

Ja das Habe ich Eben Auch Bemerkt nach paar min Rausfinden^^ Einfach ein "_" machen dan geht des. wollte es grade schreiben aber dann hast du schon geantwortet
Trozdem Vielen Dank

Man beachte auch meine weiteren Anmerkungen

[36666669]

Originally Posted by .Delta

Man beachte auch meine weiteren Anmerkungen

Habs Eben auch gesehn

Huhu hier bin ich noch mal iwie klappt es Heute einfach nicht... ich gebe meine items ab aber es passiert nix.. also mein item geht weg.. aber wenn ich auf die quest gehe steht das " du hast 0 abegegen"...

 Spoiler

quest Brr begin
state start begin
when login or levelup with pc.get_level() >=10 begin
set_state(information)
end
end

state information begin
when letter begin
local v = find_npc_by_vnum(9006)
if v != 0 then
target.vid("__TARGET__", v, "Quest")
end
send_letter("Brr Mir ist Kalt ")
end

when button or info begin
say_title("Brr Mir ist Kalt ")
say("Schnell!")
say("Deine Oma erfriert sonst!")
say("Begeben dich schnell Zur Alten Frau")
say("Und Hilf ihr!")
say("")
end

when __TARGET__.target.click or
9006.chat."Quest" begin
target.delete("__TARGET__")
say("Alte Frau:")
--- l
say("Hey...Brrr .")
say(" Mir ist Kalt, und ich Bin schon alt...")
say("Kannst Du Mir Mein wolfsplez besorgen?")
say("ich werde mir dann eine warme jacke stricken")
say("")
set_state(go_to_disciple)
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
end
end

state go_to_disciple begin
when letter begin
send_letter("Auftrag von Alte Frau")

end
when button or info begin
say_title("Quest")
--- l
say("")
say("Alte Frau gab euch den Auftrag")
say("10 Wolfsfell zu sammeln!")
say("Das Item bekommt ihr von Grauwolf.")
say("Viel Glueck!")
say("")
say_item_vnum(30027)
say_reward(" Du hast".." "..pc.getqf("collect_count").." bis jetzt gesammelt!")
say("")
end

when 71035.use begin --迷惑藥水
if pc.getqf("drink_drug")==1 then
say("")
say("Bessere Droppchance!")
say("")

return
end
if pc.count_item(30027)==0 then
say("")
say("Du hast keine!")
say("Lauf los und besorg mir welche!")
say("")
return
end
item.remove()
pc.setqf("drink_drug",1)
end


when 106.kill begin
if pc.count_item(30027)<10-pc.getqf("collect_count") then
pc.give_item2(30027, 1)
end
end

when 9006.chat."Quest" with pc.count_item(30027) >0 begin
say("Einen Moment!")
--- l
say("Ich werde das Item")
say("schnell mal ueberpruefen.")
say("Hoffentlich klappt alles!")
say("")
pc.remove_item(30027, 1)
wait()

local pass_percent
if pc.getqf("drink_drug")==0 then
pass_percent=Value
else
pass_percent=Value
end

local s= number(1,80)
if s<= pass_percent then
if pc.getqf("collect_count")< 4 then --5*茈H下
local index =pc.getqf("collect_count")+1
pc.setqf("collect_count",index) --取得一*荇?+1
say("Alte Frau:")
say("Perfekt! Das Item ist in Ordnung")
say("Du hast bis jetzt ".." "..10-pc.getqf("collect_count").. " abgegeben!")
say("Bring mir die restlichen!")
say("")
pc.setqf("drink_drug",0) --藥水初始化
return
end
say("Alte Frau:")
say("Yuhu! Du hast mir")
say("alles gebracht!")
say("Daf werde ich dich wie versprochen")
say("belohnen!")
say("")
say_reward("Du bekommst ein Name!")
say_reward("Du bekommst ein Name!")
say_reward("Du bekommst ein Name!")
say_reward("Du bekommst 50000 Yang!")
say_reward("Du bekommst 10000 Erfahrung!")
pc.setqf("collect_count",0)
pc.setqf("drink_drug",0)
clear_letter()
set_state(__complete)

pc.give_item2(Value)
pc.give_item2(Value)
pc.give_item2(Value)
pc.change_money(50000)
pc.give_exp2(10000)
set_quest_state("levelup","run")


return
else
say("Alte Frau:")
say("Dieses Item ist von schlechter Qualita!")
say("Es kann nicht verwendet werden.")
say("Hole mir ein neues!")
say("")
pc.setqf("drink_drug",0) --藥水初始化
return
end
end
end



state __complete begin
end
end

[MQTT.]

In deiner quest fehlt ein q.set_counter, damit es überhaupt anfängt die abgegebenen Items mitzuzählen.

[.Delta]

Originally Posted by Nguyen.

In deiner quest fehlt ein q.set_counter, damit es überhaupt anfängt die abgegebenen Items mitzuzählen.

braucht man nicht.

Aber du solltest mal folgende Zeilen mit Werten versehen

99 & 101
pass_percent=Value

133 - 135
pc.give_item2(Value)
pc.give_item2(Value)
pc.give_item2(Value)

[36666669]

Kann Mir einer sagen Wie ich "Die ausbildung" quest so bearbeiten kann das ich NICHT mehr zu npc rennen muss

[Rofelmau]

kannst es in ne quest rolle einbinden

[infinty04]

Hallo wie kann ich den 6 skill in dieser quest mit einbinden?

das man auch diesen von M auf P setzen kann


regenbogenstein quest

 Spoiler

PHP Code:

quest regenbogenstein begin
    state start begin
        when 50512.use begin
            if pc.get_skill_group() == 0 then
                say("Du musst zuerst eine Lehre wählen!")
                return
            end
            local skillList = regenbogenstein.BuildSkillList(20, 39)
            table.insert(skillList[2], "Abbrechen")
            
            say("Welche Fertigkeit möchtest du auf P setzen?")
            local s = select_table(skillList[2]) or false
            local skillVnum = skillList[1][s]
            local skillName = skillList[2][s]
            if not skillVnum then return end
            
            pc.set_skill_level(skillVnum, 40)
            pc.remove_item(item.get_vnum())
            say(skillName.." wurde erfolgreich auf P gesetzt!")
        end
        function BuildSkillList(MIN, MAX)
            local skillList = special.active_skill_list[pc.get_job()+1][pc.get_skill_group()]
            local returnList = {{}, {}}
            for _, skillVnum in ipairs(skillList) do
                local skillLevel = pc.get_skill_level(skillVnum)
                if skillLevel >= MIN and skillLevel <= MAX then
                    table.insert(returnList[1], skillVnum)
                    table.insert(returnList[2], locale.GM_SKILL_NAME_DICT[skillVnum] or skillVnum)
                end
            end
            return returnList
        end
    end
end