[SERVICE] Die Questkontrolle

quest warpring begin
    state start begin
        when 70007.use begin
            say_title("Warpring") 
            say("Wohin möchtest du Teleportiert werden?")
        local empire = pc.get_empire() 
                    local selectmap = select("Map1","Map2","Orktal","Wüste","Eisland","Feuerland","Weiter","Abbrechen")
                    if selectmap == 8 then
                return
                    elseif selectmap == 7 then
                        say_title("Warpring") 
                        say("Wohin möchtest du Teleportiert werden?")
            local selectmap2 = select("Dämonenturm","Geisterwald","Roter Wald","Spinnendungeon","Grotte der Verbannung 2","FarmMap 1","FarmMap 2","Abbrechen")
                    if selectmap2 == 8 then
                        return
                    elseif selectmap2 == 1 then
                        say_title("Warpring") 
                        say("Wohin möchtest du Teleportiert werden?")
            pc.warp(590500,110800)
                    elseif selectmap2 == 2 then
                        say_title("Warpring") 
                        say("Wohin möchtest du Teleportiert werden?")
                    local geisterselect = select("Anfang","Ende","Abbrechen")
                    if geisterselect == 3 then
                        return
                    elseif geisterselect == 1 then
            pc.warp(290500,5700)
                    elseif geisterselect == 2 then
            pc.warp(286400,44200)
            end
                    elseif selectmap2 == 3 then
                        say_title("Warpring") 
                        say("Wohin möchtest du Teleportiert werden?")
                    local roterselect = select("Anfang","Ende","Abbrechen")
                    if roterselect == 3 then
                        return
                    elseif roterselect == 1 then
            pc.warp(1119900,70800)
                    elseif roterselect == 2 then
            pc.warp(1119100,7700)
            end
                    elseif selectmap2 == 4 then
                        say_title("Warpring") 
                        say("Wohin möchtest du Teleportiert werden?")
            pc.warp(91700, 525300)
                    elseif selectmap2 == 5 then
                        say_title("Warpring") 
                        say("Wohin möchtest du Teleportiert werden?")
            pc.warp(241300, 1275400)
                    elseif selectmap2 == 6 then
                        say_title("Warpring") 
                        say("Wohin möchtest du Teleportiert werden?")
            pc.warp(271800,13000)
                    elseif selectmap2 == 7 then
                        say_title("Warpring") 
                        say("Wohin möchtest du Teleportiert werden?")
            if pc.get_level() <= 75 then
            pc.warp(2640700,2693900)
        end
                    elseif selectmap == 1 then
                        say_title("Warpring") 
                        say("Wohin möchtest du Teleportiert werden?")
                    local map1select = select("Rotes Reich","Gelbes Reich","Blaues Reich","Abbrechen")
                    if map1select == 4 then
                        return
                    elseif map1select == 1 then
            pc.warp(474300, 954800)
                    elseif map1select == 2 then
            pc.warp(63800, 166400)
                    elseif map1select == 3 then
            pc.warp(959900, 269200)
            end
                    elseif selectmap == 2 then
                        say_title("Warpring") 
                        say("Wohin möchtest du Teleportiert werden?")
                    local map2select = select("Rotes Reich","Gelbes Reich","Blaues Reich","Abbrechen")
                    if map2select == 4 then
                        return
                    elseif map2select == 1 then
            pc.warp(353100, 882900)
                    elseif map2select == 2 then
            pc.warp(145500, 240000)
                    elseif map2select == 3 then
            pc.warp(863900, 246000)
            end
                    elseif selectmap == 3 then
                        say_title("Warpring") 
                        say("Wohin möchtest du Teleportiert werden?")
                    local otselect = select("Anfang","Mitte","Abbrechen")
                    if otselect == 3 then
                        return
                    elseif otselect == 1 then
            if empire == 1 then
            pc.warp(402100, 673900)
                    elseif empire == 2 then
            pc.warp(270400, 739900)
                    elseif empire == 3 then
            pc.warp(321300, 808000)
            end
                    elseif otselect == 2 then
            pc.warp(332800, 745600)
            end
                    elseif selectmap == 4 then
                        say_title("Warpring") 
                        say("Wohin möchtest du Teleportiert werden?")
                    local wuesteselect = select("Anfang","Mitte","Abbrechen")
                    if wuesteselect == 3 then
                        return
                    elseif wuesteselect == 1 then
            if empire == 1 then
            pc.warp(217800, 627200)
                    elseif empire == 2 then
            pc.warp(221900, 502700)
                    elseif empire == 3 then
            pc.warp(344000, 502500)
            end
                    elseif wuesteselect == 2 then
            pc.warp(296800, 547100)
            end
                    elseif selectmap == 5 then
                        say_title("Warpring") 
                        say("Wohin möchtest du Teleportiert werden?")
                    local eisselect = select("Anfang","Mitte","Abbrechen")
                    if eisselect == 3 then
                        return
                    elseif eisselect == 1 then
            if empire == 1 then
            pc.warp(434200, 290600)
                    elseif empire == 2 then
            pc.warp(375200, 174900)
                    elseif empire == 3 then
            pc.warp(491800, 173600)
            end
                    elseif eisselect == 2 then
            pc.warp(436500, 215400)
            end
                    elseif selectmap == 6 then
                        say_title("Warpring") 
                        say("Wohin möchtest du Teleportiert werden?")
                    local feuerselect = select("Anfang","Mitte","Abbrechen")
                    if feuerselect == 3 then
                        return
                    elseif feuerselect == 1 then
            if empire == 1 then
            pc.warp(599400, 756300)
                    elseif empire == 2 then
            pc.warp(597800, 622200)
                    elseif empire == 3 then
            pc.warp(730700, 689800)
                    elseif feuerselect == 2 then
            pc.warp(600800, 687100)
            end
                end
                    end
                        end
                end

quest ring_detect begin
	state say_ring_of_ipkn begin
		when letter begin
			setskin(NOWINDOW)
			makequestbutton("The ring talked to me")
			q.set_title("The ring talked to me")
			q.start()
		end
		when button begin
			say(locale.NOTICE_COLOR.."The ring talked to me"..locale.NORMAL_COLOR)
			say("You must be surprised to see talking ring?")
			say("Well.. good. Do you want to have a deal?")
			say("I want to go out of here. But to do that")
			say("I need your help.")
			say("That's nothing much. But if you do it for me")
			say("I will reward you")
			say("What do you say?")
			say("")
			local b=select("Listen to the ring", "Refuse")
			if 1==b then
				say("Good. Very good. Of course")
				say("I want your Good/evil points. If you can give me[ENTER]I will make you invisible for one hour")
				say("What a good deal. Isn't it?")
				local b=select("Accept", "Refuse")
				if 1==b then
				elseif 2==b then
					setstate(start)
					q.done()
				else
					say("UNKNOWN BUTTON ["..b.."]")
				end
			elseif 2==b then
				say("Can you do this next time?")
				say("why did you throw me into fire if you were going to refuse?")
				say("Don't you think? Before the fire goes out")
				say("think one more time")
				say("")
				if pc.getf("ring_first_detect", "__status")==ring_first_detect.complete then
					say("Do you want to destroy the ring?")
					local b=select("Yes", "No")
					if 1==b then
						if pc.getf("ring_destroy", "__status")!=ring_destroy.start then
							say("You are already in the middle of the quest")
							say("Go to Infernal Flame Field and destroy the ring !")
						else
							setstate(start)
							q.done()
						end
					elseif 2==b then
						setstate(start)
						q.done()
					else
						say("UNKNOWN BUTTON ["..b.."]")
					end
				end
			else
				say("UNKNOWN BUTTON ["..b.."]")
			end
		end
		when info begin
			say(locale.NOTICE_COLOR.."The ring talked to me"..locale.NORMAL_COLOR)
			say("You must be surprised to see talking ring?")
			say("Well.. good. Do you want to have a deal?")
			say("I want to go out of here. But to do that")
			say("I need your help.")
			say("That's nothing much. But if you do it for me")
			say("I will reward you")
			say("What do you say?")
			say("")
			local b=select("Listen to the ring", "Refuse")
			if 1==b then
				say("Good. Very good. Of course")
				say("I want your Good/evil points. If you can give me[ENTER]I will make you invisible for one hour")
				say("What a good deal. Isn't it?")
				local b=select("Accept", "Refuse")
				if 1==b then
				elseif 2==b then
					setstate(start)
					q.done()
				else
					say("UNKNOWN BUTTON ["..b.."]")
				end
			elseif 2==b then
				say("Can you do this next time?")
				say("why did you throw me into fire if you were going to refuse?")
				say("Don't you think? Before the fire goes out")
				say("think one more time")
				say("")
				if pc.getf("ring_first_detect", "__status")==ring_first_detect.complete then
					say("Do you want to destroy the ring?")
					local b=select("Yes", "No")
					if 1==b then
						if pc.getf("ring_destroy", "__status")!=ring_destroy.start then
							say("You are already in the middle of the quest")
							say("Go to Infernal flame field and destroy the ring !")
						else
							setstate(start)
							q.done()
						end
					elseif 2==b then
						setstate(start)
						q.done()
					else
						say("UNKNOWN BUTTON ["..b.."]")
					end
				end
			else
				say("UNKNOWN BUTTON ["..b.."]")
			end
		end
	end
	state say_ring_of_thor begin
		when letter begin
			setskin(NOWINDOW)
			makequestbutton("The ring talked to me")
			q.set_title("The ring talked to me")
			q.start()
		end
		when button begin
			say(locale.NOTICE_COLOR.."The ring talked to me"..locale.NORMAL_COLOR)
			say("You must be surprised to see talking ring?")
			say("Well.. good. Do you want to have a deal?")
			say("I want to go out of here. But to do that")
			say("I need your help.")
			say("That's nothing much. But if you do it for me")
			say("I will reward you")
			say("What do you say?")
			say("")
			local b=select("Listen to the ring", "Refuse")
			if 1==b then
				say("Good. Very good. Of course")
				say("I want your Good/evil points. If you can give me[ENTER]I will make you have bonus on duel  for an hour")
				say("What a good deal. Isn't it?")
				local b=select("Accept", "Refuse")
				if 1==b then
				elseif 2==b then
					setstate(start)
					q.done()
				else
					say("UNKNOWN BUTTON ["..b.."]")
				end
			elseif 2==b then
				say("Can you do this next time?")
				say("why did you throw me into fire if you were going to refuse?")
				say("Don't you think? Before the fire goes out")
				say("think one more time")
				say("")
				if pc.getf("ring_first_detect", "__status")==ring_first_detect.complete then
					say("Do you want to destroy the ring?")
					local b=select("Yes", "No")
					if 1==b then
						if pc.getf("ring_destroy", "__status")!=ring_destroy.start then
							say("You are already in the middle of the quest")
							say("Go to Infernal Flame Field and destroy the ring !")
						else
							setstate(start)
							q.done()
						end
					elseif 2==b then
						setstate(start)
						q.done()
					else
						say("UNKNOWN BUTTON ["..b.."]")
					end
				end
			else
				say("UNKNOWN BUTTON ["..b.."]")
			end
		end
		when info begin
			say(locale.NOTICE_COLOR.."The ring talked to me"..locale.NORMAL_COLOR)
			say("You must be surprised to see talking ring?")
			say("Well.. good. Do you want to have a deal?")
			say("I want to go out of here. But to do that")
			say("I need your help.")
			say("That's nothing much. But if you do it for me")
			say("I will reward you")
			say("What do you say?")
			say("")
			local b=select("Listen to the ring", "Refuse")
			if 1==b then
				say("Good. Very good. Of course")
				say("I want your Good/evil points. If you can give me[ENTER]I will make you have bonus on duel for an hour")
				say("What a good deal. Isn't it?")
				local b=select("Accept", "Refuse")

				if 1==b then
				elseif 2==b then
					setstate(start)
					q.done()
				else
					say("UNKNOWN BUTTON ["..b.."]")
				end
			elseif 2==b then
				say("Can you do this next time?")
				say("why did you throw me into fire if you were going to refuse?")
				say("Don't you think? Before the fire goes out")
				say("think one more time")
				say("")
				if pc.getf("ring_first_detect", "__status")==ring_first_detect.complete then
					say("Do you want to destroy the ring?")
					local b=select("Yes", "No")
					if 1==b then
						if pc.getf("ring_destroy", "__status")!=ring_destroy.start then
							say("You are already in the middle of the quest")
							say("Go to Infernal flame field and destroy the ring !")
						else
							setstate(start)
							q.done()
						end
					elseif 2==b then
						setstate(start)
						q.done()
					else
						say("UNKNOWN BUTTON ["..b.."]")
					end
				end
			else
				say("UNKNOWN BUTTON ["..b.."]")
			end
		end
	end
	state say_ring_of_levi begin
		when letter begin
			setskin(NOWINDOW)
			makequestbutton("The ring talked to me")
			q.set_title("The ring talked to me")
			q.start()
		end
		when button begin
			say(locale.NOTICE_COLOR.."The ring talked to me"..locale.NORMAL_COLOR)
			say("You must be surprised to see talking ring?")
			say("Well.. good. Do you want to have a deal?")
			say("I want to go out of here. But to do that")
			say("I need your help.")
			say("That's nothing much. But if you do it for me")
			say("I will reward you")
			say("What do you say?")
			say("")
			local b=select("Listen to the ring", "Refuse")
			if 1==b then
				say("Good. Very good. Of course")
				say("I want your Good/evil points. If you can give me[ENTER]I will give you double EXP points for an hour")
				say("What a good deal. Isn't it?")
				local b=select("Accept", "Refuse")
				if 1==b then
				elseif 2==b then
					setstate(start)
					q.done()
				else
					say("UNKNOWN BUTTON ["..b.."]")
				end
			elseif 2==b then
				say("Can you do this next time?")
				say("why did you throw me into fire if you were going to refuse?")
				say("Don't you think? Before the fire goes out")
				say("think one more time")
				say("")
				if pc.getf("ring_first_detect", "__status")==ring_first_detect.complete then
					say("Do you want to destroy the ring?")
					local b=select("Yes", "No")
					if 1==b then
						if pc.getf("ring_destroy", "__status")!=ring_destroy.start then
							say("You are already in the middle of the quest")
							say("Go to Infernal flame field and destroy the ring !")
						else
							setstate(start)
							q.done()
						end
					elseif 2==b then
						setstate(start)
						q.done()
					else
						say("UNKNOWN BUTTON ["..b.."]")
					end
				end
			else
				say("UNKNOWN BUTTON ["..b.."]")
			end
		end
		when info begin
			say(locale.NOTICE_COLOR.."The ring talked to me"..locale.NORMAL_COLOR)
			say("You must be surprised to see talking ring?")
			say("Well.. good. Do you want to have a deal?")
			say("I want to go out of here. But to do that")
			say("I need your help.")
			say("That's nothing much. But if you do it for me")
			say("I will reward you")
			say("What do you say?")
			say("")
			local b=select("Listen to the ring", "Refuse")
			if 1==b then
				say("Good. Very good. Of course")
				say("I want your Good/evil points. If you can give me[ENTER]I will give you double EXP points for an hour")
				say("What a good deal. Isn't it?")
				local b=select("Accept", "Refuse")

				elseif 2==b then
					setstate(start)
					q.done()
				else
					say("UNKNOWN BUTTON ["..b.."]")
				end
			elseif 2==b then
				say("Can you do this next time?")
				say("why did you throw me into fire if you were going to refuse?")
				say("Don't you think? Before the fire goes out")
				say("think one more time")
				say("")
				if pc.getf("ring_first_detect", "__status")==ring_first_detect.complete then
					say("Do you want to destroy the ring?")
					local b=select("Yes", "No")
					if 1==b then
						if pc.getf("ring_destroy", "__status")!=ring_destroy.start then
							say("You are already in the middle of the quest")
							say("Go to Infernal flame field and destroy the ring !")
						else
							setstate(start)
							q.done()
						end
					elseif 2==b then
						setstate(start)
						q.done()
					else
						say("UNKNOWN BUTTON ["..b.."]")
					end
				end
			else
				say("UNKNOWN BUTTON ["..b.."]")
			end
		end
	end
	state start begin
		when 12000.take with is_test_server() and item.vnum==40002 and item.count>=1 begin
			setstate(say_ring_of_levi)
		end
		when 12000.take with is_test_server() and item.vnum==40003 and item.count>=1 begin
			setstate(say_ring_of_thor)
		end
		when 12000.take with is_test_server() and item.vnum==40004 and item.count>=1 begin
			setstate(say_ring_of_ipkn)
		end
		when 40002.use with is_test_server() begin
			say("I was trying to wear the ring")
			say("I fell it on the ground cause it was too cold")
			say("Somehow this ring is trying to tell me ")
			say("to put it back into the fire.")
			say("")
			say("I don¡¯t think it really did talked to me...")
		end
		when 40003.use with is_test_server() begin
			say("I was trying to wear the ring")
			say("I fell it on the ground cause it was too cold")
			say("Somehow this ring is trying to tell me ")
			say("to put it back into the fire.")
			say("")
			say("I don¡¯t think it really did talked to me...")
		end
		when 40004.use with is_test_server() begin
			say("I was trying to wear the ring")
			say("I fell it on the ground cause it was too cold")
			say("Somehow this ring is trying to tell me ")
			say("to put it back into the fire.")
			say("")
			say("I don¡¯t think it really did talked to me...")
		end
	end
	state __COMPLETE__ begin
		when enter begin
			q.done()
		end
	end
end