Skript: syosetu

command /write:
	trigger:
		if {syosetu::player::%player%::mode} is true:
			set {syosetu::player::%player%::mode} to false
			message "&eInfo: &7Writeモードをオフにしました"
		else:
			set {syosetu::player::%player%::mode} to true
			message "&eInfo: &7Writeモードをオンにしました"
			message "&7(Lunachat の日本語変換をオフにしてください: &f/jp off&7)"

command /wshow <integer>:
	trigger:
		loop {syosetu::player::%player%::temp::lines-%{_np}%} times:
			message {syosetu::player::%player%::writing::text-%arg 1%-%loop-number%}

on chat:
	{syosetu::player::%player%::mode} is true
	cancel event
	set {_np} to {syosetu::player::%player%::temp::nowpage}
	if {_np} is not set:
		set {syosetu::player::%player%::temp::nowpage} to 1
		set {_np} to 1
	set {_text::*} to message split by "@"
	if number of {_text::*} is 2:
		set {_add::*} to {_text::1} split by " "
	if number of {_text::*} > 2:
		message "&cError 101: &7@ が多すぎます"
		stop
	if {_add::1} is "p":
		if {_add::2} is "+":
			add 1 to {syosetu::player::%player%::temp::nowpage}
			message "&aSuccess: &7%{syosetu::player::%player%::temp::nowpage}%ページ目へ移動しました"
		else if {_add::2} is "-":
			if {syosetu::player::%player%::temp::nowpage} <= 2:
				message "&cError 202-1: &7指定されたページは存在しません(これより前には進めません)"
				stop
			add -1 to {syosetu::player::%player%::temp::nowpage}
			message "&aSuccess: &7%{syosetu::player::%player%::temp::nowpage}%ページ目へ移動しました"
		else:
			set {_n} to {_add::2} parsed as integer
			if {_n} is not set:
				message "&cError 203: &7不適切な引数です"
				stop
			if {_n} <= 0:
				message "&cError 202-2: &7指定されたページは存在しません(1より前には進めません)"
				stop
			set {syosetu::player::%player%::temp::nowpage} to {_n}
			message "&aSuccess: &7%{syosetu::player::%player%::temp::nowpage}%ページ目へ移動しました"
	else if {_add::1} is "r":
		set {_n} to {_add::2} parsed as integer
		if {_n} is not set:
			message "&cError 203: &7不適切な引数です"
			stop
		if {_n} <= 0:
			message "&cError 204-1: &7指定された行は存在しません(1より前は指定できません)"
			stop
		if {syosetu::player::%player%::writing::text-%{_np}%-%{_n}%} is not set:
			message "&cError 204-2: &7指定された行は存在しません(その行は)"
			stop
		clear {syosetu::player::%player%::writing::text-%{_np}%-%{_n}%}
		message "&aSuccess: &7%{_n}%行目を削除しました"
		add -1 to {syosetu::player::%player%::temp::lines-%{_np}%}
		loop 10-{_n} times:
			set {_cnt} to {_n}+(loop-number)
			set {_cnt-1} to {_cnt}-1
			set {syosetu::player::%player%::writing::text-%{_np}%-%{_cnt-1}%} to {syosetu::player::%player%::writing::text-%{_np}%-%{_cnt}%}
		stop
	if {syosetu::player::%player%::temp::lines-%{_np}%} >= 10:
		message "&cError 201: &7改ページしてください"
		stop
	if {_text::2} is not set:
		{_add::1} is set
		stop
	set {_text::1} to {_text::2}
	add 1 to {syosetu::player::%player%::temp::lines-%{_np}%}
	add 1 to {_np}
	set {_nl} to {syosetu::player::%player%::temp::lines-%{_np}%}
	set {syosetu::player::%player%::writing::text-%{_np}%-%{_nl}%} to {_text::1}
	message "&aSuccess: &7テキスト「%{_text::1}%」を&f(Page %{_np}%, Line %{_nl}%)&7に追加しました"