taobin_project/inter/mys/xml/page_brewing3.lxml

1056 lines
23 KiB
Text

<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
Var SendNotiPaySuccess = 2
Var GetMoreStrawCount = 3
Var CountUpWhenBREW_CNT = 0
DEBUGVAR TxRef1
SAVELOG "MYS page_brewing3.lxml"
DEBUGVAR MachineStage
Var PictureFileTextDesctionState = "Enable"
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_brewing3Multi.xml"
Else
Var PayReference = ""
Var PayType = "newpay"
EndIf
Var DirImageDoing = "ROOT/taobin_project/inter/mys/image/page_doing"
Var SelectDrink = Seeker.selected_a_drink
Var ExtendData = Seeker.ExtendData
Var ServiceAmount2 = Seeker.ServiceAmount2
DEBUGVAR Seeker
DEBUGVAR Seeker.selected_a_drink
DEBUGVAR Seeker.ServiceAmount2
DEBUGVAR PayAmount
DEBUGVAR Seeker.CreditCard
DEBUGVAR Seeker.CodeNumber
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
; On open move from page_brewing3.xml
Var countClick2 = 0
Var Timeout = 0
Var PrintCoinAmount = 0
WRITE_FILE "/mnt/sdcard/coffeevending/log/drink-success" "--"
If show_eng = "true" Then
Var IMG_CNT = DirImageDoing + "/img2_eng.png"
Play "ROOT/taobin_project/sound_eng/Wait_a_moment.mp3"
Var bnGetMoreStrawFileName = DirImageDoing + "/bn_get_more_straw_en.png"
Var bpGetMoreStrawFileName = DirImageDoing + "/bp_get_more_straw_en.png"
Var bnStrawProblemReport = DirImageDoing + "/bn_send_report_straw_en.png"
Var bpStrawProblemReport = DirImageDoing + "/bp_send_report_straw_en.png"
Var bnLidProblemReport = DirImageDoing + "/bn_send_report_lid_en.png"
Var bpLidProblemReport = DirImageDoing + "/bp_send_report_lid_en.png"
Var bn_get_lid_image = DirImageDoing + "/bn_get_lid_en.png"
Var bp_get_lid_image = DirImageDoing + "/bp_get_lid_en.png"
Var brew_txt2 = "ROOT/taobin_project/video/brewing_txt_adv3_en.png"
Var brew_txt1 = "ROOT/taobin_project/video/brewing_txt_adv1_en.png"
Var XStraw = 274
Else
Var PlaySoundLag = "ROOT/taobin_project/sound_thai/thankyou.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 + "thankyou.wav"
EndIf
Play PlaySoundLag
Var IMG_CNT = DirImageDoing + "/img2.png"
Var bnGetMoreStrawFileName = DirImageDoing + "/bn_get_more_straw.png"
Var bpGetMoreStrawFileName = DirImageDoing + "/bp_get_more_straw.png"
Var bnStrawProblemReport = DirImageDoing + "/bn_send_report_straw.png"
Var bpStrawProblemReport = DirImageDoing + "/bp_send_report_straw.png"
Var bnLidProblemReport = DirImageDoing + "/bn_send_report_lid.png"
Var bpLidProblemReport = DirImageDoing + "/bp_send_report_lid.png"
Var bn_get_lid_image = DirImageDoing + "/bn_get_lid.png"
Var bp_get_lid_image = DirImageDoing + "/bp_get_lid.png"
Var brew_txt2 = "ROOT/taobin_project/video/brewing_txt_adv3.png"
Var brew_txt1 = "ROOT/taobin_project/video/brewing_txt_adv1.png"
Var XStraw = 274
EndIf
Var waitAckPay = 0
Var VendingTSIDTmp = ""
Var VendingTSIDProblem = ""
Var CreditReference = ""
Var PayCredit = 0
;include="ROOT/taobin_project/inc/check_version.inc"
If Seeker.PayWithQR = 1 Then
Var VendingTSIDTmp = Seeker.VendingTSID
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
Else
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
EndIf
If ChangeFlag2 = 1 Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
Var VendingDiscount = 0
Var VendingCampaign = 0
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Else
If Seeker.StoreCreditFlag = 1 Then
Var VendingDiscount = 0
Var VendingCampaign = 0
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
EndIf
EndIf
EndIf
If Seeker.TNumberTaobinCredit = "" Then
If Seeker.TNumberTaobinMember = "" Then
Var TelephoneNumberProblem = ""
Else
Var TelephoneNumberProblem = Seeker.TNumberTaobinMember
EndIf
Else
Var TelephoneNumberProblem = Seeker.TNumberTaobinCredit
EndIf
If TelephoneNumberProblem = "" Then
;Var TelephoneNumberProblem = ""
Var ShowTextNumber = "Enable"
Var Tel_Confirm_State = "Disable"
Else
Var ShowTextNumber = "Invisible"
Var Tel_Confirm_State = "Enable"
EndIf
Var AddData = 0
DEBUGVAR Seeker.TNumberTaobinMember
DEBUGVAR Seeker.PointTaobinStr
If Seeker.TNumberTaobinMember = "" Then
Else
If Seeker.PayWithQR = 1 Then
Var VendingTSID = VendingTSIDTmp
Else
Var VendingTSID = ""
EndIf
Var BmiYear = Seeker.PointTaobinStr
Var PointCrm = ""
If Seeker.FromConsent = 1 Then
Var PointCrm = "pdpa1"
EndIf
Var GetScore = VendingTSID
If Seeker.TaobinErrorNetwork = 0 Then
Var Cid = 11
Var AddData = 1
;AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
Else
Var PointCrm = ""
Var Cid = 14
Var AddData = 1
;AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
EndIf
Var VendingTSID = ""
EndIf
If Seeker.VendingCode = "MKFOO" Then
Var AddData = 0
EndIf
If GetFreeFromError = 1 Then
;Var GetFreeFromError = 0
Var TelephoneNumberProblem = TelephoneNumberGOTFree
EndIf
If LedLidBlink = "true" Then
Var LedLidBlink = "no"
LED LedDoorLid Blink 255 255 255 255
EndIf
Var CreditReference = Seeker.CreditReferenceTmp
Var VendingDiscount = Seeker.VendingDiscount
Var VendingCampaign = Seeker.VendingCampaign
Var TxReference = Seeker.TxRef1
DEBUGVAR TxReference
DEBUGVAR Seeker.VendingCampaign
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping2_en"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping2"
EndIf
DEBUGVAR show_eng
Var next_pic_bn = DirImage + "/bn_add_order.png"
Var next_pic_bp = DirImage + "/bp_add_order.png"
Var text_next_order = DirImage + "/text_next_order.png"
Var bg_strawlid = DirImage2 + "/bg_strawlidSmall.png"
Var Seeker.strawAction = 0
Var Seeker.lidAction = 0
If Seeker.thankLidFlag = 1 Then
Var bg_strawlid = DirImage2 + "/bg_strawSmall.png"
Var LidStateX = "Invisible"
Var Seeker.lidAction = 2
EndIf
DEBUGVAR LastMakeDrinkResult
If LastMakeDrinkResult = "success" Then
Var MachineState_Result = 1
EndIf
If LastMakeDrinkResult = "fail" Then
SAVELOG "LastMakeDrinkResult is 2"
Var MachineState_Result = 2
EndIf
DEBUGVAR VendingCampaign
DEBUGVAR MachineState_Result
If MachineState_Result > 0 Then
Var SelectMenuBetweenBrewEnable1 = "Invisible"
Else
Var SelectMenuBetweenBrewEnable1 = "Enable"
EndIf
If GetFreeFromError = 1 Then
Var SelectMenuBetweenBrewEnable1 = "Invisible"
EndIf
If SelectMenuBetweenBrewEnable1 = "Enable" Then
Var EnableGetMoreStrawFileName = "Enable"
Var SelectMenuBetweenBrewEnable1Blink = "Enable"
Else
Var SelectMenuBetweenBrewEnable1Blink = "Invisible"
Var EnableGetMoreStrawFileName = "Invisible"
EndIf
; Hide
Var bg_strawProblem_ST = "Invisible"
Var StrawProblemStatus = 1
Var StrawStateX = "Invisible"
Var LidStateX = "Invisible"
; Override from config
If StrawGetMoreState = "Invisible" Then
Var bg_strawProblem_ST = "Enable"
Var EnableGetMoreStrawFileName = "Invisible"
EndIf
If RoadShow = "true" Then
Var SelectMenuBetweenBrewEnable1Blink = "Invisible"
EndIf
DEBUGVAR VendingCashlessMyNext
If Seeker.CreditCard = 1 Then
Var SelectMenuBetweenBrewEnable1Blink = "Invisible"
Var SelectMenuBetweenBrewEnable1 = "Invisible"
DEBUGVAR VendingCashlessMyNext
If FeatureReceiveCCardEnablerFromNC = "true" Then
If VendingCashlessMyNext = "" Then
Var VendingCashlessMyNext = "DISABLE"
EndIf
; case-v1
If VendingCashlessMyNext = "DISABLE" Then
Var SelectMenuBetweenBrewEnable1Blink = "Invisible"
Var SelectMenuBetweenBrewEnable1 = "Invisible"
EndIf
; enable-by-v2-finexus
If VendingCashlessMyNext = "ENABLE" Then
Var SelectMenuBetweenBrewEnable1Blink = "Enable"
Var SelectMenuBetweenBrewEnable1 = "Enable"
EndIf
EndIf
EndIf
If NeedUpgrade = "true" Then
Var SelectMenuBetweenBrewEnable1Blink = "Invisible"
Var SelectMenuBetweenBrewEnable1 = "Invisible"
EndIf
If NeedReboot = "true" Then
Var SelectMenuBetweenBrewEnable1Blink = "Invisible"
Var SelectMenuBetweenBrewEnable1 = "Invisible"
EndIf
DEBUGVAR NeedUpgrade
DEBUGVAR NeedReboot
; copy stage
Var bg_lidProblem_ST2 = bg_lidProblem_ST
DEBUGVAR bg_lidProblem_ST2
; zone Language
If LanguageObjectShow = "Enable" Then
Var XStraw = 350
Var SelectMenuBetweenBrewEnable2 = SelectMenuBetweenBrewEnable1
Var SelectMenuBetweenBrewEnable1 = "Invisible"
Var IMG_CNT = DirImageDoing + "/bg_show_time_remaining.png"
Var bg_lidProblem_ST = "Invisible"
Var GetLidButtonState = "Invisible"
Var bg_strawProblem_ST = "Invisible"
var EnableGetMoreStrawFileName = "Invisible"
var EnableGetMoreStrawFileName2 = "Enable"
Var bg_strawProblem_ST2 = "Invisible"
If bg_lidProblem_ST2 = "Invisible" Then
Var GetLidButtonState2 = "Enable"
Else
Var GetLidButtonState2 = "Invisible"
EndIf
EndIf
If NoLangObjectShow = "Enable" Then
Var SelectMenuBetweenBrewEnable2 = "Invisible"
Var bg_lidProblem_ST2 = "Invisible"
Var GetLidButtonState2 = "Invisible"
Var bg_strawProblem_ST2 = "Invisible"
var EnableGetMoreStrawFileName2 = "Invisible"
DEBUGVAR bg_lidProblem_ST
If bg_lidProblem_ST = "Invisible" Then
Var GetLidButtonState = "Enable"
;Var XStraw = 265
EndIf
EndIf
DEBUGVAR LanguageObjectShow
DEBUGVAR NoLangObjectShow
Var CreditCardVoid = 0
If InternationalEnable = 1 Then
Var adver_brewing_en = 0
RootLayoutVisible 3 "hide"
EndIf
If adver_brewing_en = 1 Then
Var adver_brewing_playing = 1
Var adver_brewing_play_index = 2
Var adver_brewing_count_down = 10
Var VideoPlayFile = DirImageDoing + "/tao_adv1.png"
Var PictureFile = brew_txt1
EndIf
Var CampaignEnable = 0
Var GetLidButtonCountDown = 0
; language instance
DEBUGVAR SelectMenuBetweenBrewEnable1
DEBUGVAR SelectMenuBetweenBrewEnable2
Var SelectMenuBetweenBrewEnable1Text = SelectMenuBetweenBrewEnable1
; echo 1 > /mnt/sdcard/game_enable
READ_FILE "/mnt/sdcard/game_enable" game_mode_str
STRCONTAIN "1" game_mode_str game_mode_enable
DEBUGVAR game_mode_enable
If GameEnableFromTrickerEv = 1 Then
Var game_mode_enable = "true"
EndIf
If GameOverrideDisable = 1 Then
Var game_mode_enable = "false"
EndIf
READ_FILE "/mnt/sdcard/game_disable" game_mode_str
STRCONTAIN "1" game_mode_str game_mode_disable
DEBUGVAR game_mode_disable
If game_mode_disable = "true" Then
Var game_mode_enable = "false"
EndIf
DEBUGVAR GameEnableFromTrickerEv
DEBUGVAR GameOverrideDisable
DEBUGVAR Seeker
If game_mode_enable = "true" Then
DEBUGVAR GameInstalled
If GameInstalled = "true" Then
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
If Seeker.TNumberTaobinMember = "" Then
Else
Var TelephoneNumber = Seeker.TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = Seeker.TNumberTaobinCredit
EndIf
StrLen TelephoneNumber TelNumLen
DEBUGVAR TelephoneNumber
DEBUGVAR TelNumLen
If TelNumLen = 10 Then
; reset
WRITE_FILE "/mnt/sdcard/config_taobingame.yaml" ""
;APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: &#34http://10.0.16.233:30487/taobingame&#34\r\n"
APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: &#34http://game.my.taobin.local:26969&#34\r\n"
If TelephoneNumber = "0899999999" Then
; Coupon or customer not input phone number.
Var ACCString !assigned SprintFmt("ACC: &#34&#34\r\n", "")
Else
Var ACCString !assigned SprintFmt("ACC: &#34%s&#34\r\n", TelephoneNumber)
EndIf
DEBUGVAR ACCString
If show_eng = "true" Then
Var LangString = "LANG: &#34EN&#34\r\n"
Else
Var LangString = "LANG: &#34TH&#34\r\n"
EndIf
; reset
WRITE_FILE "/mnt/sdcard/taobingame_acc.yaml" ""
APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" ACCString
APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" LangString
;
Var Game01Enable = 1
Else
; reset
WRITE_FILE "/mnt/sdcard/config_taobingame.yaml" ""
;APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: &#34http://10.0.16.233:30487/taobingame&#34\r\n"
APPEND_FILE "/mnt/sdcard/config_taobingame.yaml" "API_ENDPOINT: &#34http://10.0.16.231:30460&#34\r\n"
Var ACCString !assigned SprintFmt("ACC: &#34&#34\r\n", "")
DEBUGVAR ACCString
If show_eng = "true" Then
Var LangString = "LANG: &#34EN&#34\r\n"
Else
Var LangString = "LANG: &#34TH&#34\r\n"
EndIf
; reset
WRITE_FILE "/mnt/sdcard/taobingame_acc.yaml" ""
APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" ACCString
APPEND_FILE "/mnt/sdcard/taobingame_acc.yaml" LangString
;
Var Game01Enable = 1
EndIf
EndIf
EndIf
DEBUGVAR Game01Enable
DEBUGVAR BREW_CNT
If Game01Enable = 1 Then
If BREW_CNT > 75 Then
Var ButtonGameCountDown = BREW_CNT - 60
If ButtonGameCountDown > 10 Then
Var ButtonGameCountDown = 10
EndIf
Var ButtonGameCountDownState = "PressForever"
Else
Var Game01Enable = 0
Var ButtonGameCountDownState = "Invisible"
Var ButtonGamePressToPlayState = "Invisible"
Var ButtonGameCountDown = 0
EndIf
Else
Var ButtonGameCountDown = 0
Var ButtonGameCountDownState = "Invisible"
EndIf
DEBUGVAR ButtonGameCountDown
Var ButtonGamePressToPlayState = "Invisible"
; BREW_CNT > 15 ( pre-time ) + 60 ( Game Time ) Game01Enable
; BREW_CNT > 15 ( pre-time ) + 50 ( Game Time ) + 10 (Debound Time) Game01Enable
If Game01Enable = 1 Then
If ButtonGameCountDownState = "Enable" Then
If BREW_CNT < 75 Then
If Game01Enable = 1 Then
SAVELOG "Game01Enable set zero event open 2"
EndIf
Var Game01Enable = 0
Var ButtonGameCountDownState = "Invisible"
Var ButtonGamePressToPlayState = "Invisible"
EndIf
EndIf
If BREW_CNT > 70 Then
Else
If Game01Enable = 1 Then
SAVELOG "Game01Enable set zero event open 1"
EndIf
Var Game01Enable = 0
Var ButtonGamePressToPlayState = "Invisible"
EndIf
EndIf
Var AppRunFlagState = ""
Var HasResumePreventFlag = "false"
DEBUGVAR SelectMenuBetweenBrewEnable1Blink
DEBUGVAR SelectMenuBetweenBrewEnable1
DEBUGVAR SelectMenuBetweenBrewEnable2
</EventOpen>
<EventLanguageOnChange>
Var XPosiShowCountDownBrew = 768
Refresh
</EventLanguageOnChange>
;include="ROOT/taobin_project/inter/mys/xml/page_brewing3_event.lxml"
<Image>
<X> 60 </X>
<Y> 1290 </Y>
<State> PictureFileTextDesctionState </State>
<Filename> PictureFile</Filename>
</Image>
<Video>
<X> 0 </X>
<Y> 380 </Y>
<Refresh> "Reload" </Refresh>
<Loop> "true" </Loop>
<Filename> VideoPlayFile </Filename>
</Video>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
<Image>
<X> 0 </X>
<Y> 1655 </Y>
<State> SelectMenuBetweenBrewEnable1Text </State>
<Filename> text_next_order </Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 1655 </Y>
<Width> 1080 </Width>
<State> SelectMenuBetweenBrewEnable2 </State>
<Language>
<ID> 000408 </ID>
</Language>
</Text>
<Image>
<X> 835 </X>
<Y> 1735 </Y>
<State>SelectMenuBetweenBrewEnable1Blink</State>
<Filename> "ROOT/taobin_project/image/page_payment/arrow_1.png" </Filename>
<Image>
; zone show time remaining
<Image>
<X> 751 </X>
<Y> 413 </Y>
<Filename> IMG_CNT </Filename>
</Image>
;
<Text>
<X> XPosiShowCountDownBrew </X>
<Y> 470 </Y>
<Align> End </Align>
<Width> 153 </Width>
<Size> 88 </Size>
<Font> RobotoBold </Font>
<Color> 0x513C2F </Color>
<Value> ShowCountDownBrewing </Value>
</Text>
<Text>
<X> 816 </X>
<Y> 429 </Y>
<State> LanguageObjectShow </State>
<Language>
<ID> 000405 </ID>
</Language>
</Text>
<Text>
<X> 941 </X>
<Y> 518 </Y>
<State> LanguageObjectShow </State>
<Language>
<ID> 000406 </ID>
</Language>
</Text>
<EventUnitTest1>
Var BREW_COUNT_DOWN_FROM_APP = "off"
Var CountDownBrewing = 121
</EventUnitTest1>
<EventUnitTest2>
Var BREW_COUNT_DOWN_FROM_APP = "off"
Var CountDownBrewing = 2
</EventUnitTest2>
;
;
;
;
;
;
; Next Order
;
<Button>
<X> 792 </X>
<Y> 1787 </Y>
<State>SelectMenuBetweenBrewEnable1</State>
<Filename> next_pic_bn </Filename>
<FilenamePress> next_pic_bp </FilenamePress>
<EventClick>
If MachineState_Result = 0 Then
SAVELOG "User click next button"
Var Seeker = "next"
Var MultiPayEnable = "false"
CoinPause
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
</EventClick>
</Button>
<Button>
<X> 733 </X>
<Y> 1787 </Y>
<State>SelectMenuBetweenBrewEnable2</State>
<Filename> Var( DirImageDoing + "/bn_next_order.png" ) </Filename>
<FilenamePress> Var( DirImageDoing + "/bp_next_order.png" )"/bp_next_order.png" </FilenamePress>
<EventClick>
If MachineState_Result = 0 Then
SAVELOG "User click next button"
Var Seeker = "next"
Var MultiPayEnable = "false"
CoinPause
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
</EventClick>
<Language>
<X> 0 </X>
<Y> 20 </Y>
<Width> 297 </Width>
<Height> 96 </Height>
<ID> 000407 </ID>
</Language>
</Button>
;
;
;
;
;
;
; Button Straw, More request and report.
;
<Button>
<X> XStraw </X>
<Y> 1787 </Y>
<State> EnableGetMoreStrawFileName </State>
<Filename> bnGetMoreStrawFileName </Filename>
<FilenamePress> bpGetMoreStrawFileName </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var EnableGetMoreStrawFileNameCountDown = 5
Var EnableGetMoreStrawFileName = "PressForever"
Var GetMoreStrawCount = GetMoreStrawCount - 1
DEBUGVAR GetMoreStrawCount
If GetMoreStrawCount > 0 Then
Machine Straw
EndIf
</EventClick>
</Button>
<Button>
<X> XStraw </X>
<Y> 1787 </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>
<Button>
<X> 526 </X>
<Y> 1787 </Y>
<State> ButtonGameCountDownState </State>
<Filename> Var( DirImageDoing + "/bn_game_cnt_down.png") </Filename>
<FilenamePress> Var( DirImageDoing + "/bn_game_cnt_down.png") </FilenamePress>
<EventClick>
</EventClick>
<Text>
<X> 0 </X>
<Y> 0 </Y>
<Size> 64 </Size>
<Align> Center </Align>
<Width> 240 </Width>
<Font> KanitBoldTTF </Font>
<Color> 0xFFFFFF </Color>
<State> ButtonGameCountDownState </State>
<Value> ButtonGameCountDown </Value>
</Text>
</Button>
<GIF>
<X> 526 </X>
<Y> 1680 </Y>
<Width> 241 </Width>
<Height> 204 </Height>
<State> ButtonGamePressToPlayState </State>
<Filename> "ROOT/taobin_project/app/game/TAMATIAN-01_en.gif" </Filename>
</GIF>
<Image>
<X> 526 </X>
<Y> 1680 </Y>
<Width> 241 </Width>
<Height> 204 </Height>
<State> ButtonGamePressToPlayState </State>
<EventClick>
DEBUGVAR Game01Enable
SAVELOG "Press play game"
Var Game01Enable = 0
Var ButtonGamePressToPlayState = "Invisible"
RunApp "com.NDF.taobin"
</EventClick>
</Image>
;
;
;
;
;
;
; Lid button, Get one and report
;
<Button>
<X> 14 </X>
<Y> 1787 </Y>
<State>bg_lidProblem_ST</State>
<Filename> bnLidProblemReport </Filename>
<FilenamePress> bpLidProblemReport </FilenamePress>
<EventClick>
Var lidStr = "แจ้งปัญหาไม่ได้รับฝา"
__CMD "lid-alert-disable" 0 lidStr "-"
__CMD "send-error-code" 1343 "-" "-"
Var bg_lidProblem_ST = "Invisible"
Refresh
</EventClick>
</Button>
<Button>
<X> 14 </X>
<Y> 1787 </Y>
<State>GetLidButtonState</State>
<Mode> "No" </Mode>
<Filename> bn_get_lid_image </Filename>
<FilenamePress> bp_get_lid_image </FilenamePress>
<EventClick>
If GetLidButtonState = "Enable" Then
Machine Lid
Var GetLidButtonCountDown = 12
EndIf
Var GetLidButtonState = "Press"
Refresh
</EventClick>
</Button>
;====================================================================
<Button>
<X> XStraw </X>
<Y> 1787 </Y>
<State> EnableGetMoreStrawFileName2 </State>
<Filename> Var( DirImageDoing + "/bn_get_more_straw.png" ) </Filename>
<FilenamePress> Var( DirImageDoing + "/bp_get_more_straw.png" ) </FilenamePress>
<Mode> "No" </Mode>
<EventClick>
Var EnableGetMoreStrawFileNameCountDown = 5
Var EnableGetMoreStrawFileName2 = "PressForever"
Var GetMoreStrawCount = GetMoreStrawCount - 1
DEBUGVAR GetMoreStrawCount
If GetMoreStrawCount > 0 Then
Machine Straw
Else
Var EnableGetMoreStrawFileName2 = "Invisible"
EndIf
</EventClick>
<Language>
<X> 50 </X>
<Y> 20 </Y>
<Width> 331 </Width>
<Height> 96 </Height>
<ID> 000402 </ID>
</Language>
</Button>
<Button>
<X> XStraw </X>
<Y> 1787 </Y>
<Height> 96 </Height>
<State>bg_strawProblem_ST2</State>
<Filename> Var( DirImageDoing + "/bn_send_report.png" ) </Filename>
<FilenamePress> Var( DirImageDoing + "/bn_send_report.png" ) </FilenamePress>
<EventClick>
Var strawStr = "แจ้งปัญหาไม่ได้รับหลอด"
__CMD "straw-alert-disable" 0 strawStr "-"
__CMD "send-error-code" 1231 "-" "-"
Var bg_strawProblem_ST2 = "Invisible"
Refresh
</EventClick>
<Language>
<X> 0 </X>
<Y> 12 </Y>
<Width> 331 </Width>
<Height> 96 </Height>
<ID> 000401 </ID>
</Language>
</Button>
;-------------------------
<Button>
<X> 14 </X>
<Y> 1787 </Y>
<Height> 96 </Height>
<State>bg_lidProblem_ST2</State>
<Filename> Var( DirImageDoing + "/bn_send_report.png" ) </Filename>
<FilenamePress> Var( DirImageDoing + "/bn_send_report.png" ) </FilenamePress>
<EventClick>
Var lidStr = "แจ้งปัญหาไม่ได้รับฝา"
__CMD "lid-alert-disable" 0 lidStr "-"
__CMD "send-error-code" 1343 "-" "-"
Var bg_lidProblem_ST2 = "Invisible"
Refresh
</EventClick>
<Language>
<X> 0 </X>
<Y> 12 </Y>
<Width> 331 </Width>
<Height> 96 </Height>
<ID> 000400 </ID>
</Language>
</Button>
<Button>
<X> 14 </X>
<Y> 1787 </Y>
<State>GetLidButtonState2</State>
<Mode> "No" </Mode>
<Filename> Var( DirImageDoing + "/bn_get_lid.png" ) </Filename>
<FilenamePress> Var( DirImageDoing + "/bp_get_lid.png" ) </FilenamePress>
<EventClick>
If GetLidButtonState2 = "Enable" Then
Machine Lid
Var GetLidButtonCountDown = 12
EndIf
Var GetLidButtonState2 = "Press"
Refresh
</EventClick>
<Language>
<X> 40 </X>
<Y> 20 </Y>
<Width> 232 </Width>
<Height> 96 </Height>
<ID> 000403 </ID>
</Language>
</Button>
<EventUnitTest3>
; test drinkfail with phone number
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
</EventUnitTest3>
<EventUnitTest4>
; test drinkfail with phone number
Var TelephoneNumberProblem = "1234567890"
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
</EventUnitTest4>
<EventUnitTest5>
DEBUGVAR "TestVoidCredit"
;TestSwitchApp "com.finexuscards.yippiepos.VOID" "true" "page_brewing3.lxml::EventUnitTest5"
;com.forthvending.newui
;TestSwitchApp "com.forthvending.newui" "true" "page_brewing3.lxml::EventUnitTest5"
Open "ROOT/taobin_project/inter/mys/xml/page_void_credit_card.lxml"
</EventUnitTest5>
</Popup>