mIRC Scripting

mIRC Scripting (https://www.mircscripting.net/)
-   Snippets - Parça kodlar (https://www.mircscripting.net/snippets-parca-kodlar/)
-   -   !burç <burç-adı> (https://www.mircscripting.net/snippets-parca-kodlar/710-burc-burc-ady.html)

Feragat 07 Şubat 2014 12:41

!burç <burç-adı>
 
Kullanımı: !burç <BurçAdı> Örnek: !burç koç
-Hem ekleyen kişi, hemde diğer kullanıcılar kullanabilir. Boş bir remote sayfasına eklemeniz önerilir.

-Örnek görüntü-
http://i.hizliresim.com/KZE8Gz.jpg


Kod:

alias -l fltr { if $isid { return /^[.!]bur[cçÇ]\s(?:ko[Ççc]|bo[gğĞ]a|[İiı]k[İiı]zler|yenge[cÇç]|aslan|ba[Şşs]ak|teraz[İıi]|akrep|yay|o[Ğğg]lak|kova|bal[iİı]k)$/Si }
  else { set -e %brc $replace($lower($1),ç,c,ğ,g,ı,i,İ,i,ş,s,Ş,s,Ç,c) | set -e %k_ $2
var %rd $r(111,999999) | sockopen $+(burc,%rd) www.saglikveguzellik.net 80 | sockmark $+(burc,%rd) %brc } }
on *:sockopen:burc*:var %b sockwrite -n $sockname | %b GET /gunluk-burclar/ $+ $sock($sockname).mark $+ -burcu/ HTTP/1.1 | %b host: $sock($sockname).addr | %b $crlf
on *:sockread:burc*:var %a | sockread %a | if $regex(%a,/(?:<p>.+(<\/p><p>)?<\/p>\z)/) { tokenize 46 $regsubex(b,%a,/\x3C.+\x3E/UgS,) | msg %k_ 2 $* }
on *:sockclose:burc*:msg %k_ 4Kaynak: 5http://www.saglikveguzellik.net/gunluk-burclar/ $+ $sock($sockname).mark $+ -burcu/
on *:input:#:if !$regex($1,^\/) { if $regex($1-,$fltr) { fltr $2 # } }
on $*:text:$($fltr):#:fltr $2 #

Not: Sunucudaki ads nick'li arkadaşın isteğiydi. Teknik açıdan faydalı yönleri olabileceği için paylaşıyorum. İyi forumlar.

Difuzyon 07 Şubat 2014 21:17

Gayet stabil bir çalışma, tebrikler.

Goemon 09 Şubat 2014 10:08

güzel bir şey olmuş Feragat usta eline sağlık ;)

q0kh4n 13 Ocak 2016 19:21

güzel ama sanırım artık çalışmıyor :)

FuaT 23 Nisan 2018 18:37

alias -l fltr { if $isid { return /^[.!]bur[cçÇ]\s(?:ko[Ççc]|bo[gğĞ]a|[İiı]k[İiı]zler|yenge[cÇç]|aslan|ba[Şşs]ak|teraz[İıi]|akrep|yay|o[Ğğg]lak|kova|bal[iİı]k)$/Si }
else { set -e %brc $replace($lower($1),ç,c,ğ,g,ı,i,İ,i,ş,s,Ş,s,Ç,c) | set -e %k_ $2
var %rd $r(111,999999) | sockopen $+(burc,%rd) Sağlık ve Güzellik Rehberi 80 | sockmark $+(burc,%rd) %brc } }
on *:sockopen:burc*:var %b sockwrite -n $sockname | %b GET /gunluk-burclar/ $+ $sock($sockname).mark $+ -burcu/ HTTP/1.1 | %b host: $sock($sockname).addr | %b $crlf
on *:sockread:burc*:var %a | sockread %a | if $regex(%a,/(?:<p>.+(<\/p><p>)?<\/p>\z)/) { tokenize 46 $regsubex(b,%a,/\x3C.+\x3E/UgS,) | msg %k_ 0,2 $* }
on *:sockclose:burc*:msg %k_ 4Kaynak: 5http://www.saglikveguzellik.net/gunluk-burclar/ $+ $sock($sockname).mark $+ -burcu/
on *:input:#:if !$regex($1,^\/) { if $regex($1-,$fltr) { fltr $2 # } }
on $*:text:$($fltr):#:fltr $2 #
GAYET GÜZEL ÇALISIYOR HALA.


on *:input:#:if burayı ben denemek icin input yaptım siz text yaparak kullanabilirsiniz.


https://resmim.net/f/Pwhozr.png

ZaLiM1979 30 Mart 2019 23:55

Selamun Aleyküm

bende * /sockopen: invalid parameters (line 3, Burc.mrc) hatasi verdi. acaba yardimci olabilecek arkadaslar varmi? tskler

ZaLiM1979 31 Mart 2019 01:03

Pardon arkadaslar burda yeni oldugum icin nerde soracagimi bilemedim..

elimde bi kod var (benim degil) tek serverde calisiyor onun tüm baglandigim serverlerde kulabilmem icin yardim gerek. konuyu nereye acabilir ve codu kopya edebilirim? tskler


++ mIRCScripting.net hakkında kısaca:

mS; "Gayri resmi mIRC" kullanıcı ve tasarımcı topluluğudur.
2009 yılında kurulan mS; tasarımcı ve geliştiricileri bir araya getiren etkileşim ve iletişim sağlayan bir platformdur.
mS; tasarım, programlama, geliştirme, düzenleme vb. pek çok konu etrafında bir araya gelmiş "mIRC" meraklısı bir çok insan tarafından yaratılan içeriğiyle; kullanıcı dostu, özgün elit, nitelikli kişi ve konularla hizmet sunan mIRC Scripting platformudur.

Özgün içerikten onay almaksızın içeriği yaratan kullanıcılarımız tamamen yada kısmen sorumludur, aynı zamanda söz konusu içerik mS yetkilileri izni olmaksızın, kaynak gösterilse dahi(!) kopyalanamaz ve/ya paylaşılamaz.   Site/içerik hakkında görüş, öneri ve şikayetleriniz için sikayet[at]mircscripting[dot]net e-posta ve ya İletişim adresinden bizlere ulaştırabilirsiniz.



mIRC mIRC Orjinal mIRC İndir mIRC Download mIRC Tutorials mIRC Socket mIRC Commands mIRC Komutlar mIRC Yükle mIRC Dersler mIRC Hazır Kodlar mIRC Classentifier mIRC DLL mIRC Dialog mIRC IRC mIRC FTP mIRC Telnet mIRC Help
mIRC Yardım mIRC Iconlar mIRC Com Object mIRC Binary Files mIRC Picture Windows mIRC Unicode mIRC Forum mIRC Hazır Kodlar mIRC Kod mIRC Script mIRC File Handling mIRC Scripting Language mIRC Scripting Dili mIRC Scripting Info
mIRC Scripting Tutorials



User Alert System provided by Advanced User Tagging v3.1.3 (Lite) - vBulletin Mods & Addons Copyright © 2026 DragonByte Technologies Ltd. Runs best on HiVelocity Hosting.

1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76

SEO by vBSEO 3.6.1