package require http

;# kanala gönderilecek sözlerin zaman aralığı (dakika cinsinden):
set sozaman "5"

;# kodun çalışacağı kanal:
set sozkanal "#zurna"

bind time - "*" guzel:soz

proc guzel:soz {minute hour day month year} {
    if {([scan $minute %d] + ([scan $hour %d]*60)) % $::sozaman == 0} { 
       ::http::config -useragent "UserAgent"
       set tok [::http::geturl "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #007700">-timeout 25000]
       set data [::http::data $tok]
       ::http::cleanup $tok
     if {[regexp {<li class="guzelSozlerMetin">(.*?)</li>} $data match soz]} {
          set i 0
        foreach line [split $soz \n] {;
        regsub -all {<strong>} $line {} line
        regsub -all {</strong>} $line {} line
        regsub -all {\<\{[^\>]\}*\>} $line {} line
            regsub -all {<p>} $line {} line
        regsub -all {</p>} $line {} line
        regsub -all {<font face="Arial">} $line { } line
        regsub -all {<pre><font face="Comic Sans MS" size="3">} $line { } line
        regsub -all {<br />} $line {} line
        regsub -all {</font>} $line {} line
        regsub -all {</pre>} $line {} line
        regsub -all {</div>} $line {} line
        regsub -all {<div class="storycontent">} $line {} line
        regsub -all {</h4>} $line {} line
        regsub -all {<table cellspacing="i" width="7ii" border="i">} $line {} line
                regsub -all {<td class="style21" colspan="4">} $line {} line
        regsub -all {<span id="more-160"></span>} $line {} line
        regsub -all {<div class=".*?">} $line {} line
        regsub -all {<.*?>} $line "" line
        set line [string map -nocase {
                  ğ \u011f Ğ \u011e ı \u0131 İ \u0130 ö \u00f6 Ö \u00d6 ü \u00fc Ü \u00dc ş \u015f Ş \u015e ç \u00e7 Ç \u00c7
              &hearts; \u2764 </td> "" <tr> "" </tbody> "" </table> "" <h4> "" ? \u015f y \u0131 ? \u011f ? \u011e Y \u0130
                  &ccedİl; ç &szlİg; ş &rsquo; ' &nbsp; "" &ouml; ö &uuml; ü &quot; \" ♥ ""} $line]
             if {[llength $line] != 0} {
                 puthelp "privmsg $::sozkanal :\00304Lakırdı:\$line\"
                         incr i
            } else { return 0;}
              }
        }
      }
}

putlog "beh..."