on *:snotice:*connecting: {
  if (%takip) { who +I $9 }
}
raw 352:*: {
  takipkntrl $4
}
alias takipkntrl { 
  var %rand $rand(0,999999)
  sockopen $+(yerbul,%rand) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80  
  sockmark $+(yerbul,%rand) $1
}

on *:sockopen:yerbul*:{  
  sockwrite -n $sockname GET /ip-address-locator.php?lookup= $+ $sock($sockname).mark HTTP/1.1
  sockwrite -n $sockname host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf  
}

on *:sockread:yerbul*: {  
  var %yerbul
  sockread %yerbul
  if $regex(%yerbul,/IP.City\:/i) {
    var %sehir $token($token(%yerbul,3,62),1,60)
    if $hget(takip,%sehir) { echo -a IP: $sock($sockname).mark Yakalanan Sehir: %sehir | return }
  }
}

alias takipzaman { return $duration($calc($ctime - $1)) }
alias takipekle {
  if $hget(takip,$1) { echo -a Zaten $qt($1) listede bulunmaktadir. | return }
  hadd $iif($2,$+(-mu,$2),-m) takip $1 $ctime
  echo -ea - $qt($1) sehri takip listesine $iif($2,$qt($duration($v1)) zamanı ile) eklenmistir.
  if (!%takip) { echo -a Takip komutu zaten deaktif durumda oldugundan islem yapmayacaktir. | return }
}
alias takipsil {
  if !$hget(takip,$1) { echo -ae Zaten $qt($1) listede bulunmamaktadir. | return }
  echo -ea $qt($1) sehri takip listesinden $qt($takipzaman($hget(takip,$1))) zamandir ekli olup listeden silinmistir.
  hdel -m takip $1
} 
alias takip {
  if ($1 == on) {
    if (%takip) { echo -a Takip komutu zaten aktif. | return }
    set %takip on
  }
  if ($1 == off) {
    if (!%takip) { echo -a Takip komutu zaten deaktif. | return }
    unset %takip
  }
}