[immortaL]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

on *:start:if $isfile(takip.the) { hmake takip | hload takip takip.the }alias nickekle {
  if $hget(takip,$1) { echo -ea $1 zaten takip listesinde. | return }
  echo -ea $1 takip listesine eklendi.
  hadd -m takip $1 $date - $time
  hsave takip takip.the
}
alias nicksil {
  if !$hget(takip,$1) { echo -ea $1 zaten takip listesinde yok | return }
  echo -ea $1 takip listesinden silindi.
  $iif($isfile($+($1,.the)),remove $+($1,.the))
  hdel -m takip $1
  hsave takip takip.the
}
alias nicklist {
  if !$hget(takip,1).item { echo -ea Takip listesi bos. | return }
  echo -a Takip listesi.
  var %x 1
  while $hget(takip,%x).item {
    echo -a %x - $v1 (Eklendigi tarih -> $hget(takip,$v1)
    inc %x
  }
  echo -a Takip listesi sonu.
}
alias takipbul {
  if !$hget(takip,$1) { echo -ea $1 Takip listesinde bulunmuyor. | return } 
  if !$isfile($+($1,.the)) { echo -ea $1 Herhangi bir kaydı suan bulunmuyor. | return } 
  var %x 1
  while $read($+($1,.the),%x) {
    echo -a $v1
    inc %x
  }
}
 
on *:rawmode:#: {
  if $hget(takip,$nick) { write $+($nick,.the) $+([,$date,-,$time,]) - Mode verdi. -> # <- verdigi mode $1- }
  if $hget(takip,$2) { write $+($2,.the) $+([,$date,-,$time,]) - Mode aldi. -> # <- $nick aldıgı mode $1- }
}
on *:nick: {
  if $hget(takip,$nick) { write $+($nick,.the) $+([,$date,-,$time,]) - Nick degisti. -> $nick <- aldigi nick -> $newnick <- }
  if $hget(takip,$newnick) { write $+($newnick,.the) $+([,$date,-,$time,]) - Nick degisti -> $newnick <- aldigi nick -> $nick <- }
} on *:text:*:#help:if $hget(takip,$nick) { write $+($nick,.the) $+([,$date,-,$time,]) Sohbet -> # <- $nick -> $1- }