on *:sockopen:klbkbt:{  

 
  if ($sockerr) { msg #KanaL Hata bağlanılamadı! | return }  

 
else {   

 
    var %klbkbt = sockwrite -nt $sockname  

 
%klbkbt GET /external.php? $+ / HTTP/1.1  

 
%klbkbt HOST: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:klbkbt:{  

 
  var %kfveri  

 
  sockread %kfveri  

 
if (*<title>* iswm %kfveri) {  

 
set %baslik 
$remove(%kfveri,</title>,<title>,<![CDATA[,]],<,>)   

 
  }  

 
  if (*<description>* iswm %kfveri) {  

 
set %kfaciklax $remove(%kfveri,</description>,<description>)  


 
  }  

 
  if (*<link>* iswm %kfveri) {  

 
set %kflinks $remove(%kfveri,</link>,<link>)  

 
  }  

 
  if (*<pubDate>* iswm %kfveri) {  

 
set %kftime $remove(%kfveri,</pubDate>,<pubDate>,GMT)  

 
  }  

 
  if (*<dc:creator>* iswm %kfveri) {  

 
set %kfuser $remove(%kfveri,<dc:creator>,</dc:creator>)  

 
write gelen.txt 2------------------------------------------------------;  


 
write gelen.txt 7Başlık:12 $+(,%baslik,)     

 
write gelen.txt 7Tarih ve zaman:4 $+(,$degistir(%kftime),)  

 
write gelen.txt 7Açıklama:4 $+(,%kfaciklax,)  

 
write gelen.txt 7Link:12 $+(,%kflinks,) *  

 
write gelen.txt 7Kullanıcı:2 $+(,%kfuser,)  

 
write gelen.txt 2------------------------------------------------------;  


 
write gelen.txt $chr(32)   

 
  }  

 
 }  

 
alias degistir {   

 
  return 
$replace($1,Mon,Pazartesi,Tue,Salı,Wed,Çarşamba,Thu,Perşembe,Fri,Cuma,Sat,Cumartesi,Sun,Pazar,:,-,Jun,Ocak,Jan,Şubat,Mar,Mart,Apr,Nisan,May,Mayıs,Jul,Haziran,Aug,Ağustos,Sep,Temmuz,Oct,Ekim,Nov,Kasım,Dec,Aralık) 
 

 
}  

 
 

 
on *:sockclose:klbkbt:{ play #kanal gelen.txt 01  }  

 
 

 
on *:text:!veri:#Msc:{  

 
if $regex($nick($chan,$nick).pnick,/(.|~|&|@|%)/) {  

 
    if $sock(klbkbt).status == on {  

 
msg $chan Şuanda aktarım yapılıyor $nick , daha sonra tekrar deneyin.  

 
    }  

 
    else {  

 
msg $chan 7Son Yazılar4 # 7 kanalına aktarılıyor 4Lütfen bekleyiniz..  


 
unset %if*  

 
write -c gelen.txt  

 
    sockopen klbkbt 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 }  

 
  }  

 
  else {  

 
msg $chan $nick Operatör olmanız gerekmektedir.  

 
  }  

 
}