IRCForumu.NET - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum muhabbet


ircforumu reklam ircforumu reklamdamlasu bizimkiler sihirlisohbet sohbetelit


Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 23 Kasım 2016, 18:46   #1
Çevrimiçi
Gelme, burası çok derin.

immortaL - ait Kullanıcı Resmi (Avatar)
-ip nick daha önceki girişleri görme


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:snotice:*:{ if (*client*connect* iswm $1-) { var %difyip = $remove($token($10,2,64),$chr(41)), %difynick = $9, %difyident = $remove($token($10,1,64),$chr(40)) if $read(arsiv.txt,w,$+(*,%difyip,$chr(32),%difynick,$chr(32),*)) { write $+(-dl,$readn) arsiv.txt } write arsiv.txt %difyip %difynick 4Ident: $+ 2 %difyident 1Son Girişi: $+($time,-,$date) } elseif (*changed*his*her*nickname* iswm $1-) { var %difyzip = $remove($token($5,2,64),$chr(41)), %difynickz = $11, %difyidentz = $remove($token($5,1,64),$chr(40)) if $read(arsiv.txt,w,$+(*,%difyzip,$chr(32),%difynickz,$chr(32),*)) { write $+(-dl,$readn) arsiv.txt } write arsiv.txt %difyzip %difynickz 4Ident: $+ 2 %difyidentz 1Son Girişi: $+($time,-,$date) } } ;kod içerisindeki #KANAL kısmını kendinize göre değişebilirsiniz on *:text:*:#: { if $regex($1,/^([!/./-][Iıİi]p)$/i) { if $regex($2,/^\d+.\d+/) { if $read(arsiv.txt,r,/^\Q $+ $2 $+ \E\s/) { if !$2 { msg $chan Hatalı Kullanım 4-ip 78.98.162.78 1Şeklinde Yazın. 4 $+ $nick $+ 1, | return } msg $chan $2 arşivi listeleniyor filter -ffcg arsiv.txt depo.txt /^\Q $+ $2 $+ \E\s/ play $chan depo.txt 750 } else { msg $chan $2 arşivde bulunmuyor } } if $regex($2,/^[^\d]/) { if $read(arsiv.txt,r,/[^:]\s\Q $+ $2 $+ \E\s/i) { msg $chan $2 arşivi listeleniyor filter -ffcg arsiv.txt depo.txt /[^:]\s\Q $+ $2 $+ \E\s/i play $chan depo.txt 750 } else { msg $chan $2 arşivde bulunmuyor } } } }

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:snotice:*:{ if (*client*connect* iswm $1-) { var %difyip = $remove($token($10,2,64),$chr(41)), %difynick = $9, %difyident = $remove($token($10,1,64),$chr(40)) if $read(arsiv.txt,w,$+(*,%difyip,$chr(32),%difynick,$chr(32),*)) { write $+(-dl,$readn) arsiv.txt } write arsiv.txt %difyip %difynick 4Ident: $+ 2 %difyident 1Son Girişi: $+($time,-,$date) } elseif (*changed*his*her*nickname* iswm $1-) { var %difyzip = $remove($token($5,2,64),$chr(41)), %difynickz = $11, %difyidentz = $remove($token($5,1,64),$chr(40)) if $read(arsiv.txt,w,$+(*,%difyzip,$chr(32),%difynickz,$chr(32),*)) { write $+(-dl,$readn) arsiv.txt } write arsiv.txt %difyzip %difynickz 4Ident: $+ 2 %difyidentz 1Son Girişi: $+($time,-,$date) } } ;kod içerisindeki #KANAL kısmını kendinize göre değişebilirsiniz on *:text:*:#: { if $regex($1,/^([!/./-][Iıİi]p)$/i) { if $regex($2,/^\d+.\d+/) { if $read(arsiv.txt,r,/^\Q $+ $2 $+ \E\s/) { if !$2 { msg $chan Hatalı Kullanım 4-ip 78.98.162.78 1Şeklinde Yazın. 4 $+ $nick $+ 1, | return } msg $chan $2 arşivi listeleniyor filter -ffcg arsiv.txt depo.txt /^\Q $+ $2 $+ \E\s/ play $chan depo.txt 750 } else { msg $chan $2 arşivde bulunmuyor } } if $regex($2,/^[^\d]/) { if $read(arsiv.txt,r,/[^:]\s\Q $+ $2 $+ \E\s/i) { msg $chan $2 arşivi listeleniyor filter -ffcg arsiv.txt depo.txt /[^:]\s\Q $+ $2 $+ \E\s/i play $chan depo.txt 750 } else { msg $chan $2 arşivde bulunmuyor } } } }

  Alıntı ile Cevapla

IRCForumu.Net - Reklam Alanı

Cevapla

Etiketler
daha, girişleri, görme, nick, önceki
IRCForumu.Net - Sponsor Bağlantılar



Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık