on *:text:*:#:{
  set %1337.temp $$1- | set %1337.temp $replace(%1337.temp,., $+ $r(1,14) DOT  $+  ) | msg $chan 10 $+ 1337:4 %1337.temp | unset %1337.temp
}