Anonymous

on 1:text:.*:?: {
  if ($1 == .sb) {
    if (!$2) { .msg $nick Incorrect. To search the banlist type: .sb hostmask | halt }
    var %mask = $2
    var %file = banlistul.txt
    var %i = 1
    var %displayed = 0
    var %display-max = 5
    var %exit-code = 0
    ; valori pt. %exit-code: 0 - nici un ban gasit; 1 - s-au gasit %display-max banuri sau mai putin; 2 - sau gasit mai multe banuri decat %display-max
    while (%i <= $lines(%file)) {
      var %line = $gettok($read(%file,%i),1,32)
      if ((%mask isin %line) || (%line == %mask) || (%mask iswm %line) || (%line iswm %mask)) && (%displayed < %display-max) {
        inc %displayed
        var %linie = $read(%file,%i)
        var %autor = $gettok(%linie,3,32)
        var %motiv = $gettok(%linie,4-,32)
        .msg $nick [mask:] %line [author:] %autor [reason:] %motiv
        var %exit-code = 1
      }
      if (%displayed >= %display-max) { var %exit-code 2 }
      inc %i
    }
    if %exit-code == 0 { .msg $nick No match! | halt }
    if %exit-code == 1 { .msg $nick Found %displayed matches! | halt }
    if %exit-ciode == 2 { .msg $nick There are more than %display-max matches, please be more specific! | halt }
  }
}