"Enable" 1080 1920 "0xeae6e1" SoundVolume "ROOT/sounds/Ding-dong.wav"
DEBUGVAR StarwState
DEBUGVAR LidState
;If StarwState = "Press" Then
; Machine Straw
; LED LedDoorLid Blink 255 255 255 255
;EndIf
;If LidState = "Press" Then
; Machine Lid
; LED LedDoorLid Blink 255 255 255 255
;EndIf
; On open
Var LidState = "Enable"
Var StarwState = "Enable"
Var videoEnd = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/complete_en/"
Else
Var DirImage = "ROOT/taobin_project/image/complete/"
EndIf
Var VideoPlayFile = VideoPath
Var VideoPlayFile = VideoPlayFile + VideoFileBegin
Var VideoPlayFile = VideoPlayFile + "24"
Var VideoPlayFile = VideoPlayFile + VideoFileEnd
Var Timeout = 0
Var Timeout2 = 0
StopLongPlay
Var show_eng = "false"
Var sendPayMultiFlag = 0
Var next_pic = ""
Var next_name = ""
Var nextCount = ""
Var next_pic_bg = ""
Var BlinkImg = 0
Var txtDrinkOKState = "Invisible"
If show_eng = "true" Then
If CART_COUNT > 0 Then
If CART_INDEX < CART_COUNT Then
Var next_pic_bg = DirImage + "/Preparing.png"
Var BlinkImg = 1
Var txtDrinkOKState = "Enable"
Var cart_next = CART_INDEX + 1
Var nextCount = "" + cart_next
Var nextCount = nextCount + "/"
Var nextCount = nextCount + CART_COUNT
If cart_next = 2 Then
Var next_pic = "ROOT/taobin_project/image/page_drink/" + CART2_PICTURE
Var next_name = CART2_NAME_ENG
EndIf
If cart_next = 3 Then
Var next_pic = "ROOT/taobin_project/image/page_drink/" + CART3_PICTURE
Var next_name = CART3_NAME_ENG
EndIf
EndIf
EndIf
Else
If CART_COUNT > 0 Then
If CART_INDEX < CART_COUNT Then
Var next_pic_bg = DirImage + "/Preparing.png"
Var BlinkImg = 1
Var txtDrinkOKState = "Enable"
Var cart_next = CART_INDEX + 1
Var nextCount = "" + cart_next
Var nextCount = nextCount + "/"
Var nextCount = nextCount + CART_COUNT
If cart_next = 2 Then
Var next_pic = "ROOT/taobin_project/image/page_drink/" + CART2_PICTURE
Var next_name = CART2_NAME_THAI
EndIf
If cart_next = 3 Then
Var next_pic = "ROOT/taobin_project/image/page_drink/" + CART3_PICTURE
Var next_name = CART3_NAME_THAI
EndIf
EndIf
EndIf
EndIf
Var MultiGo = 1
If CART_COUNT = 0 Then
Var sendPayMultiFlag = 1
Else
If CART_INDEX = CART_COUNT Then
If ChangeAmountSum > 0 Then
Change ChangeAmountSum
Var MultiGo = 0
EndIf
EndIf
EndIf
500
DEBUGVAR MachineStage
DEBUGVAR CupOnArm
DEBUGVAR buttonRemoveCup
DEBUGVAR CART_COUNT
Var Timeout = Timeout + 1
If Timeout > 30 Then
Var MultiGo = 1
EndIf
If BlinkImg = 1 Then
Var next_pic_bg = DirImage + "/Preparing.png"
Var BlinkImg = 2
Else
If BlinkImg = 2 Then
Var next_pic_bg = DirImage + "/Preparing.png"
Var BlinkImg = 1
EndIf
EndIf
If MultiGo = 1 Then
If CART_INDEX = CART_COUNT Then
;Pay Multi
If sendPayMultiFlag = 0 Then
If PayWithQR = 0 Then
Var ServiceType = "coffee-multi"
Else
Var ServiceType = "coffee-multiQR"
EndIf
If TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
If TNumberTaobinMember = "" Then
Else
Var TelephoneNumber = TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = TNumberTaobinCredit
Var PayO2 = CoffeePinNumber
EndIf
Var ServiceCredit = "00-00-00-0000"
Var SuggestID = ""
Var PayDetail="1/S:0/0/"
Var SessionID3 = "" + CART_COUNT
Var SessionID3 = SessionID3 + ":00000"
SAVELOG PayO2
Var VendingCampaign = IntVendingCampaign
Var PayType = ""
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID3 ServiceAmountSum ServiceCharge Donate
Var sendPayMultiFlag = 1
EndIf
EndIf
EndIf
; Do not change
;
If MachineStage = "show-menu" Then
If CART_INDEX < CART_COUNT Then
If HaveCup = "false" Then
Var CART_INDEX = CART_INDEX + 1
Cart "PreparID" CART_INDEX
Open "ROOT/taobin_project/xml/page_thankyouMore.xml"
Else
If CupOnArm = "true" Then
Var buttonRemoveCup = "Enable"
Else
Var buttonRemoveCup = "Invisible"
EndIf
EndIf
Else
If sendPayMultiFlag = 1 Then
Var TNumberTaobinMember = ""
If FailedCount > 0 Then
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
Else
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
EndIf
EndIf
EndIf
If HaveCup = "true" Then
If CupOnArm = "true" Then
Var buttonRemoveCup = "Enable"
Else
Var buttonRemoveCup = "Invisible"
EndIf
EndIf
;
If MachineStage = "remove-cup" Then
If CART_COUNT = 0 Then
Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"
Else
Var buttonRemoveCup = "Enable"
Var Timeout2 = Timeout2 + 1
If Timeout2 > 15 Then
Play "/mnt/sdcard/coffeevending/taobin_project/sound_thai/remove_cup.mp3"
Var Timeout2 = 0
EndIf
EndIf
EndIf
If Timeout = 5 Then
If show_eng = "true" Then
Play "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw.mp3"
Else
Play "/mnt/sdcard/coffeevending/taobin_project/sound_thai/drinkfinish.mp3"
EndIf
EndIf
TimerReset
Refresh
If ChangeStatus = "payout-end" Then
Var MultiGo = 1
EndIf
;
; 0
; 0
; "ROOT/taobin_project/image/ad_medium_2.png"
;
;
; 0
; 547
; Var( DirImage + "/img2.png" )
;
;
; 0
; 1886
; 20
; 1080
; end
; RobotoBlack
; 0x513C2F
; countClick2
; 757 424 next_pic_bg 757 448 20 280 Center
RobotoBlack
0x513C2F nextCount 757 538 20 280 Center
RobotoBlack
0x513C2F next_name 823 600 148 200 next_pic 77 1378 txtDrinkOKState Var( DirImage + "/txtDrinkOK.png" )