IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

Bir kullanıcının isteği üzerine yapmıştım sizlerinde kullanması için kodu paylaşıyorum.

Kod:

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 www.piyasadoviz.com 80 }

on *:sockopen:kurx:{

  sockwrite -nt $sockname GET / HTTP/1.1

  sockwrite -nt $sockname Host: www.piyasadoviz.com

  sockwrite -nt $sockname $crlf

  unset %:dolar | unset %:euro | unset %:sterlin

}

on *:sockread:kurx:{

  var %:kur | sockread %:kur | tokenize 32 %:kur

  if (*
  if (*
*  iswm %:kur) || (*

  if (*
*  iswm %:kur) || (*

  if (*
https://i.hizliresim.com/2Q9QDj.png