IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Voice EkLeme (https://www.ircforumlari.net/mirc-scripting-sorunlari/585123-voice-ekleme.html)

S.a arkadasLar koLay geLsin. Bir kod istiyorum. BeLirLediğim nickLer kanaLa girdiğimde şahsım tarafından voice veriLmesini istiyorum. ELimde kanaLa giren seçtiğim birini otomatik atma kodu var ama aynısını voice icin ceviriyorum oLmuyor. Yardım ederseniz..
alias bnadd {
write bnword.txt $1
}
alias bndel {
write $+(-ds,$1) bnword.txt
}
on *:join:#: { if $me isreg # { return }
var %= $lines(bnword.txt)
while (0 <= %=) {
if $read(bnword.txt,%=) iswm $nick {
msg #kanal !g $nick 4
msg #kanal !k $nick 4
msg #kanal !kb $nick 4
}
dec %=
}
else {
var %! $lines(bnword.txt)
while (0 <= %!) {
if $read(bnword.txt,%!) iswm $nick {
msg #kanal !g $nick 4
msg #kanal !k $nick 4

}
dec %!
}
}
}
voice icin çevirdiğim kod ise bu.

alias vcadd {
write voice.txt $1
}
alias vcdel {
write $+(-ds,$1) voice.txt
}
on *:join:#: { if $me isreg # { return }
var %= $lines(voice.txt)
while (0 <= %=) {
if $read(voice.txt,%=) iswm $nick {
msg #kanal !voice $nick 4
}
dec %=
}
else {
var %! $lines(voice.txt)
while (0 <= %!) {
if $read(voice.txt,%!) iswm $nick {
msg #kanal !voice $nick 4

}
dec %!
}
}
}
Şimdiden teşekkürler..

Cevap: Voice EkLeme

Kod:

on *:join:#: { 

if $me isop # || $me ishelp # {

var %= $lines(voice.txt)

while (0 <= %=) { 

if $read(voice.txt,%=) iswm $nick {

mode # +v $nick | msg # $nick voice listemdesiniz.

} 

dec %= 

} 

}

}

bunu yeni bir remote açıp eklersen istediğin olacak iki join eventi aynı remote çalışmaz verdiğin şekilde.

Cevap: Voice EkLeme

Alıntı:

SakLiKeNT Nickli Üyeden Alıntı (Mesaj 1041429355)

Paylaştığın kodda, .txt dosyasında giren nicki ararken while dönüsüne gerek yok. Direk $read parametreleri ile de dosya içinde arama yaptırabilirsin.
İnceleyiniz: /help $read

Örnek:

Kod:

alias bnadd { write bnword.txt $1 }

alias bndel { write $+(-ds,$1) bnword.txt }
 

on *:join:#: { 

  if ($me !isreg #) && ($read(bnword.txt,w,$nick)) { msg # !g $nick 4 | msg # !k $nick 4 | msg # !kb $nick 4 }

  elseif ($read(voice.txt,w,$nick)) { msg # !voice $nick 4 }

  elseif ($me isreg #) && ($read(bnword.txt,w,$nick)) { msg # !g $nick 4 | msg # !k $nick 4 }

}
 

alias vcadd { write voice.txt $1 }

alias vcdel { write $+(-ds,$1) voice.txt }

Sonuç:

Kod:

[22:43] * Parts: osmancan (Sohbet@95.7.9.7C9106F9) (mircscripting.net)

[22:43] * Joins: osmancan (Sohbet@95.7.9.7C9106F9)

[22:43] <Feragat> !voice osmancan 

[22:44] * Parts: osmancan (Sohbet@95.7.9.7C9106F9) (mircscripting.net)

[22:44] * Joins: osmancan (Sohbet@95.7.9.7C9106F9)

[22:44] <Feragat> !voice osmancan 

[22:44] * osmancan is now known as selami

[22:44] * Parts: selami (Sohbet@95.7.9.7C9106F9) (mircscripting.net)

[22:44] * Joins: selami (Sohbet@95.7.9.7C9106F9)

[22:44] <Feragat> !g selami 

[22:44] <Feragat> !k selami 

[22:44] <Feragat> !kb selami 

[22:45] * Feragat sets mode: -qo Feragat Feragat

[22:45] * Parts: selami (Sohbet@95.7.9.7C9106F9) (mircscripting.net)

[22:45] * Joins: selami (Sohbet@95.7.9.7C9106F9)

[22:45] <Feragat> !g selami 

[22:45] <Feragat> !k selami

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ın dediği gibi aynı sayfada 2 join event'ı problem yaratacaktır. Senin paylaştığın kodun daha sade ve işlev yönünden aynı hali. İyi forumlar.

Cevap: Voice EkLeme

Verdiğiniz cvpLar için teşekkür ederim yaLnız işe yaramadı ya da ben yapamadım (:

Cevap: Voice EkLeme

bence olmama sebebi voice listesindekilerin kanala girmesinden değil senin kanala girdiğinde o kişileri bulup voice vermesini istiyorsun yani kanaldaki nick listesini önce tarayacak sonra liste ile uyuşturmaya calısacak sanırım böyle bişi istiyor arkadaş

Cevap: Voice EkLeme

Kod:

on me:*:join:#:$+(.timer,#) 1 1 lcztara #

alias lcztara if $me !isreg $1 { var %x 1 | while $nick($1,%x) { $iif($read(voice.txt,w,$nick($1,%x)),mode $1 +v $nick($1,%x)) | inc %x }

Eger ZenqerDenq arkadasimizin dedigi gibiyse boyle olur. Denemedim mobilden yazdim.