[Release] Warpring-Quest (mit endlos vielen Kategorien, Itemabgabe, Levelbegrenzung)

rollback · 05/02/2015, 01:48

Ja, wieder ich. Und wieder mit einer Warpring-Quest ...

Ja, ich weiss, dass Mijago

bereits eine umfangreichere Quest geschrieben hat, werden die meisten Optionen die seine Quest bietet nicht genutzt, weshalb ich hier noch eine ähnliche Releasen möchte.

Die Quest:

Maps hinzufügen:

Map direkt im Warpring (ohne eine Kategorie anzuklicken):

Code:

{--Gelbes Reich
	name = "Gelbes Reich",
	koord = {965784, 275242}
},

diese Map hat keinerlei Eingrenzungen was das Level oder ein benötigtes Item angeht.

Map direkt im Warpring mit Level und Itembegrenzung:

Code:

{--Gelbes Reich
	name = "Gelbes Reich",
	koord = {965784, 275242},
	minlevel = 40,
	maxlevel = 105,
	itemneed = {
		{189, 1}
	},
	goldneed = 10000
},

diese Map hat eine Levelbegrenzung (Minimallevel 40, Maximallevel 105) und es wird ein Item benötigt, um die Map zu betreten (Vnum 189, 1x). Ausserdem werden 10000 Yang benötigt.
Alle Optionen (ausser koord) sind Optional, man kann also z.b. nur minlevel, nur maxlevel oder nur goldneed angeben.

Erstellen von Kategorien:

Code:

{
	name = "Reiche",
	{--Gelbes Reich
		name = "Gelbes Reich",
		koord = {965784, 275242},
		minlevel = 40,
		maxlevel = 105,
		itemneed = {
			{189, 1}
		},
		goldneed = 10000
	},
}

Jetzt ist die Map in der Kategorie "Reiche".

Das kann man beliebig weit verschachteln:

Code:

{
	name = "Reiche",
	{
		name = "Ja, wirklich Reiche",
		{--Gelbes Reich
			name = "Gelbes Reich",
			koord = {965784, 275242},
			minlevel = 40,
			maxlevel = 105,
			itemneed = {
				{189, 1}
			},
			goldneed = 10000
		},
	}
}

Code:

quest warpring begin
	state start begin
		when 30006.use begin
			local warp = {--koord Pflicht, rest optional!
				{--Map1
					name = "Map 1",
					{--Rotes Reich
						name = "Rotes Reich",
						koord = {965784, 275242},
						minlevel = 50,
						maxlevel = 80,
						itemneed = {
							{189, 1}
						},
						goldneed = 10000
					},
					{--Gelbes Reich
						name = "Gelbes Reich",
						koord = {965784, 275242},
						minlevel = 10,
						maxlevel = 105,
						itemneed = {
							{189, 1}
						},
						goldneed = 10000
					},
					{--Blaues Reich
						name = "Blaues Reich",
						koord = {965784, 275242},
						minlevel = 1,
						maxlevel = 105,
						itemneed = {
							{189, 1}
						},
						goldneed = 10000
					},
				},
				{--Map2
					name = "Map 2",
					{--Rotes Reich
						name = "Rotes Reich",
						koord = {965784, 275242},
						minlevel = 1,
						maxlevel = 30,
						itemneed = {
							{189, 1}
						},
						goldneed = 10000
					},
					{--Gelbes Reich
						name = "Gelbes Reich",
						koord = {965784, 275242},
						minlevel = 1,
						maxlevel = 105,
						itemneed = {
							{189, 1}
						},
						goldneed = 10000
					},
					{--Blaues Reich
						name = "Blaues Reich",
						koord = {965784, 275242},
						minlevel = 1,
						maxlevel = 105,
						itemneed = {
							{189, 1}
						},
						goldneed = 10000
					},
				},
			}
			warpring.showwarps(warp)
		end
		function warp(tbl)
			local level = pc.get_level()
			if tbl.minlevel and level < tbl.minlevel then
				say("Dein Level ist zu niedrig, um diese Map zu betreten.")
				say("Minimal Level: "..tbl.minlevel)
				select("Abbrechen")
				return
			elseif tbl.maxlevel  and level > tbl.maxlevel then
				say("Dein Level ist zu hoch, um diese Map zu betreten.")
				say("Maximal Level: "..tbl.maxlevel)
				select("Abbrechen")
				return
			end
			while not pc.can_warp() do
				say("Du kannst dich noch nicht teleportieren, da du in")
				say("den letzten 10 Sekunden gehandelt hast.")
				if select("Erneut versuchen", "Abbrechen") == 2 then return end
			end
			local warpneedstrings = warpring.get_warpneedstrings(tbl)
			if table.getn(warpneedstrings) > 0 then
				say("Um diese Map zu betreten benötigst du folgende")
				say("Dinge:")
				for _,v in ipairs(warpneedstrings) do
					say(v)
				end
				say("")
				say("Möchtest du trotzdem fortfahren?")
				if select("Teleportieren", "Abbrechen") == 2 then return end
			end
			if not warpring.check_and_remove_warpneeds(tbl) then
				say("Dir fehlt mindestens eins der benötigten Dinge.")
				select("Abbrechen")
				return
			end
			pc.warp(tbl.koord[1], tbl.koord[2])
		end
		function get_warpneedstrings(tbl)
			local warpneeds = {}
			if tbl.itemneed and table.getn(tbl.itemneed) > 0 then
				for _,v in ipairs(tbl.itemneed) do
					table.insert(warpneeds, "- "..v[2].."x "..item_name(v[1]))
				end
			end
			if tbl.goldneed and tbl.goldneed > 0 then
				table.insert(warpneeds, "- "..tbl.goldneed.." Yang")
			end
			return warpneeds
		end
		function check_warpneeds(tbl)
			if tbl.itemneed and table.getn(tbl.itemneed) > 0 then
				for _,v in ipairs(tbl.itemneed) do
					if pc.count_item(v[1]) < v[2] then
						return false
					end
				end
			end
			if tbl.goldneed and tbl.goldneed > 0 then
				if pc.get_gold() < tbl.goldneed then
					return false
				end
			end
			return true
		end
		function remove_warpneeds(tbl)
			if tbl.itemneed and table.getn(tbl.itemneed) > 0 then
				for _,v in ipairs(tbl.itemneed) do
					pc.remove_item(v[1], v[2])
				end
			end
			if tbl.goldneed and tbl.goldneed > 0 then
				pc.change_gold(-tbl.goldneed)
			end
		end
		function check_and_remove_warpneeds(tbl)
			if not warpring.check_warpneeds(tbl) then
				return false
			end
			warpring.remove_warpneeds(tbl)
			return true
		end
		function get_warpnames(tbl)
			local level = pc.get_level()
			local names = {}
			for _,v in ipairs(tbl) do
				if v.minlevel and level < v.minlevel then
					v.name = v.name.." (ab Lv. "..v.minlevel..")"
				elseif v.maxlevel  and level > v.maxlevel then
					v.name = v.name.." (bis Lv. "..v.maxlevel..")"
				end
				table.insert(names, v.name)
			end
			return names
		end
		function showwarps(tbl)
			local warpnames = warpring.get_warpnames(tbl)
			local s = tbl[select3(warpnames)] or false
			if not s then return end
			if s.koord then
				warpring.warp(s)
				return
			end
			warpring.showwarps(s)
		end
	end
end

Special Thanks:

.Xilent
Yiv

Yiv · 05/02/2015, 01:49

45 Minuten geopfert und die Funktion ist nicht mal drin, sag mal wofür arbeite ich eigentlich?
Ne, sehe ich nicht ein...

codezz · 05/02/2015, 12:36

Quote:

Originally Posted by definitely not Yiv

45 Minuten geopfert und die Funktion ist nicht mal drin, sag mal wofür arbeite ich eigentlich?
Ne, sehe ich nicht ein...

welche funktion

rollback · 05/02/2015, 12:40

Quote:

Originally Posted by codezz

welche funktion

Kommt nachher

.Xilent · 05/02/2015, 13:09

Sehr gut gemacht, Felix & Sorry nochmals, falls ich dich mit dem Return verwirrt habe ;>

rollback · 05/02/2015, 13:25

Quote:

Originally Posted by .Xilent

Sehr gut gemacht, Felix & Sorry nochmals, falls ich dich mit dem Return verwirrt habe ;>

Ahh passt schon

Hier einmal die Funktion, von der Yiv gesprochen hat:

Code:

function search_tbl(tbl, searchfor)
	local maps = {} or maps
	local function _search_tbl(tbl)
		for k,v in pairs(tbl) do
			if string.find(k, searchfor) then
				maps[k] = v
			elseif type(v) == "table" then
				_search_tbl(v)
			end
		end
	end
	_search_tbl(tbl)
	return maps
end

für die, die sich aus dem Code nichts reimen können: Das ist eine Suchfunktion die den kompletten Table nach einem Keyword durchsucht und wenn es was findet den kompletten Baum ab der Position zurückgibt.

Ich werde noch schauen wie ich das so schön wie möglich einbaue

DreamT™ · 05/02/2015, 14:06

Nicht übel

ist zwar nichts bahnbrechend neues, aber trotzdem gut zu gebrauchen.

Danke fürs teilen.

lg DreamT

*Boris · 05/02/2015, 15:29

Hübsche Quest die der harte Felix wieder gezaubert hat. Dankeschön :*

~~KΛIƬӨ~~ · 05/02/2015, 16:56

Schöne Quest aber warp in noch einer Variable zu packen ist unnötig.

rollback · 05/02/2015, 17:38

Quest mit Suchfunktion hinzugefügt ... geht noch schöner aber fürs erste so

.NennoX · 05/02/2015, 17:40

Schöne Quest

Was ist, wenn man keine Items benötigen soll für eine bestimmte Map, kann man die Item-Spalte einfach weglassen? o: bin neugierig

rollback · 05/02/2015, 18:11

Quote:

Originally Posted by .NennoX

Schöne Quest

Was ist, wenn man keine Items benötigen soll für eine bestimmte Map, kann man die Item-Spalte einfach weglassen? o: bin neugierig

Einfach weglassen^^

Kampfzwerg! · 05/02/2015, 21:24

bekomme immer diesen fehler

PHP Code:



WHEN  : 70007.use
FUNCTION menu()
Calls undeclared function! :
pairs
warpring.check_item
Error occured on compile warpring.quest
Quest wurden neu kompiliert!

OoKaMi_ · 05/02/2015, 21:52

Quest gefällt mir

Aber die such Funktion, finde ich nicht so sinnvoll.

HighWave · 05/03/2015, 01:06

Quote:

Originally Posted by Kampfzwerg!

bekomme immer diesen fehler

PHP Code:

WHEN : 70007.use FUNCTION menu() Calls undeclared function! : pairs warpring.check_item Error occured on compile warpring.quest Quest wurden neu kompiliert!

Hatte genau das gleiche, habe dann die 3 undeclared functions in die quest-fuctions eingetragen und die funktion

PHP Code:



function search_tbl(tbl, searchfor)
    local maps = {} or maps
    local function _search_tbl(tbl)
        for k,v in pairs(tbl) do
            if string.find(k, searchfor) then
                maps[k] = v
            elseif type(v) == "table" then
                _search_tbl(v)
            end
        end
    end
    _search_tbl(tbl)
    return maps
end

in die questing.lua...
So läuft es bei mir und sollte somit auch bei dir :P