Güncel kontrol edip op ekletme hk. - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Toprak__ · 27 Ağustos 2015, 00:22

Bu da benden olsun baya detaylı oldu
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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 *:text:*:#:{
  if $regex($1,/[!.]opekle/Si) { 
    if !$regex($2,/^#.+/) { msg # Lütfen kanal belirtiniz. | return }
    if !$regex($3,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { msg # Lütfen nick belirtiniz. | return }
    if !$regex($4,\d) { msg # Lütfen Yetki seviyesini giriniz. | return }
    else { .enable #opekle | set %kanal # | cs access $2 add $3- }
  }
}
#opekle off
on *:notice:*:?:{
  if $regex($nick,/^ChanServ$/i) {
    if $regex($1-,/kanal[ıiİ]\skayitl[ıiİ]\sde[gğĞ][ıiİ]l/Si) { msg %kanal $1- | .disable #opekle | return }
    if $regex($1-,/erisim\slistesi.+kayitli.+nick/Si) { msg %kanal $1- | .disable #opekle }
    if $regex($1-,/Erisim\sseviyesi.+ve.+arasinda/Si) { msg %kanal $1- | .disable #opekle }
    if $regex($1-,/nick.+kanalindaki\serisim.+zaten/Si) { msg %kanal $1- | .disable #opekle }
    if $regex($1-,/nick.+kanalindaki\serisim\sseviyesi.+degisti/Si) { msg %kanal $1- | .disable #opekle }
    if $regex($1-,/nick.+kanalinin\serisim.+seviyeden.+eklendi/Si) { msg %kanal $1- | .disable #opekle }
  }
}
#opekle end

Regex · 27 Ağustos 2015, 02:04

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

Bu da benden olsun baya detaylı oldu
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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 *:text:*:#:{
  if $regex($1,/[!.]opekle/Si) { 
    if !$regex($2,/^#.+/) { msg # Lütfen kanal belirtiniz. | return }
    if !$regex($3,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i) { msg # Lütfen nick belirtiniz. | return }
    if !$regex($4,\d) { msg # Lütfen Yetki seviyesini giriniz. | return }
    else { .enable #opekle | set %kanal # | cs access $2 add $3- }
  }
}
#opekle off
on *:notice:*:?:{
  if $regex($nick,/^ChanServ$/i) {
    if $regex($1-,/kanal[ıiİ]\skayitl[ıiİ]\sde[gğĞ][ıiİ]l/Si) { msg %kanal $1- | .disable #opekle | return }
    if $regex($1-,/erisim\slistesi.+kayitli.+nick/Si) { msg %kanal $1- | .disable #opekle }
    if $regex($1-,/Erisim\sseviyesi.+ve.+arasinda/Si) { msg %kanal $1- | .disable #opekle }
    if $regex($1-,/nick.+kanalindaki\serisim.+zaten/Si) { msg %kanal $1- | .disable #opekle }
    if $regex($1-,/nick.+kanalindaki\serisim\sseviyesi.+degisti/Si) { msg %kanal $1- | .disable #opekle }
    if $regex($1-,/nick.+kanalinin\serisim.+seviyeden.+eklendi/Si) { msg %kanal $1- | .disable #opekle }
  }
}
#opekle end

Regular expression forever.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Ya da daha kısa ve yaratıcı olarak şöyle de olabilirdi:

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

on $*:text:/^(!opekle)/iS:#:{
  if (!$regex($2,/^#)) { msg # Lütfen kanal belirtiniz. | return }
  if (!$regex($3,/^([a-zA-ZĞğıİöÖüÜşŞçÇ_^\133\135}{][a-zA-ZĞğıİöÖüÜşŞçÇ0-9_|^}\{\133\135`-]{0,30})$/i)) { msg # Lütfen nick belirtiniz. | return }
  if (!$regex($4,\d)) { msg # Lütfen Yetki seviyesini giriniz. | return }
  else { .enable #opekle | set %kanal # | cs access $2 add $3- }
}
#opekle off
on *:notice:*:?:{
  if (!$regex($nick,/^ChanServ$/i)) return
  if ($regex($1-,/kanal[ıiİ]\skayitl[ıiİ]\sde[gğĞ][ıiİ]l/Si) || $regex($1-,/erisim\slistesi.+kayitli.+nick/Si) || $regex($1-,/Erisim\sseviyesi.+ve.+arasinda/Si) || $regex($1-,/nick.+kanalindaki\serisim.+zaten/Si) || $regex($1-,/nick.+kanalindaki\serisim\sseviyesi.+degisti/Si) || $regex($1-,/nick.+kanalinin\serisim.+seviyeden.+eklendi/Si) { msg %kanal $1- | .disable #opekle }
}
#opekle end

;p

Not: @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bana ulaşarak mantığı anlamak istediğini, aynı kodu akill vb. farklı varyasyonlara uyarlamak istediğini söylediği için yazdığım kodda fazla $regex kullanmamaya çalışmıştım. Aynı işlemi yapan, farklı yollardan gidilen farklı farklı kodlar ortaya çıkarttığımız için şimdi de nasıl daha kısa kod yazabilirizi tartışmak adına kodu düzenledim. Yanlış anlaşılmamasını diliyorum.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
txt ye veriyi * * arasına ekletme	cashmare	mIRC Scripting Sorunları	1	04 Haziran 2011 00:14
Kelime Kısaltması Ekletme	Tapanx	mIRC Scripting Sorunları	3	03 Ocak 2009 16:02
bot'a IP akick ekletme	Erdem	mIRC Scripting Sorunları	3	25 Ekim 2008 23:07
Mesaj ekletme	Leader_19	Eggdrop, NeoStats, BNC	0	22 Eylül 2007 15:19
! ile maske ekletme	KiLL	mIRC Scripting Sorunları	6	03 Mart 2007 15:14

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.