| saywhat | 20 Temmuz 2014 18:31 |
Cevap: !ban-!unban-!kick-!op-!deop vs... Kodları
arka sayfadaki koddaki komutlara (kick,banla,temizle,deopla,voice) komutlarına ek olarak,
opla, devoice, halfop, dehalfop, rehash, restart, die, hata, gir , çık ve cycle komutları eklenmiş hali : Kod:
# .chanset #kanal +komutlar
# kanal üstünde aktif eder.
setudef flag komutlar
# komutlara erişimi olacak kullanıcılar : m = bot master | n = bot sahibi
set yetkiler "mn"
# !temizle komutunda kaç satır ile temizlenmesi isteniyor.
set temizsatir "15"
bind pubm - "*" kmt_pubs
proc kmt_pubs {nick uhost hand chan text} {
if {![channel get $chan komutlar]} { return 0 }
if {![matchattr [nick2hand $nick] $::yetkiler $chan]} {
puthelp "notice $nick :Komutları kullanmak için en az $::yetkiler flaglarına sahip olmalısınız..."
return 0
}
set kmt [lindex [split [string tolower $text]] 0]
set hedef [lindex [split [string tolower $text]] 1]
set neden [join [lrange [split [string tolower $text]] 2 end]]
switch -exact -- $kmt {
!deopla { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !deopla <hedef-nick>"; return }
if {[onchan $hedef $chan] && [botisop $chan] && [isop $hedef $chan] && ![isbotnick $hedef]} {
putserv "notice $nick :$hedef $chan kanalında deoplanıyor.."
pushmode $chan -o $hedef
flushmode $chan
} else {
puthelp "notice $nick :Houston bir sorunumuz var..."
}
}
!kick { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !kick <hedef-nick> <sebep>"
puthelp "notice $nick :Bir <sebep> belirtilmezse, öntanımlı olarak \"istek üzerine\" sebep olarak eklenecektir..."
return 0
}
if {[llength $neden] eq 0} { set neden "istek üzerine";}
if {[onchan $hedef $chan] && [botisop $chan] && ![isbotnick $hedef]} {
putserv "notice $nick :$hedef ,$chan kanalında ,$neden sebebiyle kickleniyor..."
putkick $chan $hedef :$neden
} else {
puthelp "notice $nick :Houston sesim geliir mü?"
}
}
!voice { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !voice <hedef-nick>"; return }
if {[onchan $hedef $chan] && [botisop $chan] || [botishalfop $chan] && ![isvoice $hedef $chan]} {
putserv "notice $nick :$hedef $chan kanalında voicelanıyor.."
pushmode $chan +v $hedef
flushmode $chan
} else {
puthelp "notice $nick :Houston nedir senden çektiğim böyle hıh?!..."
}
}
!banla { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !banla <hedef-nick>"; return }
if {[onchan $hedef $chan] && [botisop $chan] || [botishalfop $chan] && ![isbotnick $hedef]} {
putserv "notice $nick :$hedef $chan kanalında banlanıyor.."
pushmode $chan +b $hedef
flushmode $chan
} else {
puthelp "notice $nick :Houston seninle benim bir sorunumuz olduğu kesin!..."
}
}
!temizle { if {[validchan $chan] && [botonchan $chan] && [botisop $chan]} {
putserv "notice $nick :$chan kanalı temizleniyor.."
putserv "privmsg $chan :$chan kanalı için temizlik vakti..."
set i 0; set j "\00300,04 \u262A \003"
while {$i < $::temizsatir} { puthelp "privmsg $chan :$j"; incr i }
putserv "privmsg $chan :$chan kanalında temizlik tamamlandı..."
} else {
puthelp "notice $nick :of Houston of...işimiz var seninle..."
}
}
!opla { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !opla <hedef-nick>"; return }
if {[onchan $hedef $chan] && [botisop $chan] && ![isop $hedef $chan]} {
putserv "notice $nick :$hedef $chan kanalında oplanıyor.."
pushmode $chan +o $hedef
flushmode $chan
} else {
puthelp "notice $nick :Houston dertlerim hiç bitmiyor..."
}
}
!devoice { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !devoice <hedef-nick>"; return }
if {[onchan $hedef $chan] && [botisop $chan] || [botishalfop $chan] && [isvoice $hedef $chan]} {
putserv "notice $nick :$hedef $chan kanalında devoicelanıyor.."
pushmode $chan -v $hedef
flushmode $chan
} else {
puthelp "notice $nick :Houston bırak sen artık bu işleri..."
}
}
!halfop { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !halfop <hedef-nick>"; return }
if {[onchan $hedef $chan] && [botisop $chan] && ![ishalfop $hedef $chan]} {
putserv "notice $nick :$hedef $chan kanalında halfoplanıyor.."
pushmode $chan +h $hedef
flushmode $chan
} else {
puthelp "notice $nick :Houston olmıyacak bu iş seninle..."
}
}
!dehalfop { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !dehalfop <hedef-nick>"; return }
if {[onchan $hedef $chan] && [botisop $chan] && [ishalfop $hedef $chan]} {
putserv "notice $nick :$hedef $chan kanalında dehalfoplanıyor.."
pushmode $chan -h $hedef
flushmode $chan
} else {
puthelp "notice $nick :Houston arkası gelmez dertlerimin..."
}
}
!rehash { putquick "privmsg $chan :Yeniden yükleniyor..."
rehash
puthelp "privmsg $chan :Yükleme tamamlandı..."
}
!restart { putquick "privmsg $chan :Yeniden başlatılıyor...Dönüşüm muhteşem olacak, beni bekleyin..."
restart
}
!hata { foreach hata [split $::errorInfo "\n"] {
puthelp "privmsg $chan :$hata"
}
}
!die { set mesaj [join [lrange [split $text] 1 end]]
if {[llength $mesaj] eq 0} { set mesaj "ah! vuruldum, ölüyorum!!!..";}
die "$mesaj"
}
!gir { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !gir <#hedef-kanal>"; return }
if {![string match -nocase "#*" $hedef]} {
puthelp "notice $nick :Kanal adını doğru girdiğinize emin olun..."
return 0
}
putserv "notice $nick :$hedef kanalına giriliyor..."
channel add $hedef
puthelp "privmsg $hedef :Aleyküm Selam ağalar..."
}
!çık { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !çık <#hedef-kanal>"; return }
if {[botonchan $hedef] && [validchan $hedef]} {
putserv "notice $nick :$hedef kanalından çıkılıyor..."
channel remove $hedef
puthelp "notice $nick :kanaldan çıkıldı..."
} else {
puthelp "notice $nick :dertlerim hiç bitmiyor houston..."
}
}
!cycle { if {[llength $hedef] eq 0} { puthelp "notice $nick :Kullanımı : !cycle <#hedef-kanal>"; return }
if {[botonchan $hedef] && [validchan $hedef] && [string match -nocase "#*" $hedef]} {
channel set $hedef +inactive
channel set $hedef -inactive
puthelp "notice $nick :$hedef kanalında cycle edildi..."
} else {
puthelp "notice $nick :hep dert ,hep dert houston,,,böyle olmuyor ama bak deyim sana..."
}
}
default { return }
}
return 0
}
putlog "ok..."
daha fazlasını eklemek isteyen eklesin benden bu kadar..sıkıldım... | 