Çözüldü Seslenen kişiye notice atma - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Slalayl0m · 14 Mart 2015, 02:59

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.

Feragat · 14 Mart 2015, 03:41

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.

Slalayl0m · 14 Mart 2015, 04:29

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

Feragat · 14 Mart 2015, 16:19

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)

Slalayl0m · 14 Mart 2015, 16:43

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.

MesqeN · 14 Mart 2015, 23:33

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

Feragat · 14 Mart 2015, 23:48

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

Slalayl0m · 15 Mart 2015, 22:11

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.

MesqeN · 17 Mart 2015, 20:22

//run $mircdir

kelime.txt oluştur..

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

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

Slalayl0m · 17 Mart 2015, 20:37

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.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Away iseniz.Size Seslenen kişilerin özeline mesaj bırakma remotesi	EmekTar	mIRC Parça Kodlar	1	29 Temmuz 2022 16:02
İnternetten Konuştuğunuz Kişiye 'Koku Atma' Dönemi Başlıyor	BLueMooN	Teknoloji Dünyasından Son Haberler	0	24 Ekim 2018 15:01
Çözüldü Kelime Tamamlama ve Rumuz Anılınca Notice Atma Addonu	Caitlyn	mIRC Scripting Sorunları	4	01 Mart 2018 16:27
Güncel seslenen kişilerin mesajlarını bir pencerede toplamak?	Skyder	mIRC Scripting Sorunları	8	11 Haziran 2017 17:07
Kanallara sırasıyla 15 sn de bir notice atma [Onemli Bir Olay.]	alfa	mIRC Scripting Sorunları	3	06 Şubat 2005 16:53

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.