IRCForumu.ORG - MIRC Kripto Para Addonu

Kod:

on *:sockopen:_kripto: { 

  sockwrite -nt $sockname GET /index.php HTTP/1.0

  sockwrite -nt $sockname Host: $sock($sockname).addr | sockwrite -nt $sockname $crlf

}

on *:sockread:_kripto:{

  var %i | sockread %i | if !$window(@Kripto) { window -en @Kripto } 

  if "isim" isin %i { echo @Kripto 7 $token($htmlfree(%i),1,64) 2Fiyat:4 $ $+ $token($htmlfree(%i),2,64)  2Degisim:4 $token($htmlfree(%i),3,64) }

}

alias kripto { if $window(@Kripto) { clear @Kripto } | sockclose _kripto | sockopen _kripto coin.teknolobi.net 80 }

alias htmlfree { var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,,$chr(9)) | return %x }

Anlık Kripto Borsasını Yansıtır.
Kullanımı: /kripto
Kaynak: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]