&CMD-KALIAS me=$kalias *:&keta.alias me=%0;@pemit me=Your Ketaset channel alias has been set to '%0'.;@set me/keta.alias=visual

&keta.alias me=[name(me)]

&CMD-KDISPLAY me=$kdisplay *:&keta.display me=%0;@pemit me=Your KetaSet channel display has been set to '%0'.;@set me/keta.display=visual

&KETA.DISPLAY me=\[TIC]%b

&CMD-KJOIN me=$kjoin:&keta.status me=on;@set me/keta.status=visual;@dolist [get(me/master.list)]=@switch [get(##/keta.status)]=on,@pemit ##=[u(##/keta.display)] [u(me/keta.alias)] has joined the KetaSet.

&CMD-KLEAVE me=$kleave:@dolist [get(me/master.list)]=@switch [get(##/keta.status)]=on,@pemit ##=[u(##/keta.display)] [u(me/keta.alias)] has left the channel.;&keta.status me=off;@set me/keta.status=!visual;@pemit me=You have left the KetaSet channel.

&CMD-KWHO me=$kwho:@pemit me=[center(|[u(me/keta.display)]|,78,-)]%r[iter(setinter(lwho(),v(master.list)),%t[ljust([u(##/keta.alias)],25)]%t| [ljust( [name(##)] ,14)] Idle:[setq(0,[floor([div([idle(##)],60)])])] %q0m [sub([idle(##)],[mul(%q0,60)])]s %r)][repeat(-,78)]

&CMD-KWHERE me=$kwhere:@pemit me=[center(|[u(me/keta.display)]|,78,-)]%r[iter([get(me/master.list)],%r%t[ljust([name(##)]%b,30,.)]%b[name([room(##)])])]%r%r[repeat(-,78)]

&CMD-Keta me= $kset ?*:@switch [get(me/keta.status)]=off,@pemit me=You need to join the KetaSet channel first!,{@dolist [get(me/master.list)]=@switch [get(##/keta.status)]=on,{@pemit ##=[u(##/keta.display)][switch(%0,:,[u(me/keta.alias)] %1,;,[u(me/keta.alias)]%1,|,%1,{[u(me/keta.alias)] says, "%0%1"})]}}

&KETA.COMMANDS me=$+kcom:@pemit me=The KetaSet Channel Commands are:%r[space(10)]kalias *:[space(6)]sets your Channel Name.%r[space(10)]kdisplay *:[space(4)]creates the visual-channel name \[KSet].%r[space(10)]kjoin:[space(9)]turns the channel on.%r[space(10)]kleave:[space(8)]turns the channel off.%r[space(10)]kwho:[space(10)]reports who is currently on the channel.%r[space(10)]kwhere:[space(8)]tells you where everyone on the channel is on the grid.%r[space(10)]kset *:[space(9)]This is how you communicate. Takes \[: \; |]%r[space(25)](as much anonymous spoofing as you can handle. whee ;)

&KETA.STATUS me=on

@set me/keta.status=visual

@set me/keta.alias=visual

@set me/keta.display=visual