;
; Short script for disabling XP themes under mIRC 6.0
; This will allow mIRC Dialog eXtensions (MDX) to function properly
;
; Thanks to "dogeye" for the manifest file solution
; posted to my webboard (http://network54.com/Forum/97876)
;
; - DragonZap
;

; Note: This repair-mdx function is the main function;
;       call it to fix everything quickly (and without asking).
;       If you want to copy to your scripts, make sure you get
;       the "manifest" alias as well (right below this alias)
alias repair-mdx {
  write -c $manifest <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
  write $manifest <assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
  write $manifest <assemblyIdentity version="1.0.0.0" processorArchitecture="X86" name="mIRC.mIRC.mIRC" type="win32"/>
  write $manifest <description>Internet Relay Chat Software</description>
  write $manifest </assembly>
}
alias -l manifest return $+(",$mircexe,.manifest")

;---------------- SUPPORT CODE IS BELOW THIS LINE ----------------
;-- You probably don't need it, but you can take it if you want --

on *:LOAD:.timer -m 1 1 install-fix
alias -l install-fix {
  var %msg

  if ($exists($manifest)) {
    set %msg This script will install a fix for the manifest file under mIRC. $&
      This will disable all themes, but allow MDX to function properly. $&
      However, a manifest file seems to already be installed. $&
      Install fix into $+($manifest,$chr(44)) overwriting the existing file?
  }
  else {
    set %msg This script will install a fix for the manifest file under mIRC. $&
      This will disable all themes, but allow MDX to function properly. $&
      Install fix into $+($manifest,?)
  }
  var %go = $input(%msg, 40, MDX + XP + mIRC 6.0 fix)

  if (%go == $yes) {
    repair-mdx
    var %exit = $input(The fix has been installed. Please restart mIRC to enable it. Exit mIRC?, 40, Fix installed.)
    if (%exit == $yes) exit
    else {
      var %i = $input(You will need to restart mIRC to complete the installation., 4)
    }
  }
  else {
    set %msg If you need to install the fix, please unload and reload the script $+($script,.) Unload?
    var %unload = $input(%msg, 40, Unload script)
    if (%unload == $yes) .unload -rs $script
  }
}