on *:snotice:*: {
  if $regex($1-,/(/whois)/Si) {
    if %whoisflood == 1 {
      if !$hget(whois) { .hmake whois 1000 | .hload whois whois.ymc }
      if !$hget(whois,$2) { .hinc whois $2 1 | hsave whois whois.ymc | $+(.,timer,$2) 1 300 .hdel whois $2 | msg $2 Whois Cektiniz Nasıl Yardımcı Olabilirim. ? } 
      else { .hinc whois $2 1 | hsave whois whois.ymc  }
      if $hget(whois,$2) == 2 || $hget(whois,$2) == 3 { msg $2 $hget(whois,$2) Kez Whois Cektiniz Nasıl Yardımcı Olabilirim ? }
      elseif $hget(whois,$2) == 4 {  msg $2 $hget(whois,$2) Kez Whois Cektiniz Birdahaki Sefer Kill Atılacak. }
      elseif $hget(whois,$2) == 5 { kill $2 Whois Flood. | $+(.,timer,$2) off }
    }
    if %whoissayac == 1 {
      if !%wsyc { .set %wsyc 1 } | else { inc %wsyc }
      notice $2 0,1 $server IRC Server 14 Bana Whois Çeken4 $calc($+(123,+,%wsyc,.)) 14Kişisin.
    }
    if %pencere == 1 {
      window -ne @Whois
      echo @Whois $+([,$time,] 4Nick: $2 14IP: $remove($gettok($3,2,64),$chr(41)) 2Ident: $remove($gettok($3,1,64),$chr(40)))
    }
    if %wkcek == 1 {
      sajoin $2 %knl
    }
  }
}
dialog whois {
  title "Whois Ayar Menüsü."
  size -1 -1 136 108
  option dbu
  box "Açmak İstediğiniz Özelliğe Tik Koyun", 1, 2 2 132 70
  check "Whois Sayaç ( Noticeli )", 2, 6 11 112 10
  check "Whois Flood", 3, 6 20 50 10
  check "Check Box", 5, 55 137 50 10
  check "Whois Çekme Bilgileri ( @Whois )", 6, 6 38 118 10
  check "Whois Çekeni Kanala Çekmek (Adminler İçin)", 7, 6 47 118 10
  edit "#Sohbet", 8, 71 56 50 10
  button "KAYDET !", 9, 2 75 132 22
  link "Ayaz", 10, 104 99 33 8
}
on *:dialog:whois:*:*: {
  if ($devent == edit) && ($did == 8) { .set %knl $did(8) }
  if ($devent == sclick) {
    if ($did == 3) {
      if (%whoisflood)  { unset %whoisflood } else { set %whoisflood 1 }
    }
    if ($did == 2) {
      if (%whoissayac)  { unset %whoissayac } | else { set %whoissayac 1 }
    }
    if ($did == 6) {
      if (%pencere)  { unset %pencere } | else { set %pencere 1 }
    }
    if ($did == 7) {
      if (%wcek)  { unset %wcek } | else { set %wcek 1 }
    }
    if ($did == 9) { dialog -x whois whois }
  }
  if ($devent == init) {
    if (%whoisflood) did -c whois 3
    if (%whoissayac) did -c whois 2
    if (%pencere) did -c whois 6
    if (%wcek) did -c whois 7
  }
}

menu status,menubar,channel  {
  Whois:dialog -m whois whois 
}