on $*:TEXT:/^([^']+)'s ID is\x3A \[(\d+)\]$/i:#:{
  var %nick = $regml(1) , %id = $regml(2)
  if ($read(Ids.txt,nw,%nick *) == $null) {
    ;Nick was not found in Ids.txt, add it.
    write Ids.txt %nick %id
    msg $chan $nick pins a tail on the The_Donkey (ID Added!)
  }
}