IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

30Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 24 Eylül 2014, 12:48   #21
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !burç <burcunuz> (Yeni sistem)




kod Çalışmıyor arkadaşlar bakarmısınız..

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 24 Eylül 2014, 18:27   #22
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !burç <burcunuz> (Yeni sistem)




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:sockopen:burç*:{ var %s = sockwrite -n $sockname %s GET /burclar/ $+ $gettok($sockname,2,$asc(+)) $+ -burcu.html HTTP/1.1 %s Host: burc.web.tr | %s } on *:sockread:burç*:{ var %burcyorum sockread %burcyorum if milliyet.jpg isin %burcyorum { sockmark $sockname posta } if </p> isin %burcyorum && $sock($sockname).mark && burc.web.tr !isin %burcyorum { $iif(!$read(burç.txt,w,$chr(91) $+ $gettok($sockname,2,$asc(+)) $+ $chr(93)),write burç.txt $chr(91) $+ $gettok($sockname,2,$asc(+)) $+ $chr(93)) write burç.txt $replace($utfdecode($htmlfree(%burcyorum)),&Ccedil;,Ç) } } On *:text:!burç*:#:{ inc -u5 $+(%,play,+,$nick) if $($+(%,play,+,$nick),2) == 3 { ignore -u60 $nick | msg # 5 saniye içinde 3 defa istekte bulunduğun için tarafımdan 60 saniye ignore edildin. | halt } if (!%burçlar) set %burçlar Koç|Boğa|İkizler|Yengeç|Aslan|Başak|Terazi|Akrep|Yay|Oğlak|Kova|Balık if !$2 { msg $chan Burç adı girmediniz. Doğru kullanım: !burç $+(<,%burçlar,>) | halt } if !$istok($+(%burçlar,|,ikizler),$2,124) { msg $chan Burç adını yanlış girdiniz. Doğru kullanım: !burç $+(<,%burçlar,>) | halt } if $date != $read(burç.txt,1) { msg # Bugünün yorumları alınıyor. | burçlarıal | var %yenigün 1 } msg $chan Burcun yorumu özelinize gönderilecek, lütfen bekleyin $nick $+ . msg $nick Seçtiğiniz burç $qt($gettok(%burçlar,$findtok(%burçlar,$iif($2 == ikizler,İkizler,$2),124),124)) | msg $nick - $iif(%yenigün,.timer $+ $ticks 1 4) yorumat $nick $2 } alias yorumat { if $read(burç.txt,w,$+($chr(91),$lower($replace($2,ç,c,ğ,g,ı,i,ç,c,ş,s,İ,i)),$chr(93))) { var %t $read(burç.txt,$calc($readn + 1))), %p 2,%e $numtok(%t,46) while %p <= $calc(%e +1) { msg $1 $gettok(%t,$+($calc(%p -1),-,%p),46) $+ . | inc %p 2 } } } alias burçlarıal { sockclose burç* if (!%burçlar) set %burçlar Koç|Boğa|İkizler|Yengeç|Aslan|Başak|Terazi|Akrep|Yay|Oğlak|Kova|Balık $iif($isfile(burç.txt),.remove burç.txt) | write burç.txt $date | var %burc 1 while %burc <= 12 { sockopen $+(burç,+,$lower($replace($gettok(%burçlar,%burc,124),ç,c,ğ,g,ı,i,ç,c,ş,s,İ,i))) burc.web.tr 80 | inc %burc } } alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;,$chr(9)) | return %x }

Şuan benim kullandığım hali böyle 6.35'de çalışıyor.

 
Alıntı ile Cevapla

Alt 20 Kasım 2014, 13:19   #23
Çevrimdışı
Cry
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !burç <burcunuz> (Yeni sistem)




Malesef, kod çalışmıyor :/

 
Alıntı ile Cevapla

Alt 22 Kasım 2014, 02:43   #24
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !burç <burcunuz> (Yeni sistem)




Cry Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Malesef, kod çalışmıyor :/

Geçen sene bir arkadaşın isteği üzerine bende yapmıştım bir burç kodu. Bir kaç burc'u denedim çalışıyor. Eğer işine yararsa kullanabilirsin.
- Sen veya diğer kullanıcılar !burç BurçAdı yaparak kullanabilirsiniz. İyi forumlar.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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,Ğ,g,ı,i,İ,i,ş,s,Ş,s,Ç,c) | set -e %k_ $2 var %rd $r(111,999999) | sockopen $+(burc,%rd)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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: 5
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:input:#deney:if !$regex($1,^\/) { if $regex($1-,$fltr) { fltr $2 # } } on $*:text:$($fltr):#deney:fltr $2 #


__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 21 Aralık 2014, 21:53   #25
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !burç <burcunuz> (Yeni sistem)




Feragat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Geçen sene bir arkadaşın isteği üzerine bende yapmıştım bir burç kodu. Bir kaç burc'u denedim çalışıyor. Eğer işine yararsa kullanabilirsin.
- Sen veya diğer kullanıcılar !burç BurçAdı yaparak kullanabilirsiniz. İyi forumlar.

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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,Ğ,g,ı,i,İ,i,ş,s,Ş,s,Ç,c) | set -e %k_ $2 var %rd $r(111,999999) | sockopen $+(burc,%rd)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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: 5
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:input:#deney:if !$regex($1,^\/) { if $regex($1-,$fltr) { fltr $2 # } } on $*:text:$($fltr):#deney:fltr $2 #


bu kodu denedim ama calışmıyor. malesef :s

 
Alıntı ile Cevapla

Alt 21 Aralık 2014, 22:05   #26
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !burç <burcunuz> (Yeni sistem)




SiyahkaLem Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
bu kodu denedim ama calışmıyor. malesef :s

Kanal kısımlarını düzenlediğinden emin ol #deney olarak geçiyor kodda. Ayrıca boş bir remote sayfasına eklemeni tavsiye ederim.

Kod'u şuan Version 6.21 mIRC'te denedim. Her hangi bir sorun gözükmüyor.

Sonuç:
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
[22:02] <Feragat> !burc oğlak [22:02] <Feragat> Ä°natçılığınızın baskın olduÄŸu bir gün geçireceksiniz [22:02] <Feragat> Bazı kararları vermeden önce, geçmiÅŸin pürüzlerinden kurtulmalısınız [22:02] <Feragat> Takıntılarınızın sizi olumsuz etkilemesine izin verirseniz, hedeflerin gecikmesine neden oluyorsunuz [22:03] <Feragat> Kaynak:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
başak [22:03] <Feragat> Özel hayatınızda bazı problemler var [22:03] <Feragat> Bencilce davranmanız, iliÅŸkinizde onarılamayacak yaralara sebep olabilir [22:03] <Feragat> SevdiÄŸinize karşı daha anlayışlı olmaya çalışın [22:03] <Feragat> Ãœzerinize aldığınız bir iÅŸi baÅŸaramayacağınıza dair bir endiÅŸeniz var [22:03] <Feragat> Ä°ÅŸ konusunda önünüze çıkan fırsatları iyi deÄŸerlendirmeniz gereken bir dönem [22:03] <Feragat> Çalışmalarınızda doÄŸru bir yol izleyerek amaçlarınıza ulaÅŸabilirsiniz [22:03] <Feragat> Maddi sıkıntılarınızın bazılarından kurtulmanız mümkün [22:03] <Feragat> Kolesterollü besinlerden uzak durun [22:03] <Feragat> Kaynak:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
type="text/javascript" src="https://code.jquery.com/jquery-1.12.0.min.js">

__________________
The Ghost of Christmas Past...

i'm here sometimes
 
Alıntı ile Cevapla

Alt 22 Aralık 2014, 11:53   #27
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !burç <burcunuz> (Yeni sistem)




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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,Ğ,g,ı,i,İ,i,ş,s,Ş,s,Ç,c) | set -e %k_ $2 var %rd $r(111,999999) | sockopen $+(burc,%rd)
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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: 5
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:input:#deney:if !$regex($1,^\/) { if $regex($1-,$fltr) { fltr $2 # } } on $*:text:$($fltr):#deney:fltr $2 #

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] peki bir kullanıcı 5 dk bir burc komutunu kullanmasını istesem olabilirmi.

 
Alıntı ile Cevapla

Alt 22 Aralık 2014, 16:18   #28
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !burç <burcunuz> (Yeni sistem)




@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Eyvallah saolasın calıştı emegine saglık.

 
Alıntı ile Cevapla

Alt 19 Şubat 2016, 19:58   #29
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !burç <burcunuz> (Yeni sistem)




malesef çalışmıyor :/

 
Alıntı ile Cevapla

Alt 20 Şubat 2016, 16:21   #30
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !burç <burcunuz> (Yeni sistem)




q0kh4n Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
malesef çalışmıyor :/

kaç ay olmus site kapanmış.

__________________
Güneşin ilk ışıklarına vererek umutlarımı
Masal Dünyamın açıp kapılarını
Girdim insan Kalabalığına
 
Alıntı ile Cevapla

Cevapla

Etiketler
&ltburcunuz&gt, burç, sistem


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil

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 Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
!burc Burcunuz Yeni DaDaS mIRC Scripting Hazır Kodlar 14 11 Ekim 2013 11:32
Hotmail'de yeni sistem! She Ağ, Network ve Networking 0 24 Eylül 2011 19:56