;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[@Main]

#SAY
#INCLUDE [..\Convert_Def\Market_Def\19GM_ReName-Z012.txt] @Convert_19GM_ReName-Z012_0

[@ChangeUserName_ok]

#SAY
#INCLUDE [..\Convert_Def\Market_Def\19GM_ReName-Z012.txt] @Convert_19GM_ReName-Z012_1

#ACT
Mov A1 %USERNAME

[@@ChangeUserName]
#ACT
ChangeUserName @ChangeUserNameResult
break

[@ChangeUserNameResult]
#ACT
FormatStr "FLD_USERNAME='%s'" %A1
Mov A2 %A9
FormatStr "FLD_USERNAME='%s'" %USERNAME
Mov A3 %A9
UpdateValueSql "TBL_DairyQuestUser" %A2 %A3
FormatStr "FLD_CHAR='%s'" %A1
Mov A4 %A9
FormatStr "FLD_CHAR='%s'" %USERNAME
Mov A5 %A9
UpdateValueSql "TBL_BasicCharQuest" %A4 %A5
LoadValue A7 [Convert_Def\Market_Def\19GM_ReName-Z012.txt] [Convert] [Msg0]
SysMsg %A7
UserEmergencyClose

[@ChangeUserNameResult~]

#SAY
#INCLUDE [..\Convert_Def\Market_Def\19GM_ReName-Z012.txt] @Convert_19GM_ReName-Z012_2

[@divorcenow]
#IF
CheckMarriage

#SAY
#INCLUDE [..\Convert_Def\Market_Def\19GM_ReName-Z012.txt] @Convert_19GM_ReName-Z012_3


#ELSESAY
#INCLUDE [..\Convert_Def\Market_Def\19GM_ReName-Z012.txt] @Convert_19GM_ReName-Z012_4

[@divorcenow_ok]
#ACT
Divorce
close
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;