warp gui simplifie

options:
	logo: &4[&cWarp&4]

command /setwarp [<text>]:
	permission: warp.edit
	permission message: &cTu ne peux pas faire cela !
	trigger:
		if arg-1 is set:
			if {warps::list::*} contains arg-1: # Si le warp existe déjà
				message "{@logo} &cImpossible : ce warp existe déjà"
			else:
				if arg-1 parsed as integer is an integer:
					message "{@logo} &cImpossible : tu ne peux pas mettre juste un nombre." # Oui, sinon y'a un bug avec les listes...
					stop
				add arg-1 to {warps::list::*} # Nom du warp
				set {warps::list::%arg-1%::loc} to player's position # Position du warp
				set {warps::list::%arg-1%::item} to ender pearl # Item de base dans le GUI
				message "{@logo} &aWarp %arg-1% créé !"
		else:
			message "&cUsage : /setwarp <nom>"

command /warp [<text>]:
	aliases: warps
	trigger:
		# Si le warp existe :
		if {warps::list::*} contains arg-1:
			teleport player to {warps::list::%arg-1%::loc}
			message "{@logo} &eTu as été téléporté !"

		# Sinon :
		else:

			# Ouverture du GUI
			open virtual chest inventory with 6 rows named "&cListe des warps" to player # On ouvre le GUI
			format gui slot 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 13, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34 and 35 of player with black stained glass pane

			# Affichage des warps dans le GUI :
			if (size of {warps::list::*}) > 0: # S'il y au moins 1 warp
				set {_i} to 0
				loop {warps::list::*}:
					set {_lore} to "||&eClique gauche : se téléporter"
					set {_lv} to loop-value
					format gui slot {_i} of player with {warps::list::%{_lv}%::item} named {_lv} with lore {_lore} to run:
						make player execute command "/warp %{_lv}%" # On le TP au warp
					add 1 to {_i}