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)

site kapalı değil ki:)

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 #

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.

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

bendede aynı problem var.

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

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

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

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

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

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

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

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