[SERVICE] Die Questkontrolle

Page 709 of 845

709

11/09/2014 12:35 .yorliK#10621

Quote:

Originally Posted by TeRRoRSiZex3

Hey,

Hab ein kleines Problem mit nem Warp, werde n�mlich nach wait() nicht mehr Teleportiert.

Problem ist bekannt, es funktionieren keine Buttons wenn die Quest durch einen Login aktiviert wird. Um dies doch m�glich zumachen benutzt man Timer.

Code:

quest give_basic_weapon begin
	state start begin
		when login begin
			if pc.getqf("basic_weapon") == 0 then
				timer("basic_weapon", 1)
			end
		end
		when basic_weapon.timer begin
			pc.setqf("basic_weapon", 1)
			if pc.job == 0 then
				pc.give_item2(27002,200 )
				pc.give_item2(27002,200 )
				pc.give_item2(27005,200 )
				pc.give_item2(16)
				pc.give_item2(11206)
				pc.give_item2(12206)
				pc.give_item2(13006)
				pc.give_item2(14006)
				pc.give_item2(15006)
				pc.give_item2(16006)
				pc.give_item2(17006)
				pc.give_item2(72702)
				pc.give_item2(71044, 20)
				pc.give_item2(71045, 20)
				pc.give_item2(70021)
				pc.give_item2(10001)
				horse . set_level ( 21 ) 
				horse . ride ( ) 
				pc . give_item2 ( 50053 ) 
				pc . set_skill_level ( 131 , 59 )
				pc . set_skill_level ( 137 , 59 )
				pc . set_skill_level ( 138 , 59 )
				pc . set_skill_level ( 139 , 59 )
				pc . set_skill_level ( 140 , 59 )
				say_title("Wilkommen auf Servername")
				say("Wenn du Hilfe ben�tigst, frag einen Game-Master!")
				say("")
				say("Forum: http://gay.de/")
				say("Homepage: http://gay.de/")
				say("")
				say_reward("Es wird Zeit das du erf�hrst, was damals wirklich mit dir passiert ist!")
				say("")
					wait()
				pc.warp(40000,65000)

11/10/2014 02:51 KillHumans#10622

Spoiler

Code:

quest militarhorse begin
	state start begin
		when 20095.chat."Horse Militar" with horse.get_grade()>=11 begin
			if pc.level<=49 then
				say("You need level 50")
				say("to buy a militar horse!")
				say("")
			elseif pc.countitem("50050")>=1 then
				say("To have the militar horse")
				say("you need 21 medals.")
				say("You can drop the medals")
				say("at Cave of the Monkeys.")
				say("When you have a medal, please, come to me.")
				say("")
				setstate(need_item50050)
			elseif pc.countitem("50050")>=1 and pc.level>=49 then
				say("To get the horse")
				say("you need to pass an exam.")
				say("In 30 minutes, you must kill 300 Demon")
				say("Soldiers. Only then will receive the horse!")
				say("Results will be recorded on the medal.")
				local b=select("Okay", "Close")
				if 1==b then
					if pc.countitem("50050")>=1 then
						pc.removeitem("50050", 1)
						setstate(test)
					end
				elseif 2==b then
					say("You can not get your horse.")
				else
					say("UNKNOWN BUTTON ["..b.."]")
				end
			else
				say("You miss the Horse Mission.")
			end
		end
	end
	state need_item50050 begin
		when letter begin
			setskin(NOWINDOW)
			makequestbutton("Get 1 Horse Medal")
			q.set_title("Get 1 Horse Medal")
			q.start()
		end
		when button begin
			say(locale.NOTICE_COLOR.."1 Horse Medal!"..locale.NORMAL_COLOR)
			say("You need 1 Horse Medal")
			say("to be able to take the exam for the horse.")
			setstate(start)
			q.done()
		end
		when info begin
			say(locale.NOTICE_COLOR.."1 Horse Medal!"..locale.NORMAL_COLOR)
			say("You need 1 Horse Medal")
			say("to be able to take the exam for the horse.")
			setstate(start)
			q.done()
		end
	end
	state test begin
		when letter begin
			q.set_counter("剩下的五狼射手數量", 300-pc.getqf("kill_count"))
		end
		when 1001.kill begin
			pc.setqf("kill_count", pc.getqf("kill_count")+1)
			q.set_counter("剩下的五狼射手數量", 300-pc.getqf("kill_count"))
			if get_time()>=pc.getqf("limit_time") then
				setstate(failure)
			end
		end
		when letter begin
			q.set_clock("剩餘時間", pc.getqf("limit_time")-get_time())
		end
		when enter begin
			pc.setqf("limit_time", get_time()+300*60)
			pc.setqf("kill_count", 0)
		end
		when leave begin
			q.done()
		end
		when letter begin
			setskin(NOWINDOW)
			makequestbutton("Kill 300 Demon Soldiers")
			q.set_title("Kill 300 Demon Soldiers")
			q.start()
		end
		when button begin
			say(locale.NOTICE_COLOR.."Kill 300 Demon Soldiers!"..locale.NORMAL_COLOR)
			say("In 30 minutes you have to kill 300 Demon Soldiers.")
			say("Then back to the Stable Boy.")
		end
		when info begin
			say(locale.NOTICE_COLOR.."Kill 300 Demon Soldiers!"..locale.NORMAL_COLOR)
			say("In 30 minutes you have to kill 300 Demon Soldiers.")
			say("Then back to the Stable Boy.")
		end
		when 1001.kill with pc.getf("pony_buy","kill_count") >= 30 and pc.getf("pony_buy","limit_time")>=get_time() begin
			setstate(report)
		end
		when 20095.chat."PONY QUEST STATE REPAIR" with horse.get_grade()!=0 begin
			setstate(start)
			q.done()
		end
		when 20095.chat."Examination of the Horse" begin
			say("You want start the examination?")
			local b=select("Yes", "No")
			if 1==b then
			elseif 2==b then
				say("Are you sure?")
				local b=select("Yes", "No")
				if 1==b then
					say("So, Go!")
					setstate(start)
					q.done()
				elseif 2==b then
					say("Well!")
					say("Check back soon!")
				else
					say("UNKNOWN BUTTON ["..b.."]")
				end
			else
				say("UNKNOWN BUTTON ["..b.."]")
			end
		end
	end
	state report begin
		when letter begin
			setskin(NOWINDOW)
			makequestbutton("Exam Successfully Completed")
			q.set_title("Exam Successfully Completed")
			q.start()
		end
		when button begin
			say(locale.NOTICE_COLOR.."Exam Successfully Completed!"..locale.NORMAL_COLOR)
			say("Returns to the Stable Boy")
		end
		when info begin
			say(locale.NOTICE_COLOR.."Exam Successfully Completed!"..locale.NORMAL_COLOR)
			say("Returns to the Stable Boy")
		end
		when 20095.chat."PONY QUEST STATE REPAIR" with horse.get_grade()!=0 begin
			setstate(start)
			q.done()
		end
		when 20095.chat."Mission Successfully Completed!" with horse.get_grade()==0 begin
			say("Congratulations!")
			say("You concluded the exam successfully!")
			say("What you have to wait a day for the thumbnail")
			say("Horse is completed.")
			say("And also need to 10,000,000 Yangs.")
			if is_test_server() then
				pc.setqf("make_time", get_time()+10)
			else
				pc.setqf("make_time", get_time()+number(8, 16)*60*60)
			end
			setstate(wait)
		end
	end
	state wait begin
		when letter begin
			setskin(NOWINDOW)
			makequestbutton("Waiting for the Military Horse Book")
			q.set_title("Waiting for the Military Horse Book")
			q.start()
		end
		when button begin
			say(locale.NOTICE_COLOR.."Waiting for the Military Horse Book"..locale.NORMAL_COLOR)
			say("Your exam is being recorded on the Military Horse Book")
			say("You have to wait.")
		end
		when info begin
			say(locale.NOTICE_COLOR.."Waiting for the Military Horse Book"..locale.NORMAL_COLOR)
			say("Waiting for the Military Horse Book")
			say("You have to wait.")		
		end
		when login with get_time()>=pc.getf("pony_buy","make_time") begin
			setstate(buy)
		end
		when 20095.chat."Receive the Military Horse Book" with horse.get_grade()!=0 begin
			setstate(start)
			q.done()
		end
		when 20095.chat."Military Horse Book is ready?" with horse.get_grade()==0 begin
			say("Military Horse Book")
			say("Is still not ready. Back later.")
			say("Remember to bring 10.000.000 Yangs.")
		end
	end
	state buy begin
		when letter begin
			setskin(NOWINDOW)
			makequestbutton("Miniature Horse Finished")
			q.set_title("Miniature Horse Finished")
			q.start()
		end
		when button begin
			say(locale.NOTICE_COLOR.."Miniature Horse Finished!"..locale.NORMAL_COLOR)
			say("Apparently the Stable Boy")
			say("has finished your miniature.")
			say("Bring 10.000.000 Yangs. Go to Stable Boy")
		end
		when info begin
			say(locale.NOTICE_COLOR.."Miniature Horse Finished!"..locale.NORMAL_COLOR)
			say("Apparently the Stable Boy")
			say("has finished your miniature.")
			say("Bring 10.000.000 Yangs. Go to Stable Boy")
		end
		when 20095.chat."Miniature Horse" with horse.get_grade()==0 and get_time()>=pc.getf("pony_buy","make_time") begin
			say("Miniature Horse Is Finished!")
			say("Want to Buy a Miniature Horse?")
			local b=select("Yes", "No", "Abort!")
			if 1==b then
				if pc.money>=100000 then
					char_log(0, "HORSE_BUY", "BEGIN")
					pc.changemoney(-10000000)
					char_log(0, "HORSE_BUY", "DEC money 10000000")
					horse.unride()
					horse.advance()
					horse.ride()
					char_log(0, "HORSE_BUY", "INC horse_advance 1")
					pc.give_item2("50051", 1)
					char_log(0, "HORSE_BUY", "INC 50051 1")
					char_log(0, "HORSE_BUY", "END")
					say ("You already have the Horse.")
					say ("You can call the horse by clicking")
					say ("In Miniature Horse.")
					say ("Remember the Food!")
					setstate(start)
					q.done()
				else
					say("Back!")
				end
			elseif 2==b then
				say("Ok, back later.")
			elseif 3==b then
				say("Even Want to Abort?")
				say("Would Cancel It?")
				local b=select("Yes", "No")
				if 1==b then
					setstate(start)
				elseif 2==b then
				else
					say("UNKNOWN BUTTON ["..b.."]")
				end
			else
				say("UNKNOWN BUTTON ["..b.."]")
			end
		end
	end
	state failure begin
		when letter begin
			setskin(NOWINDOW)
			makequestbutton("You failed the exam")
			q.set_title("You failed the exam")
			q.start()
		end
		when button begin
			say(locale.NOTICE_COLOR.."You failed the exam"..locale.NORMAL_COLOR)
			say("Have you killed all 300 Demon Soldiers?")
			say("In 30 minutes? No.")
			say("What a shame.")
			say("Get yourself another Horse Medal")
			say("If you want to re-do the mission.")
			setstate(start)
			q.done()
		end
		when info begin
			say(locale.NOTICE_COLOR.."You failed the exam"..locale.NORMAL_COLOR)
			say("Have you killed all 300 Demon Soldiers?")
			say("In 30 minutes? No.")
			say("What a shame.")
			say("Get yourself another Horse Medal")
			say("If you want to re-do the mission.")
			setstate(start)
			q.done()
		end
	end
	state __COMPLETE__ begin
		when enter begin
			q.done()
		end
	end
end

11/10/2014 11:09 IceCreamx3#10623

Quote:

Originally Posted by IceCreamx3

Problem: Egal welches Monster ich kille, es kommt unten rechts
"Achivement erreicht". Zwar werden mir keine Punkte daf�r gutgeschrieben, aber es nervt, da es bei jedem Monster kommt.

Wenn ich dann einen Sensi kille, bekomm ich �berhaupt keine Punkte.

Quest:

Code:

quest achievement begin
	state start begin
		function get_points()
			return tonumber(mysql_query("select achievement from player.player where id = ".. pc.get_player_id() ..";")[1][1]) or 0
		end
		function GetInput(value)
			cmdchat("GetInputStart")
			local ret = input(cmdchat(value))
			cmdchat("GetInputStop")
			return ret
		end
		function set_points(p)
			mysql_query("update player.player set achievement = ".. p .." where id = ".. pc.get_player_id() ..";")
		end
		
		when 20095.chat."Achievementshop" begin
			cmdchat("SetIsNpc")
			npc.open_shop(49)
			setskin(NOWINDOW)
			cmdchat("SetPrice 100|100|100|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0")
		end
		when login begin
			cmdchat("SetQuestIndex "..q.getcurrentquestindex())
			cmdchat("setPP "..pc.getqf("achievement"))
			loop_timer("update", 4)
			if pc.getqf("first") == 0 then
				pc.setqf("achievement", pc.getqf("achievement")+10)
				cmdchat("achievement Dein_erster_Login%".. pc.getqf("achievement"))
				pc.setqf("first",1)
			end
		end
		when update.timer begin
			cmdchat("setPP "..pc.getqf("achievement"))
		end
		when button or info begin
			local items = {
				[1]={19, 1, 100},
				[2]={29, 1, 100},
				[3]={39, 1, 100},
			}
			local slot = tonumber(achievement.GetInput("GetInput"))+1
			if pc.getqf("achievement") >= items[slot][3] then
				pc.setqf("achievement", pc.getqf("achievement")-items[slot][3])
				cmdchat("setPP "..pc.getqf("achievement"))
				pc.give_item2(items[slot][1], items[slot][2])
			else
				cmdchat("NieMamPP")
			end
		end
		
		when kill with not npc.is_pc() and pc.getqf(npc.get_race()) == 0 begin
			local data = {
				[1093] = 3,
				[591] = 1,
				[691] = 1,
				[2191] = 2,
				[1304] = 2,
				[2206] = 2,
				[1901] = 2,
				[2091] = 2,
				[1191] = 3,
				[2307] = 2,
				[2493] = 4,
				[2598] = 4,
				[8027] = 1,
				[8051] = 1,
				[8052] = 1,
				[8053] = 1,
			}
			local v = npc.get_race()
			local killcount = pc.getqf(v .."_kill")
			local p = data[v] or 1000			
			cmdchat("setachieve ".. pc.getqf("achievement") + p)
			cmdchat("achievement ".. mob_name(v) .."_get�tet#".. killcount + 1 .."%".. pc.getqf("achievement") + p .."")
			pc.setqf("achievement", pc.getqf("achievement") + data[v])
		end
	end
end

11/11/2014 18:42 KampfBonn#10624

Hallo,

ich habe ein problem mit meiner Quest wen man in die 2. Etage kommt steckt man unsichtbar fest... Man muss erst aufs Pferd aufsteigen um weiter zu kommen wen man keines hat muss man sich via. Webseite oder Userpannel Map1 Teleportieren lassen hilfe bitte!

Hier mal die Quest!

Code:

quest catacomb begin
    state start begin
    
--Entry    

        when 2591.chat."Devils Catacomb (lv.140)" begin
            if pc.get_level() < 140 and pc.count_item(30122) >= 1 then
                say_title("W�chter der Katakombe")
                say("")
                say_reward("Du hast zwar ein Teil einer Karte aber du")
                say_reward("bist noch zu schwach f�r die Katakomben!")
                say("")
            elseif pc.get_level() > 139 and pc.count_item(30122) < 1 then
                say_title("W�chter der Katakombe")
                say("")
                say_reward("Du brauchst ein Teil einer Karte!")
                say("")
            elseif pc.get_level() > 139 and pc.count_item(30122) > 0 then
                say_title("W�chter der Katakombe")
                say("")
                say("Hinter mir liegt der Eingang zur")
                say("Devils Catacomb einem der Gef�hrlichsten")
                say("Orte die ich kenne...")
                say("")
                wait()
                say_title("W�chter der Katakombe")
                say("")
                say("Bisher haben "..game.get_event_flag("dcgamer").." Soldaten es versucht ")
                say("und "..game.get_event_flag("dc_geschaft").." haben es tats�chlich geschaft")
                say("Azrael zu besiegen!")
                wait()
                say_title("W�chter der Katakombe")
                say("")
                say_reward("Willst du es versuchen?")
                say_reward("du w�rst der "..game.get_event_flag("dc_versuche")..". K�mpfer der es")
                say_reward("versucht....")
                say("")
                local dc_login = select("Karte geben!", "Abbrechen")
                if dc_login == 1 then
                    pc.remove_item("30122", 1)
					pc.remove_item("70029", pc.count_item(70029))
					pc.remove_item("30320", pc.count_item(30320))
                    pc.warp(314800, 1209800)
                elseif dc_login == 2 then
                    return
                end
            end
        end            
--Ebene 1        
        when login with pc.get_map_index() == 209 begin
            game.set_event_flag(("dcgamer"), game.get_event_flag("dcgamer")+1)
            game.set_event_flag(("dc_versuche"), game.get_event_flag("dc_versuche")+1)            
            say_title("Devils Catacomb")
            say("Um in die 2.Ebene zu kommen musst du...")
            say_item("Rote Schreibfeder", 70029, "") --Die "--" vor say_item entfernen wenn beim Login text das Item als Bild angezeigt werden soll das man braucht
            say("auf die Statue des Kud ziehen!")
            say("")
            say_reward("Viel Gl�ck!")
            say("")
            pc.setqf("sksgedroppt", 0)
			d.spawn_mob(30101, 848, 739)
        end
        when kill with not npc.is_pc() and pc.get_map_index() == 209 begin 
            local sks = number(1,200)
            if sks==1 and pc.getqf("sksgedroppt")==0 then
                pc.setqf("sksgedroppt", 1)
                chat("Du hast die Rote-Schreibfeder gedroppt!")
                game.drop_item(70029, 1)    
            else
                chat("Dieses Monster hatte keinen Schl�ssel...")
            end
        end
        when 30101.take with item.vnum == 70029 begin
            item.remove()
			npc.purge()
            d.new_jump_all(209, 3636, 12086)
            say("~~~Schlagt euch zum Ruhnenpfahl durch!~~~")
            say("~~~Er spawnt nur, wenn ihr mind. 1 Tor durchbrochen habt~~~")
            d.regen_file("data/dungeon/devilcave/dc_regen_ebene2.txt")
            d.regen_file("data/dungeon/devilcave/dc_regen_tore_left.txt")
        end                          
		when 30111.kill with pc.in_dungeon() begin
			d.spawn_mob(30104, 741, 221)
		end
--Ebene 2
        when 30104.chat."Weiter...(Ebene 3)" begin
            npc.purge()
            say_reward("Inschrift")
            say("Es ist noch ein weiter weg...")
            wait()
            d.new_jump_all(209, 4427, 12284)
            d.setf("goto_ebene3", 0)
            d.notice("~~Es ist noch ein weiter weg...")
            d.notice("~~Findet und zerst�rt den richtigen Metin der Vergeltung~~")
            d.regen_file("data/dungeon/devilcave/dc_regen_ebene3.txt")
            d.spawn_mob(8043, 1351, 348)
            d.spawn_mob(8043, 1148, 350)
            d.spawn_mob(8043, 1151, 155)
            d.spawn_mob(8044, 1351, 149)
        end          
        when 8043.kill with pc.in_dungeon() begin
            d.notice("~~Ein Falscher Metin wurde zerst�rt~~")
        end
        when 8044.kill with pc.in_dungeon() begin
            d.notice("~~Der richtige Metin wurde zerst�rt~~")
            timer("devils_catacomb_goto_ebene4", 5)
        end    

        
--Ebene 4 (Labyrinth)
        when devils_catacomb_goto_ebene4.timer begin
            d.new_jump_all(209, 3143, 12657)
            d.setf("labyrinth", 1)
            d.spawn_mob(20023, 500, 720) 
			d.regen_file("data/dungeon/dc/dc_regen7.txt")
            d.notice("~~Findet den Weg aus dem Labyrinth~~")
            d.notice("~~und Liest dann die Inschrift am Runenpfahl~~")
        end            
        when 20023.chat."Wo muss ich hin?" with pc.in_dungeon() begin
            npc.purge()
            say_title(".....")
            d.notice("~~Ich werde euch zeigen wo es weiter geht...")
            timer("devils_catacomb_goto_ebene5", 5)
        end
--Ebene 6 (Tartaros)
        when devils_catacomb_goto_ebene5.timer begin
            d.new_jump_all(209, 3917, 12925)
            d.notice("~~Findet und T�tet Tartaros um ein Fratzen-Totem zu bekommen!~~")
            d.notice("~~und zieht es dann auf den Basalt-Obelisk~~")
            d.spawn_mob(30102, 848, 739)
            d.regen_file("data/dungeon/devilcave/dc_regen_ebene5.txt")
        end
		when 2526.kill with pc.in_dungeon() begin
			game.drop_item(30320, 1)
			pc.give_item2(30236)
		end
        when 30102.take with item.vnum == 30320 begin
            item.remove()
            npc.purge()
            say_reward("...")
            d.notice("~~Ihr habt es geschaft!~~")
            timer("devils_catacomb_goto_ebene6", 5)
        end
--Ebene 7 (Charon)
        when devils_catacomb_goto_ebene6.timer begin
            d.new_jump_all(209, 4411, 12736)
            d.notice("~~T�tet Charon um zur letzten Ebene zu kommen!~~")
            d.regen_file("data/dungeon/devilcave/dc_regen_ebene6.txt")
        end        
        when 2527.kill with pc.in_dungeon() begin
            pc.give_item2(30237)
            chat("Du hast eine Truhe bekommen!")
            d.notice("~~Ihr habt ihn besiegt...~~")
            d.notice("~~Bereitet euch auf den Kampf mit Azrael vor!~~")
            timer("devils_catacomb_goto_ebene7", 10)
        end
--Ebene 8 (Azrael)
        when devils_catacomb_goto_ebene7.timer begin
            d.new_jump_all(209, 3147, 13191)
            d.notice("~~T�tet Azrael nur dann bekommt ihr eine Belohnung!~~")
            d.regen_file("data/dungeon/devilcave/dc_regen_ebene7.txt")
        end
        when 2598.kill with pc.in_dungeon() begin
            game.set_event_flag(("dc_geschaft"), game.get_event_flag("dc_geschaft")+1)
            local level = pc.get_level()            
            d.notice("~~Ihr habt ihn Besiegt und euch eine Belohnung verdient!")
            d.kill_all()
            d.kill_all()
            notice_all("~~Der Spieler "..pc.get_name().." hat mit lv."..(level).." Azrael besiegt!~~")
            d.spawn_mob(9012, 74, 1159)   
			game.drop_item(30229, 1)
            pc.give_item2(30235)
        end
    end
end

W�rde mich riesig freuen wen ihr mir helfen k�nnt... habs selber versucht und immer wieder ging es nicht. Mir w�rde es auch reichen wen man nach der Schreibfeder teleportiert wird Kurz auf einem Pferd landet und dan automatisch wieder absteigt.

Mit freundlichen Gr��en
KampfBonn :handsdown:

11/11/2014 22:33 Dyshaxo#10625

Gibt es ein When-Event, welches dann eintritt, wenn man ein Item auf ein anderes Item zieht?

Falls nicht ->

Ich m�chte realisieren, dass ItemA bei Benutzung ItemB einen bestimmten Bonus gibt (Mittels item.set_value() ) - die einzige Art und Weise wie ich mir die Benutzung der Funktion bisher Vorstellen k�nnte - w�re, mit "Npcvnum.take", wenn man das Item auf einen NPC zieht, was ich aber gerne anders realisieren w�rde.

Nach recherche hab' ich die Funktion item.select() bzw. select.item() gefunden, aber hab' keine Ahnung, was genau diese Funktionen bringen, bzw. wie man diese Anwendet.

Antwort bitte wenn m�glich per PN, wei� nicht ob ich diesen Post wiederfinden w�rde :D

11/12/2014 17:15 .Soυzα#10626

Moin und zwar habe ich ein Problem ich wei� nicht wieso aber die Quest funktioniert nicht so wie sie soll.
Wenn ich die jeweilige Metins kille passiert nichts.

Code:

quest invasion50 begin
	state start begin
		when login or levelup with pc.get_level() >= 50 begin
			set_state(information)
		end
	end
	state information begin
		when letter begin
			send_letter("Die Invasion der Metins 1")
		end
		when info or button begin
			say_title("Metin der H�rte")
			say("Unsere Welt wird von unz�hligen")
			say("Metins heimgesucht, sie tauchen")
			say("�berall auf! Wir verteidigen uns")
			say("so gut, wie wir k�nnen doch jetzt")
			say("sind wir auf einen Helden angewiesen!")
			say("Deine Aufgabe:")
			say("Zerst�re 5 Metin der H�rte!")
			
			setstate(metin)
			
			pc.setqf("state", 0)
			q.set_counter("Verbleibende Metins", 5)

		end
	end
	state metin begin
		when letter begin
			send_letter("Zerst�re Metin der H�rte")
		end
		when button or info begin
			say_title("Zerst�re Metin der H�rte")
			say("Helf den Dorfbewohner indem")
			say("du 5 Metin der H�rte zerst�rst!")
			say_reward("Du hast bis jetzt "..pc.getqf("state").." Metin der H�rte zerst�rt!")
		end
		when 8010.kill begin
			local count = pc.getqf("state")+1
			
			if count <= 5 then
				pc.setqf("state", count)
				q.set_counter("Verbleibende Metins", 5 - count)

	
				if count == 5 then
					say_title("Metin der H�rte zerst�rt")
					say("Du hast es geschafft, du hast")
					say("unser Land vor der ersten Invasion")
					say("gerettet, doch es werden immer mehr!")
			
					say_reward("Du erh�lst Stein der Wiederkehr+4")
					say_reward("16.000.000 Yang")
					say_reward("1.534.000 Erfahrungspunkte")
					pc.change_money(16000000)
					pc.give_exp2(1534000)
					pc.give_item2(28432, 1)

					pc.setqf("state", 0)
					clear_letter()
					set_quest_state("invasion55","run")
					set_state(__COMPLETE__)
				end
			end
		end
	end
	state __COMPLETE__ begin
	end
end

11/12/2014 21:15 [SL]Sully#10627

Heyho, wollte mal fragen wo das Problem liegt das man keine Items bekommt wenn man darauf klickt.. Danke im Vorraus!

Spoiler

11/13/2014 12:18 terron#10628

Quote:

Originally Posted by [SL]Sully

Heyho, wollte mal fragen wo das Problem liegt das man keine Items bekommt wenn man darauf klickt.. Danke im Vorraus!

Spoiler

say_title("GM Set")
say_reward("Bitte w�hle deine Option")
local set = select ("GM Equipment", "Milit�rgaul", "Abbrechen")

if set == 1 then

local give_item2 = 189
local give_item2 = 3169
local give_item2 = 12209
local give_item2 = 11299
if pc.get_job() == 1 then
give_item2 = 1139
give_item2 = 11499
give_item2 = 12349
give_item2 = 2179
elseif pc.get_job() == 2 then
give_item2 = 199
give_item2 = 11699
give_item2 = 12489
give_item2 = 0
elseif pc.get_job() == 3 then
give_item2 = 5129
give_item2 = 11899
give_item2 = 12629
give_item2 = 0
end
send_letter("GM Panel")

elseif set == 2 then
say_title("Milit�rgaul")
pc.set_skill_level(131, 10)
horse.set_level(21)
horse.summon()
horse.ride()
pc.give_item2(50053, 1)
say_reward("Dein Pferd ist nun auf Level 21")
say_reward("Dein Pferderufen ist nun auf Level 10")
say_reward("Dein Pferd wurde gerufen")
say_reward("Du hast Waffenperfdebuch erhalten")
send_letter("GM Panel")

elseif set == 3 then
send_letter("GM Panel")
return
end

Learn [Only registered and activated users can see links. Click Here To Register...] or join [Only registered and activated users can see links. Click Here To Register...]. Your quest is totally broken.

11/13/2014 14:04 Rofelmau#10629

Quote:

Originally Posted by [SL]Sully

Heyho, wollte mal fragen wo das Problem liegt das man keine Items bekommt wenn man darauf klickt.. Danke im Vorraus!

Spoiler

say_title("GM Set")
say_reward("Bitte w�hle deine Option")
local set = select ("GM Equipment", "Milit�rgaul", "Abbrechen")

if set == 1 then

local give_item2 = 189
local give_item2 = 3169
local give_item2 = 12209
local give_item2 = 11299
if pc.get_job() == 1 then
give_item2 = 1139
give_item2 = 11499
give_item2 = 12349
give_item2 = 2179
elseif pc.get_job() == 2 then
give_item2 = 199
give_item2 = 11699
give_item2 = 12489
give_item2 = 0
elseif pc.get_job() == 3 then
give_item2 = 5129
give_item2 = 11899
give_item2 = 12629
give_item2 = 0
end
send_letter("GM Panel")

elseif set == 2 then
say_title("Milit�rgaul")
pc.set_skill_level(131, 10)
horse.set_level(21)
horse.summon()
horse.ride()
pc.give_item2(50053, 1)
say_reward("Dein Pferd ist nun auf Level 21")
say_reward("Dein Pferderufen ist nun auf Level 10")
say_reward("Dein Pferd wurde gerufen")
say_reward("Du hast Waffenperfdebuch erhalten")
send_letter("GM Panel")

elseif set == 3 then
send_letter("GM Panel")
return
end

probier mal so ^.^

Spoiler

achja soll

PHP Code:


			
give_item2 = 0

dem spieler yang geben?
wenn aj dann versuch es mal so

PHP Code:


			
pc.give_gold(summe)

@Souza
du kommst niemals auf den teil wo du die Metins killen sollst ^^
Fl�chtigkeitsfehler
du hast geschrieben

PHP Code:


			
setstate(metin)

11/13/2014 17:57 Bercol#10630

Es ist eine Weihnachtsquest die nicht wirklich funktioniert also wenn man etwas ausw�hlt passiert nichts man bekommt auch nicht das Item.

Code:

quest christmas_santa begin
    state start begin
	when santa.click begin
	    
		local skill_book_buy_cost =	1000000
	    local hairdye_buy_cost = 10000
	    local SKILL_BOOK_GROUP = 50300
	    local HAIRDYE_GROUP = 70201

	    say_title("Weihnachtsmann:")
		say("")
		say("Ho Ho Ho!")
		say("Mein Goldenes Buch verr�t mir")
		say("dass du dieses Jahr nicht sehr brav warst.")
		say("Trotzdem will ich nicht so sein und dir")
		say("deine Geschenke geben.")
		say("Nat�rlich bekommst du sie diesmal nicht umsonst...")
		say("")
		say_reward("Was m�chtest du denn haben?")
	    local s = select("Fertigkeitsb�cher", "Verbesserungsgenst�nde", "Ich m�chte doch nichts...")	
	    if s==1 then
		local r = npc.get_remain_skill_book_count();
		if r>0 then
		    say_title("Weihnachtsmann:")
			say("")
			say("Ein fertigkeitsbuch kostet 1.000.000 Yang.")
			say("M�chtest du eins haben?")
		    local s = select("Ja", "Nein")
		    if s==1 then
			if npc.get_remain_skill_book_count()>0 then
			    if pc.gold >= skill_book_buy_cost then
				npc.dec_remain_skill_book_count()
				pc.changegold(-skill_book_buy_cost)
				pc.give_item_from_special_item_group(SKILL_BOOK_GROUP)
			    else
				say("Du hast nicht genug Geld.")
			    end
			else
			    say("Huch? Habe ich ein Loch in meinem")
				say("Geschenkesack? Ich denke ja... alle")
				say("Fertigkeitsb�cher sind alle... tut mir leid...")
			end
		    end
		else
		    say("Huch? Habe ich ein Loch in meinem")
			say("Geschenkesack? Ich denke ja... alle")
			say("Fertigkeitsb�cher sind weg... tut mir leid...")
		end
	    elseif s==2 then
		local r = npc.get_remain_hairdye_count();
		if r>0 then
		    say_title("Weihnachtsmann:")
			say("")
			say("Verbesserungsgegenst�nde kosten 10.000 Yang.")
			say("M�chtest du welche haben?")
		    local s = select("Ja", "Nein")
		    if s==1 then
			if npc.get_remain_hairdye_count()>0 then
			    if pc.gold >= hairdye_buy_cost then
				npc.dec_remain_hairdye_count()
				pc.changegold(-hairdye_buy_cost)
				pc.give_item_from_special_item_group(HAIRDYE_GROUP)
			    else
				say("Du hast nicht genug Geld.")
			    end
			else
			say("Huch? Habe ich ein Loch in meinem")
			say("Geschenkesack? Ich denke ja... alle")
			say("Verbesserungsgegenst�nde sind weg... tut mir leid...")
			end
		    end
		else
			say("Huch? Habe ich ein Loch in meinem")
			say("Geschenkesack? Ich denke ja... alle")
			say("Verbesserungsgegenst�nde sind weg... tut mir leid...")
		end
	    elseif s==3 then
		say("Okay dann nicht...")
		say("HO HO HO!")
		say("Frohe Weihnachten...!")
		say("ho ho...")
	    end
	end
    end
end

11/13/2014 19:11 Rofelmau#10631

Quote:

Originally Posted by Bercol

Es ist eine Weihnachtsquest die nicht wirklich funktioniert also wenn man etwas ausw�hlt passiert nichts man bekommt auch nicht das Item.

Code:

quest christmas_santa begin
    state start begin
	when santa.click begin
	    
		local skill_book_buy_cost =	1000000
	    local hairdye_buy_cost = 10000
	    local SKILL_BOOK_GROUP = 50300
	    local HAIRDYE_GROUP = 70201

	    say_title("Weihnachtsmann:")
		say("")
		say("Ho Ho Ho!")
		say("Mein Goldenes Buch verr�t mir")
		say("dass du dieses Jahr nicht sehr brav warst.")
		say("Trotzdem will ich nicht so sein und dir")
		say("deine Geschenke geben.")
		say("Nat�rlich bekommst du sie diesmal nicht umsonst...")
		say("")
		say_reward("Was m�chtest du denn haben?")
	    local s = select("Fertigkeitsb�cher", "Verbesserungsgenst�nde", "Ich m�chte doch nichts...")	
	    if s==1 then
		local r = npc.get_remain_skill_book_count();
		if r>0 then
		    say_title("Weihnachtsmann:")
			say("")
			say("Ein fertigkeitsbuch kostet 1.000.000 Yang.")
			say("M�chtest du eins haben?")
		    local s = select("Ja", "Nein")
		    if s==1 then
			if npc.get_remain_skill_book_count()>0 then
			    if pc.gold >= skill_book_buy_cost then
				npc.dec_remain_skill_book_count()
				pc.changegold(-skill_book_buy_cost)
				pc.give_item_from_special_item_group(SKILL_BOOK_GROUP)
			    else
				say("Du hast nicht genug Geld.")
			    end
			else
			    say("Huch? Habe ich ein Loch in meinem")
				say("Geschenkesack? Ich denke ja... alle")
				say("Fertigkeitsb�cher sind alle... tut mir leid...")
			end
		    end
		else
		    say("Huch? Habe ich ein Loch in meinem")
			say("Geschenkesack? Ich denke ja... alle")
			say("Fertigkeitsb�cher sind weg... tut mir leid...")
		end
	    elseif s==2 then
		local r = npc.get_remain_hairdye_count();
		if r>0 then
		    say_title("Weihnachtsmann:")
			say("")
			say("Verbesserungsgegenst�nde kosten 10.000 Yang.")
			say("M�chtest du welche haben?")
		    local s = select("Ja", "Nein")
		    if s==1 then
			if npc.get_remain_hairdye_count()>0 then
			    if pc.gold >= hairdye_buy_cost then
				npc.dec_remain_hairdye_count()
				pc.changegold(-hairdye_buy_cost)
				pc.give_item_from_special_item_group(HAIRDYE_GROUP)
			    else
				say("Du hast nicht genug Geld.")
			    end
			else
			say("Huch? Habe ich ein Loch in meinem")
			say("Geschenkesack? Ich denke ja... alle")
			say("Verbesserungsgegenst�nde sind weg... tut mir leid...")
			end
		    end
		else
			say("Huch? Habe ich ein Loch in meinem")
			say("Geschenkesack? Ich denke ja... alle")
			say("Verbesserungsgegenst�nde sind weg... tut mir leid...")
		end
	    elseif s==3 then
		say("Okay dann nicht...")
		say("HO HO HO!")
		say("Frohe Weihnachten...!")
		say("ho ho...")
	    end
	end
    end
end

also wenn du nichtmal santa anklicken kannst, kann �nder mal diese zeile

PHP Code:


			
when santa.click begin

PHP Code:


			
when santavnum.chat begin

und santavnum durch santas vnum in der mop proto �ndern

11/13/2014 21:58 Tuora#10632

Habe mal eine kleine quest geschrieben jedoch beim Porten wird das fenster schwarz also 2r�nder von oben D: k�nnte es jemand mal richtig einstellen danke.

Spoiler

11/14/2014 20:26 Rofelmau#10633

Quote:

Originally Posted by ImTweet

Habe mal eine kleine quest geschrieben jedoch beim Porten wird das fenster schwarz also 2r�nder von oben D: k�nnte es jemand mal richtig einstellen danke.

Spoiler

PHP Code:

quest levelup begin state start begin when levelup begin if pc.get_level() == 30 then say("Du hast LvL 30 Erreicht,langsam wird es zeit") say("Das du deine Bildung auf Acardia fortsetzt.") say("Gehe bitte zum LandesW�chter.") say("Er erwartet dich bereits,also beeil dich") notice_all("".. pc.get_name() .." hat gerade Level 30 erreicht") notice_all("We love Acardia2.!") local s = select("Ja, ich m�chte", "Nein, m�chte ich nicht") local empire = pc.get_empire() if empire == 1 then pc.warp (469300, 964200) elseif empire == 2 then pc.warp (55700, 157900) elseif empire == 3 then pc.warp (969600, 278400) elseif s == 2 then return end end end end end

bitte dankesch�n

Spoiler

11/14/2014 23:21 Tuora#10634

Quote:

Originally Posted by Rofelmau

bitte dankesch�n

Spoiler

PHP Code:

quest levelup begin state start begin when levelup begin if pc.get_level() == 30 then say("Du hast LvL 30 Erreicht,langsam wird es zeit") say("Das du deine Bildung auf Acardia fortsetzt.") say("Gehe bitte zum LandesW�chter.") say("Er erwartet dich bereits,also beeil dich") notice_all("".. pc.get_name() .." hat gerade Level 30 erreicht") notice_all("We love Acardia2.!") local s = select("Ja, ich m�chte", "Nein, m�chte ich nicht") if s == 1 then local empire = pc.get_empire() if empire == 1 then pc.warp (469300, 964200) elseif empire == 2 then pc.warp (55700, 157900) elseif empire == 3 then pc.warp (969600, 278400) end elseif s == 2 then return end end end end end

Danke,habe aber immer noch das Problem,die R�nder des Clients werden schwarz auch wenn ich auf "Nein ich m�chte nicht drauf klick

11/15/2014 10:26 .yorliK#10635

Quote:

Originally Posted by ImTweet

Danke,habe aber immer noch das Problem,die R�nder des Clients werden schwarz auch wenn ich auf "Nein ich m�chte nicht drauf klick

Code:

quest levelupx begin 
	state start begin 
		when levelup begin 
			if pc.get_level() == 30 then 
				say("Du hast LvL 30 Erreicht,langsam wird es zeit") 
				say("Das du deine Bildung auf Acardia fortsetzt.") 
				say("Gehe bitte zum LandesW�chter.") 
				say("Er erwartet dich bereits,also beeil dich") 
				notice_all("".. pc.get_name() .." hat gerade Level 30 erreicht") 
				notice_all("We love Acardia2.!") 
				local s = select("Ja, ich m�chte", "Nein, m�chte ich nicht")
				setskin(NOWINDOW)
				if s == 1 then
					local empire = pc.get_empire() 
					if empire == 1 then  
						pc.warp (469300, 964200)  
					elseif empire == 2 then 
						pc.warp (55700, 157900)  
					elseif empire == 3 then 
						pc.warp (969600, 278400)
					end
				elseif s == 2 then 
					return 
				end 
			end  
		end  
	end  
end

Page 709 of 845

709