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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

- mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)

- - !burç <burcunuz> (Yeni sistem) (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/495889-bur231-ltburcunuzgt-yeni-sistem.html)

Paint

17 Temmuz 2012 02:28

!burç <burcunuz> (Yeni sistem)

Genellikle yazılan burç kodlarında, çalışma prensibi siteye bağlanıp yorumu alıp kullanıcıya yansıtmaktır ve bu işlevi her istekte tekrarlamak, ama bu sistem bana saçma geldi, çünkü günlük burç yorumu gün içerisinde aynıdır her defasında tekrar bağlanıp siteyle muhattap olmaya gerek yok. Yazdığım kod eğer o günün yorumları daha önceden alınmamışsa siteye bağlanıp tek seferde bütün yorumları alıyor ve isteyen kullanıcılara gönderiyor.

Kullanımı: !burç <burcunuz>

Not: Türkçe karekter duyarlıdır.
!burc koc gibi yazarsanız işlem yapmaz.

Kod:

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 </p></div> 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 $utfdecode($htmlfree(%burcyorum)) } }
 

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 6) 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 }

IrCbaStarD

21 Temmuz 2012 04:35

Cevap: !burç <burcunuz> (Yeni sistem)

Not: Türkçe karekter duyarlıdır.
!burc koc gibi yazarsanız işlem yapmaz.

$replace ile değiştirebilirsin, türkçe karaktere görede uyarlıyabilirsin.. :)

Paint

21 Temmuz 2012 04:50

Cevap: !burç <burcunuz> (Yeni sistem)

Alıntı:

IrCbaStarD Nickli Üyeden Alıntı (Mesaj 1041174778)

Not: Türkçe karekter duyarlıdır.
!burc koc gibi yazarsanız işlem yapmaz.

$replace ile değiştirebilirsin, türkçe karaktere görede uyarlıyabilirsin.. :)

Bunu özellikle yaptım. Farkettiysen siteye veri gönderirken Türkçe karekterleri çevirmişim $replace ile fakat komutları Türkçe karekter duyarlı yaptım ki Türkçe bilmeyen kullanamasın diye.

Fikrin için teşekkürler.

TechN

06 Eylül 2012 08:10

Cevap: !burç <burcunuz> (Yeni sistem)

güzel paylasım, teşekkürler. :)

Juventus

08 Kasım 2012 05:05

Cevap: !burç <burcunuz> (Yeni sistem)

Çalışmadı neden acaba

Paint

04 Şubat 2013 15:09

Cevap: !burç <burcunuz> (Yeni sistem)

Alıntı:

Juventus Nickli Üyeden Alıntı (Mesaj 1041240612)

Çalışmadı neden acaba

Sorunsuz çalışıyor.

Toprak

04 Şubat 2013 20:35

Cevap: !burç <burcunuz> (Yeni sistem)

7 ay olmuş ne cabuk geçmiş be günler.. :)

fLayer

10 Şubat 2013 00:06

Cevap: !burç <burcunuz> (Yeni sistem)

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

burç istenildiginde

[00:04] <burc> Seçtiğiniz burç "Akrep"
[00:04] <burc> -

devamı yok

Toprak

10 Şubat 2013 00:21

Cevap: !burç <burcunuz> (Yeni sistem)

Alıntı:

KimLikSiz Nickli Üyeden Alıntı (Mesaj 1041278988)

@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

burç istenildiginde

[00:04] <burc> Seçtiğiniz burç "Akrep"
[00:04] <burc> -

devamı yok

Sorun yok @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...], kod sorun'suz çalışıyor.

Kod:

«00:19:55» <ChanServ> !burç koç

«00:19:55» <Toprak> Bugünün yorumları alınıyor.

«00:19:55» <Toprak> Burcun yorumu özelinize gönderilecek, lütfen bekleyin ChanServ.

«00:20:01» -> *ChanServ* Moralinizin ve enerjinizin yüksek olduğu bir gün... İlişkileriniz sıcak ve güçlü olacak. Hem aşk, hem de parasal konulara yönelik çalışmalarınızı hızlandıracaksınız. Projelerinizi gerçekleştirmek için harekete geçebilir ve dostlarınızın desteğini isteyebilirsiniz. Para kazanmak ve çalışmalarınızda başarılı olmak için güçlü arzular duyacaksınız. Üstelik fırsatlar karşınıza çıkacak. Fakat gelişmeler yavaş olabilir ve bu arada siz de işleri ağırdan alabilirsiniz. Bu arada çevrenizde aceleci olanlar ve sizi zorlayanlar çıkabilir. Aklınız yerine duygularınız ile davranırsanız daha başarılı olacaksınız.

Paint

10 Şubat 2013 02:08

Cevap: !burç <burcunuz> (Yeni sistem)

Kod:

alias yorumat { if $read(burç.txt,w,$+($chr(91),$lower($replace($2,ç,c,ğ,g,ı,i,ç,c,ş,s)),$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 } } }

Sorun olan kişiler yorumat aliasını bununla değiştirip denesin.

By_KiLL

04 Haziran 2013 03:10

Cevap: !burç <burcunuz> (Yeni sistem)

Şuan denedim, tek sorun türkçe karakter problemi var.Nasıl düzeltilebilir?

DEwRM

05 Eylül 2013 08:29

Cevap: !burç <burcunuz> (Yeni sistem)

aga bende hiç bi türlü çalışmıyo team veririm bak istersen kafayı yedim ya

Toprak

05 Eylül 2013 10:08

Cevap: !burç <burcunuz> (Yeni sistem)

Alıntı:

DEwRM Nickli Üyeden Alıntı (Mesaj 1041336293)

aga bende hiç bi türlü çalışmıyo team veririm bak istersen kafayı yedim ya

Kod'da herhangi bi sorun yok ekleyip baktım bi sorun göremedim

DEwRM

06 Eylül 2013 01:09

Cevap: !burç <burcunuz> (Yeni sistem)

buda yalan team veriyim bakın yok arkadaş çalışmıyo hiç biri

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 01:09 -->-> Daha önceki mesaj 00:50 --

buyrun bide benim pcde bakın sorun nerde çözelim o zaman :S

uFuK	06 Eylül 2013 14:42

Cevap: !burç <burcunuz> (Yeni sistem)

Alıntı:

DEwRM Nickli Üyeden Alıntı (Mesaj 1041336738)

:uFuK!IRCd@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].unutma.net PRIVMSG #opers :Bugünün yorumları alınıyor.
:uFuK!IRCd@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].unutma.net PRIVMSG #opers :Burcun yorumu özelinize gönderilecek, lütfen bekleyin HyperioN.
:uFuK!IRCd@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].unutma.net PRIVMSG HyperioN :Seçtiğiniz burç "Aslan"
:uFuK!IRCd@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].unutma.net PRIVMSG HyperioN :-
:uFuK!IRCd@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].unutma.net PRIVMSG HyperioN :BugÃ¼n hareket halinde olmak, karmaŞŸÄ±k duygulardan sizi uzaklaŞŸtÄ±racak. Uzaklarda bulunan dostlarÄ±nÄ±zla haberleŞŸebilir ve duyduklarÄ±nÄ±zdan rahatsÄ±z olabilirsiniz. OlaylarÄ± ve iÃ§inde bulunduÄŸunuz durumu sorgulayacaksÄ±nÄ±z fakat fazla derinleŞŸmeseniz iyi olacak. AslÄ±nda daha Ã¶zgÃ¼r bir bakÄ±ŞŸ aÃ§Ä±sÄ±na sahip olabilirsiniz ve bÃ¶ylece takÄ±lÄ± kaldÄ±ÄŸÄ±nÄ±z detaylardan uzaklaŞŸÄ±p dikkatinizi yapmak istediÄŸiniz her ne ise, ona odaklayabilirsin

!burç aslan (Türkçe Karaktere Duyarlı Bunu Unutma)
Burc Yorumunu Özeline Gönderir, Bunuda Unutma.

Kod Çalışıyor.

Paint

06 Eylül 2013 16:12

Cevap: !burç <burcunuz> (Yeni sistem)

Kod:

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 </p></div> 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 $utfdecode($htmlfree(%burcyorum)) } }
 

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 6) 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 }

Denedim çalışıyor ilk mesajdaki kodu yetkililer bu kodla değiştirirse iyi olur.

fLayer

06 Eylül 2013 17:58

Cevap: !burç <burcunuz> (Yeni sistem)

[17:56] <abcd> !burç akrep
[17:56] <Gelhadi> Burcun yorumu özelinize gönderilecek, lütfen bekleyin abcd.

ozelde verdigi cevap başka birşey yok.

[17:56] <Gelhadi> Seçtiğiniz burç "Akrep"
[17:56] <Gelhadi> -
[17:56] <Gelhadi> [ikizler].

DEwRM

06 Eylül 2013 22:19

Cevap: !burç <burcunuz> (Yeni sistem)

teamdan yapabilicek olan varmı arkadaşlar ?

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 22:19 -->-> Daha önceki mesaj 22:11 --

birde texten okutma değil dimi bu
$iif(!$read(burç.txt,w,$chr(91)

Toprak

06 Eylül 2013 22:19

Cevap: !burç <burcunuz> (Yeni sistem)

Alıntı:

DEwRM Nickli Üyeden Alıntı (Mesaj 1041337162)

Pm atın id, şifre yardımcı oluyum.

Reqal

05 Ekim 2013 13:43

Cevap: !burç <burcunuz> (Yeni sistem)

şimdi team versem bu nu scriptimde çalıştırabilirmisiniz ????

RedHack

24 Eylül 2014 12:48

Cevap: !burç <burcunuz> (Yeni sistem)

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

Paint

24 Eylül 2014 18:27

Cevap: !burç <burcunuz> (Yeni sistem)

Kod:

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.

Cry	20 Kasım 2014 13:19

Cevap: !burç <burcunuz> (Yeni sistem)

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

Feragat

22 Kasım 2014 02:43

Cevap: !burç <burcunuz> (Yeni sistem)

Alıntı:

Cry Nickli Üyeden Alıntı (Mesaj 1041546807)

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:

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 #

Bozkurt

21 Aralık 2014 21:53

Cevap: !burç <burcunuz> (Yeni sistem)

Alıntı:

Feragat Nickli Üyeden Alıntı (Mesaj 1041548604)

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,Ğ,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

Feragat

21 Aralık 2014 22:05

Cevap: !burç <burcunuz> (Yeni sistem)

Alıntı:

SiyahkaLem Nickli Üyeden Alıntı (Mesaj 1041574994)

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:

[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: http://www.saglikveguzellik.net/gunluk-burclar/basak-burcu/

KivanC

22 Aralık 2014 11:53

Cevap: !burç <burcunuz> (Yeni sistem)

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,Ğ,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.

Bozkurt

22 Aralık 2014 16:18

Cevap: !burç <burcunuz> (Yeni sistem)

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

q0kh4n

19 Şubat 2016 19:58

Cevap: !burç <burcunuz> (Yeni sistem)

malesef çalışmıyor :/

YouMyCure

20 Şubat 2016 16:21

Cevap: !burç <burcunuz> (Yeni sistem)

Alıntı:

q0kh4n Nickli Üyeden Alıntı (Mesaj 1041744620)

malesef çalışmıyor :/

kaç ay olmus site kapanmış.

q0kh4n

20 Şubat 2016 16:31

Cevap: !burç <burcunuz> (Yeni sistem)

site kapalı değil ki:)

Feragat

20 Şubat 2016 18:57

Cevap: !burç <burcunuz> (Yeni sistem)

Ekstradan fazlaca veri çekiyordu. Renkli bölümü ekledim ve sonrasında fazladan gelen veriyi kestim.

- Kod eski, baya uzatmışım nostalji oldu güldüm biraz :)

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) 
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 $* 

  } 
   if (</article> isin %a) { sockclose $sockname } 

}
 

on *:input:#:if !$regex($1,^\/) { haltdef | if $regex($1-,$fltr) { fltr $2 # } }

on $*:text:$($fltr):#:fltr $2 #

MatheuS

15 Mayıs 2016 08:44

Cevap: !burç <burcunuz> (Yeni sistem)

Alıntı:

Feragat Nickli Üyeden Alıntı (Mesaj 1041744966)

Ekstradan fazlaca veri çekiyordu. Renkli bölümü ekledim ve sonrasında fazladan gelen veriyi kestim.

- Kod eski, baya uzatmışım nostalji oldu güldüm biraz :)

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) 
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 $* 

  } 
   if (</article> isin %a) { sockclose $sockname } 

}
 

on *:input:#:if !$regex($1,^\/) { haltdef | if $regex($1-,$fltr) { fltr $2 # } }

on $*:text:$($fltr):#:fltr $2 #

Kod:

on ^*:text:*:#: { 

  haltdef

  echo -l $chan $timestamp $+ $chr(3) $+ 14 $chr(91) $+ $chr(187) $+ $chr(3) $+ 1 $+ $nick $+ $chr(3) $+ 14 $+ $chr(171) $+ $chr(93) $+ $chr(3) $1- 

}

Echo ile verdiğim için ben türkçe karakterler gözükmüyor hocam. Bi düzenleme yapabilirmiyiz bunun için.

Brain

05 Ağustos 2016 18:19

Cevap: !burç <burcunuz> (Yeni sistem)

bendede aynı problem var.

sad33

30 Aralık 2016 01:07

Cevap: !burç <burcunuz> (Yeni sistem)

Türkçe karakter sorunları var.düzeltilemezmi?

Che	30 Aralık 2016 12:14

Cevap: !burç <burcunuz> (Yeni sistem)

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

ExcLuSive

30 Aralık 2016 12:57

Cevap: !burç <burcunuz> (Yeni sistem)

Paylaşım için teşekkürler.

mustafa21

24 Şubat 2017 17:42

Cevap: !burç <burcunuz> (Yeni sistem)

Sa arkadaslar bu addonlarin hicbiri calismiyor , elinde yeni ve calisan !burc burcunuz addonu varmı Tsk ederim

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 09:59.