【Skript】SkPieceR v0.1

on load:
	set {skpiece::sys::version} to "Ver.0.1e11"
	if {skpiece::sys::loadbc} is not false:
		broadcast "&6&lSkPiece &d%{skpiece::sys::version}% &eLoaded!"
	if {skpiece::showcommand::target} is not set:
		set {skpiece::showcommand::target} to "noperms"
	if {skpiece::showcommand::show} is not set:
		set {skpiece::showcommand::show} to "disable"
	if {skpiece::showcommand::log::keep} is not set:
		set {skpiece::showcommand::log::keep} to 7

on join:
	wait a second
	command "/scmdlogremove %player%"

command /scmdlogremove <player>:
	executable by: console
	trigger:
		{skpiece::showcommand::log::keep} > 0
		loop {skpiece::showcommand::log::player::%arg 1%::day::*}:
			if timetoday(now) - loop-value > {skpiece::showcommand::log::keep}:
				clear {skpiece::showcommand::log::player::%arg 1%::cmd::%loop-index%}
				clear {skpiece::showcommand::log::player::%arg 1%::comp::%loop-index%}
				clear {skpiece::showcommand::log::player::%arg 1%::day::%loop-index%}
				clear {skpiece::showcommand::log::player::%arg 1%::time::%loop-index%}

command /skr:
	permission: skr
	trigger:
		execute player command "/skript reload scripts"

command /skpiece [<boolean>]:
	trigger:
		if arg 1 is not set:
			message "&7======================"
			message "&6&lSkPiece &d%{skpiece::sys::version}%"
			message "&eCreate by &bMalb7mm"
			message "&7======================"
			set {_r} to random integer between 0 to 0
			if {_r} is 0:
				message "&eTips: &b/scmd &6でコマンド開示・コマンド記憶の設定ができます"
		if arg 1 is false:
			message "&aロード時のメッセージをオフにしました"
			set {skpiece::sys::loadbc} to false
		if arg 1 is true:
			message "&aロード時のメッセージをオンにしました"
			set {skpiece::sys::loadbc} to true

command /showcommand [<text>] [<text>] [<text>] [<text>]:
	aliases: /showcmd, /scmd
	trigger:
		if player don't have permission "skpiece.showcommand":
			message "&c権限がないため操作できません"
			stop
		if arg 1 is not set:
			message "&7&l・&c&lShowCommand &6- コマンド開示"
			message "&b/scmd &6showopt &7... &6- 表示設定を操作します"
			message "&b/scmd &6cmdlog &7... &6- コマンド記憶設定を操作します"
		if arg 1 is "showopt":
			if arg 2 is not set:
				message "&7&l・&c&lShowopt &6- 表示設定"
				message "&6""(取得対象)-(表示対象)""&bで指定します"
				message "&b取得対象は&6""all""(全体)&b、&6""noperms""(権限未所持者)&bから"
				message "&b表示対象は&6""all""(全体)&b、&6""ops""(権限所持者)、&6""disable""(使用しない)&bから選んでください"
				message "&e&l例: &a/scmd showopt &6all-ops"
				stop
			set {_opt::*} to arg 2 split by "-"
			if {_opt::1} is "all":
				message "&a取得対象を全体に設定しました"
				set {skpiece::showcommand::target} to "all"
			else if {_opt::1} is "noperms":
				message "&a取得対象を権限未所持者に設定しました"
				set {skpiece::showcommand::target} to "noperms"
			if {_opt::2} is "all":
				message "&a表示対象を全体に設定しました"
				set {skpiece::showcommand::show} to "all"
			else if {_opt::2} is "ops":
				message "&a表示対象を権限所持者に設定しました"
				set {skpiece::showcommand::show} to "ops"
			else if {_opt::2} is "disable":
				message "&aShowCommandをオフにしました"
				set {skpiece::showcommand::show} to "disable"
		if arg 1 is "cmdlog":
			if arg 2 is not set:
				message "&7&l・&c&lCmdlog &6- コマンド記憶設定"
				message "&b入力したことを記憶するコマンドを設定します"
				message "&b/scmd cmdlog &6add <コマンド名> &6- 記憶コマンドを追加します"
				message "&b/scmd cmdlog &6remove <コマンド名> &6- 記憶コマンドをリストから除きます"
				message "&b/scmd cmdlog &6list - 記憶コマンドのリストを表示します"
				message "&b/scmd cmdlog &6keep <日数> - 何日間記憶したコマンドを残すか設定します(0以下を指定で永遠に残す)"
				message "&b/scmd cmdlog &6log &7... &6- 記憶したコマンドを操作します"
				stop
			if arg 2 is "list":
				message "&b記憶コマンドリスト:"
				message "&7%{skpiece::showcommand::log::cmd::*}%"
			if arg 2 is "add":
				arg 3 is set
				message "&a/%arg 3% を記憶コマンドのリストに追加しました"
				add arg 3 to {skpiece::showcommand::log::cmd::*}
			if arg 2 is "remove":
				arg 3 is set
				loop {skpiece::showcommand::log::cmd::*}:
					loop-value is arg 3
					set {_i} to loop-index
				if {_i} is set:
					message "&a/%arg 3% を記憶コマンドのリストから除きました"
					clear {skpiece::showcommand::log::cmd::%{_i}%}
				else:
					message "&cリストに指定されたコマンドが見つかりませんでした"
			if arg 2 is "keep":
				arg 3 is set
				message "&a記憶日数を %arg 3%日 に設定しました"
				set {skpiece::showcommand::log::keep} to arg 3 parsed as integer
			if arg 2 is "log":
				if arg 3 is not set:
					message "&7&l・&c&lLog &6- 記憶コマンド操作"
					message "&b/scmd cmdlog log &6list <プレイヤー名> - 指定したプレイヤーの記憶コマンドを表示します"
					message "&b/scmd cmdlog log &6search <コマンド名> - 指定したコマンドの記憶コマンドを表示します"
					message "&b/scmd cmdlog log &6clear <-a|プレイヤー名> - 指定したプレイヤーの記憶コマンドをクリアします"
					message "&6 ; -aを指定すると全員の記憶コマンドをクリアします"
					message "&b/scmd cmdlog log &6cleart <日数> - 指定した日数より前の記憶コマンドをクリアします"
				if arg 3 is "list":
					arg 4 is set
					message "&aプレイヤー %arg 4% の記憶したコマンドのリスト"
					loop {skpiece::showcommand::log::player::%arg 4%::day::*}:
						set {_cmd} to {skpiece::showcommand::log::player::%arg 4%::cmd::%loop-index%}
						set {_comp} to {skpiece::showcommand::log::player::%arg 4%::comp::%loop-index%}
						set {_time} to {skpiece::showcommand::log::player::%arg 4%::time::%loop-index%}
						message "&e/%{_cmd}% &7(%{_time}%, %{_comp}%)"
				if arg 3 is "search":
					arg 4 is set
					message "&aコマンド %arg 4% の記憶したコマンドのリスト"
					loop all offline players:
						loop {skpiece::showcommand::log::player::%loop-value%::day::*}:
							set {_cmd} to {skpiece::showcommand::log::player::%loop-value-1%::cmd::%loop-index%}
							set {_comp} to {skpiece::showcommand::log::player::%loop-value-1%::comp::%loop-index%}
							set {_time} to {skpiece::showcommand::log::player::%loop-value-1%::time::%loop-index%}
							{_cmd} is arg 4
							message "&e/%{_cmd}% &7(%{_time}%, %{_comp}%)"
				if arg 3 is "clear":
					if arg 4 is "-a":
						message "&a全てのプレイヤーの記憶したコマンドをクリアしました"
						loop all offline players:
							loop {skpiece::showcommand::log::player::%loop-value%::day::*}:
								clear {skpiece::showcommand::log::player::%loop-value-1%::cmd::%loop-index%}
								clear {skpiece::showcommand::log::player::%loop-value-1%::comp::%loop-index%}
								clear {skpiece::showcommand::log::player::%loop-value-1%::day::%loop-index%}
								clear {skpiece::showcommand::log::player::%loop-value-1%::time::%loop-index%}
					else if arg 4 is set:
						message "&aプレイヤー %arg 4% の記憶したコマンドをクリアしました"
						loop {skpiece::showcommand::log::player::%arg 4%::day::*}:
							clear {skpiece::showcommand::log::player::%arg 4%::cmd::%loop-index%}
							clear {skpiece::showcommand::log::player::%arg 4%::comp::%loop-index%}
							clear {skpiece::showcommand::log::player::%arg 4%::day::%loop-index%}
							clear {skpiece::showcommand::log::player::%arg 4%::time::%loop-index%}
				if arg 3 is "cleart":
					arg 4 is set
					message "&a%arg 4% 日前以前の記憶したコマンドをクリアしました"
					loop all offline players:
						loop {skpiece::showcommand::log::player::%loop-value%::day::*}:
							timetoday(now) - {skpiece::showcommand::log::player::%loop-value-1%::day::%loop-index%} > arg 4
							clear {skpiece::showcommand::log::player::%loop-value-1%::cmd::%loop-index%}
							clear {skpiece::showcommand::log::player::%loop-value-1%::comp::%loop-index%}
							clear {skpiece::showcommand::log::player::%loop-value-1%::day::%loop-index%}
							clear {skpiece::showcommand::log::player::%loop-value-1%::time::%loop-index%}

on command:
	loop {skpiece::showcommand::log::cmd::*}:
		command is loop-value
		set {_cmdlog} to true
	if {_cmdlog} is true:
		add command to {skpiece::showcommand::log::player::%player%::cmd::*}
		add complete command to {skpiece::showcommand::log::player::%player%::comp::*}
		add timetoday(now) to {skpiece::showcommand::log::player::%player%::day::*}
		add now to {skpiece::showcommand::log::player::%player%::time::*}
	{skpiece::showcommand::show} is not "disable"
	if {skpiece::showcommand::target} is "noperms":
		player has permission "skpiece.admin"
		set {_break} to true
	set {_player} to player
	{_player} is set
	{_break} is not true
	if {skpiece::showcommand::show} is "all":
		broadcast "&7&oSCMD&f&o: &7%player%&f: &e/%complete command%"
	else if {skpiece::showcommand::show} is "ops":
		message "&7&oSCMD&f&o: &7%player%&f: &e/%complete command%" to ops

function timetoday(i: date) :: integer:
	set {_r} to unix timestamp of {_i}
	set {_r} to floor({_r}/86400)
	return {_r}