rendered paste body
alias z1 { return $+($chr(3),03 $+ $1) }
alias z2 { return $+($chr(3),07 $+ $1) }
alias theoutput { return *** $chr(91) $+ 7 $1- $+ $chr(93) }
on $*:text:/^[!@](halo3|h3)/Si:#: {
if ($chan == #msl) { halt }
var %randnum = $right($ticks,6)
set %halo3.reply [ $+ [ %randnum ] ] $iif($left($1,1) == @, msg $chan, notice $nick)
if (!$2) { %halo3.reply [ $+ [ %randnum ] ] $theoutput(ERROR) $z1(Please state the service you wish to use.) | unset %halo3.reply [ $+ [ %randnum ] ] | halt }
if ($2 !== stats) { %halo3.reply [ $+ [ %randnum ] ] $theoutput(ERROR) $z1(Please state a valid service you wish to use.) | unset %halo3.reply [ $+ [ %randnum ] ] | halt }
if (!$3) { %halo3.reply [ $+ [ %randnum ] ] $theoutput(ERROR) $z1(Please state the gamertag you wish to lookup.) | unset %halo3.reply [ $+ [ %randnum ] ] | halt }
if ($len($3-) > 15) { %halo3.reply [ $+ [ %randnum ] ] $theoutput(ERROR) $z1(Invalid Gamertag - Gamertags can only be 15 chracters long.) | unset %halo3.reply [ $+ [ %randnum ] ] | halt }
if ($left($3,1) isnum) { %halo3.reply [ $+ [ %randnum ] ] $theoutput(ERROR) $z1(Invalid Gamertag - Gamertags can't start with numbers.) | unset %halo3.reply [ $+ [ %randnum ] ] | halt | halt }
if (!$regex($3-,/^[a-z0-9\s_-]+$/Si)) { %halo3.reply [ $+ [ %randnum ] ] $theoutput(ERROR) $z1(Invalid Gamertag - Gamertags can only contain Letters,Numbers and spaces.) $z2(Underscores and hyphons also representing spaces.) | unset %halo3.reply [ $+ [ %randnum ] ] | halt }
set %halo3.name [ $+ [ %randnum ] ] $replace($3-,$chr(32),+,_,+,-,+)
if ($right(%halo3.name [ $+ [ %randnum ] ],1) == +) { %halo3.reply [ $+ [ %randnum ] ] $theoutput(ERROR) $z1(Invalid Gamertag - Gamertags can't end in spaces.) | unset %halo3.* [ $+ [ %randnum ] ] | halt }
if ($left(%halo3.name [ $+ [ %randnum ] ],1) == +) { %halo3.reply [ $+ [ %randnum ] ] $theoutput(ERROR) $z1(Invalid Gamertag - Gamertags can't start in spaces.) | unset %halo3.* [ $+ [ %randnum ] ] | halt }
if (*++* iswm %halo3.name [ $+ [ %randnum ] ]) { %halo3.reply [ $+ [ %randnum ] ] $theoutput(ERROR) $z1(Invalid Gamertag - Single spaces only.) | unset %halo3.* [ $+ [ %randnum ] ] | halt }
if ($2 = stats) { sockopen halo3.stats [ $+ [ %randnum ] ] www.bungie.net 80 }
}
on *:SOCKOPEN:halo3.stats*: {
sockwrite -nt $sockname GET /Stats/Halo3/Default.aspx?player= $+ %halo3.name [ $+ [ $right($sockname,6) ] ] HTTP/1.0
sockwrite -nt $sockname Host: www.bungie.net
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:halo3.stats*: {
var %id = $right($sockname,6)
if ($sockerr) { %halo3.reply [ $+ [ %id ] ] $theoutput(ERROR) $z1(occured, please try again.) | unset %halo3.reply [ $+ [ %id ] ] | unset halo3.* [ $+ [ %id ] ] }
else {
var %bungepage
sockread %bungepage
if (*Halo 3 Service Record Not Found* iswm %bungepage) { %halo3.reply [ $+ [ %id ] ] $theoutput(ERROR) $z1(No Halo3 Player under the name of) $z2($qt($replace(%halo3.name [ $+ [ %id ] ],+,$chr(32)))) $z1(Was found.) | unset %halo3.* [ $+ [ %id ] ] | halt }
if (*<li><span id="ctl00_mainContent_identityStrip_lblRank">*</span>* iswm %bungepage) {
set %halo3.rank [ $+ [ %id ] ] $remove($gettok(%bungepage,3,62),</span) }
if (*<li>Highest Skill: <span id="ctl00_mainContent_identityStrip_lblSkill">* iswm %bungepage) {
set %halo3.skill [ $+ [ %id ] ] $remove($gettok(%bungepage,3,62),</span)
set %halo3.exp [ $+ [ %id ] ] $remove($gettok(%bungepage,5,62),</span)
set %halo3.nextrank [ $+ [ %id ] ] $remove($gettok(%bungepage,7,62),</a) }
if (*<div class="profile_picB"><a id="ctl00_mainContent_identityStrip_hypMultiStats"* iswm %bungepage) {
set %halo3.pin [ $+ [ %id ] ] $remove($gettok(%bungepage,8,61),",title) }
if (*<div class="profile_picB"><a id="ctl00_mainContent_identityStrip_hypCPStats"* iswm %bungepage) {
set %halo3.mis [ $+ [ %id ] ] $gettok(%bungepage,12,34) }
if (*<td>Total Games</td>* iswm %bungepage) {
sockread %bungepage
set %halo3.tgames [ $+ [ %id ] ] $remove($gettok(%bungepage,2,62),</td)
sockopen halo3.scont [ $+ [ %id ] ] www.bungie.net 80
sockclose $sockname
}
}
}
on *:SOCKOPEN:halo3.scont*: {
sockwrite -nt $sockname GET /stats/Halo3/CareerStats.aspx?player= $+ %halo3.name [ $+ [ $right($sockname,6) ] ] HTTP/1.0
sockwrite -nt $sockname Host: www.bungie.net
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:halo3.scont*: {
var %id = $right($sockname,6)
if ($sockerr) { %halo3.reply [ $+ [ %id ] ] $theoutput(ERROR) $z1(occured, please try again.) | unset halo3.* [ $+ [ %id ] ] }
else {
var %bungepage
sockread %bungepage
if (*<tr><td>Kills :</td>* iswm %bungepage) {
set %halo3.rkills [ $+ [ %id ] ] $remove($gettok(%bungepage,5,62),</td) }
if (*<tr><td>Deaths :</td>* iswm %bungepage) {
set %halo3.rdeaths [ $+ [ %id ] ] $remove($gettok(%bungepage,5,62),</td) }
if (*<tr><td>K/D Ratio :</td>* iswm %bungepage) {
set %halo3.rratio [ $+ [ %id ] ] $remove($gettok(%bungepage,5,62),</td)
sockopen halo3.rcont [ $+ [ %id ] ] www.bungie.net 80
sockclose $sockname
}
}
}
on *:SOCKOPEN:halo3.rcont*: {
sockwrite -nt $sockname GET /stats/Halo3/CareerStats.aspx?player= $+ %halo3.name [ $+ [ $right($sockname,6) ] ] $+ &social=true&map=0 HTTP/1.0
sockwrite -nt $sockname Host: www.bungie.net
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:halo3.rcont*: {
var %id = $right($sockname,6)
if ($sockerr) { %halo3.reply [ $+ [ %id ] ] $theoutput(ERROR) $z1(occured, please try again.) | unset halo3.* [ $+ [ %id ] ] }
else {
var %bungepage
sockread %bungepage
if (*<tr><td>Kills :</td>* iswm %bungepage) {
set %halo3.skills [ $+ [ %id ] ] $remove($gettok(%bungepage,5,62),</td) }
if (*<tr><td>Deaths :</td>* iswm %bungepage) {
set %halo3.sdeaths [ $+ [ %id ] ] $remove($gettok(%bungepage,5,62),</td) }
if (*<tr><td>K/D Ratio :</td>* iswm %bungepage) {
set %halo3.sratio [ $+ [ %id ] ] $remove($gettok(%bungepage,5,62),</td)
%halo3.reply [ $+ [ %id ] ] $theoutput($upper($replace(%halo3.name [ $+ [ %id ] ],+,$chr(32)))) $z1(Rank:) $z2(%halo3.rank [ $+ [ %id ] ]) 1 $+ $chr(124) $z1(Skill Level:) $z2(%halo3.skill [ $+ [ %id ] ]) 1 $+ $chr(124) $z1(Exp:) $z2(%halo3.exp [ $+ [ %id ] ]) 1 $+ $chr(124) $z1(Next Rank in:) $z2(%halo3.nextrank [ $+ [ %id ] ]) 1 $+ $chr(124) $z1(Has $iif(%halo3.pin [ $+ [ %id ] ], obtained an, not obtained) :) $z2($iif(%halo3.pin [ $+ [ %id ] ], %halo3.pin [ $+ [ %id ] ],Any pins!)) 1 $+ $chr(124) $iif(%halo3.mis [ $+ [ %id ] ],3 $+ $upper(%halo3.mis [ $+ [ %id ] ] campaign), 4 $+ $upper(Has not started a campaign))
%halo3.reply [ $+ [ %id ] ] $theoutput($upper($replace(%halo3.name [ $+ [ %id ] ],+,$chr(32)))) $z1(Total Games Played:) $z2(%halo3.tgames [ $+ [ %id ] ]) 1 $+ $chr(124) $z2(RANKED-) $z1(Kills:) $z2(%halo3.rkills [ $+ [ %id ] ]) 1 $+ $chr(124) $z1(Deaths:) $z2(%halo3.rdeaths [ $+ [ %id ] ]) 1 $+ $chr(124) $z1(K/D Ratio:) $z2(%halo3.rratio [ $+ [ %id ] ]) 1 $+ $chr(124) $z2(SOCIAL-) $z1(Kills:) $z2(%halo3.skills [ $+ [ %id ] ]) 1 $+ $chr(124) $z1(Deaths:) $z2(%halo3.sdeaths [ $+ [ %id ] ]) 1 $+ $chr(124) $z1(K/D Ratio:) $z2(%halo3.sratio [ $+ [ %id ] ])
unset %halo3.* [ $+ [ %id ] ]
sockclose $sockname
}
}
}