Snippets Project Page
Author: entropy
Added: 5y
Updated: 5y
mIRC: 7.52+
Hits: 1,079
Downloads: 16
Review: entropy
Size: 2.36KB
1 0
Login to vote.
Define
v1.2
Defines keyword on channel.
Download
JSON
▲ Review
▼ Source
; Define v1.2 - by entropy 2018 #define on on *:text:*:#:{ if (?define iswm $1 && $left($1,1) isin @!. && $2) { %asm = # define $lower($2-) } } on *:input:#:{ if (/* !iswm $1 && ?define iswm $1 && $left($1,1) isin @!. && $2) { %asm = # define $lower($2-) } } alias define { sockclose define sockopen define dictionary.com 80 sockmark define $1- } on *:sockopen:define:{ if ($sockerr) { msg %asm [Define] $chr(9679) Define Open ERROR! | unset %asm | return } sockwrite -nt $sockname GET $+(http://www.dictionary.com/browse/,$replace($sock($sockname).mark,$chr(32),-),?s=t) HTTP/1.1 sockwrite -nt $sockname Host: www.dictionary.com sockwrite -nt $sockname Connection: Close sockwrite -nt $sockname Content-Type: text/html sockwrite -nt $sockname $str($crlf,2) } on *:sockread:define:{ if ($sockerr) { msg %asm [Define] $chr(9679) Define Read ERROR! | unset %asm | return } var %a sockread -f %a tokenize 32 $replace($mid(%a,1,4000),$chr(62),$+($chr(62),$chr(32)),$chr(60),$+($chr(32),$chr(60))) if (HTTP/1.* iswm $1 && $2 != 200) { msg %asm [Define] $chr(9679) Nothing found! | unset %asm | sockclose $sockname } elseif (*<div class="def-set">* iswm $1-) { %test = yes } elseif (*<div class="def-content">* iswm $1-) { %test = yes } elseif (*<meta name="description" content="*" />* iswm $1- && *definition at Dictionary.com* !iswm $1-) { var %f = $findtok($1-,name="description",1,32) inc %f var %t = $findtok($1-,/>,3,32) var %r = $gettok($1-,$+(%f,-,%t),32) msg %asm [Define] $chr(9679) $qt($sock($sockname).mark) $remove(%r,$sock($sockname).mark,$+(definition,$chr(44)),<meta name="description",content=",",/>,See more.) unset %test %asm sockclose $sockname } elseif (%test == yes) { msg %asm [Define] $chr(9679) $qt($sock($sockname).mark) $nohtml($1-) | unset %test %asm | sockclose $sockname } } on *:sockclose:define:{ msg %asm [Define] $chr(9679) Nothing found! unset %asm } alias -l nohtml { return $regsubex($1, /<[^>]+(?:>|$)|^[^<>]+>/g,) } #define end
Changelog:
0
0