taobin_project/xml/page_drinkok.xml
2024-04-30 18:16:58 +07:00

816 lines
16 KiB
XML

<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<Sound> "ROOT/sounds/Ding-dong.wav" </Sound>
<EventOpen>
DEBUGVAR StarwState
DEBUGVAR LidState
DEBUGVAR Seeker.PictureDrink
DEBUGVAR Seeker.showname
WRITE_FILE "/mnt/sdcard/coffeevending/log/drink-success" "0"
Var buttonRemoveCup = "Invisible"
Var TextBottomShow = "Enable"
If show_eng = "true" Then
Var DirImage2 = "ROOT/taobin_project/image/topping2_en"
Else
Var DirImage2 = "ROOT/taobin_project/image/topping2"
EndIf
Var bg_strawlid_ST = "Enable"
Var bg_strawProblem_ST = "Invisible"
;Var bg_strawProblem_Y = 1470
Var bg_strawProblem = DirImage2 + "/bg_strawProblem.png"
Var straw_problem_flag = 0
If Seeker.strawAction = 1 Then
Machine Straw
;Var bg_strawlid = DirImage2 + "/bg_strawProblem.png"
Var bg_strawProblem_ST = "Enable"
If Seeker.lidAction = 0 Then
Else
;Var bg_strawProblem_Y = 1680
Var bg_strawlid_ST = "Invisible"
Var LidStateX = "Invisible"
Var StrawStateX = "Invisible"
EndIf
EndIf
If Seeker.lidAction = 1 Then
Machine Lid
EndIf
Var ExtendData = Seeker.ExtendData
; 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
If LanguageShow = "UAE_DUBAI" Then
Var text_bottom = CountryRootPath + "/image/complete_en/text_bottom.png"
Else
Var text_bottom = DirImage + "text_bottom.png"
EndIf
DEBUGVAR text_bottom
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
Var bnStrawProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_straw_en.png"
Var bpStrawProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_straw_en.png"
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
Var bnStrawProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_straw.png"
Var bpStrawProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_straw.png"
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
Var bg_strawlid_ST = "Invisible"
Var bg_strawProblem_ST = "Invisible"
Var StrawStateX = "Invisible"
Var LidStateX = "Invisible"
LED LedDoorCup 1 255 255 255 255
Var DelayButton = 0
DEBUGVAR GetMoreStrawCount
If GetMoreStrawCount <= 0 Then
If StrawProblemStatus = 1 Then
Var bg_strawProblem_ST = "Enable"
EndIf
EndIf
Var SlientRefreshEnable = 1
Var TimeDelayDefault = 1200
</EventOpen>
<Timeout> 500 </Timeout>
<EventTimeout>
DEBUGVAR LastMakeDrinkResult
DEBUGVAR MachineStage
DEBUGVAR CupOnArm
DEBUGVAR buttonRemoveCup
DEBUGVAR CART_COUNT
DEBUGVAR HaveCup
DEBUGVAR CHECKCUP
DEBUGVAR CupChecking
DEBUGVAR MaybeHaveCup
DEBUGVAR NextOrder
DEBUGVAR DoorCupPosition
Var Timeout = Timeout + 1
If BrewTimeoutExtend = 1 Then
DEBUGVAR BrewTimeoutExtend
EndIf
; 420 sec
If Timeout > 840 Then
Var CountForRetryStuck = 1
Open "ROOT/taobin_project/xml/page_drink_stuck.xml"
EndIf
; obsolete
If Timeout > TimeDelayDefault Then
SAVELOG "Longer Time out"
DEBUGVAR TimeDelayDefault
If NextOrder = "true" Then
Var NextOrder = "false"
TransferVar "next" "curr"
Var Seeker = "curr"
SAVELOG "Make next order by take-cup with close-maintenance"
Var error_code_stop_now = 1221
If DoorCupPosition = "bottom" Then
Else
Var error_code_stop_now = 1296
__CMD "error-code-1296" 0 "-" "-"
EndIf
Open "ROOT/taobin_project/xml/page_cannotConti.xml"
Else
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
EndIf
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
; Do not change
;
If MachineStage = "show-menu" Then
If CART_INDEX < CART_COUNT Then
If HaveCup = "false" Then
If CupChecking = "false" Then
Var CART_INDEX = CART_INDEX + 1
Cart "PreparID" CART_INDEX
Cart "MakeID" CART_INDEX
Open "ROOT/taobin_project/xml/page_thankyouMore.xml"
EndIf
Else
If DoorCupPosition = "bottom" Then
If HaveCup = "true" Then
If MaybeHaveCup = "true" Then
Else
If CupChecking = "true" Then
Else
Var buttonRemoveCup = "Enable"
Var txtDrinkOKState = "Enable"
EndIf
EndIf
EndIf
If CupOnArm = "true" Then
If MaybeHaveCup = "true" Then
Else
If CupChecking = "true" Then
Else
Var buttonRemoveCup = "Enable"
Var txtDrinkOKState = "Enable"
EndIf
EndIf
EndIf
Else
Var buttonRemoveCup = "Invisible"
EndIf
EndIf
Else
If sendPayMultiFlag = 1 Then
If DoorCupPosition = "bottom" Then
If HaveCup = "true" Then
If MaybeHaveCup = "true" Then
Else
If CupChecking = "true" Then
Else
Var buttonRemoveCup = "Enable"
Var txtDrinkOKState = "Enable"
EndIf
EndIf
EndIf
If CupOnArm = "true" Then
If MaybeHaveCup = "true" Then
Else
If CupChecking = "true" Then
Else
Var buttonRemoveCup = "Enable"
Var txtDrinkOKState = "Enable"
EndIf
EndIf
EndIf
Else
Var buttonRemoveCup = "Invisible"
EndIf
Var Seeker.TNumberTaobinMember = ""
If FailedCount > 0 Then
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
Else
If NextOrder = "true" Then
; Fast-forward to page_cannotConti
If RejectOrder = "true" Then
; BEGIN
Var NextOrder = "false"
TransferVar "next" "curr"
Var Seeker = "curr"
SAVELOG "Make next order by RejectOrder"
Open "ROOT/taobin_project/xml/page_cannotConti.xml"
; END
EndIf
; next order set. Havecup and checkup value must false. Certain cup not on any arm.
If PaySuccessWithDaemonTask = 1 Then
Var NextOrder = "false"
SAVELOG "Make next order by pass"
Open "ROOT/taobin_project/xml/page_thankyouConti.xml"
Else
If HaveCup = "false" Then
If MaybeHaveCup = "true" Then
Else
If CupChecking = "true" Then
Else
If CupOnArm = "false" Then
If DoorCupPosition = "bottom" Then
; BEGIN
Var NextOrder = "false"
TransferVar "next" "curr"
Var Seeker = "curr"
SAVELOG "Make next order by take-cup"
Open "ROOT/taobin_project/xml/page_thankyouConti.xml"
; END
Else
Machine DoorClose
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
Else
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
EndIf
EndIf
EndIf
EndIf
;
If MachineStage = "remove-cup" Then
If CART_COUNT = 0 Then
If NextOrder = "false" Then
Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"
Else
Var buttonRemoveCup = "Enable"
Var txtDrinkOKState = "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
Else
Var buttonRemoveCup = "Enable"
Var txtDrinkOKState = "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
Var PlaySoundStraw = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw.mp3"
If CountryName = "Australia" Then
Var PlaySoundStraw = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Straw_without_change.m4a"
EndIf
Play PlaySoundStraw
Else
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/drinkfinish.mp3"
; Play Sound #zone
If SoundBackToSchoolEnable = 1 Then
If SoundBackToSchoolType = 1 Then
Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/boy/"
EndIf
If SoundBackToSchoolType = 2 Then
Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/girl/"
EndIf
Var PlaySoundLag = RootPathSoundBackToSchool + "drinkfinish.wav"
EndIf
Play PlaySoundLag
EndIf
EndIf
If MachineStage = "close-maintenance" Then
If stop_now = "true" Then
If NextOrder = "true" Then
Var NextOrder = "false"
TransferVar "next" "curr"
Var Seeker = "curr"
SAVELOG "Make next order by take-cup with close-maintenance"
Open "ROOT/taobin_project/xml/page_cannotConti.xml"
Else
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
EndIf
EndIf
If txtDrinkOKState = "Enable" Then
Var TextBottomShow = "Invisible"
Else
Var TextBottomShow = "Enable"
EndIf
TimerReset
Refresh
</EventTimeout>
<EventChangeStatus>
If ChangeStatus = "payout-end" Then
Var MultiGo = 1
EndIf
</EventChangeStatus>
;<Image>
;<X> 0 </X>
;<Y> 0 </Y>
;<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
;</Image>
;include="ROOT/taobin_project/inc/video.inc"
<Video>
<X> 0 </X>
<Y> 380 </Y>
<Refresh> "Reload" </Refresh>
<Loop> "true" </Loop>
<Filename> VideoPlayFile </Filename>
</Video>
<Image>
<X> 757 </X>
<Y> 424 </Y>
<Filename> next_pic_bg </Filename>
</Image>
<Image>
<X> 125 </X>
<Y> 1700 </Y>
<Height> 300 </Height>
<Width> 320 </Width>
<Filename> Seeker.PictureDrink </Filename>
</Image>
<Text>
<X> 300 </X>
<Y> 1750 </Y>
<Width> 1080 </Width>
<Align> Center </Align>
<Font> KanitLightTTF </Font>
<Size> 48 </Size>
<Color> 0x513C2F </Color>
<Value>
eval(
STRCONTAIN "size" Seeker.showname SizeFromSheet
If SizeFromSheet = "true" Then
SPLIT Seeker.showname "###" 1 PureName
Var return = PureName
Else
Var return = Seeker.showname
EndIf
)
</Value>
</Text>
<Image>
<X> 0 </X>
<Y> 1418 </Y>
<State> TextBottomShow </State>
<Filename> text_bottom </Filename>
</Image>
<Text>
<X> 757 </X>
<Y> 448 </Y>
<Size> 20 </Size>
<Width> 280</Width>
<Align> Center </Align>
<Font> KanitLightTTF </Font>
<Color> 0x513C2F </Color>
<Value> nextCount </Value>
</Text>
<Text>
<X> 757 </X>
<Y> 538 </Y>
<Size> 20 </Size>
<Width> 280</Width>
<Align> Center </Align>
<Font> KanitLightTTF </Font>
<Color> 0x513C2F </Color>
<Value> next_name </Value>
</Text>
<Image>
<X> 823 </X>
<Y> 600 </Y>
<Width> 148 </Width>
<Height> 200 </Height>
<Filename> next_pic </Filename>
</Image>
<Image>
<X> 77 </X>
<Y> 1378 </Y>
<State> txtDrinkOKState </State>
<Filename> Var( DirImage + "/txtDrinkOK.png" ) </Filename>
</Image>
<Button>
<X> 160 </X>
<Y> 1673 </Y>
<State> buttonRemoveCup </State>
;<Color> "0x00BDFF" </Color>
<Interval> 500 </Interval>
<Filename> Var( DirImage + "/bn_open_door.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_open_door.png" ) </FilenamePress>
<EventClick>
;Var buttonRemoveCup = "Invisible"
Machine RemoveCup
Machine DoorLidOpen
Refresh
</EventClick>
</Button>
;500
;1180
<Button>
<X> 10 </X>
<Y> 1680 </Y>
<State>bg_strawlid_ST</State>
<Filename> bg_strawlid </Filename>
<EventClick>
</EventClick>
</Button>
<Button>
<X> 699 </X>
<Y> 1788 </Y>
<State>bg_strawProblem_ST</State>
<Filename> bnStrawProblemReport </Filename>
<FilenamePress> bpStrawProblemReport </FilenamePress>
<EventClick>
Var strawStr = "แจ้งปัญหาไม่ได้รับหลอด"
__CMD "straw-alert-disable" 0 strawStr "-"
__CMD "send-error-code" 1231 "-" "-"
Var bg_strawProblem_ST = "Invisible"
Refresh
</EventClick>
</Button>
; straw left
<Button>
<X> 50 </X>
<Y> 1752 </Y>
<State> StrawStateX </State>
<Mode> "No" </Mode>
<Filename> "ROOT/taobin_project/image/topping2/bn_straw.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/bp_straw.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/topping2/bd_straw.png" </FilenameDisable>
<EventClick>
SAVELOG "Click straw cb"
If StrawStateX = "Press" Then
;Var StrawStateX = "Enable"
Else
Var StrawStateX = "Press"
If Seeker.strawAction = 0 Then
Var Seeker.strawAction = 1
Machine Straw
Var bg_strawProblem_ST = "Enable"
;Var bg_strawlid_ST = "Invisible"
;Var LidStateX = "Invisible"
;Var StrawStateX = "Invisible"
EndIf
EndIf
Refresh
</EventClick>
</Button>
<Button>
<X> 377 </X>
<Y> 1759 </Y>
<State> StrawStateX </State>
<Mode> "No" </Mode>
<Filename> "ROOT/taobin_project/image/topping2/cb_notcheck.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/cb_checked.png" </FilenamePress>
<FilenameDisable> Var( DirImage + "/cb_checkdis.png" ) </FilenameDisable>
<EventClick>
SAVELOG "Click straw cb"
If StrawStateX = "Press" Then
;Var StrawStateX = "Enable"
Else
Var StrawStateX = "Press"
If Seeker.strawAction = 0 Then
Var Seeker.strawAction = 1
Machine Straw
Var bg_strawProblem_ST = "Enable"
;Var bg_strawlid_ST = "Invisible"
;Var LidStateX = "Invisible"
;Var StrawStateX = "Invisible"
EndIf
EndIf
DEBUGVAR "PICHET"
Refresh
</EventClick>
</Button>
; LID left
<Button>
<X> 50 </X>
<Y> 1828 </Y>
<State> LidStateX </State>
<Mode> "No" </Mode>
<Filename> "ROOT/taobin_project/image/topping2/bn_lid.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/bp_lid.png" </FilenamePress>
<FilenameDisable> Var( DirImage + "/bd_lid.png" ) </FilenameDisable>
<EventClick>
If Seeker.thankLidFlag = 0 Then
SAVELOG "Click LID pic"
If LidStateX = "Press" Then
;Var LidStateX = "Enable"
Else
Var LidStateX = "Press"
If Seeker.lidAction = 0 Then
Var Seeker.lidAction = 1
Machine Lid
Var straw_problem_ST = "Enable"
EndIf
EndIf
DEBUGVAR SugarState1
Refresh
EndIf
</EventClick>
</Button>
<Button>
<X> 377 </X>
<Y> 1835 </Y>
<State> LidStateX </State>
<Mode> "No" </Mode>
<Filename> "ROOT/taobin_project/image/topping2/cb_notcheck.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/cb_checked.png" </FilenamePress>
<FilenameDisable> Var( DirImage + "/cb_checkdis.png" ) </FilenameDisable>
<EventClick>
If Seeker.thankLidFlag = 0 Then
SAVELOG "Click LID cb"
If LidStateX = "Press" Then
;Var LidStateX = "Enable"
Else
Var LidStateX = "Press"
If Seeker.lidAction = 0 Then
Var Seeker.lidAction = 1
Machine Lid
EndIf
EndIf
Refresh
EndIf
</EventClick>
</Button>
<EventUnitTest1>
Var MachineStage = "show-menu"
</EventUnitTest1>
</Popup>