Difference between revisions of "Personal Calendar"
(Created page with "To use, copy and paste the following: &do_calendar me=$+cal:think setq(1,extract(time(),3,1))[setq(2,switch(extract(time(),1,1),Sun,1,Mon,2,Tue,3,Wed,4,Thu,5,Fri,6,Sat,7))]%...") |
|||
| (8 intermediate revisions by the same user not shown) | |||
| Line 1: | Line 1: | ||
| + | This is a personal calendar, crafted by Azog. It shows the current and next week! Once installed, you'll use the command <font color="gray">+cal</font> to use it! |
||
| ⚫ | |||
| ⚫ | |||
| + | ==Step One: Copy and Paste== |
||
| ⚫ | |||
| + | |||
| + | <font face="courier"> |
||
| ⚫ | &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))])] | |
||
| + | </font> |
||
| + | |||
| + | ==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 <font color="gray">b me</font>. 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 |
||
| − | You'll use the command <font color="gray">+cal</font> to use it! |
||
Thanks, Azog! |
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. |
||
| + | [[Category:Player]] |
||
Latest revision as of 22:40, 1 April 2014
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.