Statistics: Posted by ComputerTech — Thu Dec 24, 2020 6:28 pm

(2020-12-22 13:27:56) CP1832: .youtube elephant stone(2020-12-22 13:28:00) BOT: The Stone Roses - Elephant Stone https://www.youtube.com/watch?v=LcyK-edUByk

Statistics: Posted by CP1832 — Tue Dec 22, 2020 12:30 pm

Statistics: Posted by SlaSerX — Tue Dec 22, 2020 11:50 am

Code:

################################################################################################  ## Advanced Google.tcl for eggdrop by Ford_Lawnmower irc.geekshed.net #Script-Help  ##  ##################################################################################################  ## To use this script you must set channel flag +google (ie .chanset #chan +google) ##  ################################################################################################catch {package require foobar}catch {package require http}catch {package require json}if {[catch {package require tls}]} {set httpsSupport false} else {set httpsSupport true}set url "www.googleapis.com/customsearch/v1?"if {$httpsSupport} {::http::register https 443 [list ::tls::socket -request 1 -require 0 -tls1 1]set url https://$url} else { set url http://$url }################################################################################################  ##                             Start Setup.                                         ##  ################################################################################################## Change the character between the "" below to change the command character/trigger.       ##set cmdchar "."## Change the country code between the "" below to change the language of your results.     ##set googlectry "en"## Change the number between the "" below to change the number of results returned.         ##set googlemax "1"set API_KEY"YOUR API KEY"set SEARCH_ID"YOUR ID"################################################################################################  ##                           End Setup.                                              ## ################################################################################################proc googleweb {nick host hand chan type search site} {global googlectry googlemax API_KEY SEARCH_ID url        if {$search == ""} {puthelp "PRIVMSG $chan :Error: <search> is blank"; return 1 }if {$type == ""} { set googleurl $url[::http::formatQuery alt json key $API_KEY cx $SEARCH_ID hl $googlectry siteSearch $site q $search]} else { set googleurl $url[::http::formatQuery alt json key $API_KEY cx $SEARCH_ID hl $googlectry siteSearch $site q $search searchType $type] }if {[catch {http::geturl $googleurl -timeout 5000} sockerr]} {puthelp "privmsg $chan :Timeout querying Google: $sockerr"return 1} elseif {[http::ncode $sockerr] != 200 || ![string equal [http::status $sockerr] "ok"]} {puthelp "privmsg $chan :Error querying Google: [http::ncode $sockerr] -> [http::status $sockerr]"http::cleanup $sockerrreturn 1} else {set data [http::data $sockerr]http::cleanup $sockerrset json [ ::json::json2dict $data ]for { set i 0 } { $i < $googlemax } { incr i } {set title ""set link ""catch { set title [ dict get [ lindex [ dict get $json items ] $i ] title ] }catch { set link  [ dict get [ lindex [ dict get $json items ] $i ] link ] }set index [ expr $i + 1 ]if {[string length $title] && [string length $link]} {puthelp "PRIVMSG $chan :[encoding convertfrom utf-8 [dehex $title]] $link"} else {puthelp "PRIVMSG $chan :Google found no results"}}}return 1}proc dehex {string} {    regsub -all {[\[]} $string "\(" string    regsub -all {[\]]} $string "\)" string    regsub -all {^\{|\}$} $string "" string    set string [subst [regsub -nocase -all {\\u([a-f0-9]{4})} $string {[format %c [decimal \1]]}]]    set string [subst [regsub -nocase -all {\%([a-f0-9]{2})} $string {[format %c [decimal \1]]}]]    set string [subst [regsub -nocase -all {\&#([0-9]{2});} $string {[format %c \1]}]]    set string [subst [regsub -nocase -all {\&#x([0-9]{2});} $string {[format %c [decimal \1]]}]]    set string [string map {" \" · · & & <b> \002 </b> \002 – – » \    » « « Ü Ü ü ü Á Á á á É É é é Í Í í \    í Ó Ó ó ó Ñ Ñ ñ ñ Ú Ú ú ú æ æ   " " &apos; \' \   \( \002\(\002 \) \002\)\002 \{ \002\{\002 \} \002\}\002} $string]    return $string}proc google {nick host hand chan text} { googleweb $nick $host $hand $chan "" $text ""}proc gimage {nick host hand chan text} { googleweb $nick $host $hand $chan image $text ""}foreach bind [binds google] {lassign $bind type flags mask num proc; unbind $type $flags $mask $proc}foreach bind [binds gimage] {lassign $bind type flags mask num proc; unbind $type $flags $mask $proc}bind pub - ${cmdchar}google googlebind pub - ${cmdchar}gimage gimageproc youtube {nick host hand chan text} { googleweb $nick $host $hand $chan "" $text youtube.com/watch }foreach bind [binds youtube] {lassign $bind type flags mask num proc; unbind $type $flags $mask $proc}bind pub - ${cmdchar}youtube youtubeputlog "Google script loaded"

Statistics: Posted by CP1832 — Mon Dec 21, 2020 10:29 pm

Statistics: Posted by SlaSerX — Mon Dec 21, 2020 5:06 am