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

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.

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


kodlarını gönderirsen renk konusunda yardımıcı olabilirim..

+ benim verdiğim ve bu addon işlevleri aynı

otis 18 Mayıs 2024 12:27
Cevap: Seslenen kişiye notice atma
 
on *:text:*nick*:#: {
notice $nick $read(soz.txt)
}


arkadaşlar bu kodu yapıyorum ama notice atmıyor biri bana yardımcı olabilirmi acilen

Forbidden 18 Mayıs 2024 16:37
Cevap: Seslenen kişiye notice atma
 
Alıntı:
otis Nickli Üyeden Alıntı (Mesaj 1042897123)
on *:text:*nick*:#: {
notice $nick $read(soz.txt)
}


arkadaşlar bu kodu yapıyorum ama notice atmıyor biri bana yardımcı olabilirmi acilen
Kod:
on ^*:text:$(* $+ $me $+ *):#:{
  .notice $nick $read(soz.txt)
}

otis 18 Mayıs 2024 17:58
Cevap: Seslenen kişiye notice atma
 
Alıntı:
Forbidden Nickli Üyeden Alıntı (Mesaj 1042897149)
Kod:
on ^*:text:$(* $+ $me $+ *):#:{
  .notice $nick $read(soz.txt)
}


yok bunuda yaptım olmuyor bi yerde yanlış yapıyorum galiba

Forbidden 18 Mayıs 2024 18:15
Cevap: Seslenen kişiye notice atma
 
Alıntı:
otis Nickli Üyeden Alıntı (Mesaj 1042897158)
yok bunuda yaptım olmuyor bi yerde yanlış yapıyorum galiba
Ben genelde kodları test ederek veriyorum olmama gibi bir şansı yok. Evet büyük ihtimal bir yerde yanlış yaptın. Mircini aç her hangi bir kanal veya özelde //run $mircdir yaz daha sonra mircinin ana dizini açıldıkdan sonra soz.txt dosyası aç içine yazılacak güzel sözleri ekle daha sonra baska bir nick ile seslenerek test edersin.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

otis 20 Mayıs 2024 11:51
Cevap: Seslenen kişiye notice atma
 
Alıntı:
Forbidden Nickli Üyeden Alıntı (Mesaj 1042897160)
Ben genelde kodları test ederek veriyorum olmama gibi bir şansı yok. Evet büyük ihtimal bir yerde yanlış yaptın. Mircini aç her hangi bir kanal veya özelde //run $mircdir yaz daha sonra mircinin ana dizini açıldıkdan sonra soz.txt dosyası aç içine yazılacak güzel sözleri ekle daha sonra baska bir nick ile seslenerek test edersin.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
yapıyorum aynı şekilde ama gerçekten olmuyor

Forbidden 20 Mayıs 2024 12:30
Cevap: Seslenen kişiye notice atma
 
Kod:
alias nickim return $+(*,$me,*)
on *:text:$($nickim):#: {
.notice $nick $read(soz.txt)
}

Toprak 20 Mayıs 2024 12:32
Cevap: Seslenen kişiye notice atma
 
Bunu dene;
Kod:
on *:text:*:*:if $regex($1-,/(^|\s) $+ $me $+ (\s|$)/Si) { notice $nick $read(soz.txt }

otis 20 Mayıs 2024 14:32
Cevap: Seslenen kişiye notice atma
 
Forbidden çok teşekkür ederim yardımların için senin gibi bilgili kişiler bize har zaman lazımlar çok teşekkür ederim ii dakikada çözdün sorunumu..


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 18:23.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk