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 }