#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\Ecom\HVarSave.txt
SAVEVAR HUMAN UbCap ..\QuestDiary\Ecom\HVarSave.txt
SAVEVAR HUMAN Ubv ..\QuestDiary\Ecom\HVarSave.txt
SAVEVAR HUMAN Ubvs ..\QuestDiary\Ecom\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\Ecom\HVarSave.txt
SAVEVAR HUMAN UbCap ..\QuestDiary\Ecom\HVarSave.txt
SAVEVAR HUMAN Ubv ..\QuestDiary\Ecom\HVarSave.txt
SAVEVAR HUMAN Ubvs ..\QuestDiary\Ecom\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\Ecom\HVarSave.txt
SAVEVAR HUMAN UbCap ..\QuestDiary\Ecom\HVarSave.txt
SAVEVAR HUMAN Ubv ..\QuestDiary\Ecom\HVarSave.txt
SAVEVAR HUMAN Ubvs ..\QuestDiary\Ecom\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\Ecom\HVarSave.txt
SAVEVAR HUMAN UbCap ..\QuestDiary\Ecom\HVarSave.txt
SAVEVAR HUMAN Ubv ..\QuestDiary\Ecom\HVarSave.txt
SAVEVAR HUMAN Ubvs ..\QuestDiary\Ecom\HVarSave.txt
MOV D0 <$Global(bNu1)>
MOV D1 <$Global(bNu2)>
MOV D2 <$Global(bNu3)>
playdice 3 @UseMsg_L