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)

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

Merhabalar Ben Bir Kod İstiyorum Acaba Yapılması Mümkünmüdür İstediğim Kod

Misal Ben Bir Sunucuda IRC Operator Olarak Görev Alıyorum ve Sunucuya Girdiğimde Bot Bana Whois Çekip Whois'imde IRC Operator Yetkisini Görüp
Kanala Girdiğimde.
<Abot> IRC Operatörü ByMavipikSeL Şuanda #Sohbet Kanalına Giriş Yaptı

Bu Kod Aynı Şekilde
Services Admin
Server Admin

Şeklindeki Yetkililerede Aynısını Yapıcaktır. Şimdiden Teşekkür Eder Hayırlı IF'ler Dilerim.

Cevap: Operator Girişi Kod iSteği

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.

Cevap: Operator Girişi Kod iSteği

Wingman hoca bu kodu unreaL e göre ayarlayamazmıyız?
!ekle nick Mesajımız şeklınde nick eklesek
!sil nick şeklindede silsek .. elbette muaf kanal ve nıcklerde olcak.
Bir nevi Greet msg gibi.. Oper yetkısındekı bota eklıcem bunu
!ekle nick mesajımız Yani Opere ayrı Mesaj Network admin e ayrı msj eklemek için ?
tabıkı bunu whois le bulmayacak sadece nickden bulucak
örnek : !ekle ahmet global kanallardan sorumlu admin #kanal ına giriş yaptı seklınde eklediğimde kanala qirişinde bu mesajı atcak..
ilgi ve alakanız için şimdiden tesekkür ederimm...

Cevap: Operator Girişi Kod iSteği

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.

Cevap: Operator Girişi Kod iSteği

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hocam elinize emeğinize sağlık
cok tşk ederim..
istediğimden cok daha iyi olmuş bu.. Bu denli iLgi ve aLakanızdan dolayıda ayrıca Tşk ederim..

Cevap: Operator Girişi Kod iSteği

Rica ederim, eğer ki bir iş yapılıyorsa ve eğer ki o işi yapan da ben isem, kaliteli ve düzgün çalışıyor olmasına özen gösteririm, ilgi ve alaka konusuna gelince de, elbette ki yardım edeceğiz elimizden geldiğince.

Ben teşekkür ederim, kolay gelsin, iyi forumlar.

Not: Yazılan kod sadece , yetkililer için geçerliydi. Normal kullanıcılara açık olarakta aktif ettim.

Cevap: Operator Girişi Kod iSteği

Alıntı:

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

Kod:

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

Kod:

on *:text:*:#:{

  var %_xs = hsave -is 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 }

        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

  }

}
 

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

    whois %_wn

  }

}

raw 313:*:{

  if (%_wn == $2) {

    if (!$6-) {

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

      else {

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

        msg %_wc %_w2

      }

    }

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

      var %_add = $regml(1)

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

      else {

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

        msg %_wc %_w2

      }

    }

  }

}

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

hocam bu kod bı calısıo bı calısmıyor anlamadım neden
kısa ve öz olursa söyle bır ricam olcak sizden
!ekle ahmet XXX.Sunucu Kanallar sorumlusu $nick $chan kanalına girdi
!ekle mehmet XXX.Sunucu radyo sorumlusu $nick $chan kanalına girdi
!ekle hasan XXX.Sunucu yardım gerevlisi $nick $chan kanalına girdi
!sil ahmet
!liste
ben bu sekıllerde eklıcem elbette CTRL+K dan faydalanıp renklı eklıcem mesajları
bu konuda yardımcı olursanız sevinirim..
yukardakı kod dakı qibi admin services vs gibi eklentıye gerek yok hocam istedim sekıl budur TEKRAR tesekkurler..

Cevap: Operator Girişi Kod iSteği

[BOX="Test"][04:59] * Now talking in #kontrol (kanala girdim)

[04:59] <Wingy> !ekle Wingy Sunucu W-Bot sahibi kanala girdi. (kendimi ekledim)
[04:59] <Launcelot> Kayıtlarımıza, Wingy nick'i başarıyla eklendi.
[04:59] <Launcelot> Karşılama Mesajı: Sunucu W-Bot sahibi kanala girdi.

[05:00] * Attempting to rejoin channel #kontrol (kanaldan çıktım ve girdm )
[05:00] * Rejoined channel #kontrol (/hop)

[05:00] <Launcelot> Sunucu W-Bot sahibi kanala girdi.

[05:00] <Wingy> !liste
[05:00] <Launcelot> Nick: Wingy , Mesaj: Sunucu W-Bot sahibi kanala girdi.
[05:01] <Wingy> !sil wingy
[05:02] <Launcelot> kayıtlarımızdan, Wingy başarıyla silindi.[/BOX]

Kodların içerisinde, hiç bir problem bulunmamaktadır, ekleyen arkadaşlara daha dikkatli eklemesini tavsiye ederim. ;thumbsup

Cevap: Operator Girişi Kod iSteği

Alıntı:

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

hocam ilk basta bu sekılde calısıyor sorunsuz ekleme silme normal msj ıda yazıyor kanala..
fakat scripti kapatıp actıqımda gidiyor girişleri göstermiyor + listedeki eklı olanlara bakıyorum renklı msj eklemıstım renksiz olmus anlamadım nasıl bısı oldunu
yani ac kapa yaparsam scripti calısmıyor.. bı bakabılırsen cok memnun kalırım hocam.

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

Tamamdır, angry1 . Kodu tekrar yukardaki post'umdan alabilirsiniz.

update: Renklendirmeler ve mIRC kapanıp açılınca yüklenmeme sorunu giderildi.