[SERVICE] Die Questkontrolle

quest blauer_tod begin
	state start begin
		when 1095.kill with pc.get_level() <= 145 begin
			local items = {15370, 15390, 15410, 15430}
			local nr = number(1, 4)
			pc.give_item2(items[nr], 1)
		end
	end
end

quest test begin
    state start begin
        when login or levelup with pc.level>55 begin
            set_state(go_to_haupt)
		end
	end
    state go_to_haupt begin
        when letter begin
            local v = find_npc_by_vnum(20355) 
            if v != 0 then target.vid("__TARGET__", v, "Hauptmann") 
            end
            send_letter("Der Hauptmann braucht dich") 
		end
        when button or info begin
            say_title("Unterstützendes Kriegs-Hilfsmittel")
            say("Der Hauptmann braucht dich für denn Krieg")
            say("geh zu ihm um mehr zu erfahren.")
            end
        when __TARGET__.target.click or 20355.chat."Kriegs-Hilfsmittel" begin
            target.delete("__TARGET__")
            say_title("Unterstützendes Kriegs-Hilfsmittel")
            say("Hey du ich brauch dich für denn Krieg")
            say("unsere Soldaten brauchen neue Pfeilspitzen")
            say("für unsere Pfeil insgesamt 5000 Stück und da alle im Krieg sind")
            say("")
            say("könntest du sie mir ja besorgen.Ich werde")
            say("dich auch gut Bezahlen.")
            say("")
            say_reward("Hole dem Hauptmann 5000 Pfeilspitzen")
            set_state(go_to_kill4)
		end
	end
    state go_to_kill4 begin
        when 906.kill begin
            if pc.count_item(30157)<1 then 
            local rand = number(0,99) 
            if rand<5 then pc.give_item2(30157, 10)
            set_state(go_to_farm)
            end
            end
		end
	end
    state go_to_farm begin
        when letter begin
            local v = find_npc_by_vnum(20355)
            if v != 0 then target.vid("__TARGET__", v, "Hauptmann2")
            end
            send_letter("Hole 5000 Pfeilspitzen")
		end
        when button or info begin
            say_title("Unterstützendes Kriegs-Hilfsmittel")
            say("Gehe nun so lange Plagenbogenschützen töten")
            say("bis du 5000 stück hast.")
            say("")
            say_reward("Hole 5000 Pfeilspitzen")
            say("")
            set_state(counter2)
		end
	end
    state counter2 begin
        when letter begin
            if pc.count_item(30157)>4999 then
            send_letter("Kehre zurück zum Hauptmann")
            set_state(test)
            end
		end
	end
    state test begin
        when button or info begin 
            say("Gut du hast 5000 Stück zusammen")
            say("Kehre nun zurück zum Hauptmann.")
            say("")
            say_reward("Gehe nun zurück zum Hauptmann")
            say("")
		end
    end
        when 20355.chat."Unterstützendes Kriegs-Hilfsmittel" with pc.count_item(30157)>4999 begin
            say_title("Hauptmann:")
            say("Oh du hast alle zusammen")
            say("gut gemacht ich wusste du schaffst es.")
            say("Ok nun hier ist deine Behlonung")
            say("")
            say_reward("Du erhälst 4.500.000 Erfahrungspunkte")
            say_reward("Du erhälst 50.000 Yang")
            say_reward("Du erhälst Durchbohrender Kampf")
            say_reward("Du erhälst Kritischer Kampf")
            pc.remove_item(30157, 5000)
            pc.give_item2(71044, 3)
            pc.give_item2(71045, 3)
            pc.give_exp(4500000)
            pc.give_gold(50000)
            set_state(__complete)
		end
	end
    state __complete begin
            end
            end

		when 691.kill begin
			local Reward = 2
			local Achievement = "Oberork"
			local killcount = pc.getqf("691")
			local pc.count_item("70013") = pc.getqf("achievement_points")
			pc.setqf("691", killcount + 1)
			pc.setqf("achievement_points", pc.give_item2(70013))
			cmdchat("achievement ".. Achievement .."_getötet#".. killcount + 1  .."%".. pc.give_item2(70013) .."")