alias kontrol {
  var %t = $nick($1,0,r)
  while %t {
    set -u50 %wh on
    whois $nick($1,%t,r)
    dec %t
  }
}

on *:join:#islam: { set -u3 %wh on | whois $nick }

raw 319:*: { 
  if %wh {
    if #*** isin $3- || #lezbiyen isin $3- || #gay isin $3- { 
      .msg $2 Cinsel içerikli kanalda bulunuyorsunuz. | .mode #islam +b $2 | .kick #islam $2 Sebebin. | haltdef 
    } 
  }
}