[SERVICE] Die Questkontrolle

Page 574 of 845

574

07/21/2013 22:49 Sαirex#8596

Quote:

Originally Posted by gamer5695

hey leutz ich habe mal ne frage zu einer quest hab die einfach mal reingehauen aber hat nich geklappt m�chte eigentlich nur dass wenn man sich einloggt oder neu spawmt dass da charinformationen stehen wie z.B lvl yang gilde namen bla etc -pp ehm w�re nice von jemandem wenn er mir sie questen w�rde oder die angeh�ngte anschauen w�rd !
Ave
also hier die quest

Spoiler

quest userpanel begin
state start begin
when 20014.chat."Userpanel" begin
say_title("Wilkommen im Userpanel")
local a=select("Mitspieler", "Einstellungen", "Abbrechen")
if a==1 then
say_reward("Userpanel->Mitspieler")
local m=select("Suche", "M�gen/Hassen", "Zuverl�sigkeit", "Abbrechen")
if m==1 then
---Welches Level der gesuchte haben muss um gesucht zu werden
local levelmin=20
say_reward("Userpanel->Mitspieler->Suche")
say("Der Char muss mindestens Level "..levelmin.." sein")
say("Gebe den Namen ein des Spielers!")
local name=input()
---Eventflag abrufen und in neue Variable speichern
local level=""..name.."level"
local level=game.get_event_flag(level)
local nextlevel=level+1
local status=""..name.."status"
local status=game.get_event_flag(status)
local reich=""..name.."reich"
local reich=game.get_event_flag(reich)
local mapindex=""..name.."mapindex"
local mapindex=game.get_event_flag(mapindex)
local geld=""..name.."geld"
local geld=game.get_event_flag(geld)
local geldanzeige=""..name.."geldanzeige"
local geldanzeige=game.get_event_flag(geldanzeige)
local gilde=""..name.."gilde"
local gilde=game.get_event_flag(gilde)
local gildenleader=""..name.."gildenleader"
local gildenleader=game.get_event_flag(gildenleader)
local r�stung=""..name.."r�stung"
local r�stung=game.get_event_flag(r�stung)
local waffe=""..name.."waffe"
local waffe=game.get_event_flag(waffe)
local exp=""..name.."exp"
local exp=game.get_event_flag(exp)
local rang=""..name.."rang"
local rang=game.get_event_flag(rang)
local time=""..name.."time"
local time=game.get_event_flag(time)
local sex=""..name.."sex"
local sex=game.get_event_flag(sex)
local horse=""..name.."horse"
local horse=game.get_event_flag(horse)
local skill=""..name.."skill"
local skill=game.get_event_flag(skill)
local handel=""..name.."handel"
local handel=game.get_event_flag(handel)
local bewertungpro=""..name.."bewertungpro"
local bewertungpro=game.get_event_flag(bewertungpro)
local bewertungcontra=""..name.."bewertungcontra"
local bewertungcontra=game.get_event_flag(bewertungcontr a)
local meldung=""..name.."meldung"
local meldung=game.get_event_flag(meldung)
if level>=levelmin then
---gr��e des Fensters �ndern
say("[WINDOW_SIZE width;350|height;380]")
---Name des Spielers wird ausgegeben
say_reward("Name: "..name.."")
---Geschlecht des Spielers
if sex==0 then
say_reward("Geschlecht: m�nnlich")
elseif sex==1 then
say_reward("Geschlecht: weiblich")
end
---Welche Klasse er gew�hlt hat
if skill==0 then
say_reward("Klasse: Noch nicht ausgew�hlt")
elseif skill==1 then
say_reward("Klasse: K�rper Kriger")
elseif skill==2 then
say_reward("Klasse: Mental Kriger")
elseif skill==3 then
say_reward("Klasse: Nahkampf Ninja")
elseif skill==4 then
say_reward("Klasse: Fernkampf Ninja")
elseif skill==5 then
say_reward("Klasse: Waffen Sura")
elseif skill==6 then
say_reward("Klasse: Magie Sura")
elseif skill==7 then
say_reward("Klasse: Drachen Schamane")
elseif skill==5 then
say_reward("Klasse: Heil Schamne")
end
---Level des Spielers wird ausgegeben
say_reward("Level "..level.."")
---Noch ben�tigte EXP f�r das n�chste Level werden angebenen
if level==127 then
say_reward("Ben�tigte EXP: Maximales Level ereicht!")
else
say_reward("Ben�tigte EXP f�r Lv "..nextlevel..": "..exp.."")
end
---Rang Punkte ausgeben
say_reward("Rangpunkte: "..rang.."")
---Pferde Level ausgeben
say_reward("Pferdelevel: "..horse.."")
---Namen der Reiche
if reich==1 then
say_reward("Reich: Rotes Reich")
elseif reich==2 then
say_reward("Reich: Gelbes Reich")
elseif reich==3 then
say_reward("Reich: Blaues Reich")
end
---Gilden Breich
if sex==0 then
if gilde==0 then
say_reward("Gilde: keine")
elseif gildenleader==1 then
say_reward("Leader der Gilde: "..guild.name(gilde).."")
else
say_reward("Member der Gilde: "..guild.name(gilde).."")
end
elseif sex==1 then
if gilde==0 then
say_reward("Gilde: keine")
elseif gildenleader==1 then
say_reward("Leaderin der Gilde: "..guild.name(gilde).."")
else
say_reward("Memberin der Gilde: "..guild.name(gilde).."")
end
end
--Hier alle mapindexe rein
if mapindex==1 then
say_reward("Standort: Rotes Reich Map 1")
elseif mapindex==21 then
say_reward("Standort: Gelbes Reich Map 1")
elseif mapindex==41 then
say_reward("Standort: Blaues Reich Map 1")
elseif mapindex==200 then
say_reward("Standort: Drachental")
elseif mapindex==61 then
say_reward("Standort: Berg Sohan")
elseif mapindex==66 then
say_reward("Standort: D�monenturm")
elseif mapindex==65 then
say_reward("Standort: Hwang-Tempel")
elseif mapindex==3 then
say_reward("Standort: Rotes Reich Map 2")
elseif mapindex==23 then
say_reward("Standort: Gelbes Reich Map 2")
elseif mapindex==204 then
say_reward("Standort: New Map Burg")
elseif mapindex==112 then
say_reward("Standort: Duell-Arena")
elseif mapindex==181 then
say_reward("Standort: Burgschlacht Schnee")
elseif mapindex==182 then
say_reward("Standort: Burgschlacht ")
elseif mapindex==183 then
say_reward("Standort: Burgschlacht W�ste")
elseif mapindex==63 then
say_reward("Standort: Yongbi-W�ste")
elseif mapindex==67 then
say_reward("Standort: Lungsam")
elseif mapindex==24 then
say_reward("Standort: Gelbes Reich Gildenzone")
elseif mapindex==44 then
say_reward("Standort: Blaues Reich Gildenzone")
elseif mapindex==4 then
say_reward("Standort: Rotes Reich Gildenzone")
elseif mapindex==107 then
say_reward("Standort: Affendungeon Anf�nger")
elseif mapindex==108 then
say_reward("Standort: Affendungeon Normal")
elseif mapindex==109 then
say_reward("Standort: Affendungeon Experten")
elseif mapindex==5 then
say_reward("Standort: Affendungeon Anf�nger")
elseif mapindex==25 then
say_reward("Standort: Affendungeon Anf�nger")
elseif mapindex==45 then
say_reward("Standort: Affendungeon Anf�nger")
elseif mapindex==62 then
say_reward("Standort: Flammenland")
elseif mapindex==77 then
say_reward("Standort: Feuerland")
elseif mapindex==70 then
say_reward("Standort: Tal der Riesen")
elseif mapindex==113 then
say_reward("Standort: OX Event")
elseif mapindex==72 then
say_reward("Standort: Grotte der Verbannung")
elseif mapindex==73 then
say_reward("Standort: Grotte der Verbannung")
elseif mapindex==184 then
say_reward("Standort: Grotte der Verbannung")
elseif mapindex==186 then
say_reward("Standort: Grotte der Verbannung")
elseif mapindex==188 then
say_reward("Standort: Grotte der Verbannung")
elseif mapindex==185 then
say_reward("Standort: Grotte der Verbannung")
elseif mapindex==187 then
say_reward("Standort: Grotte der Verbannung")
elseif mapindex==189 then
say_reward("Standort: Grotte der Verbannung")
elseif mapindex==104 then
say_reward("Standort: Spinnendungeon Ebene1")
elseif mapindex==71 then
say_reward("Standort: Spinnendungeon Ebene2")
elseif mapindex==103 then
say_reward("Standort: Reichsduell")
elseif mapindex==105 then
say_reward("Standort: Winterland")
elseif mapindex==110 then
say_reward("Standort: Gildenkrieg")
elseif mapindex==111 then
say_reward("Standort: Gildenkrieg")
elseif mapindex==205 then
say_reward("Standort: Neue Stadt")
elseif mapindex==68 then
say_reward("Standort: Lungson")
elseif mapindex==203 then
say_reward("Standort: Neues Dorf")
elseif mapindex==69 then
say_reward("Standort: Schlangenfeld")
elseif mapindex==81 then
say_reward("Standort: Hochzeit")
elseif mapindex==64 then
say_reward("Standort: Orktal")
end
---Hier den Status eintragen
if status==0 then
say_reward("Status: Offline")
elseif status==1 then
say_reward("Status: Online")
end
---Wie lange man schon gespielt hat
say_reward("Spielzeit in Minuten: "..time.."")
---Yang anzeigen ja oder nein
if geldanzeige==0 then
say_reward("Yang: "..geld.."")
elseif geldanzeige==1 then
say_reward("Yang: Kein Zugriff! Wurde abgeschalten")
else
say_reward("Yang: Kein Zugriff! Wurde abgeschalten")
end
---User Bewertung
if sex==0 then
say_reward("Spieler m�gen ihn: "..bewertungpro.."")
say_reward("Spieler hassen ihn: "..bewertungcontra.."")
elseif sex==1 then
say_reward("Spieler m�gen sie: "..bewertungpro.."")
say_reward("Spieler hassen sie: "..bewertungcontra.."")
end
---Zuverl�ssigkeit Punkte
say_reward("Zuverl�ssigkeits Punkte: "..handel.."")
---Verwarnungspunkte
say_reward("Verwarnungs Punkte: "..meldung.."")
---Was ausgegeben wir wenn waffe und R�stung nicht ausger�stet ist
if waffe==0 and r�stung==0 then
say_reward("Waffe: Keine Ausger�stet")
say_reward("R�stung: Keine Ausger�stet")
else
---Auswahl men� wen eine Waffe oder eine R�stung oder beides Ausger�stet ist
local s = select("Ausr�stung", "Schlie�en")
if s==1 then
---Wenn man den ersten button dr�ckt! hier wird auch die gr�e de fenstern ge�ndert! breite ist standert nur h�he um 20 verschoben
if waffe==0 or r�stung==0 then
say("[WINDOW_SIZE width;350|height;260]")
else
say("[WINDOW_SIZE width;350|height;370]")
end
if waffe==0 then
say_reward("Waffe: Keine Ausger�stet")
else
say_reward(" Waffe")
say_item_vnum(waffe)
end
if r�stung==0 then
say_reward("R�stung: Keine Ausger�stet")
else
say_reward(" R�stung")
say_item_vnum(r�stung)
end
end
end
---Fehlermeldung wenn der char Level 0 ist also nicht existiert!
elseif level==0 then
say("Der gesuchte Charakter "..name.."")
say("Existiert nicht oder war noch nie eingelogt!")
---Fehlermeldung wenn der Char unter Level 20 ist
elseif level<levelmin then
say("Der gesuchte Charakter: "..name.."")
say("Ist noch nicht Level "..levelmin.."")
---Fehlerabfang mann sol den Fehler einem admin melden
else
say("Fehler 001")
say("Name des gesuchten Charakters ist: "..name.."")
say("Mele den Fehler bitte sofort einem Admin!")
say("Sag ihm auch welchen Charaktername du eingeben hast")
end
elseif m==2 then
say_reward("Userpanel->Mitspieler->M�gen/Hassen")
say("Gib den Namen des Users ein den")
say("Du magst/hasst:")
local eigname=pc.get_name()
local name=input()
local level=""..name.."level"
local level=game.get_event_flag(level)
local status=""..name.."status"
local status=game.get_event_flag(status)
local reich=""..name.."reich"
local reich=game.get_event_flag(reich)
local savename=""..name.."punkte"
local bewertungpro=""..name.."bewertungpro"
local bewertungcontra=""..name.."bewertungcontra"
local search = find_pc_by_name(name)
local bewertungpronow=game.get_event_flag(bewertungpro)+ 1
local bewertungcontranow=game.get_event_flag(bewertungco ntra)+1
if search==0 then
say("Du suche nach dem Charakter: "..name.."")
say("ergab kein Ergebnis!")
say(""..name.." ist offline oder existiert nicht!")
say("Versuche es erneut !")
elseif pc.getqf(savename)==1 then
say("Sie haben den User: "..name.."")
say("Schon einmal bewertet")
say("Sie k�nnen ihr nich nocheinmal bewerten")
elseif level<20 then
say("Der User: "..name.."")
say("ist noch unter Level 20!")
say("Sie k�nnen ihn erst ab Level 20 bewerten")
elseif name==eigname then
say("Sie k�nnen sich nicht selbst bewerten!")
elseif pc.getqf(savename)==0 then
say("Sie wollen disen User bewerten:")
say_reward("Name: "..name.."")
say_reward("Level: "..level.."")
if reich==1 then
say_reward("Reich: Rotes Reich")
elseif reich==2 then
say_reward("Reich: Gelbes Reich")
elseif reich==3 then
say_reward("Reich: Blaues Reich")
end
say("M�gen sie den Spieler oder hassen sie ihn:")
local s = select("Ich mag ihn", "Ich hasse ihn", "Abbrechen")
if s==1 then
pc.setqf(savename, 1)
game.set_event_flag(bewertungpro, game.get_event_flag(bewertungpro)+1)
say("Sie haben dem User: "..name.."")
say("Einen Ich mag ihn Punkt gegeben!")
say("Er hat jetzt "..bewertungpronow.." Gute Bewertungen")
elseif s==2 then
pc.setqf(savename, 1)
game.set_event_flag(bewertungcontra, game.get_event_flag(bewertungcontra)+1)
say("Sie haben dem User: "..name.."")
say("Einen Ich hasse ihn Punkt gegeben!")
say("Er hat jetzt "..bewertungcontranow.." Schlechte Bewertungen")
else
say("Dann eben nicht!")
end
end
elseif m==3 then
say_reward("Userpanel->Mitspieler->Zuverl�sigkeit")
say("Wenn du mit einem Handel zufrienden warst")
say("und dem User einen Zuverl�ssigkeit Punkte")
say("geben willst kannst du das hier machen")
say("Gebe den Namen des Users hier ein")
local eigname=pc.get_name()
local name=input()
local level=""..name.."level"
local level=game.get_event_flag(level)
local status=""..name.."status"
local status=game.get_event_flag(status)
local reich=""..name.."reich"
local reich=game.get_event_flag(reich)
local savename=""..name.."handelpunkt"
local handel=""..name.."handel"
local handelnow=game.get_event_flag(handel)+1
local search = find_pc_by_name(name)
if search==0 then
say("Du suche nach dem Charakter: "..name.."")
say("ergab kein Ergebnis! Versuche es erneut !")
elseif pc.getqf(savename)==1 then
say("Sie haben den den User: "..name.."")
say("schon einmal einen Punkt gegeben!")
say("Das k�nnen Sie nicht zwei mal")
elseif level<20 then
say("Der User: "..name.."")
say("ist noch unter Level 20!")
say("Sie k�nnen ihn erst ab Level 20 bepunkten")
elseif name==eigname then
say("Sie k�nnen sich nicht selbst bepunkten!")
elseif pc.getqf(savename)==0 then
say("Sie wollen disen User einen Punkt geben:")
say_reward("Name: "..name.."")
say_reward("Level: "..level.."")
if reich==1 then
say_reward("Reich: Rotes Reich")
elseif reich==2 then
say_reward("Reich: Gelbes Reich")
elseif reich==3 then
say_reward("Reich: Blaues Reich")
end
say("Sind sie sicher das es dier User war?")
say("Wenn ja dann klicken sie auf ja um")
say("ihm ein punkt zu geben!")
local s = select("Ja", "Abbrechen")
if s==1 then
pc.setqf(savename, 1)
game.set_event_flag(handel, game.get_event_flag(handel)+1)
say("Sie haben dem User: "..name.."")
say("Einen Zuverl�ssigkeit Punktet gegebn")
say("Er hat jetzt "..handelnow.." Punkte")
else
say("Dann eben nicht!")
end
end
end
elseif a==2 then
say_reward("Userpannel->Einstellungen")
local s = select("Yanganzeige", "Abbrechen")
---Yanganzeige
if s==1 then
say_reward("Userpannel->Einstellungen->Yanganzeige")
local name=pc.get_name()
local geldanzeige=""..name.."geldanzeige"
local geldanzeige=game.get_event_flag(geldanzeige)
if geldanzeige==0 then
say_reward("Die Geldanzeige ist momentan angeschalten")
elseif geldanzeige==1 then
say_reward("Die Geldanzeige ist momentan abgeschalten")
end
local y = select("Anschalten", "Abschalten")
if y==1 then
local geldanzeige=""..name.."geldanzeige"
say("Yanganzeige eingeschalten")
game.set_event_flag(geldanzeige, 0)
elseif y==2 then
local geldanzeige=""..name.."geldanzeige"
say("Yanganzeige abgeschalten")
game.set_event_flag(geldanzeige, 1)
else
---eigentlich un�tig^^
say("Fehler im Userverpannel CODE 0001")
say("Einem Admin bitte melden")
end
end
end
end
when login begin
timer("update1", 2)
end
when update1.timer begin
local name=pc.get_name()
local nlevel=""..name.."level"
local wlevel=pc.level
local nmapindex=""..name.."mapindex"
local wmapindex=pc.get_map_index()
local nstatus=""..name.."status"
local nreich=""..name.."reich"
local wreich=pc.get_empire()
local ngeld=""..name.."geld"
local wgeld=pc.get_money()
local ngilde=""..name.."gilde"
local wgilde=pc.get_guild()
local ngildenleader=""..name.."gildenleader"
local wgildenleader=1
local nr�stung=""..name.."r�stung"
local wr�stung=pc.getarmor()
local nwaffe=""..name.."waffe"
local wwaffe=pc.getweapon()
local nexp=""..name.."exp"
local wexp=pc.get_next_exp()
local nrang=""..name.."rang"
local wrang=pc.get_alignment()
local ntime=""..name.."time"
local wtime=pc.getplaytime()
local job=pc.get_job()
local skill=pc.get_skill_group()
local nskill=""..name.."skill"
local nsex=""..name.."sex"
local wsex=pc.get_sex()
local nhorse=""..name.."horse"
local whorse=pc.get_horse_level()
game.set_event_flag(nstatus, 1)
game.set_event_flag(nlevel, wlevel)
game.set_event_flag(nmapindex, wmapindex)
game.set_event_flag(nreich, wreich)
game.set_event_flag(ngeld, wgeld)
game.set_event_flag(ngilde, wgilde)
game.set_event_flag(nr�stung, wr�stung)
game.set_event_flag(nwaffe, wwaffe)
game.set_event_flag(nexp, wexp)
game.set_event_flag(nrang, wrang)
game.set_event_flag(ntime, wtime)
game.set_event_flag(nsex, wsex)
game.set_event_flag(nhorse, whorse)
if pc.is_guild_master() then
game.set_event_flag(ngildenleader, wgildenleader)
end
if job==0 and skill==1 then
game.set_event_flag(nskill, 1)
elseif job==0 and skill==2 then
game.set_event_flag(nskill, 2)
elseif job==1 and skill==1 then
game.set_event_flag(nskill, 3)
elseif job==1 and skill==2 then
game.set_event_flag(nskill, 4)
elseif job==2 and skill==1 then
game.set_event_flag(nskill, 5)
elseif job==2 and skill==2 then
game.set_event_flag(nskill, 6)
elseif job==3 and skill==1 then
game.set_event_flag(nskill, 7)
elseif job==3 and skill==2 then
game.set_event_flag(nskill, 8)
end
timer("update2", 60)
end
when update2.timer begin
timer("update1", 60)
end
when logout or shutdown or disconnect begin
local name=pc.get_name()
local nstatus=""..name.."status"
local nmapindex=""..name.."mapindex"
local wmapindex=pc.get_map_index()
game.set_event_flag(nstatus, 0)
game.set_event_flag(nmapindex, wmapindex)
end
end
end

:mofo:
danke im vorraus ihr geilen s�cke (nohomo] !

Code:

quest char_info begin
	state start begin
		when login begin
			notice("Name: ".. pc.get_name() .." | Level: ".. pc.get_level() .." | Gilde: ".. guild.name(pc.get_guild()) .." | Yang: ".. pc.get_gold() .."")
		end
	end
end

07/22/2013 10:39 Mijago#8597

Quote:

Originally Posted by ProfessorEnte

Das Problem liegt nicht an deiner Quest.
Hat mit dem schoenen Login zu tun, da geht einfach keine Auswahl! :D

Frag mich bitte nicht wieso. Hab mich damit abgefunden.

Hier zur Loesung deines Problems:

PHP Code:

quest language begin state start begin when login with pc.getqf("flogin") == 0 begin timer("start",2) end when start.timer begin local job_tab = { [0] = {11200,10,12200}, [1] = {11400,1000,12340}, [2] = {11600,10,12480}, [3] = {11800,7000,12620} } say_title("Choose a Language") say_title("W�hle eine Sprache aus") local lang = select("Deutsch / German","Englisch / English") if lang == 1 then pc.setqf("lang", 1) say_title("Herzlich willkommen auf Syphex2") say("") say("Hallo Abenteurer, willkommen in der Welt von Syphex2.") say("") say("Als Starterset erh�ltst du ein R�stungspaket+0.") elseif lang == 2 then pc.setqf("lang", 2) say_title("Welcome to Syphex2") say("") say("Hello adventurers, welcome to the world of Syphex2.") say("") say("As a starter you get a +0 armor package.") end pc.give_item2(27003, 200) pc.give_item2(27003, 200) pc.give_item2(27003, 200) pc.give_item2(27003, 200) pc.give_item2(27003, 200) pc.give_item2(27006, 200) pc.give_item2(27006, 200) pc.give_item2(27006, 200) pc.give_item2(27006, 200) pc.give_item2(27006, 200) pc.give_item2(job_tab[pc.get_job()][1], 1) pc.give_item2(job_tab[pc.get_job()][2], 1) pc.give_item2(job_tab[pc.get_job()][3], 1) pc.give_item2(13000, 1) pc.give_item2(14000, 1) pc.give_item2(15000, 1) pc.give_item2(16000, 1) pc.give_item2(17000, 1) pc.give_item2(71027, 5) pc.give_item2(71028, 5) pc.give_item2(71029, 5) pc.give_item2(71030, 5) pc.give_item2(70038, 200) end end end

Ich w�rde spontan Letter probieren :D

07/22/2013 18:57 ProfessorEnte#8598

Quote:

Originally Posted by Mijago

Ich w�rde spontan Letter probieren :D

PHP Code:


			
quest language begin

    state start begin

        when letter with pc.getqf("flogin") == 0 begin    

             local job_tab = {

                [0] = {11200,10,12200},

                [1] = {11400,1000,12340},

                [2] = {11600,10,12480},

                [3] = {11800,7000,12620}

            }

            say_title("Choose a Language")

            say_title("W�hle eine Sprache aus")

            local lang = select("Deutsch / German","Englisch / English")

            if lang == 1 then

                pc.setqf("lang", 1)

                say_title("Herzlich willkommen auf Syphex2")

                say("")

                say("Hallo Abenteurer, willkommen in der Welt von Syphex2.")

                say("")

                say("Als Starterset erh�ltst du ein R�stungspaket+0.")

            elseif lang == 2 then

                pc.setqf("lang", 2)

                say_title("Welcome to Syphex2")

                say("")

                say("Hello adventurers, welcome to the world of Syphex2.")

                say("")

                say("As a starter you get a +0 armor package.")

            end

            pc.give_item2(27003, 200)

            pc.give_item2(27003, 200)

            pc.give_item2(27003, 200)

            pc.give_item2(27003, 200)

            pc.give_item2(27003, 200)

            pc.give_item2(27006, 200)

            pc.give_item2(27006, 200)

            pc.give_item2(27006, 200)

            pc.give_item2(27006, 200)

            pc.give_item2(27006, 200)

            pc.give_item2(job_tab[pc.get_job()][1], 1)

            pc.give_item2(job_tab[pc.get_job()][2], 1)

            pc.give_item2(job_tab[pc.get_job()][3], 1)

            pc.give_item2(13000, 1)

            pc.give_item2(14000, 1)

            pc.give_item2(15000, 1)

            pc.give_item2(16000, 1)

            pc.give_item2(17000, 1)

            pc.give_item2(71027, 5)

            pc.give_item2(71028, 5)

            pc.give_item2(71029, 5)

            pc.give_item2(71030, 5)

            pc.give_item2(70038, 200)

        end

    end

end

Funzt!:D
Hat schon seinen Sinn wieso du der Lua Champion bist! :P

07/23/2013 23:20 xFamouZLP on Youtube#8599

Quest 1:

Spoiler

Quest 2:

Spoiler

Code:

quest truhen10 begin 
    state start begin 
        when 50109.use begin 
            pc.give_item2(71084, 1)                ---- Gegenstand verzaubern ---- 
            pc.give_item2(71085, 1)                ---- Gegenstand verst�rken ---- 
            pc.give_item2(71093, 1)                ---- Verwandlungskugel        ---- 
            pc.give_item2(27994, 1)                ---- Blutrote Perle           ---- 
            pc.give_item2(50110, 1)                ---- Lehrlingstruhe II       ---- 
            pc.remove_item(50109, 1)            ---- Truhe verschwindet ---- 
        end 
        when 50110.use with pc.get_level() >= 10 begin 
            pc.give_item2(27877, 1)                ---- Gegrillte Schmerle ---- 
            pc.give_item2(28437, 1)                ---- Stein der Monster+4 ---- 
            pc.give_item2(180, 1)                ---- Giftschwert+0 ---- 
            pc.give_item2(11280, 1)                ---- Drachengott-Panzer+0 ---- 
            pc.give_item2(50111, 1)                ---- Lehrlingstruhe III ---- 
            pc.remove_item(50110, 1)            ---- Truhe verschwindet ---- 
        end 
        when 50111.use with pc.get_level() >= 20 begin 
            pc.give_item2(27003, 100)            ---- Roter Trank (G) ---- 
            pc.give_item2(27002, 100)            ---- Roter Trank (M) ---- 
            pc.give_item2(27001, 100)            ---- Roter Trank (K) ---- 
            pc.give_item2(27004, 100)            ---- Blauer Trank (K) ---- 
            pc.give_item2(27005, 100)            ---- Blauer Trank (M) ---- 
            pc.give_item2(27006, 100)            ---- Blauer Trank (G) ---- 
            pc.give_item2(50112, 1)                ---- Expertentruhe I ---- 
            pc.remove_item(50111, 1)            ---- Truhe verschwindet ---- 
        end 
        when 50112.use with pc.get_level() >= 30 begin 
            pc.give_item2(25041, 1)                ---- Magischer Stein ---- 
            pc.give_item2(27102, 50)            ---- Gr�ner Trank (G) ---- 
            pc.give_item2(27105, 50)            ---- Violetter Trank (G) ---- 
            pc.give_item2(50113, 1)                ---- Expertentruhe II ---- 
            pc.remove_item(50112, 1)            ---- Truhe verschwindet ---- 
        end 
        when 50113.use with pc.get_level() >= 40 begin 
            pc.give_item2(50114, 1)                ---- Expertentruhe III ---- 
            pc.remove_item(50113, 1)            ---- Truhe verschwindet ---- 
        end 
        when 50114.use with pc.get_level() >= 50 begin 
            pc.give_item2(53005, 1)                ---- Azrael-Siegel (Pet) ---- 
            pc.give_item2(72003, 1)                ---- Erfahrungsring (3 Std) ---- 
            pc.give_item2(72006, 1)                ---- Handschuhe des Diebes (3 Std) ---- 
            pc.give_item2(50115, 1)                ---- Meistertruhe I ---- 
            pc.remove_item(50114, 1)            ---- Truhe verschwindet ---- 
        end 
        when 50115.use with pc.get_level() >= 60 begin 
            pc.give_item2(71110, 1)                ---- Pferdezucker ---- 
            pc.give_item2(72031, 5)                ---- Drachengott-Angriff ---- 
            pc.give_item2(72034, 5)                ---- Drachengott-Verteidigung ---- 
            pc.give_item2(72037, 5)                ---- Drachengott-Leben ---- 
            pc.give_item2(50120, 1)                ---- Meistertruhe II ---- 
            pc.remove_item(50115, 1)            ---- Truhe verschwindet ---- 
        end 
        when 50120.use with pc.get_level() >= 70 begin 
            pc.give_item2(50121, 1)                ---- Meistertruhe III ---- 
            pc.remove_item(50120, 1)            ---- Truhe verschwindet ---- 
        end 
        when 50121.use with pc.get_level() >= 80 begin 
            pc.give_item2(50122, 1)                ---- Gro�meistertruhe ---- 
            pc.remove_item(50121, 1)            ---- Truhe verschwindet ---- 
        end 
        when 50122.use with pc.get_level() >= 90 begin 
            pc.give_item2(50127, 1)                ---- Gr�ne Zaubertruhe ---- 
            pc.remove_item(50121, 1)            ---- Truhe verschwindet ---- 
        end 
        when 50127.use with pc.get_level() >= 50 begin 
            pc.give_item2(14220, 1)                ---- Seelenkristallarmband+0 ---- 
            pc.give_item2(50129, 1)                ---- Lilane Zaubertruhe ---- 
            pc.remove_item(50127, 1)            ---- Truhe verschwindet ---- 
        end 
        when 50129.use with pc.get_level() >= 90 begin 
            pc.give_item2(50011, 1)                ---- Mondlicht-Schatztruhe ---- 
            pc.remove_item(50129, 1)            ---- Truhe verschwindet ---- 
        end 
    end 
end

07/24/2013 05:48 PlayaStylee#8600

Hallo bin auf der Suche nach ein automatischen Chatblock quest gibs denn sowas wenn ja Kann mir einer geben ?

07/24/2013 16:34 .Kay331#8601

Habe folgendes Problem:

Die Goldene Schmied Quest und die Achivement QUest st�ren sich weil
in beider when 1095.kill steht.. denn wenn ich den Blauen Tod kille
werden nur die punkte gez�hlt, quest funktioniert denn 0.
Habe mal zum test bei der Schmeid Quest when 101.kill bla bla.. gemacht
und die Quest funktioniert dann :D

Habe jetzt versucht bei der Achivement Quest den abteil:

PHP Code:


			
when 1095.kill begin

            local Reward = 1

            local Achievement = "Blauer_Tod"

            local killcount = pc.getqf("1095")

            local actual_achievement_points = pc.getqf("achievement_points")

            pc.setqf("1095", killcount + 1)

            pc.setqf("achievement_points", actual_achievement_points + Reward)

            cmdchat("achievement ".. Achievement .."_get�tet#".. killcount + 1  .."%".. actual_achievement_points + Reward .."")

        end

in den Teil abzu�ndern

PHP Code:


			
when kill with npc.get_race()==1095 begin

            local Reward = 1

            local Achievement = "Blauer_Tod"

            local killcount = pc.getqf("1095")

            local actual_achievement_points = pc.getqf("achievement_points")

            pc.setqf("1095", killcount + 1)

            pc.setqf("achievement_points", actual_achievement_points + Reward)

            cmdchat("achievement ".. Achievement .."_get�tet#".. killcount + 1  .."%".. actual_achievement_points + Reward .."")

        end

Nun geht zwar die Schmied quest aber die Achivement-Punkte
bekomme ich jetzt nicht mehr. Kann es sein das bei mir
die funktion: npc.get_race()
nicht eingebaut ist? Ich habe die questlib von mijago.

Jemand eine Idee? w�rde doch schon gerne das man f�r
den Blauen Tod denn auch die punkte bekommt :)

07/24/2013 16:55 .CHJonas#8602

Quote:

Originally Posted by .Kay331

Habe folgendes Problem:

Die Goldene Schmied Quest und die Achivement QUest st�ren sich weil
in beider when 1095.kill steht.. denn wenn ich den Blauen Tod kille
werden nur die punkte gez�hlt, quest funktioniert denn 0.
Habe mal zum test bei der Schmeid Quest when 101.kill bla bla.. gemacht
und die Quest funktioniert dann :D

Habe jetzt versucht bei der Achivement Quest den abteil:

PHP Code:

when 1095.kill begin local Reward = 1 local Achievement = "Blauer_Tod" local killcount = pc.getqf("1095") local actual_achievement_points = pc.getqf("achievement_points") pc.setqf("1095", killcount + 1) pc.setqf("achievement_points", actual_achievement_points + Reward) cmdchat("achievement ".. Achievement .."_get�tet#".. killcount + 1 .."%".. actual_achievement_points + Reward .."") end

in den Teil abzu�ndern

PHP Code:

when kill with npc.get_race()==1095 begin local Reward = 1 local Achievement = "Blauer_Tod" local killcount = pc.getqf("1095") local actual_achievement_points = pc.getqf("achievement_points") pc.setqf("1095", killcount + 1) pc.setqf("achievement_points", actual_achievement_points + Reward) cmdchat("achievement ".. Achievement .."_get�tet#".. killcount + 1 .."%".. actual_achievement_points + Reward .."") end

Nun geht zwar die Schmied quest aber die Achivement-Punkte
bekomme ich jetzt nicht mehr. Kann es sein das bei mir
die funktion: npc.get_race()
nicht eingebaut ist? Ich habe die questlib von mijago.

Jemand eine Idee? w�rde doch schon gerne das man f�r
den Blauen Tod denn auch die punkte bekommt :)

Versuch es so:

PHP Code:


			
when kill begin

        if npc.race == 1095 then

            local Reward = 1 

            local Achievement = "Blauer_Tod" 

            local killcount = pc.getqf("1095") 

            local actual_achievement_points = pc.getqf("achievement_points") 

            pc.setqf("1095", killcount + 1) 

            pc.setqf("achievement_points", actual_achievement_points + Reward) 

            cmdchat("achievement ".. Achievement .."_get�tet#".. killcount + 1  .."%".. actual_achievement_points + Reward .."") 

        end

Poste bitte auch mal deine andere Quest.

07/24/2013 17:10 .Kay331#8603

Quote:

Originally Posted by .CHJonas

Versuch es so:

PHP Code:

when kill begin if npc.race == 1095 then local Reward = 1 local Achievement = "Blauer_Tod" local killcount = pc.getqf("1095") local actual_achievement_points = pc.getqf("achievement_points") pc.setqf("1095", killcount + 1) pc.setqf("achievement_points", actual_achievement_points + Reward) cmdchat("achievement ".. Achievement .."_get�tet#".. killcount + 1 .."%".. actual_achievement_points + Reward .."") end

Poste bitte auch mal deine andere Quest.

Habs grade versucht, kommt ebenfalls nichts (._.)

gold_blacksmith.quest

Spoiler

PHP Code:


			
quest gold_blacksmith begin
    state start begin
        when 1095.kill with pc.in_dungeon() and pc.get_map_index() == 660000 begin
            d.kill_all()
            d.kill_all()
            d.notice("10. Ebene:")
            d.notice("- Unglaublich, ihr habt tats�chlich den Blauen Tod bezwungen, als kleine Belohnung")
            d.notice("- erscheinen alle drei Turmschmiede und ihr d�rft nat�rlich die Beute mitnehmen.")
            d.spawn_mob(34205, 601, 433)
            d.setf("btkill", 1)
            pc.setqf("boss_killed", 1)
            game.set_event_flag("uppen",0)
        end
        when 34205.take begin
            local out = mysql_query("SELECT * FROM player.refine_proto WHERE id = (SELECT refine_set FROM player.item_proto WHERE vnum = "..item.get_vnum()..");")
            if type(out) ~= "table" then 
                syschat("Du kannst diesen Gegenstand nicht verbessern.") 
                return
            else
                out.cost[1] = out.cost[1] --Faktor zur erh�hung des Preises
                if pc.get_gold() < tonumber(out.cost[1]) then
                    syschat("Nicht gen�gend Yang f�r eine Verbesserung.")
                    return    
                end  
                if game.get_event_flag("uppen") == 1 then
                    syschat("Du kannst nur 1 mal uppen.")
                elseif game.get_event_flag("uppen") == 0 then
                    pc.change_gold(-out.cost[1])
                    item.over9refine()
                    game.set_event_flag("uppen",1)
                    syschat("Die Gegenstandsverbesserung war erfolgreich.")
                end 
            end
        end
    end
end

07/24/2013 17:17 Noa_#8604

Quote:

Originally Posted by .Kay331

Habs grade versucht, kommt ebenfalls nichts (._.)

gold_blacksmith.quest

Spoiler

PHP Code:

quest gold_blacksmith begin state start begin when 1095.kill with pc.in_dungeon() and pc.get_map_index() == 660000 begin d.kill_all() d.kill_all() d.notice("10. Ebene:") d.notice("- Unglaublich, ihr habt tats�chlich den Blauen Tod bezwungen, als kleine Belohnung") d.notice("- erscheinen alle drei Turmschmiede und ihr d�rft nat�rlich die Beute mitnehmen.") d.spawn_mob(34205, 601, 433) d.setf("btkill", 1) pc.setqf("boss_killed", 1) game.set_event_flag("uppen",0) end when 34205.take begin local out = mysql_query("SELECT * FROM player.refine_proto WHERE id = (SELECT refine_set FROM player.item_proto WHERE vnum = "..item.get_vnum()..");") if type(out) ~= "table" then syschat("Du kannst diesen Gegenstand nicht verbessern.") return else out.cost[1] = out.cost[1] --Faktor zur erh�hung des Preises if pc.get_gold() < tonumber(out.cost[1]) then syschat("Nicht gen�gend Yang f�r eine Verbesserung.") return end if game.get_event_flag("uppen") == 1 then syschat("Du kannst nur 1 mal uppen.") elseif game.get_event_flag("uppen") == 0 then pc.change_gold(-out.cost[1]) item.over9refine() game.set_event_flag("uppen",1) syschat("Die Gegenstandsverbesserung war erfolgreich.") end end end end end

ich hatte dir doch geschrieben das du das auch beid er 2ten quest schreiben sollst

bei der quest "gold_blacksmith"

PHP Code:


			
when kill with pc.in_dungeon() and pc.get_map_index() == 660000 and npc.get_race()== 1095 begin

beim achivment:

PHP Code:


			
when kill with npc.get_race()==1095 begin

07/24/2013 17:26 .Kay331#8605

Quote:

Originally Posted by ΞΠ∪Μ

ich hatte dir doch geschrieben das du das auch beid er 2ten quest schreiben sollst

bei der quest "gold_blacksmith"

PHP Code:

when kill with pc.in_dungeon() and pc.get_map_index() == 660000 and npc.get_race()== 1095 begin

beim achivment:

PHP Code:

when kill with npc.get_race()==1095 begin

Habe ich ja gemacht gehabt.
Au�erhalb vom Dt run bekomme ich auch die Punkte, innerhalb wenn ich da
den Blauen Tod nun Kille geht nur die Quest f�r den Schmied aber
die Achivement punkte werden dort nicht gez�hlt :(

07/24/2013 17:38 Noa_#8606

versuchs mal so

PHP Code:


			
when kill with npc.get_race()== 1095 begin 

            local Reward = 1 

            local Achievement = "Blauer_Tod" 

            local killcount = pc.getqf(npc.get_race()) 

            local actual_achievement_points = pc.getqf("achievement_points") 

            pc.setqf(npc.get_race(), killcount + 1) 

            pc.setqf("achievement_points", actual_achievement_points + Reward) 

            cmdchat("achievement ".. Achievement .."_get�tet#".. killcount + 1  .."%".. actual_achievement_points + Reward .."") 

        end

07/24/2013 17:47 .Kay331#8607

Ich habs jetzt geschafft :D
habs jetzt so geregelt, jetzt laufen auch beide quests.
Ich danke euch beiden f�r die schnelle hilfe :)

PHP Code:


			
when kill with npc.get_race()==1095 begin 
            local Reward = 1  
            local Achievement = "Blauer_Tod"  
            local killcount = pc.getqf("1095")  
            local actual_achievement_points = pc.getqf("achievement_points")  
            pc.setqf("1095", killcount + 1)  
            pc.setqf("achievement_points", actual_achievement_points + Reward)  
            cmdchat("achievement ".. Achievement .."_get�tet#".. killcount + 1  .."%".. actual_achievement_points + Reward .."")  
        end
        when kill with npc.get_race()==1095 and pc.get_map_index() == 660000 begin 
            local Reward = 1  
            local Achievement = "Blauer_Tod"  
            local killcount = pc.getqf("1095")  
            local actual_achievement_points = pc.getqf("achievement_points")  
            pc.setqf("1095", killcount + 1)  
            pc.setqf("achievement_points", actual_achievement_points + Reward)  
            cmdchat("achievement ".. Achievement .."_get�tet#".. killcount + 1  .."%".. actual_achievement_points + Reward .."")  
        end

07/24/2013 17:54 denni1199#8608

Ich hab mir �berlegt einen jagdauftrag zu machen wo man von level 127 sofort auf level 165 komm ist die quest richtig , denn es zeigt bei mir diesen fehler an :

[Only registered and activated users can see links. Click Here To Register...]

dies ist meine Quest:

PHP Code:


			
----------------------------------------------

 Level-128      Jage Mantikor Krieger 

 Made with 1337_Noize's Jagdquestmaker

----------------------------------------------

quest Jage Mantikor Krieger  begin

    state start begin

        when login with pc.level >= 128 begin

            set_state(information)

        end

    end



    state information begin

        when letter begin

            send_letter("Level-128      Jage Mantikor Krieger ")

        end



        when info or button begin

            say("Level-128      Jage Mantikor Krieger ")

            say("Du tapferer Krieger,")

            say("jage mir 407 Mantikor Krieger  und du wirst auf level 165 gestuft.")

            say_reward("Jage 407 Mantikor Krieger.")

            say("")

            pc.setqf("state", 407)

            q.set_counter("Mantikor Krieger", 407)

        end



        when 3201.kill begin

            local count = pc.getqf("state") - 1

            if count <= 407 then

                pc.setqf("state", count)

                q.set_counter("Mantikor Krieger", count)

            end

            if count == 0 then

                say_title("Level-128      Jage Mantikor Krieger ")

                say("Du hast die Quest erfolgreich abgeschlossen!")

                say("Du wirst:")

                say_reward("nun auf level 165 gestuft")

                pc.give_exp2( noch unklar muss ich rumprobieren )

                clear_letter()

                set_state(__COMPLETE__)



            end

        end

    end



    state __COMPLETE__ begin

    end

end

07/24/2013 18:43 ProfessorEnte#8609

Quote:

Originally Posted by denni1199

Ich hab mir �berlegt einen jagdauftrag zu machen wo man von level 127 sofort auf level 165 komm ist die quest richtig , denn es zeigt bei mir diesen fehler an :

[Only registered and activated users can see links. Click Here To Register...]

dies ist meine Quest:

PHP Code:

---------------------------------------------- Level-128 Jage Mantikor Krieger Made with 1337_Noize's Jagdquestmaker ---------------------------------------------- quest Jage Mantikor Krieger begin state start begin when login with pc.level >= 128 begin set_state(information) end end state information begin when letter begin send_letter("Level-128 Jage Mantikor Krieger ") end when info or button begin say("Level-128 Jage Mantikor Krieger ") say("Du tapferer Krieger,") say("jage mir 407 Mantikor Krieger und du wirst auf level 165 gestuft.") say_reward("Jage 407 Mantikor Krieger.") say("") pc.setqf("state", 407) q.set_counter("Mantikor Krieger", 407) end when 3201.kill begin local count = pc.getqf("state") - 1 if count <= 407 then pc.setqf("state", count) q.set_counter("Mantikor Krieger", count) end if count == 0 then say_title("Level-128 Jage Mantikor Krieger ") say("Du hast die Quest erfolgreich abgeschlossen!") say("Du wirst:") say_reward("nun auf level 165 gestuft") pc.give_exp2( noch unklar muss ich rumprobieren ) clear_letter() set_state(__COMPLETE__) end end end state __COMPLETE__ begin end end

quest mantikor_blabla_bums begin

"_" <- dazwischen, keine leerzeichen.

07/24/2013 18:54 Noa_#8610

Quote:

Originally Posted by denni1199

Ich hab mir �berlegt einen jagdauftrag zu machen wo man von level 127 sofort auf level 165 komm ist die quest richtig , denn es zeigt bei mir diesen fehler an :

[Only registered and activated users can see links. Click Here To Register...]

dies ist meine Quest:

PHP Code:

---------------------------------------------- Level-128 Jage Mantikor Krieger Made with 1337_Noize's Jagdquestmaker ---------------------------------------------- quest Jage Mantikor Krieger begin state start begin when login with pc.level >= 128 begin set_state(information) end end state information begin when letter begin send_letter("Level-128 Jage Mantikor Krieger ") end when info or button begin say("Level-128 Jage Mantikor Krieger ") say("Du tapferer Krieger,") say("jage mir 407 Mantikor Krieger und du wirst auf level 165 gestuft.") say_reward("Jage 407 Mantikor Krieger.") say("") pc.setqf("state", 407) q.set_counter("Mantikor Krieger", 407) end when 3201.kill begin local count = pc.getqf("state") - 1 if count <= 407 then pc.setqf("state", count) q.set_counter("Mantikor Krieger", count) end if count == 0 then say_title("Level-128 Jage Mantikor Krieger ") say("Du hast die Quest erfolgreich abgeschlossen!") say("Du wirst:") say_reward("nun auf level 165 gestuft") pc.give_exp2( noch unklar muss ich rumprobieren ) clear_letter() set_state(__COMPLETE__) end end end state __COMPLETE__ begin end end

PHP Code:


			
quest Jage_Mantikor_Krieger  begin 

    state start begin 

        when login or lvlup with pc.level >= 128 begin

            pc.setqf("state", 407) 

            q.set_counter("Mantikor Krieger", 407) 

            set_state(information) 

        end 

    end 

    state information begin 

        when letter begin 

            send_letter("Level-128 Jage Mantikor Krieger ") 

        end 

        when info or button begin 

            say("Level-128 Jage Mantikor Krieger ") 

            say("Du tapferer Krieger,") 

            say("jage mir 407 Mantikor Krieger  und du wirst auf level 165 gestuft.") 

            say_reward("Jage 407 Mantikor Krieger.") 

        end 

        when kill with npc.get_race()==3201 begin 

            local count = pc.getqf("state") - 1 

            if count <= 407 then 

                pc.setqf("state", count) 

                q.set_counter("Mantikor Krieger", count) 

            end 

            if count == 0 then 

                say_title("Level-128 Jage Mantikor Krieger ") 

                say("Du hast die Quest erfolgreich abgeschlossen!") 

                say("Du wirst:") 

                say_reward("nun auf level 165 gestuft") 

                pc.give_exp2( noch unklar muss ich rumprobieren ) 

                clear_letter() 

                set_state(__COMPLETE__) 

            end 

        end 

    end 

    state __COMPLETE__ begin 

    end 

end

Page 574 of 845

574