mIRC Need Help

on 1:TEXT:.help*:#:{
  var %i 1
  var %file needhelp $+ .txt
  var %nickname $2
  var %status 0
  while (%i != $calc($lines(%file) + 1)) {
    if ($read( $+ %file $+ , $+ %i $+ ) == %nickname)  { write -dl $+ %i %file | var %status 1 }
    inc %i
  }
  if (%status == 0)  { msg $chan No Such Nickname Found... }
  if (%status == 1)  { msg $chan Removed... $2 Successfully }
}