egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2013-02-08T13:27:10-04:00 https://forum.eggheads.org/app.php/feed/topic/14064 2013-02-08T13:27:10-04:00 2013-02-08T13:27:10-04:00 https://forum.eggheads.org/viewtopic.php?p=100922#p100922 <![CDATA[Re: working code]]>

Code: 

####################################################### Xbox Live GamerTag Status' by Danneh/GrimReaper #########################################################                 Initial Setup                   ####################################################### set xblchar "." #######################################################                    End Setup                    ####################################################### proc xblinfo {nick host hand chan search} {  if {[lsearch -exact [channel info $chan] +xblinfo] != -1} {    set xbllogo "\0039X\00314box Live\003"    set xblsite "Live.xbox.com"    set xblstatusfound "0"    if {$search == ""} {      putserv "PRIVMSG $chan :$xbllogo, Please enter a GamerTag to search for.."    } else {      set xblsrcurl1 [urlencode [regsub -all { } $search +]]      set xblsrcurl2 [encurl $search]      set xblsrcurl3 "/en-GB/Profile?gamertag=${xblsrcurl2}"      if {[catch {set xblsrcsock [socket -async $xblsite 80]} sockerr]} {        return 0      } else {        puts $xblsrcsock "GET $xblsrcurl3 HTTP/1.0"        puts $xblsrcsock "Host: $xblsite"        puts $xblsrcsock "User-Agent: Opera 9.6"        puts $xblsrcsock ""        flush $xblsrcsock        while {![eof $xblsrcsock]} {          set xblstatus "[gets $xblsrcsock]"          if {$xblstatusfound == "on"} {            putserv "PRIVMSG $chan :$xbllogo status for \0037$search\003: [xblstrip [string trimleft [recode "${xblstatus}"]]]"            close $xblsrcsock            return 0          }          if {[regexp -all {<div class="custom">} $xblstatus]} {            set xblstatusfound "on"          }        } putserv "PRIVMSG $chan :Sorry, I couldn't find \0037$search\003 on $xbllogo"        close $xblsrcsock        return 0      }    }  }}proc xblgsinfo {nick host hand chan search} {  if {[lsearch -exact [channel info $chan] +xblinfo] != -1} {    set xbllogo "\0039X\00314box Live\003"    set xblsite "Live.xbox.com"    if {$search == ""} {      putserv "PRIVMSG $chan :$xbllogo, Please enter a GamerTag to search GamerScore for.."    } else {      set xblsrcurl1 [urlencode [regsub -all { } $search +]]      set xblsrcurl2 [encurl $search]      set xblsrcurl3 "/en-GB/Profile?gamertag=${xblsrcurl2}"      if {[catch {set xblsrcsock [socket -async $xblsite 80]} sockerr]} {        return 0      } else {        puts $xblsrcsock "GET $xblsrcurl3 HTTP/1.0"        puts $xblsrcsock "Host: $xblsite"        puts $xblsrcsock "User-Agent: Opera 9.6"        puts $xblsrcsock ""        flush $xblsrcsock        while {![eof $xblsrcsock]} {          set xblstatus "[gets $xblsrcsock]"          if {[regexp -all {<div class="gamerscore">(.*?)</div>} $xblstatus match xblgamerscore]} {            putserv "PRIVMSG $chan :$xbllogo GamerScore for \0037$search\003: $xblgamerscore"     close $xblsrcsock     return 0          }        } putserv "PRIVMSG $chan :Sorry, I couldn't find \0037$search\003 on $xbllogo"        close $xblsrcsock        return 0      }    }  }} proc encurl {string} {  return [string map {" " %20} "$string"]}proc xblstrip {string} {  return [regsub -all {<[^<>]+>} $string ""]} proc urlencode {string} {  return [subst [regsub -nocase -all {([^a-z0-9+])} $string {%[format %x [scan "\\&" %c]]}]]}proc recode { textin } {  return [string map {" " · · & &} [subst [regsub -nocase -all {&#([0-9]{1,5});} $textin {\u\1}]]]}bind pub - ${xblchar}xbl xblinfobind pub - ${xblchar}xblgs xblgsinfosetudef flag xblinfoputlog "Xbox Live Gamertag status' by Danneh/GrimReaper"
use telnet and set

Code: 

 .chanset #chanelname +xblinfo
usage :

.xbl gamertag
.xblgs gamertag
I think this isn't working anymore. No matter what gamertag I choose, it always responds with Sorry, I couldn't find <gamertag> on Xbox Live

Statistics: Posted by doubleu — Fri Feb 08, 2013 1:27 pm

]]> 2012-09-30T13:08:33-04:00 2012-09-30T13:08:33-04:00 https://forum.eggheads.org/viewtopic.php?p=100093#p100093 <![CDATA[working code]]>

Code: 

####################################################### Xbox Live GamerTag Status' by Danneh/GrimReaper #########################################################                 Initial Setup                   ####################################################### set xblchar "." #######################################################                    End Setup                    ####################################################### proc xblinfo {nick host hand chan search} {  if {[lsearch -exact [channel info $chan] +xblinfo] != -1} {    set xbllogo "\0039X\00314box Live\003"    set xblsite "Live.xbox.com"    set xblstatusfound "0"    if {$search == ""} {      putserv "PRIVMSG $chan :$xbllogo, Please enter a GamerTag to search for.."    } else {      set xblsrcurl1 [urlencode [regsub -all { } $search +]]      set xblsrcurl2 [encurl $search]      set xblsrcurl3 "/en-GB/Profile?gamertag=${xblsrcurl2}"      if {[catch {set xblsrcsock [socket -async $xblsite 80]} sockerr]} {        return 0      } else {        puts $xblsrcsock "GET $xblsrcurl3 HTTP/1.0"        puts $xblsrcsock "Host: $xblsite"        puts $xblsrcsock "User-Agent: Opera 9.6"        puts $xblsrcsock ""        flush $xblsrcsock        while {![eof $xblsrcsock]} {          set xblstatus "[gets $xblsrcsock]"          if {$xblstatusfound == "on"} {            putserv "PRIVMSG $chan :$xbllogo status for \0037$search\003: [xblstrip [string trimleft [recode "${xblstatus}"]]]"            close $xblsrcsock            return 0          }          if {[regexp -all {<div class="custom">} $xblstatus]} {            set xblstatusfound "on"          }        } putserv "PRIVMSG $chan :Sorry, I couldn't find \0037$search\003 on $xbllogo"        close $xblsrcsock        return 0      }    }  }}proc xblgsinfo {nick host hand chan search} {  if {[lsearch -exact [channel info $chan] +xblinfo] != -1} {    set xbllogo "\0039X\00314box Live\003"    set xblsite "Live.xbox.com"    if {$search == ""} {      putserv "PRIVMSG $chan :$xbllogo, Please enter a GamerTag to search GamerScore for.."    } else {      set xblsrcurl1 [urlencode [regsub -all { } $search +]]      set xblsrcurl2 [encurl $search]      set xblsrcurl3 "/en-GB/Profile?gamertag=${xblsrcurl2}"      if {[catch {set xblsrcsock [socket -async $xblsite 80]} sockerr]} {        return 0      } else {        puts $xblsrcsock "GET $xblsrcurl3 HTTP/1.0"        puts $xblsrcsock "Host: $xblsite"        puts $xblsrcsock "User-Agent: Opera 9.6"        puts $xblsrcsock ""        flush $xblsrcsock        while {![eof $xblsrcsock]} {          set xblstatus "[gets $xblsrcsock]"          if {[regexp -all {<div class="gamerscore">(.*?)</div>} $xblstatus match xblgamerscore]} {            putserv "PRIVMSG $chan :$xbllogo GamerScore for \0037$search\003: $xblgamerscore"     close $xblsrcsock     return 0          }        } putserv "PRIVMSG $chan :Sorry, I couldn't find \0037$search\003 on $xbllogo"        close $xblsrcsock        return 0      }    }  }} proc encurl {string} {  return [string map {" " %20} "$string"]}proc xblstrip {string} {  return [regsub -all {<[^<>]+>} $string ""]} proc urlencode {string} {  return [subst [regsub -nocase -all {([^a-z0-9+])} $string {%[format %x [scan "\\&" %c]]}]]}proc recode { textin } {  return [string map {" \" · · & &} [subst [regsub -nocase -all {&#([0-9]{1,5});} $textin {\u\1}]]]}bind pub - ${xblchar}xbl xblinfobind pub - ${xblchar}xblgs xblgsinfosetudef flag xblinfoputlog "Xbox Live Gamertag status' by Danneh/GrimReaper"
use telnet and set

Code: 

 .chanset #chanelname +xblinfo
usage :

.xbl gamertag
.xblgs gamertag

Statistics: Posted by bAN01TgAZ — Sun Sep 30, 2012 1:08 pm

]]> 2011-12-05T06:46:09-04:00 2011-12-05T06:46:09-04:00 https://forum.eggheads.org/viewtopic.php?p=98319#p98319 <![CDATA[incith:gamertag (v1.3) Jan 24, 2o1o]]>

Statistics: Posted by stefftastiq — Mon Dec 05, 2011 6:46 am

]]> 2011-03-01T03:53:16-04:00 2011-03-01T03:53:16-04:00 https://forum.eggheads.org/viewtopic.php?p=96263#p96263 <![CDATA[incith:gamertag (v1.3) Jan 24, 2o1o]]>
http://www.mygamercard.net/

Statistics: Posted by pogue — Tue Mar 01, 2011 3:53 am

]]> 2010-03-12T22:13:57-04:00 2010-03-12T22:13:57-04:00 https://forum.eggheads.org/viewtopic.php?p=92473#p92473 <![CDATA[incith:gamertag (v1.3) Jan 24, 2o1o]]>
If you see that cookies are used, then this should stop the site from eventually abolishing your ip to hell. Hopefully... ;)

get the new script here:Incith Gamertag v1.3 .. have a fun ;P
Thanks very much speechles! Looks like they have my bots IP totally blocked now though, unfortunately, so I guess I'm stuck. Still appreciated.
Will add proxy support as well. But for most proxies, cookie traffic usually isn't carried over. But this should allow you to get the script "working" again.
Any update on the proxy support speechles? :)

Thanks,
pogue

Statistics: Posted by pogue — Fri Mar 12, 2010 10:13 pm

]]> 2010-01-26T07:11:19-04:00 2010-01-26T07:11:19-04:00 https://forum.eggheads.org/viewtopic.php?p=91856#p91856 <![CDATA[incith:gamertag (v1.3) Jan 24, 2o1o]]>
If you see that cookies are used, then this should stop the site from eventually abolishing your ip to hell. Hopefully... ;)

get the new script here:Incith Gamertag v1.3 .. have a fun ;P
Thanks very much speechles! Looks like they have my bots IP totally blocked now though, unfortunately, so I guess I'm stuck. Still appreciated.
Will add proxy support as well. But for most proxies, cookie traffic usually isn't carried over. But this should allow you to get the script "working" again.

Statistics: Posted by speechles — Tue Jan 26, 2010 7:11 am

]]> 2010-01-25T21:44:25-04:00 2010-01-25T21:44:25-04:00 https://forum.eggheads.org/viewtopic.php?p=91851#p91851 <![CDATA[incith:gamertag (v1.3) Jan 24, 2o1o]]>
If you see that cookies are used, then this should stop the site from eventually abolishing your ip to hell. Hopefully... ;)

get the new script here:Incith Gamertag v1.3 .. have a fun ;P
Thanks very much speechles! Looks like they have my bots IP totally blocked now though, unfortunately, so I guess I'm stuck. Still appreciated.

Statistics: Posted by pogue — Mon Jan 25, 2010 9:44 pm

]]> 2010-01-24T15:48:30-04:00 2010-01-24T15:48:30-04:00 https://forum.eggheads.org/viewtopic.php?p=91818#p91818 <![CDATA[incith:gamertag (v1.3) Jan 24, 2o1o]]>
<speechles> !gt decoy0cto
<sp33chy> MyGamerTag for Decoy0cto "AHHH OPEN UR MOOOUUTH" | Games: 81 | Score: 15900/65170 (24.39%) | Achievements: 792/2979 (26.58%) | Status: Last Playing Halo 3--Offline for 2 Days | Reputation: 5.00 | GamerScore: 29065 (We are missing game data totaling 13165 GamerScore. This can be corrected by simply booting games not shown in this list.) | LastLive: Halo 3 on Fri, 22 Jan 2010 05:47:55 GMT @
<sp33chy> http://profile.mygamercard.net/Decoy0cto [cookies used]
If you see that cookies are used, then this should stop the site from eventually abolishing your ip to hell. Hopefully... ;)

get the new script here:Incith Gamertag v1.3 .. have a fun ;P

Statistics: Posted by speechles — Sun Jan 24, 2010 3:48 pm

]]> 2010-01-17T20:36:48-04:00 2010-01-17T20:36:48-04:00 https://forum.eggheads.org/viewtopic.php?p=91717#p91717 <![CDATA[incith:gamertag (v1.3) Jan 24, 2o1o]]>
Any ideas on why I keep getting
20:40 < tsunade> The connection has timed out...


everytime someone tries to use the script it fails now, any ideas or updates on this script?
MyGamerTag dislikes this script for some reason. In fact several users have sent me messages they received from MyGamerTag when asking why their IP was banned/blacklisted. The message made it pretty clear they know about this script. They asked the fellow if he knew of a scripting language called tcl which ran on eggdrop bots for irc. Pretty clear to me they must mean this script :(

I guess the fact that it doesn't allow a user to click banners/advertising, nor does it attempt to download the images they use for banners/advertising causes them to get a little pissed off. They are now throttling requests and over-use will now lead to a blackhole (basically they blacklist your ip for 24 hours). Happens to me when using only a browser (firefox in this case) as well. Eventually they stop replying and the page will timeout. I'll try to investigate it deeper and find a more suitable user-agent string or pass some headers along too to keep this at bay. But for the meantime, there is really nothing wrong with the script. It's a problem with the webmaster/admins of MyGamerTag and their policies towards bots/automated scripts (they abhor them)..
This has begun happening to me too. I changed the flood settings to allow for more lookups faster and now it appears my IP has been blocked. Before that, I had no problem.

A couple things I can think of that may help. The most obvious would be to have proxy support. I also noticed (or couldn't find) that the script emulates a browser and sends any sort of user agent (ua) back to the server. Possibly doing that and having a random ua sent for each gamertag query might confuse them a bit.

Statistics: Posted by pogue — Sun Jan 17, 2010 8:36 pm

]]> 2009-08-21T16:09:28-04:00 2009-08-21T16:09:28-04:00 https://forum.eggheads.org/viewtopic.php?p=90014#p90014 <![CDATA[incith:gamertag (v1.3) Jan 24, 2o1o]]>
Any ideas on why I keep getting
20:40 < tsunade> The connection has timed out...


everytime someone tries to use the script it fails now, any ideas or updates on this script?
MyGamerTag dislikes this script for some reason. In fact several users have sent me messages they received from MyGamerTag when asking why their IP was banned/blacklisted. The message made it pretty clear they know about this script. They asked the fellow if he knew of a scripting language called tcl which ran on eggdrop bots for irc. Pretty clear to me they must mean this script :(

I guess the fact that it doesn't allow a user to click banners/advertising, nor does it attempt to download the images they use for banners/advertising causes them to get a little pissed off. They are now throttling requests and over-use will now lead to a blackhole (basically they blacklist your ip for 24 hours). Happens to me when using only a browser (firefox in this case) as well. Eventually they stop replying and the page will timeout. I'll try to investigate it deeper and find a more suitable user-agent string or pass some headers along too to keep this at bay. But for the meantime, there is really nothing wrong with the script. It's a problem with the webmaster/admins of MyGamerTag and their policies towards bots/automated scripts (they abhor them)..

Statistics: Posted by speechles — Fri Aug 21, 2009 4:09 pm

]]> 2009-08-20T21:45:49-04:00 2009-08-20T21:45:49-04:00 https://forum.eggheads.org/viewtopic.php?p=90003#p90003 <![CDATA[incith:gamertag (v1.3) Jan 24, 2o1o]]> 20:40 < tsunade> The connection has timed out...


everytime someone tries to use the script it fails now, any ideas or updates on this script?

Statistics: Posted by tehsu — Thu Aug 20, 2009 9:45 pm

]]> 2007-11-15T23:47:11-04:00 2007-11-15T23:47:11-04:00 https://forum.eggheads.org/viewtopic.php?p=78429#p78429 <![CDATA[incith:gamertag (v1.3) Jan 24, 2o1o]]>
Woo go me! Releasing scripts without even tryin'!

Nice work, doesn't offend me at all. Brought a smile. =) Thanks for the kind words speechles..
Indeed, its neccessary to give props to the code that gave me inspiration. Helping others using comments in your code so they learn from your examples is excellent. In keeping with that tradition, I've got another update to this script to bring it closer to perfection.. ;)

To get the newest version of this script please see the 1st post in this thread, it contains all the history and revisions that have been made.


@incith, your wonderful google script constantly amazes me. Thanks so much for allowing me (and others since its GNU) to modify your script. It's allowed me to create something I think is truly unique in the eggdrop world. A multi-purpose, multi-language, super google bot ;)

Statistics: Posted by speechles — Thu Nov 15, 2007 11:47 pm

]]> 2007-10-17T16:11:57-04:00 2007-10-17T16:11:57-04:00 https://forum.eggheads.org/viewtopic.php?p=76826#p76826 <![CDATA[incith:gamertag (v1.3) Jan 24, 2o1o]]>
Nice work, doesn't offend me at all. Brought a smile. =) Thanks for the kind words speechles..

Statistics: Posted by incith — Wed Oct 17, 2007 4:11 pm

]]> 2007-10-12T17:49:34-04:00 2007-10-12T17:49:34-04:00 https://forum.eggheads.org/viewtopic.php?p=76671#p76671 <![CDATA[incith:gamertag (v1.3) Jan 24, 2o1o]]> thanks :D

Statistics: Posted by schizosmurf — Fri Oct 12, 2007 5:49 pm

]]> 2007-10-12T17:31:22-04:00 2007-10-12T17:31:22-04:00 https://forum.eggheads.org/viewtopic.php?p=76670#p76670 <![CDATA[incith:gamertag (v1.3) Jan 24, 2o1o]]>
I noticed something while using this script.
if someone types just !gamertag with no argument it brings of the stats for some guy named morgon.
<someguy> !gamertag
<somebot> MyGamerTag for Morgon Games: 99 Score: 9608/44090 Achievements: 527/2044 Status: Last Seen on Xbox.com--Offline for 46 Secs Reputation: 5.00 GamerScore: 9608
<somebot> LastLive: Tetris Splash on Tue, 09 Oct 2007 22:39:58 GMT http://profile.mygamercard.net/Morgon

I dont think it's the scripts fault bc going to http://profile.mygamercard.net (with no /gamertag on the end) shows that info.
So is there some way I/you could change it to check for an argument before attempting to retrieve information, so you end up with some thing like
<someguy> !gamertag
<somebot> Please enter a search query. Ex. !gamertag bobsmith

Code: 

# If the user omits the tag, let's yell at them...if {$input == ""} { return "No tag specified, search terminated. Please supply a gamertag." }# fetch the htmlset html [fetch_html $input]
Feel free to edit the code to match the reply you find acceptable. To avoid editing, you can get the fixed script here. Most important, have a fun :wink:

Statistics: Posted by speechles — Fri Oct 12, 2007 5:31 pm

]]>