Buda Socket İçin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


if $2 == NOTICE {
if *client connecting* iswm $strip($1-) {
var %difyip = $remove($token($13,2,64),$chr(41)), %difynick = $12, %difyident = $remove($token($13,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 14Ident: %difyident 02Son Girişi: $+($time,-,$date)
}
}
}



if $remove($4,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
== .arsiv {
if ($5 == $null) {
swbot PRIVMSG #Admin : Lütfen nick/ip Seklinde Belirdiiniz (ÖRN: .arsiv Lamer)
return
}
if $regex($5,/^[^\d]/) {
if $5 != Liste {
if $read(arsiv.txt,r,/[^:]\s\Q $+ $5 $+ \E\s/i) {
swbot privmsg #Admin : $5 arşivi listeleniyor
filter -ffcg arsiv.txt depo.txt /[^:]\s\Q $+ $5 $+ \E\s/i
swbot privmsg #Admin : $+ $read(depo.txt)
}
else { swbot privmsg #Admin $5 arşivde bulunmuyor }
}
}
if $regex($5,/^\d+.\d+/) {
if $5 != liste {
if $read(arsiv.txt,r,/^\Q $+ $5 $+ \E\s/) {
swbot privmsg #Admin : $5 arşivi listeleniyor
filter -ffcg arsiv.txt depo.txt /^\Q $+ $5 $+ \E\s/
swbot privmsg #Admin : $+ $read(depo.txt)
}
else { swbot privmsg #Admin : $5 arşivde bulunmuyor }
}
}
if $5 == liste {
if $lines(arsiv.txt) == 0 {
swbot privmsg #Admin : Arsiv listesi boş!
}
else {
swbot privmsg #Admin : Arsiv LİSTESİ
swbot privmsg #Admin : $str(-,20)
var %i 1
while %i <= $lines(arsiv.txt) {
dll WhileFix.dll WhileFix .
swbot privmsg #Admin : %i - $read(arsiv.txt,%i)
inc %i
}
}
}
}