discoPodloga

options:
	small_lamp: location(7132, 106, 7015, world "katedra")
	small_floor: location(7134, 106, 7016, world "katedra")
	redstone: location(7123, 107, 7019, world "katedra")


on enter region "mostbieg_brama":
	clear metadata value "discopodl.pkt" of player
	loop all players in radius 10 around player:
		if "%loop-player%" is not "%player%":
			if "%region at loop-player%" contains "mostbieg_brama":
				stop
	disco_rl()

on enter region:
	"%region%" contains "mostbieg_blok":
		if metadata value "discopodl.pkt" of player = 5:
			stop
		loop 10 times:
			wait 2 ticks
			if player's location is in region:
				player is on ground:
					exit 3 sections
			else:
				stop
		set {_b} to block below player
		block below player is {_b}:
			set {_pkt} to metadata value "discopodl.pkt" of player
			if {_pkt} is not set:
				set {_pkt} to 0
			set {_xc} to x-coordinates of {@small_lamp}
			set {_yc} to y-coordinates of {@small_lamp}
			set {_zc} to z-coordinates of {@small_lamp}
			set {_l} to block at location({_xc}, {_yc}, {_zc} + {_pkt}, world "katedra")
			set {_a} to "%{_b}%"
			set {_k} to "%{_l}%"
			replace all " wool" with "" in {_a}
			replace all " glass block" with "" in {_k}
			if {_a} is {_k}:
				set block at location({_xc}-1, {_yc}-1, {_zc} + {_pkt} , world "katedra") to redstone block
				add 1 to {_pkt}
				set metadata value "discopodl.pkt" of player to {_pkt}
				randFloor()
				if {_pkt} = 5:
					play sound "entity.cat.purr" with volume 1 at player
					set block at {@redstone} to redstone block
					wait 5 seconds
					set block at {@redstone} to air
					clear metadata value "discopodl.pkt" of player
					disco_rl()
				else:
					play sound "entity.cat.ambient" with volume 0.7 and pitch 2 at player
			else:
				play sound "minecraft:entity.cat.hiss" with volume 1 at player
				clear metadata value "discopodl.pkt" of player
				disco_rl()




on load:
	disco_rl()



function randLamp():
	loop 5 times:
		set {_z} to loop-number -1
		set {_r} to random integer between 1 and 6
		loop 5 times:
			if {_randoms::*} contains {_r}:
				set {_r} to {_r} +1
				if {_r} > 6:
					set {_r} to 1
		add {_r} to {_randoms::*}
		set {_xc} to x-coordinates of {@small_lamp}
		set {_yc} to y-coordinates of {@small_lamp}
		set {_zc} to z-coordinates of {@small_lamp}
		if {_r} is 1:
			set block at location({_xc}, {_yc}, {_zc} + {_z}, world "katedra") to light green glass block
		if {_r} is 2:
			set block at location({_xc}, {_yc}, {_zc} + {_z}, world "katedra") to pink glass block
		if {_r} is 3:
			set block at location({_xc}, {_yc}, {_zc} + {_z}, world "katedra") to yellow glass block
		if {_r} is 4:
			set block at location({_xc}, {_yc}, {_zc} + {_z}, world "katedra") to red glass block
		if {_r} is 5:
			set block at location({_xc}, {_yc}, {_zc} + {_z}, world "katedra") to light blue glass block
		if {_r} is 6:
			set block at location({_xc}, {_yc}, {_zc} + {_z}, world "katedra") to purple glass block



function randFloor():
	set {_xc} to x-coordinates of {@small_floor}
	set {_yc} to y-coordinates of {@small_floor}
	set {_zc} to z-coordinates of {@small_floor}
	loop 2 times:
		set {_x} to loop-number
		remove 1 from {_x}
		loop 3 times:
			set {_z} to loop-number-2
			remove 1 from {_z}
			set {_r} to random integer between 1 and 6
			loop 5 times:
				if {_randoms::*} contains {_r}:
					set {_r} to {_r} +1
					if {_r} > 6:
						set {_r} to 1
			add {_r} to {_randoms::*}
			set {_b} to block at location({_xc} + {_x}, {_yc}, {_zc} + {_z}, world "katedra")
			if {_r} is 1:
				set block at location({_xc} + {_x}, {_yc}, {_zc} + {_z}, world "katedra") to light green wool block
			if {_r} is 2:
				set block at location({_xc} + {_x}, {_yc}, {_zc} + {_z}, world "katedra") to pink wool block
			if {_r} is 3:
				set block at location({_xc} + {_x}, {_yc}, {_zc} + {_z}, world "katedra") to yellow wool block
			if {_r} is 4:
				set block at location({_xc} + {_x}, {_yc}, {_zc} + {_z}, world "katedra") to red wool block
			if {_r} is 5:
				set block at location({_xc} + {_x}, {_yc}, {_zc} + {_z}, world "katedra") to light blue wool block
			if {_r} is 6:
				set block at location({_xc} + {_x}, {_yc}, {_zc} + {_z}, world "katedra") to purple wool block
			add {_r} to {_randoms::*}

function disco_rl():
	set {_x} to x-coordinates of {@small_lamp}
	set {_y} to y-coordinates of {@small_lamp}
	set {_z} to z-coordinates of {@small_lamp}
	loop 5 times:
		set block at location({_x} -1, {_y} -1, {_z} + loop-number -1, world "katedra") to air
	randFloor()
	randLamp()
	set block at {@redstone} to air