| Re: Isınla Tcl'ye ek
# isinlama yapan TCL Bot.!! #
#
# kullanimi !isinla nick seklinde. ( botun özeline değil. kanal geneline.. #
# Kodlaması Bana Ait Değil. Düzenledim Sadece.. #
bind pub - !isinla birbirx
bind msgm - !isinla birbirx
proc birbirx {nick uhost handle chan poseidon } {
global birbir
if {[llength $poseidon] == 1} {
putserv "SAJOIN $poseidon #Türkiye,#oyun,#istanbul,#kutcityfm"
putserv "SAPART $poseidon #isinlama_kanali"
putserv "notice $nick :isinlama islemi tamamlanmıştır.Lutfen Kurallara Uyunuz.Kendinize Nasil Davranilmasini İstiyorsaniz Baskalarina Oyle Davraniniz.iyi Sohbetler Dileriz"
return 0
}
return 0
}
kodlar bu isinlama.tcl nin
|