/* Minigolfing 01*/

If NOT @LOGONMODE
	Break On
EndIf

Dim $SO,$Key,$wr
$SO = SetOption("Explicit","On")
$SO = SetOption("NoVarsInStrings","On")
$SO = SetOption("NoMacrosInStrings","On")

$key='HKEY_CURRENT_USER\Software\','Golfing','Round1','Enterprise Terminal Server' 
;The first two is the key, third is the value, and forth the data we are looking for.

$wr=FindMe($key) ; will return a code to @error: 0 for true, and 1 for not true
@error

Function FindMe($key)
Dim $ch,$found,$index,$valuename,$KeyF,$JoinKey,$Valuename2,$wr,$split,$inst
$ch=KeyExist($key[0]) ; Does the HKEY_CURRENT_USER_\Software\ exist?
if $ch ;If it does....
$found=0 
$index=0 ;Setting values so the while-statement will not run forever..

 while @error=0 and $found=0 ;While no errors and $found is still 0
  $ValueName = ENUMKEY($key[0],$index) ;Lists the subkey, $index points to the 'number' in the list
  if $ValueName = $Key[1] $found=1 ;If the subkey is the same as the $Key[1] (second val in array), $found is set to 1
   $KeyF=$key[0],$ValueName ;make an array out of $Key[0] and $ValueName
   $JoinKey=Join($KeyF,'') ;Join 'em together
   $wr=ReadValue($JoinKey,$Key[2]) ;Reads the data of value in the key
   $split=Split($wr,'|') ;Current format is seperated by '|', therefore remove those
   $wr=Join($split,' ') ; and join 'em together
   $inst=Instr($wr,$Key[3]) ;Does $wr contain the same as $Key[3] ?
   if $inst exit 0 else exit 1 endif ; If it does, exit with a 0, otherwise exit with a 1
   else
    $Index = $Index + 1 ;$ValueName wasn't the same as $Key[1], continues to look for matches.
  endif
 loop
 
 exit @error ; In case of an unexpected error comes along, just exit with it (dunno if really needed)

endif

EndFunction