[SERVICE] Die Questerstellung

01/30/2015 21:22 olieg#2071
Kann irgendjemand eine Quest machen.

Wenn man ein bestimmtes Item wegwirft oder mit dem Item-Zerstörer zerstört, bekommt man es automatisch wieder ins Inventar?

Wäre sehr nett :)
01/31/2015 13:20 shurigeller#2072
Quote:
Quote:
quest gmstuff begin
state start begin
when 20095.chat."GM Stuff" with pc.is_gm() begin
say_title("Seon-Hae:")
say("")
say("Ohooo, hoher Besuch!")
say("Einen GameMaster sieht man nicht")
say("jeden Tag. Deshalb möchte ich dir")
say("meine besten Sachen anbieten.")
say("")
say_title("Möchtest du etwas kaufen?")

local s = select("Ja", "Nein")

if s == 1 then
npc.open_shop()
else
return
end
end

when 20095.chat."Dieser Ort" begin
say_title("Seon-Hae:")
say("")
say("Dies ist ein schöner Ort,")
say("findest du nicht auch?")
say("Ständig scheint hier die Sonne")
say("und es ist schön warm.")
say("")

end

when 20095.chat."Gm Befehle" with pc.is_gm() begin
say_title("Seon-Hae:")
say("")
say("Bei mir kannst du alles machen, was ein GM machen muss.")
say(" ")
say_title("Wähle das zu startende oder zu beendende Event:")
say("")

local e = select("Tag / Nacht", "Weihnachts Events", "Rates einstellen", "Yang", "Rang ändern", "Abbrechen")

if e == 1 then
say_title("Seon-Hae:")
say("")
say("Du möchtest also zwischen Tag und")
say("Nacht wechseln ?")

local f = select ("Tag" , "Nacht", "Abbrechen")
if f == 1 then
command ("x 0")
elseif f == 2 then
command ("x 1")
elseif f == 3 then
return
end





elseif e == 2 then
say_title("Seon-Hae:")
say("")
say("Du möchtest also die Weihnachts Events Starten?")

local f = select ("Weihnachtsbaum", "Schnee", "Weihnachtsmusik", "Weihnachtsevent starten (Alles)", "Weihnachtsevent stoppen (Alles)", "Abbrechen")


if f == 1 then

local g = select ("Weihnachtsbaum aufstellen" , "Weihnachtsbaum wegräumen", "Abbrechen")
if g == 1 then
command ("e xmas_tree 1")
notice_all ("Bei Weihnachtlicher Stimmung darf")
notice_all ("ein Weihnachtsbaum nicht fehlen!")
notice_all ("Euer Server Team hat diesen geschmückt")
notice_all ("und in der Mitte Berg Sohans aufgestellt!")
notice_all ("Frohes Fest!")

say_title("Seon-Hae:")
say("")
say("Es ist geschafft!")
say("Der Weihnachtsbaum steht!")
say("")
elseif g == 2 then
command ("e xmas_tree 0")
notice_all ("Weihnachten neigt sich langsam")
notice_all ("dem Ende! Der Weihnachtsbaum wird")
notice_all ("nun nichtmehr benötigt")
notice_all ("und wir haben ihn deshalb abgebaut.")

say_title("Seon-Hae:")
say("")
say("Es ist geschafft!")
say("Der Weihnachtsbaum ist weg!")
say("")

elseif g == 3 then
return
end

elseif f == 2 then
local h = select ("Schnee an" , "Schnee aus", "Abbrechen")
if h == 1 then
command("e xmas_snow 1")
elseif h == 2 then
command ("e xmas_snow 0")
elseif h == 3 then
return
end

elseif f == 3 then
local i = select ("Musik abspielen", "Musik stoppen", "Abbrechen")
if i == 1 then
command("e xmas_song 1")
elseif i == 2 then
command("e xmas_song 0")
elseif i == 3 then
return
end
elseif f == 4 then
say("Willst du wirklich alles aktivieren?")
say("Also Nachtmodus, den Weihnachtsbaum,")
say("Schnee und die Weihnachtsmusik?")
say("")
local g_sub = select ("Ja", "Nein")
if g_sub == 1 then
command("e xmas_tree 1")
command("e xmas_song 1")
command("e xmas_boom 1")
command("e xmas_snow 1")
say("Alles aktiviert!")
elseif g_sub == 2 then
return
end
elseif f == 5 then
say("Willst du wirklich alles deaktivieren?")
say("Also Nachtmodus, den Weihnachtsbaum,")
say("Schnee und die Weihnachtsmusik?")
say("")
local g_desub = select ("Ja", "Nein")
if g_desub == 1 then
command("e xmas_tree 0")
command("e xmas_song 0")
command("e xmas_boom 0")
command("e xmas_snow 0")
say("Alles deaktiviert!")
elseif g_desub == 2 then
return
end

elseif f == 6 then
return
end

elseif e == 3 then
say_title("Seon-Hae:")
say("")
say("Du möchtest also die Rates einstellen??")
say("")
say_title("Wähle die zu einstellende Rate")
local rateset = select ("EXP","Yang","Max-Yang","Gegenstände","Abbrechen")
if rateset == 1 then
say_title("Seon-Hae:")
say("")
say("Wie hoch soll die EXP-Rate werden?")
local w =select ("100","200","500","1000","Abbrechen")
if w == 1 then
command("priv_empire 0 4:exp 100 24")
elseif w == 2 then
command("priv_empire 0 4:exp 200 24")
elseif w == 3 then
command("priv_empire 0 4:exp 500 24")
elseif w == 4 then
command("priv_empire 0 4:exp 1000 24")
elseif w == 5 then
return
end

elseif rateset == 2 then
say_title("Seon-Hae:")
say("")
say("Wie hoch soll die Yangdrop-Rate werden?")
local x =select ("100","200","500","1000","Abbrechen")
if x == 1 then
command("priv_empire 0 2:gold_drop 100 24")
elseif x == 2 then
command("priv_empire 0 2:gold_drop 200 24")
elseif x == 3 then
command("priv_empire 0 2:gold_drop 500 24")
elseif x == 4 then
command("priv_empire 0 2:gold_drop 1000 24")
elseif x == 5 then
return
end
elseif rateset == 3 then
say_title("Seon-Hae:")
say("")
say("Wie hoch soll die MaxYang-Drop-Rate werden?")
local y =select ("100","200","500","1000","Abbrechen")
if y == 1 then
command("priv_empire 0 3:gold10_drop 100 24")
elseif y == 2 then
command("priv_empire 0 3:gold10_drop 200 24")
elseif y == 3 then
command("priv_empire 0 3:gold10_drop 500 24")
elseif y == 4 then
command("priv_empire 0 3:gold10_drop 1000 24")
elseif y == 5 then
return
end
elseif rateset == 4 then
say_title("Seon-Hae:")
say("")
say("Wie hoch soll die Gegenstandsdrop-Rate werden?")
local z =select ("100","200","500","1000","Abbrechen")
if z == 1 then
command("priv_empire 0 1:item_drop 100 24")
elseif z == 2 then
command("priv_empire 0 1:item_drop 200 24")
elseif z == 3 then
command("priv_empire 0 1:item_drop 500 24")
elseif z == 4 then
command("priv_empire 0 1:item_drop 1000 24")
elseif z == 5 then
return
end
elseif rateset == 5 then
return
end

elseif e == 4 then

say_title("Seon-Hae:")
say("")
say("Wie viel Yang möchtest du haben?")
say("Ps: Bedenke, wenn du über 1,9kkk hast du einen")
say("Yang Bug hast und somit 0 Yang hast!!!!")
local f = select ("500kk", "1kkk", "1,5kkk", "1,9kkk, "Abbrechen")
if f == 1 then
command("set ".. pc.get_name() .." gold 500000000")
elseif f == 2 then
command("set ".. pc.get_name() .." gold 1000000000")
elseif f == 3 then
command("set ".. pc.get_name() .." gold 1500000000")
elseif f == 4 then
command("set ".. pc.get_name() .." gold 1999999999")

elseif f == 5 then
return
end


elseif e == 5 then
say_title("Seon-Hae:")
say("")
say("Du möchtest also deinen Rang ändern. Wie darfs denn sein?")
local t = select ("Ritterlich", "Edel", "Gut", "Freundlich", "Abbrechen")
if t == 1 then
command("set ".. pc.get_name() .." align 200000")
elseif t == 2 then
command("set ".. pc.get_name() .." align 80000")
elseif t == 3
command("set ".. pc.get_name() .." align 40000")
elseif t == 4
command("set ".. pc.get_name() .." align 10000")

elseif t == 5
return
end
end



end
end
hm weis einer why die quest nicht geht
krieg imma error
01/31/2015 14:20 G.I Duke#2073
Quote:
Originally Posted by olieg View Post
Kann irgendjemand eine Quest machen.

Wenn man ein bestimmtes Item wegwirft oder mit dem Item-Zerstörer zerstört, bekommt man es automatisch wieder ins Inventar?

Wäre sehr nett :)
Naja mit dem wegwerfen weiß ich nicht wie das gehn soll,
nur mit dem Zerstörer so:

PHP Code:
quest eimer begin
    state start begin
        when 30001.take with item
.get_vnum() == ITEM_VNUM begin    -- Item hier eintragen
            item
.remove()
            
pc.give_item(ITEM_VNUM) -- Item hier eintragen
        end
        when 30001.take begin        
            item
.remove()
        
end
    end
end 
Greetings
01/31/2015 14:53 Brodan#2074
Quote:
Originally Posted by shurigeller View Post
hm weis einer why die quest nicht geht
krieg imma error
Falscher Theard.
Gehört hier her: [Only registered and activated users can see links. Click Here To Register...]

--

Wollte wissen, ob es via Quest möglich ist, dass der nächste Versuch einen Geiststein einzufügen bzw. der nächste Verbesserungsversuch zu 100% klappt?

Verlauf:
Ich benutze Item XY , es ploppt ein Dialogfenster auf welches folgendes ausgibt "Dein nächster Versuch einen Geiststein in eine Waffe, oder Rüstung, einzufügen, oder dein nächster Versuch einen Gegenstand zu verbessern wird in jedem Fall gelingen!"
Das Item XY verschwindet dann und der nächste Versuch klappt, einmalig, zu 100%, unabhängig der Servereinstellungen (in Sachen Erfolgschancen beim Einfügen eines Geiststeines, oder eines Verbesserungsversuches (Refineproto)).

Wäre das möglich?
Besitze die 2089M Game, falls das wichtig ist

Frage noch offen.

--

Wäre jemand so gut mir eine Quest für eine Truhe zu schreiben?
Die Truhe sollte nur geöffnet werden können, wenn genug Platz im Inventar ist.
Die Truhe sollte immer 3 zufällige Items, aus einer Tabelle (beliebig erweiterbar), ausgeben, aber keines davon öfter als einmal.
Bespiel:
01/31/2015 15:19 °Ace°#2075
Tag Community,

kann mir einer eine Regenbogen Quest schreiben, wo man erst G Skills machen kann, sobald man M Skills hat. Jedoch sollte man nur ein Skill, skillen können und das mit nur ein Regenbogenstein.
01/31/2015 19:59 .yorliK#2076
Quote:
Originally Posted by Brodan View Post
Die Truhe sollte immer 3 zufällige Items, aus einer Tabelle (beliebig erweiterbar), ausgeben, aber keines davon öfter als einmal.
Bespiel:

Das erste, mit 2089m nicht möglich, da ich denke das ein Wert im Source verändert werden muss, damit es per Quest geht. (or so)

2. Bei der Truhe ist es so'ne Sache, wenn durch das Random auswählen z.B. Sachen rauskommen die nicht ins Inventar passen, dann wird geblockt, werden nun aber durch den 2ten Klick auf die Truhe drei Items ausgewählt die ins Inventar passen, könnte man das was aus der Truhe kommt beeinflussen.. daher wäre droppen am leichtesten, um missbrauch zu verhindern..

Zu der Quest mit Droppen:
- Items die nicht stackable sind, kann man trotzdem mehr mal geben lassen
- Items können über z.B. 500 mal gegeben werden "Tränke" z.B.

01/31/2015 20:12 rollback#2077
Quote:
Originally Posted by Kilroy. View Post
[...]
{-- Vnum, Anzahl, stackable or not (0 no, 1 yes)

das kommt mir doch bekannt vor ;) :D

______________________________

Suche eine Quest die beim Rechtsklick auf das Item xxx wenn man im DT ist sofort in die Mordes Ebene teleportiert. Komme da grad net weiter x.X
02/01/2015 03:49 °Ace°#2078
Quote:
Originally Posted by °Ace° View Post
Tag Community,

kann mir einer eine Regenbogen Quest schreiben, wo man erst G Skills machen kann, sobald man M Skills hat. Jedoch sollte man nur ein Skill, skillen können und das mit nur ein Regenbogenstein.
help
02/01/2015 10:31 Dyshaxo#2079
Quote:
Originally Posted by °Ace° View Post
help
Hast glück, hatte die Listen schon fertig :D

Code:
quest rainbowstone begin
	state start begin
		when regenbogensteinvnum.use begin
			local job = pc.get_job()
			local group = pc.get_skill_group()

			if job == 0 and group == 1 then
				skillname = {"3-Wege-Schnitt", "Schwertwirbel", "Kampfrausch", "Aura des Schwertes", "Sausen", "Ladungsstoss"}
			elseif job == 0 and group == 2 then
				skillname = {"Durchschlag", "Heftiges Schlagen", "Stampfer", "Starker Körper", "Schwertschlag", "Neuer Skill"}
			elseif job == 1 and group == 1 then
				skillname = {"Hinterhalt", "Blitzangriff", "Degenwirbel", "Tarnung", "Giftwolke", "Neuer Skill"}
			elseif job == 1 and group == 2 then
				skillname = {"Rapider Schuss", "Pfeilhagel", "Napalm-Pfeil", "Federschreiten", "Eis-Pfeil", "Funkenschlag"}
			elseif job == 2 and group == 1 then
				skillname = {"Fingerschlag", "Drachenwirbel", "Verzauberte Klinge", "Furcht", "Verzauberte Rüstung", "Zauber Aufheben"}
			elseif job == 2 and group == 2 then
				skillname = {"Dunkler Schlag", "Flammenschlag", "Geist der Flamme", "Dunkler Schutz", "Geisterschlag", "Dunkler Stein"}
			elseif job == 3 and group == 1 then
				skillname = {"Fliegender Talisman", "Drachenschießen", "Drachengebrüll", "Segen", "Reflektieren", "Hilfe des Drachen"}
			elseif job == 3 and group == 2 then
				skillname = {"Blitzwurf", "Blitz Heraufbeschwören", "Blitzkralle", "Kurieren", "Schnelligkeit", "Angriff+"}
			end
			
			if job == 0 and group == 1 then
				skillvnum = {1, 2, 3, 4, 5, 6}
			elseif job == 0 and group == 2 then
				skillvnum = {16, 17, 18, 19, 20, 21}
			elseif job == 1 and group == 1 then
				skillvnum = {31, 32, 33, 34, 35, 36}
			elseif job == 1 and group == 2 then
				skillvnum = {46, 47, 48, 49, 50, 51}
			elseif job == 2 and group == 1 then
				skillvnum = {61, 62, 63, 64, 65, 66}
			elseif job == 2 and group == 2 then
				skillvnum = {76, 77, 78, 79, 80, 81}
			elseif job == 3 and group == 1 then
				skillvnum = {91, 92, 93, 94, 95, 96}
			elseif job == 3 and group == 2 then
				skillvnum = {106, 107, 108, 109, 110, 111}
			end
			
			say_title("Regenbogenstein")
			say("")
			say("Wähle einen Skill, dessen Stufe")
			say("du zum Großmeister steigern willst:")
			local s = select(skillname[1], skillname[2], skillname[3], skillname[4], skillname[5], skillname[6], "Abbrechen")
			if s == 7 then
				return
			else
				skilllevel = pc.get_skill_level(skillvnum[s], )
				if skilllevel >= 20 and skilllevel < 30 then
					pc.set_skill_level(skillvnum[s], 30)
					pc.remove_item(regenbogensteinvnum, 1)
				elseif skilllevel >= 30 then
					chat("Die Großmeister-Stufe dieses Skills ist bereits erreicht.")
				elseif skilllevel < 20 then
					chat("Du musst den Skill vorerst meistern, um ihn mit dem Regenbogenstein zu steigern.")
				end
			end
		end
	end
end
02/01/2015 12:24 .yorliK#2080
Quote:
Originally Posted by °Ace° View Post
Tag Community,

kann mir einer eine Regenbogen Quest schreiben, wo man erst G Skills machen kann, sobald man M Skills hat. Jedoch sollte man nur ein Skill, skillen können und das mit nur ein Regenbogenstein.
Sufu benutzen, P Skill Regenbogenstein Quest nehmen und umändern in G Skill....

hier alles für dich gemacht, brauchste nur noch einfügen..
Code:
quest regenbogenstein begin
	state start begin
		function BuildPerfectMasterSkillList(job, group)
		GRAND_MASTER_SKILL_LEVEL =20
		PERFECT_MASTER_SKILL_LEVEL = 30
		local skill_list = special.active_skill_list[job+1][group]
		local ret_vnum_list = {}
		local ret_name_list = {}

		-- test_chat(string.format("job=%d, group=%d", job, group))

		table.foreach(skill_list, 
		function(i, skill_vnum) 
		local skill_level = pc.get_skill_level(skill_vnum)

		-- test_chat(string.format("[%d]=%d", skill_vnum, skill_level))
		if skill_level >= GRAND_MASTER_SKILL_LEVEL and skill_level < PERFECT_MASTER_SKILL_LEVEL then

			table.insert(ret_vnum_list, skill_vnum)
			local name=locale.GM_SKILL_NAME_DICT[skill_vnum]
			if name == nil then name=skill_vnum end
			table.insert(ret_name_list, name)
			end
		end)
		return {ret_vnum_list, ret_name_list}


		--return {ret_vnum_list, ret_name_list}
		end
		when 50512.use begin
			if pc.get_skill_group() == 0 then
				say("Du hast noch keine Fertigkeiten.")
				say("Versuche es später erneut.")
				return
			end
			local result = regenbogenstein.BuildPerfectMasterSkillList(pc.get_job(), pc.get_skill_group())
			local vnum_list = result[1]
			local name_list = result[2]
			if table.getn(vnum_list) == 0 then
				say("Du hast keine Großmeister-Fertigkeiten.")
				return
			end
			local menu_list = {}
			table.foreach(name_list, function(i, name) table.insert(menu_list, name) end)
			table.insert(menu_list, "Abbrechen") 
			local s=select_table(menu_list)
			if table.getn(menu_list) == s then
				return
			end
			local skill_name=name_list[s]
			local skill_vnum=vnum_list[s]
			say("Soll "..skill_name.." wirklich auf G")
			say("geskillt werden?")
			if select("Ja","Nein")==2 then return end
			if pc.count_item(50512) >0 then
				pc.set_skill_level(skill_vnum, 30)
				say(skill_name.." wurde auf G gesetzt.")
			else
				say("Buguser bekommen keine Skills ! ")
			end
			pc.remove_item(50512, 1)
		end
	end
end
02/01/2015 13:57 °Ace°#2081
Kann mir einer pls eine Quest schreiben, wo man drauf klick (Links auf der Seite Ingame(Rolle)) und dann steht da, dass der jenige für Fragen verfügbar ist. Aber es sollen nur die User tun, die ein [] vor den Namen haben
02/01/2015 14:55 DarkCry96#2082
Ich bräuchte eine Quest nach folgendem Muster

Wenn ein bestimmter Mob gespawnt ist, wird eine Ankündigung geschrieben "Mob XY ist erschienen"
Wenn ein Spieler diesen Mob tötet soll eine Ankündigung geschrieben werden "Mob XY wurde getötet"
Vielleicht - aber nur vielleicht - wenn der Mob länger als 2 Stunden lebt "Mob XY lebt immernoch"

Der Mapindex für den Mob, den ich ankündigen möchte ist 73
02/01/2015 15:33 Dyshaxo#2083
Quote:
Originally Posted by °Ace° View Post
Kann mir einer pls eine Quest schreiben, wo man drauf klick (Links auf der Seite Ingame(Rolle)) und dann steht da, dass der jenige für Fragen verfügbar ist. Aber es sollen nur die User tun, die ein [] vor den Namen haben
Code:
--Kann mir einer pls eine Quest schreiben, wo man drauf klick
--(Links auf der Seite Ingame(Rolle)) und dann steht da, dass
--der jenige für Fragen verfügbar ist. Aber es sollen nur die
--User tun, die ein [] vor den Namen haben
quest gmnote begin
	state start begin
		when letter with pc.is_gm() begin
			send_letter("Online-Notiz senden")
		end
		
		when button or info begin
			say_title("Game Master Online Benachrichtigung")
			say("")
			say("Möchtest du den Spielern deine Anwesenheit")
			say("verkünden?")
			local s = select("Online-Notiz Senden", "Abbrechen")
			if s == 1 then
				notice_all(pc.get_name() .." ist Online und steht euch für Fragen zur Verfügung.")
			end
		end
	end
end
=)
02/01/2015 18:23 °Ace°#2084
Quote:
Originally Posted by Dyshaxo View Post
Code:
--Kann mir einer pls eine Quest schreiben, wo man drauf klick
--(Links auf der Seite Ingame(Rolle)) und dann steht da, dass
--der jenige für Fragen verfügbar ist. Aber es sollen nur die
--User tun, die ein [] vor den Namen haben
quest gmnote begin
	state start begin
		when letter with pc.is_gm() begin
			send_letter("Online-Notiz senden")
		end
		
		when button or info begin
			say_title("Game Master Online Benachrichtigung")
			say("")
			say("Möchtest du den Spielern deine Anwesenheit")
			say("verkünden?")
			local s = select("Online-Notiz Senden", "Abbrechen")
			if s == 1 then
				notice_all(pc.get_name() .." ist Online und steht euch für Fragen zur Verfügung.")
			end
		end
	end
end
=)
Mit low_wizzad rechte kann man das nicht machen, also da nützen die [] nicht... ?
02/02/2015 00:25 sapaul2009#2085
Hi epvp , möchte daraus ein anti exp ring machen , kann mir einer helfen eine quest dafür schreiben ? -> [Only registered and activated users can see links. Click Here To Register...]