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)
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!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)
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)

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)
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 #


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: 15:12.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk