Kod

alias _tekle {
  if ($1) {
    write takip_listesi.txt $1
    echo -a $1 takip listesine eklendi.
  } 
  else {
    echo -a Lütfen takip etmek istediğiniz nicki belirtin.
  }
}
alias _tsil {
  if (!$1) {
    echo -a Silmek istediğiniz kişiyi belirtin.
  }
  elseif ($read(takip_listesi.txt, w, $1)) {
    write -dl $+ $readn takip_listesi.txt
    echo -a $1 takip listesinden silindi.
  } 
  elseif (!$read(takip_listesi.txt, w, $1)) {
    echo -a $1 takip listesinde ekli değil.
  } 
}

on *:snotice:*: {
  if (!$window(@[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]
e)) window -en @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]
e
  if $regex($1-,/Client\sconnecting/iS) {
    var %;port $remove($7,:)
    var %;ip $gettok($gettok($9,2,64),1,41)
    var %file ip_log.txt
    var %;t $date $+ $time
    var %;n $8
    write %file %;t $+ : %;n $+ : %;ip
    echo -tm @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]
e 2 %;n  : 4 %;ip 5 %;port
    if ($read(takip_listesi.txt, w, %;n)) {
      echo -tm @[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]
e 4Takip listesinde yer alan 2 %;n 4 sunucuya giriş yaptı.
    }
  }
}

on ^*:hotlink:*:@[Üye Olmadan Linkleri Göremezsiniz. Lütfen Üye Olmak için TIKLAYIN...]
e: {
  if ($mouse.key & 1) {
    if ($regex($1, /^[^:]+$/)) { 
      var %:nick $gettok($1,1,58)
      if ($($+(%,clicked.,%:nick),2)) { 
        gzline %:nick : Hatalı ise bildirin. 
        unset $+(%,clicked.,%:nick) 
        echo -a GZLine komutu çalıştırıldı: %:nick
      }
      else { 
        set -u5 $+(%,clicked.,%:nick) 1 
        whois %:nick
        echo -a Whois komutu çalıştırıldı: %:nick
      }
    }
  }
}