Someone

menu * {
  Oliver's mIRC Disco!! {
    if ($exists($qt($mircdirfreedom.mp3))) && ($file($qt($mircdirfreedom.mp3)).size >= 8796744) {
      dialog -md disco disco
    }
    else {
      dialog -md freedomdl freedomdl
    }
  }
}
dialog freedomdl {
  title "Downloading"
  size -1 -1 207 30
  option dbu
  edit "", 1, 3 16 200 10, disable
  box "", 2, 2 12 203 16
  text "Downloading Freedom.mp3 : ", 3, 53 3 100 8, center
}
on *:dialog:freedomdl:init:*:{
  sockopen freedom www.boshty.co.uk 80
  .timerfree 0 1 dlinfo
  .timerfree2 0 0.5 dlinfo2
}
on *:dialog:freedomdl:close:*:{
  sockclose freedom
  .timerfree off
  .timerfree2 off
}
alias -l dlinfo {
  did -ar freedomdl 1 $str(|,$round($calc($file($qt($mircdirfreedom.mp3)).size / 86000),0))
  did -ar freedomdl 3 Downloading Freedom.mp3 : $round($calc($file($qt($mircdirfreedom.mp3)).size / 86000),0) $+ %
}
alias -l dlinfo2 {
  did -ar freedomdl 3 Downloading Freedom.mp3 : $round($calc($file($qt($mircdirfreedom.mp3)).size / 86000),2) $+ %
  if ($round($calc($file($qt($mircdirfreedom.mp3)).size / 86000),0) >= 100) {
    .timerfree off
    .timerfree2 off
    did -ar freedomdl 1 Download Complete!
    did -ar freedomdl 3 Downloading Freedom.mp3 : 100%
    .timer 1 1 dialog -md disco disco
    .timer 1 1 dialog -x freedomdl freedomdl
  }
}
on *:sockopen:freedom: {
  sockwrite -nt $sockname GET /boshtyfile/uploads/rage.mp3 HTTP/1.1
  sockwrite -nt $sockname Host: www.boshty.co.uk
  sockwrite -nt $sockname $crlf
}
on *:sockread:freedom:{
  if ($sockerr) { halt }
  else {
    if (!$sock(freedom).mark) {
      var %freedom
      sockread %freedom
      if (!%freedom) sockmark freedom 1
    }
    else {
      sockread &freedom
      bwrite $qt($mircdirfreedom.mp3) -1 -1 &freedom
    }
  }
}
dialog disco {
  title "DA RAVE!!"
  size -1 -1 230 149
  option dbu
  button "RAVE ON", 1, 15 15 199 119, ok cancel
  box "", 2, 4 2 221 142
  radio "Radio Button", 3, 7 7 8 8
  radio "Radio Button", 4, 7 15 8 8
  radio "Radio Button", 5, 7 23 8 8
  radio "Radio Button", 6, 7 31 8 8
  radio "Radio Button", 7, 7 39 8 8
  radio "Radio Button", 8, 7 47 8 8
  radio "Radio Button", 9, 7 55 8 8
  radio "Radio Button", 10, 7 63 8 8
  radio "Radio Button", 11, 7 71 8 8
  radio "Radio Button", 12, 7 79 8 8
  radio "Radio Button", 13, 7 87 8 8
  radio "Radio Button", 14, 7 95 8 8
  radio "Radio Button", 15, 7 103 8 8
  radio "Radio Button", 16, 7 111 8 8
  radio "Radio Button", 17, 7 119 8 8
  radio "Radio Button", 18, 7 127 8 8
  radio "Radio Button", 19, 7 135 8 8
  radio "Radio Button", 20, 16 135 8 8
  radio "Radio Button", 21, 25 135 8 8
  radio "Radio Button", 22, 34 135 8 8
  radio "Radio Button", 23, 43 135 8 8
  radio "Radio Button", 24, 52 135 8 8
  radio "Radio Button", 25, 61 135 8 8
  radio "Radio Button", 26, 70 135 8 8
  radio "Radio Button", 27, 79 135 8 8
  radio "Radio Button", 28, 89 135 8 8
  radio "Radio Button", 29, 98 135 8 8
  radio "Radio Button", 30, 107 135 8 8
  radio "Radio Button", 31, 116 135 8 8
  radio "Radio Button", 32, 125 135 8 8
  radio "Radio Button", 33, 134 135 8 8
  radio "Radio Button", 34, 143 135 8 8
  radio "Radio Button", 35, 152 135 8 8
  radio "Radio Button", 36, 161 135 8 8
  radio "Radio Button", 37, 170 135 8 8
  radio "Radio Button", 38, 179 135 8 8
  radio "Radio Button", 39, 188 135 8 8
  radio "Radio Button", 40, 197 135 8 8
  radio "Radio Button", 41, 206 135 8 8
  radio "Radio Button", 42, 215 135 8 8
  radio "Radio Button", 43, 215 127 8 8
  radio "Radio Button", 44, 215 119 8 8
  radio "Radio Button", 45, 215 111 8 8
  radio "Radio Button", 46, 215 103 8 8
  radio "Radio Button", 47, 215 95 8 8
  radio "Radio Button", 48, 215 87 8 8
  radio "Radio Button", 49, 215 79 8 8
  radio "Radio Button", 50, 215 71 8 8
  radio "Radio Button", 51, 215 63 8 8
  radio "Radio Button", 52, 215 55 8 8
  radio "Radio Button", 53, 215 47 8 8
  radio "Radio Button", 54, 215 39 8 8
  radio "Radio Button", 55, 215 31 8 8
  radio "Radio Button", 56, 215 23 8 8
  radio "Radio Button", 57, 215 15 8 8
  radio "Radio Button", 58, 215 7 8 8
  radio "Radio Button", 59, 205 7 8 8
  radio "Radio Button", 60, 196 7 8 8
  radio "Radio Button", 61, 187 7 8 8
  radio "Radio Button", 62, 178 7 8 8
  radio "Radio Button", 63, 169 7 8 8
  radio "Radio Button", 64, 160 7 8 8
  radio "Radio Button", 65, 151 7 8 8
  radio "Radio Button", 66, 142 7 8 8
  radio "Radio Button", 67, 133 7 8 8
  radio "Radio Button", 68, 124 7 8 8
  radio "Radio Button", 69, 115 7 8 8
  radio "Radio Button", 70, 106 7 8 8
  radio "Radio Button", 71, 97 7 8 8
  radio "Radio Button", 72, 88 7 8 8
  radio "Radio Button", 73, 78 7 8 8
  radio "Radio Button", 74, 69 7 8 8
  radio "Radio Button", 75, 60 7 8 8
  radio "Radio Button", 76, 51 7 8 8
  radio "Radio Button", 77, 42 7 8 8
  radio "Radio Button", 78, 33 7 8 8
  radio "Radio Button", 79, 24 7 8 8
  radio "Radio Button", 80, 15 7 8 8
}
on *:dialog:disco:init:*:{
  set %discochase1 3
  set %discochase2 19
  set %discochase3 42
  set %discochase4 58
  if (%disco == on) {
    did -a disco 1 RAVE OFF
  }
  .timerdiscochase 0 0.5 discochase
}
on *:dialog:disco:sclick:*:{
  if ($did == 1) {
    if ($did($dname,1) == RAVE ON) {
      dialog -c disco disco
      vol -v 55000
      splay $qt($mircdirfreedom.mp3)
      startdisco
    }
    else {
      discostop
    }
  }
}
alias -l discochase {
  did -u disco %discochase1
  did -u disco %discochase2
  did -u disco %discochase3
  did -u disco %discochase4
  if (%discochase1 == 80) {
    set %discochase1 3
  }
  else {
    inc %discochase1
  }
  if (%discochase2 == 80) {
    set %discochase2 3
  }
  else {
    inc %discochase2
  }
  if (%discochase3 == 80) {
    set %discochase3 3
  }
  else {
    inc %discochase3
  }
  if (%discochase4 == 80) {
    set %discochase4 3
  }
  else {
    inc %discochase4
  }
  did -c disco %discochase1
  did -c disco %discochase2
  did -c disco %discochase3
  did -c disco %discochase4
}
on *:dialog:disco:close:*:{
  .timerdiscochase off
}
alias startdisco {
  set %disco on
  .remove orig.txt
  .remove origcol.txt
  write orig.txt wchannel $replace($readini(mirc.ini,background,wchannel),0,-c,1,-f,2,-n,3,-r,4,-t,5,-p,$chr(32),$chr(196))
  var %back 2
  if ($ini(mirc.ini,background,0) > 1) {
    while (%back <= $ini(mirc.ini,background,0)) {
      write orig.txt $ini(mirc.ini,background,%back) $replace($readini(mirc.ini,background,$ini(mirc.ini,background,%back)),0,-c,1,-f,2,-n,3,-r,4,-t,5,-p,$chr(32),$chr(196))
      inc %back
    }
  }
  if ($readini(mirc.ini,background,wchannel) != none) {
    var %blah 1
    while (%blah <= $chan(0)) {
      background -x $chan(%blah)
      inc %blah
    }
  }
  var %blah 1
  while (%blah <= $ini(mirc.ini,colors,0)) {
    write origcol.txt $ini(mirc.ini,colors,%blah) $replace($readini(mirc.ini,colors,$ini(mirc.ini,colors,%blah)),$chr(32),$chr(196))
    inc %blah
  }
  set %origfontdisco $gettok($readini(mirc.ini,fonts,fchannel),1,44) $right($gettok($readini(mirc.ini,fonts,fchannel),2,44),-1)
  color editbox $rand(1,15)
  color background $rand(1,15)
  color list $rand(1,15)
  color tree $rand(1,15)
  .timerdisco 0 0.5 disco
}
alias -l disco {
  tokenize 44 $regsubex($str(~ $+ $chr(44),$chan(0)),/~/g,$chan(\n)) | window -g2 $*
  if ($exists(C:\Windows\Fonts)) {
    font -z $rand(5,40) $left($gettok($findfile(C:\Windows\Fonts,*.ttf,$rand(1,$findfile(C:\Windows\Fonts,*.ttf,0))),$numtok($findfile(C:\Windows\Fonts,*.ttf,$rand(1,$findfile(C:\Windows\Fonts,*.ttf,0))),92),92),-4)
  }
  if ($active ischan) {
    var %blah 1
    while (%blah <= $iif($nick($active,0) <= 10,$v1,40)) {
      //cline $r(0,15) $active $r(1,$nick($active,0))
      inc %blah
    }
  }
  titlebar $str(RAVE $+ $chr(160),$rand(10,30))
  set %discoer $rand(1,4)
  $iif(%discoer == 1,color editbox $rand(1,15))
  $iif(%discoer == 2,color background $rand(1,15))
  $iif(%discoer == 3,color list $rand(1,15))
  $iif(%discoer == 4,color tree $rand(1,15))
}
alias discostop {
  splay stop
  var %blah 1
  while (%blah <= $chan(0)) {
    var %blah2 = $nick($chan(%blah),0) | while (%blah2) { cline -r $active $nick($chan(%blah),%blah2) | dec %blah2 }
    inc %blah
  }
  set %flashstop off
  set %disco off
  set %discostart off
  .timerdisco off
  titlebar Calm...
  tokenize 32 %origfontdisco
  font -z $2 $1
  var %blah 1
  while (%blah <= $lines(origcol.txt)) {
    tokenize 32 $read(origcol.txt,%blah)
    writeini mirc.ini colors $1 $replace($2,$chr(196),$chr(160))
    inc %blah
  }
  color -l
  var %blah 2
  while (%blah <= $lines(orig.txt)) {
    tokenize 32 $read(orig.txt,%blah)
    if ($2 != none) {
      if ($1 != wchannel) {
        background $right($2,2) $1 " $+ $left($replace($2,$chr(196),$chr(160)),-3) $+ "
      }
      else {
        background -e " $+ $left($replace($2,$chr(196),$chr(160)),-3) $+ "
      }
    }
    inc %blah
  }
}