[SERVICE] Die Questkontrolle

quest adateforgemi begin
    state run begin
        when login with pc.level>=55 begin
            set_state(information)
        end
    end
    state information begin --State Information
         when letter begin -- Wenn alle Quest Briefe aufgerufen werden.
            send_letter("Bitte hilf mir!") -- Sende neuen Quest Brief "Bitte helft mir!"
        end
        when button or info begin
            say_title("Bitte hilf mir!") --  Den Titel des Briefes sagen

            ----"12345678901234567890123456789012345678901234567890"|
            say("Ich habe mich in einen Jungen verliebt.")
            say("Sein Name ist Soon, ich traue mich nicht")
            say("ihn anzusprechen. Kommt bitte zu mir")
            say("ich werde euch auch reich belohnen.")
            set_state(gotogemi) -- Wechsele den State zu gotogemei
        end
    end
    state gotogemi begin 
          when letter begin
            local v=find_npc_by_vnum(9003) -- mache v zu Gemi
            if 0==v then -- Wenn keine Gemi gefunden wurde dann mach nichts
            else
                target.vid("__TARGET__", v, "Geh zur Gemi") -- setze die Gemi als neues Ziel
            end
        end
        when letter begin
            send_letter("Komm zu mir!")
        end
        when button or info begin
            say_title("Kom zu mir!")
            say("Geh zur Gemi")
            say("")
        end
        when __TARGET__.target.click begin
            target.delete("__TARGET__")
            say("Gemi :")

            ----"12345678901234567890123456789012345678901234567890"|
            say("Ich habe mich in einen Jungen verliebt.")
            say("Sein Name ist Soon, ich traue mich nicht")
            say("ihn anzusprechen. Könntet ihr bitte zu Soon")
            say("gehen und ihn für mich nach eine Date fragen?")
            say("Ich würde euch reichlich belohnen.")
            say("Bitte helft mir!")
            say("")
            local s = select("Ich helfe doch gerne","Nein, keine Zeit")
            if s ==1 then
                set_state(gotosoon)
            else
                say("Schade...")
                say("")
                clear_letter()
                q.done()
            end
        end
    end
	state gotosoon begin
        when letter begin
            local v=find_npc_by_vnum(20023)
            if 0==v then
            else
                target.vid("__TARGET__", v, "Geh zu Soon")
            end
        end
        when letter begin
            send_letter("Komm zu mir!")
        end
        when button or info begin
            say_title("Geh zu Soon!")
            say("Beweg dich zz Soon")
            say("")
        end
        when __TARGET__.target.click begin
            target.delete("__TARGET__")
            say("Gemi :")

            ----"12345678901234567890123456789012345678901234567890"|
            say("Die Gemi will ein Date von mir?")
            say("So ein zufall ich wollt grad zu ihr gehen.")
            say("und sie nach einem Date fragen")
            say("")
           -- set_state(backtogemi)
        end
    end
	

    state backtogemi begin
        when letter begin
            local v=find_npc_by_vnum(20023)
            if 0==v then
            else
                target.vid("__TARGET__", v, "Geh zur Gemi")
            end
        end
        when letter begin
            send_letter("Geh zur Gemi!")
        end
        when button or info begin
            say_title("Geh zur Gemi!")
            say("Berichte der Gemi")
            say("")
        end
        when __TARGET__.target.click begin
            target.delete("__TARGET__")
            say("Gemi :")

            ----"12345678901234567890123456789012345678901234567890"|
            say("Was?!")
            say("Er will!!, Ich danke dir .")
            say("Als belohnung gebe ich dir das Perd meines Vaters.")
            say("")
            say_reward("Die Gemi gibt dir Stein der Hast+4")
            say_reward("Die Gemi gibt dir Militär-Pferdebuch")
            pc.give_item2(28443)
            pc.give_item2(50053)
            pc.get_horse_level(21)
            clear_letter()
            set_state(__COMPLETE__)
        end
    end
	

    state __COMPLETE__ begin
    end
end

-- Spendeninfo (aktivert über /e spenden 1)
    quest pep begin
    state start begin
        when login with game.get_event_flag("spenden")== 1 begin
        set_state(lesen)
        send_letter("Spendeninfo")
        end
    end
            state lesen begin
            when button or info begin
            
            say_reward("Geplante Wartungarbeit:")
            say_title("Spendeninfo")
            say("")
            say("Ihr könnt dem Server eine kleine")
            say("Spende zukommen lassen und dafür")
            say("erhaltet ihr Coins. Damit könnt ihr")
            say("Euch im Itemshop etwas kaufen!")
            say("")
            say_title("Coins pro Spende:")
            say("")
            say_reward("Hier seht ihr eine Liste wie viele")
            say_reward("Coins ihr pro Spende bekommt.")
            say("10 €: 150 Coins")
            say("25 €: 400 Coins")
            say("50 €: 900 Coins")
            local i = select("ja habe ich", "Ja, und Später nochmal daran erinnern")
            if 1 == i then
            set_state( __COMPLETE__ )
			end
            if 2 == i then
                return
            end    
        end
    end
    state __COMPLETE__ begin
	end
	end

quest player_kill begin
    state start begin
        when login with pc.get_level() >= 15 begin
            pc.setqf("state", 0)
            set_state(killen)
        end
    end
    state killen begin
        when kill begin
			if npc.is_pc() then
            local count = pc.getqf("state") + 1  
			pc.setqf("state",count)			
			chat( "Du hast "..pc.getqf("state").." Spieler besiegt.")
			end
		end
    end
end