[SERVICE] Die Questkontrolle

Page 763 of 845

763

04/28/2015 11:21 stenlykkk#11431

Quote:

Originally Posted by bast�h33

Code:

when 50814.use begin
			if pc.getqf("powerover9000") > get_time() then
				syschat("Der Effekt wirkt bereits")
			else
				affect.add_collect(1, 1000, 60*3)
				pc.setqf("powerover9000", get_time() +60*3)
				pc.remove_item(item.vnum, 1)
			end

item type 18 glaub ich sollte gehn

Thanks ! :) :handsdown:

04/28/2015 17:13 Zphr#11432

Der Fehler kommt wenn ich auf einen Punkt klicke

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

der mich teleporten sollte :

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

Spoiler

04/29/2015 01:32 .ℓт ოﻨօ〤�#11433

hallo com, habe hier ne quest warum bekommt man keine Coins zugeschrieben?
hier ist die quest bitte hilft mir .

PHP Code:


			
quest dr_gutschein begin

    state start begin

        when 80014.use or 80015.use or 80016.use begin

            local p = 100

            if item.get_vnum() == 80015 then

                p = 500

            elseif item.get_vnum() == 80016 then

                p = 1000

            end    

            local accountid = mysql_query("SELECT * FROM player.player WHERE name='"..pc.get_name().."'","root","DBPW","player","DEINEIP")

            local coins = mysql_query("SELECT * FROM account.account WHERE id='"..accountid.account_id[1].."'","root","DBPW","account","DEINEIP")

            say_title("Drachenm�nzen Gutschein")

            say("Hallo "..pc.get_name()..".")

            say("M�chtest du diesen Gutschein")

            say("im Wert von "..p.." Drachenm�nzen einl�sen?")

            if select ("Ja","Nein") == 2 then return end

            local updatecoins = mysql_query("UPDATE account.account SET coins='"..coins.coins[1]+p.."' WHERE id='"..accountid.account_id[1].."'","root","DBPW","account","DEINEIP")

            chat("Deine Drachenm�nzen wurden dir erfolgreich gutgeschrieben.")

        end

    end

end

04/29/2015 06:31 rollback#11434

Quote:

Originally Posted by .ℓт ოﻨօ〤™

hallo com, habe hier ne quest warum bekommt man keine Coins zugeschrieben?
hier ist die quest bitte hilft mir .

PHP Code:

quest dr_gutschein begin state start begin when 80014.use or 80015.use or 80016.use begin local p = 100 if item.get_vnum() == 80015 then p = 500 elseif item.get_vnum() == 80016 then p = 1000 end local accountid = mysql_query("SELECT * FROM player.player WHERE name='"..pc.get_name().."'","root","DBPW","player","DEINEIP") local coins = mysql_query("SELECT * FROM account.account WHERE id='"..accountid.account_id[1].."'","root","DBPW","account","DEINEIP") say_title("Drachenm�nzen Gutschein") say("Hallo "..pc.get_name()..".") say("M�chtest du diesen Gutschein") say("im Wert von "..p.." Drachenm�nzen einl�sen?") if select ("Ja","Nein") == 2 then return end local updatecoins = mysql_query("UPDATE account.account SET coins='"..coins.coins[1]+p.."' WHERE id='"..accountid.account_id[1].."'","root","DBPW","account","DEINEIP") chat("Deine Drachenm�nzen wurden dir erfolgreich gutgeschrieben.") end end end

Die Abfrage ist unn�tig:

Code:

local p = 100 
if item.get_vnum() == 80015 then 
	p = 500 
elseif item.get_vnum() == 80016 then 
	p = 1000 
end

Kann man viel simpler und leichter anpassbar machen

ebenso wie diese query:

Code:

local accountid = mysql_query("SELECT * FROM player.player WHERE name='"..pc.get_name().."'","root","DBPW","player","DEINEIP")

wozu gibt es die questfunktion "pc.get_account_id()" ?

und diese query:

Code:

local coins = mysql_query("SELECT * FROM account.account WHERE id='"..accountid.account_id[1].."'","root","DBPW","account","DEINEIP")

ist ebenso unn�tig, man kann im update den aktuellen wert nehmen + einen neuen wert dazurechnen

Dann kommt hinzu, was zwar egal ist aber trotzdem unn�tig, dass den den Update in eine Variable gelegt hast. Das brauchst du nicht machen. Ausserdem hast du die coins (die in der DB den Datentyp int haben) mit '' gesetzt. In MySQL macht das zwar nichts aus, trotzdem sollte man sich daran nicht gew�hnen. In anderen DB-Systemen h�tte das auch dadurch nicht geklappt ;) (das gleiche auch bei der Account-ID)

Dazu hast du 1. vergessen abzufragen, ob das item noch im Inventar ist wenn der Spieler auf Ja dr�ckt (kann man einfach r�berhandeln w�hrend der Text kommt) und du hast es nicht removed.

Und warum es nicht geklappt hat:

Code:

"root","DBPW","account","DEINEIP"

an der Stelle muss nat�rlich was eingetragen werden, wenn nichts eingetragen wird, wird automatisch das aus der config genommen.

Hier die korrigierte Quest:

Code:

quest dr_gutschein begin 
	state start begin 
		when 80014.use or 80015.use or 80016.use begin 
			local coins = ({
				[80014] = 100,
				[80015] = 500,
				[80016] = 1000
			})[item.get_vnum()]
			say_title("Drachenm�nzen Gutschein") 
			say("Hallo "..pc.get_name()..".") 
			say("M�chtest du diesen Gutschein") 
			say("im Wert von "..coins.." Drachenm�nzen einl�sen?") 
			if select("Ja","Nein") == 2 then return end
			if pc.count_item(item.get_vnum()) < 1 then
				syschat("Nice try ...")
				return
			end
			pc.remove_item(item.get_vnum(), 1)
			mysql_query("UPDATE account.account SET coins = coins+"..coins.." WHERE id = "..pc.get_account_id().." LIMIT 1;") 
			syschat("Deine Drachenm�nzen wurden dir erfolgreich gutgeschrieben.") 
		end 
	end 
end

04/29/2015 12:31 .ℓт ოﻨօ〤�#11435

ich danke dir bin noch ein noob ;):handsdown:

04/29/2015 14:42 Toshiba22#11436

Tag, ich habe ein sd3 Problem , ich kann mich von dem Denkmal aus nicht in die Boss kammer von der BOSS Spinne im Sd3 Porten, obwohl ich einen schl�ssel habe, und in der GRP bin.Wenn ich mich hin porte per /warp befehl geht der RUN aber �ber das denkmal nicht ( Besetzt , oder einfach nichts ist die fehlermeldung ... )

quest sdentry begin
state start begin
when 20355.chat."Zugang zur Bruth�hle" begin
if pc.count_item("30324") < 1 then
say("Dieses Tor l�sst sich nur mit dem")
say("Arachnidenschl�ssel �ffnen. Diesen Schl�ssel")
say("droppst du von der K�nigsspinne im Spinnendungeon 1.")
elseif pc.count_item("30324") >= 1 then
say("Ihr habt die K�nigsspinne besiegt und")
say("einen Arachnidenschl�ssel ergattert?")
say("Ihr seid wahrlich bereit gegen die Baroness")
say("zu k�mpfen!")
say("Doch leider seid nur ihr allein dazu auserw�hlt!")
say("Ich teleporte euch jetzt.")
pc.remove_item("30324",1)
d.new_jump_all(193, 881, 6149)
d.regen_file("/home/game/share/data/dungeon/sd3/eier.txt")
d.regen_file("/home/game/share/data/dungeon/sd3/boss.txt")
end
end
when 2092.kill begin
timer("bosskill", 10)
syschat("Ihr habt es wirklich geschafft die Baroness zu t�ten!")
syschat("Ihr seit ein wahrer K�mpfer!")
syschat("Ihr werdet in 10 Sekunden in euer Dorf teleportiert.")
end
when bosskill.timer begin
d.exit_all_to_start_position()
end
end
end

05/02/2015 15:36 Zphr#11437

Spoiler

Code:

quest exp_storage begin
	state start begin
		when 20023.chat."Erfahrungslager" begin
				say_title("Erfahrungslager")
				say("")
				say_red("Das Erfahrungslager ist nur bis Level 89 verf�gbar !")
				say_green("Ab Level 90 ist es komplett f�r diesen Char deaktiviert.")
				say_green("Nach Level 89 hast du keinen Zugriff mehr auf deine")
				say_green("gelagerte Erfahrung und diese wird in keinem Fall")
				say_green("zur�ck erstattet.")
				say("")
				say_reward("Viel Spa� w�nscht euch Zephir")
				say("")
				wait()
				say_title("Erfahrungslager")
				say("")
				say_red("Damit das Verschicken von Erfahrung funktioniert")
				say_green("M�ssen beide Spieler das Erfahrungslager Lager")
				say_green("ge�ffnet haben und nahe bei Soon sein.")
				say("")
				say_red("Wir werden f�r nichts haften !")
				say("")
				say_white("Das System wurde getestet und ist Fehlerfrei!")
				say("")
				local ddd = select("Ja", "Nein")
				if	ddd == 1 and pc.get_level()<= 89 then
				setskin(NOWINDOW)
				cmdchat("SetEXPSafeboxQI "..q.getcurrentquestindex())
				cmdchat("SetEXPSafeboxExp "..pc.getqf("current_exp"))
				cmdchat("ShowEXPSafebox")
				elseif ddd == 1 and pc.get_level()>= 89 then
				say_title("Erfahrungslager")
				say("")
				say_red("Du bist �ber level 89 das Erfahrungslager ist")
				say_red("f�r dich leider deaktiviert !")
				say("")				
				elseif	ddd	==	2 then
				return
				end
		end
		when button or info begin
			setskin(NOWINDOW)
			local data = split(input(), ",")
			local curEXP = pc.getqf("current_exp")
			local new_exp = curEXP
			for i = 1, table.getn(data) do
			chat(data[i])
			end
			if table.getn(data) >= 2 then
				local input_exp = tonumber(data[2])
				chat(input_exp)
				if input_exp <= 0 then
					return
				end
				if data[1] == "donate" then
					if pc.get_exp() < input_exp or input_exp + curEXP >= 2000000000 then
						syschat("Du kannst nicht soviel Erfahrung spenden.")
						return
					end
					pc.give_exp2(-input_exp)
					chat(input_exp * (-1))
					new_exp = curEXP + input_exp
				elseif data[1] == "give" then
					if table.getn(data) >= 3 then
						local mylevel = pc.get_level()
						local find_vid = find_pc_by_name(data[3])
						if find_vid != 0 then
							if pc.is_near_vid(find_vid, 10) then
								if input_exp > curEXP then
									input_exp = curEXP
								end
								new_exp = curEXP - input_exp
								local me = pc.select(find_vid)
								local other_exp = pc.getqf("current_exp") + input_exp
								local other_name = pc.get_name()
								local other_level = pc.get_level()
								
								if mylevel-5 > other_level or mylevel+5 < other_level then
									pc.select(me)
									syschat("Dieser Spieler ist nicht in deinem Levelbereich.")
									syschat("Nur Spieler die 5 Level �ber oder unter deinem Level sind")
									return
								end
								
								pc.setqf("current_exp", other_exp)
								cmdchat("SetEXPSafeboxExp "..other_exp)
								syschat("Du hast "..input_exp.." Erfahrungspunkte im Lager erhalten.")
								pc.select(me)
								syschat("Du hast "..input_exp.." Erfahrungspunkte an "..other_name.." gegeben.")
							else
								syschat("Der Spieler muss in der N�he sein.")
							end
						else
							syschat("Der Spieler muss online sein.")
						end
					end
				elseif data[1] == "take" then
					if input_exp > curEXP then
						input_exp = curEXP
					end
					pc.give_exp2(input_exp)
					new_exp = curEXP - input_exp
				end
			end
			if new_exp != curEXP then
				pc.setqf("current_exp", new_exp)
				cmdchat("SetEXPSafeboxExp "..new_exp)
			end
		end
	end
end

explager
Wenn ich exp einzahle bekomme ich unmenegen an erfahrung und etliche lvl ups

05/02/2015 21:41 Shimao#11438

Nach dem ersten Login ist das Pferd Lvl. 30 aber nach einem Relog ist es wieder auf 0 uns bleibt auch dort, kann das Pferd dann trtz rufen aber keine Reitk�nste aus�ben.. will das man nach dem ersten Login permanent das Pferdelvl 30 hat..

Code:

quest pferdsofort begin
	state start begin
		when login begin
			horse.set_level(30)
			setstate(_COMPLETE_)
		end
	end
	state _COMPLETE_ begin
	end
end

05/02/2015 21:44 rollback#11439

Geht nur wenn man eine Lehre hat. Am besten in die Ausbildungsquest reinsetzen

05/03/2015 15:06 .yorliK#11440

Ich bin da auf ein Problem gesto�en, und zwar habe ich diese Quest:

Code:

quest Dadada begin
	state start begin
		when 35002.use begin
			game.set_event_flag("TestFlag", game.get_event_flag("TestFlag")+1)
			chat("Flag: "..game.get_event_flag("TestFlag"))
		end
	end
end

Diese setzt beim Aktiveren den TestFlag immer einen h�he und gibt dann den, so sollte es jedenfalls sein aktuellen Wert des Flags im Chat wieder. Da stimmt allerdings etwas nicht.
Im Chat ist immer der vorherige Wert des Flags zu sehen. Das hei�t der Flag ist 4 und wird auf 5 gesetzt, im Chat wird allerdings 4 angezeigt. Warum ist das so?

05/03/2015 15:13 rollback#11441

Quote:
Originally Posted by Kilroy.
Ich bin da auf ein Problem gesto�en, und zwar habe ich diese Quest:
Code:
quest Dadada begin
	state start begin
		when 35002.use begin
			game.set_event_flag("TestFlag", game.get_event_flag("TestFlag")+1)
			chat("Flag: "..game.get_event_flag("TestFlag"))
		end
	end
end
Diese setzt beim Aktiveren den TestFlag immer einen h�he und gibt dann den, so sollte es jedenfalls sein aktuellen Wert des Flags im Chat wieder. Da stimmt allerdings etwas nicht.
Im Chat ist immer der vorherige Wert des Flags zu sehen. Das hei�t der Flag ist 4 und wird auf 5 gesetzt, im Chat wird allerdings 4 angezeigt. Warum ist das so?

Sieht eigentlich richtig aus, es kann nat�rlich sein, dass der set-Befehl noch nicht fertig ist wenn der chat ausgef�hrt wird.

05/03/2015 15:33 Rofelmau#11442

Das ganze kann man ja sogar noch witziger machen

PHP Code:


			
quest Dadada begin

    state start begin

        when 35002.use begin

            local test = game.get_event_flag("TestFlag")+1

            game.set_event_flag("TestFlag", test)

            chat("Flag: "..game.get_event_flag("TestFlag"))

            chat("Test: "..test)

        end

    end

end

hier ist TestFlag nicht nur 1 hinterher, witzigerweise ist die variable Test richtig....

05/04/2015 08:46 stenlykkk#11443

Hello people,
I could ask about how to set up a reward for a boy char and a girl char?

Code:

quest ukol_kopani begin
        state start begin
					when levelup with pc.get_level() >= 30 begin 
		set_state( information )
                end
        end

        state information begin
                when letter begin

                        local v = find_npc_by_vnum(20015)

                        if v != 0 then
                                target.vid("__TARGET__", v, "Najdi Dřevorubce.")
                        end
                end


                when __TARGET__.target.click or
                        20015.chat."Tě�en� Rud " with pc.level >= 30 begin
                        target.delete("__TARGET__")
                        say_title("Dřevorubec:")
                        say("")
                        ----"123456789012345678901234567890123456789012345678901234567890"|
                        say("Hele ty!... Jo ty!... pojd ke mě. ")
                        say("")
                        say("Vid�m �e jsi na�el tuto oblast zde tu projde m�lo lid�  ")
                        say("ale m�m pro tebe l�kavou nab�dku. ")
                        say("")
                        say("Nechtěl by jsi mi pomoc?   ")
                        say("")
                        say("")
                        wait()
                        say_title("Dřevorubec:")
                        say("")
                        ----"123456789012345678901234567890123456789012345678901234567890"|
                        say("J� ti vyrob�m oblek kop�če  ")
                        say("ale chci aby jsi mi na to přinesl nějak� material.")
                        say("")
                        say("J� nejsem moc dobr� v kop�n� j� sp�e k�c�m stromy.")
                        say("A určitě ti to půjde l�pe ne� mě. ")
                        say("")
                        wait()
                        say_title("Dřevorubec :")
                        say("")
                        ----"123456789012345678901234567890123456789012345678901234567890"|
                        say("Na kost�m potřebuji 10x Měď a 10x Nefrit")
                        say("a 10x Diamant.")
                        say("")
                        say("Popravdě ti chci ř�ci �e potřebuji jen 5kusů od ka�d�ho")
                        say("ale r�d bych z toho tak� něco měl kdy� u� si st�m d�m tu pr�ci.")
                        say("ease.")
                        say("")
                        say("Je to velice tě�k� �kol.")
                        say("Přeje� si ho přijmout?!")
                        say("")
                        local s=select("Ano chci","Ne nechci")
                        if 2==s then
                                say_title("Dřevorubec:")
                                say("")
                                say("Opravdu nechce� přijmout tento �kol?")
                                say("mo�nost nepujde vr�tit...")
                                local a=select("Ano","Ne")
                                if  2==a then
                                        say_title("Dřevorubec:")
                                        say("")
                                        say("Nemus� se b�t!")
                                        say("")
                                        say("Mů�e� se ke mě kdykoliv vr�tit.")
                                        say("")
                                        return
                                end
                                say_title("Dřevorubec:")
                                say("")
                                say("Jak chce�....")
                                say("ta n�maha by za to opravdu st�la..")
                                say("srabe..")
                                say("")
                                set_state(__GIVEUP__)
                                return
                        end
                        say_title("Dřevorubec:")
                        say("")
                        say("Ano v�ně!?")
                        say("")
                        say("D�ky ti kamar�de. :) ")
                        say("")
                        set_state(to_gain_material)
                end
        end

        state to_gain_material begin

                when letter begin
                        send_letter("Tě�en� Rud")

                        local gold=pc.count_item(50627)
                        local silver=pc.count_item(50621)
                        local ebony=pc.count_item(50624)

                        if        gold>=10  and silver>=10 and ebony>=10 then
                                local v = find_npc_by_vnum(20015)

                                if v != 0 then
                                        target.vid("__TARGET__", v, "Dřevorubec")
                                end
                                return
                        end

                end

                when info or button begin
                        local gold=pc.count_item(50627)
                        local silver=pc.count_item(50621)
                        local ebony=pc.count_item(50624)

                        if        gold>=10  and silver>=10 and ebony>=10 then

                                say_title("M�m v�echen material na oblek!")
                                say("")
                                ----"123456789012345678901234567890123456789012345678901234567890"|
                                say("M�m v�echen material pro v�robu")
                                say("toho obleku.")
                                say("")
                                say("Měl bych mu to přin�st!")
                                say("")
                                return
                        end

                        say_title("D�t material!")
                        say("")
			----"123456789012345678901234567890123456789012345678901234567890"|
                        say("Dřevorubec potřebuje pro v�robu obleku.")
                        say("")
                        say("10x Měd , 10x Diamant , 10x Nefrit ")
                        say("")
                        say("")
                        say("Potřebn� věci se�ene� vytaven�m z rud.")
                        say("u alchemistů! ")
                        say("")
                        say("")
                        say("")
                        say("")
                end

                when __TARGET__.target.click or
                        20015.chat."Oblek kop�če." begin
                        target.delete("__TARGET__")

                        local gold = pc.count_item(50627)
                        local silver = pc.count_item(50621)
                        local ebony = pc.count_item(50624)


                        if        gold<10 or silver<10 or ebony<10 then

                                say_title("Dřevorubec:")
                                say("")
                                say("Nem� toho dostatek!!")
                                say("")

                                local s=select("Zkus�m to znovu","Ka�lu na to")
                                if 2==s then
                                  say_title("Dřevorubec")
                                say("")
                                say("Opravdu chce� �kol ukončit?")
                                say("")
                                        local a=select("Ano","Ne")
                                        if  2==a then
                                                say_title("Dřevorubec")
                                                say("")
						----"123456789012345678901234567890123456789012345678901234567890"|
                                                say("Asi je to pro tebe velice tě�k� �kol.")
                                                say("")
                                                say("Kdy� uva�uje� o ukončen�  ")
                                                return
                                        end
                                say_title(":")
                                say("")
                                ----"123456789012345678901234567890123456789012345678901234567890"|
                                  say("Bude to chviličku trvat...")
                                  say("")
                                  say("It was a breakthrough idea... A true shame.")
                                  say("")
                                        set_state(__GIVEUP__)
                                        return
                                end
                                say_title("Dřevorubec:")
                                say("")
                                ----"123456789012345678901234567890123456789012345678901234567890"|
                                say("Přesně tak nevzd�vej to!")
                                say("")
                                say("Hodně �těst�t kamar�de")
                                say("")
                                return
                end

                if        gold>=10  and silver>=10 and ebony>=10 then

                        say_title("Dřevorubec:")
                        say("")
                        ----"123456789012345678901234567890123456789012345678901234567890"|
                        say("Ty m� opravdu v�echen material?!")
                        say("")
                        say("Nějak�(�) rychl�(�)...,")
                        say("Dej mi ho a nestůj tam tak.")
                        say("")
                        wait()
                        say_title("Dřevorubec:")
                        say("")
                        ----"123456789012345678901234567890123456789012345678901234567890"|
                        say("Velice ti děkuji!")
		             
                        say("")
                        say("Tak zde m� svůj oblek.")
                        say("")
                        say("Snad se ti bude l�bit..")
                        say("")
                        pc.remove_item(50627,10)
                        pc.remove_item(50621,10)
                        pc.remove_item(50624,10)

                        say_reward("Zde m� 3.000.000 BZK")
                        pc.give_exp2(3000000)

                        say_reward("a zde 20.000.000 Yang.")
                        pc.change_money(20000000)

			if pc.job == 0 then
				pc.give_item2(Costume man ID)
				pc.give_item2(Hair Man ID)
				say_reward("costume Man ")
			elseif pc.job == 1 then
				pc.give_item2(costume woman id)
				pc.give_item2(hair woman ID)

				say_reward("costume woman")
			end
			say("")
                        clear_letter()
                        set_state(__COMPLETE__)
                end

                end
        end
state __GIVEUP__ begin
end
state __COMPLETE__ begin
        when enter begin
        end
end
end

05/04/2015 09:27 timiich12#11444

ich brauche einmal hilfe die quest klappt nicht und ich finde den Fehler nicht w�re nett wenn jemand mal dr�ber schaut

Spoiler

PHP Code:


			
quest horse_ride begin

    state start begin

        when 20349.chat."Pferd absitzen" with pc.level>=10 and pc.is_mount() begin

            say_title(mob_name(npc.get_race()))

            say("")

            say("Willst du von deinem Pferd absitzen?")

            if select("Absitzen", "Beenden")==1 then

                pc.unmount()

            end

        end

        when 20349.chat."Aufsitzen (Verwenden der Reitkarte)" with pc.level>=10 and not pc.is_mount() begin

            say_title(mob_name(npc.get_race()))

            say("")

            if get_global_time() - pc.getqf("ride_time") < 3600 then

                say("Hier kannst du dir ein Pferd mieten!")

                say("Komm wieder wenn du dich, dazu entschieden hast.")    

            else

                say("Bist du auf der Suche nach einem Reittier?")

                say("Wir vermieten derzeit Pferde an denjenigen,")

                say("die eine Reitkarte besitzen. Deine derzeitigen")

                say("Reitkuenste ermoeglichen dir 10 Minuten reiten.")

                say("Du kannst jedoch nicht vom Pferd aus schlagen.")

                if select("Reiten","Nicht reiten") == 1 then

                    if pc.count_item(50083)>0 then

                        pc.remove_item(50083, 1)

                        pc.mount(20030, 600)

                        pc.setqf("ride_time", get_global_time())

                    else

                        ay("Du besitzt keine Reitkarte.")

                    end

                end

            end

        end

    end

end

05/04/2015 09:29 rollback#11445

Quote:

Originally Posted by stenlykkk

Hello people,
I could ask about how to set up a reward for a boy char and a girl char?

Its pretty simple: pc.get_sex() (0 = male, 1 = female)

use this:

Code:

pc.give_item2(({vnumMale, vnumFemale})[pc.get_sex()+1], 1)

replace "vnumMale" with the item a male should get as reward and "vnumFemale" for the female reward

Page 763 of 845

763