Kod

on $*:text:/[\.!]k[ii]ll\s/Si:?: {
  ;Event içinde regex kullanarak .kill koşulunu ekledik. Ancak bu şekilde tetiklenicek.
  if (!$2) {
    privmsg $nick Hatali kullanim lütfen .kill nick olarak deneyin.
  }
  ;Burada $2 yani 2. cümle koşulu ekledik eğer 2. cümle yoksa hata mesajı gönderecek.
  else {
    set -u30 %:a $nick
    set -u30 %:b $2
    .whois %:a
    .whois %:b    
  }
  ;Burada işimize yaracak variables oluşturduk.
}
raw 378:*: {
  ;Burası whois bilgilerinize denk gelen raw numeric değer.
  if (!$var(%:m,0) == 1) {
    ;1. belirlenen variables değerine herhangi bir atama yapılıp yapılmadığını kontrol ediyoruz.Atanmamışsa atama yapıyoruz.
    set -u30 %:m $7
  }
  elseif ($var(%:m,0) == 1) {
    ;1. belirlenen variables değerine herhangi bir atama varsa 2. belirlenen variablese ata diyoruz.
    set -u30 %:y $7
    $iif(%:m == %:y,.kill %:b reconnect,privmsg $chr(32) $+ %:a IP adresiniz uyuşmuyor. )
    ;Son olarak ip adreslerini karşılaştırma yapıyoruz. İp uyuşması var ise reconnect sebebi ile kill attırıyoruz.
  }
}