One player sleep

summon FallingSand ~ ~.6 ~ {Time:1,Block:log,Passengers:[{id:FallingSand,Time:1,Block:redstone_block,Passengers:[{id:FallingSand,Time:1,Block:activator_rail,Passengers:[{id:MinecartCommandBlock,Command:gamerule commandBlockOutput false},{id:MinecartCommandBlock,Command:gamerule logAdminCommands false},{id:MinecartCommandBlock,Command:"tellraw @a [{\"text\":\"One-player sleep, by Sharpie Thunderflare.\nSystem installed using \",\"color\":\"yellow\"},{\"text\":\"tryashtar's \",\"bold\":\"true\",\"color\":\"gold\"},{\"text\":\"Command Compactor!\",\"underlined\":\"true\",\"color\":\"yellow\",\"clickEvent\":{\"action\":\"open_url\",\"value\":\"https://redd.it/3invah\"},\"hoverEvent\":{\"action\":\"show_text\",\"value\":\"Click!\"}}]"},{id:MinecartCommandBlock,Command:/scoreboard objectives add STSleep dummy},{id:MinecartCommandBlock,Command:/scoreboard objectives add STSCancel trigger},{id:MinecartCommandBlock,Command:scoreboard players add Time STSleep 0},{id:MinecartCommandBlock,Command:fill ~2 0 ~ ~11 0 ~ chain_command_block 5 replace {auto:1b,TrackOutput:0b}},{id:MinecartCommandBlock,Command:setblock ~2 0 ~ repeating_command_block 5 _ {auto:1b,TrackOutput:0b}},{id:MinecartCommandBlock,Command:blockdata ~2 0 ~ {Command:/scoreboard players add @a STSleep 1 {Sleeping:1b}}},{id:MinecartCommandBlock,Command:blockdata ~3 0 ~ {Command:/scoreboard players enable @a STSCancel}},{id:MinecartCommandBlock,Command:"blockdata ~4 0 ~ {Command:\"/execute @a[score_STSleep_min=1,score_STSleep=1] ~ ~ ~ /tellraw @a [\\\"\\\",{\\\"selector\\\":\\\"@a[score_STSleep_min=1,score_STSleep=1]\\\",\\\"color\\\":\\\"red\\\"},{\\\"text\\\":\\\" is sleeping.\\\",\\\"color\\\":\\\"red\\\"},{\\\"text\\\":\\\"\nClick to cancel.\\\",\\\"color\\\":\\\"gold\\\",\\\"underlined\\\":true,\\\"clickEvent\\\":{\\\"action\\\":\\\"run_command\\\",\\\"value\\\":\\\"/trigger STSCancel set 1\\\"}}]\"}"},{id:MinecartCommandBlock,Command:blockdata ~5 0 ~ {Command:/execute @a[score_STSCancel_min=1] ~ ~ ~ effect @a[score_STSleep_min=1] minecraft:wither 1 1 true}},{id:MinecartCommandBlock,Command:"setblock ~6 0 ~ chain_command_block 13 replace {auto:1b,TrackOutput:0b,Command:\"/tellraw @a [\\\"\\\",{\\\"selector\\\":\\\"@a[score_STSCancel_min=1]\\\",\\\"color\\\":\\\"green\\\"},{\\\"text\\\":\\\" stopped \\\",\\\"color\\\":\\\"blue\\\"},{\\\"selector\\\":\\\"@a[score_STSleep_min=1]\\\",\\\"color\\\":\\\"red\\\"},{\\\"text\\\":\\\" from sleeping.\\\",\\\"color\\\":\\\"blue\\\"}]\"}"},{id:MinecartCommandBlock,Command:blockdata ~7 0 ~ {Command:/scoreboard players set @a[score_STSCancel_min=1] STSCancel 0}},{id:MinecartCommandBlock,Command:blockdata ~8 0 ~ {Command:scoreboard players set @a[score_STSleep_min=1] STSleep 0 {Sleeping:0b}}},{id:MinecartCommandBlock,Command:blockdata ~9 0 ~ {Command:/time query daytime}},{id:MinecartCommandBlock,Command:/stats block ~9 0 ~ set QueryResult Time STSleep},{id:MinecartCommandBlock,Command:blockdata ~10 0 ~ {Command:scoreboard players test Time STSleep 12500 23000}},{id:MinecartCommandBlock,Command:setblock ~11 0 ~ chain_command_block 13 replace {auto:1,TrackOutput:0b,Command:/execute @a[score_STSleep_min=100] ~ ~ ~ /time add 40}},{id:MinecartCommandBlock,Command:setblock ~1 ~-2 ~ command_block 0 _ {Command:fill ~-1 ~ ~ ~ ~2 ~ air}},{id:MinecartCommandBlock,Command:setblock ~1 ~-2 ~ command_block 0 _ {Command:fill ~-1 ~ ~ ~ ~2 ~ air}},{id:MinecartCommandBlock,Command:summon FallingSand ~1 ~-1 ~ {Time:1,Block:redstone_block}},{id:MinecartCommandBlock,Command:kill @e[type=MinecartCommandBlock,r=2]}]}]}]}