BukTop, Добрый вечер) Можно узнать-стоит ли ждать перевод? Может быть порт перевода от RGR ? Оо
Добавлено: 14.04.2016, 20:08
BukTop
Добрый, в теории, ждать стоит.
Добавлено: 14.04.2016, 20:13
Rokocoko
BukTop, В общем-не в скором времени,так?)
Добавлено: 14.04.2016, 20:26
BukTop
Пока, всё это под вопросом.
Добавлено: 14.04.2016, 20:32
Rokocoko
BukTop, Оке.Спасибо)
Добавлено: 25.04.2016, 13:42
Antero
Решился я значит посмотреть что из себя представляют файлы с диалогами (в стим версии которая вышла не так давно) дабы понять через что приходится проходить переводчикам и это зрелище надо сказать не для слабонервных ))
Я в этом деле не шарю, однако не могу промолчать о мысли которая посетила меня при беглом просмотре этой вакханалии (не судите строго я же не знаю ваших трюков, но вдруг взгляд человека со стороны вам пригодится). И так - может будет полезно на время перевода скрыть все то, что находится в квадратных скобках дабы эта груда кода не мешала воспринимать текст ? К примеру обычный код выглядит так:
“For I shall instruct thee in his incomparable pain!”[TIME=-1][STRT=87,2]King Leo “Arrg...[WAIT=5] Grr...”[TIME=15][STRT=65,1][IMME]Come back![TIME=15][STRT=254,2]King Leo “Thou hast not seen the last of me, Marcus!”[ENDN][STRT=139,2][ZDNE] “Out of the way, Blank!”[TIME=20][STRT=264,4][TAIL=LORF][OFFT=0,100,0]Blank “Consider this, [ZDNE]! If Prince Schneider were to marry Princess Cornelia, peace would reign over both their kingdoms!”[ENDN][STRT=221,3][ZDNE] “’Tis foolishness! If all were so easy, why, none would suffer in this world!”[ENDN][STRT=78,1][IMME]Have at thee![TIME=10][STRT=25,1][IMME]Aha![TIME=10][STRT=26,1][IMME]Mph![TIME=10][STRT=70,2][TAIL=LORF]Blank “En garde!”[INCS][TIME=-1][STRT=171,2][TAIL=UPLF][ZDNE]
а можно сделать что бы смотрелось так:
“For I shall instruct thee in his incomparable pain!”King Leo “Arrg... Grr...”Come back!King Leo “Thou hast not seen the last of me, Marcus!” “Out of the way, Blank!”Blank “Consider this, ! If Prince Schneider were to marry Princess Cornelia, peace would reign over both their kingdoms!” “’Tis foolishness! If all were so easy, why, none would suffer in this world!”Have at thee!Aha!Mph!Blank “En garde!”
При этом этот код не пропадет из текста и его можно будет в любой момент показать обратно. Это можно реализовать так: для поиска содержимого квадратных скобок нужно написать в строке "Найти" вот это \[*\] (и так же поставить галочку в меню поиска у "постановочные знаки") в строке "Заменить на" выбрать в меню Формат пункт Шрифт и поставить галочку у "скрытый" Потом что бы отобразить скрытый текст нужно выделить все и в меню Шрифты убрать галочку "скрытый"
Добавлено: 25.04.2016, 17:37
Albeoris
1) Таким образом ты имеешь все шансы потерять важные теги при удалении какого-либо слова. 2) Некоторые теги вполне себе важны - имена, номера переменных, количество строк. 3) Такие тексты можно будет редактировать только в специальном редакторе. В системе управления версиями, они всё равно будут цвести пышным цветом.
У нас это выглядит несколько более цивильно (хотя тегов всё равно много, но они уже не так ломают глаза):
Код:
"{W153H3}{UpperRightForce}{Instantly}{Zidane} “For I shall instruct thee in his incomparable pain!”{Time -1}";
"{W254H2}{King Leo} “Thou hast not seen the last of me, Marcus!”";
"{W139H2}{Zidane} “Out of the way, {Blank}!”{Time 20}";
"{W264H4}{LowerRightForce}{Offset 0,100,0}{Blank} “Consider this, {Zidane}! If Prince Schneider were to marry {Princess Cornelia}, peace would reign over both their kingdoms!”";
"{W221H3}{Zidane} “’Tis foolishness! If all were so easy, why, none would suffer in this world!”";
Можно сделать так что бы тэги нельзя было ни редактировать, ни удалять но для этого нужно написать макрос для word-а который бы делал следующее: 1) макрос находит все тэги и делает их скрытыми (есть такое свойство в шрифтах) 2) макрос выделяет всё кроме тэгов (просто выделить все нельзя так как под выделение попадут скрытые тэги) далее остается поставить защиту на документ, а выделенный тектс добавить в исключение что позволит удобно редактировать документы
Вот у тебя есть текст: Hello {Signal} world!
Ты стираешь его и заменяешь своим: Здравствуй мир! {Signal}
Положение тега изменилось, и что-то в игре пошло не так. А ты об этом даже не узнаешь. Идея заманчивая, но реализовать её в таком виде очень сложно. В виде редактора, где вместо тегов используются картинки, а некоторые теги вычисляются и выставляются правильно автоматически я себе ещё как-то представляю. Плагином для ворда - слабо. Ну и остаётся необходимость использовать сторонний редактор. То есть при работе в облаке необходимо скопировать текст к себе, отредактировать и вставить обратно. Не сложно, но это лишние действия, которые, с учётом достаточно коротких фраз, нивелируют выигрыш от отсутствия тегов.
P.S. Это ты своё сообщение снёс? О.о
Добавлено: 26.04.2016, 23:17
Antero
раз уж я себя озадачил то довел дело до конца (самому было интересно понять как это можно реализовать). может данный способ вам пригодится и для других целей так что я напишу методику (если не нужно то смело удаляйте сообщение) в word-е открываем Visual Basic и вставляем в него сей текст
Код:
Sub бРедактирование() ActiveDocument.Bookmarks("\StartOfDoc").Select 'устанавливаем курсор на начало документа Dim wordCount As Integer 'создаем переменную для хранения кол-ва слов Set myRange = ActiveDocument.Range wordCount = myRange.ComputeStatistics(Statistic:=wdStatisticWords) 'наполняем переменную Dim i As Integer
For i = 0 To wordCount Selection.Find.ClearFormatting 'Очистка параметров поиска With Selection.Find .Font.StrikeThrough = False 'выбираем слова которые не зачеркнуты .Text = ""
End With Selection.Find.Execute 'запуск поиска Selection.Editors.Add wdEditorEveryone 'добавляем выбранные слова в исключение редактирования Next i ActiveDocument.Protect Password:="", NoReset:=False, Type:= _ wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False 'включаем защиту редактирования End Sub
Sub аОпределениеТэгов() ActiveDocument.Bookmarks("\StartOfDoc").Select Dim txt As String 'создаем переменную для поиска тэгов txt = "\[*\]" 'наполняем переменную универсальным обозначением всех тээгов Selection.Find.MatchWildcards = True 'позволяет работать с регулярными выражениями Selection.Find.Text = txt Selection.Find.ClearFormatting Selection.Find.Replacement.Font.StrikeThrough = True 'Selection.Find.Replacement.ClearFormatting Selection.Find.Execute Replace:=wdReplaceAll End Sub
Sub вРедактированиеСкрытьТэги()
ActiveDocument.Bookmarks("\StartOfDoc").Select Dim wordCount As Integer Set myRange = ActiveDocument.Range wordCount = myRange.ComputeStatistics(Statistic:=wdStatisticWords) Dim i As Integer For i = 0 To wordCount Selection.Find.ClearFormatting With Selection.Find .Font.StrikeThrough = False .Text = ""
End With Selection.Find.Execute ' Selection.Editors.Add wdEditorEveryone Next i ActiveDocument.Bookmarks("\StartOfDoc").Select
Dim txt As String txt = "\[*\]" Selection.Find.MatchWildcards = True Selection.Find.Text = txt Selection.Find.ClearFormatting Selection.Find.Replacement.Font.Hidden = True Selection.Find.Execute Replace:=wdReplaceAll
ActiveDocument.Bookmarks("\StartOfDoc").Select
ActiveDocument.Protect Password:="", NoReset:=False, Type:= _ wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False ' End Sub
теперь вам стали доступны три макроса которые работают так 1) находит все тэги в документе 2) запрещает редактирование тэгов но оставляет возможность редактировать остальной текст 3) то же что и второй макрос только еще скрывает тэги (делает их невидимыми)
ps да я снес свои сообщения так как на подобном же форуме мои мысли посчитали дурью ((
Добавлено: 26.04.2016, 23:39
Albeoris
Получилось довольно интересно. Ну, про скрытие я уже писал выше. Не вариант. На самом деле было бы полезнее, если бы в процессе набора текста отображались бы только ближайшие теги слева и справа. А по нажатию, скажем, Ctrl, отображались бы и все остальные. В нашем случае не совсем подходит по той причине, что тягать тексты из облака в ворд и обратно по одной фразе не очень удобно. Если работал, скажем, с Notabenoid - представляешь себе о чём речь. Но с целыми документами действительно выглядит неплохо (правда, стили для запрета стоит подкорректировать, чтобы они смотрелись более блёкло, а то сейчас наоборот привлекают к себе внимание).
Цитата:
ps да я снес свои сообщения так как на подобном же форуме мои мысли посчитали дурью ((
Это зря. Мало ли что и кто говорит. Мне твоё решение интересно с точки зрения возможностей Word'а, например. (=
Добавлено: 27.04.2016, 00:01
Antero
стиль тэгов можно сделать какой угодно - любой который возможен в word-e (допустим можно сделать его блеклым) про скрытие - в месте где скрыт тэг стоит разделитель (те видно где тэг находится) вот снимок экрана
можно посадить на горячие клавиши скрытие и показ тэгов (работает после того как документ стал защищенным) как это сделать -
Файл - Параметры - Настройка ленты - внизу Сочетание клавиш: Настройка.... Откроется окно; в этом окне: Категории: "Макросы" (это почти в самом низу); Макросы: - выберите нужный макрос; укажите сочетание клавиш в Новое сочетание клавиш; обратите внимание на пункт Сохранить изменения в. Этот пункт позволяет сохранить сочетание клавиш для всех документов или только для одного документа; Назначить - Закрыть.
вот код для макросов
Sub СкрытьТэги() ActiveDocument.Unprotect ActiveDocument.Bookmarks("\StartOfDoc").Select Dim txt As String txt = "\[*\]" Selection.Find.MatchWildcards = True Selection.Find.Font.StrikeThrough = True Selection.Find.Text = txt Selection.Find.ClearFormatting Selection.Find.Replacement.Font.Hidden = True Selection.Find.Execute Replace:=wdReplaceAll ActiveDocument.Protect Password:="", NoReset:=False, Type:= _ wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False End Sub
Sub ПоказатьСкрытыеТэги() ActiveDocument.Unprotect Selection.WholeStory With Selection.Font .Name = "+Основной текст" .Hidden = False End With ActiveDocument.Bookmarks("\StartOfDoc").Select ActiveDocument.Protect Password:="", NoReset:=False, Type:= _ wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False End Sub
а про облако - я как то не подумал что вы так редактируете )) с другой стороны вы же не редактируете по паре фраз за раз - можно пару страничек взять да и скопировать а потом обратно запихнуть
Добавлено: 27.04.2016, 20:49
Antero
итак я довел макросы до нормальной кондиции (немного их переписав) и вот каковы они в работе: 1) первый макрос сразу скрывает содержимое тэгов, но оставляет сами скобки дабы было понятно где находятся тэги 2) второй макрос определяет текст который можно редактировать и при этом защищает тэги как от редактирования так и от удаления 3) третий макрос отображает содержимое тэгов (содержимое зачеркнуто и отображается более тусклой заливкой ) сохраняя при этом защиту от редактирования видео пример работы:
Sub аСкрытиеТэгов() ActiveDocument.Bookmarks("\StartOfDoc").Select On Error Resume Next ActiveDocument.Unprotect
Dim txt As String 'создаем переменную для поиска тэгов txt = "\[*\]" 'наполняем переменную универсальным обозначением всех тээгов Selection.Find.MatchWildcards = True 'позволяет работать с регулярными выражениями Selection.Find.Text = txt Selection.Find.ClearFormatting With Selection.Find.Replacement.Font .ColorIndex = wdGray50 .StrikeThrough = True .Name = "Lato" End With 'Selection.Find.Replacement.ClearFormatting Selection.Find.Execute Replace:=wdReplaceAll On Error Resume Next ActiveDocument.Protect Password:="", NoReset:=False, Type:= _ wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False End Sub
Sub бРедактирование() On Error Resume Next ActiveDocument.Bookmarks("\StartOfDoc").Select 'устанавливаем курсор на начало документа
Selection.Find.ClearFormatting 'Очистка параметров поиска With Selection.Find .Font.StrikeThrough = False 'выбираем слова которые не зачеркнуты .Text = ""
End With Do While Selection.Find.Execute 'запуск поиска Selection.Editors.Add wdEditorEveryone 'добавляем выбранные слова в исключение редактирования Loop On Error Resume Next ActiveDocument.Protect Password:="", NoReset:=False, Type:= _ wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False 'включаем защиту редактирования
End Sub Sub вПоказатьТэги() On Error Resume Next ActiveDocument.Unprotect Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find.Replacement.Font .Name = "Calibri" .StrikeThrough = True .DoubleStrikeThrough = False End With With Selection.Find .Font.Name = "Lato" .Text = "\[*\]" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With Selection.Find.Execute Replace:=wdReplaceAll On Error Resume Next ActiveDocument.Protect Password:="", NoReset:=False, Type:= _ wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False End Sub
для удобства можно назначить горячие клавиши на макросы скрытия и отображения тэгов
Добавлено: 27.04.2016, 22:38
Albeoris
Вот теперь здорово выглядит! (= Поделился с командой. Если кто-нибудь переводит в Word'е, может пригодиться. Так держать.
Добавлено: 24.05.2016, 19:33
FanatFFVII
Прошел след.части игры. FFVII, VIII, играю на эмуляторе в FFIX Rus так как нету русификатора для компьютерного издания. Могу поддержать материально в размере 500 рублей. Спасибо, что вы переводите данную игру. Начал проходить с 7-ой части серии играл в Final Fantasy VII HD, FF VIII HD. В компьютерных программах разбираюсь, но я не программист, так бы то же вам был бы рад помочь.