|
글 수 557
alias urlencode { return $regsubex($1-,/\G(.)/g,$iif(\t !isalnum && !$prop,$chr(37) $+ $base($asc(\t),10,16),\t)) } alias urldecode { return $replacex($regsubex($1,/%(\w\w)/g,$chr($iif($base(\t,16,10) != 32,$v1,255))),$chr(255),$chr(32)) } alias uniutf8url { var %i $regsubex(uniutf, $iif($isutf($1), $1, $utfencode($1)), /U\+([0-9A-F]{1,6})/g, $bin_utf8($base(\t, 16, 2, 21))) return $regsubex(%i,/\G(.)/g,$iif(\t !isalnum && !$prop,$chr(37) $+ $base($asc(\t),10,16),\t)) } on *:input:*: { tokenize 32 $strip($1-) if ($1 == !네이버) { say $1- /msg $chan http://search.naver.com/search.naver?sm=tab_hty&where=nexearch&query= $+ $urlencode($2-) halt } elseif ($1 == !구글) { say $1- /msg $chan http://www.google.co.kr/search?complete=1&hl=ko&q= $+ $urlencode($2-) halt } elseif ($1 == !nic) { say $1- /msg $chan http://www.nicovideo.jp/search/ $+ $uniutf8url($2-)undefined halt } elseif ($1 == !nip) { say $1- /msg $chan https://nipponsei.minglong.org/index.php?section=Tracker&search= $+ $urlencode($2-) halt } elseif ($1 == !gel) { say $1- /msg $chan http://gelbooru.com/index.php?page=post&s=list&tags= $+ $urlencode($2-) halt } elseif ($1 == !safe) { say $1- /msg $chan http://safebooru.org/index.php?page=post&s=list&tags= $+ $urlencode($2-) halt } elseif ($1 == !tor) { say $1- /msg $chan http://www.tokyotosho.info/search.php?terms= $+ $urlencode($2-) halt } elseif ($1 == !ut) { say $1- /msg $chan http://www.youtube.com/results?search_query= $+ $uniutf8url($2-)undefined halt } elseif ($1 == !skb) { say $1- /msg $chan http://sukebei.nyaa.eu/?page=search&cats=0_0&filter=0&term= $+ $uniutf8url($2-)undefined halt } elseif ($1 == !nya) { say $1- /msg $chan http://www.nyaa.eu/?page=search&cats=0_0&filter=0&term= $+ $uniutf8url($2-)undefined halt } elseif ($1 == !인챈) { say $1- /msg $chan http://mabinogi.gameabout.com/enchant/index.ga?kw= $+ $uniutf8url($2-)undefined halt } elseif ($1 == !엔하) { say $1- /msg $chan http://mirror.enha.kr/wiki/ $+ $uniutf8url($2-)undefined halt } elseif ( $1 == !dec ) { say $1- /msg $chan $urldecode($2-) halt } elseif ( $1 == !enc ) { say $1- /msg $chan $urlencode($2-) halt } } | ||