Snippets Project Page
Author: entropy
Added: 5y
Updated: 46w
mIRC: 7.56+
Hits: 1,543
Downloads: 30
Review: entropy
Size: 7.02KB
2 0
Login to vote.
Urban Dictionary
v1.2
This snippet scrapes the UD dictionary site for matching queries.
Download
JSON
▲ Review
▼ Source
; Urban Dictionary v1.2 - by entropy 2023 menu menubar,status,channel,query { - Urban Dictionary v1.2 $chr(9) $replace($group(#urban).status,o,O) .Turn it $iif($group(#urban).status == on,Off,On) { $iif($group(#urban).status == on,.disable,.enable) #urban echo 7 -ag * Urban Dictionary is now: $qt($replace($group(#urban).status,o,O)) } .- .Channel(s) $chr(9) $eval($+(%,urbanchans,.,$network),2) { var %net = $eval($+(%,urbanchans,.,$network),2) var %text = $input(Channels list (seperated by comma) or "#" for all?,5,Urban,%net) %text = $replace(%text,$chr(32),$chr(44)) var %a = 1, %b while ($gettok(%text,%a,44)) { %b = $v1 if ($left(%b,1) != $chr(35)) { %text = $reptok(%text,%b,$+($chr(35),%b),1,44) } inc %a } if (%text) { set $+(%,urbanchans,.,$network) $v1 | echo 7 -ag * Urban Dictionary Channels are now: $qt($v1) } else { unset $+(%,urbanchans,.,$network) | echo 7 -ag * Urban Dictionary Channels are now reset } } .$iif(!$istok($eval($+(%,urbanchans,.,$network),2),$chan,44) && $eval($+(%,urbanchans,.,$network),2) != $chr(35) && $menu == channel,Add Channel To list) { var %net = $eval($+(%,urbanchans,.,$network),2) %net = $addtok(%net,$chan,44) set $+(%,urbanchans,.,$network) %net echo 7 -ag * Urban Dictionary channels are now: $qt(%net) } .$iif($istok($eval($+(%,urbanchans,.,$network),2),$chan,44) && $menu == channel,Delete Channel From list) { var %net = $eval($+(%,urbanchans,.,$network),2) %net = $remtok(%net,$chan,1,44) set $+(%,urbanchans,.,$network) %net echo 7 -ag * Urban Dictionary channels are now $+ $iif(!%net,$chr(32) reset,: $qt(%net)) } .- .$iif($eval($+(%,urbanchans,.,$network),2),Delete all Channels) { unset $+(%,urbanchans,.,$network) echo 7 -ag * Urban Dictionary channels are now reset } - } #urban on on *:input:$($eval($+(%,urbanchans,.,$network),2)):{ if (/* !iswm $1 && $server && !urban == $1 && $2) { ud # $2- } } on *:text:*:$($eval($+(%,urbanchans,.,$network),2)):{ if (!urban == $1 && $2) { ud # $2- } } #urban end on *:load:{ echo 7 -ag * Urban Dictionary is now loaded! } on *:unload:{ echo 7 -ag * Urban Dictionary is now unloaded! | unset %urbanchans.* } alias -l ud { set %_udchan $1 set %_udterm $2- udapi $+(https://www.urbandictionary.com/define.php?term=,$replace($2-,$chr(32),+)) } alias -l udAPI { noop $urlget($1-,gbi,&UD,processudAPI) } alias -l processudAPI { var %id = $1 , %BV = $urlget(%id).target, %code = $gettok($urlget(%id).reply,2,32) if (%code != 200) { msg %_udchan [Urban] $c Error code: %code | unset %_ud* | return } var %term = $mid($replacehtmlentities($remove($bvsearch(%BV,property="fb:app_id",name=").inbetween,/><meta content=")),1,-1) msg %_udchan [Urban] $c $qt(%_udterm) $c %term unset %_ud* } alias -l bvsearch { var %S = $bfind($1,1,$2) var %E = $bfind($1,$calc(%S + $len($2)),$3) if (%S <= 0 || %E <= 0) { return } if ($prop == inbetween) { var %S = %S + $len($2) , %E = %E - 1 } else { var %E = %E + $iif($regex($3,/(?:\d+|\s)/g),$numtok($3,32),$len($3)) | dec %e } return $left( $bvar($1,$+(%S,-,%E)).text , $maxlenl) } alias -l replacehtmlentities { return $regsubex($1-,/(\x26[^\x3B]+)\x3B/g,$entitieshtml(\1)) } alias -l entitieshtml { if ($mid($1,2,1) == $chr(35)) { return $chr($mid($1,3)) } elseif ($findtok(&<>ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝÞßàáâãäåæçèéêëìíîïðñòóôõöøùúûüýþÿ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶¸¹º»¼½¾¿×÷∀∂∃∅∇∈∉∋∏∑−∗√∝∞∠∧∨∩∪∫∴∼≅≈≠≡≤≥⊂⊃⊄⊆⊇⊕⊗⊥⋅ΑΒΓΔΕΖΗΘΙΚΛΜΝΞΟΠΡΣΤΥΦΧΨΩαβγδεζηθικλμνξοπρςστυφχψωϑϒϖŒœŠšŸƒˆ˜   ‌‍‎‏–—‘’‚“”„†‡•…‰′″‹›‾€™←↑→↓↔↵⌈⌉⌊⌋◊♠♣♥&diams,$1,59)) { return $chr($gettok(38;60;62;192;193;194;195;196;197;198;199;200;201;202;203;204;205;206;207;208;209;210;211;212;213;214;216;217;218;219;220;221;222;223;224;225;226;227;228;229;230;231;232;233;234;235;236;237;238;239;240;241;242;243;244;245;246;248;249;250;251;252;253;254;255;160;161;162;163;164;165;166;167;168;169;170;171;172;173;174;175;176;177;178;179;180;181;182;184;185;186;187;188;189;190;191;215;247;8704;8706;8707;8709;8711;8712;8713;8715;8719;8721;8722;8727;8730;8733;8734;8736;8743;8744;8745;8746;8747;8756;8764;8773;8776;8800;8801;8804;8805;8834;8835;8836;8838;8839;8853;8855;8869;8901;913;914;915;916;917;918;919;920;921;922;923;924;925;926;927;928;929;931;932;933;934;935;936;937;945;946;947;948;949;950;951;952;953;954;955;956;957;958;959;960;961;962;963;964;965;966;967;968;969;977;978;982;338;339;352;353;376;402;710;732;8194;8195;8201;8204;8205;8206;8207;8211;8212;8216;8217;8218;8220;8221;8222;8224;8225;8226;8230;8240;8242;8243;8249;8250;8254;8364;8482;8592;8593;8594;8595;8596;8629;8968;8969;8970;8971;9674;9824;9827;9829;9830,$v1,59)) } } alias -l c { return $chr(9679) }
Changelog:
0
0