[Fix] Icons in fullscreen mode with iccup antihack

#RequireAdmin

;Made by Quirinus from [url=http://www.teamliquid.net]www.teamliquid.net[/url]
;4th April 2013.
;This script adds "ddemulate" to the StarCraft path that iCCup Launcher uses to start StarCraft.
;This fixes dissapearing rank icons on iCCup for most users. Some users report increased loading time for StarCraft.

;===== Tries to find the ini file path from registry
;===== if not opens a select file dialog
;===== then tries to check if everything is ok
$launcher_32_reg = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Uninstall\ICCup Launcher_is1"
$launcher_64_reg = "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\ICCup Launcher_is1"
$launcher_path_reg = "Inno Setup: App Path"
$ini_path = RegRead($launcher_32_reg , $launcher_path_reg) & "\iccup.ini"
If (($ini_path == "\iccup.ini") And (@error)) Then
   $ini_path = RegRead($launcher_64_reg , $launcher_path_reg) & "\iccup.ini"
   If (($ini_path == "\iccup.ini") And (@error)) Then
	  MsgBox(4096, 'Error', 'Could not find the ini file path from registry. Please select the "iccup.ini" file.')
	  
	  $ini_path = FileOpenDialog('Select the ini file...', @ProgramFilesDir & "\", "Ini files (*.ini)", 1)

	  If @error Then
		 MsgBox(4096, "Error", "No File chosen, run again to select the file later.")
		 Exit
	  Else
		 $ini_path = StringReplace($ini_path, "|", @CRLF)
	  EndIf
	  If (StringInStr($ini_path, "\iccup.ini") == 0) Then
		  MsgBox(4096, "Error", "Wrong ini file selected. (...or wrong name.) Run later to try again.")
		 Exit
	  EndIf
   EndIf
Else
   If (FileExists($ini_path) == 0) Then
	  MsgBox(4096, 'Error', 'Registry gives the wrong path to the ini file. Please select the "iccup.ini" file.')
	  
	  $ini_path = FileOpenDialog('Select the ini file...', @ProgramFilesDir & "\", "Ini files (*.ini)", 1)

	  If @error Then
		MsgBox(4096, "Error", "No File chosen, run again to select the file later.")
		Exit
	  Else
		 $ini_path = StringReplace($ini_path, "|", @CRLF)
	  EndIf
	  If (StringInStr($ini_path, "\iccup.ini") == 0) Then
		 MsgBox(4096, "Error", "Wrong ini file selected. (...or wrong name.) Run later to try again.")
		 Exit
	  EndIf
   EndIf
EndIf

$bw_section = "StarCraft: Brood War"
$bw_key = "MainExe"
$bw_path_value = IniRead($ini_path, $bw_section, $bw_key, "Not_Found")
If ($bw_path_value == "Not_Found") Then
   MsgBox(4096, "Error", "Section and/or key not found in the ini file. Run later to try again.")
   Exit
EndIf

;===== Applies the patch if it's not there already =====
If (StringInStr($bw_path_value, '"ddemulate"') == 0) Then
   $bw_path_value = $bw_path_value & ' "ddemulate"'
   IniWrite($ini_path, $bw_section, $bw_key, $bw_path_value)
   MsgBox(4096, 'Patching result', 'Successfully patched ' & '"' & $ini_path & '"' & '!')
Else
    MsgBox(4096, 'Patching result', 'The patch has already been applied to ' & '"' & $ini_path & '"' & ' before. It is currently active.')
EndIf
Exit

@echo off
Set Reg.Val=Inno Setup: App Path

echo 32-bit registry search:
Set Reg.Key=HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Uninstall\ICCup Launcher_is1
For /F "Tokens=2*" %%A In ('Reg Query "%Reg.Key%" /v "%Reg.Val%" ^| Find /I "%Reg.Val%"') Do Call Set iccupdir=%%B
if defined (%iccupdir%) (goto next)

echo 64-bit registry search:
Set Reg.Key=HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\ICCup Launcher_is1
For /F "Tokens=2*" %%A In ('Reg Query "%Reg.Key%" /v "%Reg.Val%" ^| Find /I "%Reg.Val%"') Do Call Set iccupdir=%%B
if not defined (%iccupdir%) (goto bad_end)

:next
For /F "Tokens=3*" %%A In ("%iccupdir%") Do Set iccupdir=%%B
set "iccupdir=%iccupdir%\iccup.ini"
echo %iccupdir%
goto good_end

:bad_end
echo Could not find the path from registry!

:good_end
pause

:: --------------------
:: ini.bat
:: ini.bat /? for usage
:: --------------------

@echo off
setlocal enabledelayedexpansion

goto begin

:usage
echo Usage: %~nx0 /i item [/v value] [/s section] inifile
echo;
echo Take the following ini file for example:
echo;
echo    [Config]
echo    password=1234
echo    usertries=0
echo    allowterminate=0
echo;
echo To read the "password" value:
echo    %~nx0 /s Config /i password inifile
echo;
echo To change the "usertries" value to 5:
echo    %~nx0 /s Config /i usertries /v 5 inifile
echo;
echo In the above examples, "/s Config" is optional, but will allow the selection of
echo a specific item where the ini file contains similar items in multiple sections.
goto :EOF

:begin
if "%~1"=="" goto usage
for %%I in (item value section found) do set %%I=
for %%I in (%*) do (
    if defined next (
        if !next!==/i set item=%%I
        if !next!==/v set value=%%I
        if !next!==/s set section=%%I
        set next=
    ) else (
        for %%x in (/i /v /s) do if "%%~I"=="%%x" set "next=%%~I"
        if not defined next (
            set "arg=%%~I"
            if "!arg:~0,1!"=="/" (
                1>&2 echo Error: Unrecognized option "%%~I"
                1>&2 echo;
                1>&2 call :usage
                exit /b 1
            ) else set "inifile=%%~I"
        )
    )
)
for %%I in (item inifile) do if not defined %%I goto usage
if not exist "%inifile%" (
    1>&2 echo Error: %inifile% not found.
    exit /b 1
)

if not defined section (
    if not defined value (
        for /f "usebackq tokens=2 delims==" %%I in (`findstr /i "^%item%\=" "%inifile%"`) do (
            echo(%%I
        )
    ) else (
        for /f "usebackq delims=" %%I in (`findstr /n "^" "%inifile%"`) do (
            set "line=%%I" && set "line=!line:*:=!"
            echo(!line! | findstr /i "^%item%\=" >NUL && (
                1>>"%inifile%.1" echo(%item%=%value%
                echo(%value%
            ) || 1>>"%inifile%.1" echo(!line!
        )
    )
) else (
    for /f "usebackq delims=" %%I in (`findstr /n "^" "%inifile%"`) do (
        set "line=%%I" && set "line=!line:*:=!"
        if defined found (
            if defined value (
                echo(!line! | findstr /i "^%item%\=" >NUL && (
                    1>>"%inifile%.1" echo(%item%=%value%
                    echo(%value%
                    set found=
                ) || 1>>"%inifile%.1" echo(!line!
            ) else echo(!line! | findstr /i "^%item%\=" >NUL && (
                for /f "tokens=2 delims==" %%x in ("!line!") do (
                    echo(%%x
                    exit /b 0
                )
            )
        ) else (
            if defined value (1>>"%inifile%.1" echo(!line!)
            echo(!line! | find /i "[%section%]" >NUL && set found=1
        )
    )
)

if exist "%inifile%.1" move /y "%inifile%.1" "%inifile%">NUL

;Made by Quirinus from [url=http://www.teamliquid.net]www.teamliquid.net[/url]
;http://www.teamliquid.net/forum/viewmessage.php?topic_id=406058
;6th April 2013.
;This script adds "ddemulate" to the StarCraft path that iCCup Launcher uses to start StarCraft.
;This fixes dissapearing rank icons on iCCup for most users. Some users report increased loading time for StarCraft.

;has to be in the folder where iccup.ini is (iccup launcher folder)
$ini_path = @WorkingDir & "\iccup.ini"

If (FileExists($ini_path) == 1) Then
   $bw_section = "StarCraft: Brood War"
   $bw_key = "MainExe"
   $bw_path_value = IniRead($ini_path, $bw_section, $bw_key, "Not_Found")
   If ($bw_path_value == "Not_Found") Then
	  Exit
   EndIf

   ;===== Applies the patch if it's not there already =====
   If (StringInStr($bw_path_value, '"ddemulate"') == 0) Then
	  $bw_path_value = $bw_path_value & ' "ddemulate"'
	  IniWrite($ini_path, $bw_section, $bw_key, $bw_path_value)
   EndIf
EndIf
Exit