"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"