ConferenceRoom Motd Kodu

[Tutsaq]

selam arkadaşlar bu kodu burda paylaşmak istedim ConferenceRoom ilgilendirdiği için ; birden çok client klasörünüz (yaklaşık 20,30 klasör) var ve uzun bir motd hazırlamışsınız panele girip teker teker klasörlere pastelemekten sıkıldıysanız sizlere yazmış olduğumuz kodu paylaşmak istedim.

alias motdekle {
bread motd.txt 0 $file(motd.txt) &s
var %p = 1 , %client
while %p <= $lines(clients.txt) {
%client = $read(clients.txt,%p)
as client %client motd erase
var %i = 0 , %c = 1 , %t
while $bfind(&s,%i,$crlf).text {
%i = $ifmatch
bcopy &b 1 &s %c $calc(%i - %c )
%i = %i + 1
breplace &b 32 160
echo -s $iif($right($bvar(&b,1-).text,-1),$ifmatch,$chr(160))
as client %client motd append $iif($right($bvar(&b,1-).text,-1),$ifmatch,$chr(160))
bunset &b
%c = %i
}
inc %p
}
}

mirc klasörüne clients.txt açıp oraya client klasörlerini yazıyoruz
yine mirc klasörüne motd.txt açıp ona da motd ekliyoruz

/motdekle komutu kodu çalıştırıp motdu ekliyoruz. (kodu Remote kısmına ekliyoruz )

NOT ALİNTİDİR