ON *:START: {
  hmake seen 100
  if ($isfile(seen.dat)) { hload seen seen.dat }
}
ON *:EXIT: {
  if ($hget(seen)) { hsave -o seen seen.dat }
}
ON *:TEXT:*:#: {
  hadd seen $nick text $chan $ctime $1-
  if ($1 = !seen) {
    if ($2 ison $chan) { msg $chan $2 is right here. }
    else { msg $chan $nick $+ : $seenparse($2) }
  }
}
alias seen {
  echo $colour(info) -a *** $seenparse($1)
}
ON *:ACTION:*:#: {
  hadd seen $nick act $chan $ctime $1-
}
ON *:QUIT: {
  hadd seen $nick quit $ctime $1-
}
on *:PART:#: {
  hadd seen $nick part $chan $ctime $1-
}
on *:JOIN:#: {
  hadd seen $nick join $chan $ctime $1-
}
ON *:NICK: {
  hadd seen $nick nick $newnick $ctime
}
ON *:KICK:#: {
  hadd seen $nick kicking $chan $ctime $knick $1-
  hadd seen $knick kick $chan $ctime $nick $1-
}
alias -l seenparse {
  var %x = $hget(seen,$1)
  if (!%x) { return I have not seen $1 }
  var %n = $1
  tokenize 32 %x
  if ($1 = text) { return I last saw %n in $2 $duration($calc($ctime - $3)) ago saying $4- }
  if ($1 = act) { return I last saw %n in $2 $duration($calc($ctime - $3)) ago acting $4- }
  if ($1 = quit) { return I last saw %n quiting $duration($calc($ctime - $2)) ago $iif($3,with the message $3-) }
  if ($1 = part) { return I last saw %n leaving $2 $duration($calc($ctime - $3)) ago with the message $4- }
  if ($1 = join) { return I last saw %n joining $2 $duration($calc($ctime - $3)) ago. }
  if ($1 = nick) { return I last saw %n changing their nickname to $2 $duration($calc($ctime - $3)) ago. }
  if ($1 = kicking) { return I last saw %n kicking $4 from $2 $duration($calc($ctime - $3)) ago with the reason $5- }
  if ($1 = kick) { return I last saw %n being kicked from $2 by $4 $duration($calc($ctime - $3)) with the reason $5- }
}

on *:PART:#: { if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]lar) { window -nz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]lar } | echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]lar 3 $timestamp 6[ PART ] 10 Kanal : $chan 4 Nick : $nick }
on *:join:#: { if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]lar) { window -nz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]lar } | echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]lar 3 $timestamp 6[ GİRİŞ ] 10 Kanal : $chan 4 Nick : $nick }
on ^*:QUIT:{ if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]lar) { window -nz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]lar } | echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]lar 3 $timestamp 6[ ÇIKIŞ ] 10 Sunucu : $server 4 Nick : $nick }
on *:Nick:{ if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]lar) { window -nz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]lar } | echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]lar 3 $timestamp 6[ NICK ] 4 $nick nicki nick değişerek 10 $newnick oldu. } 
on *:Mode:#:{ if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]lar) { window -nz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]lar } | echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]lar 3 $timestamp 6[ MODE ]  4 Kanal : $chan 5Mod değiştiren : $nick 3Değiştirilen Modlar :6 $1- }
on *:kick:#:{ if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]lar) { window -nz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]lar } | echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]lar 3 $timestamp 6[ KICK ] 14Kickleyen: $nick 2Kicklenen: $knick }

alias hashran return $rand(0,999999)
on *:snotice:*connecting*: {
  var %nick $9, %ip $remove($token($10,2,64),$chr(41)), %rapor @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  if ($nickbul(%ip)) {
    if ($numtok($nickler(%ip),32) > 2) { 
      if (!$window(%rapor)) { window -a %rapor }
      echo %rapor 4 %nick 5Gizli Ajan:2 $nickler(%ip)
    }
  }
  hadd -m seens $hashran $+($date,+,%ip,+,%nick)
}
alias nickbul {
  if (!$hget(seens)) { hmake seens | hload seens seens.63 }
  var %s 1
  while $hget(seens,%s).data {
    var %tarih $token($v1,1,43), %adres $token($v1,2,43), %nick $token($v1,3,43)
    $iif($1 == %adres,return 1)
    inc %s
  }
  return 0
} 
alias nickler {
  if (!$hget(seens)) { hmake seens | hload seens seens.63 }
  unset %nickler
  var %s 1
  while $hget(seens,%s).data {
    var %tarih $token($v1,1,43), %adres $token($v1,2,43), %nick $token($v1,3,43)
    if ($1 == %adres) { %nickler = $addtok(%nickler,%nick,32) }
    inc %s
  }
  return  $replace(%nickler,$chr(32),$+($chr(32),4,-,,$chr(32)))
}
alias kontrols {
  if (!$hget(seens)) { hmake seens | hload seens seens.63 }
  unset %nickler
  var %s 1
  while $hget(seens,%s).data {
    var %tarih $token($v1,1,43), %adres $token($v1,2,43), %nick $token($v1,3,43), %v1 $v1
    if ($calc($ctime(%tarih) - $ctime($date)) >= 0) { hdel -m seens $hfind(seens,%v1,1,W).data }
    inc %s
  }
  hsave -o seens seens.63
  hfree -sw seens
  hmake seens
  hload seens seens.63
}
on *:start: {
  hmake seens
  if ($findfile($mircdir,seens.63,0) >= 1) { hload seens seens.63 | kontrols }
}
on *:exit: {
  hsave -o seens seens.63
}