;========================Ĳϵͳ======================
[@RsetBan]
#Act
GameGold + <$Human(UbCap)>
SendMsg 6 ׯȡׯ[<$Human(UbCap)>]Ԫ!
CAlCVAR Human UbInn = 0
CAlCVAR Human UbCap = 0
CAlCVAR Human Ubv = 0
CAlCVAR Human Ubvs = 
SAVEVAR HUMAN UbInn ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN UbCap ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubv ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubvs ..\QuestDiary\PK˽\HVarSave.txt

[@UBanEnd]
#if
CheckVar Human UbInn = <$GLOBAL(bInn)>
#ElseAct
Break

#if
CheckVar Global bBanName = <$USERNAME>
#Act
Goto @BanCal
#ElseAct
SendMsg 0 [ʾ]<$USERNAME>ע<$Human(UbCap)>ԪѺ<$Human(Ubvs)>
Goto @UseCal

[@BanCal]
#if
CheckVar Global bRes = 0
#Act
Goto @BanCal_0
Break

#if
CheckVar Global bRes = 1
#Act
Goto @BanCal_1
Break

#if
CheckVar Global bRes = 2
#Act
Goto @BanCal_2
Break

[@BanCal_0]
#if
CheckLevelEx > 0
#Act
Mov N99 <$Global(bBancap)>

#if
CheckVar Global bPb > 0
#Act
Inc N99 <$Global(bPb)>

#if
CheckVar Global bPs > 0
#Act
Inc N99 <$Global(bPs)>

#If
CheckLevelEx > 0
#Say
#Act
GameGold + <$STR(N99)>
Mov S0 ׯҡ
Inc S0 <$USERNAME>
Inc S0 <$Global(bNu1)><$Global(bNu2)><$Global(bNu3)>
Inc S0 <$Global(bResStr)>
Inc S0 ջ<$STR(N99)>Ԫ
CALCVAR Human UbMsg = <$STR(S0)>
MOV D0 <$Global(bNu1)>
MOV D1 <$Global(bNu2)>
MOV D2 <$Global(bNu3)>
CAlCVAR Human UbInn = 0
CAlCVAR Human UbCap = 0
CAlCVAR Human Ubv = 0
CAlCVAR Human Ubvs = 
SAVEVAR HUMAN UbInn ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN UbCap ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubv ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubvs ..\QuestDiary\PK˽\HVarSave.txt
playdice 3 @BanMsg


[@BanCal_1]
#if
CheckLevelEx > 0
#Act
Mov N99 <$Global(bBancap)>

#if
CheckVar Global bPs > 0
#Act
Inc N99 <$Global(bPs)>

#if
CheckVar Global bPb > 0
#Act
Dec N99 <$Global(bPb)>

#If
CheckLevelEx > 0
#Say
#Act
GameGold + <$STR(N99)>
Mov S0 ׯҡ
Inc S0 <$USERNAME>
Inc S0 <$Global(bNu1)><$Global(bNu2)><$Global(bNu3)>
Inc S0 <$Global(bResStr)>
Inc S0 ջ<$STR(N99)>Ԫ
CALCVAR Human UbMsg = <$STR(S0)>
MOV D0 <$Global(bNu1)>
MOV D1 <$Global(bNu2)>
MOV D2 <$Global(bNu3)>
CAlCVAR Human UbInn = 0
CAlCVAR Human UbCap = 0
CAlCVAR Human Ubv = 0
CAlCVAR Human Ubvs = 
SAVEVAR HUMAN UbInn ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN UbCap ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubv ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubvs ..\QuestDiary\PK˽\HVarSave.txt
playdice 3 @BanMsg


[@BanCal_2]
#if
CheckLevelEx > 0
#Act
Mov N99 <$Global(bBancap)>



#if
CheckVar Global bPb > 0
#Act
Inc N99 <$Global(bPb)>

#if
CheckVar Global bPs > 0
#Act
Dec N99 <$Global(bPs)>

#If
CheckLevelEx > 0
#Say
#Act
GameGold + <$STR(N99)>
Mov S0 ׯҡ
Inc S0 <$USERNAME>
Inc S0 <$Global(bNu1)><$Global(bNu2)><$Global(bNu3)>
Inc S0 <$Global(bResStr)>
Inc S0 ջ<$STR(N99)>Ԫ
CALCVAR Human UbMsg = <$STR(S0)>
MOV D0 <$Global(bNu1)>
MOV D1 <$Global(bNu2)>
MOV D2 <$Global(bNu3)>
CAlCVAR Human UbInn = 0
CAlCVAR Human UbCap = 0
CAlCVAR Human Ubv = 0
CAlCVAR Human Ubvs = 
SAVEVAR HUMAN UbInn ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN UbCap ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubv ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubvs ..\QuestDiary\PK˽\HVarSave.txt
playdice 3 @BanMsg

[@BanMsg]
#Act
SendMsg 0 <$Human(UbMsg)>

[@UseCal]
#if
CheckVar Human Ubv = 0
#Act
CAlCVAR Human UbInn = 0
CAlCVAR Human UbCap = 0
CAlCVAR Human Ubv = 0
CAlCVAR Human Ubvs = 
SAVEVAR HUMAN UbInn ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN UbCap ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubv ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubvs ..\QuestDiary\PK˽\HVarSave.txt
Break

#if
CheckVar Human Ubv = <$Global(bRes)>
#Say
#Act
Mov N99 <$Human(UbCap)>
Inc N99 <$STR(N99)>
GameGold + <$STR(N99)>
Mov S0 ׯҡ<$Global(bBanName)>ˡ<$Global(bResStr)>
Inc S0 <$USERNAME>Ӯ<$STR(N99)>Ԫע
CALCVAR Human UbMsg = <$STR(S0)>
CAlCVAR Human UbInn = 0
CAlCVAR Human UbCap = 0
CAlCVAR Human Ubv = 0
CAlCVAR Human Ubvs = 
SAVEVAR HUMAN UbInn ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN UbCap ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubv ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubvs ..\QuestDiary\PK˽\HVarSave.txt
MOV D0 <$Global(bNu1)>
MOV D1 <$Global(bNu2)>
MOV D2 <$Global(bNu3)>
playdice 3 @UseMsg_W
#ElseAct
Mov S0 ׯҡ<$Global(bBanName)>ˡ<$Global(bResStr)>
Inc S0 <$USERNAME>ʧ<$Human(UbCap)>Ԫע
CALCVAR Human UbMsg = <$STR(S0)>
CAlCVAR Human UbInn = 0
CAlCVAR Human UbCap = 0
CAlCVAR Human Ubv = 0
CAlCVAR Human Ubvs = 
SAVEVAR HUMAN UbInn ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN UbCap ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubv ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubvs ..\QuestDiary\PK˽\HVarSave.txt
MOV D0 <$Global(bNu1)>
MOV D1 <$Global(bNu2)>
MOV D2 <$Global(bNu3)>
playdice 3 @UseMsg_L

[@UseMsg_W]
#Act
SendMsg 0 <$Human(UbMsg)>

[@UseMsg_L]
#Act
SendMsg 0 <$Human(UbMsg)>


[@OnTimer0]
#if
CheckVar Human UbInn > 0
#ElseAct
SetOffTimer 0
Break

#if
CheckVar Human UbInn  = <$Global(bInn)>
#Act
SetOffTimer 0
Break

#if
CheckVar Global bRvar = 2
CheckVar Global bTime < 5
#Act
Break

#if
CheckVar Global bRvar = 3
#Act
Break

#if
CheckVar Human Ubv > 0
#Act
Goto @Ben_Log
Break

#if
CheckVar Human Ubv = 0
CheckVar Human Ubvs = ׯ
#Act
Goto @Ben_Log_K
Break


[@Ben_Log_K]
#if
CheckLevelEx > 0
#Act
Mov N99 <$Human(UbInn)>
Dec N99 1
GetListString ..\QuestDiary\PK˽\Log\BatInn.txt <$STR(N99)> S60 N98
CAlCVAR Human LogInn = <$STR(S60)>
CAlCVAR Human LogCap = <$STR(N98)>
GetListString ..\QuestDiary\PK˽\Log\BatBnn.txt <$STR(N99)> S60 N98
CAlCVAR Human LogPb = <$STR(S60)>
CAlCVAR Human LogPs = <$STR(N98)>
GetListString ..\QuestDiary\PK˽\Log\BatNu.txt <$STR(N99)> S60 N98
CAlCVAR Human LogNu = <$STR(S60)>
CAlCVAR Human LogNuG = <$STR(N98)>
GetListString ..\QuestDiary\PK˽\Log\BatRes.txt <$STR(N99)> S60 N98
CAlCVAR Human LogResStr = <$STR(S60)>
CAlCVAR Human LogRes = <$STR(N98)>

#if
CheckVar Human UbInn = <$Human(LogInn)>
#Act
SendMsg 6 ʷׯ㡽
SendMsg 6 <$Human(UbInn)>֡ׯұ:<$Human(LogCap)>ѹ:<$Human(LogPb)>ѹС:<$Human(LogPs)>
SendMsg 6 ׯ:<$Human(LogNu)><$Human(LogNuG)>㣬<$Human(LogResStr)>
SendMsg 6 <$Human(UbCap)>Ԫ<$Human(Ubvs)>
Goto @Ben_Log_K_End
#ElseAct
AddTextList ..\QuestDiary\PK˽\ErrLog.txt <$USERNAME><$Human(UbInn)>ݶӦִ<$Human(LogInn)>
CAlCVAR Human LogInn = 0
CAlCVAR Human LogCap = 0
CAlCVAR Human LogPb = 0
CAlCVAR Human LogPs = 0
CAlCVAR Human LogNu = 0
CAlCVAR Human LogNuG = 0
CAlCVAR Human LogResStr = 0
CAlCVAR Human LogRes = 0
CAlCVAR Human UbInn = 0
CAlCVAR Human UbCap = 0
CAlCVAR Human Ubv = 0
CAlCVAR Human Ubvs = 
SAVEVAR HUMAN UbInn ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN UbCap ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubv ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubvs ..\QuestDiary\PK˽\HVarSave.txt
SetOffTimer 0

[@Ben_Log_K_End]
#if
CheckVar Human UbCap = <$Human(LogCap)>
#ElseAct
AddTextList ..\QuestDiary\PK˽\ErrLog.txt ׯ<$USERNAME><$Human(UbInn)>ݶӦִ
SetOffTimer 0
Break

#if
CheckVar Human LogRes = 0
#Act
Goto @Ben_Log_K_End_0
Break

#if
CheckVar Human LogRes = 1
#Act
Goto @Ben_Log_K_End_1
Break

#if
CheckVar Human LogRes = 2
#Act
Goto @Ben_Log_K_End_2
Break

[@Ben_Log_K_End_0]
#if
CheckLevelEx > 0
#Act
Mov N99 <$Human(LogCap)>

#if
CheckVar Human LogPb > 0
#Act
Inc N99 <$Human(LogPb)>

#if
CheckVar Human LogPs > 0
#Act
Inc N99 <$Human(LogPs)>

#if
CheckLevelEx > 0
#Act
GameGold + <$STR(N99)>
SendMsg 6 ջ[<$STR(N99)>]Ԫ
CAlCVAR Human UbInn = 0
CAlCVAR Human UbCap = 0
CAlCVAR Human Ubv = 0
CAlCVAR Human Ubvs = 
SAVEVAR HUMAN UbInn ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN UbCap ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubv ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubvs ..\QuestDiary\PK˽\HVarSave.txt
CAlCVAR Human LogInn = 0
CAlCVAR Human LogCap = 0
CAlCVAR Human LogPb = 0
CAlCVAR Human LogPs = 0
CAlCVAR Human LogNu = 0
CAlCVAR Human LogNuG = 0
CAlCVAR Human LogResStr = 0
CAlCVAR Human LogRes = 0
SetOffTimer 0
Break

[@Ben_Log_K_End_1]
#if
CheckLevelEx > 0
#Act
Mov N99 <$Human(LogCap)>

#if
CheckVar Human LogPs > 0
#Act
Inc N99 <$Human(LogPs)>

#if
CheckVar Human LogPb > 0
#Act
Dec N99 <$Human(LogPb)>

#if
CheckLevelEx > 0
#Act
GameGold + <$STR(N99)>
SendMsg 6 ջ[<$STR(N99)>]Ԫ
CAlCVAR Human UbInn = 0
CAlCVAR Human UbCap = 0
CAlCVAR Human Ubv = 0
CAlCVAR Human Ubvs = 
SAVEVAR HUMAN UbInn ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN UbCap ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubv ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubvs ..\QuestDiary\PK˽\HVarSave.txt
CAlCVAR Human LogInn = 0
CAlCVAR Human LogCap = 0
CAlCVAR Human LogPb = 0
CAlCVAR Human LogPs = 0
CAlCVAR Human LogNu = 0
CAlCVAR Human LogNuG = 0
CAlCVAR Human LogResStr = 0
CAlCVAR Human LogRes = 0
SetOffTimer 0
Break

[@Ben_Log_K_End_2]
#if
CheckLevelEx > 0
#Act
Mov N99 <$Human(LogCap)>

#if
CheckVar Human LogPb > 0
#Act
Inc N99 <$Human(LogPb)>

#if
CheckVar Human LogPs > 0
#Act
Dec N99 <$Human(LogPs)>

#if
CheckLevelEx > 0
#Act
GameGold + <$STR(N99)>
SendMsg 6 ջ[<$STR(N99)>]Ԫ
CAlCVAR Human UbInn = 0
CAlCVAR Human UbCap = 0
CAlCVAR Human Ubv = 0
CAlCVAR Human Ubvs = 
SAVEVAR HUMAN UbInn ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN UbCap ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubv ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubvs ..\QuestDiary\PK˽\HVarSave.txt
CAlCVAR Human LogInn = 0
CAlCVAR Human LogCap = 0
CAlCVAR Human LogPb = 0
CAlCVAR Human LogPs = 0
CAlCVAR Human LogNu = 0
CAlCVAR Human LogNuG = 0
CAlCVAR Human LogResStr = 0
CAlCVAR Human LogRes = 0
SetOffTimer 0
Break

[@Ben_Log]
#if
CheckLevelEx > 0
#Act
Mov N99 <$Human(UbInn)>
Dec N99 1
GetListString ..\QuestDiary\PK˽\Log\BatInn.txt <$STR(N99)> S60 N98
CAlCVAR Human LogInn = <$STR(S60)>
CAlCVAR Human LogCap = <$STR(N98)>
GetListString ..\QuestDiary\PK˽\Log\BatBnn.txt <$STR(N99)> S60 N98
CAlCVAR Human LogPb = <$STR(S60)>
CAlCVAR Human LogPs = <$STR(N98)>
GetListString ..\QuestDiary\PK˽\Log\BatNu.txt <$STR(N99)> S60 N98
CAlCVAR Human LogNu = <$STR(S60)>
CAlCVAR Human LogNuG = <$STR(N98)>
GetListString ..\QuestDiary\PK˽\Log\BatRes.txt <$STR(N99)> S60 N98
CAlCVAR Human LogResStr = <$STR(S60)>
CAlCVAR Human LogRes = <$STR(N98)>

#if
CheckVar Human UbInn = <$Human(LogInn)>
#Act
SendMsg 6 ʷׯ㡽
SendMsg 6 <$Human(UbInn)>֡ׯұ:<$Human(LogCap)>ѹ:<$Human(LogPb)>ѹС:<$Human(LogPs)>
SendMsg 6 ׯ:<$Human(LogNu)><$Human(LogNuG)>㣬<$Human(LogResStr)>
SendMsg 6 <$Human(UbCap)>Ԫ<$Human(Ubvs)>
Goto @Ben_Log_End
#ElseAct
AddTextList ..\QuestDiary\PK˽\ErrLog.txt <$USERNAME><$Human(UbInn)>ݶӦִ
CAlCVAR Human LogInn = 0
CAlCVAR Human LogCap = 0
CAlCVAR Human LogPb = 0
CAlCVAR Human LogPs = 0
CAlCVAR Human LogNu = 0
CAlCVAR Human LogNuG = 0
CAlCVAR Human LogResStr = 0
CAlCVAR Human LogRes = 0
CAlCVAR Human UbInn = 0
CAlCVAR Human UbCap = 0
CAlCVAR Human Ubv = 0
CAlCVAR Human Ubvs = 
SAVEVAR HUMAN UbInn ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN UbCap ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubv ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubvs ..\QuestDiary\PK˽\HVarSave.txt
SetOffTimer 0

[@Ben_Log_End]
#if
CheckVar Human Ubv = <$Human(LogRes)>
#Act
Mov N99 <$Human(UbCap)>
Inc N99 <$STR(N99)>
GameGold + <$STR(N99)>
SendMsg 6 <$Human(UbInn)>,ׯĲӮԪ:<$STR(N99)>!!!
CAlCVAR Human UbInn = 0
CAlCVAR Human UbCap = 0
CAlCVAR Human Ubv = 0
CAlCVAR Human Ubvs = 
SAVEVAR HUMAN UbInn ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN UbCap ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubv ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubvs ..\QuestDiary\PK˽\HVarSave.txt
CAlCVAR Human LogInn = 0
CAlCVAR Human LogCap = 0
CAlCVAR Human LogPb = 0
CAlCVAR Human LogPs = 0
CAlCVAR Human LogNu = 0
CAlCVAR Human LogNuG = 0
CAlCVAR Human LogResStr = 0
CAlCVAR Human LogRes = 0
SetOffTimer 0
#ElseAct
SendMsg 6 ܲ!<$Human(UbInn)>,ׯ..Ѫ޹...
CAlCVAR Human UbInn = 0
CAlCVAR Human UbCap = 0
CAlCVAR Human Ubv = 0
CAlCVAR Human Ubvs = 
SAVEVAR HUMAN UbInn ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN UbCap ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubv ..\QuestDiary\PK˽\HVarSave.txt
SAVEVAR HUMAN Ubvs ..\QuestDiary\PK˽\HVarSave.txt
CAlCVAR Human LogInn = 0
CAlCVAR Human LogCap = 0
CAlCVAR Human LogPb = 0
CAlCVAR Human LogPs = 0
CAlCVAR Human LogNu = 0
CAlCVAR Human LogNuG = 0
CAlCVAR Human LogResStr = 0
CAlCVAR Human LogRes = 0
SetOffTimer 0