Döviz Kurları - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Toprak · 06 Ekim 2014, 00:30

İyi akşamlar,
Bir arkadaşın isteği üzerine yapıldı biraz basit oldu ama işinize yarar diye paylaşmak istedim;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
on *:input:#:if ($1 == !doviz) { set %:kanal # | sockclose kurx | sockopen kurx 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 }
on *:sockopen:kurx:{
  sockwrite -nt $sockname GET / HTTP/1.1
  sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname $crlf
  unset %:dolar | unset %:euro | unset %:sterlin
}
on *:sockread:kurx:{
  var %:kur | sockread %:kur | tokenize 32 %:kur
  if (*<li class="midrow alis" title="Dolar Alış"*  iswm %:kur) || (*<li class="midrow satis" title="Dolar Satış"* iswm %:kur) { set %:dolar $addtok($htmlfree(%:kur),%:dolar,32) }
  if (*<li class="midrow capraz" title="Çapraz Kur: 1 USD*  iswm %:kur) {
    msg %:kanal 4Dolar ($) Alış(TL) =4 $token(%:dolar,2,32)  -   Satış(TL) =4 $token(%:dolar,1,32)  -  Çapraz Kur =4 $htmlfree(%:kur) € ( 1$ = $+($htmlfree(%:kur),€) ) 
  }
  if (*<li class="midrow alis" title="Euro Alış">*  iswm %:kur) || (*<li class="midrow satis" title="Euro Satış"* iswm %:kur) { set %:euro $addtok($htmlfree(%:kur),%:euro,32) }  
  if (*<li class="midrow capraz" title="Çapraz Kur: 1 EUR*  iswm %:kur) {
    msg %:kanal 4Euro (€) Alış(TL) =4 $token(%:euro,2,32)  -   Satış(TL) =4 $token(%:euro,1,32)  -  Çapraz Kur =4 $htmlfree(%:kur) $ ( 1€ = $+($htmlfree(%:kur),$) ) 
  }
  if (*<li class="midrow alis" title="Sterlin Alış">*  iswm %:kur) || (*<li class="midrow satis" title="Sterlin Satış"* iswm %:kur) { set %:sterlin $addtok($htmlfree(%:kur),%:sterlin,32) }  
  if (*<li class="midrow capraz" title="Çapraz Kur: 1 GBP *  iswm %:kur) {  
    msg %:kanal 4Sterlin (£) Alış(TL) =4 $token(%:sterlin,2,32)  -   Satış(TL) =4 $token(%:sterlin,1,32)  -  Çapraz Kur =4 $htmlfree(%:kur) $ ( 1£ = $+($htmlfree(%:kur),$) ) 
  }
}

Ekran Görüntüsü;

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

RedHack · 06 Ekim 2014, 11:13

Ellerine sağlık hocam peki Bunu Botumuza Ekleyebilirmiyiz Sunucudaki arkadaşlarda kullanabilsin.

Toprak · 06 Ekim 2014, 11:19

Tabiki sadece şu kısmı;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:input:#:if ($1 == !doviz) { set %:kanal # | sockclose kurx | sockopen kurx 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 }

Böyle degiştir;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

on *:text:*:#:if ($1 == !doviz) { set %:kanal # | sockclose kurx | sockopen kurx 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 }

Bekir · 06 Ekim 2014, 11:34

Bir yerden tanıdık geliyor ama
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

oFLidu · 12 Aralık 2018, 17:10

Toprak Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

İyi akşamlar,
Bir arkadaşın isteği üzerine yapıldı biraz basit oldu ama işinize yarar diye paylaşmak istedim;

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias htmlfree { if ($len($1-) <= 900) { var %x, %i = $regsub($1,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, ,$chr(9)) | return %x } } 
on *:input:#:if ($1 == !doviz) { set %:kanal # | sockclose kurx | sockopen kurx 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80 }
on *:sockopen:kurx:{
  sockwrite -nt $sockname GET / HTTP/1.1
  sockwrite -nt $sockname Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
sockwrite -nt $sockname $crlf
  unset %:dolar | unset %:euro | unset %:sterlin
}
on *:sockread:kurx:{
  var %:kur | sockread %:kur | tokenize 32 %:kur
  if (*<li class="midrow alis" title="Dolar Alış"*  iswm %:kur) || (*<li class="midrow satis" title="Dolar Satış"* iswm %:kur) { set %:dolar $addtok($htmlfree(%:kur),%:dolar,32) }
  if (*<li class="midrow capraz" title="Çapraz Kur: 1 USD*  iswm %:kur) {
    msg %:kanal 4Dolar ($) Alış(TL) =4 $token(%:dolar,2,32)  -   Satış(TL) =4 $token(%:dolar,1,32)  -  Çapraz Kur =4 $htmlfree(%:kur) € ( 1$ = $+($htmlfree(%:kur),€) ) 
  }
  if (*<li class="midrow alis" title="Euro Alış">*  iswm %:kur) || (*<li class="midrow satis" title="Euro Satış"* iswm %:kur) { set %:euro $addtok($htmlfree(%:kur),%:euro,32) }  
  if (*<li class="midrow capraz" title="Çapraz Kur: 1 EUR*  iswm %:kur) {
    msg %:kanal 4Euro (€) Alış(TL) =4 $token(%:euro,2,32)  -   Satış(TL) =4 $token(%:euro,1,32)  -  Çapraz Kur =4 $htmlfree(%:kur) $ ( 1€ = $+($htmlfree(%:kur),$) ) 
  }
  if (*<li class="midrow alis" title="Sterlin Alış">*  iswm %:kur) || (*<li class="midrow satis" title="Sterlin Satış"* iswm %:kur) { set %:sterlin $addtok($htmlfree(%:kur),%:sterlin,32) }  
  if (*<li class="midrow capraz" title="Çapraz Kur: 1 GBP *  iswm %:kur) {  
    msg %:kanal 4Sterlin (£) Alış(TL) =4 $token(%:sterlin,2,32)  -   Satış(TL) =4 $token(%:sterlin,1,32)  -  Çapraz Kur =4 $htmlfree(%:kur) $ ( 1£ = $+($htmlfree(%:kur),$) ) 
  }
}

Ekran Görüntüsü;

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Bu koda çeyrek altın eklenebilir mi?

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Döviz işlemleri	Burce	Ödev ve Tezler	0	13 Mayıs 2014 17:54
Kapalıçarşı'da döviz	Cemalizim	Haber Arşivi	0	07 Ekim 2008 13:41

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.