Sohbet muhabbet sohbet, sohbet odası
reklam alanı reklam alanı

  • Konu İçeriğini Görebilmek İçin Lütfen Üye Olun. Aksi Takdirde İçeriği Göremezsiniz.

mIRC Aşk Uyumu (Eğlence)

admin

Forever mIRCX!
Yönetici
Yetkili
mIRCX Admin
Denetleyici
Katılım
16 Kas 2019
Mesajlar
343
Tepkime puanı
0
Puanları
16
Konum
public_html
Web sitesi
www.mircx.net

İtibar:

Merhaba,

Bu komut vasıtasıyla iki burcun aşk uyum oranına bakabilirsiniz.

Kod:
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
  }
}
Kullanım: [!.]aşkuyumu KadınBurç ErkekBurç
 
Üst Alt