IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Çözüldü Seslenen kişiye notice atma (https://www.ircforumlari.net/mirc-scripting-sorunlari/688730-seslenen-kisiye-notice-atma.html)

Slalayl0m 14 Mart 2015 02:59
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:
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
Cevap: Seslenen kişiye notice atma
 
Alıntı:
Slalayl0m Nickli Üyeden Alıntı (Mesaj 1041632148)
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:
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:
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
Cevap: Seslenen kişiye notice atma
 
Alıntı:
Feragat Nickli Üyeden Alıntı (Mesaj 1041632151)
debug penceresi için oper komutunu manipule edebilirsin. ALT + D (Aliases) bölümüne eklenecek. Oper girdiğinde oto açılır.
Kod:
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:
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
Cevap: Seslenen kişiye notice atma
 
Alıntı:
Slalayl0m Nickli Üyeden Alıntı (Mesaj 1041632155)
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:
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:
//echo -a $replace(s.a naber efem, efem, Efendim?,s.a, seLamun aLeyküm)

Slalayl0m 14 Mart 2015 16:43
Cevap: Seslenen kişiye notice atma
 
Alıntı:
Feragat Nickli Üyeden Alıntı (Mesaj 1041632608)
Cümleyi ($1-), tek bir kelimeye (Örnek: efem) eşitlemek yerine $replace - $replacecs tanımlarını deneyebilirsin.

Örnek:
Kod:
//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
Cevap: Seslenen kişiye notice atma
 
Alıntı:
Slalayl0m Nickli Üyeden Alıntı (Mesaj 1041632155)
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:
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ı:
Slalayl0m Nickli Üyeden Alıntı (Mesaj 1041632617)
Ö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:
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
Cevap: Seslenen kişiye notice atma
 
Alıntı:
Slalayl0m Nickli Üyeden Alıntı (Mesaj 1041632617)
Ö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:
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
Cevap: Seslenen kişiye notice atma
 
Alıntı:
MesqeN Nickli Üyeden Alıntı (Mesaj 1041632794)
kullanışlı bir Add-on Mevcut scriptlerimizde yılardır kulanıyoruz


Tavsiye ederim..




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

Slalayl0m 17 Mart 2015 20:37
Cevap: Seslenen kişiye notice atma
 
Alıntı:
MesqeN Nickli Üyeden Alıntı (Mesaj 1041634794)
//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.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Bu işte istediğim addon.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 04:53.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net