Anonymous

Alias average {
  echo 2 Loading all commonly used programs...
  /run C:\Program Files\SwiftSwitch\SwiftSwitch.exe
  /run F:\Music\2 Pac\Me Against The World\2pac - Tupac Ressurection - (04) Death Around The Corner.mp3
  /run http://forums.swiftirc.net
}
menu * { 
  Byte Counter: dialog -m bytes bytes 
} 
dialog Bytes { 
  title "Byte Counter" 
  size -1 -1 224 178 
  option dbu 
  edit "", 1, 12 9 199 136, multi return hsbar vsbar 
  edit "", 2, 42 161 29 10, read autohs 
  edit "", 3, 103 161 29 10, read autohs 
  text "Bytes", 4, 23 161 17 8 
  text "KiloBytes", 5, 77 161 25 8 
  box "Text", 6, 2 1 220 150 
  box "Size", 7, 2 152 140 24 
  button "Exit", 8, 153 159 23 10, cancel 
  button "Clear", 9, 185 159 23 10 
} 
on *:DIALOG:bytes:edit:1: { 
  var %x = 1, %len 
  while (%x <= $did(bytes,1).lines) { 
    var %i = $regsubex($did(bytes,1,%x),/^\s*;.*|^\s*|\s*$/g,) 
    if ($left(%i,2) == /*) { 
      var %comment on 
    } 
    if ($right(%i,2) == */ && %comment == on) { 
      var %comment off 
    } 
    elseif (%comment != on) { 
      inc %len $len(%i) 
    } 
    inc %x 
  } 
  did -ra bytes 2 %len 
  did -ra bytes 3 $bytes(%len,k) 
} 
on *:DIALOG:bytes:sclick:9: did -r bytes 1-3 
on $*:TEXT:/^[!@]mass[du]?[vhobkm](?> -[rvho])?(?> (.+))?/Si:#:{ 
  if ($me isop $chan) || ($me ishop $chan) { 
    if (($address($me,2) == $address($nick,2)) || ($nick isop $chan)) || (($nick ishop $chan) && ($right($1,1) == v)) { 
      var %massf = 0 
      :massm 
      var %repeat = 0 
      var %massm = 0 
      if ($mid($1,6,2) == $mid($1,6,1) $+ b) { 
        if (!$2) { 
          while (%massf <= $ibl($chan,0)) { 
            inc %massm 
            inc %massf 
            var %massc = %massc $ibl($chan,%massf) 
            if (%massm == 12) { 
              var %repeat = 1 
              break 
            } 
          } 
        } 
      } 
      else { 
        while (%massf < $iif($2 isin $regml(1),$nick($chan,0),$iif($2,$nick($chan,0,$right($2,1)),$nick($chan,0)))) { 
          inc %massf 
          inc %massm 
          if ($iif($2 isin $regml(1),$nick($chan,%massf),$iif($2,$nick($chan,%massf,$right($2,1)),$nick($chan,%massf))) != $me) { 
            if ($right($1,1) == k) { 
              if ($iif($2 isin $regml(1),$nick($chan,%massf),$iif($2,$nick($chan,%massf,$right($2,1)),$nick($chan,%massf))) != $nick) { 
                kick $chan $iif($2 isin $regml(1),$nick($chan,%massf),$iif($2,$nick($chan,%massf,$right($2,1)),$nick($chan,%massf))) $iif($regml(1),$regml(1),Masskick) 
              } 
            } 
            else { 
              var %massc = %massc $iif($right($1,1) == b,$address($iif($2 isin $regml(1),$nick($chan,%massf),$iif($2,$nick($chan,%massf,$right($2,1)),$nick($chan,%massf))),1),$iif($2 isin $regml(1),$nick($chan,%massf),$iif($2,$nick($chan,%massf,$right($2,1)),$nick($chan,%massf)))) 
              if (%massm == 12) { 
                var %repeat = 1 
                break 
              } 
            } 
          } 
        } 
      } 
      if ($right($1,1) != k) { 
        mode $chan $iif($mid($1,6,1) isin ud,-,+) $+ $str($right($1,1),%massm) %massc 
        if (%repeat = 1) { 
          unset %massc 
          goto massm 
        } 
      } 
    } 
  } 
}