Skript #97 Function + LCrates

#Functions
function newFile(floc: text) :: text:
	if file "%{_floc}%" doesn't exist:
		create file "%{_floc}%"

function varFile(path: text, file: text) :: texts:
	if file "%{_file}%" exists:
		set {_var::*} to yaml list "%{_path}%" of file "%{_file}%"
		return {_var::*}

function capitalizeFirst(text: texts) :: texts:

	loop {_text::*}:
		set {_first-char} to first character of loop-value
		set {_remaining} to last (length of loop-value - 1) characters of loop-value

		set {_output::%loop-index%} to "%{_first-char} in upper case%%{_remaining}%"

	return {_output::*}

#LCrates
on load:
	set {crate::title} to "&2[&aCrates&2] &a&k::&2"
	set {crate::nep} to "%{crate::title}% &4Je hebt &c&lonvoldoende permissies &4om deze command uit te voeren."

	if file "Files\Crates\list.yml" doesn't exist:
		create file "Files\Crates\list.yml"

	if file "Files\Crates\loc.yml" doesn't exist:
		create file "Files\Crates\loc.yml"

every 1 tick:
	delete {crate::list::*}
	set {crate::list::*} to yaml list "crates.list" of file "Files\Crates\list.yml"

command /key [<text>] [<player>]:
	trigger:
		if player has permission "crate.key.give" OR "crate.*":
			if arg 1 is set:
				if arg 1 is "help":
					send "&2========&2[&aCrates&2]========"
					json("%player%", "&a&l/key list||ttp:&7Krijg een lijst met alle keys||cmd:/key list")
					json("%player%", "&a&l/key <keynaam>||ttp:&7Geef jezelf een key||sgt:/key <keynaam>|| &a&l[speler]||ttp:&7Geef een key aan een speler||sgt:/key <keynaam> [speler]")
					send "&2========&2[&aCrates&2]========"
					stop
				if arg 1 is "list":
					send "%{crate::title}% Dit zijn alle crates:"
					send "&a&l%{crate::list::*}%"
					stop
				if {crate::list::*} doesn't contain arg 1:
					json("%player%", "%{crate::title}% Dit is geen key, doe:|| &a&l/key help||ttp:&7Krijg help menu||cmd:/key help|| &2voor meer info.")
					stop
				else:

					delete {crate::kinfo::%arg 1%::*}
					set {crate::kinfo::%arg 1%::*} to yaml list "crates.info.Basic.kname" of file "Files\Crates\list.yml"

					if arg 2 is set:
						if arg 2 is online:

							send "%{crate::title}% Je hebt een &a&lkey &2gegeven aan &a&l%arg 2%&2."
							send "%{crate::title}% Veel plezier met je key!" to arg 2

							give 1 tripwire hook named "&7Basic Key" with lore "&5&kl" to arg 2
							stop
						else:
							send "%{crate::title}% &4Deze speler is niet online."
							stop
					else:
						send "%{crate::title}% Veel plezier met je key!"
						give 1 tripwire hook named "%{crate::kinfo::%arg 1%::*}%" with lore "&5&kl" to player
						stop


			else:
				json("%player%", "%{crate::title}% Doe:|| &a&l/key help||ttp:&7Krijg help menu||cmd:/key help|| &2voor meer info.")
				stop

		else:
			send "%{crate::nep}%"
			stop

command /crate [<text>] [<text>]:
	trigger:
		if player has permission "crate.give" OR "crate.*":
			if arg 1 is set:
				if arg 1 is "help":
					send "&2========&2[&aCrates&2]========"
					json("%player%", "&a&l/crate list||ttp:&7Krijg een lijst met alle keys||cmd:/crate list")
					json("%player%", "&a&l/crate add <cratenaam>||ttp:&7Maak een crate||sgt:/crate add <cratenaam>")
					send "&2========&2[&aCrates&2]========"
					stop

				if arg 1 is "list":
					send "%{crate::title}% Dit zijn alle crates:"
					send "&a&l%{crate::list::*}%"
					stop

				if arg 1 is "add":
					if targeted block is a chest:
						if {crate::list::*} doesn't contain "%arg 2%":
							json("%player%", "%{crate::title}% Dit is geen crate, doe:|| &a&l/crate list||ttp:&7Krijg crate list||cmd:/crate list|| &2voor de lijst met alle crates.")
							stop

						else:
							send "&2===========&2[&aCrates&2]==========="
							send "&2Crate succesvol toegevoegd met%nl% de volgende eigenschappen:"
							send "&2Crate naam: &a&l%arg 2%"
							send "&2Locatie: &a&l%location of targeted block%"
							send "&2===========&2[&aCrates&2]==========="

							set {%arg 2%::low::*} to arg 2
							set {%arg 2%::up::*} to capitalizeFirst({%arg 2%::low::*})

							add "%location of targeted block%" to yaml list "Crates.info.%{%arg 2%::up::*}%.loc" of file "Files\Crates\loc.yml"

					else:
						send "%{crate::title}% &4Dit is geen &ckist&4."
						stop

				else:
					json("%player%", "%{crate::title}% Doe:|| &a&l/crate help||ttp:&7Krijg help menu||cmd:/crate help|| &2voor meer info.")
					stop

			else:
				json("%player%", "%{crate::title}% Doe:|| &a&l/crate help||ttp:&7Krijg help menu||cmd:/crate help|| &2voor meer info.")
				stop

		else:
			send "%{crate::nep}%"
			stop


#================================================
#Locatie: "Files\Crates\loc.yml"