Scn KyoJournalCustomDateScript
int bInitiate
int bCaps
int bConsole
int iButton
int iStage
int iNumParts
ref pCustomDate
ref pDaysPassed
ref pYear
ref pMonth
ref pDay
ref pDayOfWeek
ref pTime
Begin GameMode
if iStage
Activate player 1
endif
End
Begin MenuMode
if iStage
Activate player 1
endif
End
Begin OnActivate
if iStage == 0
DisableKey 57
GetButtonPressed
if bInitiate == 0
set bInitiate to 1
set pDaysPassed to KyoJournalExplainDaysPassedSpell
set pYear to KyoJournalExplainYearSpell
set pMonth to KyoJournalExplainMonthSpell
set pDay to KyoJournalExplainDaySpell
set pDayOfWeek to KyoJournalExplainDayOfWeekSpell
set pTime to KyoJournalExplainTimeSpell
set pCustomDate to KyoJournalQuest.pCustomDate
SetName "<Custom Date>" pCustomDate
endif
AppendToName "~" pCustomDate
set iStage to 1
elseif iStage == 1
ModName "~|" pCustomDate
if KyoJournalQuest.bUseUnderscore
AppendToName "_" pCustomDate
ModName "<Custom Date>_|<Custom Date>" pCustomDate
endif
MessageBoxEx "Here you can combine any parts into a custom date display. You can use any character and any text you'd like. When you need to add a part, be sure to type it correctly (starting and endding with an x). Below is a list of all of the possible part. You must have atleast three parts and xTimex counts as two. %r%n%r%n%r%n%r%n%r%n%r%n%rCurrent custom date: %r%n|[Use custom date]|[Back]", pDaysPassed, pYear, pMonth, pDay, pDayOfWeek, pTime, pCustomDate
if KyoJournalQuest.bUseUnderscore
ModName "<Custom Date>|_" pCustomDate
else
ModName "<Custom Date>|" pCustomDate
endif
AppendToName "~" pCustomDate
if KyoJournalQuest.bUseUnderscore
ModName "_~|~" pCustomDate
endif
set iStage to 2
elseif iStage == 2
set iButton to GetButtonPressed + 1
if iButton == 1
ModName "~|" pCustomDate
set iNumParts to (CompareName "xDaysPassedx" pCustomDate) + (CompareName "xYearx" pCustomDate) + (CompareName "xMonthx" pCustomDate) + (CompareName "xDayx" pCustomDate) + (CompareName "xDayOfWeekx" pCustomDate) + (CompareName "xTimex" pCustomDate * 2)
if iNumParts < 3
set iStage to 1
if HasName pCustomDate == 0
SetName "<Custom Date>" pCustomDate
endif
Message "Custom date is too short, it must consist out of atleast three parts. Time notation (xTimex) counts as two."
if JournalDebug
PrintC "Custom Date Script - Custom date doesn't consist of enough parts. Only has: %g parts.", iNumParts
endif
return
endif
;;Use custom date
set KyoJournalQuest.iDateNotation to 3
set KyoJournalQuest.iStage to -6
if JournalDebug
PrintC "Custom Date Script - Custom date set. It has: %g parts. Format is: %n", iNumParts, pCustomDate
endif
set iStage to 0
set iButton to 0
EnableKey 57
return
elseif iButton == 2
;;;Back
ModName "~|" pCustomDate
set KyoJournalQuest.iStage to -6
set iStage to 0
set iButton to 0
EnableKey 57
return
endif
if OnKeyDown 41
set bConsole to bConsole == 0
endif
if bConsole
return
endif
set bCaps to 0
if IsKeyPressed3 42 || IsKeyPressed3 54
set bCaps to 1
endif
if OnKeyDown 16
if bCaps
ModName "~|Й~" pCustomDate
else
ModName "~|й~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 17
if bCaps
ModName "~|Ц~" pCustomDate
else
ModName "~|ц~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 18
if bCaps
ModName "~|У~" pCustomDate
else
ModName "~|у~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 19
if bCaps
ModName "~|К~" pCustomDate
else
ModName "~|к~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 20
if bCaps
ModName "~|Е~" pCustomDate
else
ModName "~|Е~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 21
if bCaps
ModName "~|Н~" pCustomDate
else
ModName "~|н~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 22
if bCaps
ModName "~|Г~" pCustomDate
else
ModName "~|г~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 23
if bCaps
ModName "~|Ш~" pCustomDate
else
ModName "~|ш~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 24
if bCaps
ModName "~|Щ~" pCustomDate
else
ModName "~|щ~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 25
if bCaps
ModName "~|З~" pCustomDate
else
ModName "~|з~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 26
if bCaps
ModName "~|Х~" pCustomDate
else
ModName "~|х~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 27
if bCaps
ModName "~|Ъ~" pCustomDate
else
ModName "~|ъ~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 30
if bCaps
ModName "~|Ф~" pCustomDate
else
ModName "~|ф~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 31
if bCaps
ModName "~|Ы~" pCustomDate
else
ModName "~|ы~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 32
if bCaps
ModName "~|В~" pCustomDate
else
ModName "~|в~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 33
if bCaps
ModName "~|А~" pCustomDate
else
ModName "~|а~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 34
if bCaps
ModName "~|П~" pCustomDate
else
ModName "~|п~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 35
if bCaps
ModName "~|Р~" pCustomDate
else
ModName "~|р~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 36
if bCaps
ModName "~|О~" pCustomDate
else
ModName "~|о~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 37
if bCaps
ModName "~|Л~" pCustomDate
else
ModName "~|л~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 38
if bCaps
ModName "~|Д~" pCustomDate
else
ModName "~|д~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 39
if bCaps
ModName "~|Ж~" pCustomDate
else
ModName "~|ж~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 40
if bCaps
ModName "~|Э~" pCustomDate
else
ModName "~|э~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 44
if bCaps
ModName "~|Я~" pCustomDate
else
ModName "~|я~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 45
if bCaps
ModName "~|Ч~" pCustomDate
else
ModName "~|ч~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 46
if bCaps
ModName "~|С~" pCustomDate
else
ModName "~|с~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 47
if bCaps
ModName "~|М~" pCustomDate
else
ModName "~|м~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 48
if bCaps
ModName "~|И~" pCustomDate
else
ModName "~|и~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 49
if bCaps
ModName "~|Т~" pCustomDate
else
ModName "~|т~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 50
if bCaps
ModName "~|Ь~" pCustomDate
else
ModName "~|ь~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 2
if bCaps
ModName "~|!~" pCustomDate
else
ModName "~|1~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 3
if bCaps
ModName "~|@~" pCustomDate
else
ModName "~|2~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 4
if bCaps
ModName "~|#~" pCustomDate
else
ModName "~|3~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 5
if bCaps
ModName "~|$~" pCustomDate
else
ModName "~|4~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 6
if bCaps
ModName "~|%~" pCustomDate
else
ModName "~|5~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 7
if bCaps
ModName "~|^~" pCustomDate
else
ModName "~|6~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 8
if bCaps
ModName "~|&~" pCustomDate
else
ModName "~|7~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 9
if bCaps
ModName "~|*~" pCustomDate
else
ModName "~|8~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 10
if bCaps
ModName "~|(~" pCustomDate
else
ModName "~|9~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 11
if bCaps
ModName "~|)~" pCustomDate
else
ModName "~|0~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 12
if bCaps
ModName "~|_~" pCustomDate
else
ModName "~|-~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 13
if bCaps
ModName "~|+~" pCustomDate
else
ModName "~|=~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 43
ModName "~|\~" pCustomDate
set iStage to 1
elseif OnKeyDown 51
if bCaps
ModName "~|Б~" pCustomDate
else
ModName "~|б~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 52
if bCaps
ModName "~|Ю~" pCustomDate
else
ModName "~|ю~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 53
if bCaps
ModName "~|,~" pCustomDate
else
ModName "~|.~" pCustomDate
endif
set iStage to 1
elseif OnKeyDown 57
ModName "~| ~" pCustomDate
set iStage to 1
elseif OnKeyDown 14; Backspace
Label 112
ModName "q~|" pCustomDate
ModName "w~|" pCustomDate
ModName "e~|" pCustomDate
ModName "r~|" pCustomDate
ModName "t~|" pCustomDate
ModName "y~|" pCustomDate
ModName "u~|" pCustomDate
ModName "i~|" pCustomDate
ModName "o~|" pCustomDate
ModName "p~|" pCustomDate
ModName "a~|" pCustomDate
ModName "s~|" pCustomDate
ModName "d~|" pCustomDate
ModName "f~|" pCustomDate
ModName "g~|" pCustomDate
ModName "h~|" pCustomDate
ModName "j~|" pCustomDate
ModName "k~|" pCustomDate
ModName "l~|" pCustomDate
ModName "z~|" pCustomDate
ModName "x~|" pCustomDate
ModName "c~|" pCustomDate
ModName "v~|" pCustomDate
ModName "b~|" pCustomDate
ModName "n~|" pCustomDate
ModName "m~|" pCustomDate
ModName "1~|" pCustomDate
ModName "2~|" pCustomDate
ModName "3~|" pCustomDate
ModName "4~|" pCustomDate
ModName "5~|" pCustomDate
ModName "6~|" pCustomDate
ModName "7~|" pCustomDate
ModName "8~|" pCustomDate
ModName "9~|" pCustomDate
ModName "0~|" pCustomDate
ModName "!~|" pCustomDate
ModName "@~|" pCustomDate
ModName "#~|" pCustomDate
ModName "$~|" pCustomDate
ModName "%~|" pCustomDate
ModName "^~|" pCustomDate
ModName "&~|" pCustomDate
ModName "*~|" pCustomDate
ModName "(~|" pCustomDate
ModName ")~|" pCustomDate
ModName "-~|" pCustomDate
ModName "_~|" pCustomDate
ModName "=~|" pCustomDate
ModName "+~|" pCustomDate
ModName "[~|" pCustomDate
ModName "{~|" pCustomDate
ModName "]~|" pCustomDate
ModName "}~|" pCustomDate
ModName ";~|" pCustomDate
ModName ":~|" pCustomDate
ModName "'~|" pCustomDate
ModName ""~|" pCustomDate
ModName ">~|" pCustomDate
ModName "<~|" pCustomDate
ModName ".~|" pCustomDate
ModName ",~|" pCustomDate
ModName "/~|" pCustomDate
ModName "\~|" pCustomDate
ModName "?~|" pCustomDate
ModName " ~|" pCustomDate
ModName "~|" pCustomDate
if HasName pCustomDate == 0
SetName "<Custom Date>" pCustomDate
else
AppendToName "~" pCustomDate
endif
if IsKeyPressed3 29 || IsKeyPressed3 157
if CompareName " ~" pCustomDate != 1
if CompareName "<Custom Date>" pCustomDate != 1
Goto 112
endif
endif
endif
set iStage to 1
endif
elseif iStage == 3
ModName "~|" pCustomDate
if HasName pCustomDate == 0
SetName "<Custom Date>" pCustomDate
else
set iStage to -1
return
endif
set KyoJournalQuest.iStage to 2
set iStage to 0
set iButton to 0
elseif iStage == 4
set KyoJournalQuest.iStage to 2
set iStage to 0
set iButton to 0
if JournalDebug
PrintC "Custom Date Script - Go back."
endif
endif
End Это OBSE скрипт из рабочего плагина, который дает возможность вести свои записи в игре. Я его хотел руссифицировать, но этот скрипт не хочет перекомпилироваться, даже будучи неизмененным. Выдает ошибку в строке с первым MessageBoxEx. Ссылка на плагин http://tesnexus.com/downloads/file.php?id=15294