egghelp/eggheads community

let me google that for you

2011-11-18T19:11:44-04:00

thanks man this works flawlessly

Statistics: Posted by FightingNavyman — Fri Nov 18, 2011 7:11 pm

let me google that for you

2011-11-12T00:32:52-04:00

Code:

# config starts# which method should be used when shortening the url?# (0-2) will only use the one you've chosen.# (3-4) will use them all.# 0 --> http://tinyurl.com# 1 --> http://is.gd# 2 --> http://cli.gs# 3 --> randomly select one of the three above ( 2,0,0,2,1..etc )# 4 --> cycle through the three above ( 0,1,2,1,0,1..etc )# ---variable lmgtfyShortType 4# seconds people must wait before reusing the command.variable lmgtfySeconds 30# script startspackage require httpsetudef flag lmgtfybind pub - !lmgtfy pub:lmgtfyproc pub:lmgtfy {nick uhost hand chan text} {  if {[channel get $chan lmgtfy]} {    if {[set throttle [lmgtfy:throttled $uhost,$chan $::lmgtfySeconds]] > 0} {      putserv "notice $nick :Throttled.. My head is spinning. Please wait $throttle seconds."      return    }    if {[llength [set text [split $text]]] < 2} {      putserv "privmsg $chan :!lmgtfy  "      return    } elseif {![onchan [lindex $text 0] $chan]} {      putserv "privmsg $chan :[lindex $text 0] isn't on this channel. If you're trying to be funny, consider this a failure to impress me with your wit."      return    } else {      putserv "privmsg $chan :[lindex $text 0] -> [webbytin "http://lmgtfy.com/?[http::formatQuery q [join [lrange $text 1 end]]]" $::lmgtfyShortType]"    }  }}proc webbytin {url type} {   set ua "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5"   set http [::http::config -useragent $ua]   switch -- $type {     3 { set type [rand 3] }     4 { if {![info exists ::webbyCount]} {           set ::webbyCount 0           set type 0         } else {           set type [expr {[incr ::webbyCount] % 3}]         }       }   }   switch -- $type {     0 { set query "http://tinyurl.com/api-create.php?[http::formatQuery url $url]" }     1 { set query "http://is.gd/api.php?[http::formatQuery longurl $url]" }     2 { set query "http://cli.gs/api/v1/cligs/create?[http::formatQuery url $url]&title=&key=&appid=webby" }   }   set token [http::geturl $query -timeout 3000]   upvar #0 $token state   if {[string length $state(body)]} { return [string map {"\n" ""} $state(body)] }   return $url}# Throttle Proc - Thanks to user# see this post: http://forum.egghelp.org/viewtopic.php?t=9009&start=3proc lmgtfy:throttled {id seconds} {   global lmgtfythrottle   if {[info exists lmgtfythrottle($id)]&&[set val [expr {$lmgtfythrottle($id) - [clock seconds]}]] > 0} {      set id $val   } {      set lmgtfythrottle($id) [expr {[clock seconds]+$seconds}]      set id 0   }}# delete expired entries every 10 minutesbind time - ?0* lmgtfy:throttledCleanupproc lmgtfy:throttledCleanup args {   global lmgtfythrottle   set now [clock seconds]   foreach {id time} [array get lmgtfythrottle] {      if {$time<=$now} {unset lmgtfythrottle($id)}   }}

Enjoy^ 2

Statistics: Posted by speechles — Sat Nov 12, 2011 12:32 am

let me google that for you

2011-11-12T00:22:20-04:00

I try the one where you end the post with "enjoy "

Statistics: Posted by FightingNavyman — Sat Nov 12, 2011 12:22 am

Re: lmgtfy

2011-11-12T00:19:38-04:00

ok i copy pasted the script to a new .tcl fle then load it and go to party line and do: .chanset #chan +lmgtfy then i get this error
Code:
Tcl error [pub:lmgtfy]: can't read "uhand": no such variable

Try the edited code above. Sorry 'bout that.. heh

Statistics: Posted by speechles — Sat Nov 12, 2011 12:19 am

lmgtfy

2011-11-11T23:49:37-04:00

ok i copy pasted the script to a new .tcl fle then load it and go to party line and do: .chanset #chan +lmgtfy then i get this error

Code:

Tcl error [pub:lmgtfy]: can't read "uhand": no such variable

Statistics: Posted by FightingNavyman — Fri Nov 11, 2011 11:49 pm

let me google that for you

2011-11-18T17:52:34-04:00

speechless
Thanx for the code and don't be picky There're cookies waiting for you in the kitchen

Statistics: Posted by Guest — Thu Nov 10, 2011 12:00 pm

let me google that for you

2011-11-02T12:50:00-04:00

While not actually useful to go back and make that change. It does add style points I guess when you read it, knowing that, I felt ashasmed. Check above. +1 for style? Am I right? Do I get a cookie? Anyone? Bueller? Bueller?

Yeah, okay, having made that change what other tiny details did I forget? Any i's undotted or t's uncrossed? Any grammar or spelling teachers reading this thread?

Statistics: Posted by speechles — Wed Nov 02, 2011 12:50 pm

let me google that for you

2011-11-02T01:39:45-04:00

Why don't you just split $text once and use it from there? Something like

Code:

set text [split $text]

Statistics: Posted by caesar — Wed Nov 02, 2011 1:39 am

let me google that for you

2011-11-12T00:27:12-04:00

im looking to use a lmgtfy script you wrote a while back and i would like flood timer to go with it

Code:

# config starts# which method should be used when shortening the url?# (0-2) will only use the one you've chosen.# (3-4) will use them all.# 0 --> http://tinyurl.com# 1 --> http://is.gd# 2 --> http://cli.gs# 3 --> randomly select one of the three above ( 2,0,0,2,1..etc )# 4 --> cycle through the three above ( 0,1,2,1,0,1..etc )# ---variable lmgtfyShortType 4# seconds people must wait before reusing the command.variable lmgtfySeconds 30# script startspackage require httpsetudef flag lmgtfybind pub - !lmgtfy pub:lmgtfyproc pub:lmgtfy {nick uhost hand chan text} {  if {[channel get $chan lmgtfy]} {    if {[set throttle [lmgtfy:throttled $uhost,$chan $::lmgtfySeconds]] > 0} {      putserv "notice $nick :Throttled.. My head is spinning. Please wait $throttle seconds."      return    }    if {[llength [set text [split $text]]] < 2} {      putserv "privmsg $chan :!lmgtfy  "      return    } elseif {![onchan [lindex $text 0] $chan]} {      putserv "privmsg $chan :[lindex $text 0] isn't on this channel. If you're trying to be funny, consider this a failure to impress me with your wit."      return    } else {      putserv "privmsg $chan :[lindex $text 0] -> [webbytin "http://lmgtfy.com/?[http::formatQuery q [join [lrange $text 1 end]]]" $::lmgtfyShortType]"    }  }}proc webbytin {url type} {   set ua "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5"   set http [::http::config -useragent $ua]   switch -- $type {     3 { set type [rand 3] }     4 { if {![info exists ::webbyCount]} {           set ::webbyCount 0           set type 0         } else {           set type [expr {[incr ::webbyCount] % 3}]         }       }   }   switch -- $type {     0 { set query "http://tinyurl.com/api-create.php?[http::formatQuery url $url]" }     1 { set query "http://is.gd/api.php?[http::formatQuery longurl $url]" }     2 { set query "http://cli.gs/api/v1/cligs/create?[http::formatQuery url $url]&title=&key=&appid=webby" }   }   set token [http::geturl $query -timeout 3000]   upvar #0 $token state   if {[string length $state(body)]} { return [string map {"\n" ""} $state(body)] }   return $url}# Throttle Proc - Thanks to user# see this post: http://forum.egghelp.org/viewtopic.php?t=9009&start=3proc lmgtfy:throttled {id seconds} {global lmgtfythrottleif {[info exists lmgtfythrottle($id)]&&[set val [expr {[clock seconds]-$lmgtfythrottle($id)}]] > 0} {set id $val} {set lmgtfythrottle($id) [expr {[clock seconds]+$seconds}]set id 0}}# delete expired entries every 10 minutesbind time - ?0* lmgtfy:throttledCleanupproc lmgtfy:throttledCleanup args {global lmgtfythrottleset now [clock seconds]foreach {id time} [array get lmgtfythrottle] {if {$time<=$now} {unset lmgtfythrottle($id)}}}

Enjoy.

Statistics: Posted by speechles — Tue Nov 01, 2011 8:45 pm

let me google that for you

2011-07-29T06:22:06-04:00

Can I somehow have it not use the shortening url part.

I want it to just spit out the lmgtfy url (apparantly lmgtfy scripts aren't that easy to find)

---
I turned it into this, probably can be done easier I guess, but I just fiddled around a bit with what was in there. Works fine.

Thanks to Snakes on EFnet/#eggtcl with this bit:

Code:

http://lmgtfy.com/?q=[join [lrange $text 1 end] "%20"]"

Code:

# script startspackage require httpsetudef flag lmgtfybind pub - !lmgtfy pub:lmgtfyproc pub:lmgtfy {nick uhost hand chan text} {  if {[channel get $chan lmgtfy]} {    if {[llength [split $text]] < 2} {      putserv "privmsg $chan :!lmgtfy  "      return    } elseif {![onchan [lindex [split $text] 0] $chan]} {      putserv "privmsg $chan :[lindex [split $text] 0] isn't on this channel. If your trying to be funny, consider this a failure to impress me with your wit."      return    } else {      putserv "privmsg $chan :[lindex $text 0] -> http://lmgtfy.com/?q=[join [lrange $text 1 end] "%20"]"    }  }}

Statistics: Posted by Michiellll — Fri Jul 29, 2011 6:22 am

let me google that for you

2009-07-21T00:41:46-04:00

Many thanks again to speechles...

Works fine

Statistics: Posted by Skid00 — Tue Jul 21, 2009 12:41 am

Re: let me google that for you

2009-07-14T18:09:42-04:00

Here is a fairly basic adaptation. It lacks several features such as flood protection, checking the url is proper, and other such amenities. This should get you going in the right direction. The webbytin procedure is taken from webby. The name of the procedure altered slightly to prevent conflicting with webby in case both are loaded at the same time.

Code:

# config starts# which method should be used when shortening the url?# (0-3) will only use the one you've chosen.# (4-5) will use them all.# 0 --> http://tinyurl.com# 1 --> http://u.nu# 2 --> http://is.gd# 3 --> http://cli.gs# 4 --> randomly select one of the four above ( 2,0,0,3,1..etc )# 5 --> cycle through the four above ( 0,1,2,3,0,1..etc )# ---variable lmgtfyShortType 5# script startspackage require httpsetudef flag lmgtfybind pub - !lmgtfy pub:lmgtfyproc pub:lmgtfy {nick uhost hand chan text} {  if {[channel get $chan lmgtfy]} {    if {[llength [split $text]] < 2} {      putserv "privmsg $chan :!lmgtfy  "      return    } elseif {![onchan [lindex [split $text] 0] $chan]} {      putserv "privmsg $chan :[lindex [split $text] 0] isn't on this channel. If your trying to be funny, consider this a failure to impress me with your wit."      return    } else {      putserv "privmsg $chan :[lindex [split $text] 0] -> [webbytin "http://lmgtfy.com/?[http::formatQuery q [join [lrange [split $text] 1 end]]]" $::lmgtfyShortType]"    }  }}proc webbytin {url type} {   set ua "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5"   set http [::http::config -useragent $ua]   switch -- $type {     4 { set type [rand 4] }     5 { if {![info exists ::webbyCount]} {           set ::webbyCount 0           set type 0         } else {           set type [expr {[incr ::webbyCount] % 4}]         }       }   }   switch -- $type {     0 { set query "http://tinyurl.com/api-create.php?[http::formatQuery url $url]" }     1 { set query "http://u.nu/unu-api-simple?[http::formatQuery url $url]" }     2 { set query "http://is.gd/api.php?[http::formatQuery longurl $url]" }     3 { set query "http://cli.gs/api/v1/cligs/create?[http::formatQuery url $url]&title=&key=&appid=webby" }   }   set token [http::geturl $query -timeout 3000]   upvar #0 $token state   if {[string length $state(body)]} { return [string map {"\n" ""} $state(body)] }   return $url}

*partyline*
.chanset #yourchan +lmgtfy

*afterwards in #yourchan*
!lmgfty Other_Nick annoying me with your lame requests
Other_Nick -> http://u.nu/792k

The url given depends on how you set the lmgtfyShortType in the above config.

Statistics: Posted by speechles — Tue Jul 14, 2009 6:09 pm

let me google that for you

2009-07-14T00:34:44-04:00

Hi There

Im searching a tcl script for eggdrop that let me make querys on
"let me google that for you" (http://lmgtfy.com/)

The script should work with a trigger e.g: !lmgtfy "query"
and should post the result in tinyurl-format in the chan e.g: ":"

somebody know a solution?

Statistics: Posted by Skid00 — Tue Jul 14, 2009 12:34 am