mIRC Scripting Hazır Kodlar mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz. |
|
Seçenekler | Stil |
02 Şubat 2020, 22:39 | #1 |
mIRC Aşk Uyumu (Eğlence)
Merhaba,
Bu komut vasıtasıyla iki burcun aşk uyum oranına bakabilirsiniz. Kodon *: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 } } İyi forumlar. |
|
|
02 Şubat 2020, 22:39 | #2 |
Ooo iyimis eline sağlık
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
________________
Sayonaraaa.. |
|
|
03 Şubat 2020, 23:15 | #3 |
Güzel bir komutmuş emeginize sağlık.
________________
~ E & B ~ |
|
|
30 Nisan 2020, 13:47 | #4 |
Çok güzel bir komut hiç görmemişim bu konuyu : ) emeğine sağlık
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
________________
Edep; aklın Tercümanıdır. İnsan edebi kadar akıllı, Aklı kadar şerefli, Şerefi kadar Kıymetlidir. Massive.. ~ E & B ~ |
|
|
22 Haziran 2020, 21:30 | #5 |
Muhtişim, güzel düşünmüşsünüz.
________________
"Vatan ne Türkiyedir Türklere, ne Türkistan Vatan, büyük ve müebbet bir ülkedir: Turan"
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] |
|
|
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
|
|