/*
======================
"FiberOPtics" tarafından

yazılmıştır.
=========================
*/

/*
===================================================
Bu kod ile alabileceğin özel klasörlerin listesi...

AllUsersAppdata
;                AllUsersDesktop
;                AllUsersFavorites
;                AllUsersPrograms
;                AllUsersStartMenu
;                AllUsersStartup
;                Appdata
;                Comspec
;                Cookies
;                Desktop
;                Favorites
;                Fonts
;                History
;                Internetcache
;                LocalAppdata
;                MyDocuments
;                MyPictures
;                Nethood
;                Printhood
;                ProgramFiles
;                Programs
;                Recent
;                Sendto
;                StartMenu
;                Startup
;                System
;                Templates
;                Userprofile
;                Windir
=====================================================
/*
alias specialfolder {
  if $1 == $null {
    echo $color(info) -a * $!specialfolder: Insufficient parameters.
    return
  }
  var %f1 = $&
    AllUsersDesktop AllUsersStartMenu AllUsersPrograms AllUsersStartup $&
    Desktop AppData PrintHood Templates Fonts NetHood . $&
    StartMenu SendTo Recent Startup Favorites MyDocuments Programs
  var %f2 = $&
    LocalAppdata . . AllUsersFavorites Internetcache Cookies $&
    History AllUsersAppdata . System . MyPictures
  var %f3 = Windir Programfiles Userprofile Comspec

  if $1 == . || !$istok(%f1 %f2 %f3,$1,32) {
    echo $color(info) -a * $!specialfolder: incorrect special folder - Possible:
    tokenize 32 $sorttok($remove(%f1 %f2,.) %f3,32)
    echo -a $*
    return
  }
  var %result = COM Error
  if $istok(%f1 %f3,$1,32) {
    var %objWSH = a $+ $ticks
    .comopen %objWSH wscript.shell
    if !$comerr {
      if $findtok(%f1,$1,1,32) {
        %result = $com(%objWSH,specialfolders,3,uint,$calc($ifmatch - 1))
      }
      else %result = $com(%objWSH,expandenvironmentstrings,3,bstr*,% $+ $1%)
      %result = $com(%objWSH).result 
      .comclose %objWSH
    }
  }
  else {
    if $istok(95 98,$os,32) {
      echo $color(info) -a * $!specialfolder: need atleast Windows ME to retrieve this path
      return
    }
    var %objScript = a $+ $ticks
    .comopen %objScript msscriptcontrol.scriptcontrol
    if !$comerr {
      %result = $com(%objScript,language,4,bstr*,vbscript)
      %result = createobject("shell.application").namespace( $&
        $calc($findtok(%f2,$1,1,32) + 27) ).self.path
      %result = $com(%objScript,eval,1,bstr*,%result)
      %result = $com(%objScript).result
      .comclose %objScript
    }
  }
  $iif($isid,return,echo -a) %result
}

echo -a $specialfolder(system)