mà bạn có thể nói cho mình số từ bạn thống nhất k...k đến lúc mình dịch lại khác của bạn...ví dụ như ruler chẳng hạn
[PC] Crusader Kings II: Conclave Việt ngữ [RPG|Grand strategy] (Tạm dừng)
- Thread starter thanvohoang
- Ngày gửi
Do thấy có một số trò hỗ trợ những font chữ riêng, không phổ biến nên tôi xin bổ xung một số đoạn code hỗ trợ dịch qua lại. Đặc biệt là ở game này:
Ví dụ : Ở đây là chuyển đổi qua lại giữa font game CK2 với font Unicode bằng VBA.
1. Bảng mã xuôi từ font unicode sang font game (tên: ukmacro.doc)
2. Bảng mã ngược từ font game font sang font unicode(tên: backukmacro.doc)
3. Mở 1 file Word, ấn Alt+F11 để mở VBA.-> Phải chuột tại mục Normal(dưới Project bên trái) -> Insert-> Module:
thêm 2 module:
a). Hàm dịch từ font CK2 sang font unicode (cho dễ đọc và sửa):
b) Hàm dịch từ font Unicode sang font CK2 (để bỏ vào CK2)
c) Lúc này những file cần dịch dạng csv chỉ cần mở dưới exel -> copy cột thứ 2 sang word (thành 1 bảng)-> ấn Alt+F8 chạy macro BackOrgReplaceFromTableList nó sẽ thành dạng font unicode để sửa chữa và đọc dễ dàng.-> Sửa xong lại copy bảng(1 cột) vào lại exel đè lên cũ -> đóng lại ok.
Ví dụ : Ở đây là chuyển đổi qua lại giữa font game CK2 với font Unicode bằng VBA.
1. Bảng mã xuôi từ font unicode sang font game (tên: ukmacro.doc)
Mã:
ạ #
ả ä
ắ ‰
ă ñ
ẵ Œ
ẳ Š
ằ ÿ
ặ Ž
ầ &
ậ ^
ấ <
ẩ >
ẫ û
dd æ
đ ß
ẹ Æ
ẻ Ç
ẽ ë
ề Ë
ể Ï
ế Î
ễ Ñ
ệ Ö
ị Ø
ĩ ü
ỉ Û
ỏ œ
ọ š
ổ ¢
ộ ¥
ỗ ö
ố Ÿ
ồ ž
ỡ ±
ớ «
ờ ©
ở ®
ợ µ
ơ ï
ủ »
ụ ¶
ũ ç
ử ¿
ư ¼
ứ ¾
ữ Ä
ự Å
ừ ø
ỹ î
ỷ Ü
Mã:
# ạ
ä ả
‰ ắ
ñ ă
Œ ẵ
Š ẳ
ÿ ằ
Ž ặ
& ầ
^ ậ
< ấ
> ẩ
û ẫ
æ dd
ß đ
Æ ẹ
Ç ẻ
ë ẽ
Ë ề
Ï ể
Î ế
Ñ ễ
Ö ệ
Ø ị
ü ĩ
Û ỉ
œ ỏ
š ọ
¢ ổ
¥ ộ
ö ỗ
Ÿ ố
ž ồ
± ỡ
« ớ
© ờ
® ở
µ ợ
ï ơ
» ủ
¶ ụ
ç ũ
¿ ử
¼ ư
¾ ứ
Ä ữ
Å ự
ø ừ
î ỹ
Ü ỷthêm 2 module:
a). Hàm dịch từ font CK2 sang font unicode (cho dễ đọc và sửa):
Mã:
Sub BackOrgReplaceFromTableList()
Dim oChanges As Document, oDoc As Document
Dim oTable As Table
Dim oRng As Range
Dim rFindText As Range, rReplacement As Range
Dim i As Long
Dim sFname As String
'ten bang chua cac ky tu thay the
sFname = "E:\CK2 mod\backukmacro.doc"
Set oDoc = ActiveDocument
Set oChanges = Documents.Open(FileName:=sFname, Visible:=False)
Set oTable = oChanges.Tables(1) 'bang cac ky tu thay the
For i = 1 To oTable.Rows.Count
Set oRng = oDoc.Range
Set rFindText = oTable.Cell(i, 1).Range
rFindText.End = rFindText.End - 1
Set rReplacement = oTable.Cell(i, 2).Range
rReplacement.End = rReplacement.End - 1
With oRng.Find
'.ClearFormatting
'.Replacement.ClearFormatting
Do While .Execute(findText:=rFindText, _
MatchCase:=True, _
MatchWholeWord:=False, _
MatchWildcards:=False, _
Forward:=True, _
Wrap:=wdFindContinue) = True
oRng.Text = rReplacement
Loop
End With
Next i
oChanges.Close wdDoNotSaveChanges
End Sub
Mã:
‘Ham tu van ban unicode thanh van ban trong game
Sub ReplaceFromTableList()
Dim oChanges As Document, oDoc As Document
Dim oTable As Table
Dim oRng As Range
Dim rFindText As Range, rReplacement As Range
Dim i As Long
Dim sFname As String
‘ ten bang chua cac ky tu thay the
sFname = "E:\CK2 mod\ukmacro.doc"
Set oDoc = ActiveDocument
Set oChanges = Documents.Open(FileName:=sFname, Visible:=False)
Set oTable = oChanges.Tables(1) 'bang cac ky tu thay the
For i = 1 To oTable.Rows.Count
Set oRng = oDoc.Range
Set rFindText = oTable.Cell(i, 1).Range
rFindText.End = rFindText.End - 1
Set rReplacement = oTable.Cell(i, 2).Range
rReplacement.End = rReplacement.End - 1
With oRng.Find
'.ClearFormatting
'.Replacement.ClearFormatting
Do While .Execute(findText:=rFindText, _
MatchCase:=True, _
MatchWholeWord:=False, _
MatchWildcards:=False, _
Forward:=True, _
Wrap:=wdFindContinue) = True
oRng.Text = rReplacement
Loop
End With
Next i
oChanges.Close wdDoNotSaveChanges
End Sub
Thấy bạn tội quá nên mình edit lại bản demo để chơi trên bản mới nè, dịch hình như hết tooltip rồi,event thì chưa, chơi đỡ vậy nhá. Giải nén vào thư mục mod, laught game check là được, chưa thử nên ko biết có bị lỗi hay ko.
https://drive.google.com/open?id=0B7sgUfhVq1lSOHBCaXpfeGlLeGM
Bỏ vào bản mới nhất hiện tại là Crusader Kings II: Monks and Mystics có nhiều chỗ lỗi, nhưng dù gì cũng cám ơn bạn
Khởi động lại dự án đi anh, đây là 1 dòng game hay nổi tiếng mong anh và team của anh việt hóa để cho mọi game thủ có thể thưởng thức. Thanks anhI.Giới thiệu:
II. Dự án Crusader Kings II: Conclave Việt ngữ: (Tạm dừng vì thiếu sự ủng hộ)
III. Hình ảnh:
IV. Gói Ngôn ngữ Tiếng Việt:
- Đây là bản chỉ là bản DEMO mang tính chất thử nghiệm, các bạn đừng nên quá kỳ vọng.
- Link tải Trò chơi:
- Link tải Ngói Tiếng Việt:
Hướng dẫn cài đặt:
Font Ck3 đã thêm ký tự tiếng việt cho bạn nào muốn vọc
https://drive.google.com/file/d/1bGrDYxERS-DvuP_fiMC9BOtBMKkUUtNk/view?usp=sharing
https://drive.google.com/file/d/1bGrDYxERS-DvuP_fiMC9BOtBMKkUUtNk/view?usp=sharing
Bác còn file font hay file mod liên quan không? Cho em xin với, link die hết rồi.
Em tự dịch mà mới bắt đầu nên k biết add font như thế nào.
Em tự dịch mà mới bắt đầu nên k biết add font như thế nào.