lbsv

on load:
	command "difficulty 0"

on join:
	command "gamemode 2 %player%"
	command "/pex user %player% add -playerrealms.security"
	if {serverjoin::%player%} is not set:
		command "execute @a ~ ~ ~ playsound entity.player.levelup master @s ~ ~ ~ 1 0.5"
		set join message to "&2&lEntrance&f: &dFirstJoin: %player%"
		add 1 to {serverjoin::%player%}
		stop
	add 1 to {serverjoin::%player%}
	command "execute @a ~ ~ ~ playsound entity.player.levelup master @s"
	set join message to "&2&lEntrance&f: &eJoin: %player%"
	if mod({serverjoin::%player%},50) is 0:
		broadcast "&6&l%{serverjoin::%player%}%th Join!"

on quit:
	set quit message to "&2&lEntrance&f: &cQuit: %player%"
	command "execute @a ~ ~ ~ playsound entity.creeper.primed master @s"

function lower(x: number, y: number) :: number:
	if {_x}<{_y}:
		return {_x}
	else:
		return {_y}

function higher(x: number, y: number) :: number:
	if {_x}>{_y}:
		return {_x}
	else:
		return {_y}

function registblocks(id: text, rg1: location, rg2: location, ref: location):
	set {_x} to higher( (x-coord of {_rg1}) , (z-coord of {_rg2}) )
	set {_y} to higher( (y-coord of {_rg1}) , (y-coord of {_rg2}) )
	set {_z} to higher( (z-coord of {_rg1}) , (z-coord of {_rg2}) )
	set {_.rg1} to location( {_x} , {_y} , {_z} )
	set {_x} to lower( (x-coord of {_rg1}) , (x-coord of {_rg2}) )
	set {_y} to lower( (y-coord of {_rg1}) , (y-coord of {_rg2}) )
	set {_z} to lower( (z-coord of {_rg1}) , (z-coord of {_rg2}) )
	set {_.rg2} to location( {_x} , {_y} , {_z} )
	set {registblocks::%{_id}%::rg1} to {_.rg1}
	set {registblocks::%{_id}%::rg2} to {_.rg2}
	set {registblocks::%{_id}%::ref} to location( ({_.rg1}'s x-coord - {_ref}'s x-coord) , ({_.rg1}'s y-coord - {_ref}'s y-coord) , ({_.rg1}'s z-coord - {_ref}'s z-coord) )

command /rgblocks <text> <integer> <integer> <integer> <integer> <integer> <integer>:
	permission: mp.registblocks
	trigger:
		set {_rg1} to location at ( arg 2, arg 3, arg 4 )
		set {_rg2} to location at ( arg 5, arg 6, arg 7 )
		set {_ref} to player's location
		set {_refx} to x-coord of player's location
		set {_refy} to y-coord of player's location
		set {_refz} to z-coord of player's location
		registblocks(arg 1, {_rg1}, {_rg2}, {_ref})
		message "&c&lMyPrison&f&l&o; &fID &e""%arg 1%""&f に座標 &e(%arg 2%,%arg 3%,%arg 4%)～(%arg 5%,%arg 6%,%arg 7%) ： (%{_refx}%,%{_refy}%,%{_refz}%) &fを登録しました"

function setexp(player: player, mode: text, quant: integer):
	if {_mode} is "add":
		add {_quant} to {mp::status::%uuid of {_player}%::exp}
		level({_player})
	if {_mode} is "set":
		set {mp::status::%uuid of {_player}%::exp} to {_quant}
		level({_player})
	set {_nxlv} to floor(30+0.01(({mp::status::%uuid of {_player}%::lv}*({mp::status::%uuid of {_player}%::lv}-1))/2))
	if {_nxlv} > {mp::status::%uuid of {_player}%::exp}:
		add 1 to {mp::status::%uuid of {_player}%::lv}
		remove {_nxlv} from {mp::status::%uuid of {_player}%::exp}

function setblocks(id: text, ref: location):
	set {_distx} to ({registblocks::%{_id}%::ref}'s x-coord) - ({_ref}'s x-coord)
	set {_disty} to ({registblocks::%{_id}%::ref}'s y-coord) - ({_ref}'s y-coord)
	set {_distz} to ({registblocks::%{_id}%::ref}'s z-coord) - ({_ref}'s z-coord)
	loop blocks within {registblocks::%{_id}%::rg1} to {registblocks::%{_id}%::rg2}:
		set {_block} to type of loop-block
		set {_loc} to location( (x-coord of location of loop-block + {_distx}) , (y-coord of location of loop-block + {_disty}) , (z-coord of location of loop-block + {_distz}) )
		set the block at {_loc} to {_block}

command /mp:
	trigger:
		message "&c&lMyPrison&f&l: &eあなたのステータス"
		message "Minecraft UUID: %uuid of player%"
		if {mp::status::%uuid of player%::id} is not set:
			message "&7*Not Initialized"
			stop
		message "MyPrison UUID: %{mp::status::%uuid of player%::id}%"

command /mp-init [<boolean>]:
	trigger:
		if {mp::status::%uuid of player%::id} is not set:
			message "&c&lMyPrison&f&l: &aMyPrisonの初期化に成功しました"
		else:
			if arg 1 is true:
				message "&c&lMyPrison&f&l: &aMyPrisonの全データの再初期化に成功しました"
			else:
				message "&c&lMyPrison&f&l: &c本当に初期化してよろしいですか？"
				message "&7 -> <ttp:&c&lここをクリック&cすると&c&l全てのデータが&nリセット&cされます><cmd:/mp-init true>&4&l[YES]<reset> &7<-"
				stop
		clear {mp::status::%uuid of player%::*}
		add 1 to {mp::server::idquant}
		set {mp::status::%uuid of player%::id} to {mp::server::idquant}