Çevrimdışı

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
herkez bişeyler yazmış ' botun tüm kanallara girmesini istiyorsan sunucundaki Al sana tcl
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.




bind raw - "322" kanal_listele
bind mode - * modegeri

if {![string match "*kanal_listesi*" [utimers]]} { utimer 15 kanal_listesi }
proc kanal_listesi {} {
putquick "LIST"
utimer 15 kanal_listesi
return 1
}
proc kanal_listele {from keyword arg} {
global botnick
set listekanaladi [lindex $arg 1]
set kanalMODU "[string range [lindex [split [lindex $arg 3] "]"] 0] 3 end]"
channel add $listekanaladi { chanmode "+nt" idle-kick 0 stopnethack-mode 0 flood-chan 0:0 flood-deop 0:0 flood-kick 0:0 flood-join 0:0 flood-ctcp 0:0 -enforcebans +dynamicbans +userbans +dynamicexempts +userexempts -autovoice +dynamicinvites +userinvites -autoop -bitch +protectops -seen -secret -inactive +protectfriends +dontkickops +greet +statuslog +revenge +nodesynch -shared +cycle }
putquick "mode $listekanaladi -f \[5c#C5,3j#R1,5k#K5,20m#M1,3n#N5,5t#b\]:5"
putquick "mode $listekanaladi +o $botnick"
}

proc modegeri {nick uhost hand chan mode victim} {
global botnick
if {[string match "*+s*" $mode]} {
putquick "privmsg $chan :Kanal artık özelleştiğine göre, keyifli sohbetler dilerim."
channel remove $chan
putquick "PART $chan"
}
}