on *:TEXT:!define*:#: {
  if ($nick == demonviper16 || $nick isop $chan) {
    if (%poetry) {
      if ($2- == %pdefi) {
        /notice $nick correct
        .unset %poetry
      }
      else {
        .notice $nick incorrect, try again
      }
    }
  }
}

on *:TEXT:!select:#: {
  if ($nick == demonviper16 || $nick isop $chan) {
    if (!%poetry) { 
      set %poetry $read(poetry.txt)
      set %pdefi $readini(def.ini, poetry, %poetry)
      .notice $nick selected:7 %poetry 
    }
  }
}

on *:TEXT:!again:#: {
  if ($nick == demonviper16 || $nick isop $chan) {
    if (%poetry) { 
      .notice $nick The word is:7 %poetry 
    }
  }
}

on *:TEXT:!rem:#: {
  if ($nick == demonviper16) {
    if (%poetry) { 
      .notice $nick Removed word:7 %poetry 
      unset %poetry
    }
  }