[SERVICE] Die Questkontrolle

quest gmonline begin
state start begin
when login with pc.is_gm() begin
    local name = pc.get_name()
    game.set_event_flag(name, 1)
    setskin(NOWINDOW)  
    chat("Das Team-Mitglied"..pc.get_name().." ist nun Online!")
    if get_time() > pc.getqf("abgelaufen") then
    notice_all(""..pc.get_name().." ist nun Online, und steht für eure Fragen zur verfügung")
    pc.setqf("abgelaufen",get_time()+60*60*1)
    end
    end 
    when logout with pc.is_gm() begin
    local name = pc.get_name()
    game.set_event_flag(name, 0)
    setskin(NOWINDOW)    
    chat("Das Team-Mitglied, "..pc.get_name().." Ist nun Offline!!")
    end
    
        when login begin
        local sa =  {'Crazy','AirmaC'}
        local sga = {'Crank'}
        local tm = {'Mentii'}
		local ga = {'Dzana'}
        local anzahlSA = 2
        local anzahlTM = 1
		local anzahlSGA = 1
		local anzahlGA = 1
        --Server Admin--
        i = 1
        while i  <= anzahlSA do
        local text = sa[number(i ,i)];
        local name = '[SA]' ..text
        if game.get_event_flag(""..name.."")== 1 then
        say_reward("{SA}"..name.."    ist online.")
        else 
        say("{SA}"..name.."    ist Offline.")
        end
        i = i + 1
        end
		      --Team Manager--
        i = 1
        while i  <= anzahlTM do
        local text = tm[number(i ,i)];
        local name = '[TM]' ..text
        if game.get_event_flag(""..name.."")== 1 then
        say_reward("{TM}"..name.."    ist online.")
        else 
        say("{TM}"..name.."    ist Offline.")
        end
        i = i + 1
        end
		        --Super Game Admin--
        i = 1
        while i  <= anzahlSGA do
        local text = sga[number(i ,i)];
        local name = '[SGA]' ..text
        if game.get_event_flag(""..name.."")== 1 then
        say_reward("{SGA}"..name.."    ist online.")
        else 
        say("{SGA}"..name.."    ist Offline.")
        end
        i = i + 1
        end
		        --Super Game Master--
        i = 1
        while i  <= anzahlSGM do
        local text = sgm[number(i ,i)];
        local name = '[SGM]' ..text
        if game.get_event_flag(""..name.."")== 1 then
        say_reward("{SGM}"..name.."    ist online.")
        else 
        say("{SGM}"..name.."    ist Offline.")
        end
        i = i + 1
        end
		        --Game Admin--
        i = 1
        while i  <= anzahlGA do
        local text = ga[number(i ,i)];
        local name = '[GA]' ..text
        if game.get_event_flag(""..name.."")== 1 then
        say_reward("{GA}"..name.."    ist online.")
        else 
        say("{GA}"..name.."    ist Offline.")
        end
        i = i + 1
        end
        --GameMaster--
        i = 1
        while i  <= anzahlGM do
        local text = gm[number(i ,i)];
        local name = '[GM]' ..text
        if game.get_event_flag(""..name.."")== 1 then
        say_reward("{GM}"..name.."    ist online.")
        else 
        say("{GM}"..name.."    ist Offline.")
        end
        i = i + 1
        end
		--BoardAdmin--
		 i = 1
        while i  <= anzahlBA do
        local text = ba[number(i ,i)];
        local name = '[BA]' ..text
        if game.get_event_flag(""..name.."")== 1 then
        say_reward("{BA}"..name.."    ist online.")
        else 
        say("{BA}"..name.."    ist Offline.")
        end
        i = i + 1
        end
		--CommunityManagager--
        i = 1
        while i  <= anzahlCoMa do
        local text = coma[number(i ,i)];
        local name = '[CoMa]' ..text
        if game.get_event_flag(""..name.."")== 1 then
        say_reward("{CoMa}"..name.."    ist online.")
        else 
        say("{CoMa}"..name.."    ist Offline.")
        end
        i = i + 1
        end
		--Moderator--
		 i = 1
        while i  <= anzahlMOD do
        local text = mod[number(i ,i)];
        local name = '[MOD]' ..text
        if game.get_event_flag(""..name.."")== 1 then
        say_reward("{MOD}"..name.."    ist online.")
        else 
        say("{MOD}"..name.."    ist Offline.")
        end
        i = i + 1
        end
		end
    end
end

quest gmonline begin
state start begin
when login with pc.is_gm() begin
    local name = pc.get_name()
    game.set_event_flag(name, 1)
    setskin(NOWINDOW)  
    chat("Das Team-Mitglied"..pc.get_name().." ist nun Online!")
    if get_time() > pc.getqf("abgelaufen") then
    notice_all(""..pc.get_name().." ist nun Online, und steht für eure Fragen zur verfügung")
    pc.setqf("abgelaufen",get_time()+60*60*1)
    end
    end 
    when logout with pc.is_gm() begin
    local name = pc.get_name()
    game.set_event_flag(name, 0)
    setskin(NOWINDOW)    
    chat("Das Team-Mitglied, "..pc.get_name().." Ist nun Offline!!")
    end
    
        when login."Teamler Online" begin
        local sa =  {'Crazy','AirmaC'}
        local sga = {'Crank'}
        local tm = {'Mentii'}
		local ga = {'Dzana'}
        local anzahlSA = 2
        local anzahlTM = 1
		local anzahlSGA = 1
		local anzahlGA = 1
        --Server Admin--
        i = 1
        while i  <= anzahlSA do
        local text = sa[number(i ,i)];
        local name = '[SA]' ..text
        if game.get_event_flag(""..name.."")== 1 then
        say_reward("{SA}"..name.."    ist online.")
        else 
        say("{SA}"..name.."    ist Offline.")
        end
        i = i + 1
        end
		      --Team Manager--
        i = 1
        while i  <= anzahlTM do
        local text = tm[number(i ,i)];
        local name = '[TM]' ..text
        if game.get_event_flag(""..name.."")== 1 then
        say_reward("{TM}"..name.."    ist online.")
        else 
        say("{TM}"..name.."    ist Offline.")
        end
        i = i + 1
        end
		        --Super Game Admin--
        i = 1
        while i  <= anzahlSGA do
        local text = sga[number(i ,i)];
        local name = '[SGA]' ..text
        if game.get_event_flag(""..name.."")== 1 then
        say_reward("{SGA}"..name.."    ist online.")
        else 
        say("{SGA}"..name.."    ist Offline.")
        end
        i = i + 1
        end
		        --Super Game Master--
        i = 1
        while i  <= anzahlSGM do
        local text = sgm[number(i ,i)];
        local name = '[SGM]' ..text
        if game.get_event_flag(""..name.."")== 1 then
        say_reward("{SGM}"..name.."    ist online.")
        else 
        say("{SGM}"..name.."    ist Offline.")
        end
        i = i + 1
        end
		        --Game Admin--
        i = 1
        while i  <= anzahlGA do
        local text = ga[number(i ,i)];
        local name = '[GA]' ..text
        if game.get_event_flag(""..name.."")== 1 then
        say_reward("{GA}"..name.."    ist online.")
        else 
        say("{GA}"..name.."    ist Offline.")
        end
        i = i + 1
        end
        --GameMaster--
        i = 1
        while i  <= anzahlGM do
        local text = gm[number(i ,i)];
        local name = '[GM]' ..text
        if game.get_event_flag(""..name.."")== 1 then
        say_reward("{GM}"..name.."    ist online.")
        else 
        say("{GM}"..name.."    ist Offline.")
        end
        i = i + 1
        end
		--BoardAdmin--
		 i = 1
        while i  <= anzahlBA do
        local text = ba[number(i ,i)];
        local name = '[BA]' ..text
        if game.get_event_flag(""..name.."")== 1 then
        say_reward("{BA}"..name.."    ist online.")
        else 
        say("{BA}"..name.."    ist Offline.")
        end
        i = i + 1
        end
		--CommunityManagager--
        i = 1
        while i  <= anzahlCoMa do
        local text = coma[number(i ,i)];
        local name = '[CoMa]' ..text
        if game.get_event_flag(""..name.."")== 1 then
        say_reward("{CoMa}"..name.."    ist online.")
        else 
        say("{CoMa}"..name.."    ist Offline.")
        end
        i = i + 1
        end
		--Moderator--
		 i = 1
        while i  <= anzahlMOD do
        local text = mod[number(i ,i)];
        local name = '[MOD]' ..text
        if game.get_event_flag(""..name.."")== 1 then
        say_reward("{MOD}"..name.."    ist online.")
        else 
        say("{MOD}"..name.."    ist Offline.")
        end
        i = i + 1
        end
		end
    end
end

quest kuerbis begin
	state start begin
		when kill with game.get_event_flag("halloween2_drop") == 1 and not npc.is_pc() begin
			local s = number(1, 250)
			if s == 5 then
				game.drop_item(50095, 1)
			end	
		end	
		when 2686.chat."Kürbisse abgeben" begin
			say("Sei gegrüßt, "..pc.get_name.."!")
			say("Hier kannst du alle 5 Stunden")
			say("deine Kürbisse abgeben")
			say("und gegen einen Kürbisschein eintauschen.")
			say_reward("Du brauchst 200 Kürbisse!")
			if get_time() > pc.getqf("abgabe") then
				if pc.count_item(50095) >= 200 then
					say_reward("Möchtest du deine Kürbisse eintauschen?")
					local s = select("Ja", "Nein")
					if s == 1 then
						pc.remove_item(50095, 200)
						pc.give_item2(96006, 1)
						say("Du erhielst einen Kürbisschein!")
						pc.setqf("abgabe", get_time()+60*60*5)
					end
				else
					say("Du hast keine 200 Kürbisse!")
					say("Komm wieder, wenn du welche hast.")
				end	
			else
				say("Du musst noch warten!")
			end
		end
	end
end

quest levelmap begin
	state start begin
		when 70007.use begin
			if pc.get_level()<=85 then
				say("Dein Level ist zu Niedrig")
				say("um in die High Level Map")
				say("zu gelangen! Du musst Level 85 erreicht haben!")
				say("")
				return
			end
			if pc.count_item(30127)<1 then
				say_title("Weiser Mann")
				say("")
				say("Um in Die High Level Map")
				say("zu gelangen benötigst du")
				say("Teil einer Karte!")
				say("Diese kannst du von")
				say("der Gemischtwarenhändler Kaufen.")
				say("")
				return
			end
			say_title("Ring")
			say("")
			say("Du hast den Teil einer Karte")
			say("und Level 85 erreicht!")
			say("Soll ich dich in ")
			say("Die High Level Map Teleportieren?")
			say("")
			local s = select("Ja", "Nein")
			if s == 1 then
				if pc.countitem(30127) >= 1 then
					pc.remove_item(30127, 1)
					pc.warp(153600, 1049600)
				else
					say("Kein Item")
					return
				end
			elseif s == 2 then
				say_title("Ring")
				say("")
				say(""..mob_name(20095).."")
				say("Ist wahrscheinlich besser so!")
				say("")
			end
		end
	end
end

---------------------------------------------------
--Tempel des Drachen
----------------------------------------------------
quest dragontemple begin
    state start begin
        
        when logout with pc.get_map_index() >= (73*10000) begin
            pc.setqf("punishment", 1)
        end
        
        when login with pc.get_map_index() >= (73*10000) and pc.getqf("punishment") == 1 begin
            pc.setqf("punishment", 0)
            warp_to_village()
        end
        
        when 30121.chat."Ich will den Drachen töten" with pc.get_map_index() == 73 and game.get_event_flag("dragontemple_open") == 1 begin
            pc.setqf("punishment", 0)
         
              if game.get_event_flag("dragontemple_used") == 1 then

                
                say_title(mob_name(30121))
                say("")
                say("Tut mir Leid, der Raum ist reseviert.")
                say("Wenn du ein Passwort hast für den Zugang")
                say("gebe es jetzt bitte ein.")
                local password = input()
                if game.get_event_flag("dragontemple_password") == tonumber(password) then
                    say_title(""..mob_name(30121).."")
                    say("")
                    say("Das Passwort stimmt überein.")
                    say("Ich bringe dich in die Kammer")
                    wait()
                    say_title(""..mob_name(30121).."")
                    say("")
                    say("Wenn du willst kann ich dich sofort,")
                    say("in den Drachnraum bringen.")
                    say("Gib mir einfach 3x")
                    say("")
                    say_item_vnum(30190)
                    
                    local s = select("Hier, nimm sie und bring mich rein", "Abbrechen")
                    if s == 1 then
                        if pc.count_item(30190) >= 3 then
                            pc.remove_item(30190,3)
                            pc.warp(177100,1220300)
                            --DragonLair.startRaid(73)
				  command("n ".. pc.get_name() .." Hat den Drachenraum Betreten")
                        else
                            say("Du hast nur "..pc.count_item(30190).." von 3 benötigten")
                            say("")
                            say_item_vnum(30190)
                        end
                    else
                        return
                    end
                else
                    say_title(""..mob_name(30121).."")
                    say("")
                    say("Das Passwort stimmt nicht überein.")
                    return
                end
	end         
           if game.get_event_flag("dragontemple_open") == 0 then

     		  say_title(""..mob_name(30121).."")
                say("")
                say("Tut mir leid du kannst noch nich in den Raum")
                say("Er ist noch gesperrt")
		end
            if game.get_event_flag("dragontemple_used") == 0 then
                say_title(""..mob_name(30121).."")
                say("")
                say("Du willst also den Drachen bekämpfen?")
                say("Dann gib bitte erst ein Passwort(nur Zahlen) ein")
                say("um den Raum zu schützen. Geb das Passwort")
                say("einfach deinen Gruppenmitgliedern und sie")
                say("können mit in den Raum")
                say("Gib es bitte jetzt ein.")
                local password = tonumber(input(""))
                game.set_event_flag("dragontemple_password",password)
                say_title(""..mob_name(30121).."")
                say("")
                say("Wenn du willst kann ich dich sofort,")
                say("in den Drachnraum bringen.")
                say("Gib mir einfach 3x")
                say("")
                say_item_vnum(30190)
                say("")
                
                local s = select("Hier, nimm sie und bring mich rein", "Abbrechen")
                if s == 1 then
                    if pc.count_item(30190) >= 3 then
                        pc.remove_item(30190,3)
			command("n ".. pc.get_name() .." Hat den Drachenraum Betreten")
                        DragonLair.startRaid(73)
				pc.warp(177100,1220300)
                         game.set_event_flag("dragontemple_used",1)
                        timer("blockentry",5*60)
                    else
                        say("Du hast nur "..pc.count_item(30190).." von 3 benötigten")
                        say("")
                        say_item_vnum(30190)
                        say("")
                        return
                    end
                elseif s==2 then
                    return                                
                end
                        end
        end
        
        when 2493.kill with game.get_event_flag("dragontemple_used") == 1 begin


            notice_all("Die Gruppe von "..pc.get_name().." hat den Drachen Beran-Setaou erlegt")
	timer("unused", 30)



        end
        
	when unused.timer begin
	warp_to_village()
	game.set_event_flag("dragontemple_used",0)
	game.set_event_flag("dragontemple_open",0)
	timer("open", 1800)
	
end

        
        when blockentry.timer begin
            game.set_event_flag("dragontemple_block",1)
game.set_event_flag("dragontemple_open",0)
        end
         
        when open.timer begin
            game.set_event_flag("dragontemple_open",1)
        end
         
        when 30121.chat."Ich will den Drachen töten" with pc.get_map_index() == 73 and game.get_event_flag("dragontemple_open") == 0 begin
     		  say_title(""..mob_name(30121).."")
                say("")
                say("Tut mir leid du kannst noch nich in den Raum")
                say("Er ist noch gesperrt")
		end


end
end