API tools faq
paste
Advertisement
mruno

!NBA 09NOV2014 - Not working

mruno
Nov 9th, 2014
499
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 40.23 KB | None | 0 0
raw download clone embed print report
  1. ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  2. ;script !NBA Script
  3. ;version 09NOV2014
  4. ;author mruno
  5. ;email mruno@ircN.org
  6. ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  7. ;
  8. ;to disable team colors, change alias -l NBA.team.colors return 0
  9. ;to enable team colors, change alias -l NBA.team.colors return 1
  10. ;
  11. ;to enable !scorealert, change alias -l NBA.scorealert.enable return 1
  12. ;to disable !scorealert, change alias -l NBA.scorealert.enable return 0
  13. ;
  14. ;######################################################
  15. ;
  16. alias -l NBA.team.colors return 0
  17. alias -l NBA.scorealert.enable return 1
  18. ;
  19. ;######################################################
  20. ;
  21. ;
  22. alias -l set.correct.network {
  23.   if ($1) {
  24.     var %loop 0
  25.     while ($scon(0) > %loop) {
  26.       inc %loop
  27.       if ($scon(%loop).network == $1) {
  28.         scon %loop
  29.         break
  30.       }
  31.     }
  32.   }
  33. }
  34. on 1:PART:#:{
  35.   if ($hget(NBA.get.scores.NBA.alert,$+($nick,.,$network,.,$chan))) {
  36.     hdel NBA.get.scores.NBA.alert $+($nick,.,$network,.,$chan)
  37.     msg $nick Your NBA ScoreAlert has been deleted for parting.
  38.   }
  39. }
  40. on 1:JOIN:#:if ($timer(NBA.get.scores.NBA.remove.alert. $+ $+($nick,.,$network,.,$chan))) .timerNBA.get.scores.NBA.remove.alert. $+ $+($nick,.,$network,.,$chan) off
  41. on 1:KICK:#:if ($hget(NBA.get.scores.NBA.alert,$+($nick,.,$network,.,$chan))) .timerNBA.get.scores.NBA.remove.alert. $+ $+($nick,.,$network,.,$chan) 1 120 hdel NBA.get.scores.NBA.alert $+($nick,.,$network,.,$chan)
  42. on 1:QUIT:if ($hget(NBA.get.scores.NBA.alert)) hdel -w NBA.get.scores.NBA.alert $nick $+ .*
  43. on 1:NICK:{
  44.   if ($hget(NBA.get.scores.NBA.alert,$+($nick,.,$network,.,$chan))) {
  45.     hadd NBA.get.scores.NBA.alert $newnick $+ . $+ $chan $hget(NBA.get.scores.NBA.alert,$+($nick,.,$network,.,$chan))
  46.     hdel NBA.get.scores.NBA.alert $+($nick,.,$network,.,$chan)
  47.   }
  48. }
  49. on 1:TEXT:?scorealert*:#:{
  50.   if (!$NBA.scorealert.enable) return
  51.   if ($2 != NBA) {
  52.     .timerscorealertNBA 1 2 .notice $nick For NBA scorealerts, Type !scorealert NBA <team>
  53.     halt
  54.   }  
  55.   if ($3 == off) {
  56.     if ($hget(NBA.get.scores.NBA.alert $+($nick,.,$network,.,$chan))) hdel NBA.get.scores.NBA.alert $+($nick,.,$network,.,$chan)
  57.     .notice $nick Deleted your ScoreAlert.
  58.     return
  59.   }
  60.   if ($4 == off) {
  61.     if ($hget(NBA.get.scores.NBA.alert,$+($nick,.,$network,.,$chan))) || ($nick isop $chan) {
  62.       if ($team.lookup($3)) {
  63.         if ($hget(NBA.get.scores.NBA.alert,$+($nick,.,$network,.,$chan))) {
  64.           hdel NBA.get.scores.NBA.alert $+($nick,.,$network,.,$chan)
  65.           .notice $nick Deleted your ScoreAlert for $3
  66.           return
  67.         }
  68.         if ($nick isop $chan) {
  69.           var %a = 0
  70.           while (%a < $hfind(NBA.get.scores.NBA.alert,* $+ $team.lookup($3) $+ *,0,w).data) {
  71.             inc %a
  72.             if ($gettok($hfind(NBA.get.scores.NBA.alert,* $+ $team.lookup($3) $+ *,%a,w).data,2,46) == $chan) {
  73.               hdel NBA.get.scores.NBA.alert $hfind(NBA.get.scores.NBA.alert,* $+ $team.lookup($3) $+ *,%a,w).data
  74.               .notice $nick Deleted ScoreAlert for $3
  75.               return
  76.             }
  77.           }
  78.         }
  79.       }
  80.       else .notice $nick Invalid team name.
  81.     }
  82.     return
  83.   }
  84.   else {
  85.     if (%NBA.get.scores.NBA.ON) || ($hget(NBA.get.scores)) {
  86.       .timerNBA. $+ $nick 1 3 .notice $nick Please try again in 1 minute.
  87.       if (!$timer(NBA.get.scores.NBA.Timeout)) .timerNBA.get.scores.NBA.Timeout 1 15 NBA.get.scores.NBA.Timeout 1
  88.       halt
  89.     }
  90.     if ($3) {
  91.       if ($team.lookup($3)) {
  92.         if ($hget(NBA.get.scores.NBA.alert,$+($nick,.,$network,.,$chan))) .notice $nick Your current scorealert $paren($gettok($v1,1,187)) will be overwritten.
  93.         set %NBA.get.scores.NBA.TEMP.info scorealert
  94.         set %NBA.get.scores.NBA.TEMP.search $team.lookup($3)
  95.         set %NBA.get.scores.NBA.TEMP.chan $chan
  96.         set %NBA.get.scores.NBA.TEMP.nick $nick
  97.  
  98.         NBA.get.scores
  99.       }
  100.       else .notice $nick Invalid team name.
  101.     }
  102.     else .notice $nick Please specify a team.
  103.   }
  104. }
  105. on 1:TEXT:?NBA*:#:{
  106.   set %NBA.get.scores.NBA.TEMP.chan $chan
  107.   set %NBA.get.scores.NBA.TEMP.nick $nick
  108.   if (%NBA.get.scores.NBA.ON) || ($hget(NBA.get.scores)) {
  109.     .timerNBA.spam. $+ nick 1 3 .notice %NBA.get.scores.NBA.TEMP.nick Please try again in 1 minute.
  110.     if (!$timer(NBA.get.scores.NBA.Timeout)) .timerNBA.get.scores.NBA.Timeout 1 15 NBA.get.scores.NBA.Timeout 1
  111.   }
  112.   else {
  113.     if ($2 == all) || ($2 == final) || ($2 == current) || ($2 == upcoming) || ($2 == now) set %NBA.get.scores.NBA.TEMP.info $iif($2 == now,current,$2)
  114.     elseif ($2 == Sunday) || ($2 == Monday) || ($2 == Tuesday) || ($2 == Wednesday) || ($2 == Thursday) || ($2 == Friday) || ($2 == Saturday) || ($2 == Today) || ($2 == Tomorrow) || ($2 == Yesterday) {
  115.       set %NBA.get.scores.NBA.TEMP.info search
  116.       if ($2 == today) set %NBA.get.scores.NBA.TEMP.search $asctime($ctime,dddd)
  117.       elseif ($2 == tomorrow) set %NBA.get.scores.NBA.TEMP.search $asctime($calc(86400 + $ctime),dddd)
  118.       elseif ($2 == yesterday) set %NBA.get.scores.NBA.TEMP.search $asctime($calc($ctime - 86400),dddd)
  119.       else set %NBA.get.scores.NBA.TEMP.search $2
  120.     }
  121.     elseif ($team.lookup($2)) {
  122.       set %NBA.get.scores.NBA.TEMP.info search
  123.       set %NBA.get.scores.NBA.TEMP.search $ifmatch
  124.     }
  125.     elseif (search isin $2) {
  126.       if ($3) {
  127.         if ($3 == today) {
  128.           ;if ($3 == Sunday) || ($3 == Monday) || ($3 == Tuesday) || ($3 == Wednesday) || ($3 == Thursday) || ($3 == Friday) || ($3 == Saturday) || ($3 == Today) || ($3 == Tomorrow) || ($3 == Yesterday) {
  129.           set %NBA.get.scores.NBA.TEMP.info search
  130.           if ($3 == today) set %NBA.get.scores.NBA.TEMP.search $asctime($ctime,dddd)
  131.           elseif ($3 == tomorrow) set %NBA.get.scores.NBA.TEMP.search $asctime($calc(86400 + $ctime),dddd)
  132.           elseif ($3 == yesterday) set %NBA.get.scores.NBA.TEMP.search $asctime($calc($ctime - 86400),dddd)
  133.           else set %NBA.get.scores.NBA.TEMP.search $3
  134.         }
  135.         elseif ($team.lookup($3)) {
  136.           set %NBA.get.scores.NBA.TEMP.info search
  137.           set %NBA.get.scores.NBA.TEMP.search $team.lookup($3)
  138.         }
  139.         else { .notice $nick Invalid search item. Use a team name or city. | halt }
  140.       }
  141.     }
  142.     elseif ($2) { .notice $nick Invalid option or team name. Try $1 Search <team> or $1 Current or $1 Final or $1 Upcoming | halt }
  143.     if (!$2) {
  144.       .timer 1 3 .notice $nick You can also use the following options: Current, Final, or Search <team>. Example: $1 Search Bulls
  145.       .timer 1 3 .notice $nick Or you can have scores messaged to the channel by using: !ScoreAlert NBA <team>
  146.     }
  147.     if (!%NBA.get.scores.NBA.TEMP.info) set %NBA.get.scores.NBA.TEMP.info $iif($2,$2,all)
  148.     set %NBA.get.scores.NBA.TEMP.chan $chan
  149.     set %NBA.get.scores.NBA.TEMP.nick $nick
  150.     NBA.get.scores
  151.   }
  152. }
  153. alias NBA.get.scores.NBA.msg {
  154.   if (%NBA.get.scores.NBA.TEMP.chan) msg %NBA.get.scores.NBA.TEMP.chan $1-
  155. }
  156. alias NBA.get.scores {
  157.   if (%NBA.get.scores.NBA.TEMP.nick) .notice %NBA.get.scores.NBA.TEMP.nick !NBA by mruno gathering data, please wait...
  158.   if ($sock(NBA.get.scores)) sockclose NBA.get.scores
  159.   set -u45 %NBA.get.scores.NBA.ON 1
  160.   if (!$hget(NBA.get.scores)) hmake NBA.get.scores
  161.   sockopen NBA.get.scores scores.covers.com 80
  162.   .timerNBA.get.scores.NBA.Timeout 1 30 NBA.get.scores.NBA.Timeout
  163. }
  164. alias NBA.get.scores.NBA.Timeout {
  165.   if (%NBA.get.scores.NBA.TEMP.info != alert.check) && (!$1) NBA.get.scores.NBA.msg     Error: The NBA request timed out. Please try again later. :(
  166.   NBA.get.scores.NBA.Close
  167. }
  168. alias NBA.get.scores.NBA.alert.check {
  169.   if (!$hget(NBA.get.scores.NBA.options)) hmake NBA.get.scores.NBA.options
  170.   if (!$hget(NBA.get.scores.NBA.options,alert.check)) hadd NBA.get.scores.NBA.options alert.check 1
  171.   else {
  172.     if ($hget(NBA.get.scores.NBA.options,alert.check) > 2) && (!%NBA.get.scores.NBA.ON) {
  173.       ;check for updated scores
  174.       set %NBA.get.scores.NBA.TEMP.info alert.check
  175.       hadd NBA.get.scores.NBA.options alert.check 0
  176.       NBA.get.scores
  177.     }
  178.     else hinc NBA.get.scores.NBA.options alert.check
  179.   }
  180.   if (!$hget(NBA.get.scores.NBA.alert,0).item) {
  181.     .timerNBA.get.scores.NBA.alert off
  182.     hfree NBA.get.scores.NBA.alert
  183.     hfree NBA.get.scores.NBA.options
  184.   }
  185. }
  186. alias NBA.get.scores.NBA.scorealert {
  187.   if (!$1) return
  188.   if (!$hget(NBA.get.scores.NBA.alert)) hmake NBA.get.scores.NBA.alert
  189.   if ($hget(NBA.get.scores.NBA.alert,%NBA.get.scores.NBA.TEMP.nick)) NBA.get.scores.NBA.msg  %NBA.get.scores.NBA.TEMP.nick $+ $chr(44) You can only can track one NBA team at a time.
  190.   else {
  191.     ;team»Current»Today»Now»Oakland at Denver»Pre-game »null:null
  192.     hadd NBA.get.scores.NBA.alert %NBA.get.scores.NBA.TEMP.nick $+ . $+ %NBA.get.scores.NBA.TEMP.chan $+($gettok($1-,1,187),$chr(187),$gettok($1-,7,187))
  193.     NBA.get.scores.NBA.msg 4,12 NBA   Now monitoring:12 $gettok($1-,5,187)   Score:12  $replace( $+ $gettok($1-,7,187),:,$chr(32) to $chr(32),null,0)
  194.     ;.notice %NBA.get.scores.NBA.TEMP.nick If you leave this channel, score alerts will be disabled.
  195.     if (!$timer(NBA.get.scores.NBA.alert)) .timerNBA.get.scores.NBA.alert 0 60 NBA.get.scores.NBA.alert.check
  196.   }
  197. }
  198. alias NBA.get.scores.NBA.End {
  199.   var %a = 0, %item, %items, %team1, %team2, %data
  200.  
  201.   ;scorealert
  202.   if ($hget(NBA.get.scores.NBA.alert)) {
  203.     while ($hget(NBA.get.scores.NBA.alert,0).item > %a) {
  204.       inc %a
  205.       set %item $hget(NBA.get.scores.NBA.alert,%a).item
  206.       set %data $hget(NBA.get.scores.NBA.alert,%a).data
  207.       var %newdata $hget(NBA.get.scores,$hfind(NBA.get.scores,* $+ $gettok(%data,1,187) $+ *,1,w).data)
  208.       if (%newdata) {
  209.         if ($gettok(%newdata,1,187) == final) {
  210.           ;msg final score here
  211.           ;check and see if score alert is still needed
  212.           ;Current»Today»Now»Oakland at Denver»Pre-game »null:null
  213.  
  214.           var %sep $iif(vs isin $gettok(%newdata,4,187),vs,at)
  215.           var %team1 $NBA.get.scores.NBA.teamcolors($gettok($gettok(%newdata,4,187),1- $+ $calc($findtok($gettok(%newdata,4,187),%sep,1,32) - 1),32))
  216.           var %team2 $NBA.get.scores.NBA.teamcolors($gettok($gettok(%newdata,4,187),$calc($findtok($gettok(%newdata,4,187),%sep,1,32) + 1) $+ -,32))
  217.           if (%team isin %team1) var %team0 %team1
  218.           else var %team0 %team2
  219.           set %team1 $remove($strip(%team1),[,],)
  220.           set %team2 $remove($strip(%team2),[,],)
  221.           var %teams, %winner
  222.           if ($gettok($replace($gettok(%newdata,5,187),null,0),1,58) > $gettok($replace($gettok(%newdata,5,187),null,0),2,58)) {
  223.             set %teams  $+ %team1 $+  at %team2 $+ 
  224.             set %winner $strip(%team1)
  225.           }
  226.           elseif ($gettok($replace($gettok(%newdata,5,187),null,0),1,58) < $gettok($replace($gettok(%newdata,5,187),null,0),2,58)) {
  227.             set %teams %team1 at %team2 $+ 
  228.             set %winner $strip(%team2)
  229.           }
  230.           else set %teams %team1 at %team2
  231.           var %rand $rand(1,15)
  232.           .timerScoreAlert. $+ $gettok(%item,2,46) $+ . $+ $replace(%Teams,$chr(32),.) 1 %rand msg $gettok(%item,2,46)   4,12 NBA    4Final: %teams 12Score:2 $replace( $+ $gettok(%newdata,5,187),:,$chr(32) to $chr(32),null,0) 
  233.           .msg $gettok(%item,1,46) 4,12 NBA   4Final: %teams 12Score:2 $replace( $+ $gettok(%newdata,5,187),:,$chr(32) to $chr(32),null,0) 
  234.           hdel NBA.get.scores.NBA.alert %item
  235.         }
  236.         else {
  237.           if ($gettok(%newdata,6,187) != $gettok(%data,2,187)) {
  238.             var %sep $iif(vs isin $gettok(%newdata,4,187),vs,at)
  239.             var %team1 $NBA.get.scores.NBA.teamcolors($gettok($gettok(%newdata,4,187),1- $+ $calc($findtok($gettok(%newdata,4,187),%sep,1,32) - 1),32))
  240.             var %team2 $NBA.get.scores.NBA.teamcolors($gettok($gettok(%newdata,4,187),$calc($findtok($gettok(%newdata,4,187),%sep,1,32) + 1) $+ -,32))
  241.             if (%team isin %team1) var %team0 %team1
  242.             else var %team0 %team2
  243.             set %team1 $remove($strip(%team1),[,],)
  244.             set %team2 $remove($strip(%team2),[,],)
  245.             var %teams
  246.             if ($gettok($replace($gettok(%newdata,6,187),null,0),1,58) > $gettok($replace($gettok(%newdata,6,187),null,0),2,58)) set %teams  $+ %team1 $+  at %team2 $+ 
  247.             elseif ($gettok($replace($gettok(%newdata,6,187),null,0),1,58) < $gettok($replace($gettok(%newdata,6,187),null,0),2,58)) set %teams %team1 at  $+ %team2 $+ 
  248.             else set %teams %team1 at %team2
  249.  
  250.             .timerScoreAlert. $+ $gettok(%item,2,46) $+ . $+ $replace(%Teams,$chr(32),.) 1 $rand(1,10) msg $gettok(%item,2,46)   4[!ScoreAlert] 4,12 NBA   %teams  12 New Score:2 $replace( $+ $gettok(%newdata,6,187),:,$chr(32) to $chr(32),null,0)  14 Status:3 $gettok(%newdata,5,187) 
  251.             hadd NBA.get.scores.NBA.alert %item $gettok(%data,1,187) $+ $chr(187) $+ $gettok(%newdata,6,187)
  252.           }
  253.         }
  254.       }
  255.     }
  256.   }
  257.   if (%NBA.get.scores.NBA.TEMP.info == alert.check) {
  258.     if ($hget(NBA.get.scores)) hfree NBA.get.scores
  259.     unset %NBA.get.scores*
  260.     sockclose NBA.get.scores
  261.     return
  262.   }
  263.  
  264.   if (%NBA.get.scores.NBA.TEMP.info == scorealert) && (%NBA.get.scores.NBA.TEMP.search) {
  265.     if ($hget(NBA.get.scores,$hfind(NBA.get.scores,*current* $+ %NBA.get.scores.NBA.TEMP.search $+ *,1,w).data)) {
  266.       NBA.get.scores.NBA.scorealert %NBA.get.scores.NBA.TEMP.search $+ $chr(187) $+ $ifmatch
  267.       .notice %NBA.get.scores.NBA.TEMP.nick Your ScoreAlert will be disabled if you leave %NBA.get.scores.NBA.TEMP.chan or by typing 12!ScoreAlert NBA off 
  268.     }
  269.     else NBA.get.scores.NBA.msg %NBA.get.scores.NBA.TEMP.nick $+ $chr(44) please choose an NBA game that is currently playing. $iif($hfind(NBA.get.scores,*upcoming* $+ %NBA.get.scores.NBA.TEMP.search $+ *,1,w).data,%NBA.get.scores.NBA.TEMP.search plays on12 $gettok($hget(NBA.get.scores,$ifmatch),2,187) at $gettok($hget(NBA.get.scores,$ifmatch),3,187)) 
  270.   }
  271.   ;team search
  272.   if (%NBA.get.scores.NBA.TEMP.info == search) && (%NBA.get.scores.NBA.TEMP.search) {
  273.     var %a = 0, %item, %items, %team0, %team1, %team2, %team = %NBA.get.scores.NBA.TEMP.search
  274.     set %item $hget(NBA.get.scores,$hfind(NBA.get.scores,* $+ %team $+ *,1,w).data)
  275.     if (!%item) set %item $hget(NBA.get.scores,$hfind(NBA.get.scores,* $+ $left(%team,3) $+ *,1,w).data)
  276.     if (!%item) {
  277.       NBA.get.scores.NBA.msg   Sorry, there are no NBA games found for: %team :(
  278.       NBA.get.scores.NBA.Close
  279.       return
  280.     }
  281.     if (%team == Sun) || (%team == Sunday) || (%team == Mon) || (%team == Monday) || (%team == Tue) || (%team == Tuesday) || (%team == Wed) || (%team == Wednesday) || (%team == Thu) || (%team == Thursday) || (%team == Fri) || (%team == Friday) || (%team == Sat) || (%team == Saturday) || (%team == Today) || (%team == Tomorrow) || (%team == Yesterday) {
  282.       ;Day Search
  283.       set %abbr $left(%team,3)
  284.       var %a = 0, %games, %temp
  285.  
  286.       while ($hfind(NBA.get.scores,* $+ %abbr $+ *,0,w).data > %a) {
  287.         inc %a
  288.         if (%a == 1) NBA.get.scores.NBA.msg 4,12 NBA  $gettok(%item,2,187) $+ :
  289.         set %temp $gettok($hfind(NBA.get.scores,* $+ %abbr $+ *,%a,w).data,2,46)
  290.         if ($len(%temp) == 1) set %temp 0 $+ %temp
  291.         set %games $addtok(%temp,%games,32)
  292.       }
  293.       set %games $sorttok(%games,32)
  294.       set %a 0
  295.       var %game
  296.       while ($gettok(%games,0,32) > %a) {
  297.         inc %a
  298.         set %game NBA. $+ $iif($left($gettok(%games,%a,32),1) == 0,$right($gettok(%games,%a,32),1),$gettok(%games,%a,32))
  299.         set %item $hget(NBA.get.scores,%game)
  300.         if ($gettok(%item,1,187) == Upcoming) NBA.get.scores.NBA.upcoming %item
  301.         elseif ($gettok(%item,1,187) == Final) {
  302.           NBA.get.scores.NBA.final %item
  303.         }
  304.         elseif ($gettok(%item,1,187) == Current) {
  305.           NBA.get.scores.NBA.current %item
  306.         }
  307.       }
  308.  
  309.       ;end of loop
  310.     }
  311.     elseif ($gettok(%item,1,187) == upcoming) {
  312.       set %team %NBA.get.scores.NBA.TEMP.search
  313.       var %sep $iif(vs isin $gettok(%item,4,187),vs,at)
  314.       set %team1 $NBA.get.scores.NBA.teamcolors($gettok($gettok(%item,4,187),1- $+ $calc($findtok($gettok(%item,4,187),%sep,1,32) - 1),32))
  315.       set %team2 $NBA.get.scores.NBA.teamcolors($gettok($gettok(%item,4,187),$calc($findtok($gettok(%item,4,187),%sep,1,32) + 1) $+ -,32))
  316.       if (%team isin %team1) set %team0 %team1
  317.       else set %team0 %team2
  318.       var %consensus
  319.       if ($chr(37) isin $remove($gettok(%item,7,187),$chr(32))) {
  320.         if ($remove($gettok(%item,7,187),$chr(32)) == $remove($gettok(%item,9,187),$chr(32))) set %consensus Dead Even
  321.         elseif ($remove($gettok(%item,7,187),$chr(37)) > $remove($gettok(%item,9,187),$chr(37))) set %consensus  $+ $remove($gettok($strip(%team1),$iif(!$team.colors,-1,-2),32),]) $+  $paren($remove($gettok(%item,7,187),$chr(32))) 14over $remove($gettok($strip(%team2),$iif(!$team.colors,-1,-2),32),]) $paren($remove($gettok(%item,9,187),$chr(32)))
  322.         elseif ($remove($gettok(%item,7,187),$chr(37)) < $remove($gettok(%item,9,187),$chr(37))) set %consensus  $+ $remove($gettok($strip(%team2),$iif(!$team.colors,-1,-2),32),]) $+  $paren($remove($gettok(%item,9,187),$chr(32))) 14over $remove($gettok($strip(%team1),$iif(!$team.colors,-1,-2),32),]) $paren($remove($gettok(%item,7,187),$chr(32)))
  323.       }
  324.       NBA.get.scores.NBA.msg  4,12 NBA    %team0 14Record:12 $iif($gettok($gettok(%item,$iif($gettok(%team,0,32) == 1,4,4-5),187),1,32) isin $strip(%team0),$gettok(%item,6,187),$gettok(%item,$iif(%consensus,8,7),187))
  325.       NBA.get.scores.NBA.msg     14Next game:12 $gettok(%item,4,187) 14 $paren( $+ $gettok(%item,2,187) @ $gettok(%item,3,187) $+ 14) $iif(%consensus,14Consensus: %consensus)
  326.     }
  327.     elseif ($gettok(%item,1,187) == final) {
  328.       var %sep $iif(vs isin $gettok(%item,4,187),vs,at)
  329.       set %team1 $NBA.get.scores.NBA.teamcolors($gettok($gettok(%item,4,187),1- $+ $calc($findtok($gettok(%item,4,187),%sep,1,32) - 1),32))
  330.       set %team2 $NBA.get.scores.NBA.teamcolors($gettok($gettok(%item,4,187),$calc($findtok($gettok(%item,4,187),%sep,1,32) + 1) $+ -,32))
  331.       if (%team isin %team1) set %team0 %team1
  332.       else set %team0 %team2
  333.       set %team1 $remove($strip(%team1),[,],)
  334.       set %team2 $remove($strip(%team2),[,],)
  335.       var %teams
  336.       if ($gettok($replace($gettok(%item,5,187),null,0),1,58) > $gettok($replace($gettok(%item,5,187),null,0),2,58)) set %teams  $+ %team1 $+  at %team2 $+ 
  337.       elseif ($gettok($replace($gettok(%item,5,187),null,0),1,58) < $gettok($replace($gettok(%item,5,187),null,0),2,58)) set %teams %team1 at %team2 $+ 
  338.       else set %teams %team1 at %team2
  339.       NBA.get.scores.NBA.msg  4,12 NBA    %team0 Last game:12 $gettok(%item,2,187)
  340.       NBA.get.scores.NBA.msg         %teams  - Score: $replace($gettok(%item,5,187),null,0,:,$chr(32) to $chr(32)) - $paren(12FINAL) 
  341.     }
  342.     elseif ($gettok(%item,1,187) == current) {
  343.       set %team1 $NBA.get.scores.NBA.teamcolors($gettok($gettok(%item,4,187),1- $+ $calc($findtok($gettok(%item,4,187),%sep,1,32) - 1),32))
  344.       set %team2 $NBA.get.scores.NBA.teamcolors($gettok($gettok(%item,4,187),$calc($findtok($gettok(%item,4,187),%sep,1,32) + 1) $+ -,32))
  345.       if (%team isin %team1) set %team0 %team1
  346.       else set %team0 %team2
  347.       set %team1 $remove($strip(%team1),[,],)
  348.       set %team2 $remove($strip(%team2),[,],)
  349.       var %teams
  350.       if ($gettok($replace($gettok(%item,5,187),null,0),1,58) > $gettok($replace($gettok(%item,5,187),null,0),2,58)) set %teams  $+ %team1 $+  at %team2 $+ 
  351.       elseif ($gettok($replace($gettok(%item,5,187),null,0),1,58) < $gettok($replace($gettok(%item,5,187),null,0),2,58)) set %teams %team1 at %team2 $+ 
  352.       else set %teams %team1 at %team2
  353.  
  354.       NBA.get.scores.NBA.msg  4,12 NBA    %team0 14Currently playing: $replace($gettok(%item,4,187),at,14@)
  355.       NBA.get.scores.NBA.msg      14Score:12 $replace($gettok(%item,6,187),null,0,:,$chr(32) to $chr(32))  14Status:12 $gettok(%item,5,187) $iif(%NBA.get.scores.NBA.TEMP.GameStatus,- %NBA.get.scores.NBA.TEMP.GameStatus)
  356.     }
  357.   }
  358.  
  359.   if (%NBA.get.scores.NBA.TEMP.info == all) || (%NBA.get.scores.NBA.TEMP.info == current) {
  360.     ;gathers all the CURRENT games
  361.     while (%a < $hget(NBA.get.scores,0).item) {
  362.       inc %a
  363.       set %item $hget(NBA.get.scores,%a).item
  364.       if ($gettok($hget(NBA.get.scores,%item),1,187) == Current) set %items $addtok(%items,%item,44)
  365.     }
  366.     ;echoes all the CURRENT games
  367.     ;Current»Today»Now»Oakland at Denver»Pre-game »null:null
  368.  
  369.     set %a 0
  370.     set %item
  371.     if (%items) {
  372.       NBA.get.scores.NBA.msg 4,12 NBA   Games 12currently playing:
  373.       while (%a < $gettok(%items,0,44)) {
  374.         inc %a
  375.         ;if (%a == 1) NBA.get.scores.NBA.msg  4,12 NBA 
  376.         set %item $hget(NBA.get.scores,$gettok(%items,%a,44))
  377.         NBA.get.scores.NBA.current %item
  378.       }
  379.     }
  380.     else {
  381.       if (%NBA.get.scores.NBA.TEMP.info == current) NBA.get.scores.NBA.msg There are currently no NBA games being played.
  382.     }
  383.   }
  384.  
  385.   if (%NBA.get.scores.NBA.TEMP.info == all) || (%NBA.get.scores.NBA.TEMP.info == final) {
  386.     ;gathers all the FINAL games
  387.  
  388.     ;Final»Thursday September 19 2013»0»Kansas City at Philadelphia »26:16
  389.  
  390.     set %a 0
  391.     set %item
  392.     set %items
  393.     while (%a < $hget(NBA.get.scores,0).item) {
  394.       inc %a
  395.       set %item $hget(NBA.get.scores,%a).item
  396.       if ($gettok($hget(NBA.get.scores,%item),1,187) == FINAL) set %items $addtok(%items,%item,44)
  397.     }
  398.     ;echoes all the FINAL games
  399.     set %a 0
  400.     set %item
  401.     if (%items) {
  402.       while (%a < $gettok(%items,0,44)) {
  403.         inc %a
  404.         set %item $hget(NBA.get.scores,$gettok(%items,%a,44))
  405.         ;if (%a == 1) NBA.get.scores.NBA.msg  4,12 NBA 
  406.         NBA.get.scores.NBA.final %item
  407.       }
  408.     }
  409.     else {
  410.       if (%NBA.get.scores.NBA.TEMP.info == final) NBA.get.scores.NBA.msg There are currently no NBA final games for this week.
  411.     }
  412.   }
  413.   if (%NBA.get.scores.NBA.TEMP.info == all) || (%NBA.get.scores.NBA.TEMP.info == upcoming) {
  414.     ;    Upcoming»Monday September 23 2013»8:40p ET»Oakland at Denver» »1-1 (0-1 V) »36% »2-0 (1-0 H) »64%
  415.     var %a = 1, %data, %last, %item, %total = 0
  416.     while ($hget(NBA.get.scores,NBA. $+ %a)) {
  417.       set %data $hget(NBA.get.scores,NBA. $+ %a)
  418.       if (upcoming isin $gettok(%data,1,187)) {
  419.         if (%last != $gettok(%data,2,187)) NBA.get.scores.NBA.msg 4,12 NBA   $gettok(%data,2,187) $+ :
  420.         inc %total
  421.         NBA.get.scores.NBA.upcoming %data
  422.       }
  423.       set %last $gettok(%data,2,187)
  424.       inc %a
  425.     }
  426.     if (!%total) && (%NBA.get.scores.NBA.TEMP.info == upcoming) NBA.get.scores.NBA.msg There are no more NBA upcoming games for this week.
  427.   }
  428.   .timerNBA.get.scores.NBA.Close 1 15 NBA.get.scores.NBA.Close
  429. }
  430. alias NBA.get.scores.NBA.final {
  431.   if (!$1) return
  432.   var %item = $1-, %team1, %team2
  433.   var %sep $iif(vs isin $gettok(%item,4,187),vs,at)
  434.   set %team1 $NBA.get.scores.NBA.teamcolors($gettok($gettok(%item,4,187),1- $+ $calc($findtok($gettok(%item,4,187),%sep,1,32) - 1),32))
  435.   set %team2 $NBA.get.scores.NBA.teamcolors($gettok($gettok(%item,4,187),$calc($findtok($gettok(%item,4,187),%sep,1,32) + 1) $+ -,32))
  436.  
  437.   var %teams
  438.   if ($gettok($replace($gettok(%item,5,187),null,0),1,58) > $gettok($replace($gettok(%item,5,187),null,0),2,58)) set %teams  $+ %team1 $+  14@ %team2 $+ 
  439.   elseif ($gettok($replace($gettok(%item,5,187),null,0),1,58) < $gettok($replace($gettok(%item,5,187),null,0),2,58)) set %teams %team1 14@  $+ %team2 $+ 
  440.   else set %teams %team1 14@ %team2
  441.  
  442.   NBA.get.scores.NBA.msg       %teams  14 Score:12 $replace($gettok(%item,5,187),null,0,:,$chr(32) 14to12 $chr(32))  14 Status:4 FINAL 
  443. }
  444. alias NBA.get.scores.NBA.upcoming {
  445.   if (!$1) return
  446.   var %item $1-
  447.   var %sep $iif(vs isin $gettok(%item,4,187),vs,at)
  448.   var %team1 $NBA.get.scores.NBA.teamcolors($gettok($gettok(%item,4,187),1- $+ $calc($findtok($gettok(%item,4,187),%sep,1,32) - 1),32))
  449.   var %team2 $NBA.get.scores.NBA.teamcolors($gettok($gettok(%item,4,187),$calc($findtok($gettok(%item,4,187),%sep,1,32) + 1) $+ -,32))
  450.  
  451.   var %consensus
  452.   if ($chr(37) isin $remove($gettok(%item,7,187),$chr(32))) {
  453.     if ($remove($gettok(%item,7,187),$chr(32)) == $remove($gettok(%item,9,187),$chr(32))) set %consensus Dead Even
  454.     elseif ($remove($gettok(%item,7,187),$chr(37)) > $remove($gettok(%item,9,187),$chr(37))) set %consensus  $+ $remove($gettok($strip(%team1),$iif(!$team.colors,-1,-2),32),]) $+  $paren($remove($gettok(%item,7,187),$chr(32))) $+  14over $remove($gettok($strip(%team2),$iif(!$team.colors,-1,-2),32),]) $paren($remove($gettok(%item,9,187),$chr(32))) 
  455.     elseif ($remove($gettok(%item,7,187),$chr(37)) < $remove($gettok(%item,9,187),$chr(37))) set %consensus  $+ $remove($gettok($strip(%team2),$iif(!$team.colors,-1,-2),32),]) $+  $paren($remove($gettok(%item,9,187),$chr(32))) $+  14over $remove($gettok($strip(%team1),$iif(!$team.colors,-1,-2),32),]) $paren($remove($gettok(%item,7,187),$chr(32))) 
  456.   }
  457.   NBA.get.scores.NBA.msg       $gettok(%item,3,187)  %team1 $paren($gettok($gettok(%item,6,187),1,32)) 14@ %team2 $paren($gettok($gettok(%item,$iif(%consensus,8,7),187),1,32)) $iif(%consensus,14 Consensus: %consensus)
  458. }
  459. alias NBA.get.scores.NBA.current {
  460.   if (!$1) return
  461.   var %item = $1-, %team1, %team2
  462.   var %sep $iif(vs isin $gettok(%item,4,187),vs,at)
  463.   set %team1 $NBA.get.scores.NBA.teamcolors($gettok($gettok(%item,4,187),1- $+ $calc($findtok($gettok(%item,4,187),%sep,1,32) - 1),32))
  464.   set %team2 $NBA.get.scores.NBA.teamcolors($gettok($gettok(%item,4,187),$calc($findtok($gettok(%item,4,187),%sep,1,32) + 1) $+ -,32))
  465.   var %teams
  466.   var %team1score $gettok($replace($gettok(%item,6,187),null,0),1,58)
  467.   var %team2score $gettok($replace($gettok(%item,6,187),null,0),2,58)
  468.   if (%team1score > %team2score) set %teams  $+ %team1 14@ %team2 
  469.   elseif (%team1score < %team2score) set %teams %team1 14@  $+ %team2 
  470.   else set %teams %team1 14@ %team2
  471.   NBA.get.scores.NBA.msg       %teams 14 14Score: $replace($gettok(%item,6,187),null,0,:,$chr(32) to $chr(32))  14 Status:3 $gettok(%item,5,187) $iif($gettok(%item,7,187),- $gettok(%item,7,187)) 
  472. }
  473. alias NBA.get.scores.NBA.Sorted {
  474.   if ($1) {
  475.     ;sorts items by putting all the dates in hash tables
  476.     var %z = 0, %new
  477.     while ($hget(NBA.get.scores,0).item > %z) {
  478.       inc %z
  479.       if (NBA. isin $hget(NBA.get.scores,%z).item) set %new $addtok(%new,$v2,44)
  480.     }
  481.     set %z 0
  482.     var %data, %time, %data2, %all, %item
  483.     while ($gettok(%items,0,44) > %z) {
  484.       inc %z
  485.       set %item $gettok(%items,%z,44)
  486.       set %data $hget(NBA.get.scores,%item)
  487.       set %new $gettok(%data,2,187) $+ . $+ $gettok(%data,3,187)
  488.       set %data2 %new
  489.       set %time $remove($gettok(%data2,2,46),p,a,et)
  490.       set %time $calc($calc($gettok(%time,1,58) * 360) + $calc($gettok(%time,2,58) * 60))
  491.       set %time $calc($ctime($gettok(%data2,1,46)) + %time)
  492.       hadd NBA.get.scores %time $addtok($hget(NBA.get.scores,%time),%item,44)
  493.     }
  494.  
  495.     var %z = 0
  496.     set %new
  497.     while ($hget(NBA.get.scores,0).item > %z) {
  498.       inc %z
  499.       if (NBA. !isin $hget(NBA.get.scores,%z).item) set %new $addtok(%new,$v2,44)
  500.     }
  501.     return $sorttok(%new,44,n)
  502.   }
  503. }
  504. alias NBA.get.scores.NBA.Close {
  505.   sockclose NBA.get.scores
  506.   unset %NBA.get.scores.NBA.TEMP.*
  507.   .timerhfree.NBA.get.scores 1 30 if ($hget(NBA.get.scores)) hfree NBA.get.scores
  508. }
  509. alias -l useragent {
  510.   var %r $rand(1,11)
  511.   if (%r == 1) return User-Agent: Mozilla/5.0 (compatible; MSIE 9.0; Windows NT 6.1; Trident/5.0)
  512.   elseif (%r == 2) return User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-GB; rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.6
  513.   elseif (%r == 3) return User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)
  514.   elseif (%r == 4) return User-Agent: Opera/9.20 (Windows NT 6.0; U; en)
  515.   elseif (%r == 5) return User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.5) Gecko/20060127 Netscape/8.1
  516.   elseif (%r == 6) return User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10_6_8) AppleWebKit/537.13+ (KHTML, like Gecko) Version/5.1.7 Safari/534.57.2
  517.   elseif (%r == 7) return User-Agent: Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_6_7; da-dk) AppleWebKit/533.21.1 (KHTML, like Gecko) Version/5.0.5 Safari/533.21.1
  518.   elseif (%r == 8) return User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.2; WOW64; rv:1.8.0.7) Gecko/20110321 MultiZilla/4.33.2.6a SeaMonkey/8.6.55
  519.   elseif (%r == 9) return User-Agent: Mozilla/5.0 (Windows NT 6.3; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/37.0.2049.0 Safari/537.36
  520.   elseif (%r == 10) return User-Agent: Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/36.0.1985.67 Safari/537.36
  521.   elseif (%r == 11) return User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:31.0) Gecko/20100101 Firefox/31.0
  522. }
  523. on *:sockopen:NBA.get.scores: {
  524.   sockwrite -nt $sockname GET /basketball-scores-matchups.aspx HTTP/1.1
  525.   sockwrite -nt $sockname $useragent
  526.   sockwrite -nt $sockname Host: scores.covers.com
  527.   sockwrite -nt $sockname Accept-Language: en-us
  528.   sockwrite -nt $sockname Accept: */*
  529.   sockwrite -nt $sockname $crlf
  530. }
  531. on *:sockread:NBA.get.scores: {
  532.   var %temp, %date, %item, %data
  533.   if ($sockerr) {
  534.     var %error
  535.     if ($sockerr == 3) set %error Connection refused by remote host
  536.     elseif ($sockerr == 4) set %error DNS lookup for hostname failed
  537.     elseif ($sockerr > 0) set %error Unknown socket error ( $+ $sockerr $+ )
  538.     echo -s NBA.get.scores:     4Socket Error: %error
  539.     .timerNBA.get.scores.NBA.error 1 10 NBA.get.scores.NBA.msg     4,12 NBA   Socket Error. Please try again later. :(
  540.     .timerNBA.get.scores.NBA.close 1 15 NBA.get.scores.NBA.close
  541.     halt
  542.   }
  543.   else {
  544.     .timerNBA.get.scores.NBA.Timeout off
  545.     sockread %temp
  546.  
  547.     ;STATUS»DATE»TIME»TEAMS»STATUS»SCORE(Away:Home)»Game Status
  548.  
  549.     ;new date for NBA games
  550.     ;<h2><div ID="DayNav" class="date-nav"><a href="javascript:void(0);" onclick="javascript:ClientUpdateCalAndNav(9,&#39;2014-2015&#39;,2014,11,7);">Fri, Nov 7</a>&nbsp;&nbsp;&#8226;&nbsp;<a><b>Sat, Nov 8</b></a>&nbsp;&nbsp;&#8226;&nbsp;<a href="javascript:void(0);" onclick="javascript:ClientUpdateCalAndNav(9,&#39;2014-2015&#39;,2014,11,9);">Sun, Nov 9</a></div></h2>
  551.     ;$wildtok(%test,nbsp;<a><b>*</b></a>,1,38)
  552.     if (<h2><div ID="DayNav" class="date-nav"><a href="javascript:void(0);" onclick="javascript:ClientUpdateCalAndNav isin %temp) && (%date != $striphtml(%temp)) {
  553.       set %NBA.get.scores.NBA.TEMP.DATE $remove($striphtml($wildtok(%test,nbsp;<a><b>*</b></a>,1,38)),nbsp;)
  554.     }
  555.     elseif (*<span class="activetab" id="In_Game_Status_9_*">Final</span>* iswm %temp) set %NBA.get.scores.NBA.TEMP.DATE Final
  556.     else set %NBA.get.scores.NBA.TEMP.DATE Today
  557.  
  558.  
  559.     ;if (<td colspan="2" class="scoreboard-left"><h2> isin %temp) && (%date != $striphtml(%temp)) set %NBA.get.scores.NBA.TEMP.DATE $remove($striphtml(%temp),$chr(44))
  560.  
  561.     if (*<td class="scoreboard-*">* iswm %temp) {
  562.       if ($striphtml(%temp)) {
  563.         if (!$hget(NBA.get.scores)) hmake NBA.get.scores
  564.         ;In_Game_Status_9_
  565.         unset %NBA.get.scores.NBA.TEMP.GameStatus
  566.         set %item $striphtml(%temp)
  567.  
  568.         set %NBA.get.scores.NBA.TEMP.title $gettok($wildtok(%temp,*Title_9_*,1,60),2,62)
  569.  
  570.         if (Final isin %item) {
  571.           ;Game Over
  572.           set %NBA.get.scores.NBA.TEMP.STATUS Final
  573.           hadd NBA.get.scores NBA. $+ $calc($hget(NBA.get.scores,0).item + 1) $+(Final,$chr(187),%NBA.get.scores.NBA.TEMP.DATE,$chr(187),0,$chr(187),$gettok($wildtok(%temp,*Title_9_*,1,60),2,62))
  574.         }
  575.         elseif (*AM ET* iswm %item) || (*PM ET* iswm %item) {
  576.           ;Game Upcoming
  577.           set %NBA.get.scores.NBA.TEMP.STATUS Upcoming
  578.           hadd NBA.get.scores NBA. $+ $calc($hget(NBA.get.scores,0).item + 1) $+(Upcoming,$chr(187),%NBA.get.scores.NBA.TEMP.DATE,$chr(187),$replace($remove($gettok($wildtok(%temp,*span class="pretab">*,1,60),2,62),$chr(32)),pmET,p ET,amET,a ET),$chr(187),$gettok($wildtok(%temp,*Title_9_*,1,60),2,62),$chr(187))
  579.         }
  580.         else {
  581.           ;Game is ON!
  582.           set %NBA.get.scores.NBA.TEMP.STATUS Current
  583.           hadd NBA.get.scores NBA. $+ $calc($hget(NBA.get.scores,0).item + 1) $+(Current,$chr(187),$asctime($ctime,dddd),$chr(187),Now,$chr(187),$gettok($wildtok(%temp,*Title_9_*,1,60),2,62),$chr(187),$gettok($wildtok(%temp,*In_Game_Status_9_*,1,60),2,62))
  584.  
  585.         }
  586.       }
  587.     }
  588.   }
  589.   ;if (*<td class="datac" id="*Score_9* iswm %temp) {
  590.   if (<td class="datarcb isin %temp) {
  591.     if (%NBA.get.scores.NBA.TEMP.STATUS == Current) || (%NBA.get.scores.NBA.TEMP.STATUS == Final) {
  592.       var %i $hfind(NBA.get.scores,* $+ %NBA.get.scores.NBA.TEMP.title $+ *,1,w).data
  593.  
  594.       if (VisitScore isin %temp) {
  595.         hadd NBA.get.scores %i $hget(NBA.get.scores,%i) $+($chr(187),$iif(!$striphtml(%temp),null,$remove($striphtml(%temp),$chr(32))),:)
  596.       }
  597.       elseif (HomeScore isin %temp) {
  598.         hadd NBA.get.scores %i $hget(NBA.get.scores,%i) $+ $iif(!$striphtml(%temp),null,$remove($striphtml(%temp),$chr(32)))
  599.       }
  600.     }
  601.   }
  602.   if (%NBA.get.scores.NBA.TEMP.STATUS == Upcoming) && ($striphtml(%temp)) {
  603.     var %i $hfind(NBA.get.scores,* $+ %NBA.get.scores.NBA.TEMP.title $+ *,1,w).data
  604.     ;if (*<td class="data">*-* (*-* ?)</td>* iswm %temp) hadd NBA.get.scores %i $hget(NBA.get.scores,%i) $+($chr(187),$striphtml(%temp))
  605.     if (*<td class="data">*(*)*</td>* iswm %temp) {
  606.       hadd NBA.get.scores %i $hget(NBA.get.scores,%i) $+($chr(187),$striphtml(%temp))
  607.     }
  608.  
  609.     if (*<td class="datac">*%</td>* iswm %temp) {
  610.       ;consensus
  611.       ;<td class="datac">68%</td>
  612.       hadd NBA.get.scores %i $hget(NBA.get.scores,%i) $+($chr(187),$striphtml(%temp))
  613.     }
  614.   }
  615.   .timerNBA.get.scores.NBA.End 1 3 NBA.get.scores.NBA.End
  616. }
  617.  
  618. alias NBA.get.scores.NBA.teamcolors {
  619.   if (!$1) return
  620.   var %a
  621.   if ($1- == Boston) set %a 0,3[ $v1 Celtics ]
  622.   elseif (Brooklyn isin $1-) set %a 1,0[ $v1 Nets ]
  623.   elseif (New York isin $1-) set %a 7,12[ $v1 Knicks ]
  624.   elseif (Philadelphia isin $1-) set %a 12,0[ $v1 76ers ]
  625.   elseif (Toronto isin $1-) set %a 4,1[ $v1 Raptors ]
  626.   elseif (Chicago isin $1-) set %a 1,4[ $v1 Bulls ]
  627.   elseif (Cleveland isin $1-) set %a 7,12[ $v1 Cavaliers ]
  628.   elseif (Detroit isin $1-) set %a 0,7[ $v1 Pistons ]
  629.   elseif (Indiana isin $1-) set %a 8,12[ $v1 Pacers ]
  630.   elseif (Milwaukee isin $1-) set %a 7,3[ $v1 Bucks ]
  631.   elseif (Atlanta isin $1-) set %a 7,12[ $v1 Hawks ]
  632.   elseif (Charlotte isin $1-) set %a 1,11[ $v1 Hornets ]
  633.   elseif (Miami isin $1-) set %a 1,7[ $v1 Heat ]
  634.   elseif (Orlando isin $1-) set %a 1,11[ $v1 Magic ]
  635.   elseif (Washington isin $1-) set %a 7,2[ $v1 Wizards ]
  636.   elseif (Dallas isin $1-) set %a 0,2[ $v1 Mavericks ]
  637.   elseif (Houston isin $1-) set %a 4,0[ $v1 Rockets ]
  638.   elseif (Memphis isin $1-) set %a 10,1[ $v1 Grizzlies ]
  639.   elseif (New Orleans isin $1-) set %a 8,2[ $v1 Pelicans ]
  640.   elseif (San Antonio isin $1-) set %a 15,1[ $v1 Spurs ]
  641.   elseif (Denver isin $1-) set %a 7,10[ $v1 Nuggets ]
  642.   elseif (Minnesota isin $1-) set %a 11,14[ $v1 Timberwolves ]
  643.   elseif (Oklahoma City isin $1-) set %a 11,7[ $v1 Thunder ]
  644.   elseif (Portland isin $1-) set %a 7,1[ $v1 Trail Blazers ]
  645.   elseif (Utah isin $1-) set %a 8,2[ $v1 Jazz ]
  646.   elseif (Golden State isin $1-) set %a 8,12[ $v1 Warriors ]
  647.   elseif (Los Angeles Clippers isin $1-) || (L.A. Clippers isin $1-) || (LA Clippers isin $1-) set %a 2,4[ $v1 ]
  648.   elseif (Los Angeles Lakers isin $1-) || (L.A. Lakers isin $1-) || (LA Lakers isin $1-) set %a 6,8[ $v1 ]
  649.   elseif (Phoenix isin $1-) set %a 7,1[ $v1 Suns ]
  650.   elseif (Sacramento isin $1-) set %a 6,15[ $v1 Kings ]
  651.   else {
  652.     iecho 4ERROR UNKNOWN NBA TEAM: $1-
  653.     return
  654.   }
  655.  
  656.   if (!$team.colors) return 12 $+ $remove($strip(%a),[,]) $+ 
  657.   else return %a
  658. }
  659.  
  660. alias -l team.lookup {
  661.   if (!$1) return
  662.   var %a
  663.   if (Boston isin $1-) set %a $v1
  664.   elseif (Brooklyn isin $1-) set %a $v1
  665.   elseif (New York isin $1-) set %a $v1
  666.   elseif (Philadelphia isin $1-) set %a $v1
  667.   elseif (Tortonto isin $1-) set %a $v1
  668.   elseif (Denver isin $1-) set %a $v1
  669.   elseif (Minnesota isin $1-) set %a $v1
  670.   elseif (Oklahoma City isin $1-) set %a $v1
  671.   elseif (Portland isin $1-) set %a $v1
  672.   elseif (Utah isin $1-) set %a $v1
  673.   elseif (Golden State isin $1-) set %a $v1
  674.   elseif (L.A. Clippers isin $1-) || (LA Clippers isin $1-) || (L. A. Clippers isin $1-) set %a L.A. Clippers
  675.   elseif (L.A. Lakers isin $1-) || (LA Lakers isin $1-) || (L. A. Lakers isin $1-) set %a L.A. Lakers
  676.   elseif (Phoenix isin $1-) set %a $v1
  677.   elseif (Sacramento isin $1-) set %a $v1
  678.   elseif (Chicago isin $1-) set %a $v1
  679.   elseif (Cleveland isin $1-) set %a $v1
  680.   elseif (Detroit isin $1-) set %a $v1
  681.   elseif (Indiana isin $1-) set %a $v1
  682.   elseif (Milwaukee isin $1-) set %a $v1
  683.   elseif (Atlanta isin $1-) set %a $v1
  684.   elseif (Charlotte isin $1-) set %a $v1
  685.   elseif (Miami isin $1-) set %a $v1
  686.   elseif (Orlando isin $1-) set %a $v1
  687.   elseif (Washington isin $1-) set %a $v1
  688.   elseif (Dallas isin $1-) set %a $v1
  689.   elseif (Houston isin $1-) set %a $v1
  690.   elseif (Memphis isin $1-) set %a $v1
  691.   elseif (New Orleans isin $1-) set %a $v1
  692.   elseif (San Antonio isin $1-) set %a $v1
  693.  
  694.   elseif (Celtics isin $1-) set %a Boston
  695.   elseif (Nets isin $1-) set %a Brooklyn
  696.   elseif (Knicks isin $1-) set %a New York
  697.   elseif (76ers isin $1-) set %a Philadelphia
  698.   elseif (Raptors isin $1-) set %a Toronto
  699.   elseif (Bulls isin $1-) set %a Chicago
  700.   elseif (Cavaliers isin $1-) set %a Cleveland
  701.   elseif (Pistons isin $1-) set %a Detroit
  702.   elseif (Pacers isin $1-) set %a Indiana
  703.   elseif (Bucks isin $1-) set %a Milwaukee
  704.   elseif (Hawks isin $1-) set %a Atlanta
  705.   elseif (Hornets isin $1-) set %a Charlotte
  706.   elseif (Heat isin $1-) set %a Miami
  707.   elseif (Magic isin $1-) set %a Orlando
  708.   elseif (Wizards isin $1-) set %a Washington
  709.   elseif (Mavericks isin $1-) set %a Dallas
  710.   elseif (Rockets isin $1-) set %a Houston
  711.   elseif (Grizzlies isin $1-) set %a Memphis
  712.   elseif (Pelicans isin $1-) set %a New Orleans
  713.   elseif (Spurs isin $1-) set %a San Antonio
  714.   elseif (Nuggets isin $1-) set %a Denver
  715.   elseif (Timberwolves isin $1-) set %a Minnesota
  716.   elseif (Thunder isin $1-) set %a Oklahoma City
  717.   elseif (Trail Blazers isin $1-) set %a Portland
  718.   elseif (Jazz isin $1-) set %a Utah
  719.   elseif (Warriors isin $1-) set %a Golden State
  720.   elseif (Clippers isin $1-) set %a L.A. Clippers
  721.   elseif (Lakers isin $1-) set %a L.A. Lakers
  722.   elseif (Suns isin $1-) set %a Phoenix
  723.   elseif (Kings isin $1-) set %a Sacramento
  724.  
  725.   else {
  726.     iecho 4NBA Unknown team: $1-
  727.     return
  728.   }
  729.  
  730.   return %a
  731. }
  732. alias -l paren if ($1) return ( $+ $1- $+ )
  733.  
  734. ;==================================================================================
  735. ;Author  : fubar
  736. ;Function: $striphtml identifier
  737. ;          This identifier strips html code from a string of text.
  738. ;         Good for using when retrieving webpages within mirc.  
  739. ;==================================================================================
  740. ;
  741. ;This identifier strips html code from a string of text. Good for using when retrieving webpages within mirc.
  742. ;
  743. ;Usage: $striphtml(html code)
  744. alias -l Xchr {
  745.   var %return $regsubex($regsubex($1-,/&#x([A-F0-9]{1,2});/g,$chr($base($regml(\n),16,10))),/&#([0-9]{2});/g,$chr(\1))
  746.   return $replacecs(%return,&ndash;,–,&middot;,·,&raquo;,»,&laquo;,«,&Uuml;,Ü,&uuml;,ü,&Aacute;,Á,&aacute;,á,&Eacute;,$&
  747.     É,&eacute;,é,&Iacute;,Í,&iacute;,í,&Oacute;,Ó,&oacute;,ó,&Ntilde;,Ñ,&ntilde;,ñ,&Uacute;,Ú,&uacute;,ú,&nbsp;,$chr(32),$&
  748.     &aelig;,æ,&quot;,")
  749. }
  750. alias -l striphtml {
  751.   ; making sure there are parameters to work with
  752.   IF ($1) {
  753.     ; Setting my variables. The %opt is set kind of funky
  754.     ; all it does is combine <two><brackets> into 1 <twobrackets>, fewer loops this way
  755.     ; also stripped tab spaces
  756.     VAR %strip
  757.     var %opt <> $remove($1-,> <,><,$chr(9)) <>
  758.     var %n 2
  759.     ; using $gettok() I checked the text in front of '>' (chr 62)
  760.     ; then the second $gettok checks the text behind '<' (chr 60)
  761.     ; so I'm extracting anything between >text<
  762.     WHILE ($gettok($gettok(%opt,%n,62),1,60)) {
  763.       ; take each peice of text and add it to the same variable
  764.       %strip = %strip $ifmatch
  765.       %strip = $replace(%strip,&quot;,")
  766.       ; increase the variable so the while statement can check the next part
  767.       INC %n
  768.     }
  769.     ; now that the loop has finished we can return the stripped html code
  770.     RETURN $xchr(%strip)
  771.   }
  772. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!