options:
	b1: block at location(9938, 30, 9916, world "budowa")
	b2:	block at location(9935, 30, 9916, world "budowa")
	b3:	block at location(9928, 30, 9916, world "budowa")
	b4:	block at location(9925, 30, 9916, world "budowa")
	b5:	block at location(9938, 30, 9908, world "budowa")
	b6:	block at location(9935, 30, 9908, world "budowa")
	b7:	block at location(9928, 30, 9908, world "budowa")
	b8:	block at location(9925, 30, 9908, world "budowa")

	bt1: block at location(9923, 34, 9913, world "budowa")
	bt2: block at location(9923, 34, 9911, world "budowa")
	bt3: block at location(9940, 34, 9911, world "budowa")
	bt4: block at location(9940, 34, 9913, world "budowa")
	bt5: block at location(9921, 34, 9907, world "budowa")
	bt6: block at location(9921, 34, 9917, world "budowa")
	bt7: block at location(9942, 34, 9907, world "budowa")
	bt8: block at location(9942, 34, 9917, world "budowa")

	endb: block at location(9917, 33, 9919, world "budowa")

on load:
	loop 8 times:
		delete {rpg.endquest.bramy.%loop-number%::*}
		set {_i} to random integer between 1 and 4
		loop {_i} times:
			add random integer between 1 and 8 to {rpg.endquest.bramy.%loop-number-1%::*}

	loop 8 times:
		if "%{rpg.endquest.bramy.%loop-number%::*}%" contains "1":
			set {_1} to true
		if "%{rpg.endquest.bramy.%loop-number%::*}%" contains "2":
			set {_2} to true
		if "%{rpg.endquest.bramy.%loop-number%::*}%" contains "3":
			set {_3} to true
		if "%{rpg.endquest.bramy.%loop-number%::*}%" contains "4":
			set {_4} to true
		if "%{rpg.endquest.bramy.%loop-number%::*}%" contains "5":
			set {_5} to true
		if "%{rpg.endquest.bramy.%loop-number%::*}%" contains "6":
			set {_6} to true
		if "%{rpg.endquest.bramy.%loop-number%::*}%" contains "7":
			set {_7} to true
		if "%{rpg.endquest.bramy.%loop-number%::*}%" contains "8":
			set {_8} to true
	loop 8 times:
		if {_%loop-number%} is not set:
			set {_i} to random integer between 1 and 8
			add loop-number to {rpg.endquest.bramy.%{_i}%::*}
	set {@b1} to redstone block
	set {@b2} to redstone block
	set {@b3} to redstone block
	set {@b4} to redstone block
	set {@b5} to redstone block
	set {@b6} to redstone block
	set {@b7} to redstone block
	set {@b8} to redstone block
	set {@endb} to air


function getBlock(l: location) :: integer:
	if block at {_l} is {@b1}:
		return 1
	if block at {_l} is {@b2}:
		return 2
	if block at {_l} is {@b3}:
		return 3
	if block at {_l} is {@b4}:
		return 4
	if block at {_l} is {@b5}:
		return 5
	if block at {_l} is {@b6}:
		return 6
	if block at {_l} is {@b7}:
		return 7
	if block at {_l} is {@b8}:
		return 8
	return 0

function getButton(l: location) :: integer:
	if block at {_l} is {@bt1}:
		return 1
	if block at {_l} is {@bt2}:
		return 2
	if block at {_l} is {@bt3}:
		return 3
	if block at {_l} is {@bt4}:
		return 4
	if block at {_l} is {@bt5}:
		return 5
	if block at {_l} is {@bt6}:
		return 6
	if block at {_l} is {@bt7}:
		return 7
	if block at {_l} is {@bt8}:
		return 8
	return 0


on rightclick on stone button:
	if player is not sneaking:
		set {_a} to true
	if player's tool is air:
		set {_a} to true
	if {_a} is true:
		player is in region "rpg_enderbrama":
			set {_b} to getButton(event-block's location)
			if {_b} != 0:
				loop {rpg.endquest.bramy.%{_b}%::*}:
					send "%loop-value%" to "szumielxd_" parsed as player
					if loop-value = 1:
						if {@b1} is redstone block:
							set {@b1} to air
						else:
							set {@b1} to redstone block
					else if loop-value = 2:
						if {@b2} is redstone block:
							set {@b2} to air
						else:
							set {@b2} to redstone block
					else if loop-value = 3:
						if {@b3} is redstone block:
							set {@b3} to air
						else:
							set {@b3} to redstone block
					else if loop-value = 4:
						if {@b4} is redstone block:
							set {@b4} to air
						else:
							set {@b4} to redstone block
					else if loop-value = 5:
						if {@b5} is redstone block:
							set {@b5} to air
						else:
							set {@b5} to redstone block
					else if loop-value = 6:
						if {@b6} is redstone block:
							set {@b6} to air
						else:
							set {@b6} to redstone block
					else if loop-value = 7:
						if {@b7} is redstone block:
							set {@b7} to air
						else:
							set {@b7} to redstone block
					else if loop-value = 8:
						if {@b8} is redstone block:
							set {@b8} to air
						else:
							set {@b8} to redstone block
				{@b1} is redstone block:
					stop
				{@b2} is redstone block:
					stop
				{@b3} is redstone block:
					stop
				{@b4} is redstone block:
					stop
				{@b5} is redstone block:
					stop
				{@b6} is redstone block:
					stop
				{@b7} is redstone block:
					stop
				{@b8} is redstone block:
					stop
				if type of {@endb} is redstone block:
					stop
				send "&aDone!"
				wait 1 second
				set {@endb} to redstone block
				wait 30 seconds
				set {@endb} to air