| immortaL | 10 Haziran 2016 19:38 |
Ip'den giren nickleri siralama
Kod:
on *:snotice:*client connect*: {
if $remove($8,:) = 6667 {
if $hfind( $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41),*,0,w) > 0 {
hadd -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $9 IRC
hsave -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h
}
else {
hmake -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41)
hadd -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $9 IRC
hsave -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h
write yuklenecek.txt takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h
}
}
elseif $remove($8,:) = 7098 {
if $hfind( $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41),*,0,w) > 0 {
hadd -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $9 WEB
hsave -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h
}
else {
hmake -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41)
hadd -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $9 WEB
hsave -s $token($token( $+ $10 $+ ,2,$asc(@)),1,41) takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h
write yuklenecek.txt takipler/ $+ $token($token( $+ $10 $+ ,2,$asc(@)),1,41) $+ .h
}
}
}
on $*:text:/^[!.&-]tak[iIİ]p/Si:#nes: {
if !$2 { msg $chan Lutfen bir ip giriniz. | return }
if !$regex($2,/^[0-9]/) { msg $chan Lutfen ip giriniz, nick degil. | return }
if $hfind( $+ $2 $+ ,*,0,w) = 0 { msg $chan Bu ip hakkinda herhangi bir bilgi yok.. | return }
else {
msg $chan ------ 4 $2 ipsinden giris yapan nickler -----
var %i 1
while (%i <= $hfind( $+ $2 $+ ,*,0,w)) {
msg $chan 2Nick: 1,8 $hfind( $+ $2 $+ ,*,%i,w) 2Giris tipi: 1,8 $hget( $+ $2 $+ ,$hfind( $+ $2 $+ ,*,%i,w))
msg $chan ---------------------------------------------------------
inc %i
}
}
}
on *:start: {
var %i 1
while (%i <= $lines(yuklenecek.txt)) {
hmake $remove($gettok($read(yuklenecek.txt,%i),2,$asc(/)),.h)
hload -s $remove($gettok($read(yuklenecek.txt,%i),2,$asc(/)),.h) $read(yuklenecek.txt,%i)
inc %i
}
}
!takip ip ile çalışır.
Kod Sahibi: SuLh |
