Forums Scripts & Popups if any-line-infile iswm $1- ?

if (what isin $1-) 

if ( $read -l $+ %wordline.line $mircdir $+\text.txt == $null ) { halt }
elseif ( $read -l $+ %word.line $mircdir $+ \text.txt isin $1- ) { do stuff }
} 

on *:TEXT:*:[color:blue]#channelname[/color]: {
  var %x = $read([color:blue]filename[/color],w,$replace($1-,$chr(32),$chr(42)))
  if ($readn) echo -a [color:purple]The line was found in the file on line $readn ![/color]
  else echo -a [color:purple]The line was not found[/color]
}

on *:text:*:#:{
    set %word.line 1
    :word
    if ( $read -l $+ %word.line $mircdir $+ \text.txt == $null ) { halt }
    elseif ( $read -l $+ %word.line $mircdir $+ \text.txt isin $1- ) { goto command }
    else { inc %word.line | goto word }
    :command
    [color:red] what you want to happen [/color]
    else { halt }
    :end
 }

one 
two
three
four

*one*
*two*
*three*
*four*

alias something {
  if !$hget(wordslist) {
    if !$isfile(wordslist.txt) { return }
    hmake wordslist
    hload -n wordslist wordslist.txt
  }
  if $hfind(wordslist,$strip($1),1,W).data { return $true }
  return $false
}

on *:text:*:?: if $something($1-) { msg $nick You just said something that matches the file! }

alias something {
  .fopen a wordslist.txt
  if $ferr { return }
  var %a = $strip($1)
  while !$feof {
    if $fread(a) isin %a {
      .fclose a
      return $true
    }
  }
  .fclose a
  return $false
}