+finger
Codebase: PennMUSH
Purpose: Quick source of in-game information about a character.
$+finger *:[pemit(%#,[setq(0,pmatch(%0))][if(%q0,[ansi(bh,---)][ansi(bh,\[)]%b+finger: [name(%q0)]%b[ansi(bh,\])][ansi(bh,repeat(-,sub(75,add(strlen(+finger: [name(%q0)]),7))))]%r[ljust(Name: [name(%q0)],25)][ljust(Gender: [get(%q0/sex)],25)][ljust(Class: [get(%q0/class)],25)]%r[ansi(bh,----)]%bWhat You Know OOCly...%b[ansi(bh,repeat(-,47))]%r%rAlias: [get(%q0/alias)]%rE-mail: [get(%q0/finger_email)]%rNotes: [u(%q0/notes)]%rQuote: [u(%q0/quote)]%r[if(not(or(hasflag(%q0,dark),hidden(%q0))),[if(hasflag(%q0,connected),[ansi(hw,This character is connected.)]%RIdle time: [setq(1,idle(%q0))][ifelse([gt([div(%q1,86400)],0)],[div(%q1,86400)]d,[ifelse([gt([div([mod(%q1,86400)],3600)],0)],[div([mod(%q1,86400)],3600)]h,[ifelse([gt([div([mod(%q1,3600)],60)],0)],[div([mod(%q1,3600)],60)]m,[mod(%q1,60)]s)])])]%r,Last: [get(%q0/last)]%r)])]%r[ansi(bh,----)]%bWhat You Know ICly...%b[ansi(bh,repeat(-,48))]%r%rFull Name: [get(%q0/ic_fullname)]%rWhat You Probably Know About Me: [if(strlen(get(%q0/ic_profile)),[u(%q0/ic_profile)],You probably know nothing about me.)]%r%r[ansi(bh,repeat(-,sub(75,add(strlen(+finger System),7))))][ansi(bh,\[)]%b+finger System%b[ansi(bh,\])][ansi(bh,---)],{Sorry, I can't find that player.})])]