Çevrimdışı

# 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

 

Çevrimdışı

tcl kodlar arkadasin yazdigi gibi
servera giren kullanicinin portunu tarayarak 8000 ise direk isinlayacak bi koda ihtiyacim var.