This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.

For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

incith:gamertag (v1.3) Jan 24, 2o1o

Support & discussion of released scripts, and announcements of new releases.
Post Reply
User avatar
pogue
Voice
Posts: 28
Joined: Sun May 17, 2009 3:56 am
Contact:
Contact pogue

Post by pogue »

Mygamercard has bit the dust, so this script is now null and void.

http://www.mygamercard.net/
Helpful Tools:
  • Notepad++: Windows Text Editor with TCL Syntax Highlighting
  • Pastebin TCL: For easy script collaboration
Top
s
stefftastiq
Voice
Posts: 6
Joined: Fri May 07, 2010 1:31 pm

Post by stefftastiq »

anyone know of any alternative scripts? which works? :|
Top
b
bAN01TgAZ
Voice
Posts: 1
Joined: Sun Sep 30, 2012 1:05 pm
Location: UK
Contact:
Contact bAN01TgAZ

working code

Post by bAN01TgAZ »

Code: Select all

#####################################################
## 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 xblinfo
bind pub - ${xblchar}xblgs xblgsinfo
setudef flag xblinfo
putlog "Xbox Live Gamertag status' by Danneh/GrimReaper"
use telnet and set

Code: Select all

 .chanset #chanelname +xblinfo
usage :

.xbl gamertag
.xblgs gamertag
Top
d
doubleu
Voice
Posts: 11
Joined: Sun Feb 10, 2008 11:19 pm

Re: working code

Post by doubleu »

bAN01TgAZ wrote:

Code: Select all

#####################################################
## 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 xblinfo
bind pub - ${xblchar}xblgs xblgsinfo
setudef flag xblinfo
putlog "Xbox Live Gamertag status' by Danneh/GrimReaper"
use telnet and set

Code: Select all

 .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
Top
Post Reply

Return to “Script Support & Releases”