@create Spelling Commands
@lock Spelling Commands = #0
&DO_SPELL_ACK Spelling Commands=$+spell *:@pemit %#=Spellcheck in progress: %0; @switch hasflag(*webster,connected)=0, {@pemit %#=Spellcheck failed: Webster isn't available now.}
&HELPSPELL Spelling Commands=The +spell command allows you to access a spelling checker for your objects or yourself. It takes two forms:%r%r+spell <obj>/<attrib>%tCheck spelling on attribs. Wildcards ok.%r+spell <Text>%t%tCheck spelling of an arbitrary input text.%r%rThe results will be paged to you by Webster, our spelling 'bot, and may take a little time. Webster can't be paged directly, and please don't mess with it. :)
&DO_SPELL1 Spelling Commands=$+spell */*:@switch/first 1=[match(locate(%#,v(0),*),#-1*)], {@pemit %#=You don't see that.}, [or(or(u(hasprivs,%#),hasflag(locate(%#,v(0),*),Visual)),match(owner(locate(%#,v(0),*)),%#))], {@tr me/spellcheck=%#,[locate(%#,v(0),*)],%1}, {@pemit %#=You aren't allowed to check that.}
&SPELLCHECK Spelling Commands=@dol lattr(v(1))={@switch match(##,v(2))=1, {@pemit *webster=[name(v(0))] pages: spell ## [xget(v(1),##)]}}
&DO_SPELL2 Spelling Commands=$+spell *:@switch match(%0,*/*)=0,{@pemit *webster={%N pages: spell Misspelled [secure(v(0))]}}
&DO_DEFINE Spelling Commands=$+define *:@pemit *webster={%N pages: define define [secure(v(0))]}
&DO_SUGGEST Spelling Commands=$+suggest *:@pemit *webster={%N pages: suggest suggest [secure(v(0))]}