Merhaba SevgiLi mİRCScripting.NET Forum Üyeleri
Merhaba Arkadaşlar
ConferenceRoom Sunucusunda Yetkili Bir Yöneticinin
Flagını Öğrenmeye Yarıyan Parça Kod Çalışmasıdır.
Komutumuz ve
CodeLeR Hakkında Siz
CR Sevenlerine Açık Bir Şekilde Anlatmaya Çalışacam.
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.
İki
Yönetici Olmanız Gerekiyor.
Üç
Nicki Rakamla veya
Renkli Yazıyla Yazarsanız Code Size Hata Yaptınız Diye
Hata Uyarısı VerecektiR.
Not: KIRMIZI Renkte Belirtdiğim
#Opers Kanallarını Kendinize Göre Ayarlıya Bilirsiniz.
Kullanma Komutu: !flaglist Nick Gibi
Code 1 Kod:
on *:text:*:#opers: {
if $regex($1,/^(!|.)flaglist/i) {
if (*@* $+ $token($server,2-,$asc(.)) $+ * !iswm $address($nick,2)) { msg $chan 4HATA 2Komutu Kullanma Yetkiniz Yok! | halt }
if !$2 { msg $chan 4HATA 2Nick Girmediniz!. Komutun Doğru Kullanımı: 1!flaglist <Nick> | halt }
elseif $3 { msg $chan 4HATA 2Nick Girmediniz!. Komutun Doğru Kullanımı: 1!flaglist <Nick> | halt }
elseif $regex($2,/^[[:digit:]]/i) { msg $chan 4HATA 2Nickler 4Rakamla 2Başlayamaz. Lütfen Nicki Doğru 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 }
/set %oper.nck $2 | enable #operflag | /as oper $2 flag list | .timer 1 1 .disable #operflag
}
}
#operflag off
on *:snotice:*: {
if (*Success -- Operator* iswm $1-) {
msg #opers 5Sorgu Başarılı. | msg #opers 4Yetkili 1IRC4Op:7 %oper.nck 4Flag List:2 $7 }
elseif (*Failure -- Operator* iswm $1-) {
msg #opers 4HATA1 %oper.nck 4Yetkili Değil.
}
}
#operflag 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.
Üç
Nicki Rakamla veya
Renkli Yazıyla Yazarsanız Code Size Hata Yaptınız Diye
Hata Uyarısı VerecektiR.
Dört
Sizden Başkası Kullanamaz Yani.
Kullanma Komutu: !flaglist Nick Gibi
Code 2 Kod:
on *:input:#opers: {
if $regex($1,/^(!|.)flaglist/i) {
if (*@* $+ $token($server,2-,$asc(.)) $+ * !iswm $address($nick,2)) { msg $chan 4HATA 2Komutu Kullanma Yetkiniz Yok! | halt }
if !$2 { msg $chan 4HATA 2Nick Girmediniz!. Komutun Doğru Kullanımı: 1!flaglist <Nick> | halt }
elseif $3 { msg $chan 4HATA 2Nick Girmediniz!. Komutun Doğru Kullanımı: 1!flaglist <Nick> | halt }
elseif $regex($2,/^[[:digit:]]/i) { msg $chan 4HATA 2Nickler 4Rakamla 2Başlayamaz. Lütfen Nicki Doğru 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 }
/set %oper.nck $2 | enable #operflag | /as oper $2 flag list | .timer 1 1 .disable #operflag
}
}
#operflag off
on *:snotice:*: {
if (*Success -- Operator* iswm $1-) {
msg #opers 5Sorgu Başarılı. | msg #opers 4Yetkili 1IRC4Op:7 %oper.nck 4Flag List:2 $7 }
elseif (*Failure -- Operator* iswm $1-) {
msg #opers 4HATA %oper.nck Yetkili Değil.
}
}
#operflag 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.
Üç
Nicki Rakamla veya
Renkli Yazıyla Yazarsanız Code Size Hata Yaptınız Diye
Hata Uyarısı VerecektiR.
Dört
Sizden Başkası Kullanamaz Yani.
Kullanma Komutu: !flaglist Nick Gibi
Code 3 Kod:
on *:input:#opers: {
if $regex($1,/^(!|.)flaglist/i) {
if (*@* $+ $token($server,2-,$asc(.)) $+ * !iswm $address($nick,2)) { echo -a 4HATA 2Komutu Kullanma Yetkiniz Yok! | halt }
if !$2 { echo -a 4HATA 2Nick Girmediniz!. Komutun Doğru Kullanımı: 1!flaglist <Nick> | halt }
elseif $3 { echo -a 4HATA 2Nick Girmediniz!. Komutun Doğru Kullanımı: 1!flaglist <Nick> | halt }
elseif $regex($2,/^[[:digit:]]/i) { echo -a 4HATA 2Nickler 4Rakamla 2Başlayamaz. Lütfen Nicki Doğru 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 }
/set %oper.nck $2 | enable #operflag | /as oper $2 flag list | .timer 1 1 .disable #operflag
}
}
#operflag off
on *:snotice:*: {
if (*Success -- Operator* iswm $1-) {
echo -a 5Sorgu Başarılı. | echo -a 4Yetkili 1IRC4Op:7 %oper.nck 4Flag List:2 $7 }
elseif (*Failure -- Operator* iswm $1-) {
echo -a 4HATA %oper.nck Yetkili Değil.
}
}
#operflag 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.
ikincisi
Nicki Rakamla veya
Renkli Yazıyla Yazarsanız Code Size Hata Yaptınız Diye
Hata Uyarısı VerecektiR.
Üçüncüsü
Sizden Başkası Kullanamaz Yani.
Dört Sorgulama Yaptığınızda Bilgiler Size
ECHO Olarak Yansıtılacaktır.
Kullanma Komutu: /flaglist Nick Gibi
Code 4 Kod:
alias flaglist {
if !$1 { echo -a 4HATA 2Nick Girmediniz!. Komutun Doğru Kullanımı: 1/flaglist <Nick> | halt }
if $2 { echo -a 4HATA 2Nick Girmediniz!. Komutun Doğru Kullanımı: 1/flaglist <Nick> | halt }
elseif $regex($1,/^[[:digit:]]/i) { echo -a 4HATA 2Nickler 4Rakamla 2Başlayamaz. Lütfen Nicki Doğru 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 }
set %oper.nck $1 | enable #operflag | /as oper $1 flag list | .timer 1 1 .disable #operflag
}
#operflag off
on *:snotice:*: {
if (*Success -- Operator* iswm $1-) {
echo -a 5Sorgu Başarılı. | echo -a 4Yetkili 1IRC4Op:7 %oper.nck 4Flag List:2 $7 }
elseif (*Failure -- Operator* iswm $1-) {
echo -a 4HATA1 %oper.nck 4Yetkili Değil.
}
}
#operflag 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 Bilgi Almak İstediğiniz Nicki
Maus İle Seçin ve
F1 Tuşuna Basın.
Üçüncüsü
Sizden Başkası Kullanamaz Yani.
Dört Sorgulama Yaptığınızda Bilgiler Size
ECHO Olarak Yansıtılacaktır.
Kullanma Komutu: F1 Tuşuna Basarak Kullana Bilirsiniz.
Code 5 Aliases Bölümüne Eklencek
Kod:
F1 set %oper.nck $$1 | enable #operflag | /as oper $$1 flag list | .timer 1 1 .disable #operflag
Code 5 Kod:
#operflag off
on *:snotice:*: {
if (*Success -- Operator* iswm $1-) {
echo -a 5Sorgu Başarılı. | echo -a 4Yetkili 1IRC4Op:7 %oper.nck 4Flag List:2 $7 }
elseif (*Failure -- Operator* iswm $1-) {
echo -a 4HATA1 %oper.nck 4Yetkili Değil.
}
}
#operflag 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 Bilgi Almak İstediğiniz Nicki
Maus İle Seçin ve
Ctrl ve F1 Tuşuna Basın.
Üçüncüsü
Sizden Başkası Kullanamaz Yani.
Dördüncüsü Sorgulama Yaptığınızda Bilgiler Size
ECHO Olarak Yansıtılacaktır.
Kullanma Komutu: Ctrl ve F1 Tuşuna Aynı Anda Basarak Kullana Bilirsiniz.
Code 5 Aliases Bölümüne Eklencek
Kod:
CF1 set %oper.nck $$1 | enable #operflag | /as oper $$1 flag list | .timer 1 1 .disable #operflag
Code 5 Kod:
#operflag off
on *:snotice:*: {
if (*Success -- Operator* iswm $1-) {
echo -a 5Sorgu Başarılı. | echo -a 4Yetkili 1IRC4Op:7 %oper.nck 4Flag List:2 $7 }
elseif (*Failure -- Operator* iswm $1-) {
echo -a 4HATA1 %oper.nck 4Yetkili Değil.
}
}
#operflag 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.
Kullanma Komutu: /as oper goemon flag list Gibi
Code 6 Kod:
on *:snotice:*: {
if (*Success -- Operator* iswm $1-) {
echo -a 5Sorgu Başarılı. | echo -a 4Yetkili 1IRC4Op:7 $4 4Flag List:2 $7 }
elseif (*Failure -- Operator* iswm $1-) {
echo -a 4HATA1 $4 4Yetkili Değil.
}
}
Not: 22/01/2015 Tarihinde Tarafımca Güncellenmiştir.
Resimli Bir Örnek http://i.hizliresim.com/wjW16W.jpg 