: error
"SHUTDOWN> " swap strcat me @ swap notify
;
: explode_pop
dup 0 = if pop exit else
swap pop 1 - explode_pop then
;
: wall
dup 0 = if pop exit then
swap over 2 + pick notify
1 - wall
;
: countdown
dup atoi 0 = if pop pop pop pop exit then
4 pick over "%m" subst
over atoi 1 = not if "minutes" "minute" subst then
3 pick "%r" subst 4 pick "%d" subst
online wall pop 60 sleep
atoi 1 - intostr countdown
;
: main
me @ "G" flag? not if
"Sorry, only a GameMgr may perform a shutdown."
error pop exit then
"/" explode dup 3 = not if
"Format is: shutdown <time>/<reason>/<downtime>"
error explode_pop exit then
pop dup atoi not if pop pop pop
"Zero warning time not allowed."
error exit then
"WALL> Shutdown in %m minute for %r.  Est. downtime is %d."
4 rotate .sstrip
4 rotate .sstrip
4 rotate .sstrip countdown
me @ "SHUTDOWN> Shutdown now, please." notify
;