mIRC Word Dictionary

on 1:LOAD:{
  set %master $$?="Master:"
  echo -a + Komandi:
  echo -a + !word <word> - shows the word
  echo -a + !add <word> <opisanie> - adds a word
  echo -a + !del <word> - deletes a word (master only)
}
on *:text:!word*:#:{
  if ($2 isin $read(name.txt, s, $2)) .msg $chan $read(name.txt, s, $2-)
  else /msg $chan No such word!
}
on *:text:!add*:#:{
  if ($2 isin $read(name.txt, s, $2)) .msg $chan Word already exists
  else {
    if ($3 == $null) { .msg $chan Write a description! | return }
    else { .msg $chan Word added | write name.txt $2 $2 $3 | return }
  }
}
on *:text:!del*:#:{
  if ($nick == %master) && ($2 isin $read(name.txt, s, $2)) .msg $chan The word was erased!
  else /.msg $chan No such word!
}