CR Operler Hakkında Bilgi Alma Kodu..

Goemon · #1 06 Şubat 2014, 01:08

Merhaba SevgiLi mİRCScripting.NET Forum Üyeleri

ConferenceRoom Sunucusunda Yetkili Yöneticilerin Hakkında Bilgi Almaya Yarar.

Evet Arkadaşlar Birinci Codemiz Text Eventi Yani Botunuza Ekliyerek Kullana Bilirsiniz.Tabiki Codeyi Siz Değil Yöneticiler Kullana Bilcek.
Codeyi Kullana Bilmeniz İçin Bir #Opers Kanalında Bulunmanız Gerekiyor.
İkincisi Yönetici Olmanız Gerekiyor.
Üçüncüsü Nick Yerine Rakamlı veya Renkli Yazılarda Hata Vercektir.

Not: KIRMIZI Renkte Belirtdiğim #Opers Kanallarını Kendinize Göre Ayarlıya Bilirsiniz.

Komutu Kullanma Komutu: !operbilgi Nick

Code 1

Kod:

on $*:text:/^(!|.)operbilgi/i:#opers: {
  if (*@* $+ $token($server,2-,$asc(.)) $+ * !iswm $address($nick,2)) { msg $chan 4HATA 2Komutu Kullanma Yetkiniz Yok! | halt }
  if (!$2) { /msg $chan 4HATA2Eksik Komut Kullandiniz. Dogru Kullanimi 1!operbilgi <Nick> | halt }
  elseif ($3) { /msg $chan 4HATA 2Yanlış Komut Kullandiniz. Dogru Kullanimi 1!operbilgi <Nick> | halt }
  elseif ($left($2,1) isnum) { /msg $chan 4HATA 2Nickler Rakamla Baslayamaz. Nicki Dogru Sekilde Giriniz. | halt }
  elseif $regex($2,/^[[:cntrl:]]/i) { msg $chan 4HATA  2Renkli veya  Şekilli Yazı Tipi ile Bilgi Alamazsınız. Lütfen SadeŞekilde Sorgulayın! |  halt }
  else { 
  /enable #operbilgi | /as oper $2 list |  /timer 1 2 /disable #operbilgi }
}
#operbilgi off
on *:snotice:*: { 
  if (*Failure -- Operator* iswm $1-) { 
  /msg #opers 4UYARI12 $4 7IRCOp Yetkilisi Degil! }
  elseif ($2 == oper) && ($4 == add) { 
    msg #opers 4OperNick:3 $3 4OperPası:12 $regsubex($5,/./ig,$chr(42))  4Flagı:7 $6 
    msg #opers 12 $3  2AdLı Yöneticiye Memoserv Mesaj AtıLmışdıR. 4BiLginize!!
    ms send $3 4OperNick:3 $3 4OperPasınız:12 $5 4Flagı:7 $6 
  }
}
#operbilgi end

Evet Arkadaşlar İkinci Codemiz İnput Eventi Yani Codeyi Kendi Scriptimize Ekliyerek Biz Kullana Biliriz.
Codeyi Kullana Bilmeniz İçin Bir #Opers Kanalında Bulunmanız Gerekiyor.
İki Yönetici Olmanız Gerekiyor.
Üç Sizden Başkası Kullanamaz Yani.

Komutu Kullanma Komutu: !operbilgi Nick

Code 2

Kod:

on *:input:#opers: {
  if $regex($1,/^(!|.)operbilgi/i) {
    if (*@* $+ $token($server,2-,$asc(.)) $+ * !iswm $address($nick,2)) {   msg $chan 4HATA 2Komutu Kullanma Yetkiniz Yok! | halt }
    if (!$2) { /msg $chan 4HATA 2Eksik Komut Kullandiniz. Dogru Kullanimi 1!operbilgi <Nick> | halt }
    elseif ($3) { /msg $chan 4HATA 2Yanlış Komut Kullandiniz. Dogru Kullanimi 1!operbilgi <Nick> | halt }
    elseif ($left($2,1) isnum) { /msg $chan 4HATA 2Nickler Rakamla Baslayamaz. Nicki Dogru Sekilde Giriniz. | halt }
    elseif $regex($2,/^[[:cntrl:]]/i) { msg $chan 4HATA  2Renkli veya  Şekilli Yazı Tipi ile Bilgi Alamazsınız. Lütfen SadeŞekilde Sorgulayın! |  halt }
    else { 
    /enable #operbilgi | /as oper $2 list | /timer 1 2 /disable #operbilgi }
  }
}
#operbilgi off
on *:snotice:*: { 
  if (*Failure -- Operator* iswm $1-) { 
  /msg #opers 4UYARI12 $4 7IRCOp Yetkilisi Degil! }
  elseif ($2 == oper) && ($4 == add) { 
    /msg #opers 4OperNick:3 $3 4OperPası:12 $regsubex($5,/./ig,$chr(42))  4Flagı:7 $6 
    /msg #opers 12 $3  2AdLı Yöneticiye  Memoserv Mesaj AtıLmışdıR.  4BiLginize!!
    /ms send $3 4OperNick:3 $3 4OperPasınız:12 $5 4Flagı:7 $6 
  }
}
#operbilgi end

Evet Arkadaşlar Üçüncü Codemiz Yine İnput Eventi Yani Codeyi Kendi Scriptimize Ekliyerek Biz Kullana Biliriz.
Not: Birinci ve İkinci Codemizde Bilgiler Kanala Yansıtılıyor Üçüncü Codemizde ise Kanal Yerine ECHOLatıyoruz Bilgileri.
Codeyi Kullana Bilmeniz İçin Bir #Opers Kanalında Bulunmanız Gerekiyor.
İki Yönetici Olmanız Gerekiyor.
Üç Sizden Başkası Kullanamaz Yani.

Komutu Kullanma Komutu: !operbilgi Nick

Code 3

Kod:

on *:input:#opers: {
  if $regex($1,/^(!|.)operbilgi/i) {
    if (*@* $+ $token($server,2-,$asc(.)) $+ * !iswm $address($nick,2)) {  echo -a 4HATA 2Komutu Kullanma Yetkiniz Yok! | halt }
    if (!$2) { echo -a 4HATA 2Eksik Komut Kullandiniz. Dogru Kullanimi 1!operbilgi <Nick> | halt }
    elseif ($3) { echo -a 4HATA 2Yanlış Komut Kullandiniz. Dogru Kullanimi 1!operbilgi <Nick> | halt }
    elseif ($left($2,1) isnum) { echo -a 4HATA 2Nickler Rakamla Baslayamaz. Nicki Dogru Sekilde Giriniz. | halt }
    elseif $regex($2,/^[[:cntrl:]]/i) { echo -a 4HATA  2Renkli veya  Şekilli Yazı Tipi ile Bilgi Alamazsınız. Lütfen SadeŞekilde Sorgulayın! |  halt }
    else { 
    /enable #operbilgi | /as oper $2 list |  /timer 1 2 /disable #operbilgi }
  }
}
#operbilgi off
on *:snotice:*: { 
  if (*Failure -- Operator* iswm $1-) { 
  echo -a 4UYARI12 $4 7IRCOp Yetkilisi Degil! }
  elseif ($2 == oper) && ($4 == add) { 
    echo -a 4OperNick:3 $3 4OperPası:12 $regsubex($5,/./ig,$chr(42))  4Flagı:7 $6 
    echo -a 12 $3  2AdLı Yöneticiye  Memoserv Mesaj AtıLmışdıR.  4BiLginize!!
    /ms send $3 4OperNick:3 $3 4OperPasınız:12 $5 4Flagı:7 $6 
  }
}
#operbilgi end

Evet Arkadaşlar Dördüncü Codemiz Aliasla Alakalı Yani Codeyi Kendi Scriptimize Ekliyerek Biz Kullana Biliriz.
Codeyi Kullana Bilmeniz İçin Her Hangi Bir Kanal Yada Yer Gerekmiyor Komutu İster Özelde İster Kanalda Yaza Bilirsiniz.
Birincisi Yönetici Olmanız Gerekiyor.
İkincisi Sizden Başkası Kullanamaz.
Üç Sorgulama Yaptığınızda Bilgiler Size ECHO Olarak Yansıtılacaktır.

Komutu Kullanma Komutu: /operbilgi Nick

Code 4

Kod:

alias operbilgi {
  if (!$1) { echo -a 4HATA 2Eksik Komut Kullandiniz. Dogru Kullanimi 1/operbilgi <Nick> | halt }
  elseif ($2) { echo -a 4HATA 2Yanlış Komut Kullandiniz. Dogru Kullanimi 1/operbilgi <Nick> | halt }
  elseif ($left($1,1) isnum) { echo -a 4HATA 2Nickler Rakamla Baslayamaz. Nicki Dogru Sekilde Giriniz. | halt }
  elseif $regex($1,/^[[:cntrl:]]/i) { echo -a 4HATA  2Renkli veya  Şekilli Yazı Tipi ile Bilgi Alamazsınız. Lütfen SadeŞekilde Sorgulayın! |  halt }
  else { 
  /enable #operbilgi | /as oper $1 list | /timer 1 2 /disable #operbilgi }
}
#operbilgi off
on *:snotice:*: { 
  if (*Failure -- Operator* iswm $1-) { 
  echo -a 4UYARI12 $4 7IRCOp Yetkilisi Degil! }
  elseif ($2 == oper) && ($4 == add) { 
    echo -a 4OperNick:3 $3 4OperPası:12 $regsubex($5,/./ig,$chr(42))  4Flagı:7 $6 
    echo -a 12 $3  2AdLı Yöneticiye  Memoserv Mesaj AtıLmışdıR.  4BiLginize!!
    /ms send $3 4OperNick:3 $3 4OperPasınız:12 $5 4Flagı:7 $6 
  }
}
#operbilgi end

Evet Arkadaşlar Beşinci Codemiz Ef Tuşlarıyla Alakalı Yani Codeyi Kendi Scriptimize Ekliyerek Biz Kullana Biliriz.
Codeyi Kullana Bilmeniz İçin Her Hangi Bir Kanal Yada Yer Gerekmiyor F1 (Ef Bir Tuşuna Bastığımızda Kod İşlem Yapacaktır Zaten.)
Birincisi Yönetici Olmanız Gerekiyor.
ikincisi Sizden Başkası Kullanamaz Yani.
Üçüncüsü Sorgulama Yaptığınızda Bilgiler Size ECHO Olarak Yansıtılacaktır.

Komutu Kullanma Komutu: F1 Tuşuna Basarak Kullana Bilirsiniz.

Code 5 Aliases Bölümüne Eklencek

Kod:

F1 enable #operbilgi | as oper $$1 list | /timer 1 2 /disable #operbilgi

Code 5

Kod:

#operbilgi off
on *:snotice:*: { 
  if (*Failure -- Operator* iswm $1-) { 
  echo -a 4UYARI12 $4 7IRCOp Yetkilisi Degil! }
  elseif ($2 == oper) && ($4 == add) { 
    echo -a 4OperNick:3 $3 4OperPası:12 $regsubex($5,/./ig,$chr(42))  4Flagı:7 $6 
    echo -a 12 $3  2AdLı Yöneticiye  Memoserv Mesaj AtıLmışdıR.  4BiLginize!!
    /ms send $3 4OperNick:3 $3 4OperPasınız:12 $5 4Flagı:7 $6 
  }
}
#operbilgi end

VeYaaaaaa

Eğer F1 Tuşum Yada F1 den F12 Ye Kadar Aliases de Ekli Çalışmalarınız Var İse Ozaman İkinci İhtimali Devreye Geçirebiliriz Ctrl + F1 Tuşu
Birincisi Yönetici Olmanız Gerekiyor.
ikincisi Ctrl ve F1 Tuşuna Basarak Kodu İşlem Yapcaktır.
Üçüncüsü Sizden Başkası Kullanamaz Yani.
Dördüncüsü Sorgulama Yaptığınızda Bilgiler Size ECHO Olarak Yansıtılacaktır.

Komutu Kullanma Komutu: Ctrl ve F12 Tuşuna Basarak Kullana Bilirsiniz.

Code 6 Aliases Bölümüne Eklencek

Kod:

CF1 enable #operbilgi | as oper $$1 list | /timer 1 2 /disable #operbilgi

Code 6

Kod:

#operbilgi off
on *:snotice:*: { 
  if (*Failure -- Operator* iswm $1-) { 
  echo -a 4UYARI12 $4 7IRCOp Yetkilisi Degil! }
  elseif ($2 == oper) && ($4 == add) { 
    echo -a 4OperNick:3 $3 4OperPası:12 $regsubex($5,/./ig,$chr(42))  4Flagı:7 $6 
    echo -a 12 $3  2AdLı Yöneticiye  Memoserv Mesaj AtıLmışdıR.  4BiLginize!!
    /ms send $3 4OperNick:3 $3 4OperPasınız:12 $5 4Flagı:7 $6 
  }
}
#operbilgi end

Arkadaşlar Son Snoticeli Kod Eventimizde Kendi Scriptimize Ekliyerek Yöneticiysek Eğer Komutu Yazarak Bilgi Ala Biliriz.Ve Kod Bize Sonucu Direk ECHO Olarak Gösterecektir.

Komutu Kullanma Komutu: /as oper goemon list Gibi

Code 7

Kod:

on *:snotice:*: { 
  if (*Failure -- Operator* iswm $1-) { 
  echo -a 4UYARI12 $4 7IRCOp Yetkilisi Degil! }
  elseif ($2 == oper) && ($4 == add) { 
    echo -a 4OperNick:3 $3 4OperPası:12 $regsubex($5,/./ig,$chr(42))  4Flagı:7 $6 
    echo -a 12 $3  2AdLı Yöneticiye  Memoserv Mesaj AtıLmışdıR.  4BiLginize!!
    /ms send $3 4OperNick:3 $3 4OperPasınız:12 $5 4Flagı:7 $6 
  }
}

Örnek Resim

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
ConferenceRoom;Kanal infosu hakkında bilgi verme	Goemon	ConferenceRoom	0	20 Ocak 2014 22:13
ConferenceRoom; Kanal droplama kodu	Goemon	ConferenceRoom	0	07 Ocak 2014 14:24
ConferenceRoom Panel Hakkında Bilgiler Resimli ve Komutlu Anlatım	Goemon	ConferenceRoom	0	07 Ocak 2014 09:48
mIRC Statüs Genel Bilgi Kodu	Goemon	Snippets - Parça kodlar	0	07 Ocak 2014 00:06
mIRCGlass.DLL Hakkında Bilgi Yardım	UsLanMaz	Help - Yardım	3	01 Eylül 2009 22:34