1. 1
2. 2
3. 3
4. 4
5. 5
6. 6
7. 7
8. 8
9. 9
10. 10
11. 11
12. 12
13. 13
14. 14
15. 15
16. 16
17. 17
18. 18
19. 19
20. 20
21. 21
22. 22
23. 23
24. 24
25. 25
26. 26
27. 27
28. 28
29. 29
30. 30
31. 31
32. 32
33. 33
34. 34
35. 35
36. 36
37. 37

Opt("WinTitleMatchMode", 2)             ; нечувствительность к неточным именам заголовков
    WinWaitActive("Total Commander")        ; ждать активации Тотала
    Send("{TAB}")                           ; перейти в соседнюю (от панели, где лежит скрипт) панель
    Send("!^{F12}")                         ; глобал хоткей Ctrl+Alt+F12 Пунто Свитчера = вырубить автопереключение (чтоб не мешал)
    Send("{END}")                           ; перейти в конец списка файлов в Тотале (папок в конце списка точно нет)
    Send("сmd")                            ; вызвать заранее в Тотал-консоли cmd-консоль (у меня Тотал-консоль (sic!) вдруг забастовала насчёт дос-команды move)
    Send("{ENTER}")
    WinWaitActive("cmd.exe")                ; дождаться появления cmd-консоли
    $count = 0                              ; счётчик для цикла-1 в положении "включено"
    Do                                      ; цикл-1
     WinActivate("Total Commander")                 ; повторная активация Тотала
     ClipPut("")                                    ; опустошение буфера
     $namefull = ""                                 ; опустошение переменной памяти, подготовка к циклу-2
     Do                                             ; цикл-2
      Send("{F11}")                                         ; хоткей Тотала F11 = cm_CopyNamesToClip, взять имя файла в буфер
      $namefull = ClipGet()                                 ; заполнить переменную памяти из буфера ("картинка_by_автор-хэш.png")
     Until $namefull <> ""                          ; хреначить цикл-2, пока переменная точно не заполнится
     If StringInStr($namefull, ".") > 0 Then        ; условие-1 если это файл, то
      If StringInStr($namefull, "_by_") > 0 Then            ; условие-2 если этот файл девиантартовский, то
       $nameright = StringSplit ($namefull, "_by_", 1)              ; порвать имя файла на начало и хвост ($nameright[2] = "автор-хэш.png")
       $name = StringSplit ($nameright[2], "-")                     ; у хвоста оторвать кончик (оставив "автор" в name[1])
       WinActivate("cmd.exe")                                       ; активировать cmd-консоль
       $newname = "md " & $name[1] & " & move " & $namefull & " " & $name[1] ; набить цепь из трёх дос-команд на создание папки, перенос картинки в неё
       Send($newname)                                               ; послать эту цепь в cmd-консоль
       Send("{ENTER}")
      Else                                                  ; иначе-2 (напоролся на девиантарт-неформатный файл)
       Send("{UP}")                                                 ; листнуть выше
      EndIf                                                 ; конец условия-2
     Else                                           ; иначе-1 (напоролся на папку)
      $count = 1                                            ; счётчик для цикла-1 в положении "выключено"
     EndIf                                          ; конец условия-1
    Until $count <> 0                       ; хреначить цикл-1, пока не сработает счётчик остановки
    WinActivate("cmd.exe")                  ; активировать cmd-консоль
    Send("exit")                            ; дать команду на выход
    Send("{ENTER}")
    Send("!^{F12}")                         ; врубить автопереключение Пунто Свитчера обратно
    Beep ()                                 ; дать звуковой сигнал