GUI/Shell for Universal PVR Extractor/Patcher v1.3 by SWAT

Код:
#cs ----------------------------------------------------------------------------



 AutoIt Version: 3.3.7.14 (beta)

 Author:         P@S@f



 Script Function:

    GUI/Shell for Universal PVR ExtPator/Patcher v1.3 by SWAT



#ce ----------------------------------------------------------------------------

#NoTrayIcon

Opt("GUIOnEventMode", 1)

#include <GUIConstants.au3>

#Include <File.au3>

$WinName = "UPVREP by SWAT"

$choise = FileOpenDialog("Открыть...", @WorkingDir, "BIN (*.bin)|DAT (*.dat)|UNKNOW (*.unk)|Все файлы (*.*)", 7)



If @error Then

    MsgBox(48,"Ошибка", "Файл(ы) не выбран(ы)!")

    Exit

EndIf



FileChangeDir(@ScriptDir)



$main = GUICreate($WinName, 193, 90)

$1radio = GUICtrlCreateRadio("Извлечь все в одну папку",1,1,193)

$2radio = GUICtrlCreateRadio("Извлечь в отдельные папки",1,20,193)

$setdest = GUICtrlCreateCheckbox("Выбрать папку для извлечения", 3, 40)

$okbutton = GUICtrlCreateButton("OK", 62, 62, 70)

GUICtrlSetOnEvent($okbutton, "Exec")

GUISetOnEvent($GUI_EVENT_CLOSE, "E")

GUICtrlSetState ($1radio,$GUI_CHECKED)

Global $onefile = False

Global $selecttext = "Выберите папку для сохранения текстур"

Global $files = StringSplit($choise, "|")

Global $mode = "-e"



If $files[0] == 1 Then

    Global $onefile = True;

    GUICtrlSetData($1radio, "Извлечь в ту же папку")

    GUICtrlSetData($2radio, "Извлечь в папку с именем файла")

EndIf





If $CmdLine[0] <> 0 And $CmdLine[1] == "-p" Then

    $mode = $CmdLine[1]

    GUICtrlSetData($1radio, "В той же папке")

    If $files[0] <> 1 Then

        GUICtrlSetState($1radio,$GUI_DISABLE)

        GUICtrlSetState($2radio,$GUI_CHECKED)

    EndIf

    GUICtrlSetData($2radio, "В папке с именем файла")

    GUICtrlSetData($setdest, "Выбрать папку извлечения")

    $selecttext = "Выберите папку, в которую было произведено извлечение текстур"

EndIf



GUISetState(@SW_SHOW)



While 1

  Sleep(100) 

WEnd



Func Exec()

    GUISetState(@SW_HIDE)

    $1radiostate = GUICtrlRead($1radio)

    $2radiostate = GUICtrlRead($2radio)

    $setdeststate = GUICtrlRead($setdest)

    

    If $onefile Then

        Local $file[3]

        $file[0] = StringLeft($files[1], StringInStr($files[1], "\", 0, -1) - 1)

        $file[1] = StringMid($files[1], StringInStr($files[1], "\", 0, -1) + 1)

        If $1radiostate == $GUI_CHECKED And $setdeststate == $GUI_UNCHECKED Then

            ExtPat($file[1], ".", $file[0], $mode)

        EndIf

        If $1radiostate == $GUI_CHECKED And $setdeststate == $GUI_CHECKED Then

            ExtPat($file[1], SelectFolder(), $file[0], $mode)

        EndIf

        If $2radiostate == $GUI_CHECKED Then

            $file[2] = StringLeft($file[1], StringInStr($file[1], ".", 0, -1) - 1)

            If $setdeststate == $GUI_UNCHECKED Then

            ExtPat($file[1], $file[2], $file[0], $mode)

            EndIf

            If $setdeststate == $GUI_CHECKED Then

            ExtPat($file[1], SelectFolder() & "\" & $file[2], $file[0], $mode)

            EndIf

        EndIf

    Quit()

    EndIf



    If $1radiostate == $GUI_CHECKED Then

        If $setdeststate == $GUI_UNCHECKED Then

            Ren($files[1] & "\unpacked")

        EndIf

        If $setdeststate == $GUI_CHECKED Then

            Ren(SelectFolder())

        EndIf

    EndIf



    If $2radiostate == $GUI_CHECKED And $setdeststate == $GUI_UNCHECKED Then

        For $i = 2 To $files[0]

        $savepath = $files[1] & "\" & StringLeft($files[$i],StringInStr($files[$i], ".", 0,-1)-1)

        ExtPat($files[$i], $savepath, $files[1], $mode)

        Next

    EndIf

    If $2radiostate == $GUI_CHECKED And $setdeststate == $GUI_CHECKED Then

        $path = SelectFolder()

        For $i = 2 To $files[0]

        $savepath = $path & "\" & StringLeft($files[$i],StringInStr($files[$i], ".", 0,-1)-1)

        ExtPat($files[$i], $savepath, $files[1], $mode)

        Next

    EndIf

Quit()    

EndFunc



Func Ren($destdir)

$tempdir = $destdir & "\~temp" & Random(1000,9999,1)

DirCreate($tempdir)

    For $i = 2 To $files[0]

        ExtPat($files[$i], $tempdir, $files[1])

        FileDelete($tempdir & "\offset.txt")

        $filea = _FileListToArray($destdir)

        $fileb = _FileListToArray($tempdir)

        For $o = 1 To $fileb[0]

            FileMove($tempdir & "\" & $fileb[$o], $destdir & "\file_" & StringFormat("%04d",$filea[0] + $o - 1) & ".pvr", 8)

        Next

    Next

    DirRemove($tempdir)

EndFunc



Func ExtPat($file, $savepath, $workingdir = @ScriptDir, $mode = "-e")

    $param = '"pvrext.exe" ' & $mode & ' "' & $file & '" "' & $savepath & '"'

    RunWait($param, $workingdir, @SW_HIDE)

EndFunc



Func SelectFolder()

$path = FileSelectFolder($selecttext, "", 3)

If @error Then

    MsgBox(48,"Ошибка", "Папка не выбрана!")

    Exit

EndIf

    Return $path

EndFunc



Func Quit()

MsgBox(64, $WinName, "Готово!")

Exit

EndFunc



Func E()

Exit

EndFunc