[SERVICE] Die Questkontrolle

----------------------------------------------
-- Baum
-- Made with Steffs Questmaker
----------------------------------------------
quest Baum_kill begin
    state start begin
        when login or levelup with pc.get_level() == 75 begin
            set_state(info)
        end
    end

    state info begin
        when letter begin
            send_letter("Baum")
        end
        when info or button begin
            say_title("Baum")
            say("Hallo Mutiger,")
            say("Ich habe einen schweren Autrag für dich.")
            say("Geh und zerstöre 100mal Böser Baum!")
            say_reward("Zerstöre 100mal Böser Baum")
            say("")
            pc.setqf("state", 100)
            q.set_counter("Böser Baum", 100)
            set_state(kill)
        end
    end
    state kill begin
        when letter begin
            send_letter("Baum")
        end
        when button or info begin
            say("Baum")
            say("")
            say("Du musst noch "..pc.getqf("state").." von 100 Böser Baum zerstören")
        end
        when 2305.kill begin
            local count = pc.getqf("state") - 1
            if count <= 100 then
                pc.setqf("state", count)
                q.set_counter("Böser Baum", count)
            end
            if count == 0 then
                say_title("Baum")
                say("Du hast die Quest erfolgreich abgeschlossen!")
                say("Du erhälst:")
                say_reward("Weise Perle 2 Mal")
                say_reward("Blaue Perle 2 Mal")
                say_reward("und")
                say_reward("Rote Perle 2 Mal")
        say_reward("Außerdem:")
                say_reward("100.000.000 Yang")
                say_reward("10.000.000 Erfahrung")
                pc.change_money(100000000)
                pc.give_exp2(10000000)
                pc.give_item2(29992, 2)
                pc.give_item2(27993, 2)
                pc.give_item2(27994, 2)
                clear_letter()
                set_state(__COMPLETE__)       

            end
        end
    end
    state __COMPLETE__ begin
    end
end

quest REP_Quest begin
    state start begin
        when login or levelup with pc . get_level() > 69 and pc . get_level() < 80 begin
				say_title("D?monenturm")
				say("Deine Aufgabe ist heute,")
				say("50 Gemeine Bogensch?tzen zu t?ten.")
				say("")
				say_reward("Willst du die Aufgabe annehmen?")
				local s = select ( "Annehmen", "Ablehnen" )
				if s == 1 then
					say("Auf wiedersehen!")
					setstate (kill_Gemeine_Bogenschuetzen)
				else
					say("Dann nicht.")
					say("")
					say_reward("Relogge, um die Aufgabe")
					say_reward("erneut anzunehmen.")
					setstate(start)
				end
		end
		
		when login or levelup with pc . get_level() > 79 and pc . get_level() < 90 begin								
				say_title("Grotte / D?monenturm")
				say("Deine Aufgabe ist heute,")
				say("50 Himmels Eisinsekten oder")
				say("50 Totenkopfschwertmeister zu t?ten")
				say("")
				say_reward("Willst du die Aufgabe annehmen?")
				local s = select ( "Himmels Eisinsekten t?ten", "Totenkopfschwertmeister t?ten", "Ablehnen" )
				if s == 1 then
					say("Auf wiedersehen!")
					setstate (kill_Himmels_Eisinsekt)
				elseif s == 2 then
					say("Auf wiedersehen!")
					setstate (kill_Totenkopfschwertmeister)
				elseif s == 3 then
					say("Dann nicht.")
					say("")
					say_reward("Relogge, um die Aufgabe")
					say_reward("erneut anzunehmen.")
					setstate(start)
				end
		end
		
		when login or levelup with pc . get_level() > 89 and pc . get_level() < 100 begin
				say_title("Grotte")
				say("Deine Aufgabe ist heute,")
				say("50 Himmels Soldaten und")
				say("50 Himmels Geistliche zu t?ten.")
				say("")
				say_reward("Willst du die Aufgabe annehmen?")
				local s = select ( "Annehmen", "Ablehnen" )
				if s == 1 then
					say("Auf wiedersehen!")
					setstate (kill_Himmels_Soldaten_Geistliche)
				else
					say("Dann nicht.")
					say("")
					say_reward("Relogge, um die Aufgabe")
					say_reward("erneut anzunehmen.")
					setstate(start)
				end				
		end
		
		when login or levelup with pc . get_level() > 99 begin
				say_title("PVP!")
				say("Deine Aufgabe ist heute,")
				say("100 Gegner aus einem anderem Reich zu t?ten.")
				say("")
				say_reward("Willst du die Aufgabe annehmen?")
				local s = select ( "Annehmen", "Ablehnen" )
				if s == 1 then
					say("Auf wiedersehen!")
					setstate (kill_Halbmenschen)
				else
					say("Dann nicht.")
					say("")
					say_reward("Relogge, um die Aufgabe")
					say_reward("erneut anzunehmen.")
					setstate(start)
				end
        end
    end
	
    state kill_Gemeine_Bogenschuetzen begin
        when letter begin
			count_1023 = 0
			setskin(NOWINDOW)
			makequestbutton("Gemeine Bogensch?tzen t?ten!")
			send_letter("Gemeine Bogensch?tzen t?ten!")
		end
		
        when button or info begin
			say_title(locale.NOTICE_COLOR.."Gemeine Bogensch?tzen"..locale.NORMAL_COLOR)
			say("T?te 50 Gemeine Bogensch?tzen.")
			say("Du findest sie im D?monenturm.")
			say("")
			say_reward("Aufgabe: T?te 50 Gemeine Bogensch?tzen!")
			if count_1023 == 0 then
				say_reward("Du hast bis jetzt 0 Gemeine Bogensch?tzen get?tet")
			else
				say_reward("Du hast bis jetzt "..tostring(count_1023).." Gemeine Bogensch?tzen get?tet.")
			end
			say("")
        end
		
        when 1023.kill begin
			count_1023 = count + 1
			if count_1023 >= 50 then
				local erfahrung = (pc . get_exp() + pc . get_next_exp()) / 4
				say ("Du hast 50 Gemeine Bogensch?tzen get?tet")
				say("Als Belohnung erh?lst du eine Menge Erfahrung!")
				say("")
				say_reward("Du erh?lst Erfahrung: "..erfahrung.." (25%)")
				pc . give_exp(erfahrung)
				count_1023 = 0
				set_state(start)
			end
        end
    end
	
    state kill_Himmels_Eisinsekt begin
        when letter begin
			count_1133 = 0
			setskin(NOWINDOW)
			makequestbutton("Himmels Eisinsekten t?ten!")
			send_letter("Himmels Eisinsekten t?ten!")
        end
		
        when button or info begin
			say_title(locale.NOTICE_COLOR.."Himmels Eisinsekten"..locale.NORMAL_COLOR)
			say("T?te 50 Himmels Eisinsekten.")
			say("Du findest sie in der Grotte.")
			say("")
			say_reward("Aufgabe: T?te 50 Himmels Eisinsekten!")
			if count_1133 == 0 then
				say_reward("Du hast bis jetzt 0 Himmels Eisinsekten get?tet")
			else
				say_reward("Du hast bis jetzt "..tostring(count_1133).." Himmels Eisinsekten get?tet.")
			end
			say("")
        end
		
        when 1133.kill begin
			count_1133 = count + 1
			if count_1133 >= 50 then
				local erfahrung = (pc . get_exp() + pc . get_next_exp()) / 10
				say ("Du hast 50 Himmels Eisinsekten get?tet")
				say("Als Belohnung erh?lst du eine Menge Erfahrung!")
				say("")
				say_reward("Du erh?lst Erfahrung: "..erfahrung.." (10%)")
				pc . give_exp(erfahrung)
				count_1133 = 0
				set_state(start)
			end
        end
    end
	
    state kill_Totenkopfschwertmeister begin
        when letter begin
			count_1032 = 0
			setskin(NOWINDOW)
			makequestbutton("Totenkopfschwertmeister t?ten!")
			send_letter("Totenkopfschwertmeister t?ten!")
        end
		
        when button or info begin
			say_title(locale.NOTICE_COLOR.."Totenkopfschwertmeister"..locale.NORMAL_COLOR)
			say("T?te 50 Totenkopfschwertmeister.")
			say("Du findest sie im D?monenturm.")
			say("")
			say_reward("Aufgabe: T?te 50 Totenkopfschwertmeister!")
			if count_1032 == 0 then
				say_reward("Du hast bis jetzt 0 Totenkopfschwertmeister get?tet")
			else
				say_reward("Du hast bis jetzt "..tostring(count_1032).." Totenkopfschwertmeister get?tet.")
			end
			say("")
        end
		
        when 1032.kill begin
			count_1032 = count + 1
			if count_1032 >= 50 then
				local erfahrung = (pc . get_exp() + pc . get_next_exp()) / 10
				say ("Du hast 50 Totenkopfschwertmeister get?tet")
				say("Als Belohnung erh?lst du eine Menge Erfahrung!")
				say("")
				say_reward("Du erh?lst Erfahrung: "..erfahrung.." (10%)")
				pc . give_exp(erfahrung)
				count_1032 = 0
				set_state(start)
			end
        end
    end
	
    state kill_Himmels_Soldaten_Geistliche begin
        when letter begin
			count_2401 = 0
			count_2403 = 0
			setskin(NOWINDOW)
			makequestbutton("Himmels Soldaten und Geistliche t?ten!")
			send_letter("Himmels Soldaten und Geistliche t?ten!")
		end
		
        when button or info begin
			say_title(locale.NOTICE_COLOR.."Himmels Soldaten und Geistliche"..locale.NORMAL_COLOR)
			say("T?te 50 Himmels Soldaten und 50 Himmels Geistliche")
			say("Du findest sie in der Grotte.")
			say("")
			say_reward("Aufgabe: T?te 50 Himmels Soldaten und")
			say_reward("50 Himmels Geistliche")
			if count_2401 == 0 then
				say_reward("Du hast bis jetzt 0 Himmels Soldaten get?tet")
			else
				say_reward("Du hast bis jetzt "..tostring(count_2401).." Himmels Soldaten")
			end
			if count_2403 == 0 then
				say_reward("und 0 Himmels Geistliche get?tet.")
			else
				say_reward("und "..tostring(count_2403).." Himmels Geistliche get?tet.")
			end
			say("")
        end
		
        when 2401.kill begin
			count_2401 = count_2401 + 1
			if ((count_2401 >= 50) and (count_2403 >= 50)) then
				local erfahrung = (pc . get_exp() + pc . get_next_exp()) / 10
				say("Du hast 50 Himmels Soldaten und")
				say("50 Himmels Geistliche get?tet.")
				say("Als Belohnung erh?lst du eine Menge Erfahrung!")
				say("")
				say_reward("Du erh?lst Erfahrung: "..erfahrung.." (10%)")
				pc . give_exp(erfahrung)
				set_state(start)
			end
        end
		
		when 2403.kill begin
			count_2403 = count_2403 + 1
			if ((count_2401 >= 50) and (count_2403 >= 50)) then
				local erfahrung = (pc . get_exp() + pc . get_next_exp()) / 10
				say("Du hast 50 Himmels Soldaten und")
				say("50 Himmels Geistliche get?tet.")
				say("Als Belohnung erh?lst du eine Menge Erfahrung!")
				say("")
				say_reward("Du erh?lst Erfahrung: "..erfahrung.." (10%)")
				pc . give_exp(erfahrung)
				set_state(start)
			end
        end
    end
	
    state kill_Halbmenschen begin
        when letter begin
			count_halbmenschen = 0
			setskin(NOWINDOW)
			makequestbutton("Halbmenschen t?ten!")
			send_letter("Halbmenschen t?ten!")
        end
		
        when button or info begin
			say_title(locale.NOTICE_COLOR.."Gegner aus einem anderen Reich"..locale.NORMAL_COLOR)
			say("T?te 100 Gegner aus einem anderem Reich!")
			say("Du findest sie ?berall und nirgendwo.")
			say("")
			say_reward("Aufgabe: T?te 100 Gegner aus")
			say_reward("einem anderem Reich.")
			if count_halbmenschen == 0 then
				say_reward("Du hast bis jetzt 0 Gegner get?tet.")
			else
				say_reward("Du hast bis jetzt "..tostring(count_halbmenschen).." Gegner get?tet.")
			end
		end
		
        when kill begin
			if npc . empire != pc . empire then
				count_halbmenschen = count_halbmenschen + 1
			end
			if count_halbmenschen >= 100 then
				local erfahrung = (pc . get_exp() + pc . get_next_exp()) / 16
				say ("Du hast 100 Gegner get?tet")
				say("Als Belohnung erh?lst du eine Menge Erfahrung!")
				say("")
				say_reward("Du erh?lst Erfahrung: "..erfahrung.." (6,25%)")
				pc . give_exp(erfahrung)
				count_halbmenschen = 0
				set_state(start)
			end
		end
	end
end