[Ü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: Kodu kopyalamak için üzerine çift tıklayın!
putserv "privmsg $chan :\00304,01$line\003"
satırını :
Kod: Kodu kopyalamak için üzerine çift tıklayın!
putserv "privmsg $nick :\00304,01$line\003"
yaparsanız,komutu kullanan kişinin özeline,
Kod: Kodu kopyalamak için üzerine çift tıklayın!
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: Kodu kopyalamak için üzerine çift tıklayın!
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
}
}