mIRC Scripting  


Geri dön   mIRC Scripting > mIRC Scripting > Snippets - Parça kodlar

Snippets - Parça kodlar mIRC Scripting hakkında "parça /ufak kod" niteliği taşıyan kodlarını bulup veya paylaşabileceğiniz bölüm.

Like Tree5Teşekkür
  • 4 Post By Feragat
  • 1 Post By FuaT
Cevapla
 
LinkBack Seçenekler
  #1  
Alt 07 Şubat 2014, 12:41
Feragat - ait Kullanıcı Resmi (Avatar)
 Chief 

mS Puan: 801
mS Derece: Feragat ÇalışkanFeragat ÇalışkanFeragat ÇalışkanFeragat ÇalışkanFeragat ÇalışkanFeragat ÇalışkanFeragat Çalışkan
 
Üyelik tarihi: 31 Mart 2012
Bulunduğu yer: $mircdir
Mesajlar: 88
Konular: 41
Eklentiler: 5
Alınan Teşekkür: 59
Yapılan Teşekkür: 36
Cool !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ü-



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.
aquabluee, Che, FuaT ve 1 diğerleri buna teşekkür ettiler.
__________________
Vi veri veniversum vivus vici..

Konu Feragat tarafından (14 Şubat 2014 Saat 00:12 ) değiştirilmiştir. Sebep: 3 Alias, 1 Alias a düşürüldü.
Alıntı ile Cevapla
  #2  
Alt 07 Şubat 2014, 21:17
Avatar Yok
 Coders 

mS Puan: 621
mS Derece: Difuzyon ÇalışkanDifuzyon ÇalışkanDifuzyon ÇalışkanDifuzyon ÇalışkanDifuzyon ÇalışkanDifuzyon Çalışkan
 
Üyelik tarihi: 16 Temmuz 2009
Bulunduğu yer: code talks!
Mesajlar: 83
Konular: 36
Eklentiler: 4
Alınan Teşekkür: 5
Yapılan Teşekkür: 0
Standart

Gayet stabil bir çalışma, tebrikler.
__________________
Koli
Alıntı ile Cevapla
  #3  
Alt 09 Şubat 2014, 10:08
Avatar Yok

mS Puan: 311
mS Derece: Goemon MeraklıGoemon MeraklıGoemon MeraklıGoemon Meraklı
 
Üyelik tarihi: 05 Ekim 2012
Mesajlar: 91
Konular: 70
Eklentiler: 0
Alınan Teşekkür: 5
Yapılan Teşekkür: 28
Standart

güzel bir şey olmuş Feragat usta eline sağlık
Alıntı ile Cevapla
  #4  
Alt 13 Ocak 2016, 19:21
Avatar Yok

mS Puan: 1
mS Derece: q0kh4n
 
Üyelik tarihi: 04 Mayıs 2014
Mesajlar: 2
Konular: 0
Eklentiler: 0
Alınan Teşekkür: 1
Yapılan Teşekkür: 21
Standart

güzel ama sanırım artık çalışmıyor
Alıntı ile Cevapla
  #5  
Alt 23 Nisan 2018, 18:37
Avatar Yok

mS Puan: 1
mS Derece: FuaT
 
Üyelik tarihi: 27 Kasım 2016
Mesajlar: 2
Konular: 0
Eklentiler: 0
Alınan Teşekkür: 1
Yapılan Teşekkür: 1
Standart

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
diE buna teşekkür etti.

Konu FuaT tarafından (23 Nisan 2018 Saat 18:47 ) değiştirilmiştir.
Alıntı ile Cevapla
Cevapla

Etiketler
!burc, !burc kodu, !burç, !burç kodu, <burçadı>, burc kodu, burç, burç kodu

Seçenekler

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Açık
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
/* Burç - AŞK Uyumları */ WingmaN Showcase - Hazır kodlar 1 24 Mayıs 2013 08:51


Yasal Uyarı

    5651 sayılı yasada belirtilen "Yer Sağlayıcı" olarak hizmet sunmaktadır. İlgili yasaya göre site yönetiminin tüm içerikleri kontrol etme yükümlülüğü yoktur. Bu sebep ile sitemiz, uyarıları dikkate alarak yasa dışı paylaşımlar hakkında gerekli işlemleri yapmaktadır. Oluşabilecek yasal sorumluluklar üyelerimize aittir. Gerekli şikayet bildirimleri yapabilmek için "burayı" tıklayarak gerekli alanları doldurup yapabilirsiniz.
mIRCScripting © 2015



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