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 http://i.hizliresim.com/eQ7Y5A.jpg 