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

Sanirim eski kodlar patlamis yenisini asagiya birakiyorum, bilginize.
Kanallari kendi sunucunuza gore duzenlemeyi unutmayiniz.

Kod:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;; BURC ASTROLOJI KODU by jeun ;;;;;;;; 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 

on *:text:*:#sohbet,#mirchelp,#mobile,#felsefe,#chat: {

  if $regex($1,/[!.]bur[cÇçC]$/i)  {

    if !$2 { msg # > Burc belirtmediniz! | return }

    if $regex($2,/(ko[cç]|bo[gğ]a|[İi]kizler|yenge[cç]|aslan|ba[sş]ak|terazi|akrep|yay|o[gğ]lak|kova|bal[ıi]k)/i) {

      set %burclnk $replace($regml(1),koç,koc,boğa,boga,İkizler,ikizler,başak,basak,oğlak,oglak,balık,balik,yengeç,yengec)

    }

    else { msg # > Lutfen gecerli bir burc giriniz | return }

    set -eu20 %burchan $chan

    set -eu20 %burcnick $nick

    burcbak %burclnk

  }

}
 

alias burcbak { var %rand = $rand(1,999) | sockopen $+(burc,%rand) qbilisim.net 80 | sockmark $+(burc,%rand) https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockopen:burc*:{

  var %k = sockwrite -n $sockname

  %k GET $+(/ssl.php?web=,$sock($sockname).mark) HTTP/1.1

  %k Host: $sock($sockname).addr

  %k User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/110.0.0.0 Safari/537.36

  %k $crlf

}
 

on *:sockread:burc*:{

  var %burc | sockread -f %burc

  if (*horoscope-detail-content* iswm %burc) {

    if $regex(%burc,/<\/p><p>(.+)</p></div><\/div><\/div><div class="horoscope-detail-footer">/i) {

      msg %burchan 4<2 %burcnick 4> $gettok($regml(1),1-2,46)

      msg %burchan 4<2 %burcnick 4> $gettok($regml(1),3-,46)

    }

  }

}