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

Günlük Korona Virüs Verilerini Yansıtır.
Kullanım: /corona
Kaynak: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:

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

on *:sockopen:_corona: { 

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

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

}

on *:sockread:_corona:{

  var %i | sockread %i | if !$window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]na) { window -en @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]na } 

  if span isin %i { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]na $htmlfree(%i) }

}

alias corona { if $window(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]na) { clear @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]na } | sockclose _corona | sockopen _corona api.teknolobi.net 80 }

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