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

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

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

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

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.

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

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

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 #

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

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/

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.

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

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

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

malesef çalışmıyor :/

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

Alıntı:

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

malesef çalışmıyor :/

kaç ay olmus site kapanmış.