Quest Reportando Erro Ao Instalar

[rafaelxte2 38]

Boas pessoal.

Esta quest que desenvolvi esta apresentando o o seguinte erro e nao estou conseguindo resolver...

 

Coracao_de_Bera.quest:10:expecting 'state'

 

 

 

quest coração_de_bera begin

	state start begin
		when login or levelup with pc.level >= 75 and pc.level <= 99 and not pc.is_gm() begin
			set_state(information)
		end
	end
	
	
	when letter begin
		local v = find_npc_by_vnum(20095)
			if v != 0 then target.vid("__TARGET__", v, "Nohe O Imortal")
		end
            send_letter("Recuperar o Coração de Bera")
	end
	
	when button or info begin
		say_title("Recuperar o Coração de Bera")
		say("Nohe o Imortal quer falar com você.")
		say("")
		say_reward("Fale com o Nohe o Imortal.")
	end
	
	when __TARGET__.target.click or 20095.chat."Coração de Bera" begin
            target.delete("__TARGET__")
            say_title("Nohe o Imortal")
            say("Oh, você quer me ajudar?")
            say("Bom...")
            say("Como você sabe eu sou um,")
            say("velho teleportador e estou precisando")
            say("de um remedio muito raro.")
            say("Se me ajudar, será muito bem recompensado.")
            wait()
            say_title("Nohe o Imortal")
            say("Recentemente visitei um medico...")
            say("ele me disse que a cura poderia ser produzida...")
            say("Mas eu teria que obter de alguns monstro")
            say("Como sou velho de mas para combate-los")
            wait()
            say_title("Nohe O Imortal")
            say("Eu preciso que me ajude a consegui-lo.")
            say("Este pode ser dropado em todo Monstros do seu nível,")
			say_item ( "Remédio do Nohe" , 30152 , "" )
            say("Atenção pois você só poderá dropar um em sua jornada.")
			say("E não é nada facil obte-lo, então pense duas vezes antes de vender.")
            say("")
            set_state(collect_remedio)
        end
    end
	
	state collect_remedio begin
        when letter begin
            send_letter("O Remédio de Nohe")
		end
			
		when button or info begin
            say_title("O velho está muito doente")
            say("Rapido caro aventureiro o velho não")
            say("aguentará esperar tanto.")
            say("vi uma SAMU passando para o centro da cidade.")
            say("")
            say_reward("Deste jeito você irá matar o velho.")
            say("")
            say_item_vnum(30152) 
        end
	end
	
	 when 20095.chat."O Remédio de Nohe" with pc.count_item(30152)>0 begin
	 
                say_title("Nohe O Imortal")
                say("Oh, você trouxe Meu Remédio...")
                say("Não posso acreditar...")
                say("Preciso de tempo. Para acalmar esse meu coração.")
                pc.remove_item("30152", 1)
                wait()
				say_title("Nohe o Imortal")
				say("Eu não me esqueci, e promessa e divida")
				say("como recompensa você receberá um item")
				say("que lhe permitirá teleportar para um")
				say("mapa especial o Mapa da Treta,")
				say("volte até mim depois que lhe explicarei")
				say("bem melhor esse assunto")
				wait()
				say_title("Nohe o Imortal")
				say("Sem mas delongas aqui esta seu item")
				say_item ( "Coração de Bera" , 70022 , "" )
				
				return
				
	end
end
	

 

 

 

desde ja agradeço e se poderem me dizer como que insiro nesta mesma quest uma forma de por todos mobs do jogo a dropar isso com probabilidade baixa

[NewWars 875]

state start begin
		when login or levelup with pc.level >= 75 and pc.level <= 99 and not pc.is_gm() begin
			set_state(information)
		end
	end

Fechaste o state enquanto tinhas mais whens a seguir.

 

Cumprimentos.

[Mário. 154]

when __TARGET__.target.click or 20095.chat."Coração de Bera" begin
            target.delete("__TARGET__")
            say_title("Nohe o Imortal")
            say("Oh, você quer me ajudar?")
            say("Bom...")
            say("Como você sabe eu sou um,")
            say("velho teleportador e estou precisando")
            say("de um remedio muito raro.")
            say("Se me ajudar, será muito bem recompensado.")
            wait()
            say_title("Nohe o Imortal")
            say("Recentemente visitei um medico...")
            say("ele me disse que a cura poderia ser produzida...")
            say("Mas eu teria que obter de alguns monstro")
            say("Como sou velho de mas para combate-los")
            wait()
            say_title("Nohe O Imortal")
            say("Eu preciso que me ajude a consegui-lo.")
            say("Este pode ser dropado em todo Monstros do seu nível,")
			say_item ( "Remédio do Nohe" , 30152 , "" )
            say("Atenção pois você só poderá dropar um em sua jornada.")
			say("E não é nada facil obte-lo, então pense duas vezes antes de vender.")
            say("")
            set_state(collect_remedio)
        end
    end

E o último end é suposto fechar o quê?