puts -nonewline $socket "GET /wire/World/$partline HTTP/1.1\n"
puts -nonewline $socket "Connection: Keep-Alive\n"
puts -nonewline $socket "Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
puts -nonewline $socket "Pragma: no-cache\n\n"

 
puthelp "PRIVMSG $nick : test test test"

 
bind pub - selam msg_selam
proc join_selam {nick uhost handle chan} {
if {$chan == "#kanal"} { 
putserv "NOTICE $nick :$nick selam"
putserv "NOTICE $nick :$nick selam"
}
return 1
}

 
bind pub - ircforumlari pub_ircforumlari
bind msgm - altug msg_altug
bind msgm - karaali msg_karaali
bind msgm - ircforum msg_ircforum
 
proc msg_ircforumlari { nick uhost handle text } {
putserv "PRIVMSG $nick :$nick , size asagidaki konularda yardimci olabilirim:"
putserv "PRIVMSG $nick :1.) altug yazin"
putserv "PRIVMSG $nick :2.) karaali yazin"
putserv "PRIVMSG $nick :3.) ircforum yazin" }
 
proc msg_altug { nick uhost handle text } {
putserv "PRIVMSG $nick :altug yazdiniz"
}
proc msg_karaali { nick uhost handle text } {
putserv "PRIVMSG $nick :karaali yazdiniz"
}
proc msg_ircforum { nick uhost handle text } {
putserv "PRIVMSG $nick :ircforum yazdiniz"
}

bind pub - <komut> <protokol> 

bind pub - !deneme mesaj_yaz 

proc mesaj_yaz {nick uhand host chan text} {
....
.....
.....uygulanaca komutlar
} 

bind pub - !deneme mesaj_yaz
#protokol yaziyoruz
proc mesaj_yaz {nick uhand host chan text} {
putquick "PRIVMSG $nick :!deneme komudunu $chan kanalinda kullandiniz"
} 

bind pub - !deneme mesaj_yaz
 
#protokol yaziyoruz
proc mesaj_yaz {nick uhand host chan text} {
putquick "PRIVMSG $chan :$nick !deneme komudu kullandi ve eylem olarak bu mesaj gonderiliyor."
}