mircxreklam mircxreklam mircxreklam mircxreklam
Sohbet muhabbet sohbet, sohbet odası
Sohbet, Sohbet Odası sohbet
mircx mircx

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

mIRC Aşk Uyumu (Eğlence)

[mIRCX] Konu Bilgileri

Konu Hakkında Merhaba, tarihinde mIRC Scripting Hazır Kodlar kategorisinde admin tarafından oluşturulan mIRC Aşk Uyumu (Eğlence) başlıklı konuyu okuyorsunuz. Bu konu şimdiye dek 224 kez görüntülenmiş, 0 yorum ve 0 tepki puanı almıştır...
Kategori Adı mIRC Scripting Hazır Kodlar
Konu Başlığı mIRC Aşk Uyumu (Eğlence)
Konbuyu başlatan admin
Başlangıç tarihi
Cevaplar
Görüntüleme
İlk mesaj tepki puanı
Son Mesaj Yazan admin

admin

Mustafa Kemal ATATÜRK
Administrator
Katılım
16 Kas 2019
Mesajlar
505
Tepkime puanı
0
Puanları
16
Konum
public_html
Cinsiyet
Erkek
İlgi Alanı
Xenforo
IRC
irc.superalem.org

İ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