#include GuiCreate("OniSplit GUI 0.1b by demos_kratos", 500, 500) GuiCtrlCreateTab(-1, -1, 500, 500) GuiCtrlCreateTabItem("Скрепить") GuiCtrlCreateLabel("Компиляция папки с файлами *.oni в *.dat файл", 30, 30) GUICtrlCreateLabel("Папка с *.oni файлами:", 30, 50) $folder=GUICtrlCreateInput ( "", 150, 45, 300, 20) GUICtrlCreateGroup("Глава", 30, 70, 240, 215) $glob_r=GUICtrlCreateRadio("Глобально", 50, 90) GuiCtrlSetState($glob_r, $GUI_CHECKED) $lev1_r=GUICtrlCreateRadio("Глава 1", 50, 110) $lev2_r=GUICtrlCreateRadio("Глава 2", 50, 130) $lev3_r=GUICtrlCreateRadio("Глава 3", 50, 150) $lev4_r=GUICtrlCreateRadio("Глава 4", 50, 170) $lev5_r=GUICtrlCreateRadio("Глава 5", 50, 190) $lev6_r=GUICtrlCreateRadio("Глава 6", 50, 210) $lev7_r=GUICtrlCreateRadio("Глава 7", 50, 230) $lev8_r=GUICtrlCreateRadio("Глава 8", 50, 250) $lev9_r=GUICtrlCreateRadio("Глава 9", 120, 110) $lev10_r=GUICtrlCreateRadio("Глава 10", 120, 130) $lev11_r=GUICtrlCreateRadio("Глава 11", 120, 150) $lev12_r=GUICtrlCreateRadio("Глава 12", 120, 170) $lev13_r=GUICtrlCreateRadio("Глава 13", 120, 190) $lev14_r=GUICtrlCreateRadio("Глава 14", 120, 210) GUICtrlCreateGroup ("",-99,-99,1,1) GUICtrlCreateLabel("Имя плагина:", 30, 300) $name=GUICtrlCreateInput ( "", 150, 295, 300, 20) GUICtrlCreateLabel("Папка назначения:", 30, 323) $d_folder=GUICtrlCreateInput ( "", 150, 320, 300, 20) $compile_button=GUICtrlCreateButton("Скрепить", 150, 390, 200, 20) GuiCtrlCreateTabItem("XML (Ещё не работает)") GuiCtrlCreateTabItem("3D (Ещё не работает)") GuiCtrlCreateTabItem("") GUISetState() While 1 $msg = GUIGetMsg() Select Case $msg = $compile_button $glob=GUICtrlRead($glob_r) $lev1=GUICtrlRead($lev1_r) $lev2=GUICtrlRead($lev2_r) $lev3=GUICtrlRead($lev3_r) $lev4=GUICtrlRead($lev4_r) $lev5=GUICtrlRead($lev5_r) $lev6=GUICtrlRead($lev6_r) $lev7=GUICtrlRead($lev7_r) $lev8=GUICtrlRead($lev8_r) $lev9=GUICtrlRead($lev9_r) $lev10=GUICtrlRead($lev10_r) $lev11=GUICtrlRead($lev11_r) $lev12=GUICtrlRead($lev12_r) $lev13=GUICtrlRead($lev13_r) $lev14=GUICtrlRead($lev14_r) Select Case $glob=1 $namepart1="\level0" Case $lev1=1 $namepart1="\level1" Case $lev2=1 $namepart1="\level2" Case $lev3=1 $namepart1="\level3" Case $lev4=1 $namepart1="\level4" Case $lev5=1 $namepart1="\level6" Case $lev6=1 $namepart1="\level8" Case $lev7=1 $namepart1="\level9" Case $lev8=1 $namepart1="\level10" Case $lev9=1 $namepart1="\level11" Case $lev10=1 $namepart1="\level12" Case $lev11=1 $namepart1="\level13" Case $lev12=1 $namepart1="\level14" Case $lev13=1 $namepart1="\level18" Case $lev14=1 $namepart1="\level19" EndSelect ShellExecute("OniSplit.exe", "-import:nosep " & $folder & " " & $d_folder & $namepart1 & "_" & $name & ".dat", "") ;Run("onisplit.exe -import:nosep " & $folder & " " & $d_folder & $namepart1 & "_" & $name & ".dat", "") Case $msg = $GUI_EVENT_CLOSE ExitLoop EndSelect WEnd