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

12Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 14 Mart 2015, 02:59   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Seslenen kişiye notice atma




Arkadaşlar bu kodu arıyorum elimde bir kod var ama olmadı.
Daha ayrıntılı anlatmak gerekirse soz.txt script dosya paylaşımının içerisine attım oradan çekmesini istiyorum.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*nick*:#: { notice $nick $read(soz.txt) }


Ardından /debug -n @pencere komutunun operimi girdikten sonra otomatik açılmasını istiyorum.

Bilenler yardımcı olursa teşekkür ederim.

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Yazgulu Sohbet
Alt 14 Mart 2015, 03:41   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Seslenen kişiye notice atma




Slalayl0m Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Arkadaşlar bu kodu arıyorum elimde bir kod var ama olmadı.
Daha ayrıntılı anlatmak gerekirse soz.txt script dosya paylaşımının içerisine attım oradan çekmesini istiyorum.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*nick*:#: { notice $nick $read(soz.txt) }


Ardından /debug -n @pencere komutunun operimi girdikten sonra otomatik açılmasını istiyorum.

Bilenler yardımcı olursa teşekkür ederim.

debug penceresi için oper komutunu manipule edebilirsin. ALT + D (Aliases) bölümüne eklenecek. Oper girdiğinde oto açılır.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
oper debug -n @pencere | !oper $1-

Diğer notice kodunu üstte paylaşmışsın zaten.
$read(soz.txt) = mirc ana dizinindeki ($mircdir) soz.txt dosyasından rastgele satır okur.

__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 14 Mart 2015, 04:29   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Seslenen kişiye notice atma




Feragat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
debug penceresi için oper komutunu manipule edebilirsin. ALT + D (Aliases) bölümüne eklenecek. Oper girdiğinde oto açılır.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
oper debug -n @pencere | !oper $1-

Diğer notice kodunu üstte paylaşmışsın zaten.
$read(soz.txt) = mirc ana dizinindeki ($mircdir) soz.txt dosyasından rastgele satır okur.

Bir yerde yanlış yapıyormuşum teşekkürler, bir sorum daha olacaktı aşağıda ki kodu buldum kelimelerimi kısaltıyorum ama mesela sadece s.a yazınca uzatıyor s.a naber yazınca uzatmıyor niye acaba?

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on 1:INPUT:*: { if ($mid($1,1,1) == /) { goto doit } :doit if ($1- == efem) { say Efendim? | halt } if ($1- == h.g) { say Hoş Geldin | halt } if ($1- == h.b) { say Hoş Buldum | halt } if ($1- == Sa.) { say | halt } if ($1- == ::) { say :( | halt } if ($1- == :) { say :) | halt } if ($1- == :D) { say :D | halt } }


 
Alıntı ile Cevapla

Alt 14 Mart 2015, 16:19   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Seslenen kişiye notice atma




Slalayl0m Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Bir yerde yanlış yapıyormuşum teşekkürler, bir sorum daha olacaktı aşağıda ki kodu buldum kelimelerimi kısaltıyorum ama mesela sadece s.a yazınca uzatıyor s.a naber yazınca uzatmıyor niye acaba?

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on 1:INPUT:*: { if ($mid($1,1,1) == /) { goto doit } :doit if ($1- == efem) { say Efendim? | halt } if ($1- == h.g) { say Hoş Geldin | halt } if ($1- == h.b) { say Hoş Buldum | halt } if ($1- == Sa.) { say | halt } if ($1- == ::) { say :( | halt } if ($1- == :) { say :) | halt } if ($1- == :D) { say :D | halt } }


Cümleyi ($1-), tek bir kelimeye (Örnek: efem) eşitlemek yerine $replace - $replacecs tanımlarını deneyebilirsin.

Örnek:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
//echo -a $replace(s.a naber efem, efem, Efendim?,s.a, seLamun aLeyküm)


__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 14 Mart 2015, 16:43   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Seslenen kişiye notice atma




Feragat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Cümleyi ($1-), tek bir kelimeye (Örnek: efem) eşitlemek yerine $replace - $replacecs tanımlarını deneyebilirsin.

Örnek:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
//echo -a $replace(s.a naber efem, efem, Efendim?,s.a, seLamun aLeyküm)


Öncelikle teşekkürler @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] fakat kod bilgim fazla yok bunu o kodun neresine ekliyeceğim bilmiyorum.

 
Alıntı ile Cevapla

Alt 14 Mart 2015, 23:33   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Seslenen kişiye notice atma




Slalayl0m Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Bir yerde yanlış yapıyormuşum teşekkürler, bir sorum daha olacaktı aşağıda ki kodu buldum kelimelerimi kısaltıyorum ama mesela sadece s.a yazınca uzatıyor s.a naber yazınca uzatmıyor niye acaba?

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on 1:INPUT:*: { if ($mid($1,1,1) == /) { goto doit } :doit if ($1- == efem) { say Efendim? | halt } if ($1- == h.g) { say Hoş Geldin | halt } if ($1- == h.b) { say Hoş Buldum | halt } if ($1- == Sa.) { say | halt } if ($1- == ::) { say :( | halt } if ($1- == :) { say :) | halt } if ($1- == :D) { say :D | halt } }


Slalayl0m Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Öncelikle teşekkürler @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] fakat kod bilgim fazla yok bunu o kodun neresine ekliyeceğim bilmiyorum.



kullanışlı bir Add-on Mevcut scriptlerimizde yılardır kulanıyoruz


Tavsiye ederim..




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias kelime { if !$dialog(kelime) { .dialog -m kelime kelime } else { return } } dialog kelime { title KELEBEK Script kelime düzeltme size -1 -1 332 136 text "Yanlış Kelimeler:", 1, 12 8 92 13 list 2, 10 28 110 100, size list 3, 212 28 110 100, size text "Doğru Kelimeler:", 4, 214 8 104 13 button "&Ekle", 5, 128 28 75 22 button "&Sil", 6, 128 52 75 22 button "&Kapat", 7, 128 104 75 22, ok } on *:dialog:kelime:*:*:{ mdx SetDialog $dname style title tool sysmenu if $devent = init { var %! = 1 | while (%! <= $ini(kelime.ini,kelimeler,0)) { did -a kelime 2 $ini(kelime.ini,kelimeler,%!) | did -a kelime 3 $readini kelime.ini kelimeler $ini(kelime.ini,kelimeler,%!) | inc %! } } if $devent = sclick { if $did = 5 { .timer 1 0 kelime-add } | if $did = 6 && $did(kelime,2).sel { remini kelime.ini kelimeler $did(kelime,2,$did(kelime,2).sel).text | did -d kelime 2,3 $did(kelime,2).sel } | if $did = 2 { did -c kelime 3 $did(kelime,2).sel } | if $did = 3 { did -c kelime 2 $did(kelime,3).sel } } } on *:input:#:{ if (/* !iswm $1) && (%kelime == on) { say $spell($1-) | halt } } on *:input:?:{ if (/* !iswm $1) && (%kelime == on) { say $spell($1-) | halt } } alias kelime-add var %! = $$?="Düzeltilecek Kelimeyi Girin.:",%. = $$?="Doğru Kelimeyi Girin.:" | writeini kelime.ini kelimeler %! %. | did -a kelime 2 %! | did -a kelime 3 %. alias spell var %. = $1-,%! = 1,%²,%³ | while (%! <= $numtok(%.,32)) { %² = $readini kelime.ini kelimeler $gettok(%.,%!,32) | %³ = %³ $iif(%²,%²,$gettok(%.,%!,32)) | inc %! } | return %³ alias editklbk { if (%kelime == on) { if ($editbox($active) == slm) { editkelebek -a $spell(slm) } ;if ($editbox($active) == selam) { editkelebek -a seLam } if ($editbox($active) == nbr) { editkelebek -a Naber } } } alias editkelebek { $remove(eEdShowBlanx444dEdShowBlanx444iEdShowBlanx444tEdShowBlanx444bEdShowBlanx444oEdShowBlanx444x,EdShowBlanx444) $1- }


 
Alıntı ile Cevapla

Alt 14 Mart 2015, 23:48   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Seslenen kişiye notice atma




Slalayl0m Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Öncelikle teşekkürler @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] fakat kod bilgim fazla yok bunu o kodun neresine ekliyeceğim bilmiyorum.

Bu konuda, forum üzerinde pek çok add-on ve parça kod mevcut.
$replace tanımını alttaki şekilde kullanabilirsin.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:input:*:{ if $left($1-,1) != / { msg $active $replace($1-, efem, Efendim?, h.g, Hoş Geldin, h.b, Hoş Buldum, S.a, seLamun aLeyküm, ::, : $+ $chr(40) $+ , : $+ $chr(41), : $+ $chr(41) $+ , :D, :D) halt } }


__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 15 Mart 2015, 22:11   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Seslenen kişiye notice atma




MesqeN Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
kullanışlı bir Add-on Mevcut scriptlerimizde yılardır kulanıyoruz


Tavsiye ederim..




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
alias kelime { if !$dialog(kelime) { .dialog -m kelime kelime } else { return } } dialog kelime { title KELEBEK Script kelime düzeltme size -1 -1 332 136 text "Yanlış Kelimeler:", 1, 12 8 92 13 list 2, 10 28 110 100, size list 3, 212 28 110 100, size text "Doğru Kelimeler:", 4, 214 8 104 13 button "&Ekle", 5, 128 28 75 22 button "&Sil", 6, 128 52 75 22 button "&Kapat", 7, 128 104 75 22, ok } on *:dialog:kelime:*:*:{ mdx SetDialog $dname style title tool sysmenu if $devent = init { var %! = 1 | while (%! <= $ini(kelime.ini,kelimeler,0)) { did -a kelime 2 $ini(kelime.ini,kelimeler,%!) | did -a kelime 3 $readini kelime.ini kelimeler $ini(kelime.ini,kelimeler,%!) | inc %! } } if $devent = sclick { if $did = 5 { .timer 1 0 kelime-add } | if $did = 6 && $did(kelime,2).sel { remini kelime.ini kelimeler $did(kelime,2,$did(kelime,2).sel).text | did -d kelime 2,3 $did(kelime,2).sel } | if $did = 2 { did -c kelime 3 $did(kelime,2).sel } | if $did = 3 { did -c kelime 2 $did(kelime,3).sel } } } on *:input:#:{ if (/* !iswm $1) && (%kelime == on) { say $spell($1-) | halt } } on *:input:?:{ if (/* !iswm $1) && (%kelime == on) { say $spell($1-) | halt } } alias kelime-add var %! = $$?="Düzeltilecek Kelimeyi Girin.:",%. = $$?="Doğru Kelimeyi Girin.:" | writeini kelime.ini kelimeler %! %. | did -a kelime 2 %! | did -a kelime 3 %. alias spell var %. = $1-,%! = 1,%²,%³ | while (%! <= $numtok(%.,32)) { %² = $readini kelime.ini kelimeler $gettok(%.,%!,32) | %³ = %³ $iif(%²,%²,$gettok(%.,%!,32)) | inc %! } | return %³ alias editklbk { if (%kelime == on) { if ($editbox($active) == slm) { editkelebek -a $spell(slm) } ;if ($editbox($active) == selam) { editkelebek -a seLam } if ($editbox($active) == nbr) { editkelebek -a Naber } } } alias editkelebek { $remove(eEdShowBlanx444dEdShowBlanx444iEdShowBlanx444tEdShowBlanx444bEdShowBlanx444oEdShowBlanx444x,EdShowBlanx444) $1- }


kelimetamam.txt olarak kaydedip /load -rs kelimetamam.txt yapsam çalışır mı peki?
Tam bilgim yok.

 
Alıntı ile Cevapla

Alt 17 Mart 2015, 20:22   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Seslenen kişiye notice atma




//run $mircdir


kelime.txt oluştur..


/load -rs kelime.txt yaparsan çalışır..


/kelime Düzenlencek kelime karşısı. gibi eklersen çalışacak.

 
Alıntı ile Cevapla

Alt 17 Mart 2015, 20:37   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Seslenen kişiye notice atma




MesqeN Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
//run $mircdir


kelime.txt oluştur..


/load -rs kelime.txt yaparsan çalışır..


/kelime Düzenlencek kelime karşısı. gibi eklersen çalışacak.

Evet yaptım fakat renkli yapamıyorum.
Bugün araştırdım öyle Afran nickli arkadaş bir script yapmış onda kelime tamamla diye bir addon var onun gibi istiyorum fakat bulamadım.


Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Bu işte istediğim addon.

 
Alıntı ile Cevapla

Cevapla

Etiketler
atma, kişiye, notice, seslenen


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
Gülle Atma - Gülle Atma Hakkında Genel Bilgiler Liaaa Hobiler 0 29 Şubat 2012 14:49
!notice MT EkoL mIRC Scripting Sorunları 6 04 Ekim 2009 23:15
notice B_U_R_H_A_N mIRC Scripting Sorunları 1 25 Haziran 2009 04:45
Notice ofofyaRim mIRC Scripting Sorunları 8 02 Mayıs 2008 03:32
Kanallara sırasıyla 15 sn de bir notice atma [Onemli Bir Olay.] alfa mIRC Scripting Sorunları 3 06 Şubat 2005 16:53