pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

Fix text when offline and topsepnd

Browse source
This commit is contained in:
wanlop run 2024-04-29 13:44:59 +07:00
parent f182ca01d7
commit 624728a898
22 changed files with 700 additions and 635 deletions
Download patch file Download diff file Expand all files Collapse all files

258
inter/sgp/xml/page_brewing3.lxml
View file

@ -25,7 +25,7 @@
Var PayType = "newpay"
EndIf
Var DirImageDoing = "ROOT/taobin_project/inter/aus/image/page_doing"
Var DirImageDoing = CountryRootPath + "/image/page_doing"
Var SelectDrink = Seeker.selected_a_drink
Var ExtendData = Seeker.ExtendData
@ -77,18 +77,7 @@
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"
@ -405,6 +394,7 @@
Var VideoPlayFile = DirImageDoing + "/tao_adv1.png"
Var PictureFile = brew_txt1
EndIf
Var CampaignEnable = 0
@ -421,171 +411,23 @@
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://10.0.16.231:30460&#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 ButtonGameCountDown = 0
Var ButtonGameCountDownState = "Invisible"
Var ButtonGameCountDown = 0
Var ButtonGameCountDownState = "Invisible"
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
CashlessReq SUCCESS
</EventOpen>
<EventLanguageOnChange>
@ -670,8 +512,6 @@
Var SessionID2 = SessionID2 + ExtendData
DEBUGVAR SessionID2
DEBUGVAR SessionID2
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"
@ -701,7 +541,6 @@
Var SessionID = ""
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0
Var ActionOKCase = 2
SAVELOG "back_to_main from line > 204."
@ -726,20 +565,6 @@
Var Timeout = Timeout + 1
If Timeout < 2 Then
If Game01Enable = 0 Then
If game_mode_enable = "true" Then
If BREW_CNT > 75 Then
SAVELOG "Button game enable from EventTimeout"
Var Game01Enable = 1
Var ButtonGameCountDownState = "Invisible"
Var ButtonGamePressToPlayState = "Enable"
EndIf
EndIf
EndIf
EndIf
DEBUGVAR MachineState_Result
DEBUGVAR BREW_COUNT_DOWN_FROM_APP
@ -758,12 +583,6 @@
EndIf
Endif
;If Simulation = "true" Then
; If CountDownBrewing = 0 Then
; ;Open "ROOT/taobin_project/xml/page_drinkok.xml"
; EndIf
;EndIf
If SelectMenuBetweenBrewEnable1 = "Enable" Then
If Timeout = 5 Then
@ -773,18 +592,7 @@
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/next_drink.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 + "next_drink.wav"
EndIf
PlayLong PlaySoundLag
EndIf
EndIf
@ -801,14 +609,6 @@
EndIf
EndIf
; run test;
;If CountDownBrewing = 40 Then
; Open "ROOT/taobin_project/xml/page_drinkok.xml"
;EndIf
;If CountDownBrewing = 0 Then
; ;Open "ROOT/taobin_project/xml/page_drinkok.xml"
;EndIf
Var ShowCountDownBrewing = CountDownBrewing
@ -1002,9 +802,6 @@
EndIf
;Var PayDetail="1/F:404/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1"
Var ServiceType = "coffee"
Var ServiceCredit = SelectDrink
Var SuggestID = ""
@ -1014,11 +811,6 @@
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
;If Seeker.CodeChannel = 0 Then
; SAVELOG "back_to_main from line > 357."
; Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
;EndIf
Var waitAckPay = 2
Var Timeout = 5
Var ActionOKCase = 1
@ -1082,9 +874,6 @@
EndIf
EndIf
If MachineState_Result = 1 Then
;Var MachineState_Result = 2
EndIf
If MachineState_Result = 1 Then
DEBUGVAR PaySuccessWithDaemonTask
@ -1289,26 +1078,13 @@
;OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_drinkfail.xml"
;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/test_video_loop.xml"
;Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_list.xml"
EndIf
EndIf
If MachineStage = "close-maintenance" Then
If MachineState_Result = 0 Then
SAVELOG "back_to_main from line > 663."
SAVELOG "back_to_main from line > 1087."
Var MachineState_Result = 2
EndIf
EndIf
@ -1698,14 +1474,8 @@
<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>
;include="ROOT/taobin_project/inc/video.inc"