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

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

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(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] } 

  if "isim" isin %i { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 7 $token($htmlfree(%i),1,64) 2Fiyat:4 $ $+ $token($htmlfree(%i),2,64)  2Degisim:4 $token($htmlfree(%i),3,64) }

}

alias kripto { if $window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { clear @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] } | 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 }

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]