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 Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)
-   -   mIRC Güncel Burç Yorumları Kodu. (https://www.ircforumlari.net/mirc-parca-kodlar/943968-mirc-guncel-burc-yorumlari-kodu.html)

YouMyCure 12 Kasım 2021 18:31
mIRC Güncel Burç Yorumları Kodu.
 
İşlev: Günlük Burç Yorumlarını Yansıtır.
Kullanımı: !burc ikizler (kanalda)

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

Kod:
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,,$chr(9)) | return %x }
on *:sockopen:_burc: {
  sockwrite -nt $sockname GET $+(/gunluk-burc/,$token($sock($sockname).mark,1,191)) HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr | sockwrite -nt $sockname $crlf
}
on *:sockread:_burc:{
  var %i | sockread %i | $iif(section_title section_title_big isin %i,msg $token($sock($sockname).mark,2,191) 4 $token($htmlfree(%i),8-,32))
  $iif(</p> </div> </div> <br/> <br/> </div> isin %i,msg $token($sock($sockname).mark,2,191) $token(%i,1,60))
}
on *:text:*:#: {
  if $regex($1,/^[!+.&](bur[cçÇ])$/Si) && $2  {
    if !$regex($2,/(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) {
      msg # Hatali burc adı! 2BURCLAR:12 koç boğa ikizler yengeç aslan başak terazi akrep yay oğlak kova balık
    }
    else { sockclose _burc | sockopen _burc
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(_burc) $+($replace($2,ç,c,ğ,g,ş,s,ı,i,İ,i,Ş,s,Ç,c,Ğ,g),¿,#) }
  }
}

Che 13 Kasım 2021 11:36
Cevap: mIRC Güncel Burç Yorumları Kodu.
 
Emeğine sağlık.

Armator 15 Kasım 2021 00:58
Cevap: mIRC Güncel Burç Yorumları Kodu.
 
Emeğinize sağlık, Türkçe karakter sorunu oluştu bende aşağıdaki şekilde yükleme yaptım.
/load -rs downloads/burc.mrc

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

YouMyCure 16 Kasım 2021 07:56
Cevap: mIRC Güncel Burç Yorumları Kodu.
 
Alıntı:
Armator Nickli Üyeden Alıntı (Mesaj 1042555477)
Emeğinize sağlık, Türkçe karakter sorunu oluştu bende aşağıdaki şekilde yükleme yaptım.
/load -rs downloads/burc.mrc

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
Kod:
alias _tr return $replace($1-,Ö,ö,Ç,ç,Ä°,i,ö,ö,ç,ç,ü,ü,ÅŸ,ş,ı,ı,Å?,ş,ÄŸ,ğ,Ãœ,ü,Ä?,ğ,$chr(39),-)
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,,$chr(9)) | return %x }
on *:sockopen:_burc: {
  sockwrite -nt $sockname GET $+(/gunluk-burc/,$token($sock($sockname).mark,1,191)) HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr | sockwrite -nt $sockname $crlf
}
on *:sockread:_burc:{
  var %i | sockread %i | $iif(section_title section_title_big isin %i,msg $token($sock($sockname).mark,2,191) 4 $token($htmlfree(%i),8-,32))
  $iif(</p> </div> </div> <br/> <br/> </div> isin %i,msg $token($sock($sockname).mark,2,191) $_tr($token(%i,1,60)))
}
on *:text:*:#: {
  if $regex($1,/^[!+.&](bur[cçÇ])$/Si) && $2  {
    if !$regex($2,/(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) {
      msg # Hatali burc adı! 2BURCLAR:12 koç boğa ikizler yengeç aslan başak terazi akrep yay oğlak kova balık
    }
    else { sockclose _burc | sockopen _burc
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(_burc) $+($replace($2,ç,c,ğ,g,ş,s,ı,i,İ,i,Ş,s,Ç,c,Ğ,g),¿,#) }
  }
}
olarak güncelleyiniz

Armator 16 Kasım 2021 13:14
Cevap: mIRC Güncel Burç Yorumları Kodu.
 
Başlık içinde bir düzenleme yapabilir miyiz rica etsem.:tatli:

İkizler Burcu Günlük Burç Yorumu - 16 Kasım 2021

Kod gayet güzel, kaliteli, kısa ve öz uzatılmadan yazılmış, emeğinize sağlık.

Forbidden 16 Kasım 2021 21:15
Cevap: mIRC Güncel Burç Yorumları Kodu.
 
Alıntı:
Armator Nickli Üyeden Alıntı (Mesaj 1042555907)
Başlık içinde bir düzenleme yapabilir miyiz rica etsem.:tatli:

İkizler Burcu Günlük Burç Yorumu - 16 Kasım 2021

Kod gayet güzel, kaliteli, kısa ve öz uzatılmadan yazılmış, emeğinize sağlık.
Kod:
alias _tr return $replace($1-,Ö,ö,Ç,ç,Ä°,i,ö,ö,ç,ç,ü,ü,ÅŸ,ş,ı,ı,Å?,ş,ÄŸ,ğ,Ãœ,ü,Ä?,ğ,$chr(39),-)
alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,,$chr(9)) | return %x }
on *:sockopen:_burc: {
  sockwrite -nt $sockname GET $+(/gunluk-burc/,$token($sock($sockname).mark,1,191)) HTTP/1.1
  sockwrite -nt $sockname Host: $sock($sockname).addr | sockwrite -nt $sockname $crlf
}
on *:sockread:_burc:{
  var %i | sockread %i | $iif(section_title section_title_big isin %i,msg $token($sock($sockname).mark,2,191) 4 $_tr($token($htmlfree(%i),8-,32)))
  $iif(</p> </div> </div> <br/> <br/> </div> isin %i,msg $token($sock($sockname).mark,2,191) 5 $_tr($token(%i,1,60)))
}
on *:text:*:#Kanal: {
  if $regex($1,/^[!.-]bur[cçÇ]$/Si)  {
    if $hget(burc,$nick) { .notice $nick 4 $nick 2Bu komut için (4 $hget(burc,$nick).unset 2) Saniye beklemeniz gerekir. | return }
    .hinc -msu60 burc $nick 
    if !$regex($2,/(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) { 
      msg # 4 $+ $nick $+ : 1Hatali burc adı!
      msg # 4BURC: koç boğa ikizler yengeç aslan başak terazi akrep yay oğlak kova balık
    }
    else { sockclose _burc | sockopen _burc
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 | sockmark $+(_burc) $+($replace($2,ç,c,ğ,g,ş,s,ı,i,İ,i,Ş,s,Ç,c,Ğ,g),¿,#) }
  }
}


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

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