;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;; 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)
    }
  }
}

on *:text:*:#: {
  if $regex($1,/^[!.]bur[cç]/i) {
    if $regex($2,/(ko[cç]|bo[gğ]a|[İi]kizler|yenge[cç]|a[rs]lan|ba[sş]ak|terazi|akrep|yay|o[gğ]lak|kova|bal[ıi]k)/i) {
      set %lnk $replace($regml(1),koç,koc,boğa,boga,İkizler,ikizler,başak,basak,oğlak,oglak,balık,balik,yengeç,yengec)
      set %burchn $chan
      set %burcnck $nick
      burc
    }
  }
}

alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&,$chr(9)) | return %x }
alias burc { if $sock(burc) { sockclose burc } | sockopen burc 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 }
on *:sockopen:burc:{
  sockwrite -n $sockname GET /yildizfali/ $+ %lnk $+ .asp HTTP/1.0
  sockwrite -n $sockname User-Agent: Mozilla
  sockwrite -n $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -n $sockname $crlf
}
on *:sockread:burc:{
  sockread -f %burc
  if $regex(%burc,/&nbsp;(.+)</td>/i) && $len($regml(1)) > 80 {
    msg %burchn [[ %lnk fali yorumu ]]
    msg %burchn 4<2 %burcnck 4> $gettok($regml(1),1-2,46)
    msg %burchn 4<2 %burcnck 4> $gettok($regml(1),3-5,46)
    msg %burchn 4<2 %burcnck 4> $gettok($regml(1),6-8,46)
  }
}

on *:text:*:#: {
  if $regex($1,/^[!.]bur[cç]/i) {
    ; Burç isimlerini düzeltme ve eşleştirme
    if $regex($2,/(ko[cç]|bo[gğ]a|[İi]kizler|yenge[cç]|a[rs]lan|ba[sş]ak|terazi|akrep|yay|o[gğ]lak|kova|bal[ıi]k)/i) {
      var %b = $lower($regml(1))
      %b = $replace(%b,ç,c,ğ,g,ı,i,ş,s,ö,o,ü,u)
      set %lnk %b
      set %burchn $chan
      set %burcnck $nick
      burc
    }
  }
}

alias burc { 
  if ($sock(burc)) { sockclose burc } 
  ; -e parametresi SSL (HTTPS) üzerinden bağlanmayı sağlar
  sockopen -e burc 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
443 
}

on *:sockopen:burc:{
  if ($sockerr) { msg %burchn Bağlantı hatası oluştu. | return }
  sockwrite -n $sockname GET /yildizfali/ $+ %lnk $+ .asp 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 User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64)
  sockwrite -n $sockname Connection: close
  sockwrite -n $sockname $crlf
}

on *:sockread:burc:{
  if ($sockerr) { return }
  var %br
  sockread %br
  if $regex(%br, /<p>(.+?)<\/p>/i) {
    var %yorum = $regml(1)
    ; HTML kodlarını temizle
    %yorum = $regsubex(%yorum, /<[^>]*>/g, $null)
    if ($len(%yorum) > 100) {
      msg %burchn 4[12 %lnk 4] %yorum
    }
  }
}