#gerekli bindler
bind pub - !join girsin
bind evnt - init-server baglan_yap

proc baglan_yap {type} {
global inick ipass

  putserv "OPER $inick $ipass"
  putserv "WALLOPS :Basari ile Login Oldum :)"
}

proc girsin {n u h c a} {
  global gnick
	set gnick $n
        set kanal [lindex $a 0]
    putserv "as chan $kanal add"
    putserv "as chan $kanal set bot botnicki"
    putserv "PRIVMSG #opers : 4 $kanal Kanalına botnicki Bot Bir Kac Saniye İçinde Atılacaktır 2$gnick"
}

#gerekli bindler
bind pub - !part ciksin
bind evnt - init-server baglan_yap

proc baglan_yap {type} {
global inick ipass

  putserv "OPER $inick $ipass"
  putserv "WALLOPS :Basari ile Login Oldum :)"
}

proc ciksin {n u h c a} {
  global gnick
	set gnick $n
        set kanal [lindex $a 0]
    putserv "as chan $kanal del"
    putserv "PRIVMSG #opers : 4 $kanal Kanalından Botnicki Bot Bir Kac Saniye İçinde Cıkarılacaktır.  2$gnick"
}