"Enable"
1080
1920
"0xeae6e1"
; "ROOT/taobin_project/sounds/chaching.mp3"
SoundVolume
Var Timeout = 0
Var LastMakeSpiralResult = 0
Var ShowSwapVDO = "ROOT/taobin_project/spiral/video/sp01.mp4"
GenHashWithTimeStamp SpiralRef
Var ServiceCredit = "03-02-00-6001"
SPIRAL_SELL ServiceCredit SpiralRef
Var TimeOutSmoothiesProcess = 120
DEBUGVAR SmoothieToPayment
1000
Var Timeout = Timeout + 1
If LastMakeSpiralResult = 1 Then
Var SessionID4 = MachineSpiralID
Var SessionID4 = SessionID4 + ":"
Var SessionID4 = SessionID4 + MachineSpiralVMName
Var SessionID4 = SessionID4 + ":"
Var SessionID4 = SessionID4 + MachineSpiralSlotID
Var SessionID4 = SessionID4 + ":"
Var SessionID4 = SessionID4 + ServiceCredit
Var SessionID4 = SessionID4 + ":"
Var SessionID4 = SessionID4 + 1
Var SessionID4 = SessionID4 + ":"
Var SessionID4 = SessionID4 + MachineSpiralRemaining
Var PayDetail="S:0:"
Var PayDetail = PayDetail + SessionID4
Var Cid = 27
Var PointCrm = CounterOrderId
If FromCounterMulti = 1 Then
Var PointCrm = PayReference
EndIf
Var GetScore = Seeker.VendingTSID
Var param1 = PayDetail
Var ACC = "0899999999"
AddData Cid ACC param1 PointCrm GetScore
;Open "ROOT/taobin_project/xml/page_spiral_success.xml"
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
Open "ROOT/taobin_project/inter/tha/xml/page_smoothie_suggest_and_process.xml"
EndIf
If LastMakeSpiralResult = 2 Then
Var SessionID4 = MachineSpiralID
Var SessionID4 = SessionID4 + ":"
Var SessionID4 = SessionID4 + MachineSpiralVMName
Var SessionID4 = SessionID4 + ":"
Var SessionID4 = SessionID4 + MachineSpiralSlotID
Var SessionID4 = SessionID4 + ":"
Var SessionID4 = SessionID4 + ServiceCredit
Var SessionID4 = SessionID4 + ":"
Var SessionID4 = SessionID4 + 1
Var SessionID4 = SessionID4 + ":"
Var SessionID4 = SessionID4 + MachineSpiralRemaining
Var PayDetail="F:"
Var PayDetail = PayDetail + MachineSpiralErrorCode
Var PayDetail = PayDetail + ":"
Var PayDetail = PayDetail + SessionID4
Var Cid = 27
Var PointCrm = CounterOrderId
If FromCounterMulti = 1 Then
Var PointCrm = PayReference
EndIf
Var GetScore = Seeker.VendingTSID
Var param1 = PayDetail
Var ACC = "0899999999"
AddData Cid ACC param1 PointCrm GetScore
Open "ROOT/taobin_project/xml/page_spiral_failed.xml"
EndIf
If BoxID = 210699 Then
;If Timeout > 10 Then
;Open "ROOT/taobin_project/xml/page_spiral_failed.xml"
;EndIf
If Timeout > 10 Then
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
Open "ROOT/taobin_project/inter/tha/xml/page_smoothie_suggest_and_process.xml"
EndIf
EndIf
If BoxID = 105005 Then
If Timeout > 10 Then
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
Open "ROOT/taobin_project/inter/tha/xml/page_smoothie_suggest_and_process.xml"
;Open "ROOT/taobin_project/xml/page_spiral_failed.xml"
EndIf
EndIf
If Timeout > 120 Then
Open "ROOT/taobin_project/xml/page_back_to_failed.xml"
EndIf
TimerReset
Refresh
;include="ROOT/taobin_project/inc/video.inc"