Case opening 1.0

options:
	tag: &8[&6Case&8]
	chance key: 0.1
	chance chest: 1
method "list" {player}:
	set {_1} to arg{1};
	open chest with 6 rows named "&6&lLista skrzynek:" to {_1}
	wait 1 tick
	loop {case::chestlist::*}:
		set {_case%loop-index%} to loop-value
		if {_case%loop-index%} contains "<none>":
			remove loop-value from {case::chestlist::*}
			delete {_case%loop-index%}
	loop (size of {case::chestlist::*}) times:
		format slot loop-number - 1 of {_1} with 1 of chest named "&6%{_case%loop-number%}%" to close
method "opening" {player and case}:
	set {_1} to arg{1};
	set {_2} to arg{2};
	remove 1 tripwire hook named "&6Klucz do skrzyni &c%{_2}%" from {_1}'s inventory
	remove 1 chest named "&c%{_2}%" from {_1}'s inventory
	set {case::%{_1}%::open} to true
	open chest with 6 rows named "&6&lSkrzynia &c&l%{_2}%" to {_1}
	wait 1 tick
	loop {case::itemlist::%{_2}%::*}:
		set {_skin%loop-index%} to loop-value
	loop (size of {case::itemlist::%{_2}%::*}) times:
		format slot loop-number + 26 of {_1} with 1 of {_skin%loop-number%} to be unstealable
	loop 9 times:
		set {_item%loop-number%} to random element out of {case::itemlist::%{_2}%::*}
		format slot loop-number + 8 of {_1} with 1 of {_item%loop-number%} to be unstealable
		format slot loop-number - 1 of {_1} with 1 of black stained glass pane to be unstealable
		format slot loop-number + 17 of {_1} with 1 of black stained glass pane to be unstealable
	format slot 4 of {_1} with 1 of hopper to be unstealable
	play raw sound "random.pop" at {_1} with pitch 0.5 volume 1
	wait 1 seconds
	loop 20 times:
		if {case::%{_1}%::open} is true:
			loop loop-number times:
				wait 1 tick
			play raw sound "random.pop" at {_1} with pitch 1.5 volume 1
			loop 8 times:
				if {case::%{_1}%::open} is true:
					set {_item%loop-number-2%} to {_item%loop-number-2 + 1%}
					format slot loop-number-2 + 8 of {_1} with 1 of {_item%loop-number-2%} to be unstealable
			if {case::%{_1}%::open} is true:
				set {_item9} to random element out of {case::itemlist::%{_2}%::*}
				format slot 17 of {_1} with 1 of {_item9} to be unstealable
	wait 4 seconds
	if {case::%{_1}%::open} is true:
		open chest with 1 rows named "&6&lWygrales:" to {_1}
		wait 1 tick
		give {_1} {_item5}
		format slot 4 of {_1} with 1 of {_item5} to close
		play raw sound "mob.endermen.portal" at {_1} with pitch 0.001 volume 1
command /case [<text>] [<text>] [<text>]:
	trigger:
		if player has permission "case.*":
			if arg 1 is not set:
				execute player command "/case null"
			if arg 1 is not "add" or "remove" or "additem" or "removeitem" or "givekey" or "givechest" or "list" or "method":
				send "{@tag}"
				send "&6/case add <name> &8- &7dodaje nowa skrzynke"
				send "&6/case remove <name> &8- &7usuwa skrzynke"
				send "&6/case additem <name> &8- &7dodaje do skrzynki przedmiot trzymany w rece"
				send "&6/case removeitem <name> &8- &7usuwa z skrzynki przedmiot trzymany w rece"
				send "&6/case givekey <name> &8- &7daje nam klucz do skrzyni"
				send "&6/case givechest <name> &8- &7daje nam skrzynie"
				send "&6/case list &8- &7lista skrzyń w gui"
			if arg 1 is "add":
				if arg 2 is set:
					loop {case::chestlist::*}:
						if loop-value is arg 2:
							send "{@tag} &7Taka skrzynia juz istnieje!"
							stop
					add arg 2 to {case::chestlist::*}
					send "{@tag} &7Dodano skrzynie o nazwie &6%arg 2%&7."
				else:
					send "&6/case add <name>"
			if arg 1 is "remove":
				if arg 2 is set:
					loop {case::chestlist::*}:
						if loop-value is arg 2:
							remove arg 2 from {case::chestlist::*}
							delete {case::itemlist::%arg 2%::*}
							send "{@tag} &7Usunieto skrzynie o nazwie &6%arg 2%&7."
							stop
					send "{@tag} &7Taka skrzynia nie istnieje!"
				else:
					send "&6/case remove <name>"
			if arg 1 is "additem":
				if arg 2 is set:
					loop {case::chestlist::*}:
						if loop-value is arg 2:
							if {case::itemlist::%arg 2%::*} contains player's tool:
								send "{@tag} &7Ta skrzynka zawiera już taki przedmiot!"
								stop
							add player's tool to {case::itemlist::%arg 2%::*}
							send "{@tag} &7Dodano &6%player's tool%&7 do skrzyni &6%arg 2%&7."
							stop
					send "{@tag} &7Taka skrzynia nie istnieje!"
				else:
					send "&6/case additem <name>"
			if arg 1 is "removeitem":
				if arg 2 is set:
					loop {case::chestlist::*}:
						if loop-value is arg 2:
							if {case::itemlist::%arg 2%::*} contains player's tool:
								remove player's tool from {case::itemlist::%arg 2%::*}
								send "{@tag} &7Usunieto &6%player's tool%&7 ze skrzyni &6%arg 2%&7."
								stop
							send "{@tag} &7W tej skrzynce nie ma takiego przedmiotu!"
							stop
					send "{@tag} &7Taka skrzynia nie istnieje!"
				else:
					send "&6/case removeitem <name>"
			if arg 1 is "givekey":
				if arg 2 is set:
					loop {case::chestlist::*}:
						if loop-value is arg 2:
							add 1 tripwire hook named "&6Klucz do skrzyni &c%arg 2%" to player's inventory
							stop
					send "{@tag} &7Taka skrzynia nie istnieje!"
				else:
					send "&6/case givekey <name>"
			if arg 1 is "givechest":
				if arg 2 is set:
					loop {case::chestlist::*}:
						if loop-value is arg 2:
							add 1 chest named "&c%arg 2%" to player's inventory
							stop
					send "{@tag} &7Taka skrzynia nie istnieje!"
				else:
					send "&6/case givechest <name>"
			if arg 1 is "list":
				function "list" {player};
		if arg 1 is "method":
			set {_player} to arg 3 parsed as player
			if {_player}'s inventory contains tripwire hook named "&6Klucz do skrzyni &c%arg 2%":
				if {_player}'s inventory contains chest named "&c%arg 2%":
					function "opening" {{_player} and arg 2};
				else:
					send "{@tag} &7Nie posiadasz tej skrzyni!" to {_player}
			else:
				send "{@tag} &7Nie posiadasz klucza do tej skrzyni!" to {_player}
on inventory close:
	if {case::%player%::open} is true:
		set {case::%player%::open} to false
on quit:
	if {case::%player%::open} is true:
		set {case::%player%::open} to false
on right click:
	if player's tool is chest:
		loop {case::chestlist::*}:
			if loop-value is uncolored name of player's tool:
				cancel event
				execute player command "case method %uncolored name of player's tool% %player%"
	if player's tool is tripwire hook:
		if name of player's tool contains "&6Klucz do skrzyni":
			cancel event
			function "list" {player};
on mine of stone:
	if {case:chestlist::*} is set:
		chance of {@chance chest}%:
			set {_x} to random element out of {case::chestlist::*}
			drop chest named "%{_x}%"
			play raw sound "mob.endermen.portal" at player with pitch 0.001 volume 1
		chance of {@chance key}%:
			set {_x} to random element out of {case::chestlist::*}
			drop tripwire hook named "&6Klucz do skrzyni &c%{_x}%"
			play raw sound "mob.endermen.portal" at player with pitch 0.001 volume 1