;dodbits.com by INsane Steam folder finder for Counter-Strike source....

Function  .onInit

SetRegView 64  ;SetRegView 64 Sets the 64 Bit registry view affected by registry commands.
;Read this and go to ok next or not finding any Steam stuff...
ReadRegStr $R0 HKLM "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Steam App 240" "InstallLocation"  ;Example App 240 = Counter-Strike Source,App 30 = goldscource dod, App 300 = Day of Defeat:Source.
SetRegView 32  ;SetRegView 32 Sets the 32 Bit registry view affected by registry commands.

IfErrors notok ok
notok:
;notok means we may have a screwed up registry, display a huge instruction message for the user to manually install...
MessageBox MB_YESNO|MB_ICONEXCLAMATION "INSTALLER HELP SCREEN: Installer can't find the dod folder address. $\r$\rMake sure you installed the game, run it once, then install Mods.$\r$\rIf you have done that it may just mean you will have to find your game folder manually in the next screens" IDYES done
Abort
ok:
Loop:
StrLen $R1 $R0
StrCpy $R2 $R0 $R1 -1
StrCpy $R0 $R0 -1
StrCmp "\" $R2 fin loop
fin:
StrCpy $INSTDIR $R0
StrCpy $INSTDIR "$INSTDIR\counter-strike source\cstrike" ;Change this for other mods like... \counter-strike source\cstrike snd \day of defeat source\dod
done:
FunctionEnd
;END of the Steam folder finder Function