IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

3Beğeni(ler)
  • 1 Post By CLubber
  • 1 Post By saywhat
  • 1 Post By CLubber

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 02 Temmuz 2013, 22:43   #1
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Yardımcı Olabilecek Varmı




Aop ve üstü olan kişiler bu tcl de yer alan kodları kullanabiliyor iken Adminler aop vb. olmadan kullanamıyorlar bu tcl nin sadece oper adminlerin kullanması için uygun hale getirilmesi mümkünmüdür.

bind pub - !ban banned
#PROC
proc banned {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "os mode $chan +b $text"
putquick "privmsg $chan : $text Basariyla Banlandi $nick"
}
bind pub - !unban ubanned
#PROC
proc ubanned {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "os mode $chan -b $text"
putquick "privmsg $chan : $text Basariyla Banı Kaldırıldı $nick"
}
bind pub - !kick kicked
#PROC
proc kicked {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "kick $chan $text Aykırı Davranış!"
putquick "privmsg $chan : $text Odadan uzaklastırıldı $nick"
}
bind pub - !kb kban
#PROC
proc kban {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "os mode $chan +b $text"
putquick "kick $chan $text Aykırı Davranış!"
putquick "privmsg $chan : $text Odadan banlanıp uzaklastırıldı $nick"
}
bind pub - !voice vops
#PROC
proc vops {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "os mode $chan +v $text"
putquick "privmsg $chan : $text Voice konumuna cıkarıldı. $nick"
}
bind pub - !devoice dvop
#PROC
proc dvop {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "os mode $chan -v $text"
putquick "privmsg $chan : $text Voice konumundan indirildi. $nick"
}
bind pub - !op top
#PROC
proc top {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "os mode $chan +o $text"
putquick "privmsg $chan : $text Operator Konumuna Cıkarıldı $nick"
}
bind pub - !deop deop
#PROC
proc deop {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}
putquick "os mode $chan -o $text"
putquick "privmsg $chan : $text Operator Konumundan Indirildi. $nick"
}
bind pub - !temizle clear
#PROC
proc clear {nick uhand host chan text} {
if {![isop $nick $chan]} {return 0}

putquick "PRIVMSG $chan :0,15 0,14 0,12 Kanal Temizleniyor... 0,14 0,15  $nick !"
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :.0,15 0,14 0,12 Hoş Sohbetler 0,14 0,15 "
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :."
putquick "PRIVMSG $chan :0,15 0,14 0,12 kanal Temizlendi İyi Sohbetler.. 0,14 0,15  $nick !"
}

__________________
Yürürken başımın yerde olması sizi rahatsız etmesin.Benim tek derdim; yere düşen edebinize takılmamak..
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 03 Temmuz 2013, 02:38   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Yardımcı Olabilecek Varmı




Kodlarda bulunan bu satırlar komutu op olmayanların kullanamayacağını belirtiyor;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if {![isop $nick $chan]} {return 0}

Bunun yerine komutu adminlerin kullanmasını istiyorsanız botunuzun oper kanalına girişini sağlamalısınız.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if {![onchan $nick "#Opers"]} {return 0}

Bu şekilde değiştirip, botunuzu #Opers kanalında bulundurduğunuzda, komutu farklı kanalda kullanabilmesi için kullanıcıların #Opers kanalında bulunması gerekir.

 
Alıntı ile Cevapla

Alt 03 Temmuz 2013, 12:36   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Yardımcı Olabilecek Varmı




yada :


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
set agalar {
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.
* } ....... ..... global agalar if {![string match -nocase $agalar [getchanhost $nick]]} { return 0 } ..... ....

yada :
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
set agalar {
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.
* } ....... ..... global agalar set kabul 0 foreach host $agalar { if {[string match $host [lindex [split $uhost @] 1]]} { set kabul 1 } } switch -- $kabul { 0 { putserv "notice $nick :det..bu komut senin boyunu aşar.." } 1 { putserv "notice $nick :Lafı mı olur .ne demek ağam ..." } ..... kodun devamı...

yada en güzeli/sağlamı:

kim/lerin kullanabilmesi isteniyorsa ,bu zat-ı muhteremleri botun user dosyasına eklersiniz :

örnek:
.+user Tom
.+host Tom
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
*
.chattr Tom +f

+f friend yane arkideş yada ne bileyim herhangi bir user flagı verilebilir bu komutlara erişimi olmasını istediğiniz zatlara -> [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

sonrada koda proc/un/ların altına :
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if {![matchattr [nick2hand $nick $chan] f]} { return 0 :}

yani f "friend" kullanıcı flagı yoksa vallahi-olmaz. gibi eklenip komut/lara erişim "sınırlandırılabilinir....

ayrıca :

!temizle komutu için 50 satır dolusu

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
putquick "PRIVMSG $chan :."

yazmak yerine tek satırda :

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

yada

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


gibi yapılabilinir....di...(hem daha pratik , hemde en azından göze "hoş" görünürdü kod...)

 
Alıntı ile Cevapla

Alt 04 Temmuz 2013, 18:49   #4
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Yardımcı Olabilecek Varmı




CLubber Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kodlarda bulunan bu satırlar komutu op olmayanların kullanamayacağını belirtiyor;

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if {![isop $nick $chan]} {return 0}

Bunun yerine komutu adminlerin kullanmasını istiyorsanız botunuzun oper kanalına girişini sağlamalısınız.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
if {![string match -nocase "#Opers" $chan]} {return 0}

Bu şekilde değiştirip, botunuzu #Opers kanalında bulundurduğunuzda, komutu farklı kanalda kullanabilmesi için kullanıcıların #Opers kanalında bulunması gerekir.


Dediğiniz gibi botu opers odasına aldım lakin Bot sadece #Opers odasına işlev görürken bulunduğu diğer odalarda işlev görmemektedir.

__________________
Yürürken başımın yerde olması sizi rahatsız etmesin.Benim tek derdim; yere düşen edebinize takılmamak..
 
Alıntı ile Cevapla

Alt 04 Temmuz 2013, 19:12   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Yardımcı Olabilecek Varmı




SanaLName Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Dediğiniz gibi botu opers odasına aldım lakin Bot sadece #Opers odasına işlev görürken bulunduğu diğer odalarda işlev görmemektedir.

Kodu düzenledim, uykusuzluktan farklı bir kod satırı yazmışım.
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.

 
Alıntı ile Cevapla

Cevapla

Etiketler
olabilecek, varmı, yardımcı


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Kurulum Yapamıyorum Yardımcı Olabilecek Varmı? Sametkral9 Unreal IRCd 5 02 Haziran 2013 19:49
YardımCı olabilecek Varmı? h4ppy mIRC Scripting Sorunları 4 17 Ocak 2013 19:59
Ağ bağlantılarıyla ilgili sorunum var bu konuda yardımcı olabilecek varmı ? Metin Ağ, Network ve Networking 6 28 Mayıs 2009 17:10
Yardımcı Olabilecek ? EGEMAN PHP 2 15 Eylül 2008 11:22
yardımcı olabilecek varmı? Ahm£t Google 2 20 Mayıs 2008 18:25