Miscellany

alias startrave { 
  .remove orig.txt 
  .remove origcol.txt 
  write orig.txt wchannel $+ $chr(196) $+ $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 
  } 
  color editbox $rand(1,15) 
  color background $rand(1,15) 
  color list $rand(1,15) 
  color tree $rand(1,15) 
  .timerrave 0 0.5 rave 
} 
alias rave { 
  set %raveer $rand(1,4) 
  $iif(%raveer == 1,color editbox $rand(1,15)) 
  $iif(%raveer == 2,color background $rand(1,15)) 
  $iif(%raveer == 3,color list $rand(1,15)) 
  $iif(%raveer == 4,color tree $rand(1,15)) 
} 
alias stoprave { 
  .timerrave off 
  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 $1 " $+ $replace($2,$chr(196),$chr(160)) $+ " 
      } 
      else { 
        background -e " $+ $replace($2,$chr(196),$chr(160)) $+ " 
      } 
    } 
    inc %blah 
  } 
  .remove orig.txt 
  .remove origcol.txt 
}