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

6Beğeni(ler)
  • 2 Post By AfraN
  • 3 Post By Feragat
  • 1 Post By Lociz

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 11 Mayıs 2014, 15:39   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Voice EkLeme




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

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 11 Mayıs 2014, 17:24   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Voice EkLeme




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.

 
Alıntı ile Cevapla

Alt 11 Mayıs 2014, 22:51   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Voice EkLeme




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.

__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 22 Mayıs 2014, 00:05   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Voice EkLeme




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

 
Alıntı ile Cevapla

Alt 27 Mayıs 2014, 18:41   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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ş

 
Alıntı ile Cevapla

Alt 27 Mayıs 2014, 19:31   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Voice EkLeme




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.

 
Alıntı ile Cevapla

Cevapla

Etiketler
ekleme, voice


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


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