Help Kanal Nick Takip/Log Sistemi
Kod:
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- }
Steve Adlı Arkadaşımızın İstegi Üzerine Yazılmıştır Kod Paylaşıma Açıktır.
Kod Sahibi: The |
