TCT

options:
	startnumber : 2 #スタートに必要な人数です
	maxnumber : 20 #参加可能な最大人数です 参加人数がこの値を超えるとほかのプレイヤーは参加できなくなります
	startwait : 10 #参加者が集まってからの待機時間です 単位は秒です
	neutralwait : 60 #スタート後の準備時間です
	waitingbroadcast : 10 #待機時間中の秒数カウントメッセージが何秒ごとにあるかを設定します
	timeup : 600 #タイムアップによる村人勝利の条件です 人狼活動開始から何秒で村人の勝利となるかを設定します

function count(v: text) :: number:
	loop {%{_v}%::*}:
		set {_a} to {_a} + 1
	return {_a}

command /tct <text> [<text>]:
	trigger:
		if arg 1 is "play" or "join":
			set {tct::playnumber} to count("tct::player") + 1
			if {tct::playnumber} >= {@startnumber}:
				execute console command "tct start"
			if {tct::playnumber} >= {@maxnumber}:
				stop
			set {tct::player::*} to player
		else if arg 1 is "start":
			broadcast "&4[TCT]&7参加者が集まりました。これよりカウントが開始されます。"
			loop {@startwait} times:
				wait 1 second
				set {tct::startwait} to {tct::startwait} + 1
				if {tct::startwait} mod {@waitingbroadcast} = 0:
					broadcast "&4[TCT]&7あと%{tct::startwait}%秒で開始します。"
				if count("tct::player") < {@startnumber}:
					broadcast "&4[TCT]&7参加人数がスタートに必要な人数を下回りました。開始を中断します。"
					stop
			delete {tct::startwait}
			broadcast "&4[TCT]&7スタートしました。準備時間に入りました。"
			loop {@neutralwait} times:
				wait 1 second
				set {tct::neutralwait} to {tct::neutralwait} + 1
				if {tct::neutralwait} mod {@waitingbroadcast} = 0:
					broadcast "&4[TCT]&7あと%{tct::neutralwait}%秒で人狼が活動できるようになります。"
			delete {tct::neutralwait}
			broadcast "&4[TCT]&7人狼が活動できるようになりました。すべての人間へ、幸運を祈ります。"
			loop {@timeup} times:
				wait 1 second
				set {tct::timeup} to {tct::timeup} + 1
			delete {tct::timeup}
			broadcast "&4[TCT]&7時間切れです。"
			execute console command "tct finish human"
		else if arg 1 is "finish":
			delete {tct::player::*}
			delete {tct::playnumber}
			if arg 2 is "human":
				broadcast "&4[TCT]&7人間の勝利です!"
			if arg 2 is "wolfman":
				broadcast "&4[TCT]&7人狼の勝利です!"
			if arg 2 is "foxman":
				broadcast "&4[TCT]&7妖狐の勝利です!"