pobierz_lang.ahk

;pobierz_lang.ahk                           -- mgis90 2016-03-29
;-----------------------------------------------------------------------
;skrypt pomocniczy dla NapiProjekt
;dodaje funkcjonalność "Pobierz napisy angielskie" oraz "Pobierz napisy polskie"
;dzięki temu można wywoływać te akcje bezpośrednio z menu kontekstowego
;-----------------------------------------------------------------------
;testowano na wersji 1.0.6.9
;skrypt należy umieścić tuż obok "napisy.exe" oraz "napi-projekt.ini"
;skrypt należy wywołać z parametrem ścieżką do pliku wideo, tak samo jak NapiProjekt
;dodatkowy (drugi) parametr określa w jakim języku NP ma pobrać te napisy
;akcje menu kontekstowego należy stworzyć manualnie
;PARAMETRY
;1 - zostanie przekazany do NapiProjekt
;2 - może przyjąć następujące wartości:
;           [pominięty]                - nic nie zmieniaj
;           1 albo en albo ang      - ustaw angielski
;           [cokolwiek innego]      - ustaw polski
;(przedawnione) 0 albo pl albo pol      - ustaw polski (nie sprawdzane, tzn gdy nie wykryto ang)
#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
#LTrim  ; Allows continuation sections to be indented. Positional. May be turned off via #LTrim Off
#KeyHistory 0  ; Disable keyboard and mouse event history.
#SingleInstance ignore
#Warn
; Ensures a consistent starting directory. Tutaj znajdziemy napisy.exe
; oraz w tym folderze zostaną uruchomione (parametr WorkingDir polecenia Run)
SetWorkingDir %A_ScriptDir%

;---------- zmienne globalne -----------
file_ini:=A_ScriptDir . "\napi-projekt.ini"
file_exe:=A_ScriptDir . "\napisy.exe"

;---- sprawdzenia wymaganych plikow ----
if not FileExist(file_ini)
{
    MsgBox,16,Brak pliku ini,Nie ma ini`n%file_ini%
    ExitApp
    ;nie konwertujemy na dlugie nazwy
}
if not FileExist(file_exe)
{
    MsgBox,16,Brak pliku exe,Nie ma exe`n%file_exe%
    ExitApp
}
if FileExist(A_ScriptDir . "\dbg.txt")
    dbg:=true
    else
    dbg:=false
;---------------------------------------
;nie sprawdzamy param1
nowyjezyk=0
;jesli wiecej parametrow niz 1
if 0>1
{
    if dbg
        msgbox,wiecej parametrow niz jeden`n%1%`n%2%
    ;param2 := drugi parametr
    param2 = %2%
    if param2 contains 1,en,ang
        nowyjezyk=1
    else                ;moglibysmy tutaj if param2 contains 0,pl,pol
        nowyjezyk=0
    ;if dbg
        if nowyjezyk
            MsgBox,,Pobierz napisy w języku,Pobierać będziemy napisy w języku angielskim,5
        else
            MsgBox,,Pobierz napisy w języku,Pobierać będziemy napisy w języku polskim,5
    IniWrite,%nowyjezyk%,%file_ini%,opcje,jezyk
    if ErrorLevel
        MsgBox,16,Błąd zapisu,Błąd zapisu do ini
}
GoSub,uruchom
return  ;autoexec


uruchom:
;tyle razy ile parametrow
params=
/*
nie łączymy parametrów
Loop, %0%
{
    ;jesli >1 wstaw spacje na koncu
    if A_Index > 1
        params.=" "
    ;parametr wsadz w cudzyslow. czemu cztery?
    params.= """" . %A_Index% . """"
}
;tymczasowo: tylko pierwszy parametr przekazujemy
*/
params="%1%"
if dbg
    MsgBox,%file_exe% %params%
Run,%file_exe% %params%
ExitApp
return  ;uruchom


/*
...\NAPI-PROJEKT\napi-projekt.ini
[opcje]
jezyk=1     angielski
jezyk=0         polski
IniWrite,1,%file_ini%,opcje,jezyk
IniWrite,0,%file_ini%,opcje,jezyk

napisy.exe "%1"
powinno byc long path
param ujęty w cudzysłów, jak wyżej
exe w folderze skryptu
*/