on *:text:!ip *:?:{
  if !$2 { msg $nick IP adresini vermeden nasıl açmamı bekliyorsun? | halt }
  if $chr(42) isin $2 { msg $nick Lütfen tam IP adresini giriniz. | halt }
  if $numtok($2,46) != 4 { msg $nick IP adresi 4 bloktan oluşur. Lütfen doğru şekilde yazınız. Örnek: 81.212.99.90 | halt }
  if $_ipmi($2) != 1 { msg $nick Verdiğiniz IP adresi değil. Lütfen kontrol edilmesini istediğiniz IP adresini veriniz. | halt }
  else { set %kip. [ $+ [ $2 ] ] $nick | msg $nick Kontrol ediliyor, lütfen bekleyiniz... | .raw kline }
}
 
raw 223:*:{
  if ($2 === k) && (%kip. [ $+ [ $3 ] ] != $null) { .raw kline $+(-,$3) | msg %kip. [ $+ [ $3 ] ] Belirttiğiniz IP adresinin kline'ı açılmıştır. Keyifli sohbetler dileriz. | unset %kip. [ $+ [ $3 ] ] | halt }
  if ($2 === s) && (%kip. [ $+ [ $3 ] ] != $null) { .raw shun $+(-,$3) | msg %kip. [ $+ [ $3 ] ] Belirttiğiniz IP adresinin shun'u açılmıştır. Keyifli sohbetler dileriz. | unset %kip. [ $+ [ $3 ] ] | halt }
}
 
alias _ipmi { return $regex($1,/^(?:(?:25[0-5]|2[0-4]\d|1?\d?\d)\.){3}(?:25[0-5]|2[0-4]\d|1?\d?\d)(?::(?:6[0-5]{2}[0-3][0-5]|6[0-5]{2}[0-2]\d|6[0-5][0-4]\d\d|6[0-4]\d{3}|[1-5]?\d{2,4}|[1-9]))?$/) }