|
SakLiKeNT Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. |
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 <= % Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. {
if $read(bnword.txt,% Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 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 <= % Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. {
if $read(voice.txt,% Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. 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..
|
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: Kodu kopyalamak için üzerine çift tıklayın!
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: Kodu kopyalamak için üzerine çift tıklayın!
[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.