Çevrimdışı

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.

 

Çevrimdışı

Sanırım kimse cevap vermeyecek
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

Bu kodların hepsi lag (gecikmeye) takılıyo süreli olarak gönderilebilecek kod olsa sanırım daha hoş olur.

 

Çevrimdışı

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] çok saol dostum birde mesajıın gitmesini istemediğim nicklerede muaf eklermisin sana zahmet
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

 

Çevrimdışı

Bot üzerinden yaptırmak istiyorsanız botu neden kasıyorsunuz allsend.c modülü ile bunu yine bot üzerinden yaptırmak daha mantıklı bence

 

Çevrimdışı

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] saol dostum eline sağlık.

 

Çevrimdışı

5 saniye de bir mesaj atıcaktır.
kullanım;
/mesajj Göndermek istediğiniz mesajınız.

__________________

 

Çevrimdışı

alias mesaj {
var %i 1
while %i <= $nick(#,0) {
if ($me == $nick(#,%i)) { inc %i }
inc -u5 %s 8 | .timer 1 %s msg $nick(#,%i) $1-
inc %i
}
}