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

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

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.