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

Merged + MYS: update new promotion Melonzy

Browse source
This commit is contained in:
Pakin 2025-02-11 14:05:32 +07:00
parent 124a46b3d5
commit 7e0076614a
31 changed files with 30835 additions and 15687 deletions
Download patch file Download diff file Expand all files Collapse all files

16
inc/video.inc
View file

@ -107,8 +107,8 @@
If ProReducedPriceEnable = 1 Then If ProReducedPriceEnable = 1 Then
Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_23.mp4" Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_23.mp4"
EndIf EndIf
If IgnoreProfileFromRunEV = 1 Then If ProMelonEnable = 1 Then
Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_24.mp4" Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_26.mp4"
EndIf EndIf
If UseSlideShowVideo = 1 Then If UseSlideShowVideo = 1 Then
Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_22.mp4" Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_22.mp4"
@ -205,8 +205,8 @@
If ProReducedPriceEnable = 1 Then If ProReducedPriceEnable = 1 Then
Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_23.mp4" Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_23.mp4"
EndIf EndIf
If IgnoreProfileFromRunEV = 1 Then If ProMelonEnable = 1 Then
Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_24.mp4" Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_26.mp4"
EndIf EndIf
If UseSlideShowVideo = 1 Then If UseSlideShowVideo = 1 Then
Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_22.mp4" Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_22.mp4"
@ -311,8 +311,8 @@
If ProReducedPriceEnable = 1 Then If ProReducedPriceEnable = 1 Then
Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_23.mp4" Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_23.mp4"
EndIf EndIf
If IgnoreProfileFromRunEV = 1 Then If ProMelonEnable = 1 Then
Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_24.mp4" Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_26.mp4"
EndIf EndIf
If UseSlideShowVideo = 1 Then If UseSlideShowVideo = 1 Then
Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_22.mp4" Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_22.mp4"
@ -374,6 +374,10 @@
Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_24.mp4" Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_24.mp4"
EndIf EndIf
If ProMelonEnable = 1 Then
Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_26.mp4"
EndIf
If UseSlideShowVideo = 1 Then If UseSlideShowVideo = 1 Then
Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_22.mp4" Var DisplayAds = "/mnt/sdcard/coffeevending/taobin_project/inter/mys/adv/taobin_adv_menu_22.mp4"
EndIf EndIf

BIN
inter/mys/adv/taobin_adv_menu_26.mp4 Normal file
View file

Binary file not shown.

12
inter/mys/image/event/image_template1
View file

@ -1,6 +1,6 @@
normal_eng=ROOT/taobin_project/inter/mys/image/event/pro_yuzu_250/pro_yuzu_250.png normal_eng=ROOT/taobin_project/inter/mys/image/event/pro_melonzy/pro_melonzy.png
normal_thai=ROOT/taobin_project/inter/mys/image/event/pro_yuzu_250/pro_yuzu_250.png normal_thai=ROOT/taobin_project/inter/mys/image/event/pro_melonzy/pro_melonzy.png
press_eng=ROOT/taobin_project/inter/mys/image/event/pro_yuzu_250/pro_yuzu_250.png press_eng=ROOT/taobin_project/inter/mys/image/event/pro_melonzy/pro_melonzy.png
press_thai=ROOT/taobin_project/inter/mys/image/event/pro_yuzu_250/pro_yuzu_250.png press_thai=ROOT/taobin_project/inter/mys/image/event/pro_melonzy/pro_melonzy.png
disable_eng=ROOT/taobin_project/inter/mys/image/event/pro_yuzu_250/pro_yuzu_250.png disable_eng=ROOT/taobin_project/inter/mys/image/event/pro_melonzy/pro_melonzy.png
disable_thai=ROOT/taobin_project/inter/mys/image/event/pro_yuzu_250/pro_yuzu_250.png disable_thai=ROOT/taobin_project/inter/mys/image/event/pro_melonzy/pro_melonzy.png

BIN
inter/mys/image/event/pro_melonzy/pro_melonzy.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 455 KiB

6
inter/mys/menu/lang.tsv
View file

@ -1036,7 +1036,7 @@ TextID Note English Thai China Japan Malaysia
1300003 Beans module ชุดเมล็ดกาแฟ 1300003 Beans module ชุดเมล็ดกาแฟ
1300004 Bean tray ถาดใส่เมล็ดกาแฟ 1300004 Bean tray ถาดใส่เมล็ดกาแฟ
1300005 Switch tray : สวิตซ์ถาด : 1300005 Switch tray : สวิตซ์ถาด :
1300006 Check tray shutter ตรวจสอบชัตเตอร์ถาด 1300006 Check tray shutter ตรวจสอบชัตเตอร์ของถาด
1300007 Pay beans จ่ายถั่ว 1300007 Pay beans จ่ายถั่ว
1300008 1. Select beans 1. เลือกเมล็ดกาแฟ 1300008 1. Select beans 1. เลือกเมล็ดกาแฟ
1300009 2. Select direction 2. เลือกทิศทาง 1300009 2. Select direction 2. เลือกทิศทาง
@ -1049,7 +1049,7 @@ TextID Note English Thai China Japan Malaysia
1300016 Brew time:sec เวลาชง: วินาที 1300016 Brew time:sec เวลาชง: วินาที
1300017 Test grind sizes ทดสอบขนาดบด 1300017 Test grind sizes ทดสอบขนาดบด
1300018 Coffee module type : ประเภทชุดกาแฟ : 1300018 Coffee module type : ประเภทชุดกาแฟ :
1300019 1. Select grind sizes 1. เลือกขนาดการบด 1300019 1. Select grind sizes 1. เลือกขนาดบด
1300020 More coarse หยาบขึ้น 1300020 More coarse หยาบขึ้น
1300021 More fine ละเอียดขึ้น 1300021 More fine ละเอียดขึ้น
1300022 2. Test grinding 2. ทดสอบการบด 1300022 2. Test grinding 2. ทดสอบการบด
@ -1297,4 +1297,4 @@ TextID Note English Thai China Japan Malaysia
EOF EOF
9999999 Load language finish Load language finish 9999999 Load language finish Load language finish Load language finish Load language finish Load language finish

Can't render this file because it has a wrong number of fields in line 21.

45
inter/mys/xml/event/event_profile.ev
View file

@ -5,6 +5,8 @@ DEBUGVAR XMLProfile
STRCONTAIN "PromoYuzu250" XMLProfile HasProYuzu250Concat STRCONTAIN "PromoYuzu250" XMLProfile HasProYuzu250Concat
STRCONTAIN "PromoReduced" XMLProfile IsProfileReduce STRCONTAIN "PromoReduced" XMLProfile IsProfileReduce
STRCONTAIN "PromoMelon" XMLProfile HasProMelonConcat
Var refresh_str = "-RefreshProf" Var refresh_str = "-RefreshProf"
STRCONTAIN refresh_str XMLProfile HasRefreshProf STRCONTAIN refresh_str XMLProfile HasRefreshProf
@ -18,10 +20,10 @@ If NeedRefreshProfile = 1 Then
READ_FILE "/mnt/sdcard/coffeevending/profile/price/profile_MYS_slot_4.json" ProfileSlot4MYS READ_FILE "/mnt/sdcard/coffeevending/profile/price/profile_MYS_slot_4.json" ProfileSlot4MYS
STRCONTAIN "Drop" ProfileSlot3MYS PromoYuzuDrop STRCONTAIN "Drop" ProfileSlot3MYS PromoYuzuDrop
STRCONTAIN "Drop" ProfileSlot4MYS PromoYuzuDis50Drop STRCONTAIN "Drop" ProfileSlot4MYS PromoMelonDrop
DEBUGVAR PromoYuzuDrop DEBUGVAR PromoYuzuDrop
DEBUGVAR PromoYuzuDis50Drop DEBUGVAR PromoMelonDrop
If HasRefreshProf = "true" Then If HasRefreshProf = "true" Then
@ -33,16 +35,13 @@ If NeedRefreshProfile = 1 Then
Var NeedRefreshProfile = 0 Var NeedRefreshProfile = 0
Else Else
; save-current-as-pre ; save-current-as-pre
CacheVarStr "put" XMLProfilePreEvent CacheVarStr "get" XMLProfilePreEvent
If PromoYuzuDrop = "true" Then Var XMLProfile = XMLProfilePreEvent
DEBUGVAR "case yuzu drop --> refresh"
If PromoMelonDrop = "true" Then
SAVELOG "case melon drop --> refresh"
Var XMLProfile = XMLProfile + refresh_str Var XMLProfile = XMLProfile + refresh_str
Else
If PromoYuzuDis50Drop = "true" Then
DEBUGVAR "case yuzu drop discount 50% --> refresh"
Var XMLProfile = XMLProfile + refresh_str
EndIf
EndIf EndIf
EndIf EndIf
@ -50,6 +49,9 @@ Else
DEBUGVAR HasProYuzu250Concat DEBUGVAR HasProYuzu250Concat
DEBUGVAR ProReducedPriceEnable DEBUGVAR ProReducedPriceEnable
DEBUGVAR HasProMelonConcat
DEBUGVAR IgnoreProfileFromRunEV DEBUGVAR IgnoreProfileFromRunEV
If ProReducedPriceEnable = 1 Then If ProReducedPriceEnable = 1 Then
@ -58,10 +60,10 @@ Else
DEBUGVAR "Case pro reduce end" DEBUGVAR "Case pro reduce end"
; case-pro-reduce-end ; case-pro-reduce-end
If IgnoreProfileFromRunEV = 1 Then If IgnoreProfileFromRunEV = 1 Then
DEBUGVAR "Pro yuzu ongoing" DEBUGVAR "Pro melon ongoing"
; concat-profile ; concat-profile
If HasProYuzu250Concat = "true" Then If HasProMelonConcat = "true" Then
DEBUGVAR "Pro yuzu concat" DEBUGVAR "Pro melon concat"
Else Else
If IsProfileReduce = "true" Then If IsProfileReduce = "true" Then
@ -71,25 +73,25 @@ Else
DEBUGVAR "Get PreEvent Empty" DEBUGVAR "Get PreEvent Empty"
Var XMLProfile = "General" Var XMLProfile = "General"
Else Else
DEBUGVAR "Restore profile by pre-event, also concat Yuzu" DEBUGVAR "Restore profile by pre-event, also concat Melon"
DEBUGVAR XMLProfilePreEvent DEBUGVAR XMLProfilePreEvent
Var XMLProfile = XMLProfilePreEvent + "-" Var XMLProfile = XMLProfilePreEvent + "-"
Var XMLProfile = XMLProfile + "PromoYuzu250" Var XMLProfile = XMLProfile + "PromoMelon250"
EndIf EndIf
Else Else
DEBUGVAR "No pro reduce, concat pro yuzu" DEBUGVAR "No pro reduce, concat pro melon"
CacheVarStr "put" XMLProfilePreEvent CacheVarStr "put" XMLProfilePreEvent
Var XMLProfile = XMLProfile + "-" Var XMLProfile = XMLProfile + "-"
Var XMLProfile = XMLProfile + "PromoYuzu250" Var XMLProfile = XMLProfile + "PromoMelon250"
EndIf EndIf
EndIf EndIf
Else Else
If IsProfileReduce = "true" Then If IsProfileReduce = "true" Then
DEBUGVAR "No yuzu but set pro reduce" DEBUGVAR "No melon but set pro reduce"
CacheVarStr "get" XMLProfilePreEvent CacheVarStr "get" XMLProfilePreEvent
If XMLProfilePreEvent = "" Then If XMLProfilePreEvent = "" Then
DEBUGVAR "PreEvent empty, set General" DEBUGVAR "PreEvent empty, set General"
@ -101,7 +103,7 @@ Else
Else Else
If HasProYuzu250Concat = "true" Then If HasProMelonConcat = "true" Then
CacheVarStr "get" XMLProfilePreEvent CacheVarStr "get" XMLProfilePreEvent
Var XMLProfile = XMLProfilePreEvent Var XMLProfile = XMLProfilePreEvent
EndIf EndIf
@ -119,6 +121,11 @@ Else
If IgnoreProfileFromRunEV = 1 Then If IgnoreProfileFromRunEV = 1 Then
Var ToggleAfterEventProfileOff = 1 Var ToggleAfterEventProfileOff = 1
If ProMelonEnable = 1 Then
Var IgnoreProfileFromRunEV = 0
SAVELOG "Allow exec cmd brew from event_profile"
EndIf
EndIf EndIf

148
inter/mys/xml/event/fruit_raya/page_get_free_1_fruit_raya.lxml
View file

@ -1,148 +0,0 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
Var Timeout = 0
DEBUGVAR TelephoneNumber
DEBUGVAR FromFruityRaya
DEBUGVAR Seeker.VendingCode
DEBUGVAR Seeker.FruityRaya
DEBUGVAR Seeker.UseFruityRayaCode
Var Cid = 43
Var param1 = ""
Var param2 = ""
Var param3 = ""
If FromFruityRaya = 1 Then
If TelephoneNumber = "" Then
Else
DEBUGVAR TelephoneNumber
; Telephone must not empty
If Seeker.CodeChannel = 1 Then
DEBUGVAR Seeker.CodeChannel
Var Seeker.UseFruityRayaCode = 1
Var Seeker.FruityRaya = 1
Else
Var Seeker.FruityRaya = 1
Var Seeker.UseFruityRayaCode = 0
DEBUGVAR Seeker.FruityRaya
DEBUGVAR Seeker.UseFruityRayaCode
AddData Cid TelephoneNumber param1 param2 param3
EndIf
EndIf
EndIf
; reset flag
Var FromFruityRaya = 0
; goto lid straw
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = Timeout + 1
If Timeout > 2 Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
TimerReset
Refresh
</EventTimeout>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventActionOk>
;
</EventActionOk>
<EventMachine>
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
</EventMachine>
;<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"
;<Image>
;<X> 0 </X>
;<Y> 380 </Y>
;<Filename> "ROOT/taobin_project/image/display_get_free/alpha.png" </Filename>
;</Image>
<Image>
<X> 0 </X>
<Y> 560 </Y>
<State> "Enable" </State>
<Filename> Var( DirImage + img_popup6 )</Filename>
</Image>
<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> 99 </X>
<Y> 1300 </Y>
<Align> center </Align>
<Size> 48 </Size>
<Color> 0x513C2F </Color>
<Value> "Please wait for coupon from SMS ... "
</Text>
</Popup>

2
inter/mys/xml/event/out_put_file1.txt
View file

@ -1 +1 @@
/event/promotion_yuzu_250.lxml /event/promotion_melonzy.lxml

14052
inter/mys/xml/event/promotion_melonzy.lxml Normal file
View file

File diff suppressed because it is too large Load diff

2
inter/mys/xml/event/promotion_onclick1.inc
View file

@ -1 +1 @@
Open "ROOT/taobin_project/inter/mys/xml/page_catalog_group_pro_yuzu_250.lxml" Open "ROOT/taobin_project/inter/mys/xml/page_catalog_group_pro_melon.lxml"

12
inter/mys/xml/event/script_common_for_open_promotion_xml.ev
View file

@ -2,16 +2,18 @@
; zone promote ; zone promote
DEBUGVAR FruityRayaEnable ; 10/02/25_remove_fruity_raya
DEBUGVAR ProThaiTeaEnable DEBUGVAR ProThaiTeaEnable
DEBUGVAR ProYuzuEnable DEBUGVAR ProYuzuEnable
DEBUGVAR ProMelonEnable
DEBUGVAR IgnoreProfileFromRunEV DEBUGVAR IgnoreProfileFromRunEV
If OpenFromPageBoard = 1 Then If OpenFromPageBoard = 1 Then
; has-ongoing-pro ; has-ongoing-pro
If IgnoreProfileFromRunEV = 1 Then If ProMelonEnable = 1 Then
OpenInst 2 "ROOT/taobin_project/inter/mys/xml/event/promotion_yuzu_250.lxml" OpenInst 2 "ROOT/taobin_project/inter/mys/xml/event/promotion_melonzy.lxml"
Var OpenFromPageBoard = 0 Var OpenFromPageBoard = 0
Else Else
@ -20,8 +22,8 @@ If OpenFromPageBoard = 1 Then
Else Else
; has-ongoing-pro ; has-ongoing-pro
If IgnoreProfileFromRunEV = 1 Then If ProMelonEnable = 1 Then
OpenInst 2 "ROOT/taobin_project/inter/mys/xml/event/promotion_yuzu_250.lxml" OpenInst 2 "ROOT/taobin_project/inter/mys/xml/event/promotion_melonzy.lxml"
Var OpenFromPageBoard = 0 Var OpenFromPageBoard = 0
Else Else

86
inter/mys/xml/event/tricker.ev
View file

@ -24,6 +24,11 @@ Var FromProYuzu = 0
Var IgnoreProfileFromRunEV = 0 Var IgnoreProfileFromRunEV = 0
Var FromProYuzu250 = 0 Var FromProYuzu250 = 0
; Melon Promo
Var ProMelonEnable = 0
Var FromProMelon = 0
; Pro free oreo topping ; Pro free oreo topping
Var PromotionOreoToppingFreeEnable = 0 Var PromotionOreoToppingFreeEnable = 0
@ -46,57 +51,54 @@ Var UseSlideShowVideo = 0
Var NoTrickPriceProfile = 0 Var NoTrickPriceProfile = 0
If SystemDateMonthInt = 3 Then
If SystemDateMonthInt = 9 Then If SystemDateDayInt >= 10 Then
If SystemDateDayInt < 16 Then Var ProMelonEnable = 1
Var PromotionOreoToppingFreeEnable = 1 Else
If SetProReduceByBO = 1 Then Var ProMelonEnable = 0
Var ProReducedPriceEnable = 1
EndIf
Else
Var PromotionOreoToppingFreeEnable = 0
EndIf
EndIf
If SystemDateMonthInt = 10 Then
Var IgnoreProfileFromRunEV = 0
EndIf
If SystemDateMonthInt = 11 Then
Var IgnoreProfileFromRunEV = 0
EndIf
If SystemDateMonthInt = 12 Then
Var IgnoreProfileFromRunEV = 0
EndIf
If SystemDateMonthInt < 10 Then
Var ProReducedPriceEnable = 0
Var IgnoreProfileFromRunEV = 0
EndIf
If ProReducedPriceEnable = 0 Then
If XMLProfile = "PromoReduced" Then
Var NoTrickPriceProfile = 1
EndIf EndIf
EndIf EndIf
If SystemDateMonthInt = 4 Then
If SystemDateDayInt <= 20 Then
Var ProMelonEnable = 1
Else
Var ProMelonEnable = 0
READ_FILE "/mnt/sdcard/coffeevending/profile/price/profile_MYS_slot_4.json" ProfileSlot4MYS
STRCONTAIN "Drop" ProfileSlot4MYS PromoMelonDrop
If PromoMelonDrop = "true" Then
SAVELOG "Promotion <Melon> already dropped !!!"
Else
; zone-self-refresh
SAVELOG "Promotion <Melon> End, Self Refresh !!!"
WRITE_FILE "/mnt/sdcard/coffeevending/profile/price/profile_MYS_slot_4.json" "Drop"
WRITE_FILE "/mnt/sdcard/coffeevending/profile/profile_MYS_5.json" "Drop"
WRITE_FILE "/mnt/sdcard/coffeevending/profile/profile_MYS_new_5.json" "Drop"
WRITE_FILE "/mnt/sdcard/coffeevending/need_refresh_file" "1"
EndIf
EndIf
EndIf
; zone-refresh-once ; zone-refresh-once
READ_FILE "/mnt/sdcard/coffeevending/need_refresh_file" NeedRefreshStr READ_FILE "/mnt/sdcard/coffeevending/need_refresh_file" NeedRefreshStr
STRCONTAIN "1" NeedRefreshStr need_refresh STRCONTAIN "1" NeedRefreshStr need_refresh
DEBUGVAR need_refresh
If need_refresh = "true" Then If need_refresh = "true" Then
Var NeedRefreshProfile = 1 Var NeedRefreshProfile = 1
WRITE_FILE "/mnt/sdcard/coffeevending/need_refresh_file" "0" WRITE_FILE "/mnt/sdcard/coffeevending/need_refresh_file" "0"
SAVELOG "Set SelfRefresh := True"
Else Else
Var NeedRefreshProfile = 0 Var NeedRefreshProfile = 0
EndIf EndIf
@ -104,10 +106,12 @@ EndIf
If BoxID = 177746 Then If BoxID = 177746 Then
Var ProThaiTeaEnable = 1 Var ProThaiTeaEnable = 0
Var ProYuzuEnable = 1 Var ProYuzuEnable = 0
Var PromotionOreoToppingFreeEnable = 0 Var PromotionOreoToppingFreeEnable = 0
;Var ProMelonEnable = 0
Var EnablePayLaterMode = 1 Var EnablePayLaterMode = 1
;Var AdvertiseProfile = "00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00" ;Var AdvertiseProfile = "00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00"
@ -118,6 +122,10 @@ If BoxID = 177746 Then
;Var IgnoreProfileFromRunEV = 1 ;Var IgnoreProfileFromRunEV = 1
EndIf EndIf
If ProMelonEnable = 1 Then
Var IgnoreProfileFromRunEV = 1
EndIf
If BoxID = 210037 Then If BoxID = 210037 Then
Var UseSlideShowVideo = 1 Var UseSlideShowVideo = 1
EndIf EndIf

157
inter/mys/xml/event/yuzu/page_get_free_1_yuzu.lxml
View file

@ -1,157 +0,0 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
Var Timeout = 0
DEBUGVAR TelephoneNumber
DEBUGVAR FromProYuzu
DEBUGVAR Seeker.VendingCode
DEBUGVAR Seeker.ProYuzu
DEBUGVAR Seeker.UseProYuzuCode
Var Cid = 43
Var param1 = ""
Var param2 = ""
Var param3 = ""
If FromProYuzu = 1 Then
If TelephoneNumber = "" Then
Else
DEBUGVAR Seeker.TNumberTaobinMember
; Telephone must not empty
If Seeker.CodeChannel = 1 Then
DEBUGVAR Seeker.CodeChannel
Var Seeker.UseProYuzuCode = 1
Var Seeker.ProYuzu = 1
Else
DEBUGVAR Seeker.TNumberTaobinMember
DEBUGVAR TelephoneNumber
Var Seeker.TNumberTaobinMember = TelephoneNumber
DEBUGVAR Seeker.TNumberTaobinMember
Var Seeker.ProYuzu = 1
Var Seeker.UseProYuzuCode = 0
DEBUGVAR Seeker.ProYuzu
DEBUGVAR Seeker.UseProYuzuCode
; support-for-multi-pro-with-same-cid
Var param1 = "703"
AddData Cid TelephoneNumber param1 param2 param3
EndIf
EndIf
EndIf
; reset flag
Var FromProYuzu = 0
; goto lid straw
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = Timeout + 1
If Timeout > 2 Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
TimerReset
Refresh
</EventTimeout>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventActionOk>
;
</EventActionOk>
<EventMachine>
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
</EventMachine>
;<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"
;<Image>
;<X> 0 </X>
;<Y> 380 </Y>
;<Filename> "ROOT/taobin_project/image/display_get_free/alpha.png" </Filename>
;</Image>
<Image>
<X> 0 </X>
<Y> 560 </Y>
<State> "Enable" </State>
<Filename> Var( DirImage + img_popup6 )</Filename>
</Image>
<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> 99 </X>
<Y> 1300 </Y>
<Align> center </Align>
<Size> 48 </Size>
<Color> 0x513C2F </Color>
<Value> "Please wait for coupon from SMS ... "
</Text>
</Popup>

3
inter/mys/xml/menu_new_layout_gen_v2.py
View file

@ -195,6 +195,9 @@
if "yuzu_250" in current_file_name: if "yuzu_250" in current_file_name:
out_xml( '\t\tVar FromProYuzu250 = 1 \r\n') out_xml( '\t\tVar FromProYuzu250 = 1 \r\n')
if "melonzy" in current_file_name:
out_xml('\t\tVar FromProMelon = 1\r\n')
out_xml( '\t\t\r\n') out_xml( '\t\t\r\n')
out_xml( '\t\t\r\n') out_xml( '\t\t\r\n')

19271
inter/mys/xml/page_catalog_group_milk.lxml
View file

File diff suppressed because it is too large Load diff

2487
inter/mys/xml/page_catalog_group_other.lxml
View file

File diff suppressed because it is too large Load diff

1462
inter/mys/xml/page_catalog_group_pro_melon.lxml Normal file
View file

File diff suppressed because it is too large Load diff

46
inter/mys/xml/page_catalog_group_pro_melon.skt Normal file
View file

@ -0,0 +1,46 @@
<?hurr
#include=menu_head.py
?>
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
<?hurr
#include=menu_catalog_default_init.xml
?>
Var FromProYuzu = 0
Var Timeout = 0
<?hurr
#include=menu_catalog_new_menu.xml
?>
</EventOpen>
<?hurr
#include=menu_catalog_new.py
?>
<?hurr
#include=menu_new_layout_gen_v2.py
?>
<?hurr
#include=menu_new_layout_gen.py
?>
</Popup>

4
inter/mys/xml/page_catalog_group_pro_yuzu.lxml
View file

@ -115,8 +115,8 @@
Var FromProYuzu = 0 Var FromProMelon = 0
Var Timeout = 0 Var Timeout = 0

16
inter/mys/xml/page_catalog_group_pro_yuzu.skt
View file

@ -1,5 +1,5 @@
<?hurr <?hurr
#include=menu_head.py #include=menu_head.py
?> ?>
<Popup> <Popup>
@ -13,12 +13,12 @@
<?hurr <?hurr
#include=menu_catalog_default_init.xml #include=menu_catalog_default_init.xml
?> ?>
Var FromProYuzu = 0 Var FromProMelon = 0
Var Timeout = 0 Var Timeout = 0
<?hurr <?hurr
#include=menu_catalog_new_menu.xml #include=menu_catalog_new_menu.xml
?> ?>
@ -26,7 +26,7 @@
<?hurr <?hurr
#include=menu_catalog_new.py #include=menu_catalog_new.py
?> ?>
@ -34,10 +34,10 @@
<?hurr <?hurr
#include=menu_new_layout_gen_v2.py #include=menu_new_layout_gen_v2.py
?> ?>
<?hurr <?hurr
#include=menu_new_layout_gen.py #include=menu_new_layout_gen.py
?> ?>

363
inter/mys/xml/page_collect_point_1.lxml
View file

@ -11,8 +11,8 @@
; jump ; jump
If IgnoreCollectPointByMe = 1 Then If IgnoreCollectPointByMe = 1 Then
Var IgnoreCollectPointByMe = 0 Var IgnoreCollectPointByMe = 0
Open "ROOT/taobin_project/xml/page_lid_straw.xml" Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf EndIf
If Seeker.CodeChannel = 1 Then If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointMain = 0 Then If Seeker.CollectPointMain = 0 Then
@ -20,10 +20,10 @@
Open "ROOT/taobin_project/xml/page_lid_straw.xml" Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf EndIf
EndIf EndIf
If SettingIgnoreCollectPoint = 1 Then If SettingIgnoreCollectPoint = 1 Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml" Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf EndIf
Var ShowErrorText = "Invisible" Var ShowErrorText = "Invisible"
@ -35,7 +35,7 @@
Var TimeOutPlay = 0 Var TimeOutPlay = 0
If show_eng = "true" Then If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collect_point1_en" Var DirImage = "ROOT/taobin_project/image/collect_point1_en"
;Play "ROOT/taobin_project/sound_eng/Reward_final.mp3" ;Play "ROOT/taobin_project/sound_eng/Reward_final.mp3"
@ -74,7 +74,7 @@
Var CampaingRef1 = "" Var CampaingRef1 = ""
Var CampaingRef2 = "" Var CampaingRef2 = ""
SUBSTRING CampaingRef 0 6 CampaingRef1 SUBSTRING CampaingRef 0 6 CampaingRef1
SUBSTRING CampaingRef 12 18 CampaingRef2 SUBSTRING CampaingRef 12 18 CampaingRef2
@ -124,22 +124,20 @@
Var PepweenCollectPoint = 0 Var PepweenCollectPoint = 0
EndIf EndIf
EndIf EndIf
DEBUGVAR PepweenCollectPoint DEBUGVAR PepweenCollectPoint
DEBUGVAR FruityRayaEnable
DEBUGVAR FromFruityRaya
DEBUGVAR ProThaiTeaEnable DEBUGVAR ProThaiTeaEnable
DEBUGVAR FromProThaiTea DEBUGVAR FromProThaiTea
DEBUGVAR FromProYuzu DEBUGVAR FromProYuzu
DEBUGVAR FromProYuzu250 DEBUGVAR FromProYuzu250
If Seeker.TNumberTaobinCredit = "" Then If Seeker.TNumberTaobinCredit = "" Then
If web_telnumOK = "" Then If web_telnumOK = "" Then
If show_eng = "true" Then If show_eng = "true" Then
Play "ROOT/taobin_project/sound_eng/Reward_final.mp3" Play "ROOT/taobin_project/sound_eng/Reward_final.mp3"
Else Else
Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3" Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3"
@ -150,7 +148,7 @@
Var StepGetPoint = 1 Var StepGetPoint = 1
Var PdpaAsk = 0 Var PdpaAsk = 0
Var OperatorTemp = "" Var OperatorTemp = ""
Var CreditAmount = 0 Var CreditAmount = 0
Var OperatorStatus = "" Var OperatorStatus = ""
@ -170,28 +168,12 @@
AddData 45 TelPhoneNum drink_price param2 param3 AddData 45 TelPhoneNum drink_price param2 param3
EndIf EndIf
;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc ;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
Var Param1 = TelephoneNumber + "/" Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP Var Param1 = Param1 + ParamCP
If MyMintEnable = 1 Then
If FromMyMintPro = 1 Then
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/my_mint_my_moment/page_collect_point_pro_mymint_2.xml"
EndIf
EndIf
DEBUGVAR FruityRayaEnable
DEBUGVAR FromFruityRaya
If FruityRayaEnable = 1 Then
If FromFruityRaya = 1 Then
Open "ROOT/taobin_project/inter/mys/xml/event/fruit_raya/page_get_free_1_fruit_raya.lxml"
EndIf
EndIf
DEBUGVAR ProThaiTeaEnable DEBUGVAR ProThaiTeaEnable
DEBUGVAR FromProThaiTea DEBUGVAR FromProThaiTea
If ProThaiTeaEnable = 1 Then If ProThaiTeaEnable = 1 Then
@ -208,75 +190,8 @@
EndIf EndIf
EndIf EndIf
If PepweenEnable = 1 Then
If PepweenCollectPoint = 0 Then
GETACCEXT TelephoneNumber 31
Open "ROOT/taobin_project/xml/event/pepween/page_collect_point_pro_pepween_2.xml"
EndIf
EndIf
If ProBadValentineEnable = 1 Then
If FromBadValentinePro = 1 Then
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/bad_valentine/page_collect_point_pro_bad_valentine_2.xml"
EndIf
EndIf
If LipitPro = 1 Then
If FromLipitPro = 1 Then
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointPromotion = 1 Then
If LipitRewardOutOfStock = 0 Then
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/lipit/page_collect_point_pro_lipit_2.xml"
EndIf
EndIf
Else
If LipitRewardOutOfStock = 0 Then
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/lipit/page_collect_point_pro_lipit_2.xml"
EndIf
EndIf
EndIf
EndIf
DEBUGVAR NamHomCoconutPro
DEBUGVAR FromNamHomCoconutPro
DEBUGVAR Seeker.CodeChannel
If NamHomCoconutPro = 1 Then
If FromNamHomCoconutPro = 1 Then
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointPromotion = 1 Then
If NamHomCoconutRewardOutOfStock = 0 Then
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_collect_point_nam_hom_coconut_2.xml"
EndIf
EndIf
Else
If NamHomCoconutRewardOutOfStock = 0 Then
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_collect_point_nam_hom_coconut_2.xml"
EndIf
EndIf
EndIf
EndIf
If RobinsonBeautyPro = 1 Then
If FromRobinsonBeautyPro = 1 Then
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointPromotion = 1 Then
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_2.xml"
EndIf
Else
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_2.xml"
EndIf
EndIf
EndIf
GETACCEXT Param1 23 GETACCEXT Param1 23
Open "ROOT/taobin_project/inter/mys/xml/page_collect_point_2.lxml" Open "ROOT/taobin_project/inter/mys/xml/page_collect_point_2.lxml"
EndIf EndIf
Else Else
@ -294,7 +209,7 @@
Var StepGetPoint = 1 Var StepGetPoint = 1
Var PdpaAsk = 0 Var PdpaAsk = 0
Var OperatorTemp = "" Var OperatorTemp = ""
Var CreditAmount = 0 Var CreditAmount = 0
Var OperatorStatus = "" Var OperatorStatus = ""
@ -304,40 +219,20 @@
Var TelephoneNumberX = TelephoneNumber Var TelephoneNumberX = TelephoneNumber
DEBUGVAR TelephoneNumber DEBUGVAR TelephoneNumber
DEBUGVAR PepweenCollectPoint DEBUGVAR PepweenCollectPoint
;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc ;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
Var Param1 = TelephoneNumber + "/" Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP Var Param1 = Param1 + ParamCP
DEBUGVAR MyMintEnable
DEBUGVAR FromMyMintPro
DEBUGVAR LipitPro
DEBUGVAR FromLipitPro
If MyMintEnable = 1 Then
If FromMyMintPro = 1 Then
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/my_mint_my_moment/page_collect_point_pro_mymint_2.xml"
EndIf
EndIf
DEBUGVAR FruityRayaEnable
DEBUGVAR FromFruityRaya
If FruityRayaEnable = 1 Then
If FromFruityRaya = 1 Then
Open "ROOT/taobin_project/inter/mys/xml/event/fruit_raya/page_get_free_1_fruit_raya.lxml"
EndIf
EndIf
DEBUGVAR ProThaiTeaEnable DEBUGVAR ProThaiTeaEnable
DEBUGVAR FromProThaiTea DEBUGVAR FromProThaiTea
If ProThaiTeaEnable = 1 Then If ProThaiTeaEnable = 1 Then
If FromProThaiTea = 1 Then If FromProThaiTea = 1 Then
Open "ROOT/taobin_project/inter/mys/xml/event/thai_tea/page_get_free_1_thai_tea.lxml" Open "ROOT/taobin_project/inter/mys/xml/event/thai_tea/page_get_free_1_thai_tea.lxml"
EndIf
EndIf EndIf
EndIf
DEBUGVAR ProYuzuEnable DEBUGVAR ProYuzuEnable
DEBUGVAR FromProYuzu DEBUGVAR FromProYuzu
If ProYuzuEnable = 1 Then If ProYuzuEnable = 1 Then
@ -346,69 +241,8 @@
EndIf EndIf
EndIf EndIf
If ProBadValentineEnable = 1 Then
If FromBadValentinePro = 1 Then
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/bad_valentine/page_collect_point_pro_bad_valentine_2.xml"
EndIf
EndIf
If LipitPro = 1 Then
If FromLipitPro = 1 Then
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointPromotion = 1 Then
If LipitRewardOutOfStock = 0 Then
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/lipit/page_collect_point_pro_lipit_2.xml"
EndIf
EndIf
Else
If LipitRewardOutOfStock = 0 Then
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/lipit/page_collect_point_pro_lipit_2.xml"
EndIf
EndIf
EndIf
EndIf
DEBUGVAR NamHomCoconutPro
DEBUGVAR FromNamHomCoconutPro
DEBUGVAR Seeker.CodeChannel
If NamHomCoconutPro = 1 Then
If FromNamHomCoconutPro = 1 Then
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointPromotion = 1 Then
If NamHomCoconutRewardOutOfStock = 0 Then
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_collect_point_nam_hom_coconut_2.xml"
EndIf
EndIf
Else
If NamHomCoconutRewardOutOfStock = 0 Then
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_collect_point_nam_hom_coconut_2.xml"
EndIf
EndIf
EndIf
EndIf
If RobinsonBeautyPro = 1 Then
If FromRobinsonBeautyPro = 1 Then
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointPromotion = 1 Then
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_2.xml"
EndIf
Else
GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_collect_point_robinson_beauty_2.xml"
EndIf
EndIf
EndIf
GETACCEXT Param1 23 GETACCEXT Param1 23
Open "ROOT/taobin_project/inter/mys/xml/page_collect_point_2.lxml" Open "ROOT/taobin_project/inter/mys/xml/page_collect_point_2.lxml"
EndIf EndIf
@ -416,24 +250,24 @@
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
Var CountDownBrewing = BREW_CNT Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing Var ShowCountDownBrewing = CountDownBrewing
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen > 0 Then If TelNumLen > 0 Then
Var ShowTextNumber = "Invisible" Var ShowTextNumber = "Invisible"
Else Else
; Add ; Add
Var TimeOutPlay = TimeOutPlay + 1 Var TimeOutPlay = TimeOutPlay + 1
If TimeOutPlay > 10 Then If TimeOutPlay > 10 Then
Var TimeOutPlay = 0 Var TimeOutPlay = 0
If show_eng = "true" Then If show_eng = "true" Then
Play "ROOT/taobin_project/sound_eng/Reward_final.mp3" Play "ROOT/taobin_project/sound_eng/Reward_final.mp3"
Else Else
Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3" Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3"
@ -442,17 +276,17 @@
; ;
EndIf EndIf
DEBUGVAR Timeout DEBUGVAR Timeout
Var Timeout = Timeout + 1 Var Timeout = Timeout + 1
If Timeout > 30 Then If Timeout > 30 Then
SAVELOG "collect_point1-p107." SAVELOG "collect_point1-p107."
;Open "ROOT/taobin_project/xml/page_catalog.xml" ;Open "ROOT/taobin_project/xml/page_catalog.xml"
Open "ROOT/taobin_project/xml/page_lid_straw.xml" Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf EndIf
If Timeout = 18 Then If Timeout = 18 Then
@ -470,7 +304,7 @@
Refresh Refresh
TimerReset TimerReset
</EventTimeout> </EventTimeout>
@ -496,13 +330,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_1.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "1" Var TelephoneNumber = TelephoneNumber + "1"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -512,9 +346,9 @@
TimerReset TimerReset
Refresh Refresh
</EventClick> </EventClick>
</Button> </Button>
@ -526,13 +360,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_2.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_2.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "2" Var TelephoneNumber = TelephoneNumber + "2"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -551,13 +385,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_3.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_3.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "3" Var TelephoneNumber = TelephoneNumber + "3"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -576,13 +410,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_4.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_4.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "4" Var TelephoneNumber = TelephoneNumber + "4"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -601,13 +435,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_5.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_5.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "5" Var TelephoneNumber = TelephoneNumber + "5"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -626,13 +460,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_6.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_6.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "6" Var TelephoneNumber = TelephoneNumber + "6"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -651,13 +485,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_7.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_7.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "7" Var TelephoneNumber = TelephoneNumber + "7"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -676,13 +510,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_8.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_8.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "8" Var TelephoneNumber = TelephoneNumber + "8"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -701,13 +535,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_9.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_9.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "9" Var TelephoneNumber = TelephoneNumber + "9"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -716,7 +550,7 @@
TimerReset TimerReset
Refresh Refresh
</EventClick> </EventClick>
</Button> </Button>
@ -727,13 +561,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_0.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_0.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "0" Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -752,24 +586,24 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_back-1.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_back-1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Trim TelephoneNumber -1 Trim TelephoneNumber -1
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then If TelNumLen < 10 Then
Var Tel_Confirm_State = "Invisible" Var Tel_Confirm_State = "Invisible"
EndIf EndIf
If TelNumLen = 0 Then If TelNumLen = 0 Then
Var ShowTextNumber = "Enable" Var ShowTextNumber = "Enable"
EndIf EndIf
TimerReset TimerReset
Refresh Refresh
</EventClick> </EventClick>
</Button> </Button>
@ -793,11 +627,11 @@
<FilenamePress> Var( DirImage + "/bp_negative.png") </FilenamePress> <FilenamePress> Var( DirImage + "/bp_negative.png") </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
; goto lid straw ; goto lid straw
;Open "ROOT/taobin_project/xml/page_catalog.xml" ;Open "ROOT/taobin_project/xml/page_catalog.xml"
SAVELOG "collect_point1-p589." SAVELOG "collect_point1-p589."
If LuckyDrawCampaign = 1 Then If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml" Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else Else
@ -816,9 +650,9 @@
<FilenameDisable> Var( DirImage + "/bn_positive.png") </FilenameDisable> <FilenameDisable> Var( DirImage + "/bn_positive.png") </FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
If Tel_Confirm_Flag = 1 Then If Tel_Confirm_Flag = 1 Then
@ -833,7 +667,7 @@
Var StepGetPoint = 1 Var StepGetPoint = 1
Var PdpaAsk = 0 Var PdpaAsk = 0
Var OperatorTemp = "" Var OperatorTemp = ""
Var CreditAmount = 0 Var CreditAmount = 0
Var OperatorStatus = "" Var OperatorStatus = ""
@ -852,28 +686,19 @@
AddData 45 TelPhoneNum drink_price param2 param3 AddData 45 TelPhoneNum drink_price param2 param3
EndIf EndIf
If ChildrenFree = 1 Then If ChildrenFree = 1 Then
Var Seeker.TNumberTaobinMember = TelephoneNumber Var Seeker.TNumberTaobinMember = TelephoneNumber
Open "ROOT/taobin_project/xml/page_lid_straw.xml" Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf EndIf
Var Param1 = TelephoneNumber + "/"
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP Var Param1 = Param1 + ParamCP
DEBUGVAR FruityRayaEnable
DEBUGVAR FromFruityRaya
If FruityRayaEnable = 1 Then
If FromFruityRaya = 1 Then
Open "ROOT/taobin_project/inter/mys/xml/event/fruit_raya/page_get_free_1_fruit_raya.lxml"
EndIf
EndIf
DEBUGVAR ProThaiTeaEnable DEBUGVAR ProThaiTeaEnable
DEBUGVAR FromProThaiTea DEBUGVAR FromProThaiTea
If ProThaiTeaEnable = 1 Then If ProThaiTeaEnable = 1 Then
@ -893,7 +718,7 @@
If MyMintEnable = 1 Then If MyMintEnable = 1 Then
If FromMyMintPro = 1 Then If FromMyMintPro = 1 Then
GETACCEXT TelephoneNumber 32 GETACCEXT TelephoneNumber 32
Open "ROOT/taobin_project/xml/event/my_mint_my_moment/page_collect_point_pro_mymint_2.xml" Open "ROOT/taobin_project/xml/event/my_mint_my_moment/page_collect_point_pro_mymint_2.xml"
EndIf EndIf
EndIf EndIf
@ -958,12 +783,12 @@
EndIf EndIf
GETACCEXT Param1 23 GETACCEXT Param1 23
;Open "ROOT/taobin_project/xml/page_catalog.xml" ;Open "ROOT/taobin_project/xml/page_catalog.xml"
Open "ROOT/taobin_project/inter/mys/xml/page_collect_point_2.lxml" Open "ROOT/taobin_project/inter/mys/xml/page_collect_point_2.lxml"
Else Else
If show_eng = "true" Then If show_eng = "true" Then
Var DirImage2 = "ROOT/taobin_project/image/collectiing_en" Var DirImage2 = "ROOT/taobin_project/image/collectiing_en"
Else Else
Var DirImage2 = "ROOT/taobin_project/image/collectiing" Var DirImage2 = "ROOT/taobin_project/image/collectiing"
@ -976,7 +801,7 @@
Var Tel_Confirm_State = "Invisible" Var Tel_Confirm_State = "Invisible"
Refresh Refresh
EndIf EndIf
@ -1067,11 +892,11 @@
<State> ShowErrorText </State> <State> ShowErrorText </State>
<Filename> text_show_error </Filename> <Filename> text_show_error </Filename>
</Image> </Image>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml" <EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity> </EventSecurity>
<EventMachine> <EventMachine>
If MachineStage = "drink-success" Then If MachineStage = "drink-success" Then
@ -1086,4 +911,4 @@
</Popup> </Popup>

4
inter/mys/xml/page_topping_select6.lxml
View file

@ -679,10 +679,12 @@
DEBUGVAR FromFruityRaya DEBUGVAR FromFruityRaya
DEBUGVAR FromProThaiTea DEBUGVAR FromProThaiTea
DEBUGVAR FromProYuzu DEBUGVAR FromProYuzu
DEBUGVAR FromProMelon
Var FromFruityRaya = 0 Var FromFruityRaya = 0
Var FromProThaiTea = 0 Var FromProThaiTea = 0
Var FromProYuzu = 0 Var FromProYuzu = 0
Var FromProMelon = 0
;Open PreviseXMLFileName2 ;Open PreviseXMLFileName2
DEBUGVAR OpenFromXML DEBUGVAR OpenFromXML
@ -3582,10 +3584,12 @@
DEBUGVAR FromFruityRaya DEBUGVAR FromFruityRaya
DEBUGVAR FromProThaiTea DEBUGVAR FromProThaiTea
DEBUGVAR FromProYuzu DEBUGVAR FromProYuzu
DEBUGVAR FromProMelon
Var FromFruityRaya = 0 Var FromFruityRaya = 0
Var FromProThaiTea = 0 Var FromProThaiTea = 0
Var FromProYuzu = 0 Var FromProYuzu = 0
Var FromProMelon = 0
If Seeker = "next" Then If Seeker = "next" Then
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml" OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"

11
inter/mys/xml/process/discount_from_promotion.ev
View file

@ -1,3 +1,5 @@
SAVELOG "Process::discount_from_promotion"
; fruit_raya ; fruit_raya
If FromFruityRaya = 1 Then If FromFruityRaya = 1 Then
Var Seeker.VendingCode = "RAYA" Var Seeker.VendingCode = "RAYA"
@ -37,3 +39,12 @@ EndIf
If FromProYuzu250 = 1 Then If FromProYuzu250 = 1 Then
Var Seeker.VendingCode = "YUZU25" Var Seeker.VendingCode = "YUZU25"
EndIf EndIf
; promotion melonzy
If FromProMelon = 1 Then
Var Seeker.VendingCode = "MELN25"
EndIf
DEBUGVAR Seeker.VendingCode

6308
inter/tha/xml/multi/page_catalog_group_coffee.lxml
View file

File diff suppressed because it is too large Load diff

40
inter/tha/xml/multi/page_catalog_group_coffee.skt
View file

@ -1,5 +1,5 @@
<?hurr <?hurr
#include=menu_head.py #include=menu_head.py
?> ?>
<Popup> <Popup>
@ -10,7 +10,7 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
If SlientRefreshIndex = 2 Then If SlientRefreshIndex = 2 Then
Var SlientRefreshIndex = 3 Var SlientRefreshIndex = 3
@ -26,7 +26,7 @@
<EventOnShow> <EventOnShow>
SAVELOG "Onshow 1" SAVELOG "Onshow 1"
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Menu2Selected = "PressForever" Var Menu2Selected = "PressForever"
SAVELOG "Onshow 2" SAVELOG "Onshow 2"
@ -39,7 +39,7 @@
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
</EventOnShow> </EventOnShow>
@ -54,7 +54,7 @@
Var ice_tab_process_show = "Invisible" Var ice_tab_process_show = "Invisible"
EndIf EndIf
GetVisible inst_show2 GetVisible inst_show2
;DEBUGVAR inst_show2 ;DEBUGVAR inst_show2
@ -67,7 +67,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
@ -84,12 +84,12 @@
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
@ -98,7 +98,7 @@
SAVELOG "OPEN slient 1" SAVELOG "OPEN slient 1"
GetXMLFileNameCurrentRunning CurrentOpenFile2 GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2 Open CurrentOpenFile2
Else Else
Var SlientRefreshIndex = 3 Var SlientRefreshIndex = 3
EndIf EndIf
@ -115,7 +115,7 @@
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
Else Else
If LanguageShow = "ENG" Then If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng" Var SaveStringInst = "ShowEng"
@ -132,7 +132,7 @@
EndIf EndIf
EndIf EndIf
@ -140,7 +140,7 @@
Var Inst5CountCurrentMenuEnable = 0 Var Inst5CountCurrentMenuEnable = 0
GetFrameScrollBlockCount Inst5CountCurrentMenuEnable GetFrameScrollBlockCount Inst5CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst5CountMenuEnable GetCurrentEnableBlockCount Inst5CountMenuEnable
;DEBUGVAR Inst5CountMenuEnable ;DEBUGVAR Inst5CountMenuEnable
;DEBUGVAR Inst5CountMenuEnablePrev ;DEBUGVAR Inst5CountMenuEnablePrev
;DEBUGVAR Inst5CountCurrentMenuEnable ;DEBUGVAR Inst5CountCurrentMenuEnable
@ -169,7 +169,7 @@
EndIf EndIf
If Inst5CountCurrentMenuEnable = 0 Then If Inst5CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst5CountDownOpenXMLFromMenuZero DEBUGVAR Inst5CountDownOpenXMLFromMenuZero
If Inst5CountDownOpenXMLFromMenuZero > 0 Then If Inst5CountDownOpenXMLFromMenuZero > 0 Then
@ -184,7 +184,7 @@
If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then
If Inst5CountCurrentMenuEnable > 0 Then If Inst5CountCurrentMenuEnable > 0 Then
Var Inst5MenuLoaded = "done" Var Inst5MenuLoaded = "done"
EndIf EndIf
EndIf EndIf
@ -197,7 +197,7 @@
EndIf EndIf
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
Else Else
If LanguageShow = "ENG" Then If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng" Var SaveStringInst = "ShowEng"
@ -227,7 +227,7 @@
Var ScriptCoffeeMenu = 0 Var ScriptCoffeeMenu = 0
SAVELOG "Runscript 3" SAVELOG "Runscript 3"
Script "-" "-" Script "-" "-"
EndIf EndIf
If CoffeeRefreshTimeOut > 15 Then If CoffeeRefreshTimeOut > 15 Then
Var CoffeeRefreshTimeOut = 0 Var CoffeeRefreshTimeOut = 0
@ -235,7 +235,7 @@
EndIf EndIf
Var CoffeeRefreshTimeOut = CoffeeRefreshTimeOut + 1 Var CoffeeRefreshTimeOut = CoffeeRefreshTimeOut + 1
TimerReset TimerReset
</EventTimeout> </EventTimeout>
@ -245,10 +245,10 @@
<?hurr <?hurr
#include=menu_new_layout_gen_v2.py #include=menu_new_layout_gen_v2.py
?> ?>
<?hurr <?hurr
#include=menu_new_layout_gen.py #include=menu_new_layout_gen.py
?> ?>

1466
inter/tha/xml/multi/page_catalog_group_forkid.lxml
View file

File diff suppressed because it is too large Load diff

38
inter/tha/xml/multi/page_catalog_group_forkid.skt
View file

@ -1,5 +1,5 @@
<?hurr <?hurr
#include=menu_head.py #include=menu_head.py
touch_less_gen = False touch_less_gen = False
?> ?>
@ -11,7 +11,7 @@
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
@ -23,14 +23,14 @@
</EventOpen> </EventOpen>
<EventOnShow> <EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
; protein ; protein
If AppFastEnable = "true" Then If AppFastEnable = "true" Then
Var Menu11Selected = "PressForever" Var Menu11Selected = "PressForever"
Var Menu7Selected = "Invisible" Var Menu7Selected = "Invisible"
Var Menu21Selected = "Invisible" Var Menu21Selected = "Invisible"
Else Else
Var Menu11Selected = "Invisible" Var Menu11Selected = "Invisible"
Var Menu7Selected = "Invisible" Var Menu7Selected = "Invisible"
Var Menu21Selected = "PressForever" Var Menu21Selected = "PressForever"
EndIf EndIf
@ -60,8 +60,8 @@
EndIf EndIf
GetVisible inst_show5 GetVisible inst_show5
;DEBUGVAR inst_show5 ;DEBUGVAR inst_show5
@ -73,7 +73,7 @@
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
@ -89,12 +89,12 @@
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
@ -119,7 +119,7 @@
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
Else Else
If LanguageShow = "ENG" Then If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng" Var SaveStringInst = "ShowEng"
@ -142,7 +142,7 @@
Var Inst8CountCurrentMenuEnable = 0 Var Inst8CountCurrentMenuEnable = 0
GetFrameScrollBlockCount Inst8CountCurrentMenuEnable GetFrameScrollBlockCount Inst8CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst8CountMenuEnable GetCurrentEnableBlockCount Inst8CountMenuEnable
;DEBUGVAR Inst8CountMenuEnable ;DEBUGVAR Inst8CountMenuEnable
;DEBUGVAR Inst8CountMenuEnablePrev ;DEBUGVAR Inst8CountMenuEnablePrev
;DEBUGVAR Inst8CountCurrentMenuEnable ;DEBUGVAR Inst8CountCurrentMenuEnable
@ -169,10 +169,10 @@
Var Inst8CountDownForOpenXML = 10 Var Inst8CountDownForOpenXML = 10
EndIf EndIf
EndIf EndIf
If Inst8CountCurrentMenuEnable = 0 Then If Inst8CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst8CountDownOpenXMLFromMenuZero DEBUGVAR Inst8CountDownOpenXMLFromMenuZero
If Inst8CountDownOpenXMLFromMenuZero > 0 Then If Inst8CountDownOpenXMLFromMenuZero > 0 Then
@ -186,7 +186,7 @@
If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then
If Inst8CountCurrentMenuEnable > 0 Then If Inst8CountCurrentMenuEnable > 0 Then
Var Inst8MenuLoaded = "done" Var Inst8MenuLoaded = "done"
EndIf EndIf
EndIf EndIf
@ -197,7 +197,7 @@
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_forkid.lxml" Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_forkid.lxml"
EndIf EndIf
EndIf EndIf
TimerReset TimerReset
</EventTimeout> </EventTimeout>
@ -206,10 +206,10 @@
<?hurr <?hurr
#include=menu_new_layout_gen_v2.py #include=menu_new_layout_gen_v2.py
?> ?>
<?hurr <?hurr
#include=menu_new_layout_gen.py #include=menu_new_layout_gen.py
?> ?>

400
inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml
View file

@ -1,198 +1,198 @@
<Popup> <Popup>
<Cache> "Enable" </Cache> <Cache> "Enable" </Cache>
<Width> 1080 </Width> <Width> 1080 </Width>
<Height> 1920 </Height> <Height> 1920 </Height>
;<Background> "0xeae6e1" </Background> ;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 8 Then If SlientRefreshIndex = 8 Then
Var SlientRefreshIndex = 9 Var SlientRefreshIndex = 9
EndIf EndIf
</EventOpen> </EventOpen>
<EventOnShow> <EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Menu61Selected = "PressForever" Var Menu61Selected = "PressForever"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml"
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
</EventOnShow> </EventOnShow>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable" Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
Else Else
Var ice_tab_process_show = "Invisible" Var ice_tab_process_show = "Invisible"
EndIf EndIf
GetVisible inst_show9 GetVisible inst_show9
;DEBUGVAR inst_show9 ;DEBUGVAR inst_show9
If inst_show9 = 1 Then If inst_show9 = 1 Then
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst ;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1 ; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If SlientRefreshIndex = 8 Then If SlientRefreshIndex = 8 Then
If inst_show9 = 0 Then If inst_show9 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile5 GetXMLFileNameCurrentRunning CurrentOpenFile5
Open CurrentOpenFile5 Open CurrentOpenFile5
Else Else
Var SlientRefreshIndex = 9 Var SlientRefreshIndex = 9
EndIf EndIf
EndIf EndIf
If langnext9 = "true" Then If langnext9 = "true" Then
Var langnext9 = "false" Var langnext9 = "false"
RefreshAll RefreshAll
EndIf EndIf
If inst_show9 = 1 Then If inst_show9 = 1 Then
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
Else Else
If LanguageShow = "ENG" Then If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng" Var SaveStringInst = "ShowEng"
Var show_eng = "false" Var show_eng = "false"
EndIf EndIf
If LanguageShow = "THAI" Then If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai" Var SaveStringInst = "ShowThai"
Var show_eng = "true" Var show_eng = "true"
EndIf EndIf
If LanguageShow = "MYANMAR" Then If LanguageShow = "MYANMAR" Then
Var show_eng = "false" Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR" Var SaveStringInst = "ShowMYANMAR"
EndIf EndIf
EndIf EndIf
EndIf EndIf
Var Inst10CountMenuEnable = 0 Var Inst10CountMenuEnable = 0
Var Inst10CountCurrentMenuEnable = 0 Var Inst10CountCurrentMenuEnable = 0
GetFrameScrollBlockCount Inst10CountCurrentMenuEnable GetFrameScrollBlockCount Inst10CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst10CountMenuEnable GetCurrentEnableBlockCount Inst10CountMenuEnable
;DEBUGVAR Inst10CountMenuEnable ;DEBUGVAR Inst10CountMenuEnable
;DEBUGVAR Inst10CountMenuEnablePrev ;DEBUGVAR Inst10CountMenuEnablePrev
;DEBUGVAR Inst10CountCurrentMenuEnable ;DEBUGVAR Inst10CountCurrentMenuEnable
If Inst10CountMenuEnablePrev = "" Then If Inst10CountMenuEnablePrev = "" Then
Var Inst10CountMenuEnablePrev = Inst10CountMenuEnable Var Inst10CountMenuEnablePrev = Inst10CountMenuEnable
Var Inst10CountDownForOpenXML = 0 Var Inst10CountDownForOpenXML = 0
Var Inst10CountDownOpenXMLFromMenuZero = 20 Var Inst10CountDownOpenXMLFromMenuZero = 20
EndIf EndIf
If Inst10CountMenuEnable = Inst10CountMenuEnablePrev Then If Inst10CountMenuEnable = Inst10CountMenuEnablePrev Then
Else Else
SAVELOG "Inst10 Refresh ===================================================================== Refresh" SAVELOG "Inst10 Refresh ===================================================================== Refresh"
Var Inst10CountDownForOpenXML = 10 Var Inst10CountDownForOpenXML = 10
Var Inst10CountMenuEnablePrev = CountMenuEnable Var Inst10CountMenuEnablePrev = CountMenuEnable
EndIf EndIf
If Inst10CountMenuEnable = Inst10CountCurrentMenuEnable Then If Inst10CountMenuEnable = Inst10CountCurrentMenuEnable Then
Else Else
If Inst10CountDownForOpenXML = 0 Then If Inst10CountDownForOpenXML = 0 Then
SAVELOG "Inst10 Refresh =======================Inst10CountMenuEnable / Inst10CountCurrentMenuEnable ============================================== Refresh" SAVELOG "Inst10 Refresh =======================Inst10CountMenuEnable / Inst10CountCurrentMenuEnable ============================================== Refresh"
Var Inst10CountDownForOpenXML = 10 Var Inst10CountDownForOpenXML = 10
EndIf EndIf
EndIf EndIf
If Inst10CountCurrentMenuEnable = 0 Then If Inst10CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst10CountDownOpenXMLFromMenuZero DEBUGVAR Inst10CountDownOpenXMLFromMenuZero
If Inst10CountDownOpenXMLFromMenuZero > 0 Then If Inst10CountDownOpenXMLFromMenuZero > 0 Then
Var Inst10CountDownOpenXMLFromMenuZero = Inst10CountDownOpenXMLFromMenuZero - 1 Var Inst10CountDownOpenXMLFromMenuZero = Inst10CountDownOpenXMLFromMenuZero - 1
If Inst10CountDownOpenXMLFromMenuZero = 0 Then If Inst10CountDownOpenXMLFromMenuZero = 0 Then
Var Inst10CountDownOpenXMLFromMenuZero = 20 Var Inst10CountDownOpenXMLFromMenuZero = 20
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml" Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If Inst10CountMenuEnable = Inst10CountCurrentMenuEnable Then If Inst10CountMenuEnable = Inst10CountCurrentMenuEnable Then
If Inst10CountCurrentMenuEnable > 0 Then If Inst10CountCurrentMenuEnable > 0 Then
Var Inst10MenuLoaded = "done" Var Inst10MenuLoaded = "done"
EndIf EndIf
EndIf EndIf
If Inst10CountDownForOpenXML > 0 Then If Inst10CountDownForOpenXML > 0 Then
Var Inst10CountDownForOpenXML = Inst10CountDownForOpenXML - 1 Var Inst10CountDownForOpenXML = Inst10CountDownForOpenXML - 1
DEBUGVAR Inst10CountDownForOpenXML DEBUGVAR Inst10CountDownForOpenXML
If Inst10CountDownForOpenXML = 0 Then If Inst10CountDownForOpenXML = 0 Then
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml" Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml"
EndIf EndIf
EndIf EndIf
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll> <FrameScroll>
<X> 10 </X> <X> 10 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -10869,8 +10869,8 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml" Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick> </EventClick>
</Button> </Button>
</Popup> </Popup>

38
inter/tha/xml/multi/page_catalog_group_pepsi_7up.skt
View file

@ -1,5 +1,5 @@
<?hurr <?hurr
#include=menu_head.py #include=menu_head.py
echo param echo param
?> ?>
@ -20,7 +20,7 @@
</EventOpen> </EventOpen>
<EventOnShow> <EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Menu61Selected = "PressForever" Var Menu61Selected = "PressForever"
@ -29,7 +29,7 @@
;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml"
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
@ -50,12 +50,12 @@
EndIf EndIf
GetVisible inst_show9 GetVisible inst_show9
;DEBUGVAR inst_show9 ;DEBUGVAR inst_show9
If inst_show9 = 1 Then If inst_show9 = 1 Then
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
@ -64,12 +64,12 @@
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
@ -81,12 +81,12 @@
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
@ -109,7 +109,7 @@
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
Else Else
If LanguageShow = "ENG" Then If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng" Var SaveStringInst = "ShowEng"
@ -130,7 +130,7 @@
Var Inst10CountCurrentMenuEnable = 0 Var Inst10CountCurrentMenuEnable = 0
GetFrameScrollBlockCount Inst10CountCurrentMenuEnable GetFrameScrollBlockCount Inst10CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst10CountMenuEnable GetCurrentEnableBlockCount Inst10CountMenuEnable
;DEBUGVAR Inst10CountMenuEnable ;DEBUGVAR Inst10CountMenuEnable
;DEBUGVAR Inst10CountMenuEnablePrev ;DEBUGVAR Inst10CountMenuEnablePrev
;DEBUGVAR Inst10CountCurrentMenuEnable ;DEBUGVAR Inst10CountCurrentMenuEnable
@ -148,7 +148,7 @@
Var Inst10CountDownForOpenXML = 10 Var Inst10CountDownForOpenXML = 10
Var Inst10CountMenuEnablePrev = CountMenuEnable Var Inst10CountMenuEnablePrev = CountMenuEnable
EndIf EndIf
If Inst10CountMenuEnable = Inst10CountCurrentMenuEnable Then If Inst10CountMenuEnable = Inst10CountCurrentMenuEnable Then
Else Else
@ -159,7 +159,7 @@
EndIf EndIf
If Inst10CountCurrentMenuEnable = 0 Then If Inst10CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst10CountDownOpenXMLFromMenuZero DEBUGVAR Inst10CountDownOpenXMLFromMenuZero
If Inst10CountDownOpenXMLFromMenuZero > 0 Then If Inst10CountDownOpenXMLFromMenuZero > 0 Then
@ -173,7 +173,7 @@
If Inst10CountMenuEnable = Inst10CountCurrentMenuEnable Then If Inst10CountMenuEnable = Inst10CountCurrentMenuEnable Then
If Inst10CountCurrentMenuEnable > 0 Then If Inst10CountCurrentMenuEnable > 0 Then
Var Inst10MenuLoaded = "done" Var Inst10MenuLoaded = "done"
EndIf EndIf
EndIf EndIf
@ -184,7 +184,7 @@
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml" Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml"
EndIf EndIf
EndIf EndIf
TimerReset TimerReset
</EventTimeout> </EventTimeout>
@ -196,10 +196,10 @@
<?hurr <?hurr
#include=menu_new_layout_gen_v2.py #include=menu_new_layout_gen_v2.py
?> ?>
<?hurr <?hurr
#include=menu_new_layout_gen.py #include=menu_new_layout_gen.py
?> ?>

9
xml/page_board.xml
View file

@ -211,7 +211,7 @@
STRCONTAIN "1037" MaterialAvailable 7UpSyrupEnable STRCONTAIN "1037" MaterialAvailable 7UpSyrupEnable
STRCONTAIN "1038" MaterialAvailable PepsiHighYSyrupEnable STRCONTAIN "1038" MaterialAvailable PepsiHighYSyrupEnable
STRCONTAIN "1052" MaterialAvailable CollagenPowderEnable STRCONTAIN "1052" MaterialAvailable CollagenPowderEnable
STRCONTAIN "1065" MaterialAvailable HaveIngredientOvaltine STRCONTAIN "1065" MaterialAvailable HaveIngredientOvaltine
;Var AppFastEnable = "false" ;Var AppFastEnable = "false"
@ -1997,6 +1997,13 @@ PRICE "Reset" "-"
PRICE "Reload" "-" PRICE "Reload" "-"
Var XMLProfilePrevious = XMLProfile Var XMLProfilePrevious = XMLProfile
Var refresh_str = "-RefreshProf"
STRCONTAIN refresh_str XMLProfile HasRefreshProf
If HasRefreshProf = "true" Then
RebootWithCause "RefreshProf_ProMelon"
EndIf
EndIf EndIf
EndIf EndIf

18
xml/page_payment_cash.xml
View file

@ -397,6 +397,8 @@
Var X_Diff = 113 Var X_Diff = 113
;113 ;113
DEBUGVAR CreditCardButtonState
If CreditCardButtonState = "Invisible" Then If CreditCardButtonState = "Invisible" Then
Else Else
@ -1267,6 +1269,14 @@
DEBUGVAR MenuCautionImageStage0 DEBUGVAR MenuCautionImageStage0
If CreditCardButtonState = "Invisible" Then
Else
Var X_CASH1 = 216 - 113
Var X_CASH2 = 439 - 113
Var X_CASH3 = 664 - 113
EndIf
</EventOpen> </EventOpen>
<EventActionOk> <EventActionOk>
@ -1983,6 +1993,14 @@
DEBUGVAR ChangeOK DEBUGVAR ChangeOK
DEBUGVAR CancelFlag DEBUGVAR CancelFlag
If CreditCardButtonState = "Invisible" Then
Else
Var X_CASH1 = 216 - 113
Var X_CASH2 = 439 - 113
Var X_CASH3 = 664 - 113
EndIf
If CamFlag = 1 Then If CamFlag = 1 Then
Var CamCount = CamCount + 1 Var CamCount = CamCount + 1