Personal Calendar

This is a personal calendar, crafted by Azog. It shows the current and next week! Once installed, you'll use the command +cal to use it!

Step One: Copy and Paste

Copy and paste the following:

&do_calendar <object>=$+cal:@pemit %#= [setq(0,secs2time(sub(secs(),mul(3600,7))))][setq(1,extract(%q0,3,1))][setq(2,switch(extract(%q0,1,1),Sun,0,Mon,1,Tue,2,Wed,3,Thu,4,Fri,5,Sat,6))][setq(5,right(last(time()),2))][setq(4,switch(first(rest(%q0)).[if(or(mod(%q5,4),eq(%q5,0)),N,L)],Feb.N,28,Feb.L,29,April.*,30,Jun.*,30,Sep.*,30,Nov.*,30,31))]%r[ansi(u,|Sun|Mon|Tue|Wed|Thu|Fri|Sat|)][setq(3,sub(%q1,%q2))]%r[parse(0 1 2 3 4 5 6,|[ifelse(eq(add(%q3,##),%q1),ifelse(lt(add(%q3,##),1),XX,ansi(i,rjust(add(%q3,##),2))),ifelse(lt(add(%q3,##),1),XX,if(gt(add(%q3,##),%q4),rjust(sub(add(%q3,##),%q4),2),rjust(add(%q3,##),2))))])] |%R[parse(7 8 9 10 11 12 13,|[if(gt(add(%q3,##),%q4),rjust(sub(add(%q3,##),%q4),2),rjust(add(%q3,##),2))])] |

Step Two: Check Your PC Object

You'll want to be sure that use of your PC object is properly @locked. To do so:

1. Type b me. Typing this command brings up your name, your description, and some basic properties.

2. Verify that you see: Owner: (your PC name), followed by Key: (your PC name). If you do not see this, type:

@lock me=me

@lock/use me=me

Thanks, Azog!

Special Note About DST

If your country's daylight savings time differs from the server's, there's an offset there you can change manually as needed. Where it says mul(3600,7), the 7 is the 7 hour offset from server time.