[Quest API] Add IsRaining() and IsSnowing() to Perl/Lua. (#2477)

* [Quest API] Add IsRaining() and IsSnowing() to Perl/Lua.

- Add quest::IsRaining() to Perl.
- Add quest::IsSnowing() to Perl.
- Add eq.is_raining() to Lua.
- Add eq.is_snowing() to Lua.

This will allow server operators to tell if a zone is currently raining, snowing, or neither.

* Remove unnecessary quest manager stuff.

* Added constants and cleaned up #weather command

* Revert "Added constants and cleaned up #weather command"

This reverts commit 2ec85304b7.

* Revert "Revert "Added constants and cleaned up #weather command""

This reverts commit 76f4e411b6.

* Delete settings.json

* Update zone.cpp

zone/embparser_api.cpp

@@ -3706,6 +3706,24 @@ bool Perl__hasrecipelearned(uint32 recipe_id)
 	return quest_manager.HasRecipeLearned(recipe_id);
 }
 
+bool Perl__IsRaining()
+{
+	if (!zone) {
+		return false;
+	}
+
+	return zone->IsRaining();
+}
+
+bool Perl__IsSnowing()
+{
+	if (!zone) {
+		return false;
+	}
+
+	return zone->IsSnowing();
+}
+
 void perl_register_quest()
 {
 	perl::interpreter perl(PERL_GET_THX);
@@ -3752,6 +3770,8 @@ void perl_register_quest()
 	package.add("delete_data", &Perl__delete_data);
 	package.add("IsBeneficialSpell", &Perl__IsBeneficialSpell);
 	package.add("IsEffectInSpell", &Perl__IsEffectInSpell);
+	package.add("IsRaining", &Perl__IsRaining);
+	package.add("IsSnowing", &Perl__IsSnowing);
 	package.add("IsRunning", &Perl__IsRunning);
 	package.add("LearnRecipe", &Perl__LearnRecipe);
 	package.add("MerchantCountItem", &Perl__MerchantCountItem);