mIRC Aşk Uyumu (Eğlence)

on *:text:*:#:{
  if $regex($1,/^[!.]a[sşŞ]kuyum(u)?/Si) {
    if !$regex($2,/(ko[cçÇ]|bo[qgğĞ]a|[ıiİ]k[ıiİ]zler|yenge[cçÇ]|aslan|ba[sşŞ]ak|teraz[ıiİ]|akrep|yay|o[qgğĞ]lak|kova|bal[ıiİ]k)$/Si) || !$2 {
      msg # 1Lütfen 12[5!.12]5aşkuyumu 12Kadın-Burç Erkek-Burç 1şeklinde kullanınız.
      msg # 1BURÇLAR:4 koç2 boğa4 ikizler2 yengeç4 aslan2 başak4 terazi2 akrep4 yay2 oğlak4 kova2 balık
      return
    }
    elseif !$regex($3,/(ko[cçÇ]|bo[qgğĞ]a|[ıiİ]k[ıiİ]zler|yenge[cçÇ]|aslan|ba[sşŞ]ak|teraz[ıiİ]|akrep|yay|o[qgğĞ]lak|kova|bal[ıiİ]k)$/Si) || !$3 {
      msg # 1Lütfen 12[5!.12]5aşkuyumu 12Kadın-Burç Erkek-Burç 1şeklinde kullanınız.
      msg # 1BURÇLAR:4 koç2 boğa4 ikizler2 yengeç4 aslan2 başak4 terazi2 akrep4 yay2 oğlak4 kova2 balık
      return
    }
    else {
      var %2 = $replace($lower($strip($2)),ç,c,ğ,g,ş,s,ı,i), %3 = $replace($lower($strip($3)),ç,c,ğ,g,ş,s,ı,i), %r $r(10,99999)
      msg # $+(4,$replace($upper($strip($2)),I,İ,ı,I),13) Kadını1 ve $+(4,$replace($upper($strip($3)),I,İ,ı,I),12) Erkeği1nin aşk uyumuna bakılıyor.       
      sockopen $+(askuyum,%r) www.hurriyetaile.com 80
      sockmark $+(askuyum,%r) $+(%2,¿,%3,¿,#)
    }
  }
}
alias burcbaslik return $replace($1-,KOC,KOÇ,BOGA,BOĞA,IKIZLER,İKİZLER,YENGEC,YENGEÇ,BASAK,BAŞAK,TERAZI,TERAZİ,OGLAK,OĞLAK)
alias _c1 return $replace($1-,ö,ö,ü,ü,ç,ç,İ,İ,…,..,’,',Å,Ş,ç,ç,gÌâ€*,ğ,İ,İ,ö,ö,ö,ö,ş,ş,ü,ü,’,',“,",â€,")
alias _c2 return $replace($1-,ü,ü,ÃĦ,ö,ü,ü,_,$chr(32),ı,ı,ü,ü,ð,ğ,ÄŸ,ğ,þ,ş,ŞÅ¸,ş,ö,Ö,İ,İ,ç,ç,Ü,Ü,Ö,Ö,Ç,Ç,Ã,Ş,ÿ,$chr(160),é,é,-,$chr(32),ÿ,-,",-,ü,ü,ç,ç,ı,ı,ş,ş,ı,ı,ğ,ğ)
on *:sockopen:askuyum*:{
  sockwrite -nt $sockname GET $+(/ebeveyn/kadin-erkek-burc-uyumu/,$token($sock($sockname).mark,1,191),-kadini-,$token($sock($sockname).mark,2,191),-erkegi) HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr
  sockwrite -nt $sockname Connection: keep-alive
  sockwrite -nt $sockname Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8
  sockwrite -nt $sockname Upgrade-Insecure-Requests: 1
  sockwrite -nt $sockname User-Agent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/44.0.2403.155 Safari/537.36
  sockwrite -nt $sockname Accept-Language: tr-TR,tr;q=0.8,en-US;q=0.6,en;q=0.4
  sockwrite -nt $sockname $crlf
}
on *:sockread:askuyum*:{
  var %:askuyum | sockread -f %:askuyum | tokenize 32 %:askuyum
  if $regex($1-,/<div class="chart" data-percent="(.+?)">/i) { set %askoran $+(%,$regml(1)) }
  if $regex($1-,/YORUMU<\/h1>/i) { inc %:aboks }
  elseif $regex($1-,/(.+)/i) && %:aboks == 1 {
    var %m $_c1($_c2($regml(1)))
    msg $token($sock($sockname).mark,3,191)
    msg $token($sock($sockname).mark,3,191) $+(4,$upper($burcbaslik($token($sock($sockname).mark,1,191))),13) Kadını1 ve $+(4,$upper($burcbaslik($token($sock($sockname).mark,2,191))),12) Erkeği1nin Aşk Uyumu Yorumu
    msg $token($sock($sockname).mark,3,191)
    msg $token($sock($sockname).mark,3,191) $+(,$token(%m,1,46),.)
    msg $token($sock($sockname).mark,3,191) $+(,$token(%m,2,46),.)
    $iif($token(%m,3,46),msg $token($sock($sockname).mark,3,191) $+(,$token(%m,3,46),.))
    $iif($token(%m,4,46),msg $token($sock($sockname).mark,3,191) $+(,$token(%m,4,46),.))
    $iif($token(%m,5,46),msg $token($sock($sockname).mark,3,191) $+(,$token(%m,5,46),.))
    $iif($token(%m,6,46),msg $token($sock($sockname).mark,3,191) $+(,$token(%m,6,46),.))
    $iif($token(%m,7,46),msg $token($sock($sockname).mark,3,191) $+(,$token(%m,7,46),.))
    $iif($token(%m,8,46),msg $token($sock($sockname).mark,3,191) $+(,$token(%m,8,46),.))
    $iif($token(%m,9,46),msg $token($sock($sockname).mark,3,191) $+(,$token(%m,9,46),.))
    $iif($token(%m,10-,46),msg $token($sock($sockname).mark,3,191) $+(,$token(%m,10-,46),.))
    msg $token($sock($sockname).mark,3,191)
    msg $token($sock($sockname).mark,3,191) 1Aşk Uyumu:4 %askoran
    unset %askoran | unset %:aboks | sockclose $sockname
  }
}