IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - " Kanala girişte, Karşılama Kodu (Advanced / Gelişmiş) "

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - " Kanala girişte, Karşılama Kodu (Advanced / Gelişmiş) " (https://www.ircforumlari.net/mirc-scripting-sorunlari/404467-quot-kanala-giriste-karsilama-kodu-advanced-gelismis-quot.html)

Cevap: Operator Girişi Kod iSteği

Alıntı:

WingmaN Nickli Üyeden Alıntı (Mesaj 1040787386)

Kod:

on *:join:#:{

   if ($regex(#,/(Help|operhelp)/i) || $regex($nick,/(muaf1|muaf2)/i)) { return }

    set -eu5 %_wn $nick | set -eu5 %_wc #

    if $regex($address($nick,2),/(com)/i) {

      whois %_wn

    }

  }

raw 313:*:{

  if (%_wn == $2) {

    if $regex($5-,/(Server|Services|IRC)/i) {

      var %_add = $regml(1)

      if (%_add == IRC) { msg %_wc Sunucu %_add Operatörü (>> %_wn <<) , %_wc kanalına giriş yaptı. | return }

      msg %_wc Sunucu %_add Admin 'i (>> %_wn <<) , %_wc kanalına giriş yaptı.

    }

  }

}

Muaf kanallar ve muaf nick'leri ayırdım, kafana göre düzenlersin, iyi if'ler.

Not: Bu kod, CR (Conferance Room) sunucu detaylarına göre ayarlanmıştır.

Merhaba WingmaN Kod da Ufak Bir Sorun Var Halledebilirmisiniz Acaba

Sorun:

Bir Yönetici Toplu Şekilde Kanallara Giriyor Yani
/join #a1,#a2,#a3,#a4
gibi girince en son girilen kanal olan #a4 kanalına toplu şekilde msj atıyor

örnek:

[20:55] <Guard> Services Admini sa #a4 Kanalına Giriş Yaptı.
[20:55] <Guard> Services Admini sa #a4 Kanalına Giriş Yaptı.
[20:55] <Guard> Services Admini sa #a4 Kanalına Giriş Yaptı.
[20:55] <Guard> Services Admini sa #a4 Kanalına Giriş Yaptı.

Buna bir çözüm bulabilirseniz çok sevinirim iyi IF'ler.

Cevap: " Kanala girişte, Karşılama Kodu (Advanced / Gelişmiş) "

WingmaN ustekı sorun devam edıyor :)

Cevap: " Kanala girişte, Karşılama Kodu (Advanced / Gelişmiş) "

Kod:

on *:join:#:{

  if ($regex(#,/(Help|operhelp)/i) || $regex($nick,/(muaf1|muaf2)/i)) { return }

  set -eu5 %_wn $nick

  if $regex($address($nick,2),/(com)/i) {

    if (!$hget(%_wn)) { hmake %_wn 100 }

    hadd -m %_wn # %_wn

    whois %_wn

  }

}

alias _wmx { var %1 = 1 | while ($hget($1,%1).item) { msg $v1 $2- | inc %1 } }

raw 313:*:{

  if (%_wn == $2) {

    if $regex($5-,/(Server|Services|IRC)/i) {

      var %_add = $regml(1)

      if (%_add == IRC) { _wmx %_wn Sunucu %_add Operatörü (>> %_wn <<) ,kanala giriş yaptı. | hfree %_wn | return }

      _wmx %_wn Sunucu %_add Admin 'i (>> %_wn <<) ,kanala giriş yaptı. | hfree %_wn

    }

  }

}

Buyrun bakalım.

Cevap: " Kanala girişte, Karşılama Kodu (Advanced / Gelişmiş) "

Cok Oldu ama;
Sunucu Server Admin 'i DaDaS Kanala Giriş Yaptı.

Kanalıda Eklesek Guzel Olurdu.

Cevap: " Kanala girişte, Karşılama Kodu (Advanced / Gelişmiş) "

zaten o kanaldasın, kanalı da yazmak ne alaka?

Cevap: " Kanala girişte, Karşılama Kodu (Advanced / Gelişmiş) "

WingmaN hocam coklu kanala qirince fazlasıyla msj atıyor arkadasların dediği gibi

Kod dakı Son düzenlemeniz UnreaL için deil sanırım birde unreaL için düzenleseniz hocam size zahmet :)) herşeyi hazır istiyoruz ama öğrenmeye meyilliyiz :)

Cevap: " Kanala girişte, Karşılama Kodu (Advanced / Gelişmiş) "

angry1 , post'umu düzenledim ilk verdiğim kodun ordaki, alabilirsin.

Cevap: " Kanala girişte, Karşılama Kodu (Advanced / Gelişmiş) "

WingmaN Hocam Buna Birde Kanal Eklerseniz Çok Sevinirim

Örnek : Sunucu ROOT Admini GeceAktif Şuan #X Kanalına Giriş Yaptı.

Birde Karşılamaları Ayrı Ayrı Yapsın İstiyorum.
if (%_add == IRC) { _wmx %_wc Sunucu IRC Operatörü GeceAktif Şuan #X kanalına giriş yaptı. | return }
if (%_add == Services) { _wmx %_wc Sunucu Services Admini GeceAktif Şuan #X kanalına giriş yaptı. | return }
if (%_add == Server) { _wmx %_wc Sunucu ROOT Admini GeceAktif Şuan #X kanalına giriş yaptı. | return }

Gibi Yaparsanız Çok Sevinirim

Ben Yapmaya Çalıştım Fakat Olmadı..

Cevap: Operator Girişi Kod iSteği

Alıntı:

WingmaN Nickli Üyeden Alıntı (Mesaj 1040787771)

Selam angry1, isteğin üzerine kodu biraz daha geliştirip, istediğin hale getirdim.

/* Kullanımı */

Bot, mantığında çalışmaktadır. Yani kendi mIRC'ine eklersen eklediğin mirc üzerinden kendin komut giremezsin. Bot olarak hitab ettiğin bot mIRC'inin içerisine ekleyeceksin ve kullanacaksın.

Bot, Unreal IRCd sistemlerine göre eklenmiştir.

/* Komutlar */
Komutlar , #kontrol kanalında çalışmaktadır, komut listesi aşağıdaki gibidir.

!ekle nick mesaj : Eklenen nick'e karşılama mesajı ekler.
!sil nick : Ekli olan, kayıtlı nick'i silecektir.
!liste / !listele : Ekli olan kayıtlı nick'leri gösterir.

Not: Ekleme yaparken, mesaj kısmını " Sunucu ROOT adminlerinden osman kanala girdi. " şeklinde eklemelisin, veya kafana göre istediğin mesajı yazabilirsin, bot sadece mesajı okuyacak.

/* Muaf Bilgisi */

Kod:

if ($regex(#,/(Help|operhelp)/i) || $regex($nick,/(muaf1|muaf2)/i)) { return }

Kod satırında bulunan yerler, muaf nick ve kanalları işaretler, " Help|operhelp " muaf kanallardır, " muaf1|muaf2 " muaf nick'lerdir.

Ekleme yapmak istiyorsan , aynen devamına ekleyebilirsin. Kanal eklerken, # koymamalısın.

örnek muafnick (ahmet|mehmet|cansu)
örnek kanal (operhelp|help|yardim|chat)

/* Belirtilen Ana-Kod */

Kod:

on *:start:{ if (!$hget(greet)) { hmake greet 100 | hload -s greet greet.hash } }
 

on *:text:*:#:{

  var %_xs = hsave -s greet greet.hash

  if ($chan == #kontrol) {

    if $regex($1,/^!(ekle|sil|liste)/i) { var %_x = $regml(1)

      if (%_x == ekle) {

        if (!$2 || !$3-) { msg # $nick Eksik bir komut girdiniz, doğru kullanım; !ekle nick mesaj , şeklinde olmalıdır. | return }

        if (!$hget(greet)) { hmake greet 100 | hload -is greet greet.hash }

        hadd -m greet $2 $3-

        msg # Kayıtlarımıza, $2 nick'i başarıyla eklendi.

        msg # Karşılama Mesajı: $3-

        %_xs

      }

      if (%_x == sil) {

        if (!$2) { msg # $nick Eksik bir komut girdiniz, doğru kullanım; !sil nick , şeklinde olmalıdır. | return }

        if (!$hget(greet,$2)) { msg # Böyle bir kullanıcı zaten, bulunmamaktadır. | return }

        msg # Kayıtlarımızdan $2 , başarıyla silindi.

        hdel greet $2

        %_xs

      }

      if (liste isin %_x) {

        _wlist #

      }

    }

  }

}

alias _wlist {

  var %_wl = 1 | while %_wl <= $hget(greet,0).data { var %_w1 = $hget(greet,%_wl).item, %_w2 = $hget(greet,%_wl).data

    msg $1 Nick: %_w1 , Mesaj: %_w2

    inc %_wl

  }

  if (!$hget(greet,%_w1)) { msg $1 hiç bir kayıt bulunmamaktadır. | halt }

}
 

on *:join:#:{

  if ($regex(#,/(Help|operhelp)/i) || $regex($nick,/(muaf1|muaf2)/i)) { return }

  set -eu5 %_wn $nick | set -eu5 %_wc #

  if ($hget(greet,$nick)) { var %_w2 = $hget(greet,$nick)  |  msg %_wc %_w2   | return }

  if $regex($address($nick,2),/(admin|ircop|oper)/i) {

    hadd -m %_wn # %_wn

    whois %_wn

  }

}

alias _wmx { var %1 = 1 | while ($hget($1,%1).item) { msg $v1 $2- | inc %1 } }

raw 313:*:{

  if (%_wn == $2) {

    if (!$6-) {

      if (!$hget(greet,$2)) { _wmx %_wn Sunucu IRC Operatörü (>> %_wn <<) , %_wc kanalına giriş yaptı. | return }

      else {

        var %_w1 = $2, %_w2 = $hget(greet,$2)

        _wmx %_wn %_w2

      }

    }

    if $regex($7-,/(Server|Services|Network|Co|Tech)/i) {

      var %_add = $regml(1)

      if (!$hget(greet,$2)) { _wmx %_wn Sunucu %_add Admin 'i (>> %_wn <<) , %_wc kanalına giriş yaptı. | return }

      else {

        var %_w1 = $2, %_w2 = $hget(greet,$2)

        _wmx %_wn %_w2

      }

    }

  }

}

Not: Kodu denemedim, ama %99 hatasız çalışacaktır. Ufak düzenleme de geçtim, düzenlemeden evvel aldıysan tekrar al.

Renkler neden çıkmıyor peki

Cevap: " Kanala girişte, Karşılama Kodu (Advanced / Gelişmiş) "

Çalışır, o sorun düzeltildi.