Paste and Save in your remotes.

Syntax: !dr

Returbs 3 definitions if available.

(Again not the best I could do but still ok)

on *:TEXT:!dr*:#:{
  set %url /?w= $+ $2 $+ &ls=a
  set %chan $chan
  set %wordreg /(<span id="easel_def_off_(.)">)(.*)(</span>)/
  sockopen dr www.onelook.com 80
}
on *:SOCKOPEN:dr:{
  sockwrite -n $sockname GET %url HTTP/1.1
  sockwrite -n $sockname HOST: www.onelook.com $+ $crlf $+ $crlf 
}
on *:SOCKREAD:dr:{
  sockread %dr
  if (%dr1 == 3) { 
    unset %dr1
    sockclose $sockname
    halt
  }
  elseif ($regex(%dr,%wordreg)) {
    inc %dr1 1
    msg %chan 12 $remove($remove($remove($remove($remove($remove($regml(3),</span>),<font color=green><i><span id="easel_exs_off_),2">),0">),1">),3">) $+ )
  }
}