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

ByMavipikSeL · 19 Ağustos 2011, 20:55

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.

WingmaN · 19 Ağustos 2011, 23:04

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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.

angry1 · 20 Ağustos 2011, 13:54

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

ByMavipikSeL · 28 Ağustos 2011, 20:56

WingmaN Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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.

ASRINNet · 18 Kasım 2012, 12:30

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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ı.
    }
  }
}

ByMavipikSeL Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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.

Bu sorunu düzeltebileecek varmı bendede aynı hatayı veriyor

WingmaN · 20 Ağustos 2011, 15:25

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: Kodu kopyalamak için üzerine çift tıklayın!

 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: Kodu kopyalamak için üzerine çift tıklayın!

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.

angry1 · 20 Ağustos 2011, 15:32

[Ü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..

Dangerous123 · 22 Ağustos 2011, 13:00

WingmaN Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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: Kodu kopyalamak için üzerine çift tıklayın!

 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: Kodu kopyalamak için üzerine çift tıklayın!

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

Cpu · 05 Mart 2012, 11:56

WingmaN Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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: Kodu kopyalamak için üzerine çift tıklayın!

 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: Kodu kopyalamak için üzerine çift tıklayın!

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

WingmaN · 20 Ağustos 2011, 15:37

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.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Skandal savunma: "Göğüsleri gelişmiş mi ki istismar edilsin?"	Seth	Haber Arşivi	0	06 Mart 2016 14:35
"Kanala gireni kayıt etme"	TİGeR	mIRC Scripting Sorunları	0	23 Ağustos 2013 21:10
Kanala Giren Şifreli Nicklere "Hoşgeldiniz" Mesajı...	NeLix	mIRC Scripting Sorunları	11	09 Ağustos 2005 14:25

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

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

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.