on *:TEXT:!del:#:{
    if ($nick isop $chan) { 
      if ($read(pickup.txt,1)) { 
        write -dl1 pickup.txt 
        notice $nick Line deleted 
      } 
      else { 
        notice $nick no Line to delete