Cevap: Kanaldaki Herkese Mesaj
Merhabalar başlığı açtım ama sanırım yayına girmedi. Bende de internetten bulup düzenlediğim bir kod var ama çalışırken aşagıdaki hataları alıyorum;
1 ) Kodu kanalda sağtık "Kapat" dediğim zaman kapanmıyor
2 ) Kod çalışırken sağtık Bağlantı Menüsü gibi diyaloglu pencereleri açamıyorum, sağtık komutlarını çalıştıramıyorum.. Kod aşağıdaki gibi;
alias pause {
var %wsh = $+(wsh,$ticks,$r(1111,9999)), %cmd
if ($1 == s) %cmd = ping.exe -n $int($calc($2 + 1)) 127.0.0.1
else %cmd = pathping.exe -n -w 1 -q 1 -h 1 -p $iif($2 > 40,$calc($2 - 40),$2) 127.0.0.1
.comopen %wsh wscript.shell
if ($comerr) %e unable to open Wscript.Shell
else .comclose %wsh $com(%wsh,run,1,bstr*,% $+ comspec% /c %cmd >nul,uint,0,bool,true)
}
alias ma-o {
set %sent 1
set %nicks 1
set %ntotal $nick(#,0)
set %x $$?"IRCop/Oplar haricindeki herkese göndermek istediğiniz mesajı yazın:"
set %a $$?"İlk toplu gönderim kişi sayısını girin [Örneğin; 5 yazarsanız ilk 5 kişiye belirli aralıklarla gönderir]"
set %b $$?"İlk toplu gönderimden sonraki gecikme süresini girin [Örneğin; 30000 yazarsanız ilk gönderinden sonra 30 sn bekler]"
set %c $$?"Mesajlar arasındaki gecikmeyi girin [Örneğin; 30000 yazarsanız 30 sn bir gönderir]"
echo -a $+($timestamp,$chr(32),$chr(2),Oplar hariç herkese mesaj gönderme açıldı.,$chr(2))
while ( %nicks <= %ntotal ) {
if ($nick(#,%nicks) == $me) { inc %nicks }
elseif ($nick(#,%nicks) isop #) { inc %nicks }
elseif ($nick(#,%nicks) ishop #) { inc %nicks }
elseif (%a // %sent) { pause ms %b | inc %sent }
else { pause ms %c | msg $nick(#,%nicks) %x | inc %sent | inc %nicks }
}
}
alias kapat2 {
unset %a , %b , %c , %x , %sent , %ntotal
echo -a $+($timestamp,$chr(32),$chr(2),Oplar hariç herkese mesaj gönderme kapatıldı.,$chr(2))
}
menu channel {
© Oplar Hariç
.Aç:/ma-o
.Kapat:/kapat2
}
Kodun amacı oplar hariç herkese kendimizce oluşturulan milisaniye ayarlı mesaj göndermek.
Yardımlarınızı bekliyorum, ilgilenen arkadaşlara şimdiden teşekkürler. |