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

Kod:

alias pink {

  sockclose dify 

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

}

on *:sockopen:dify:{

  sockwrite -n $sockname GET /portal.php  HTTP/1.1

  sockwrite -n $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $clrf   

}

on *:sockread:dify:{

  if ($sockerr) { msg #SOHBET Veri alımında Hata oluştu. | halt }

  else {

    var %difi 

    sockread %difi 

    if $regex(%difi,/w{3}.+/) { write difi.txt $replace($regsubex(%difi,/(<.+>)/Ug,),&nbsp;,$chr(32),;topicseen#new,$chr(126),$+(&,#8230,;),...) }

    var %yeah 1 | while %yeah <= $numtok($read(difi.txt,1),126) { 

    msg #SOHBET $token($read(difi.txt,1),%yeah,126) | inc %yeah }

    write -c difi.txt 

  }

}

on $*:text:/^[!@.]forum\z/Si:#SOHBET:pink

Yukarıdaki kod dizinini remote kısmına ekledikten sonra #SOHBET kanalındaki herhangi bir kullanıcı(scriptine ekleyen kişi hariç),kanalda:
.forum
!forum
@forum
şeklinde herhangi birini yazması halinde belirttiğin linkten:
Kategori - Konu - Yazan Kişi - Tarih - Link
formatında bilgiyi kanala aktaracaktır.Şayet bu verilerin otomatik olarak aktarılmasını istiyorsan bu durumda aşağıdaki kod dizinini de eklemen gerekecektir;

Kod:

on *:connect:.timerforum 0 300 pink

Her 300 saniyede(5 dk.) bir (durmaksızın),belirttiğin linkten son verileri kanala aktaracaktır.

Görünüm üzerinde biraz daha çalışma yapabilirdim lakin pek vaktim kalmıyor,belki ilerleyen zamanlarda üzerinde yeni bir çalışma yapılabilir.

Hoşca paylaşımlar...