Coyote Calendar
Instructions
Copy and paste the below code into a compatible MUSH or MUX.
MUSHCode for Coyote Calendar
@create Calendar
&CALENDAR_ART Calendar=%r+++++++Sunday+++Monday++Tuesday+Wednesday+Thursday++Friday++Saturday%r++++++______________________________________________________________%r+++++|aa++++++|bb++++++|cc++++++|dd++++++|ee++++++|ff++++++|gg++++++|%r+++++|++++++++|++++++++|++++++++|++++++++|++++++++|++++++++|++++++++|%r+++++|________|________|________|________|________|________|________|%r+++++|hh++++++|ii++++++|jj++++++|kk++++++|ll++++++|mm++++++|nn++++++|%r+++++|++++++++|++++++++|++++++++|++++++++|++++++++|++++++++|++++++++|%r+++++|________|________|________|________|________|________|________|%r+++++|oo++++++|pp++++++|qq++++++|rr++++++|ss++++++|tt++++++|uu++++++|%r+++++|++++++++|++++++++|++++++++|++++++++|++++++++|++++++++|++++++++|%r+++++|________|________|________|________|________|________|________|%r+++++|vv++++++|ww++++++|xx++++++|yy++++++|zz++++++|!!++++++|@@++++++|%r+++++|++++++++|++++++++|++++++++|++++++++|++++++++|++++++++|++++++++|%r+++++|________|________|________|________|________|________|________|%r+++++|$$++++++|^^++++++|&&++++++|99++++++|--++++++|``++++++|==++++++|%r+++++|++++++++|++++++++|++++++++|++++++++|++++++++|++++++++|++++++++|%r+++++|________|________|________|________|________|________|________|[switch(%0,1,%r+++++|::++++++|''++++++|77++++++|<<++++++|>>++++++|~~++++++|88++++++|%r+++++|++++++++|++++++++|++++++++|++++++++|++++++++|++++++++|++++++++|%r+++++|________|________|________|________|________|________|________|)]
&CODELIST Calendar=aa bb cc dd ee ff gg hh ii jj kk ll mm nn oo pp qq rr ss tt uu vv ww xx yy zz !! @@ $$ ^^ && 99 -- `` == :: '' 77 << >> ~~ 88
&FIRSTDATE Calendar=[match(Sun Mon Tue Wed Thu Fri Sat,first(convsecs(convtime(XXX [u(monthabbr,%0)] 1 12:00:00 [switch(%1,??,19%1,%1)]))))]
&LASTDATE Calendar=[extract(convsecs(sub(convtime(XXX [u(monthabbr,sub(add(%0,1),mul(12,gt(add(%0,1),12))))] 1 12:00:00 [switch(%1,??,19%1,%1)]),86400)),3,1)]
&DATELIST Calendar=[extract([repeat(++%B,sub(u(firstdate,%0,%1),1))] [u(datelist_2,u(lastdate,%0,%1))] [repeat(++%B,14)],1,42)]
&DATELIST_2 Calendar=[iter(lnum(%0),switch(strlen(add(##,1)),1,+[add(##,1)],add(##, 1)))]
&CALENDAR2 Calendar=[setq(8,u(datelist,%0,%1))][setq(9,u(calendar_art,switch(extract(%q8,36,1),++,0,1)))][iter(u(codelist),setq(9,[edit(%q9,##,extract(%q8,match(u(codelist),##),1))]))]%q9
&MONTHABBR Calendar=[extract(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec,%0,1)]
&CALENDAR Calendar=[center([extract(January February March April May June July August September October November December,switch(%0,,u(monthabbr_2,extract(time(),2,1)),%0),1)] [switch(%1,,extract(time(),5,1),??,19%1,%1)],75)]%R[setq(7,u(calendar2,switch(%0,,u(monthabbr_2,extract(time(),2,1)),%0),[switch(%1,,extract(time(),5,1),??,19%1,%1)]))][edit(%q9,+,%B)]
&MONTHABBR_2 Calendar=[match(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec,%0)]
@Desc Calendar=[u(me/calendar)]
&CREDITS Calendar=Copyright 1995 CaerCoyote Ltd. < made by Coyote of TinyTIM >
@set Calendar=VISUAL
@set Calendar=COMMANDS
&CALENDAR_ART Calendar=%r+++++++Sunday+++Monday++Tuesday+Wednesday+Thursday++Friday++Saturday%r++++++______________________________________________________________%r+++++|aa++++++|bb++++++|cc++++++|dd++++++|ee++++++|ff++++++|gg++++++|%r+++++|++++++++|++++++++|++++++++|++++++++|++++++++|++++++++|++++++++|%r+++++|________|________|________|________|________|________|________|%r+++++|hh++++++|ii++++++|jj++++++|kk++++++|ll++++++|mm++++++|nn++++++|%r+++++|++++++++|++++++++|++++++++|++++++++|++++++++|++++++++|++++++++|%r+++++|________|________|________|________|________|________|________|%r+++++|oo++++++|pp++++++|qq++++++|rr++++++|ss++++++|tt++++++|uu++++++|%r+++++|++++++++|++++++++|++++++++|++++++++|++++++++|++++++++|++++++++|%r+++++|________|________|________|________|________|________|________|%r+++++|vv++++++|ww++++++|xx++++++|yy++++++|zz++++++|!!++++++|@@++++++|%r+++++|++++++++|++++++++|++++++++|++++++++|++++++++|++++++++|++++++++|%r+++++|________|________|________|________|________|________|________|%r+++++|$$++++++|^^++++++|&&++++++|99++++++|--++++++|``++++++|==++++++|%r+++++|++++++++|++++++++|++++++++|++++++++|++++++++|++++++++|++++++++|%r+++++|________|________|________|________|________|________|________|[switch(%0,1,%r+++++|::++++++|''++++++|77++++++|<<++++++|>>++++++|~~++++++|88++++++|%r+++++|++++++++|++++++++|++++++++|++++++++|++++++++|++++++++|++++++++|%r+++++|________|________|________|________|________|________|________|)]
&CODELIST Calendar=aa bb cc dd ee ff gg hh ii jj kk ll mm nn oo pp qq rr ss tt uu vv ww xx yy zz !! @@ $$ ^^ && 99 -- `` == :: '' 77 << >> ~~ 88
&FIRSTDATE Calendar=[match(Sun Mon Tue Wed Thu Fri Sat,first(convsecs(convtime(XXX [u(monthabbr,%0)] 1 12:00:00 [switch(%1,??,19%1,%1)]))))]
&LASTDATE Calendar=[extract(convsecs(sub(convtime(XXX [u(monthabbr,sub(add(%0,1),mul(12,gt(add(%0,1),12))))] 1 12:00:00 [switch(%1,??,19%1,%1)]),86400)),3,1)]
&DATELIST Calendar=[extract([repeat(++%B,sub(u(firstdate,%0,%1),1))] [u(datelist_2,u(lastdate,%0,%1))] [repeat(++%B,14)],1,42)]
&DATELIST_2 Calendar=[iter(lnum(%0),switch(strlen(add(##,1)),1,+[add(##,1)],add(##, 1)))]
&CALENDAR2 Calendar=[setq(8,u(datelist,%0,%1))][setq(9,u(calendar_art,switch(extract(%q8,36,1),++,0,1)))][iter(u(codelist),setq(9,[edit(%q9,##,extract(%q8,match(u(codelist),##),1))]))]%q9
&MONTHABBR Calendar=[extract(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec,%0,1)]
&CALENDAR Calendar=[center([extract(January February March April May June July August September October November December,switch(%0,,u(monthabbr_2,extract(time(),2,1)),%0),1)] [switch(%1,,extract(time(),5,1),??,19%1,%1)],75)]%R[setq(7,u(calendar2,switch(%0,,u(monthabbr_2,extract(time(),2,1)),%0),[switch(%1,,extract(time(),5,1),??,19%1,%1)]))][edit(%q9,+,%B)]
&MONTHABBR_2 Calendar=[match(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec,%0)]
@Desc Calendar=[u(me/calendar)]
&CREDITS Calendar=Copyright 1995 CaerCoyote Ltd. < made by Coyote of TinyTIM >
@set Calendar=VISUAL
@set Calendar=COMMANDS