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

LanetLy · 11 Mayıs 2014, 15:39

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..

AfraN · 11 Mayıs 2014, 17:24

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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.

Feragat · 11 Mayıs 2014, 22:51

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.

LanetLy · 22 Mayıs 2014, 00:05

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

ZenqerDenq · 27 Mayıs 2014, 18:41

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ş

Lociz · 27 Mayıs 2014, 19:31

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
#HELP voice	MerakLıuSer	mIRC Scripting Sorunları	1	19 Ekim 2010 23:51
cs voice	lordsulu	mIRC Scripting Sorunları	1	15 Şubat 2009 15:29
ßotuma !kill !voice #kanal vs. ekleme	NoRToN	Eggdrop, NeoStats, BNC	3	19 Ocak 2008 22:14
Voice	MoRtaL_	mIRC Scripting Sorunları	4	09 Ekim 2007 17:50
Voice .	Add-on	mIRC Scripting Sorunları	1	02 Ağustos 2006 18:00

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.