/k server -i port room oper

if[~_p;."\\m i 1234"]

Room::[0<#_i;*_i;""]
Oper::[1<#_i;_i 1;""]
Who:!0
Msgs:Nicks:()

.m.c:"if[_w _in Who;bye Who?_w]"
.m.s:{:[(_w _in Who)&`msg~*x;. x;'`access]}
.m.g:{:[(~_w _in Who)&`hi~*x;. x;'`access]}

hi:{if[x _in Nicks;:_f""];if[0=#x;x:"guest",$_w];Nicks,:,x;sys[time x]"enter";Who,:_w;nicks[];(x;Room;Nicks;Msgs)}
bye:{Who::Who _di x;n:Nicks x;Nicks::Nicks _di x;sys[time n]"exit";nicks[]}
nicks:{Who 3:\:(`Nicks;();:;Nicks);}
sys:{send[1;Who](`msg;(y," ",x;`blue;`gray;""))}
time:{x," (",({(1_,/".",'x)," ",1_,/":",'y}.$+0 100 100_vs _gtime _t),")"}
msg:{[x;y;z;n]:["/"~*x;cmd 1_ x;txt[x;y;z]n]}
txt:{[x;y;z;n]send[0=#n;:[0=#n;Who;_w,Who Nicks?n]](`msg;(x;y;z;Nicks[Who?_w],">",n))}
send:{if[x;Msgs,:,z];(?y)3:\:z;}
cmd:{Cmd[`$i#x]{|((x=" ")?0)_ d:|x}(1+i:x?" ")_ x}
Cmd.nick:{if[(0<#x)&~x _in Nicks;n:Nicks i:Who?_w;Nicks[i]:x;_w 3:(`Nick;();:;x);sys["is now ",x]n;nicks[]]}
Cmd.me:{sys[x,")"]"(",Nicks Who?_w;}
Cmd.boot:{if[Oper~Nicks Who?_w;Who[Nicks?x]3:"\\\\"]}