on $*:text:/^!whois\s(.*)/iS:#:{  if ($2) {
    set %WhoisResult $chan
    whois $2 
  }
  else { msg $chan Syntax is !whois <nick to whois>. } 
}
raw 401:*:{ msg %WhoisResult No such nick/channel: $2 | halt }
raw 311:*:{
  msg %WhoisResult İsim: $2
  msg %WhoisResult FuLLName: $mid($gettok($2-,2,42),2,99) 
  msg %WhoisResult ident-host $mid($address($2,1),4,99)
  halt
}
raw 379:*:{ msg %WhoisResult Mod: $6- | halt }
raw 378:*:{ msg %WhoisResult ID-İp: $6 IP: $7 | halt }
raw 312:*:{ msg %WhoisResult Bağlı (Ağ): $3 - $remove($4-,$chr(58)) | halt }
raw 319:*:{ msg %WhoisResult Kanallar: $3- | halt }
raw 317:*:{
  msg %WhoisResult Bağlı Olduğu Süre: $replace($duration($calc($ctime - $4)),wk, Week,min, Minute,sec, Second,day, Day,hr, Hour)
  msg %WhoisResult boş Oldugu Süre: $replace($duration($3),wk, Week,min, Minute,sec, Second,day, Day,hr, Hour)
  halt
  }