IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

kullanım: .fıkra komutuyla kanala random/gelişigüzel sırayla bir fıkra atar...
kimi fıkralar belden aşağı olabiliyor...
o nedenle komutu kullanan kişiye notice yada özeline gitsin şeklinde ayarlamak isteyebilirsiniz ...

bunun nedenle :

Kod:

putserv "privmsg $chan :\00304,01$line\003"

satırını :

Kod:

putserv "privmsg $nick :\00304,01$line\003"

yaparsanız,komutu kullanan kişinin özeline,

Kod:

putserv "notice $nick :\00304,01$line\003"

yaparsanızda o kişiye notice olarak,yani sadece komutu kullanan kişinin görebileceği/okuyacağı hale getirmiş olursunuz.

.komutu Türkçe karakterle kullanabilirsiniz .fikra değil "fıkra" yazabilirsiniz sorun yok...

Kod:

package require http
 

bind pub - .fıkra fikr
 

proc fikr {nick uhost hand chan text} {

set text [string map {ç c ş s ğ g ı i Ç C Ş S Ğ G I İ} $text]

::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.
15000]

set data [::http::data $tok]

::http::cleanup $tok

regexp -- {</IFRAME></div>(.*?)</div>} $data "" fikra

regsub -all {\n} $data {} data

regsub -all {\t} $data {} data

regsub -all {<BR>} $fikra {} fikra

  set i 0

  foreach line [split $fikra \n] {

   putserv "privmsg $chan :\00304,01$line\003"

   incr i

   }

}