23 Kasım 2016, 18:46
|
#1 |
Çevrimiçi | -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 }
}
}
} |
| |
IRCForumu.Net - Reklam Alanı |
|