Lamer IP Takip Etme

Aytac

nicktag
Yönetici
Developer
Katılım
4 Şub 2020
Mesajlar
379
Tepkime puanı
50
Puanları
28
Konum
ircland
Web sitesi
www.ircalem.net
Kod:
#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(@LamerS),window -enz @LamerS)
aline -hp @LamerS 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 @LamerS -
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:*.*:@LamerS:return
on *:hotlink:*:@LamerS: {
gline $gettok($hotline,21,32) 1d The drone/spam bot blocked. Spam/advertising blocked. ßy $me )
}
#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ı
}


;Kullanacağınız komutlar.
; /ipekle ip Örnek : /ipekle 88.274.*
; /ipsil ip Örnek : /ipsil 88.274.*
; /iplist
;AÇIKLAMA :
; Arkadaşlar modem resetlendiğinde örnek ipimiz ; 85.108.5.177
; Ip adresimisimizin ilk 2 aralığı değişmez. Yani : 85.108. ( Bölgeye göre bu sabitlik değişebilir yani 5 resetten sonra ip adresi de değişebilir )
; Sizde bu şekilde gelen lameri /ipekle İP.No.* şeklinde ekleyerek takip edebilirsiniz.
 
Üst