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

wait

Browse source
This commit is contained in:
wanlop run 2025-05-14 09:49:46 +07:00
commit 85d68329fc
11 changed files with 76 additions and 274 deletions
Download patch file Download diff file Expand all files Collapse all files

10
inter/tha/.special/RoadShow.ev
View file

@ -1,5 +1,5 @@
SAVELOG "RoadShow.ev 173950 172303 EFR02 RoadShowBoxID is 2" SAVELOG "RoadShow.ev 200559 201876 EFR02 RoadShowBoxID is 1"
SAVELOG "4 Apr" SAVELOG "4 Apr"
@ -16,10 +16,10 @@ Var RoadShowBoxID = 0
If SystemDateYearInt = 2025 Then If SystemDateYearInt = 2025 Then
; EFR02 ; EFR02
If BoxID = 173950 Then If BoxID = 200559 Then
Var RoadShowBoxID = 1 Var RoadShowBoxID = 1
EndIf EndIf
If BoxID = 172303 Then If BoxID = 201876 Then
Var RoadShowBoxID = 1 Var RoadShowBoxID = 1
EndIf EndIf
@ -30,10 +30,10 @@ If SystemDateYearInt = 2025 Then
EndIf EndIf
If SystemDateMonthInt = 4 Then If SystemDateMonthInt = 5 Then
If RoadShowBoxID = 1 Then If RoadShowBoxID = 1 Then
If SystemDateDayInt = 4 Then If SystemDateDayInt = 14 Then
Var RoadShow = "true" Var RoadShow = "true"
Var RoadShowMarketCode = "EFR02" Var RoadShowMarketCode = "EFR02"

7
inter/tha/xml/page_help_center.lxml
View file

@ -39,6 +39,8 @@
Var Problem_Process_State[0] = "Enable" Var Problem_Process_State[0] = "Enable"
Var Problem_Process_State[1] = "Enable" Var Problem_Process_State[1] = "Enable"
Var CurrHelpCenter = 1
Var Timeout = 0 Var Timeout = 0
</EventOpen> </EventOpen>
@ -47,9 +49,9 @@
<EventTimeout> <EventTimeout>
DEBUGVAR Timeout DEBUGVAR Timeout
If Timeout > 120 Then If Timeout > 70 Then
SAVELOG "Timeout" SAVELOG "Timeout"
Var CurrHelpCenter = 0
If BaseOnPageBoard = 1 Then If BaseOnPageBoard = 1 Then
Var BaseOnPageBoard = 0 Var BaseOnPageBoard = 0
Var LanguageButtonEnable = "Enable" Var LanguageButtonEnable = "Enable"
@ -120,6 +122,7 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var CurrHelpCenter = 0
If BaseOnPageBoard = 1 Then If BaseOnPageBoard = 1 Then
Var BaseOnPageBoard = 0 Var BaseOnPageBoard = 0
Var LanguageButtonEnable = "Enable" Var LanguageButtonEnable = "Enable"

2
inter/tha/xml/page_help_center_sending.lxml
View file

@ -28,7 +28,7 @@
Var Timeout = Timeout + 1 Var Timeout = Timeout + 1
If Timeout > 300 Then If Timeout > 300 Then
Var CurrHelpCenter = 0
If MachineStage = "remove-cup" Then If MachineStage = "remove-cup" Then
OpenInst 2 "ROOT/taobin_project/xml/page_drinkfail3.xml" OpenInst 2 "ROOT/taobin_project/xml/page_drinkfail3.xml"
Else Else

19
inter/tha/xml/page_instance_empty.lxml
View file

@ -7,29 +7,12 @@
RootLayoutVisible 13 "hide" RootLayoutVisible 13 "hide"
;OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml" ;OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml"
Var CurrHelpCenter = 0
Var Timeout = 0
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
DEBUGVAR Timeout
If Timeout > 66 Then
SAVELOG "Timeout"
TabMenuVisibleInst 99
If Seeker = "next" Then
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
Else
SAVELOG "Back"
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
EndIf
Var Timeout = Timeout + 1
TimerReset
</EventTimeout> </EventTimeout>
</Popup> </Popup>

20
inter/tha/xml/page_smoothie_suggest_and_process.xml
View file

@ -24,20 +24,6 @@
TRY "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/ticket_time_blending.ev" TRY "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/ticket_time_blending.ev"
DEBUGVAR OpenFromPageBoard
If OpenFromPageBoard = 1 Then
Var OpenFromPageBoard = 0
Var langnext1 = "true"
Var langnext2 = "true"
Var langnext3 = "true"
Var langnext4 = "true"
Var langnext5 = "true"
Var langnext6 = "true"
Var langnext7 = "true"
Var langnext8 = "true"
Var langnext9 = "true"
EndIf
Var NextPage = "-" Var NextPage = "-"
@ -163,7 +149,11 @@
If Show_btn_process = "Disable" Then If Show_btn_process = "Disable" Then
; do not thing ; do not thing
Else Else
Var TimeOutSmoothiesProcess = TimeOutSmoothiesProcess - 1 If CurrHelpCenter = 1 Then
; do not thing to pause countdown smoothie process
Else
Var TimeOutSmoothiesProcess = TimeOutSmoothiesProcess - 1
EndIf
EndIf EndIf
EndIf EndIf
If TimeOutSmoothiesProcess = 2 Then If TimeOutSmoothiesProcess = 2 Then

93
inter/tha/xml/page_smoothie_suggest_and_process_2.xml
View file

@ -94,99 +94,6 @@
Open "ROOT/taobin_project/inter/tha/xml/page_smoothie_suggest_and_process_3.xml" Open "ROOT/taobin_project/inter/tha/xml/page_smoothie_suggest_and_process_3.xml"
EndIf EndIf
DEBUGVAR CH9991_Status
DEBUGVAR CH9992_Status
DEBUGVAR CH9993_Status
DEBUGVAR CH9994_Status
DEBUGVAR HaveCup
DEBUGVAR CupOnArm
DEBUGVAR DoorCupPosition
DEBUGVAR CupChecking
DEBUGVAR CupArmMove
DEBUGVAR buttonRemoveCup
DEBUGVAR SmoothieProcessState
DEBUGVAR AnyArmConfuse
DEBUGVAR SensorDoorCupStatus
If CH9992_Status = "READY" Then
If DoorCupPosition = "bottom" Then
If SmoothieProcessState = "idle" Then
Var TextDoorButtonID = 001202
Else
If SmoothieProcessState = "insert" Then
Var TextDoorButtonID = 001203
Else
EndIf
EndIf
Else
If DoorCupPosition = "top" Then
Var TextDoorButtonID = 001204
If SmoothieProcessState = "press" Then
Var SmoothieProcessState = "insert"
EndIf
Else
If SmoothieProcessState = "idle" Then
Else
If SmoothieProcessState = "press" Then
Else
Var TextDoorButtonID = 001205
EndIf
EndIf
EndIf
EndIf
If AnyArmConfuse = 1 Then
If CountDownCertainConfuse > 0 Then
Var CountDownCertainConfuse = CountDownCertainConfuse - 1
If CountDownCertainConfuse = 0 Then
Machine DoorClose
EndIf
EndIf
EndIf
Else
If CH9992_Status = "RUNNING" Then
Var SmoothieProcessState = "blendnow"
EndIf
EndIf
If SmoothieProcessState = "blendnow" Then
Var TextDoorButtonID = 001206
Var SelectDrink = Seeker.selected_a_drink
Var SelectSugarID = ""
Topping "Select" SelectDrink
Var SmoothieProcessState = "blending"
EndIf
If SmoothieProcessState = "blending" Then
Menu "set-name" "Smoothie "
Menu "set-image" Seeker.PictureDrink
Open "ROOT/taobin_project/inter/tha/xml/page_payment_pack_and_send.xml"
EndIf
DEBUGVAR TextDoorButtonID
Refresh Refresh
TimerReset TimerReset
</EventTimeout> </EventTimeout>

90
inter/tha/xml/page_smoothie_suggest_and_process_3.xml
View file

@ -113,23 +113,6 @@
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;SAVELOG SoundPlaying
DEBUGVAR CH9991_Status
DEBUGVAR CH9992_Status
DEBUGVAR CH9993_Status
DEBUGVAR CH9994_Status
DEBUGVAR HaveCup
DEBUGVAR CupOnArm
DEBUGVAR DoorCupPosition
DEBUGVAR CupChecking
DEBUGVAR CupArmMove
DEBUGVAR buttonRemoveCup
DEBUGVAR SmoothieProcessState
DEBUGVAR AnyArmConfuse
DEBUGVAR SensorDoorCupStatus
DEBUGVAR Timeout DEBUGVAR Timeout
@ -138,79 +121,6 @@
Open "ROOT/taobin_project/xml/page_back_to_main.xml" Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf EndIf
If CH9992_Status = "READY" Then
If DoorCupPosition = "bottom" Then
If SmoothieProcessState = "idle" Then
Var TextDoorButtonID = 001202
Else
If SmoothieProcessState = "insert" Then
Var TextDoorButtonID = 001203
Else
EndIf
EndIf
Else
If DoorCupPosition = "top" Then
Var TextDoorButtonID = 001204
If SmoothieProcessState = "press" Then
Var SmoothieProcessState = "insert"
EndIf
Else
If SmoothieProcessState = "idle" Then
Else
If SmoothieProcessState = "press" Then
Else
Var TextDoorButtonID = 001205
EndIf
EndIf
EndIf
EndIf
If AnyArmConfuse = 1 Then
If CountDownCertainConfuse > 0 Then
Var CountDownCertainConfuse = CountDownCertainConfuse - 1
If CountDownCertainConfuse = 0 Then
Machine DoorClose
EndIf
EndIf
EndIf
Else
If CH9992_Status = "RUNNING" Then
Var SmoothieProcessState = "blendnow"
EndIf
EndIf
If SmoothieProcessState = "blendnow" Then
Var TextDoorButtonID = 001206
Var SelectDrink = Seeker.selected_a_drink
Var SelectSugarID = ""
Topping "Select" SelectDrink
Var SmoothieProcessState = "blending"
EndIf
If SmoothieProcessState = "blending" Then
Menu "set-name" "Smoothie "
Menu "set-image" Seeker.PictureDrink
;Open "ROOT/taobin_project/inter/tha/xml/page_payment_pack_and_send.xml"
EndIf
Var Timeout = Timeout + 1 Var Timeout = Timeout + 1
Refresh Refresh

2
inter/tha/xml/topview_helper.lxml
View file

@ -38,8 +38,6 @@
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var CurrHelpCenter = 1
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"

99
xml/page_board.xml
View file

@ -2122,34 +2122,40 @@ PRICE "Reset" "-"
DEBUGVAR CountryName DEBUGVAR CountryName
Var BaseOnPageBoard = 0 Var BaseOnPageBoard = 0
If InternationalEnable = 1 Then If CurrHelpCenter = 1 Then
If CountryName = "Thailand" Then ; do not thing when open the helper
SAVELOG " Thailand Thailand Thailand Thailand Pooon Pooon Pooon Pooon Pooon"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
Else
; show language icon
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RootLayoutVisible 3 "show"
Var OpenFileXML = CountryRootPath + "xml/event/script_common_for_open_promotion_xml.ev"
TRY OpenFileXML
EndIf
Else Else
If BeerTrapEnable = "true" Then Var BaseOnPageBoard = 0
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_cocktail.xml"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
SAVELOG " Thailand Thailand Thailand Thailand Pooon Pooon Pooon Pooon Pooon"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
Else
; show language icon
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RootLayoutVisible 3 "show"
Var OpenFileXML = CountryRootPath + "xml/event/script_common_for_open_promotion_xml.ev"
TRY OpenFileXML
EndIf
Else Else
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev" If BeerTrapEnable = "true" Then
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_cocktail.xml"
Else
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
EndIf
EndIf EndIf
EndIf
Machine DoorClose Machine DoorClose
TopView "show"
OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml"
TopView "show"
OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml"
EndIf
EndIf EndIf
EndIf EndIf
@ -2596,32 +2602,37 @@ PRICE "Reset" "-"
Var OpenFromPageBoard = 1 Var OpenFromPageBoard = 1
If InternationalEnable = 1 Then If CurrHelpCenter = 1 Then
; do not thing when open the helper
If CountryName = "Thailand" Then
SAVELOG " Thailand Thailand Thailand Thailand Pooon Pooon Pooon Pooon Pooon"
TRY "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/event/script_common_for_open_promotion_xml.ev"
Else ; show language icon
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RootLayoutVisible 3 "show"
Var OpenFileXML = CountryRootPath + "xml/event/script_common_for_open_promotion_xml.ev"
TRY OpenFileXML
EndIf
Else Else
Var BaseOnPageBoard = 0
If CocktailShow = "true" Then If InternationalEnable = 1 Then
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_cocktail.xml"
If CountryName = "Thailand" Then
SAVELOG " Thailand Thailand Thailand Thailand Pooon Pooon Pooon Pooon Pooon"
TRY "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/event/script_common_for_open_promotion_xml.ev"
Else ; show language icon
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RootLayoutVisible 3 "show"
Var OpenFileXML = CountryRootPath + "xml/event/script_common_for_open_promotion_xml.ev"
TRY OpenFileXML
EndIf
Else Else
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
If CocktailShow = "true" Then
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_cocktail.xml"
Else
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
EndIf
EndIf EndIf
Machine DoorClose
TopView "show"
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml"
EndIf EndIf
Machine DoorClose
TopView "show"
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml"
</EventClick> </EventClick>
</Button> </Button>

4
xml_main/startup.xml
View file

@ -108,8 +108,8 @@
Var RandomPromotionMyworld = 0 Var RandomPromotionMyworld = 0
Var RandomSalePackage = 0 Var RandomSalePackage = 0
Var XMLPageVersion = "9.89" Var XMLPageVersion = "9.90"
Var XMLPageVersionInt = 989 Var XMLPageVersionInt = 990
Var CurrentMainVideo = 2 Var CurrentMainVideo = 2
</EventOpen> </EventOpen>

4
xml_main/startup_dev.xml
View file

@ -108,8 +108,8 @@
Var RandomPromotionMyworld = 0 Var RandomPromotionMyworld = 0
Var RandomSalePackage = 0 Var RandomSalePackage = 0
Var XMLPageVersion = "10.89" Var XMLPageVersion = "10.90"
Var XMLPageVersionInt = 1089 Var XMLPageVersionInt = 1090
;Oreo ;Oreo
Var OreoGuarantee = 0 Var OreoGuarantee = 0