nice but I prefer this one instead all info in a window.
on *:BAN:# {
if (!$window(@Network-Logs)) window -n @Network-Logs
echo -t @Network-Logs 4 $server 5? BAN4 : ( $+ $chan $+ )( $+ $nick $+ ) BANNED ( $+ $bnick $+ ): $1-
}
on *:KICK:# {
if (!$window(@Network-Logs)) window -n @Network-Logs
echo -t @Network-Logs 4 $server 5? KICK4 : ( $+ $chan $+ )( $+ $nick $+ ) KICKED ( $+ $knick $+ ): $1-
}
on *:NICK: {
if (!$window(@Network-Logs)) window -n @Network-Logs
echo -t @Network-Logs 4 $server 5? NICK CHANGE4 :( $+ $nick $+ ) CHANGED TO ( $+ $newnick $+ ) ( $+ $time $+ )
}
on *:RAWMODE:# {
if (!$window(@Network-Logs)) window -n @Network-Logs
echo -t @Network-Logs 4 $server 5? RAWMODE4 : ( $+ $chan $+ )( $+ $nick $+ ) $1-
}
on *:MODE:# {
if (!$window(@Network-Logs)) window -n @Network-Logs
echo -t @Network-Logs 4 $server 5? MODE4 : ( $+ $chan $+ )( $+ $nick $+ ) $1-
}
on *:QUIT: {
if (!$window(@Network-Logs)) window -n @Network-Logs
echo -t @Network-Logs 4 $server 5? QUIT4 : ( $+ $nick $+ )( $+ $time $+ )
}
on *:notice:*:*: {
if ($nick == $me) { return }
if (!$window(@Network-Logs)) window -n @Network-Logs
echo -t @Network-Logs 4 $server 5? NOTICE4 :( $+ $nick $+ ): $1-
}
on *:snotice:*: {
if (!$window(@Network-Logs)) window -n @Network-Logs
echo -t @Network-Logs 4 $server 5? SERVERNOTICE4 : $1-
}
menu @Network-Logs {
Clear: clear $active
Close: close -@ $active
}
No it was meant to show you how to get urls and that RSS feeds are not limited on IRC. I'll have a gander at it and see what I come up with.
Here's a look at what I mean
They work great on any chat server, depending how the code is done, for instance a good friend of mine uses tinyurl to get the feeds. here's an example
on *:Join:*: {
if ($nick == $me) {
.timer.hawkee 0 15 hawkee
}
}
; Menu =====================================================================================
menu channel {
Feeder
.$iif(%Feed.hknews. [ $+ [ $active ] ] == on,$style(1)) Hawkee: $iif(%Feed.hknews. [ $+ [ $active ] ] == on,unset %Feed.hknews. [ $+ [ $active ] ],set %Feed.hknews. [ $+ [ $active ] ] on)
.-
.Add All $chan : {
set %Feed.hknews. [ $+ [ $active ] ] on
}
.Remove All $chan : unset %Feed.*. [ $+ [ $active ] ]
.-
.Clear Saved Topics: unset %Topic.*
}
; Aliases ==================================================================================
alias striphtml {
if (!$isid) || (!$1) return
var %H = $1 , %T = $regsub(%H,/(<[^>]+>)/g,,%H)
if ($chr(38) isin %H) {
set %H $replacecs(%H,&,&,"," ,<,< ,>,> ,&,& , ,$iif($prop,$chr($prop),$chr(32)) ,£,£ ,§,$chr(36) ,¨,¨ ,«,« ,»,» ,ß,ß, Ñ,Ñ ,ñ,ñ,',')
set %H $replacecs(%H,À,À ,Á,Á ,Â, ,Ã,à ,Ä,Ä ,Å,Å ,Æ,Æ ,à,à ,á,á ,â,â ,ã,ã ,ä,ä ,å,å ,æ,æ)
set %H $replacecs(%H,È,È,É,É,Ê,Ê,Ë,Ë,è,è,é,é,ê,ê,ë,ë,Ì,Ì,Í,Í,Î,Î,Ï,Ï,ì,ì,í,í,î,î)
set %H $replacecs(%H,ï,ï,Ò,Ò,Ó,Ó,Ô,Ô,Õ,Õ,Ö,Ö,Ø,Ø,ò,ò,ó,ó,ô,ô,õ,õ,ö,ö,ø,ø,Ù,Ù,Ú,Ú,Û,Û,Ü,Ü,Ý,Ý,ù,ù,ú,ú,û,û,ü,ü,ý,ý,ÿ,ÿ)
}
return %H
}
alias turl {
var %s tinyURL. $+ $ticks
sockopen %s tinyurl.com 80
sockmark %s $1 $2 $4 $5 $3
}
on *:sockopen:TinyURL.*: { sockwrite -tn $sockname $+(GET /api-create.php?url= $+ $gettok($sock($sockname).mark,3,32) HTTP/1.1,$crlf,Host: tinyurl.com,$crlf,$str($crlf,2)) }
on *:sockread:TinyURL.*:{
var %r | sockread %r
if ($left(%r,7) == HTTP://) {
var %f 1
while ($chan(%f)) {
var %g $gettok($sock($sockname).mark,2,32) $+ . $+ $chan(%f)
if (%FEED. [ $+ [ %g ] ] == on) && (($me isop $chan(%f)) || ($me ishop $chan(%f))) {
msg $chan(%f) $gettok($sock($sockname).mark,1,32) Topic Update: $striphtml($gettok($sock($sockname).mark,5-,32)) - %r $iif($gettok($sock($sockname).mark,4,32) != n/a,- by $striphtml($gettok($sock($sockname).mark,4,32)))
}
inc %f
}
}
}
; Hawkee ======================================================================================
alias hawkee {
if ($status != connected) { halt }
sockclose hawkeeforum
sockopen hawkeeforum hawkee.com 80
if (%Topic.HAWKEE == $null) { set %Topic.HAWKEE on }
set %hawkee.check 1
}
on *:sockopen:hawkeeforum: {
if ($sockerr) { sockclose $sockname | halt }
sockwrite -n $sockname GET /comment.rss.php HTTP/1.1
sockwrite -n $sockname Host: www.hawkee.com
sockwrite -n $sockname $crlf
}
on *:sockread:hawkeeforum: {
if ($sockerr > 0) return
var %hawkee
sockread %hawkee
if (%hawkee == 0) || (%hawkee.check > 3) {
sockclose $sockname
if (%hawkee.linktemp != $null) && (%hawkee.linktemp != on) && (%hawkee.linktemp != %Topic.HAWKEE) {
set %Topic.HAWKEE %hawkee.linktemp
$turl(Hawkee,hknews,$striphtml(%hawkee.title),$replace(%hawkee.linktemp,&,&),n/a)
}
unset %hawkee.*
}
else {
if (%hawkee.check == 1) var %hawkeer = /<item>/ig
if (%hawkee.check == 2) var %hawkeer = /<title>(.*)<\/title>/ig
if (%hawkee.check == 3) var %hawkeer = /<link>(.*)<\/link>/ig
if ($regex(hawkeeforum, %hawkee, %hawkeer) > 0) {
if (%hawkee.check == 2) set %hawkee.title $regml(hawkeeforum,1)
if (%hawkee.check == 3) set %hawkee.linktemp $regml(hawkeeforum,1)
inc %hawkee.check
}
}
}
The creator of this is err0r from TG007.net
Hey had a friend do one err0r from TG007 with also the time remaining!! only thing you have to add your room name!!
1.
alias giveaway {
2.
sockclose give | sockopen give www.giveawayoftheday.com 80
3.
}
4.
on *:sockopen:give: {
5.
if ($sockerr) { echo -s $sockname error | sockclose give }
6.
else {
7.
sockwrite -n $sockname GET / HTTP/1.1
8.
sockwrite -n $sockname Host: giveawayoftheday.com
9.
sockwrite -n $sockname $crlf
10.
}
11.
}
12.
on *:sockread:give: {
13.
var %give.temp
14.
sockread %give.temp
15.
if ($regex(%give.temp,/<title>(.*)<\/title>/)) { set %giveaway.title $regml(1) }
16.
if ($regex(%give.temp,/<a href=\"http:\/\/www.giveawayoftheday.com\/(.*?)\/\">/)) { set %giveaway.link $regml(1) }
17.
if ($regex(%give.temp,/(.*)<!--\/mfunc-->(.*)<\/p>/)) { set %giveaway.time $regml(1) | msg $+($chr(37),$chr(35),Room Name Here) Free Giveaway of the Day: $htmlfree($remove(%giveaway.title,Giveaway of the Day - free licensed software daily.)) | msg $+($chr(37),$chr(35),Room Name Here) http://www.giveawayoftheday.com/ $+ %giveaway.link $+ / | msg $+($chr(37),$chr(35),ROOM Name Here) Time remaining : %giveaway.time | sockclose $sockname }
18.
}
19.
alias -l htmlfree {
20.
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, n°,"’)
21.
return %x
22.
}
Yes it dose. its a IRC client based on the GUI and is extremly devolped by Szymon Stefanek and also least not forget the developement Team which consists of IRC addicted developers around the world. So this is still continuing with all developers across the world and there are constant updates and new added plugins. As is also the IceChat made by Snerf. But all clients are done in there different Languages and like here this is what brings us to scripting. Good Snippet to bring it to a regular mIRC TMFKSOFT