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

- mIRC Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)

- - Güncel Altın ve döviz fiyatları (https://www.ircforumlari.net/mirc-parca-kodlar/808392-guncel-altin-ve-doviz-fiyatlari.html)

Güncel Altın ve döviz fiyatları

Kod:

alias d_exc_total return $+(=,$chr(3),12) $remove($replace($gettok($gettok($1,15-,$asc(")),2-1,44),$chr(44),$+($chr(32),TL,$chr(32),$chr(3),4),:,$+(:,$chr(32))),") TL 

alias exchange { 

  sockopen exchange bigpara.hurriyet.com.tr 80

sockmark exchange http://bigpara.hurriyet.com.tr/altin/ }

on *:sockopen:exchange: {

  if ($sockerr) { echo $color(notice) -a *** Siteye bağlantı sağlanamadı! | return }

  sockwrite -n $sockname GET $sock($sockname).mark HTTP/1.1

  sockwrite -n $sockname Host: $sock($sockname).addr

  sockwrite -n $sockname User-Agent: */*

  sockwrite -n $sockname Connection: Close

sockwrite -n $sockname }

on *:sockread:exchange: { if ($sockerr) { echo $color(notice) -a *** Veriler alinamadi! | return }

  var %d_exc | sockread %d_exc | if ($sockbr) {

 if $regex(%d_exc,/var \$altindata =/i) { var %r 1 | while %r <= $numtok(%d_exc,123) { %total = $gettok(%d_exc,%r,123)

        if *"sembolid":2199* iswm $gettok(%total,1-1,123) { echo $color(notice) -a *** GRAM ALTIN $d_exc_total($v2) }

        if *"sembolid":473* iswm $gettok(%total,1-1,123) { echo $color(notice) -a *** CUMHURİYET ALTINI $d_exc_total($v2) }

        if *"sembolid":2356* iswm $gettok(%total,1-1,123) { echo $color(notice) -a *** CEYREK ALTIN $d_exc_total($v2) }

        if *"sembolid":2640* iswm $gettok(%total,1-1,123) { echo $color(notice) -a *** 22 AYAR BİLEZİK $d_exc_total($v2) }

        if *"sembolid":2355* iswm $gettok(%total,1-1,123) { echo $color(notice) -a *** YARIM ALTIN $d_exc_total($v2) }

        if *"sembolid":1302* iswm $gettok(%total,1-1,123) { echo $color(notice) -a *** DOLAR $d_exc_total($v2) }

        if *"sembolid":1639* iswm $gettok(%total,1-1,123) { echo $color(notice) -a *** EURO $d_exc_total($v2) }

inc %r } } } }

on *:sockclose:exchange: { echo $color(notice) -a *** $+($chr(3),4) $time  $chr(3) itibari ile güncel fiyatlar listelendi. }

/exchange komutu ile kullanabilirsiniz

*** GRAM ALTIN = alis: 214.008 TL satis: 214.042 TL
*** CUMHURİYET ALTINI = alis: 1420.0 TL satis: 1440.0 TL
*** 22 AYAR BİLEZİK = alis: 194.0 TL satis: 198.0 TL
*** YARIM ALTIN = alis: 682.8 TL satis: 700.54 TL
*** CEYREK ALTIN = alis: 342.32 TL satis: 350.11 TL
*** DOLAR = alis: 5.3721 TL satis: 5.3771 TL
*** EURO = alis: 6.0726 TL satis: 6.0804 TL
*** 21:43:21 itibari ile güncel fiyatlar listelendi.

Cevap: Güncel Altın ve döviz fiyatları

Alıntı:

diEfoRyoU Nickli Üyeden Alıntı (Mesaj 1042010340)

Kod:

alias d_exc_total return $+(=,$chr(3),12) $remove($replace($gettok($gettok($1,15-,$asc(")),2-1,44),$chr(44),$+($chr(32),TL,$chr(32),$chr(3),4),:,$+(:,$chr(32))),") TL 

alias exchange { 

  sockopen exchange bigpara.hurriyet.com.tr 80

sockmark exchange http://bigpara.hurriyet.com.tr/altin/ }

on *:sockopen:exchange: {

  if ($sockerr) { echo $color(notice) -a *** Siteye bağlantı sağlanamadı! | return }

  sockwrite -n $sockname GET $sock($sockname).mark HTTP/1.1

  sockwrite -n $sockname Host: $sock($sockname).addr

  sockwrite -n $sockname User-Agent: */*

  sockwrite -n $sockname Connection: Close

sockwrite -n $sockname }

on *:sockread:exchange: { if ($sockerr) { echo $color(notice) -a *** Veriler alinamadi! | return }

  var %d_exc | sockread %d_exc | if ($sockbr) {

 if $regex(%d_exc,/var \$altindata =/i) { var %r 1 | while %r <= $numtok(%d_exc,123) { %total = $gettok(%d_exc,%r,123)

        if *"sembolid":2199* iswm $gettok(%total,1-1,123) { echo $color(notice) -a *** GRAM ALTIN $d_exc_total($v2) }

        if *"sembolid":473* iswm $gettok(%total,1-1,123) { echo $color(notice) -a *** CUMHURİYET ALTINI $d_exc_total($v2) }

        if *"sembolid":2356* iswm $gettok(%total,1-1,123) { echo $color(notice) -a *** CEYREK ALTIN $d_exc_total($v2) }

        if *"sembolid":2640* iswm $gettok(%total,1-1,123) { echo $color(notice) -a *** 22 AYAR BİLEZİK $d_exc_total($v2) }

        if *"sembolid":2355* iswm $gettok(%total,1-1,123) { echo $color(notice) -a *** YARIM ALTIN $d_exc_total($v2) }

        if *"sembolid":1302* iswm $gettok(%total,1-1,123) { echo $color(notice) -a *** DOLAR $d_exc_total($v2) }

        if *"sembolid":1639* iswm $gettok(%total,1-1,123) { echo $color(notice) -a *** EURO $d_exc_total($v2) }

inc %r } } } }

on *:sockclose:exchange: { echo $color(notice) -a *** $+($chr(3),4) $time  $chr(3) itibari ile güncel fiyatlar listelendi. }

Kanala nasıl yansıtabiliriz?

Cevap: Güncel Altın ve döviz fiyatları

Kod:

on *:text:*:#kanal: { if $regex($1,/^(!|\.)kur$/i) { %d_echan = # | exchange } }

yukarıdaki kodu ilk verdiğim kodların en altına yapıştırıyorsun daha sonra
echo $color(notice) -a yazan kısımları msg %d_echan $+($chr(3),5) olarak değiştiryorsun. Artık herhangi bir kullanıcı kanala .kur yazdığında #kanala fiyatlar yansıtılır.