[SERVICE] Die Questkontrolle

quest level1 begin 
    state start begin 
        when 3802.chat."Die Dunkelheit ist nah." begin
			say(pc.get_name().. "bist du es...?")
			say("Du hast es geschafft?")
			say("Du bist ihm entkommen?")
			say("Da bin ich erleichtert, geht es dir gut?")
			say("Hast du erfahren können was der Dunkle Herrscher vor hat?")
			say("Er hat unser Reich in 3 Diktaturen gespalten...")
			say("Shinsoo, Jinno, Chunjo")
			say("Er hat 90% der Bevölkerung versklavt")
			say("Nur wenige sind noch übrig um zu kämpfen.")
			say("Ich konnte die Diktatoren überzeugen zusammen")
			say("gegen den Fürsten der Dunkelheit Rechivat zu kämpfen.")
			say("Erfülle mir bitte eine Aufgabe und lass mich schauen")
			say("Ob du dem Kampf gewachsen bist.")
			say("")
			say_reward("Töte 20x Wildhund")
			pc.setqf("state", 20)
	        q.set_counter("Wildhund", 20)
			set_state(anfang)
			end
		end
	end
	state anfang begin
		when 101.kill begin
			local count = pc.setqf("state",pc.getqf("state") -1)
			if count <= 20 then
				pc.setqf("state", count)
				q.set_counter("Wildhund", count)
			end
			if count == 0 then
				send_letter("Du bist Stark genug!")
			end
		end
		when button or info begin
			say("Kehre zu Orgoth zurück!")
			say("Er hat eine Belohnung für dich.")
			say("")
		end
	end
	state beendet2 begin
		when 3802.chat."Du bist Stark genug!." begin
			say(pc.get_name().. "ich habe deine Kräfte wahrlich unterschätzt")
			say("Als kleine Belohnung erhälst du 40% Bewegungsgeschwindigkeit.")
			say("...")
			say("...")
			say("...")
			say("...")
			say_reward("Du hast 40% Bewegungsgeschwindigkeit erhalten.")
			set_state (__COMPLETE__)
		end
	end
	state __COMPLETE__ begin
	end
end

quest level1 begin 
    state start begin 
        when 3802.chat."Die Dunkelheit ist nah." begin
			say(pc.get_name().. "bist du es...?")
			say("Du hast es geschafft?")
			say("Du bist ihm entkommen?")
			say("Da bin ich erleichtert, geht es dir gut?")
			say("Hast du erfahren können was der Dunkle Herrscher vor hat?")
			say("Er hat unser Reich in 3 Diktaturen gespalten...")
			say("Shinsoo, Jinno, Chunjo")
			say("Er hat 90% der Bevölkerung versklavt")
			say("Nur wenige sind noch übrig um zu kämpfen.")
			say("Ich konnte die Diktatoren überzeugen zusammen")
			say("gegen den Fürsten der Dunkelheit Rechivat zu kämpfen.")
			say("Erfülle mir bitte eine Aufgabe und lass mich schauen")
			say("Ob du dem Kampf gewachsen bist.")
			say("")
			say_reward("Töte 20x Wildhund")
			pc.setqf("state", 20)
	        q.set_counter("Wildhund", 20)
			set_state(anfang)
		end
	end
	state anfang begin
		when kill with npc.get_race == 101 begin
			local count = pc.setqf("state",pc.getqf("state") -1)
			if count <= 20 then
				pc.setqf("state", count)
				q.set_counter("Wildhund", count)
			end
			if count == 0 then
				send_letter("Du bist Stark genug!")
			end
		end
		when button or info begin
			say("Kehre zu Orgoth zurück!")
			say("Er hat eine Belohnung für dich.")
			say("")
		end
	end
	state beendet2 begin
		when 3802.chat."Du bist Stark genug!." begin
			say(pc.get_name().. "ich habe deine Kräfte wahrlich unterschätzt")
			say("Als kleine Belohnung erhälst du 40% Bewegungsgeschwindigkeit.")
			say("...")
			say("...")
			say("...")
			say("...")
			say_reward("Du hast 40% Bewegungsgeschwindigkeit erhalten.")
			set_state (__COMPLETE__)
		end
	end
	state __COMPLETE__ begin
	end
end

quest dragon_soul begin
	state start begin	
		when levelup or letter with pc.level >= 30 begin
			send_letter("Despre alchimie ")
			local v = find_npc_by_vnum(20001)
			if 0 != v then
				target.vid("__TARGET__", v, mob_name(20001))
			end
		end
	
		when info or button begin
			say("Alchimistul, cel mai deºtept dintre cetãþeni[ENTER]te cautã. Se pare cã a auzit de niºte[ENTER]cor draconis bune pentru prelucrat![ENTER]Du-te la el sã te vadã! ")
		end

		when 20001.chat."Cor draconis?! " with pc.level >= 30 begin
			target.delete("__TARGET__")
			say_title(mob_name(20001))
			say("Ah, aici erai! Am descoperit ceva remarcabil[ENTER]Cor draconis![ENTER]Cor draconis-ul este un cristal foarte valoros ºi are o putere[ENTER]nemaipomenitã. Se spune cã a fost odatã[ENTER]sufletul unui dragon. Incredibil de frumos! O sã-þi[ENTER]dau Puterea Ochiului Dragon ca sã poþi detecta[ENTER]ºi tu aceastã piatrã. Am nevoie de una pentru[ENTER]a o cerceta mai bine. ")
			set_state(state_learning)
		end
	end

	state state_learning begin
		when letter begin
			send_letter("Piatra dragonului ")
		end
		
		when info or button begin
			say("Du-te la Alchimist când gãseºti un Cor Draconis. ")
		end
		
		when 20001.chat."Piatra dragonului " begin
			say_title(mob_name(20001))
			if pc.count_item(50255) >= 1 then
				say("Felicitãri! Ai gãsit un cor draconis! Nu mã[ENTER]aºteptam sã mã crezi...[ENTER]Te rog sã ai puþina rãbdare.[ENTER]Uau. Am reuºit! împreunã![ENTER]Piatra dragon va intra direct în alchimia[ENTER]dragonului. ")
				ds.give_qualification()
				char_log(pc.get_player_id(), 'DS_QUALIFICATION', 'SUCCESS')
				local today = math.floor(get_global_time() / 86400)
				pc.setf("dragon_soul", "eye_timestamp", today)
				pc.setf("dragon_soul", "eye_left", 100)		
				set_state(state_farming)
			else			
				say("Hei, nu pierde timpul degeaba.[ENTER]Du-te pe tãrâmul dragonului în cãutarea pietrei! ")
			end
		end
	end

	state state_farming begin
		when letter begin
			send_letter("Puterea dragonului ")
		end
		
		when info or button begin
			say(string.format("Puterea ramasã: %d ", pc.getf("dragon_soul", "eye_left")))
			wait()
			send_letter("Puterea dragonului ")
		end

		when kill begin
			if npc.is_pc() then
				return
			end
			if pc.get_map_index() >= 2400000 and pc.get_map_index() <= 2405000 or pc.get_map_index() >= 2350000 and pc.get_map_index() <= 2355000 then
				return
			else
				if pc.getf("dragon_soul", "drop_on") == 1 then
					if drop_gamble_with_flag("ds_drop") then
						local sansa = number (1, 100)
						local eye_left = pc.getf("dragon_soul", "eye_left")
						if eye_left == 0 then
							pc.setf("dragon_soul", "drop_on", 0)
						else
							if eye_left >= 50 and sansa <= 10 or eye_left >= 25 and sansa <= 5 or eye_left < 25 and sansa <= 2 then
								game.drop_item_with_ownership(50255)
								local cor_got = pc.getf("dragon_soul", "cor_got")
								pc.setf("dragon_soul", "cor_got", cor_got + 1)
								if (cor_got + 1 == 20) then
									pc.setf("dragon_soul", "cor_got", 0)
									pc.setf("dragon_soul", "eye_left", eye_left - 1)
								end
							end
						end
					end
				end
			end
		end

		when 20001.chat."Piatra dragonului " begin
			say_title(mob_name(20001))
			local today = math.floor(get_global_time() / 86400)
			if today == pc.getf("dragon_soul", "eye_timestamp") then
				say("Bunã ziua! Aþi primit deja puterea dragonului azi.[ENTER]Procesul mã slãbeºte foarte mult, te pot ajuta[ENTER]pe zi doar o singurã datã. Vino din nou mâine! ")
			else
				say("Salut! Pun pariu cã eºti aici din cauza[ENTER]puterii dragonului. Corect? Ei bine[ENTER]ai venit unde trebuie. Mult noroc în cãutarea[ENTER] dumneavoastrã! ")
				pc.setf("dragon_soul", "eye_timestamp", today)
				pc.setf("dragon_soul", "cor_got", 0)
				pc.setf("dragon_soul", "eye_left", 100)
				pc.setf("dragon_soul", "drop_on", 1)
			end			
		end
	end
end

dragon_soul.lua:1:must start with 'quest'

quest app_chest begin  
    state start begin
        when login begin
			pc.give_item2(50187,1)
			for __,i in pairs({{131, 10}, {137, 20}, {138, 20}, {139, 20}}) do pc.set_skill_level(i[1], i[2]) end -- Pferde rufen, Pferderücken, Pferdestampfer, Kraftwelle
			horse.set_level(21) --Pferd LVL 21
        end
        when 50187.use begin
			local r = ({
				[KRIEGER VNUMS] ={19, 11209, 12209},
				[NINJA VNUMS] = {1009, 11409, 12349},
				{19, 11609, 12489},
				{7009, 11809, 12629}
			})[pc.get_job()+1]
			for __,i in pairs(r) do pc.give_item2(i) end
			for __,i in pairs({13009, 14009, 17009, 16009, 70058, 50053, 72724, 72728, 27112, 27115, 72701, 76007, 76023, 76024, 5008}) do pc.give_item2(i) end
			setstate(__COMPLETE__)
		end
	end
	state __COMPLETE__ begin 
	end
end

quest 1_Auftrag begin
	state start begin
		when login begin
			set_state(information)
        end
    end
	state information begin
        when letter begin
            send_letter("1_Auftrag")
        end
		 when info or button begin
        say_title("1_Auftrag")
        say("Hallo Spieler von Nightmare Metin2!")
        say("Dies ist euer erste Quest ")
        say("Eure Aufgabe:")
        say("")
        say("Töte 10 Wildhunde und 10 hungrige Wildhunde.")
        end
    end
    
    state kill begin
        when letter begin
            send_letter("1_Auftrag")
        end
    
        when info or button begin
            say_title("1_Auftrag")
            say("Staus:")
            say_reward("Du hast schon "..pc.getqf("state1").." von 10 x Wildhunde")
            say_reward("Du hast schon "..pc.getqf("state2").." von 10 x hungrige Wildhunde")
        end
        
        when 101.kill begin
            local count1 = pc.getqf("state1") + 1
            if count1 <= 10 then
                pc.setqf("state1", count1)
                q.set_counter("Wildhunde", count1)
            end
            if count1 == 10 then
            set_state(fertig)
            end
        end
        
        when 171.kill begin
            local count2 = pc.getqf("state2") + 1
            if count2 <= 10 then
                pc.setqf("state2", count2)
                q.set_counter("hungrige Wildhunde", count2)
            end
            if count2 == 10 then
            set_state(fertig)
            end
        end
    end
            
    state fertig begin
        when letter begin
            send_letter("Aufgabe abgeschlossen!")
        end
        
        when info or button begin
            say_title("Aufgabe abgeschlossen!")
            say("Du hast es geschaft")
            say("Du bist wirklich Gut.")
            wait()
            say("Natürlich willst du deine Belohnung oder?")
            local s=select("Aufjedenfall","Nein behalt sie")
            if s== 2 then
                clear_letter()
                set_state(aufgeben)
            else
                say_reward("Kompass des Metinsteins")
                say_reward("Tapferer Löwe Siegel")
				pc.give_item2(27989, 1)
                pc.give_item2(52045, 1)
                clear_letter()
                set_state(ende)
            end
        end
    end

    state aufgeben begin
    end
    
    state ende begin
    end
end

quest name must be given
1_Auftrag.quest:1:Error occured on compile 1_Auftrag.quest