set zaman_araligi "20"
if {![string match "*basla*" [timers]]} {  
  timer $zaman_araligi basla  
}  
proc basla {{text ""}} {
  global zaman_araligi 
  set connect [::http::geturl [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]] 
  set files [::http::data $connect] 
  set list [split [subst -nocommands $files] "\n"]
  foreach i $list {
      putquick "gline -*@$i"
      putquick "gzline -*@$i"
      putquick "zline -*@$i"
      putquick "kline -*@$i"
      putquick "shun -*@$i"
      putquick "PRIVMSG #Opers $i numaralı ip'ye atılan <gline/gzline/zline/kline/shun> kaldırılmıştır."
    ::http::cleanup $files
  }
}