"notatnik"

function NOTATNIK_getPage(p: player, str: integer = 1) :: string:
	set {_pages} to ceil(size of {notatnik::%{_p}%::*}/10)
	if {_str} is larger than {_pages}:
		return "Nie ma takiej strony."
	remove 1 from {_str}
	set {_i} to 1
	set {_ret} to ""
	loop {notatnik::%{_p}%::*}:
		if {_i} is between {_str}*10+1 and {_str}*10+10:
			set {_ret} to "%{_ret}%&7%loop-index%. %coloured loop-value%%nl%"
		add 1 to {_i}
	set {_ret} to subtext of {_ret} between index 0 and length of {_ret} - 1
	return {_ret}
command /notatnik [<text>] [<text>]:
	trigger:
		if arg 1 is not set:
			send "/notatnik dodaj <notatka>"
			send "/notatnik usun <nr>"
			if sender has permission "*":
				send "/notatnik pokaz [<nick>]"
			else:
				send "/notatnik pokaz [<nr=1>]"
			stop
		if arg 1 is "dodaj":
			add coloured arg 2 to {notatnik::%player%::*}
			send "Dodales notatke."
			stop
		if arg 1 is "usun":
			if {notatnik::%player%::%arg 2%} is set:
				delete {notatnik::%player%::%arg 2%}
				send "Usunales notatke."
				stop
			send "Nie ma takiej notatki."
			stop
		if arg 1 is "pokaz":
			if arg 2 is not set:
				send NOTATNIK_getPage(player)
				stop
			set {_str} to arg 2 parsed as integer
			if {_str} is integer:
				send NOTATNIK_getPage(player, {_str})
				stop
			if sender has permission "*":
				if size of {notatnik::%arg 2%::*} is larger than 0:
					loop {notatnik::%arg 2%::*}:
						send "&7%loop-index%. %coloured loop-value%"
					stop
				send "Ten gracz nie ma notatek."
				stop