on *:TEXT:!hotmask*:#: {
  var %read = $readini(hotmask.ini,hotmask,$2)
  if (%read == $null) notice $nick De nick $2 bestaat niet/heb ik nog niet gezien.
  else notice $nick $readini(hotmask.ini,hotmask,$2)
}

ON *:TEXT:@hotmask*:#: {
  var %read = $readini(hotmask.ini,hotmask,$2)
  if (%read == $null) msg $chan De nick $2 bestaat niet/heb ik nog niet gezien.
  else msg $chan $readini(hotmask.ini,hotmask,$2)
}

alias uhost { 
  if (! !isin $1) && (@ !isin $1) var %h = $1 $+ ! 
  else var %h = $1 
  if (! isin %h) { var %l = $iif($left(%h,1) == !,*,$gettok(%h,1,33)) } 
  if (@ isin %h) var %s = $iif($gettok(%h,$iif($left(%h,1) == @,1,2),64),$v1) 
  if ($calc($pos(%h,@) - $pos(%h,!)) == 1) || ($left(%h,1) == @) var %r = * 
  elseif (! isin %h) var %r = $gettok($right(%h,- $+ $pos(%h,!)),1,64) 
  elseif (@ isin %h) var %r = $gettok(%h,1,64) 
  return $iif(%l,%l,*) $+ ! $+ $iif(%r,%r,$iif(*@* iswm %h,$gettok(%h,1,64),*)) $+ @ $+ $iif(%s,%s,*) 
} 

ON *:TEXT:!hnick*:#: { 
  if ($nick ishop $chan) || ($nick isop $chan) { 
    if ($uhost($2) == $2) { 
      var %x = 1 
      while ($read(hotmask.ini,%x)) { 
        if ($2 isin $read(hotmask.ini,%x)) && (afk !isin $read(hotmask.ini,%x)) && (| !isin $read(hotmask.ini,%x))  { 
          var %tekst = $iif(%tekst,$v1 $+ $chr(44)) $gettok($read(hotmask.ini,%x),1,61) 
        } 
        inc %x 
      } 
      if (%tekst) .notice $nick Results found for $2 $+ : %tekst 
      else .notice $nick No Results found for $2 $+ . 
    } 
  } 
}

ON *:TEXT:@hnick*:#: { 
  if ($nick ishop $chan) || ($nick isop $chan) { 
    if ($uhost($2) == $2) { 
      var %x = 1 
      while ($read(hotmask.ini,%x)) { 
        if ($2 isin $read(hotmask.ini,%x)) && (afk !isin $read(hotmask.ini,%x)) && (| !isin $read(hotmask.ini,%x))  { 
          var %tekst = $iif(%tekst,$v1 $+ $chr(44)) $gettok($read(hotmask.ini,%x),1,61) 
        } 
        inc %x 
      } 
      if (%tekst) .msg $chan Results found for $2 $+ : %tekst 
      else .msg $chan No Results found for $2 $+ . 
    } 
  } 
}