#takiplamer on
on *:snotice:*client connecting*: {
var %ses = 1
while $read(iptakip.txt,%ses) {
if $v1 iswm $gettok($remove($10,$chr(41)),2,64) {
$iif(!$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -enz @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])
aline -hp @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] BANLA! : Nick : $9 Ident : $remove($gettok($10,1,64),$chr(40),$chr(41)) Port: $8 IP aralığı : $gettok($remove($10,$chr(41)),2,64) Ban için IP'e tıklayın | aline -hp @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] -
if $8 == 6668: { echo -a mIRC! : Nick : $9 Ident : $remove($gettok($10,1,64),$chr(40),$chr(41)) IP aralığı : $gettok($remove($10,$chr(41)),2,64) }
else { echo -a Web! : Nick : $9 Ident : $remove($gettok($10,1,64),$chr(40),$chr(41)) IP aralığı : $gettok($remove($10,$chr(41)),2,64) }
return
}
inc %ses
}
}
on ^*:hotlink:*.*:@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]:return
on *:hotlink:*:@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]: {
}
#takiplamer end
alias ipekle {
if !$read(iptakip.txt,w,$1) {
write iptakip.txt $1
echo -a $1 eklendi
}
else {
echo -a $1 $+($readn,.) satırında mevcut.
}
}
alias iplist {
var %lst = 1
while %lst <= $lines(iptakip.txt) {
/echo -a %lst $+(-,) $read(iptakip.txt,%lst)
inc %lst
}
}
alias ipsil {
if $read(iptakip.txt,w,$1) {
write $+(-dl,$readn) iptakip.txt
echo -a $1 Lamerin ipi silindi $me
}
else {
echo -a $1 Böyle bir ip yok $me kendindemisin ?
}
}
menu channel,menubar {
» Lamer Takip
.» Lamer Takip Aç:.enable #takiplamer | echo -a Lamer Takip Devrede
.-
.» Lamer Takip Kapat:.disable #takiplamer | echo -a Lamer Takip Kapalı
}