on *:text:*:#: {
if (http:// isin $1-) {
sockclose linkchecker
set %link $remove($matchtok($1-,http://,1,32),http://)
set %linkchan $chan
set %actlink $matchtok($1-,http://,1,32)
if (/ !isin %link) { set %link %link $+ / }
sockopen linkchecker $remove($left(%link,$pos(%link,/,1)),/) 80
halt
}
if (www. isin $1-) {
sockclose linkchecker
set %link $matchtok($1-,www.,1,32)
set %linkchan $chan
set %actlink $matchtok($1-,www.,1,32)
if (/ !isin %link) { set %link %link $+ / }
sockopen linkchecker $remove($left(%link,$pos(%link,/,1)),/) 80
halt
}
}
on *:sockopen:linkchecker: {
if $sockerr > 0 { sockclose $sockname | halt }
sockwrite -n $sockname GET / $+ $right(%link,$calc($len(%link)- $pos(%link,/,1))) HTTP/1.1
sockwrite -n $sockname Host: $remove($left(%link,$pos(%link,/,1)),/)
sockwrite -n $sockname $crlf
}
on *:sockread:linkchecker: {
if $sockerr > 0 { sockclose $sockname | halt }
sockread %linkh
if (%delbug != $null) && ($len(%linkch) <= 150) && (</title> !isin %linkh) { set %linkch %linkch %linkh }
if (%delbug != $null) && (</title> isin %linkh) {
msg %linkchan 13 $+ $replace(%linkch,",",',',&,&,<,<,>,>,©,©,®,®,™,™,€,€,£,£,¥,¥) (4 %actlink )
unset %delbug
sockclose $sockname
halt
}
if (<title> isin %linkh) {
set %linkch $remove($left(%linkh,$pos(%linkh,</title>,1)),</title>)
set %linkch $right(%linkch,$calc($len(%linkch)- $pos(%linkch,<title>,1) -6))
set %linkch $left(%linkch,$calc($len(%linkch)-1))
set %delbug 1
if (%linkch != $null) {
msg %linkchan 13 $+ $replace(%linkch,",",',',&,&,<,<,>,>,©,©,®,®,™,™,€,€,£,£,¥,¥) (4 %actlink )
sockclose $sockname
unset %delbug
halt
}
}
}
@candent you're meant to save it as a .txt or .mrc not an ini file. also type /indent 16.
@testor I didn't make it case sensitive because on the ircd's I'm on there is no +B that I'm aware of.
I was aiming for shorter messages and neatness, I didn't include the "quit" part because for me it is obvious that they quit since that blue doesn't show up on any other message.
@ghost-writer if you would kindly look at the screen shot provided you would be able to tell what colours ~&@%+ are, or maybe if you could read the script?
I didn't think there was a need for any guide since it's just the look of it.
If you do require a guide on how to load an mirc script then you can view this helpful tutorial.
http://chanops.org/faqs/clients/how-to-load-an-mirc-script-into-your-main-mirc-program.html
also I was going for simplicity I don't like the look of other peoples themes with 5 different custom toolbars full of useless information, I was going to make it more customizable but I like it the way it is now and wouldn't change the colours.
thank you all for your comments