on *:socklisten:reg:{ 
  .sockaccept reg- $+ $ticks
  echo $date Incoming connection from $sock(reg- $+ $ticks).ip 
}
on *:sockread:reg-*:{
  set % $+ $sockname
  sockread % $+ $sockname
  tokenize 32 % [ $+ [ $sockname ] ]
  echo $date %sockname Saying: $1-
  if (chanreg1024 == $1) {  
    if (GET == $2) {
      sockwrite -n $sockname Yo yo yo 
      sockclose $sockname
    }
  }
  else { sockwrite -n $sockname Wrong pass!? | sockclose $sockname }
}
alias reg {
  socklisten reg 3131
  echo -a Listening for connections ( $+ $ip $+ : $+ $sock(reg).port $+ ) at $time(hh:mm:sstt) 
}