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

Merge branch 'masterpiece' of ssh://192.168.10.159:/1TBHDD/ikong/taobin_project into masterpiece

Browse source
This commit is contained in:
Pakin 2024-07-15 17:30:30 +07:00
commit 705ab50146
312 changed files with 64716 additions and 623 deletions
Download patch file Download diff file Expand all files Collapse all files

2
xml/event/out_put_file2.txt
View file

@ -1 +1 @@
/event/promotion_coffee_drink_1_bath.xml
/event/promotion_7up_lucky_draw_x2.xml

2
xml/event/out_put_file3.txt
View file

@ -1 +1 @@
/event/promotion_nam_hom_coconut.xml
/event/promotion_passion_mint.xml

12912
xml/event/promotion_7up_lucky_draw_x2.xml Normal file
View file

File diff suppressed because it is too large Load diff

12912
xml/event/promotion_passion_mint.xml Normal file
View file

File diff suppressed because it is too large Load diff

6
xml/event/promotion_template2.inc
View file

@ -33,7 +33,7 @@
</FilenameDisable>
<EventOnClick>
Open "ROOT/taobin_project/xml/page_catalog_group_pro_coffee_drink_1_bath.xml"
Open "ROOT/taobin_project/xml/page_catalog_group_pro_7up_lucky_draw_x2.xml"
</EventOnClick>
@ -53,7 +53,7 @@
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image/event/coffee_drink_1_bath/coffee_drink_1_bath_th.mp4" </Filename>
<Filename> "ROOT/taobin_project/image/event/7up_lucky_draw_x2/7up_lucky_draw_x2_th.mp4" </Filename>
</Video>
<Video>
@ -71,7 +71,7 @@
)
</State>
<Loop> "true" </Loop>
<Filename> "ROOT/taobin_project/image/event/coffee_drink_1_bath/coffee_drink_1_bath_en.mp4" </Filename>
<Filename> "ROOT/taobin_project/image/event/7up_lucky_draw_x2/7up_lucky_draw_x2_en.mp4" </Filename>
</Video>
</Button>

6
xml/event/promotion_template3.inc
View file

@ -33,7 +33,7 @@
</FilenameDisable>
<EventOnClick>
Open "ROOT/taobin_project/xml/page_catalog_group_pro_nam_hom_coconut.xml"
Open "ROOT/taobin_project/xml/page_catalog_group_pro_passion_mint.xml"
</EventOnClick>
@ -53,7 +53,7 @@
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image/event/nam_hom_coconut/nam_hom_coconut_th.mp4" </Filename>
<Filename> "ROOT/taobin_project/image/event/passion_mint/passion_mint_th.mp4" </Filename>
</Video>
<Video>
@ -71,7 +71,7 @@
)
</State>
<Loop> "true" </Loop>
<Filename> "ROOT/taobin_project/image/event/nam_hom_coconut/nam_hom_coconut_en.mp4" </Filename>
<Filename> "ROOT/taobin_project/image/event/passion_mint/passion_mint_en.mp4" </Filename>
</Video>
</Button>

51
xml/event/script_common_for_open_promotion_xml.ev
View file

@ -4,9 +4,8 @@ DEBUGVAR PayOfflineMode
DEBUGVAR CocktailShow
DEBUGVAR OpenFromPageBoard
DEBUGVAR NamHomCoconutPro
DEBUGVAR Cocoa77Pro
DEBUGVAR PassionMintPro
DEBUGVAR 7UpLuckyDrawX2Pro
Var PromotionState1 = "Invisible"
Var PromotionState2 = "Invisible"
@ -21,43 +20,37 @@ If CocktailShow = "true" Then
EndIf
Else
; check profile to enable free energy drink promotion
STRCONTAIN "ProEnergyDrinkFreePerCardID" XMLProfile EnableFreeEnergyDrink
Var BigButtonEnable = "Enable"
DEBUGVAR FreeEnergyDrink
;Var FreeEnergyDrink = 1
;Var EnableFreeEnergyDrink = "true"
DEBUGVAR EnableFreeEnergyDrink
Var CountEnablePromotion = 0
Var FileRecommendToOpen = "ROOT/taobin_project/xml/page_catalog_group_recommend.xml"
; zone promote
If Cocoa77Pro = 1 Then
Var PromotionState1 = "Enable"
Var CountEnablePromotion = CountEnablePromotion + 1
If NamHomCoconutPro = 1 Then
Var PromotionState2 = "Enable"
Var CountEnablePromotion = CountEnablePromotion + 1
EndIf
If CountEnablePromotion > 1 Then
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/double_promotion_cocoa_77_and_nam_hom_coconut.xml"
Else
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/promotion_cocoa77.xml"
EndIf
If PassionMintPro = 1 Then
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/promotion_passion_mint.xml"
Else
If NamHomCoconutPro = 1 Then
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/ignore_gen_promotion_nam_hom_coconut.xml"
If 7UpLuckyDrawX2Pro = 1 Then
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/promotion_7up_lucky_draw_x2.xml"
EndIf
If Cocoa77Pro = 1 Then
Var PromotionState1 = "Enable"
Var CountEnablePromotion = CountEnablePromotion + 1
If NamHomCoconutPro = 1 Then
Var PromotionState2 = "Enable"
Var CountEnablePromotion = CountEnablePromotion + 1
EndIf
If CountEnablePromotion > 1 Then
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/double_promotion_cocoa_77_and_nam_hom_coconut.xml"
Else
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/promotion_cocoa77.xml"
EndIf
EndIf
EndIf
If OpenFromPageBoard = 1 Then
DEBUGVAR FreeEnergyDrink
DEBUGVAR BigButtonEnable

56
xml/event/tricker.ev
View file

@ -112,10 +112,18 @@ Var NamHomCoconutRewardOutOfStock = 0
Var Cocoa77Pro = 0
Var FromCocoa77Pro = 0
; Enable Passion Mint promotion, 15 - 17 Jul
Var PassionMintPro = 0
Var FromPassionMintPro = 0
; Enable 7UpLuckyDrawX2 promotion, 22 Jul - 9 Aus
Var 7UpLuckyDrawX2Pro = 0
Var NewCollectPoint = 1
Var ShouldCollectPromotionPoint = 0
Var NewFlowPaymentCode = 0
Var New_Payment = 0
Var XMLLiveInfoEnable = 0
@ -201,6 +209,17 @@ If SystemDateMonthInt = 7 Then
Var Cocoa77Pro = 1
EndIf
EndIf
If SystemDateDayInt >= 15 Then
If SystemDateDayInt <= 17 Then
Var PassionMintPro = 1
EndIf
EndIf
If SystemDateDayInt >= 22 Then
Var 7UpLuckyDrawX2Pro = 1
EndIf
EndIf
If SystemDateMonthInt >= 7 Then
@ -208,13 +227,19 @@ If SystemDateMonthInt >= 7 Then
EndIf
If SystemDateMonthInt = 8 Then
If SystemDateDayInt <= 9 Then
Var 7UpLuckyDrawX2Pro = 1
EndIf
EndIf
If BoxID = 173149 Then
Var ProBadValentineEnable = 0
Var NewFlowPaymentCode = 1
Var NamHomCoconutPro = 1
Var EnergyDrink1BathPro = 1
Var CoffeeDrink1BathPro = 0
Var New_Payment = 1
Var NamHomCoconutPro = 0
Var Cocoa77Pro = 0
Var 7UpLuckyDrawX2Pro = 1
EndIf
@ -226,8 +251,11 @@ EndIf
If BoxID = 105005 Then
Var NewFlowPaymentCode = 1
Var NamHomCoconutPro = 1
Var Cocoa77Pro = 1
Var New_Payment = 1
Var NamHomCoconutPro = 0
Var Cocoa77Pro = 0
Var 7UpLuckyDrawX2Pro = 0
Var PassionMintPro = 1
EndIf
@ -314,6 +342,10 @@ If taobin_nopro = "true" Then
Var WednesdayMelonPro = 0
Var NamHomCoconutPro = 0
Var Cocoa77Pro = 0
Var 7UpLuckyDrawX2Pro = 0
Var PassionMintPro = 0
Var AdvertiseProfile = "00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00"
@ -358,6 +390,18 @@ Else
Var Cocoa77Pro = 0
EndIf
If 7UpSyrupEnable = "true" Then
Else
Var 7UpLuckyDrawX2Pro = 0
EndIf
If MintSyrupEnable = "true" Then
Else
Var PassionMintPro = 0
EndIf
Var CurrentMainVideoTemp = 0

69
xml/menu_new_layout_gen.py
View file

@ -242,6 +242,30 @@
else:
from_cocoa77 = False
cocoa77_fix_price = False
if current_file_name == "page_catalog_group_pro_passion_mint.skt":
passion_mint = True
passion_mint_fix_price = {
"12-01-02-0057": 29,
"12-21-02-0057": 29,
"12-01-02-0058": 19,
"12-21-02-0058": 19,
"12-02-03-0050": 39,
"12-01-02-0064": 29,
"12-21-02-0064": 29,
"12-03-02-0035": 29,
"12-03-03-0034": 39,
"12-03-03-0037": 29,
"12-05-02-0063": 19,
"12-05-02-0064": 19,
"12-05-02-0067": 19
}
else:
passion_mint = False
passion_mint_fix_price = {}
if current_file_name == "page_catalog_group_pro_7up_lucky_draw_x2.skt":
menu_white_color_catalog = True
#print ("######################################################################################################")
idx_of_eng = 2
@ -459,6 +483,13 @@
out_xml( '\t\tVar OriginalPriceD1 = $' + spl[4] + '.Price\r\n')
out_xml( '\t\tVar OriginalPriceD2 = $' + spl[5] + '.Price\r\n')
out_xml( '\t\tVar OriginalPriceD3 = $' + spl[6] + '.Price\r\n')
elif passion_mint:
out_xml( '\t\tVar PriceD1 = ' + str(GetPrice(passion_mint_fix_price, pd_code_1)) + '\r\n')
out_xml( '\t\tVar PriceD2 = ' + str(GetPrice(passion_mint_fix_price, pd_code_2)) + '\r\n')
out_xml( '\t\tVar PriceD3 = ' + str(GetPrice(passion_mint_fix_price, pd_code_3)) + '\r\n')
out_xml( '\t\tVar OriginalPriceD1 = $' + spl[4] + '.Price\r\n')
out_xml( '\t\tVar OriginalPriceD2 = $' + spl[5] + '.Price\r\n')
out_xml( '\t\tVar OriginalPriceD3 = $' + spl[6] + '.Price\r\n')
else:
out_xml( '\t\tVar PriceD1 = $' + spl[4] + '.Price\r\n')
out_xml( '\t\tVar PriceD2 = $' + spl[5] + '.Price\r\n')
@ -573,6 +604,10 @@
if from_cocoa77:
out_xml( '\t\tVar FromCocoa77Pro = 1 \r\n')
if passion_mint:
out_xml( '\t\tVar FromPassionMintPro = 1 \r\n')
out_xml( '\t\t\r\n')
@ -712,6 +747,8 @@
out_xml( '\t<Value> StringFmt( ' + str(GetPrice(wednesday_melon_prices, spl[4])) + ' , DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
elif cocoa77_fix_price:
out_xml( '\t<Value> StringFmt( $' + spl[4] + '.Price - 7 , DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
elif passion_mint:
out_xml( '\t<Value> StringFmt( ' + str(GetPrice(passion_mint_fix_price, spl[4])) + ' , DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
else:
out_xml( '\t<Value> StringFmt( $' + spl[4] + '.Price , DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
else:
@ -725,6 +762,8 @@
out_xml( '\t<Value> "฿' + str(GetPrice(wednesday_melon_prices, spl[4])) + '" </Value>\r\n')
elif cocoa77_fix_price:
out_xml( '\t<Value> Var( "฿" + $' + spl[4] + '.Price - 7 ) </Value>\r\n')
elif passion_mint:
out_xml( '\t<Value> "฿' + str(GetPrice(passion_mint_fix_price, spl[4])) + '" </Value>\r\n')
else:
out_xml( '\t<Value> Var( "฿" + $' + spl[4] + '.Price ) </Value>\r\n')
out_xml( '\t</Text>\r\n')
@ -783,6 +822,8 @@
out_xml( '\t<Value> StringFmt( ' + str(GetPrice(wednesday_melon_prices, spl[5])) + ' , DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
elif cocoa77_fix_price:
out_xml( '\t<Value> StringFmt( $' + spl[5] + '.Price - 7, DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
elif passion_mint:
out_xml( '\t<Value> StringFmt( ' + str(GetPrice(passion_mint_fix_price, spl[5])) + ' , DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
else:
out_xml( '\t<Value> StringFmt( $' + spl[5] + '.Price , DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
else:
@ -796,6 +837,8 @@
out_xml( '\t<Value> "฿' + str(GetPrice(wednesday_melon_prices, spl[5])) + '" </Value>\r\n')
elif cocoa77_fix_price:
out_xml( '\t<Value> Var( "฿" + $' + spl[5] + '.Price - 7 ) </Value>\r\n')
elif passion_mint:
out_xml( '\t<Value> "฿' + str(GetPrice(passion_mint_fix_price, spl[5])) + '" </Value>\r\n')
else:
out_xml( '\t<Value> Var( "฿" + $' + spl[5] + '.Price ) </Value>\r\n')
out_xml( '\t</Text>\r\n')
@ -870,6 +913,8 @@
out_xml( '\t<Value> StringFmt( ' + str(GetPrice(wednesday_melon_prices, spl[6])) + ' , DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
elif cocoa77_fix_price:
out_xml( '\t<Value> StringFmt( $' + spl[6] + '.Price - 7, DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
elif passion_mint:
out_xml( '\t<Value> StringFmt( ' + str(GetPrice(passion_mint_fix_price, spl[6])) + ' , DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
else:
out_xml( '\t<Value> StringFmt( $' + spl[6] + '.Price , DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
else:
@ -883,6 +928,8 @@
out_xml( '\t<Value> "฿' + str(GetPrice(wednesday_melon_prices, spl[6])) + '" </Value>\r\n')
elif cocoa77_fix_price:
out_xml( '\t<Value> Var( "฿" + $' + spl[6] + '.Price - 7 ) </Value>\r\n')
elif passion_mint:
out_xml( '\t<Value> "฿' + str(GetPrice(passion_mint_fix_price, spl[6])) + '" </Value>\r\n')
else:
out_xml( '\t<Value> Var( "฿" + $' + spl[6] + '.Price ) </Value>\r\n')
out_xml( '\t</Text>\r\n')
@ -1086,6 +1133,13 @@
out_xml( '\t\tVar OriginalPriceD1 = $' + spl[8] + '.Price\r\n')
out_xml( '\t\tVar OriginalPriceD2 = $' + spl[9] + '.Price\r\n')
out_xml( '\t\tVar OriginalPriceD3 = $' + spl[10] + '.Price\r\n')
elif passion_mint:
out_xml( '\t\tVar PriceD1 = ' + str(GetPrice(passion_mint_fix_price, pd_code_1)) + '\r\n')
out_xml( '\t\tVar PriceD2 = ' + str(GetPrice(passion_mint_fix_price, pd_code_2)) + '\r\n')
out_xml( '\t\tVar PriceD3 = ' + str(GetPrice(passion_mint_fix_price, pd_code_3)) + '\r\n')
out_xml( '\t\tVar OriginalPriceD1 = $' + spl[8] + '.Price\r\n')
out_xml( '\t\tVar OriginalPriceD2 = $' + spl[9] + '.Price\r\n')
out_xml( '\t\tVar OriginalPriceD3 = $' + spl[10] + '.Price\r\n')
else:
out_xml( '\t\tVar PriceD1 = $' + spl[8] + '.Price\r\n')
out_xml( '\t\tVar PriceD2 = $' + spl[9] + '.Price\r\n')
@ -1191,6 +1245,9 @@
if from_cocoa77:
out_xml( '\t\tVar FromCocoa77Pro = 1 \r\n')
if passion_mint:
out_xml( '\t\tVar FromPassionMintPro = 1 \r\n')
out_xml( '\t\t\r\n')
out_xml( '\t\t\r\n')
@ -1303,6 +1360,8 @@
out_xml( '\t<Value> StringFmt( ' + str(GetPrice(wednesday_melon_prices, spl[8])) + ' , DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
elif cocoa77_fix_price:
out_xml( '\t<Value> StringFmt( $' +spl[8] + '.Price - 7 , DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
elif passion_mint:
out_xml( '\t<Value> StringFmt( ' + str(GetPrice(passion_mint_fix_price, spl[8])) + ' , DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
else:
out_xml( '\t<Value> StringFmt( $' +spl[8] + '.Price , DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
else:
@ -1310,6 +1369,8 @@
out_xml( '\t<Value> "฿' + str(GetPrice(wednesday_melon_prices, spl[8])) + '" </Value>\r\n')
elif cocoa77_fix_price:
out_xml( '\t<Value> Var( "฿" + $' + spl[8] + '.Price - 7 ) </Value>\r\n')
elif passion_mint:
out_xml( '\t<Value> "฿' + str(GetPrice(passion_mint_fix_price, spl[8])) + '" </Value>\r\n')
else:
out_xml( '\t<Value> Var( "฿" + $' + spl[8] + '.Price ) </Value>\r\n')
@ -1360,6 +1421,8 @@
out_xml( '\t<Value> StringFmt( ' + str(GetPrice(wednesday_melon_prices, spl[9])) + ' , DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
elif cocoa77_fix_price:
out_xml( '\t<Value> StringFmt( $' +spl[9] + '.Price - 7, DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
elif passion_mint:
out_xml( '\t<Value> StringFmt( ' + str(GetPrice(passion_mint_fix_price, spl[9])) + ' , DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
else:
out_xml( '\t<Value> StringFmt( $' +spl[9] + '.Price , DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
else:
@ -1367,6 +1430,8 @@
out_xml( '\t<Value> "฿' + str(GetPrice(wednesday_melon_prices, spl[9])) + '" </Value>\r\n')
elif cocoa77_fix_price:
out_xml( '\t<Value> Var( "฿" + $' + spl[9] + '.Price - 7 ) </Value>\r\n')
elif passion_mint:
out_xml( '\t<Value> "฿' + str(GetPrice(passion_mint_fix_price, spl[9])) + '" </Value>\r\n')
else:
out_xml( '\t<Value> Var( "฿" + $' + spl[9] + '.Price ) </Value>\r\n')
@ -1416,6 +1481,8 @@
out_xml( '\t<Value> StringFmt( ' + str(GetPrice(wednesday_melon_prices, spl[10])) + ' , DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
elif cocoa77_fix_price:
out_xml( '\t<Value> StringFmt( $' +spl[10] + '.Price - 7, DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
elif passion_mint:
out_xml( '\t<Value> StringFmt( ' + str(GetPrice(passion_mint_fix_price, spl[10])) + ' , DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
else:
out_xml( '\t<Value> StringFmt( $' +spl[10] + '.Price , DisplayFormat, PreScaleConvertShow) </Value>; test\r\n')
else:
@ -1423,6 +1490,8 @@
out_xml( '\t<Value> "฿' + str(GetPrice(wednesday_melon_prices, spl[10])) + '" </Value>\r\n')
elif cocoa77_fix_price:
out_xml( '\t<Value> Var( "฿" + $' + spl[10] + '.Price - 7 ) </Value>\r\n')
elif passion_mint:
out_xml( '\t<Value> "฿' + str(GetPrice(passion_mint_fix_price, spl[10])) + '" </Value>\r\n')
else:
out_xml( '\t<Value> Var( "฿" + $' + spl[10] + '.Price ) </Value>\r\n')

2
xml/menutab/page_catalog.xml
View file

@ -547,7 +547,7 @@
<Volume> SoundVolume </Volume>
<EventClick>
; eng
Open "ROOT/taobin_project/xml/page_check_member.xml"
Open "ROOT/taobin_project/xml/page_before_check_member.xml"
</EventClick>
</Button>

36
xml/menutab/page_catalog_group_pro_.skt Normal file
View file

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

3347
xml/menutab/page_catalog_group_pro_.xml Normal file
View file

File diff suppressed because it is too large Load diff

36
xml/menutab/page_catalog_group_pro_7up_lucky_draw_x2.skt Normal file
View file

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

10197
xml/menutab/page_catalog_group_pro_7up_lucky_draw_x2.xml Normal file
View file

File diff suppressed because it is too large Load diff

36
xml/menutab/page_catalog_group_pro_passion_mint.skt Normal file
View file

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

3347
xml/menutab/page_catalog_group_pro_passion_mint.xml Normal file
View file

File diff suppressed because it is too large Load diff

1603
xml/page_NewBrewing3.xml Normal file
View file

File diff suppressed because it is too large Load diff

993
xml/page_NewBrewing3Conti.xml Normal file
View file

@ -0,0 +1,993 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
Var ActionOKCase = 0
Var Seeker = "curr"
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping2_en"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping2"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
Var next_pic_bn = DirImage + "/bn_add_order.png"
Var next_pic_bp = DirImage + "/bp_add_order.png"
Var text_next_order = DirImage + "/text_next_order.png"
Var topup_credit_bn = DirImage + "/bn_topup_credit.png"
Var topup_credit_bp = DirImage + "/bp_topup_credit.png"
Var EnableTopupCreditBetweenBrew = "Enable"
If NextOrder = "true" Then
Var EnableSelectMenuBetweenBrew = "Invisible"
Else
Var EnableSelectMenuBetweenBrew = "Enable"
EndIf
If GetFreeFromError = 1 Then
Var EnableSelectMenuBetweenBrew = "Invisible"
Var EnableTopupCreditBetweenBrew = "Invisible"
EndIf
If EnableSelectMenuBetweenBrew = "Enable" Then
Var EnableSelectMenuBetweenBrewBlink = "Enable"
Else
Var EnableSelectMenuBetweenBrewBlink = "Invisible"
EndIf
Var bg_strawlid = DirImage2 + "/bg_strawlidSmall.png"
If Seeker.thankLidFlag = 1 Then
Var bg_strawlid = DirImage2 + "/bg_strawSmall.png"
Var LidStateX = "Invisible"
EndIf
Var TimeoutWaitPay = 10
Var PayReference = ""
Var PayType = "newpay"
Var MachineState_Result = 0
If LastMakeDrinkResult = "success" Then
Var MachineState_Result = 1
EndIf
If LastMakeDrinkResult = "fail" Then
Var MachineState_Result = 2
EndIf
Var ExtendData = Seeker.ExtendData
Var SelectDrink = Seeker.selected_a_drink
Var ServiceAmount2 = Seeker.ServiceAmount2
Var PriceDrink = Seeker.ServiceAmount2
DEBUGVAR Seeker
DEBUGVAR Seeker.selected_a_drink
DEBUGVAR Seeker.ServiceAmount2
DEBUGVAR Seeker.CodeNumber
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
; On open move from page_brewing3.xml
Var countClick2 = 0
Var Timeout = 0
Var PrintCoinAmount = 0
DEBUGVAR Seeker.TNumberTaobinMember
DEBUGVAR Seeker.PointTaobinStr
If LedLidBlink = "true" Then
Var LedLidBlink = "no"
LED LedDoorLid Blink 255 255 255 255
EndIf
Var CreditReference = Seeker.CreditReferenceTmp
Var VendingDiscount = Seeker.VendingDiscount
Var VendingCampaign = Seeker.VendingCampaign
Var TxReference = Seeker.TxRef1
DEBUGVAR TxReference
Var DirImage = "ROOT/taobin_project/image/complete/"
Var next_pic_bg = DirImage + "/Preparing.png"
Var bg_strawlid_ST = "Invisible"
Var bg_strawProblem_ST = "Invisible"
Var StrawStateX = "Invisible"
Var LidStateX = "Invisible"
If Seeker.CreditCard = 1 Then
Var EnableSelectMenuBetweenBrew = "Invisible"
Var EnableTopupCreditBetweenBrew = "Invisible"
EndIf
If MachineState_Result > 0 Then
Var EnableTopupCreditBetweenBrew = "Invisible"
EndIf
Var CreditCardVoid = 0
DEBUGVAR ButtonGameCountDownState
</EventOpen>
<EventActionOk>
If CreditCardVoid = 1 Then
Var ChangeOK = 2
EndIf
If ActionOKCase = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
DEBUGVAR SessionID2
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.VendingCode
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.CodeNumber
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
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 > 142."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
Else
SAVELOG "back_to_main from line > 147."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
Else
EndIf
</EventActionOk>
<EventActionError>
If ActionOKCase = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
DEBUGVAR SessionID2
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.VendingCode
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.CodeNumber
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
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."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
Else
SAVELOG "back_to_main from line > 173."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
Else
EndIf
</EventActionError>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If MOVE_CUP_TO_DOOR = "true" Then
Var MOVE_CUP_TO_DOOR = "false"
EndIf
If BREW_COUNT_DOWN_FROM_APP = "on" Then
Var CountDownBrewing = BREW_CNT
Else
If CountDownBrewing > 0 Then
Var CountDownBrewing = CountDownBrewing - 1
EndIf
Endif
If Simulation = "true" Then
If CountDownBrewing = 0 Then
;Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
EndIf
If Timeout = 4 Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sounds/music1.mp3"
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
If Timeout > 540 Then
SAVELOG "back_to_main from line > 217."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
If Timeout > 480 Then
Var MachineState_Result = 2
EndIf
If ChangeFlag = 1 Then
Var ChangeTimeout = ChangeTimeout + 1
EndIf
If waitAckPay = 2 Then
If Timeout > TimeoutWaitPay Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
DEBUGVAR SessionID2
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.VendingCode
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.CodeNumber
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0
EndIf
SAVELOG "back_to_main from line > 309."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
EndIf
If ChangeOK = 2 Then
If ActionOKCase = 0 Then
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
If Seeker.TNumberTaobinMember = "" Then
Else
Var TelephoneNumber = Seeker.TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
EndIf
Var ServiceType = "coffee-refund"
Var ServiceCredit = SelectDrink
Var SuggestID = ""
Var SessionID2 = ""
Var PayDetail = ""
Var PayDetail2 = ""
Var VendingOrderID = Seeker.ORDER_ID
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Var waitAckPay = 2
Var TimeoutWaitPay = 45
Var Timeout = 5
Var ActionOKCase = 1
EndIf
EndIf
If ChangeTimeout > 30 Then
If ActionOKCase = 0 Then
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
If Seeker.TNumberTaobinMember = "" Then
Else
Var TelephoneNumber = Seeker.TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
EndIf
Var ServiceType = "coffee-refund"
Var ServiceCredit = SelectDrink
Var SuggestID = ""
Var SessionID2 = ""
Var PayDetail = ""
Var PayDetail2 = ""
Var VendingOrderID = Seeker.ORDER_ID
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Var waitAckPay = 2
Var TimeoutWaitPay = 45
Var Timeout = 5
Var ActionOKCase = 1
EndIf
EndIf
If ChangeOK = 3 Then
If ActionOKCase = 0 Then
Var ActionOKCase = 1
If Seeker.CodeChannel = 0 Then
SAVELOG "back_to_main from line > 391."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
Var waitAckPay = 2
Var TimeoutWaitPay = 45
Var Timeout = 5
EndIf
EndIf
If MachineState_Result = 1 Then
;Var MachineState_Result = 2
EndIf
If MachineState_Result = 1 Then
DEBUGVAR PaySuccessWithDaemonTask
If waitAckPay = 0 Then
Var waitAckPay = 0
Var Timeout = 0
If Seeker.PayWithQR = 0 Then
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
EndIf
Else
EndIf
EndIf
__CMD "clear-stock-data" 0 "-" "-"
Var ServiceSuccess = "yes"
If waitAckPay = 0 Then
SAVELOG "waitAckPay = 0 Timeout"
Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
EndIf
If MachineState_Result = 2 Then
SAVELOG MachineStage
If ErrTimeout = 0 Then
Var ErrTimeout = 1
If Seeker.PayWithQR = 0 Then
If Seeker.CreditCard = 1 Then
CashlessReq FAIL
Var ChangeFlag = 1
Var CreditCardVoid = 1
Else
If Seeker.CodeChannel = 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
If Seeker.StoreCreditFlag = 1 Then
Var ChangeOK = 2
Else
If GetFreeFromError = 1 Then
Var ChangeOK = 2
Else
Change ServiceAmount2
EndIf
EndIf
EndIf
Else
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign
If Seeker.StoreCreditFlag = 1 Then
Var ChangeOK = 2
Else
Change ServiceAmount3
EndIf
EndIf
EndIf
EndIf
Else
Var ChangeOK = 3
EndIf
EndIf
EndIf
DEBUGVAR LastMakeDrinkResult
DEBUGVAR MachineStage
If LastMakeDrinkResult = "success" Then
Var MachineState_Result = 1
EndIf
If LastMakeDrinkResult = "fail" Then
Var MachineState_Result = 2
EndIf
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
If RoadShow = "true" Then
Open "ROOT/taobin_project/xml/page_back_to_error.xml"
Else
Var MachineState_Result = 2
EndIf
EndIf
If MachineState_Result > 0 Then
Var EnableSelectMenuBetweenBrew = "Invisible"
Var EnableTopupCreditBetweenBrew = "Invisible"
EndIf
If EnableSelectMenuBetweenBrew = "Enable" Then
If EnableSelectMenuBetweenBrewBlink = "Enable" Then
Var EnableSelectMenuBetweenBrewBlink = "Invisible"
Else
Var EnableSelectMenuBetweenBrewBlink = "Enable"
EndIf
Else
Var EnableSelectMenuBetweenBrewBlink = "Invisible"
EndIf
DEBUGVAR CountUpBrewing
; animation video loop
If AnimationOn = "true" Then
Var CountUpBrewing = CountUpBrewing + 1
Var SlotVideo = CountUpBrewing / AnimationVideoPlayTime
If PreviseStepVideo = SlotVideo Then
;SAVELOG SlotVideo
Else
Var PreviseStepVideo = SlotVideo
;SAVELOG PreviseStepVideo
;SAVELOG SlotVideo
;SAVELOG CountUpBrewing
;Var CountDownVideoTime = CountDownVideoTimeReload
Var StepVideo = SlotVideo + 2
;SAVELOG StepVideo
If StepVideo = 1 Then
Var videoID = VideoID1
EndIf
If StepVideo = 2 Then
Var videoID = VideoID2
EndIf
If StepVideo = 3 Then
Var videoID = VideoID3
EndIf
If StepVideo = 4 Then
Var videoID = VideoID4
EndIf
If StepVideo = 5 Then
Var videoID = VideoID5
EndIf
If StepVideo = 6 Then
Var videoID = VideoID6
EndIf
If StepVideo = 7 Then
Var videoID = VideoID7
EndIf
If StepVideo = 8 Then
Var videoID = VideoID8
EndIf
If StepVideo = 9 Then
Var videoID = VideoID9
EndIf
;SAVELOG videoID
If videoID = 0 Then
Else
If videoID = "---" Then
Else
Var VideoPlayFile = VideoPath
Var VideoPlayFile = VideoPlayFile + VideoFileBegin
Var VideoPlayFile = VideoPlayFile + videoID
Var VideoPlayFile = VideoPlayFile + VideoFileEnd
Var PictureFile = PicturePath
Var PictureFile = PictureFile + PictureBegin
Var PictureFile = PictureFile + videoID
Var PictureFile = PictureFile + PictureEnd
DEBUGVAR VideoPlayFile
DEBUGVAR PictureFile
EndIf
EndIf
EndIf
EndIf
If IgnoreNetCore = "true" Then
If CountDownBrewing = 0 Then
SAVELOG "CountDownBrewing = 0"
Open "ROOT/taobin_project/xml/page_drinkok.xml"
EndIf
EndIf
If ButtonGameCountDown > 0 Then
If ButtonGameCountDown = 1 Then
Var ButtonGameCountDownState = "Invisible"
Var ButtonGamePressToPlayState = "Enable"
EndIf
Var ButtonGameCountDown = ButtonGameCountDown - 1
DEBUGVAR ButtonGameCountDown
EndIf
DEBUGVAR BREW_CNT
DEBUGVAR ButtonGamePressToPlayState
If BREW_CNT > 60 Then
Else
Var ButtonGamePressToPlayState = "Invisible"
Var Game01Enable = 0
EndIf
Refresh
TimerReset
</EventTimeout>
<EventMachine>
</EventMachine>
; this copy in file menu_brew2.xml and menu_lid_straw.xml
<EventChangeStatus>
If ChangeStatus = "payout-end" Then
If ChangeFlag = 1 Then
Var ChangeOK = 2
EndIf
EndIf
</EventChangeStatus>
<Video>
<X> 0 </X>
<Y> 380 </Y>
<Width> 1080</Width>
<Height> 840 </Height>
<Refresh> "Reload" </Refresh>
<Loop> "true" </Loop>
<Filename> VideoPlayFile </Filename>
</Video>
;include="ROOT/taobin_project/inc/video.inc"
;<Image>
;<X> 0 </X>
;<Y> 0 </Y>
;<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
;</Image>
<Image>
<X> 60 </X>
<Y> 1290 </Y>
<Filename> PictureFile</Filename>
</Image>
;<Image>
;<X> 60 </X>
;<Y> 1649 </Y>
;<Filename> BottomText </Filename>
;</Image>
<Image>
<X> 0 </X>
<Y> 1655 </Y>
<State>EnableSelectMenuBetweenBrew</State>
<Filename> text_next_order </Filename>
<Image>
<Image>
<X> 835 </X>
<Y> 1735 </Y>
<State>EnableSelectMenuBetweenBrewBlink</State>
<Filename> "ROOT/taobin_project/image/page_payment/arrow_1.png" </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>
<Button>
<X> 792 </X>
<Y> 1787 </Y>
<State>EnableSelectMenuBetweenBrew</State>
<Filename> next_pic_bn </Filename>
<FilenamePress> next_pic_bp </FilenamePress>
<EventClick>
If MachineState_Result = 0 Then
SAVELOG "User click next button"
Var Seeker = "next"
Var MultiPayEnable = "false"
;CoinPause
Var PayCredit = 0
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
</EventClick>
</Button>
<Button>
<X> 262 </X>
<Y> 1787 </Y>
<State>EnableTopupCreditBetweenBrew</State>
<Filename> topup_credit_bn </Filename>
<FilenamePress> topup_credit_bp </FilenamePress>
<EventClick>
If MachineState_Result = 0 Then
If NextOrder = "true" Then
Var topupCreditWithCash = "Disable"
Var SeekerTmp = "next"
Var TelephoneNumber = SeekerTmp.TNumberTaobinCredit
Else
Var topupCreditWithCash = "Enable"
Var SeekerTmp = "curr"
Var TelephoneNumber = SeekerTmp.TNumberTaobinCredit
;CoinPause
EndIf
SAVELOG "User click topup-credit button"
Var Seeker = "topupCredit"
Var PayCredit = 0
If TelephoneNumber = "" Then
Open "ROOT/taobin_project/xml/page_topup_credit.xml"
Else
Open "ROOT/taobin_project/xml/page_topup_credit-ChooseNumber.xml"
EndIf
EndIf
</EventClick>
</Button>
<GIF>
<X> 526 </X>
<Y> 1680 </Y>
<Width> 241 </Width>
<Height> 204 </Height>
<State> ButtonGamePressToPlayState </State>
<Filename> "ROOT/taobin_project/app/game/TAMATIAN-01.gif" </Filename>
</GIF>
<Image>
<X> 526 </X>
<Y> 1680 </Y>
<Width> 241 </Width>
<Height> 204 </Height>
<State> ButtonGamePressToPlayState </State>
<EventClick>
DEBUGVAR Game01Enable
SAVELOG "Press play game conti"
Var Game01Enable = 0
Var ButtonGamePressToPlayState = "Invisible"
RunApp "com.NDF.taobin"
</EventClick>
</Image>
<Button>
<X> 10 </X>
<Y> 500 </Y>
<State>bg_strawlid_ST</State>
<Filename> bg_strawlid </Filename>
<EventClick>
</EventClick>
</Button>
; straw left
<Button>
<X> 50 </X>
<Y> 572 </Y>
<State> StrawStateX </State>
<Mode> "No" </Mode>
<Filename> "ROOT/taobin_project/image/topping2/bn_straw.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/bp_straw.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/topping2/bd_straw.png" </FilenameDisable>
<EventClick>
SAVELOG "Click straw cb"
If StrawStateX = "Press" Then
;Var StrawStateX = "Enable"
Else
Var StrawStateX = "Press"
Var Seeker.strawAction = 1
EndIf
Refresh
</EventClick>
</Button>
<Button>
<X> 377 </X>
<Y> 579 </Y>
<State> StrawStateX </State>
<Mode> "No" </Mode>
<Filename> "ROOT/taobin_project/image/topping2/cb_notcheck.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/cb_checked.png" </FilenamePress>
<FilenameDisable> Var( DirImage + "/cb_checkdis.png" ) </FilenameDisable>
<EventClick>
SAVELOG "Click straw cb"
If StrawStateX = "Press" Then
;Var StrawStateX = "Enable"
Else
Var StrawStateX = "Press"
Var Seeker.strawAction = 1
EndIf
Refresh
</EventClick>
</Button>
; LID left
<Button>
<X> 50 </X>
<Y> 648 </Y>
<State> LidStateX </State>
<Mode> "No" </Mode>
<Filename> "ROOT/taobin_project/image/topping2/bn_lid.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/bp_lid.png" </FilenamePress>
<FilenameDisable> Var( DirImage + "/bd_lid.png" ) </FilenameDisable>
<EventClick>
If Seeker.thankLidFlag = 0 Then
SAVELOG "Click LID pic"
If LidStateX = "Press" Then
;Var LidStateX = "Enable"
Else
Var LidStateX = "Press"
Var Seeker.lidAction = 1
EndIf
DEBUGVAR SugarState1
Refresh
EndIf
</EventClick>
</Button>
<Button>
<X> 377 </X>
<Y> 655 </Y>
<State> LidStateX </State>
<Mode> "No" </Mode>
<Filename> "ROOT/taobin_project/image/topping2/cb_notcheck.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/topping2/cb_checked.png" </FilenamePress>
<FilenameDisable> Var( DirImage + "/cb_checkdis.png" ) </FilenameDisable>
<EventClick>
If Seeker.thankLidFlag = 0 Then
SAVELOG "Click LID cb"
If LidStateX = "Press" Then
;Var LidStateX = "Enable"
Else
Var LidStateX = "Press"
Var Seeker.lidAction = 1
EndIf
Refresh
EndIf
</EventClick>
</Button>
<Button>
<X> 526 </X>
<Y> 1787 </Y>
<State> ButtonGameCountDownState </State>
<Filename> "ROOT/taobin_project/image/page_doing/bn_game_cnt_down.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_doing/bn_game_cnt_down.png" </FilenamePress>
<EventClick>
</EventClick>
<Text>
<X> 0 </X>
<Y> 0 </Y>
<Size> 64 </Size>
<Align> Center </Align>
<Width> 240 </Width>
<Font> KanitBoldTTF </Font>
<Color> 0xFFFFFF </Color>
<State> ButtonGameCountDownState </State>
<Value> ButtonGameCountDown </Value>
</Text>
</Button>
</Popup>

557
xml/page_NewCannotConti.xml Normal file
View file

@ -0,0 +1,557 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Sound> "ROOT/taobin_project/sounds/chaching.mp3" </Sound>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var CountDownThankyou = 4
Var CountDownBrewing = BrewTime
Var CountUpBrewing = 0
SAVELOG BrewTime
Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = 0
Var ChangeFlag = 0
Var ErrTimeout = 0
Var ActionOKCase = 0
Var ChangeTimeout = 0
Var ChangeOK = 0
Var MachineState_Result = 0
Var FailedCount = 0
Var ChangeAmountSum = 0
Var Tel_Confirm_Flag = 0
Var LastMakeDrinkResult = "-"
DEBUGVAR MachineStage
DEBUGVAR NextOrderStatus
If show_eng = "true" Then
Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2_eng.png"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Var BottomText = PicturePath + "text_bottom_eng.png"
Var TextErrorShow = "Sorry, unable to produce the next order"
Else
Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
Var BottomText = PicturePath + "text_bottom_thai2.png"
Var TextErrorShow = "เต่าบินขัดข้องไม่สามารถทำเครื่องดื่มได้"
EndIf
DEBUGVAR StarwState
DEBUGVAR LidState
DEBUGVAR BottomText
DEBUGVAR Seeker.TNumberTaobinCredit
DEBUGVAR TelephoneNumber
DEBUGVAR Seeker.StoreCreditFlag
DEBUGVAR Seeker
DEBUGVAR Seeker.selected_a_drink
DEBUGVAR Seeker.ServiceAmount2
If Seeker = "curr" Then
SAVELOG " cannot on curr"
Var ExtendData = Seeker.ExtendData
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
DEBUGVAR SessionID2
Topping "ClearNextOrder" "-"
EndIf
Var LastMakeDrinkResult = "fail"
Var NextOrderStatus = "Disable"
DEBUGVAR LastMakeDrinkResult
DEBUGVAR MachineStage
DEBUGVAR NextOrderStatus
DEBUGVAR error_code_stop_now
; page_brewing3.xml
DEBUGVAR MachineStage
Var PayReference = ""
Var PayType = ""
Var SelectDrink = Seeker.selected_a_drink
Var ServiceAmount2 = Seeker.ServiceAmount2
Var PriceDrink = Seeker.ServiceAmount2
; On open move from page_brewing3.xml
Var countClick2 = 0
Var Timeout = 0
Var PrintCoinAmount = 0
Var waitAckPay = 0
Var VendingTSIDTmp = ""
Var VendingTSIDProblem = ""
Var CreditReference = ""
Var PayCredit = 0
If Seeker.TNumberTaobinCredit = "" Then
If Seeker.TNumberTaobinMember = "" Then
Var TelephoneNumberProblem = ""
Else
Var TelephoneNumberProblem = Seeker.TNumberTaobinMember
EndIf
Else
Var TelephoneNumberProblem = Seeker.TNumberTaobinCredit
EndIf
If TelephoneNumberProblem = "" Then
;Var TelephoneNumberProblem = ""
Var ShowTextNumber = "Enable"
Var Tel_Confirm_State = "Disable"
Else
Var ShowTextNumber = "Invisible"
Var Tel_Confirm_State = "Enable"
EndIf
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping2_en"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping2"
EndIf
DEBUGVAR show_eng
If LastMakeDrinkResult = "success" Then
Var MachineState_Result = 1
EndIf
If LastMakeDrinkResult = "fail" Then
Var MachineState_Result = 2
EndIf
DEBUGVAR VendingCampaign
Var CreditCardVoid = 0
</EventOpen>
<EventActionOk>
If CreditCardVoid = 1 Then
Var ChangeOK = 2
EndIf
If ActionOKCase = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.VendingCode
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.CodeNumber
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
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 > 142."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
Else
SAVELOG "back_to_main from line > 147."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
Else
EndIf
</EventActionOk>
<EventActionError>
If ActionOKCase = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.VendingCode
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.CodeNumber
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
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."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
Else
SAVELOG "back_to_main from line > 173."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
Else
EndIf
</EventActionError>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 540 Then
SAVELOG "back_to_main from line > 217."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
If Timeout > 480 Then
Var MachineState_Result = 2
EndIf
If ChangeFlag = 1 Then
Var ChangeTimeout = ChangeTimeout + 1
EndIf
If waitAckPay = 2 Then
If Timeout > 10 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.VendingCode
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.CodeNumber
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0
EndIf
SAVELOG "back_to_main from line > 309."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
EndIf
If ChangeOK = 2 Then
If ActionOKCase = 0 Then
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
If Seeker.TNumberTaobinMember = "" Then
Else
Var TelephoneNumber = Seeker.TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
EndIf
Var ServiceType = "coffee-refund"
Var ServiceCredit = SelectDrink
Var SuggestID = ""
Var SessionID2 = ""
Var PayDetail = ""
Var PayDetail2 = ""
Var VendingOrderID = Seeker.ORDER_ID
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Var waitAckPay = 2
Var Timeout = 5
Var ActionOKCase = 1
EndIf
EndIf
If ChangeTimeout > 30 Then
If ActionOKCase = 0 Then
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
If Seeker.TNumberTaobinMember = "" Then
Else
Var TelephoneNumber = Seeker.TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
EndIf
Var ServiceType = "coffee-refund"
Var ServiceCredit = SelectDrink
Var SuggestID = ""
Var SessionID2 = ""
Var PayDetail = ""
Var PayDetail2 = ""
Var VendingOrderID = Seeker.ORDER_ID
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Var waitAckPay = 2
Var Timeout = 5
Var ActionOKCase = 1
EndIf
EndIf
If ChangeOK = 3 Then
If ActionOKCase = 0 Then
Var ActionOKCase = 1
If Seeker.CodeChannel = 0 Then
SAVELOG "back_to_main from line > 391."
Open "ROOT/taobin_project/xml/page_drinkfail2.xml"
EndIf
Var waitAckPay = 2
Var Timeout = 5
EndIf
EndIf
If MachineState_Result = 2 Then
SAVELOG MachineStage
If ErrTimeout = 0 Then
Var ErrTimeout = 1
If Seeker.PayWithQR = 0 Then
If Seeker.CreditCard = 1 Then
CashlessReq FAIL
Var ChangeFlag = 1
Var CreditCardVoid = 1
Else
If Seeker.CodeChannel = 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
If Seeker.StoreCreditFlag = 1 Then
Var ChangeOK = 2
Else
If GetFreeFromError = 1 Then
Var ChangeOK = 2
Else
Change ServiceAmount2
EndIf
EndIf
EndIf
Else
If CoinAmount > 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign
If Seeker.StoreCreditFlag = 1 Then
Var ChangeOK = 2
Else
Change ServiceAmount3
EndIf
EndIf
Else
Var ChangeOK = 2
EndIf
EndIf
EndIf
Else
Var ChangeOK = 3
EndIf
EndIf
EndIf
Refresh
TimerReset
</EventTimeout>
;<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"
<Text>
<X> 0 </X>
<Y> 427 </Y>
<Width> 1080 </Width>
<Align> Center </Align>
<Size> 46 </Size>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Refresh> "Enable" </Refresh>
<Value> TextErrorShow </Value>
</Text>
<Image>
<X> 375 </X>
<Y> 623 </Y>
<Width> 331 </Width>
<Height> 435 </Height>
<Filename> Seeker.PictureDrink </Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 938 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 72 </Size>
<Font> KanitMediumTTF </Font>
<Color> 0x513C2F </Color>
<Value> Seeker.showname </Value>
</Text>
<EventChangeStatus>
If ChangeStatus = "payout-end" Then
If ChangeFlag = 1 Then
Var ChangeOK = 2
EndIf
EndIf
</EventChangeStatus>
</Popup>

127
xml/page_before_check_member.xml Normal file
View file

@ -0,0 +1,127 @@
<Popup>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
Var Timeout = 0
Var OpenTopupCredit = 0
Var OpenCheckCoupon = 0
; Default language (Thai).
Var show_btn = "ROOT/taobin_project/image/page2/bn_eng_lang_2.png"
Var text = "เลือกบริการที่คุณต้องการ"
Var Extension = ".png"
; language (Eng).
If show_eng = "true" Then
Var show_btn = "ROOT/taobin_project/image/page2/bn_thai_lang_2.png"
Var text = "Manage your Tao Bin account"
Var Extension = "_en.png"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 30 Then
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inc/video.inc"
; back
<Button>
<X> 19 </X>
<Y> 381 </Y>
<Filename> "ROOT/taobin_project/image/page2/bn_back_arrow_2.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page2/bn_back_arrow_2.png" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_catalog.xml"
</EventClick>
</Button>
<Button>
<X> 990 </X>
<Y> 381 </Y>
<Filename> show_btn </Filename>
<FilenamePress> show_btn </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; eng
If show_eng = "true" Then
Var show_eng = "false"
Else
Var show_eng = "true"
EndIf
Open CurrentXMLFileName2
</EventClick>
</Button>
<Text>
<X> 199 </X>
<Y> 560 </Y>
<Width> 680 </Width>
<Height> 80 </Height>
<Font> KanitRegularTTF </Font>
<Size> 51 </Size>
<Color> 0x513C2F </Color>
<Align> center-vertical-horizontal </Align>
<Value> text </Value>
</Text>
<Button>
<X> 286 </X>
<Y> 824 </Y>
<Filename> Var( "ROOT/taobin_project/image/event/lucky_draw_ads/bn_topup_credit" + Extension ) </Filename>
<FilenamePress> Var( "ROOT/taobin_project/image/event/lucky_draw_ads/bp_topup_credit" + Extension ) </FilenamePress>
<FilenameDisable> Var( "ROOT/taobin_project/image/event/lucky_draw_ads/bp_topup_credit" + Extension ) </FilenameDisable>
<EventClick>
Var OpenTopupCredit = 1
Open "ROOT/taobin_project/xml/page_check_member.xml"
</EventClick>
</Button>
<Button>
<X> 286 </X>
<Y> 976 </Y>
<Filename> Var( "ROOT/taobin_project/image/event/lucky_draw_ads/bn_check_coupon" + Extension ) </Filename>
<FilenamePress> Var( "ROOT/taobin_project/image/event/lucky_draw_ads/bp_check_coupon" + Extension ) </FilenamePress>
<FilenameDisable> Var( "ROOT/taobin_project/image/event/lucky_draw_ads/bp_check_coupon" + Extension ) </FilenameDisable>
<EventClick>
Var OpenCheckCoupon = 1
Open "ROOT/taobin_project/xml/page_check_member.xml"
</EventClick>
</Button>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Popup>

17
xml/page_board.xml
View file

@ -207,6 +207,7 @@
STRCONTAIN "1206" MaterialAvailable EnergyDrinkEnable
STRCONTAIN "1216" MaterialAvailable CoconutSyrupEnable
STRCONTAIN "1042" MaterialAvailable CocoaPowderEnable
STRCONTAIN "1037" MaterialAvailable 7UpSyrupEnable
;Var AppFastEnable = "false"
If AppFastEnable = "true" Then
@ -1118,6 +1119,8 @@
EndIf
DEBUGVAR ShowButtonClick2
Machine OrderCheck
DEBUGVAR CLOSE_ORDER_NOW
; move to TRY actoin.
@ -1229,10 +1232,20 @@
</EventUnitTest3>
<EventUnitTest4>
Var XMLProfile = "$School"
PRICE "Load" "-"
PRICE "Check" XMLProfile
PRICE "CheckAndApply" XMLProfile
DEBUGVAR ProfileIndex[0]
DEBUGVAR ProfileIndex[1]
DEBUGVAR ProfileIndex[2]
</EventUnitTest4>
<EventUnitTest6>
PushFile "/sdcard/" "RootManPicture" "scn_240703193755.png"
</EventUnitTest6>
<EventDrink>
SAVELOG "EventDrink EventDrink EventDrink EventDrink EventDrink "
</EventDrink>
@ -1703,7 +1716,7 @@
OpenInst 2 ChackMemberPage
EndIf
Else
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_check_member.xml"
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_before_check_member.xml"
EndIf
TopView "show"

6
xml/page_brewing3.xml
View file

@ -5,6 +5,12 @@
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
If New_Payment = 1 Then
Open "ROOT/taobin_project/xml/page_NewBrewing3.xml"
EndIf
Var SendNotiPaySuccess = 2
Var GetMoreStrawCount = 2

8
xml/page_brewing3Conti.xml
View file

@ -6,6 +6,13 @@
<Volume> SoundVolume </Volume>
<EventOpen>
If New_Payment = 1 Then
Open "ROOT/taobin_project/xml/page_NewBrewing3Conti.xml"
EndIf
If InternationalEnable = 1 Then
Var Brewing3ContiXMLFile = CountryRootPath + "/xml/page_brewing3Conti.xml"
DEBUGVAR Brewing3ContiXMLFile
@ -14,6 +21,7 @@
EndIf
Var ActionOKCase = 0
Var Seeker = "curr"

5
xml/page_cannotConti.xml
View file

@ -6,6 +6,11 @@
<Sound> "ROOT/taobin_project/sounds/chaching.mp3" </Sound>
<Volume> SoundVolume </Volume>
<EventOpen>
If New_Payment = 1 Then
Open "ROOT/taobin_project/xml/page_NewCannotConti.xml"
EndIf
; On open
Var CountDownThankyou = 4
Var CountDownBrewing = BrewTime

2
xml/page_catalog.lxml
View file

@ -196,7 +196,7 @@
DEBUGVAR MenuKidButtonState
Machine OrderCheck
DEBUGVAR $51-03-01-0035.Price

2
xml/page_catalog.xml
View file

@ -477,7 +477,7 @@
<Volume> SoundVolume </Volume>
<EventClick>
; eng
Open "ROOT/taobin_project/xml/page_check_member.xml"
Open "ROOT/taobin_project/xml/page_before_check_member.xml"
</EventClick>
</Button>

2
xml/page_catalog2.xml
View file

@ -552,7 +552,7 @@
<Volume> SoundVolume </Volume>
<EventClick>
; eng
Open "ROOT/taobin_project/xml/page_check_member.xml"
Open "ROOT/taobin_project/xml/page_before_check_member.xml"
</EventClick>
</Button>

3
xml/page_catalog3.xml
View file

@ -20,6 +20,7 @@
Var NightTime = 0
Machine WakeUp
Machine OrderCheck
DEBUGVAR ToppingNewShow
@ -572,7 +573,7 @@
<Volume> SoundVolume </Volume>
<EventClick>
; eng
Open "ROOT/taobin_project/xml/page_check_member.xml"
Open "ROOT/taobin_project/xml/page_before_check_member.xml"
</EventClick>
</Button>

2
xml/page_catalog_cocktail.xml
View file

@ -437,7 +437,7 @@
<Volume> SoundVolume </Volume>
<EventClick>
; eng
Open "ROOT/taobin_project/xml/page_check_member.xml"
Open "ROOT/taobin_project/xml/page_before_check_member.xml"
</EventClick>
</Button>

36
xml/page_catalog_group_pro_.skt Normal file
View file

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

3321
xml/page_catalog_group_pro_.xml Normal file
View file

File diff suppressed because it is too large Load diff

49
xml/page_catalog_group_pro_7up_lucky_draw_x2.skt Normal file
View file

@ -0,0 +1,49 @@
<?hurr
#include=menu_head.py
?>
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/xml/menu_catalog_default_init.xml"
Var Timeout = 0
;include="ROOT/taobin_project/xml/menu_catalog_new_menu.xml"
</EventOpen>
;include="ROOT/taobin_project/xml/menu_catalog_new.xml"
<?hurr
#include=menu_new_layout_gen_v2.py
?>
<?hurr
#include=menu_new_layout_gen.py
?>
;BigLogoLayout
<Button>
<X> 780 </X>
<Y> 500 </Y>
<State> buttonRemoveCup </State>
;<Color> "0x00BDFF" </Color>
<Interval> 500 </Interval>
<Filename> "ROOT/taobin_project/image/main_page/bn_remove_cup.png" </Filename>
<Filename> "ROOT/taobin_project/image/main_page/bp_remove_cup.png" </Filename>
<EventClick>
Machine RemoveCup
Machine DoorLidOpen
Var buttonRemoveCup = "Invisible"
</EventClick>
</Button>
</Popup>

10130
xml/page_catalog_group_pro_7up_lucky_draw_x2.xml Normal file
View file

File diff suppressed because it is too large Load diff

51
xml/page_catalog_group_pro_passion_mint.skt Normal file
View file

@ -0,0 +1,51 @@
<?hurr
#include=menu_head.py
?>
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
;include="ROOT/taobin_project/xml/menu_catalog_default_init.xml"
Var Timeout = 0
;include="ROOT/taobin_project/xml/menu_catalog_new_menu.xml"
</EventOpen>
;include="ROOT/taobin_project/xml/menu_catalog_new.xml"
<?hurr
#include=menu_new_layout_gen_v2.py
?>
<?hurr
#include=menu_new_layout_gen.py
?>
;BigLogoLayout
<Button>
<X> 780 </X>
<Y> 500 </Y>
<State> buttonRemoveCup </State>
;<Color> "0x00BDFF" </Color>
<Interval> 500 </Interval>
<Filename> "ROOT/taobin_project/image/main_page/bn_remove_cup.png" </Filename>
<Filename> "ROOT/taobin_project/image/main_page/bp_remove_cup.png" </Filename>
<EventClick>
Machine RemoveCup
Machine DoorLidOpen
Var buttonRemoveCup = "Invisible"
</EventClick>
</Button>
</Popup>

3388
xml/page_catalog_group_pro_passion_mint.xml Normal file
View file

File diff suppressed because it is too large Load diff

2
xml/page_catalog_with_vending.xml
View file

@ -454,7 +454,7 @@
<Volume> SoundVolume </Volume>
<EventClick>
; eng
Open "ROOT/taobin_project/xml/page_check_member.xml"
Open "ROOT/taobin_project/xml/page_before_check_member.xml"
</EventClick>
</Button>

2
xml/page_check_member.xml
View file

@ -551,7 +551,7 @@
Open "ROOT/taobin_project/xml/page_catalog.xml"
Open "ROOT/taobin_project/xml/page_before_check_member.xml"
</EventClick>

5
xml/page_check_member1.xml
View file

@ -150,6 +150,11 @@
If Ext1a = "ok" Then
Var TaobinCredit = Ext1b
If OpenTopupCredit = 1 Then
Open "ROOT/taobin_project/xml/page_member_topup3.xml"
EndIf
GETACCEXT TelephoneNumber 14
Var StepX = 1
Var Ext1a = ""

4
xml/page_check_newmember1.xml
View file

@ -58,7 +58,7 @@
Var Timeout = Timeout + 1
If Timeout > 30 Then
Open "ROOT/taobin_project/xml/page_check_member.xml"
Open "ROOT/taobin_project/xml/page_before_check_member.xml"
EndIf
TimerReset
@ -692,7 +692,7 @@
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_check_member.xml"
Open "ROOT/taobin_project/xml/page_before_check_member.xml"
</EventClick>
</Button>

8
xml/page_check_newmember2.xml
View file

@ -59,7 +59,7 @@
Var Timeout = Timeout + 1
If Timeout > 40 Then
Open "ROOT/taobin_project/xml/page_check_member.xml"
Open "ROOT/taobin_project/xml/page_before_check_member.xml"
EndIf
TimerReset
@ -131,6 +131,10 @@
If Ext1a = "ok" Then
If OpenTopupCredit = 1 Then
Open "ROOT/taobin_project/xml/page_member_topup3.xml"
EndIf
Var TaobinName = ""
Var TaobinCoupons = ""
Var TaobinExpire = ""
@ -848,7 +852,7 @@
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_check_member.xml"
Open "ROOT/taobin_project/xml/page_before_check_member.xml"
</EventClick>
</Button>

74
xml/page_collect_point_3_28.xml
View file

@ -682,39 +682,17 @@
If GetDrink5Bath = 1 Then
Open "ROOT/taobin_project/xml/page_display_get_drink_5_baht.xml"
Else
If PepsiSecondCup30Enable = 1 Then
If PepsiSecondCup30DiscountEnable = 1 Then
If FromPepsiSecondCup30 = 1 Then
If Seeker.VendingCode = "PMX10" Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
Else
Open "ROOT/taobin_project/xml/event/pepsi_second_cup_30/page_got_discount_code_pepsi.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
If CheckMemberPageCampaign = 1 Then
; Go to comapaign ad and go back.
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
Else
If PepsiSecondCup30Enable = 1 Then
If PepsiSecondCup30DiscountEnable = 1 Then
If FromPepsiSecondCup30 = 1 Then
If Seeker.VendingCode = "PMX10" Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
Else
Open "ROOT/taobin_project/xml/event/pepsi_second_cup_30/page_got_discount_code_pepsi.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
If CheckMemberPageCampaign = 1 Then
; Go to comapaign ad and go back.
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
@ -858,39 +836,17 @@
If GetDrink5Bath = 1 Then
Open "ROOT/taobin_project/xml/page_display_get_drink_5_baht.xml"
Else
If PepsiSecondCup30Enable = 1 Then
If PepsiSecondCup30DiscountEnable = 1 Then
If FromPepsiSecondCup30 = 1 Then
If Seeker.VendingCode = "PMX10" Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
Else
Open "ROOT/taobin_project/xml/event/pepsi_second_cup_30/page_got_discount_code_pepsi.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
If CheckMemberPageCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
Else
If PepsiSecondCup30Enable = 1 Then
If PepsiSecondCup30DiscountEnable = 1 Then
If FromPepsiSecondCup30 = 1 Then
If Seeker.VendingCode = "PMX10" Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
Else
Open "ROOT/taobin_project/xml/event/pepsi_second_cup_30/page_got_discount_code_pepsi.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
If CheckMemberPageCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
@ -1264,7 +1220,11 @@
</EventUnitTest2>
<EventUnitTest4>
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
If CheckMemberPageCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
</EventUnitTest4>

44
xml/page_display_get_15_discount.xml
View file

@ -36,20 +36,8 @@
EndIf
Else
If Timeout > 5 Then
If PepsiSecondCup30Enable = 1 Then
If PepsiSecondCup30DiscountEnable = 1 Then
If FromPepsiSecondCup30 = 1 Then
If Seeker.VendingCode = "PMX10" Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
Else
Open "ROOT/taobin_project/xml/event/pepsi_second_cup_30/page_got_discount_code_pepsi.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
If CheckMemberPageCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
@ -167,18 +155,8 @@
If FromCheckMemberPoint = 1 Then
Open "ROOT/taobin_project/xml/page_check_member2.xml"
Else
If PepsiSecondCup30Enable = 1 Then
If PepsiSecondCup30DiscountEnable = 1 Then
If FromPepsiSecondCup30 = 1 Then
If Seeker.VendingCode = "PMX10" Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
Else
Open "ROOT/taobin_project/xml/event/pepsi_second_cup_30/page_got_discount_code_pepsi.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
If CheckMemberPageCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
@ -200,18 +178,8 @@
If FromCheckMemberPoint = 1 Then
Open "ROOT/taobin_project/xml/page_check_member2.xml"
Else
If PepsiSecondCup30Enable = 1 Then
If PepsiSecondCup30DiscountEnable = 1 Then
If FromPepsiSecondCup30 = 1 Then
If Seeker.VendingCode = "PMX10" Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
Else
Open "ROOT/taobin_project/xml/event/pepsi_second_cup_30/page_got_discount_code_pepsi.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
If CheckMemberPageCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf

30
xml/page_display_get_drink_5_baht.xml
View file

@ -52,20 +52,8 @@
If FromCheckMemberPoint = 1 Then
Open "ROOT/taobin_project/xml/page_check_member2.xml"
Else
If PepsiSecondCup30Enable = 1 Then
If PepsiSecondCup30DiscountEnable = 1 Then
If FromPepsiSecondCup30 = 1 Then
If Seeker.VendingCode = "PMX10" Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
Else
Open "ROOT/taobin_project/xml/event/pepsi_second_cup_30/page_got_discount_code_pepsi.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
If CheckMemberPageCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
@ -164,18 +152,8 @@
If FromCheckMemberPoint = 1 Then
Open "ROOT/taobin_project/xml/page_check_member2.xml"
Else
If PepsiSecondCup30Enable = 1 Then
If PepsiSecondCup30DiscountEnable = 1 Then
If FromPepsiSecondCup30 = 1 Then
If Seeker.VendingCode = "PMX10" Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
Else
Open "ROOT/taobin_project/xml/event/pepsi_second_cup_30/page_got_discount_code_pepsi.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
If CheckMemberPageCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf

69
xml/page_drink_stuck.xml
View file

@ -109,6 +109,7 @@
EndIf
EndIf
Var CoundUpDelayCertainStage = 0
</EventOpen>
@ -189,11 +190,8 @@
EndIf
If DoorCupPosition = "bottom" Then
Var buttonRemoveCup = "Enable"
Var txtDrinkOKState = "Enable"
EndIf
; away
If NextOrder = "true" Then
@ -232,7 +230,7 @@
TransferVar "next" "curr"
Var Seeker = "curr"
SAVELOG "Make next order by take-cup"
SAVELOG "Make next order by take-cup pagedrinkstuct"
Open "ROOT/taobin_project/xml/page_thankyouConti.xml"
; END
@ -249,26 +247,11 @@
;
If MachineStage = "remove-cup" Then
If CART_COUNT = 0 Then
If NextOrder = "false" Then
Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"
Else
Var buttonRemoveCup = "Enable"
Var txtDrinkOKState = "Enable"
Var Timeout2 = Timeout2 + 1
If Timeout2 > 15 Then
Play "/mnt/sdcard/coffeevending/taobin_project/sound_thai/remove_cup.mp3"
Var Timeout2 = 0
EndIf
EndIf
Else
Var buttonRemoveCup = "Enable"
Var txtDrinkOKState = "Enable"
If NextOrder = "false" Then
Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"
Else
Var txtDrinkOKState = "Enable"
Var Timeout2 = Timeout2 + 1
@ -280,6 +263,7 @@
EndIf
EndIf
If Timeout = 5 Then
If show_eng = "true" Then
@ -293,18 +277,6 @@
Else
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/drinkfinish.mp3"
; Play Sound #zone
If SoundBackToSchoolEnable = 1 Then
If SoundBackToSchoolType = 1 Then
Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/boy/"
EndIf
If SoundBackToSchoolType = 2 Then
Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/girl/"
EndIf
Var PlaySoundLag = RootPathSoundBackToSchool + "drinkfinish.wav"
EndIf
Play PlaySoundLag
EndIf
EndIf
@ -327,6 +299,26 @@
EndIf
EndIf
If DoorCupPosition = "bottom" Then
Else
Var buttonRemoveCup = "Invisible"
Var CoundUpDelayCertainStage = 0
EndIf
If HaveCup = "true" Then
If DoorCupPosition = "bottom" Then
If buttonRemoveCup = "Invisible" Then
Var CoundUpDelayCertainStage = CoundUpDelayCertainStage + 1
If CoundUpDelayCertainStage > 8 Then
Var buttonRemoveCup = "Enable"
EndIf
EndIf
EndIf
EndIf
If txtDrinkOKState = "Enable" Then
Var TextBottomShow = "Invisible"
@ -347,6 +339,7 @@
EndIf
</EventChangeStatus>
;include=ROOT/taobin_project/inc/remove_cup_tag_event.inc
;include="ROOT/taobin_project/inc/video.inc"
@ -452,9 +445,7 @@
<Filename> Var( DirImage + "/bn_open_door.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_open_door.png" ) </FilenamePress>
<EventClick>
;Var buttonRemoveCup = "Invisible"
Machine RemoveCup
Machine DoorLidOpen
;include=ROOT/taobin_project/inc/remove_cup_button.inc
Refresh
</EventClick>
</Button>

3
xml/page_get_yourchange.xml
View file

@ -83,6 +83,9 @@
UpdateTxRef2 TxRef1 ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate PayO2 PdpaAccept VendingDiscount VendingCampaign PayReference PayType CreditReference PayDetail PayDetail2
EndIf
If New_Payment = 1 Then
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/payment.ev"
EndIf
If Seeker = "next" Then
;CoinBack

10
xml/page_lid_straw.xml
View file

@ -129,6 +129,11 @@
Open brewing3ContiInter
Else
If New_Payment = 1 Then
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/payment.ev"
EndIf
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
EndIf
@ -155,6 +160,11 @@
Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml"
Open Brew3Inter
Else
If New_Payment = 1 Then
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/payment.ev"
EndIf
Open "ROOT/taobin_project/xml/page_brewing3.xml"
EndIf
Else

10
xml/page_member_topup3.xml
View file

@ -78,6 +78,11 @@
Var Timeout = Timeout + 1
If Timeout > 30 Then
If OpenTopupCredit = 1 Then
Open "ROOT/taobin_project/xml/page_before_check_member.xml"
EndIf
Open "ROOT/taobin_project/xml/page_check_member2.xml"
EndIf
@ -207,11 +212,12 @@
<EventClick>
If OpenTopupCredit = 1 Then
Open "ROOT/taobin_project/xml/page_before_check_member.xml"
EndIf
Open "ROOT/taobin_project/xml/page_check_member2.xml"
</EventClick>
</Button>

13
xml/page_payment.xml
View file

@ -306,6 +306,13 @@
Var Seeker.CampaignPPrice = PromotionPriceDrink
EndIf
If FromPassionMintPro = 1 Then
Var OriginalPriceWithTopping = OriginalPrice + TOPPING_PRICE
Var PriceDiff = OriginalPriceWithTopping - PromotionPriceDrink
Var DiscountDrink = PriceDiff
Var Seeker.CampaignPPrice = PromotionPriceDrink
EndIf
If FromRerunPro = 1 Then
Var PriceDiff = PriceDrink - PromoPriceDrink
Var Seeker.VendingCode = RerunProCode
@ -477,6 +484,12 @@
__CMD "CLEAR_TIME_BLINK_DISPLAY" 0 "-" "-"
;new payment coffee-payment
If New_Payment = 1 Then
Var Seeker.ORDER_ID = ""
GenHashWithTimeStamp Seeker.ORDER_ID
EndIf
</EventOpen>
<Timeout> 900 </Timeout>
<EventTimeout>

23
xml/page_payment_cash.xml
View file

@ -368,6 +368,9 @@
CoinVending OFF
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1
@ -390,6 +393,9 @@
CoinVending OFF
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1
@ -1128,13 +1134,18 @@
Var Seeker.PayWithQR = 1
Var Seeker.VendingTSID = VendingTSID
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
;Var TxRef1 = ""
;CreateTxRef1 TxRef1
EndIf
Var Seeker.PayWithQR = 1
Var Seeker.VendingTSID = VendingTSID
Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
@ -1627,6 +1638,9 @@
Refresh
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
EndIf
Var Seeker.CreditCard = 1
@ -1849,7 +1863,10 @@
If PayOK = 1 Then
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1

3
xml/page_payment_code.xml
View file

@ -255,6 +255,9 @@
Var CART_INDEX = 0
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1

3
xml/page_payment_codeAEON.xml
View file

@ -140,6 +140,9 @@
Var CART_INDEX = 0
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1

3
xml/page_payment_codeAIS.xml
View file

@ -140,6 +140,9 @@
Var CART_INDEX = 0
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1

3
xml/page_payment_codeDtac.xml
View file

@ -140,6 +140,9 @@
Var CART_INDEX = 0
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1

3
xml/page_payment_codeGLX.xml
View file

@ -140,6 +140,9 @@
Var CART_INDEX = 0
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1

3
xml/page_payment_codeGrab.xml
View file

@ -140,6 +140,9 @@
Var CART_INDEX = 0
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1

3
xml/page_payment_codeInfinyx.xml
View file

@ -140,6 +140,9 @@
Var CART_INDEX = 0
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1

3
xml/page_payment_codeKBANK.xml
View file

@ -140,6 +140,9 @@
Var CART_INDEX = 0
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1

3
xml/page_payment_codeLH.xml
View file

@ -140,6 +140,9 @@
Var CART_INDEX = 0
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1

3
xml/page_payment_codeLotus.xml
View file

@ -140,6 +140,9 @@
Var CART_INDEX = 0
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1

3
xml/page_payment_codeMCard.xml
View file

@ -140,6 +140,9 @@
Var CART_INDEX = 0
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1

3
xml/page_payment_codeRabbit.xml
View file

@ -140,6 +140,9 @@
Var CART_INDEX = 0
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1

3
xml/page_payment_codeSCG.xml
View file

@ -140,6 +140,9 @@
Var CART_INDEX = 0
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1

3
xml/page_payment_codeThe1.xml
View file

@ -140,6 +140,9 @@
Var CART_INDEX = 0
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1

3
xml/page_payment_codeTrue.xml
View file

@ -140,6 +140,9 @@
Var CART_INDEX = 0
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1

3
xml/page_payment_credit2.xml
View file

@ -197,6 +197,9 @@
Var CART_INDEX = 0
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1

3
xml/page_payment_credit3-0.xml
View file

@ -111,6 +111,9 @@
Var CART_INDEX = 0
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1

4
xml/page_payment_credit3-TopupSuccess.xml
View file

@ -81,7 +81,9 @@
If Seeker = "curr" Then
DEBUGVAR "MakeDrinkV1"
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1

3
xml/page_payment_credit3.xml
View file

@ -190,6 +190,9 @@
Var CART_INDEX = 0
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""

3
xml/page_payment_storeCredit3.xml
View file

@ -93,6 +93,9 @@
Var CART_INDEX = 0
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1

126
xml/page_remove_cup.xml
View file

@ -44,10 +44,7 @@
LED LedDoorDoor 5 255 255 255 255
Var TimeoutInstance0 = 0
Var CheckCupStateDoorCupClose = "-"
Var CheckCupStateDoorCupCloseCnt = 0
Var CoundUpDelayCertainStage = 0
;include=ROOT/taobin_project/inc/remove_cup_event_open.inc
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -63,102 +60,7 @@
;DEBUGVAR CupArmMove
;DEBUGVAR buttonRemoveCup
; Add haveCup false for block display abnormal. Alternate between page_board.xml and this file.
If HaveCup = "false" Then
If MachineStage = "show-menu" Then
Open "ROOT/taobin_project/xml/page_board.xml"
EndIf
EndIf
If MachineStage = "close-maintenance" Then
Open "ROOT/taobin_project/xml/page_show_error.xml"
EndIf
Var Timeout = Timeout + 1
If Timeout > 15 Then
Var Timeout = 0
EndIf
Var TimeoutInstance0 = TimeoutInstance0 + 1
If TimeoutInstance0 > 600 Then
Var TimeoutInstance0 = 0
SAVELOG "Check Cup all"
Machine CheckCupAll
EndIf
; Logic have differrent drinkfail3.xml
; protect lock
;
If CheckCupStateDoorCupCloseCnt > 0 Then
Var CheckCupStateDoorCupCloseCnt = CheckCupStateDoorCupCloseCnt - 1
DEBUGVAR CheckCupStateDoorCupCloseCnt
If CheckCupStateDoorCupCloseCnt = 0 Then
Var CheckCupStateDoorCupClose = ""
EndIf
EndIf
If HaveCup = "true" Then
If CheckCupStateDoorCupClose = "" Then
Var buttonRemoveCup = "Enable"
EndIf
Else
If buttonRemoveCup = "Enable" Then
Var buttonRemoveCup = "Invisible"
EndIf
EndIf
If DoorCupPosition = "bottom" Then
Else
Var buttonRemoveCup = "Invisible"
Var CoundUpDelayCertainStage = 0
EndIf
If CupArmMove = "true" Then
Var buttonRemoveCup = "Invisible"
If show_eng = "true" Then
Var MachineErrorDetailAll = "Please wait."
Else
Var MachineErrorDetailAll = "กรุณารอสักครู่"
EndIf
Else
If CupArmMove = "false" Then
If HaveCup = "true" Then
If DoorCupPosition = "bottom" Then
If buttonRemoveCup = "Invisible" Then
Var CoundUpDelayCertainStage = CoundUpDelayCertainStage + 1
If CoundUpDelayCertainStage > 2 Then
Var buttonRemoveCup = "Enable"
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
If show_eng = "true" Then
Else
If Timeout = 0 Then
If buttonRemoveCup = "Enable" Then
If CupChecking = "false" Then
If DoorCupPosition = "bottom" Then
Play "/mnt/sdcard/coffeevending/taobin_project/sound_thai/remove_cup.mp3"
EndIf
EndIf
EndIf
EndIf
EndIf
;include=ROOT/taobin_project/inc/remove_cup_step.inc
Refresh
TimerReset
@ -166,20 +68,7 @@
</EventTimeout>
<EventDrink>
SAVELOG "EventDrink"
DEBUGVAR HaveCup
DEBUGVAR CupOnArm
DEBUGVAR DoorCupPosition
DEBUGVAR CupChecking
DEBUGVAR CupArmMove
If HaveCup = "true" Then
Var buttonRemoveCup = "Enable"
Else
Var buttonRemoveCup = "Invisible"
EndIf
</EventDrink>
;include=ROOT/taobin_project/inc/remove_cup_tag_event.inc
<Image>
<X> 0 </X>
@ -198,15 +87,8 @@
<EventClick>
Machine RemoveCup
Machine DoorLidOpen
Var buttonRemoveCup = "Invisible"
; protect value update too slow.
Var DoorCupPosition = "-"
;include=ROOT/taobin_project/inc/remove_cup_button.inc
Var CheckCupStateDoorCupClose = "reset"
Var CheckCupStateDoorCupCloseCnt = 30
Refresh
</EventClick>
</Button>

3
xml/page_show_error.xml
View file

@ -402,5 +402,8 @@
<Value> MachineErrorDetailAll </Value>
</Text>
<EventUnitTest6>
PushFile "/sdcard/" "RootManPicture" "scn_240703193755.png"
</EventUnitTest6>
</Page>

42
xml/page_thankyou.xml
View file

@ -270,7 +270,11 @@
If CountDownThankyou = 0 Then
If IgnoreNetCore = "true" Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
If CheckMemberPageCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
If TestLoopMakeDrink = 1 Then
@ -285,7 +289,11 @@
If RoadShow = "true" Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
If CheckMemberPageCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
Var Seeker.OrderChanel = Seeker.OrderChanel + ":"
@ -360,7 +368,11 @@
EndIf
If CART_INDEX >= 2 Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
If CheckMemberPageCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
If CountryName = "Singapore" Then
@ -431,10 +443,18 @@
Open "ROOT/taobin_project/xml/page_collect_point_1.xml"
EndIf
EndIf
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
If CheckMemberPageCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
If CART_INDEX >= 2 Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
If CheckMemberPageCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
If CountryName = "Singapore" Then
; ask-if-member-yet
@ -472,10 +492,18 @@
EndIf
EndIf
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
If CheckMemberPageCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
If CART_INDEX >= 2 Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
If CheckMemberPageCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
If CountryName = "Singapore" Then
; ask-if-member-yet

4
xml/page_thankyouConti.xml
View file

@ -30,7 +30,6 @@
Var Tel_Confirm_Flag = 0
Var LastMakeDrinkResult = "-"
DEBUGVAR MIGGAZE2
DEBUGVAR MachineStage
DEBUGVAR NextOrderStatus
@ -310,6 +309,9 @@
Else
Var LastMakeDrinkResult = "-"
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 Seeker.selected_a_drink SelectSugarID
EndIf

502
xml/page_topping_select7.xml
View file

@ -509,6 +509,12 @@
DEBUGVAR MenuReady
DEBUGVAR CupRemain
If CLOSE_ORDER_NOW = "true" Then
;include="ROOT/taobin_project/inc/return_condition.ev"
EndIf
If NoWaitMachineEnable = 1 Then
DEBUGVAR MachineStage
DEBUGVAR ConfirmDrinkButtonState
@ -6343,240 +6349,6 @@
</Button>
; liveness + camera + IDcard
<Button>
<State> DiscountWithIdentifyState </State>
<X> 285 </X>
<Y> 1785 </Y>
<Filename> Var( DirImage + "/bn_price5baht.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_price5baht.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
;Var Seeker = "curr"
DEBUGVAR PriceDrinkTmp
;Var Seeker.PriceDrink = PriceDrinkTmp
Var PriceDrink = PriceDrinkTmp
SAVELOG "USER press next ( topping ) - new"
If SugarState1 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index1
EndIf
EndIf
If SugarState2 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index2
EndIf
If ShiftSugarStep = 2 Then
Var topping1 = toppingID1index1
EndIf
EndIf
If SugarState3 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index3
EndIf
If ShiftSugarStep = 2 Then
Var topping1 = toppingID1index2
EndIf
If ShiftSugarStep = 3 Then
Var topping1 = toppingID1index1
EndIf
EndIf
If SugarState3 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index3
EndIf
If ShiftSugarStep = 2 Then
Var topping1 = toppingID1index2
EndIf
If ShiftSugarStep = 3 Then
Var topping1 = toppingID1index1
EndIf
EndIf
If SugarState4 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index4
EndIf
If ShiftSugarStep = 2 Then
Var topping1 = toppingID1index3
EndIf
If ShiftSugarStep = 3 Then
Var topping1 = toppingID1index2
EndIf
EndIf
If SugarState5 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index5
EndIf
If ShiftSugarStep = 2 Then
Var topping1 = toppingID1index4
EndIf
If ShiftSugarStep = 3 Then
Var topping1 = toppingID1index3
EndIf
EndIf
Var Seeker.topping1 = topping1
Var Seeker.topping2 = topping2
Var Seeker.topping3 = topping3
Var Seeker.topping6 = topping6
Var Seeker.get_a_straw = StrawState
Var Seeker.get_a_lid = LidState
DEBUGVAR Seeker.topping1
DEBUGVAR Seeker.topping2
DEBUGVAR Seeker.topping3
DEBUGVAR Seeker.topping6
DEBUGVAR Seeker.get_a_straw
DEBUGVAR Seeker.get_a_lid
DEBUGVAR LidState
DEBUGVAR StrawState
DEBUGVAR UserSelectProductCode
If StrawState = "Press" Then
Machine StrawOrder
Var LedLidBlink = "true"
EndIf
If LidState = "Press" Then
Machine LidOrder
Var LedLidBlink = "true"
Var bg_lidProblem_ST = "Enable"
Else
If LidState = "Disable" Then
Var bg_lidProblem_ST = "Disable"
Else
Var bg_lidProblem_ST = "Invisible"
EndIf
EndIf
If SelectDrinkType = 0 Then
Else
Var StrawState = "Enable"
Var LidState = "Enable"
EndIf
;
Var PromotionIDCurrentOrder = 0
Var SelectDrink = UserSelectProductCode
Var Seeker.selected_a_drink = UserSelectProductCode
DEBUGVAR Seeker.selected_a_drink
; Set drink
If Seeker = "curr" Then
Topping "Select" UserSelectProductCode
; Set option toppinng and pack
Topping "Select1-ID" topping1
Topping "Select2-ID" topping2
Topping "Select3-ID" topping3
Topping "Select6-ID" topping6
; Pack
Topping "Pack" ExtendDataCurr
Else
Topping "SetNextOrder" UserSelectProductCode
Topping "__select" UserSelectProductCode
; Set option toppinng and pack
Topping "__select1-id" topping1
Topping "__select2-id" topping2
Topping "__select3-id" topping3
Topping "__select6-id" topping6
; Pack
Topping "__pack" ExtendDataNext
Var NextUserSelectDrinkFromPaid = UserSelectProductCode
Var NextUserSelecttopping1Paid = topping1
Var NextUserSelecttopping2Paid = topping2
Var NextUserSelecttopping3Paid = topping3
Var NextUserSelecttopping6Paid = topping6
EndIf
DEBUGVAR Seeker
DEBUGVAR Seeker.ExtendData
Var Seeker.PictureDrink = PictureDrink
Var Seeker.showname = showname
DEBUGVAR MenuCautionImageStage0
DEBUGVAR CustomerFilterEnable
DEBUGVAR CustomerFilterType
GetLongTimeInMinute LastTimeClickOrder
If CART_COUNT = 0 Then
If UserSelectProductCode = "-" Then
Else
If SelectDrinkType = 1 Then
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"
Open "ROOT/taobin_project/xml/page_identity_verification.xml"
EndIf
EndIf
If SelectDrinkType = 0 Then
Var high_light_drink_type = "Enable"
EndIf
Else
If CART1_STATUS = "EMPTY" Then
Cart "AddMenuID" 1
Else
If CART2_STATUS = "EMPTY" Then
Cart "AddMenuID" 2
Else
If CART3_STATUS = "EMPTY" Then
Cart "AddMenuID" 3
EndIf
EndIf
EndIf
Var CartUpdate = "true"
Var ButtonNext = "true"
EndIf
Var LastTimeClickOrder = 0
</EventClick>
</Button>
; next
<Button>
<X> 673 </X>
@ -6952,6 +6724,268 @@
<Value> PriceDrinkTmpShow </Value>
</Text>
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
; liveness + camera + IDcard
<Button>
<State> DiscountWithIdentifyState </State>
<X> 285 </X>
<Y> 1785 </Y>
<Filename> Var( DirImage + "/bn_price5baht.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_price5baht.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
;Var Seeker = "curr"
DEBUGVAR PriceDrinkTmp
;Var Seeker.PriceDrink = PriceDrinkTmp
Var PriceDrink = PriceDrinkTmp
SAVELOG "USER press next ( topping ) - new"
If SugarState1 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index1
EndIf
EndIf
If SugarState2 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index2
EndIf
If ShiftSugarStep = 2 Then
Var topping1 = toppingID1index1
EndIf
EndIf
If SugarState3 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index3
EndIf
If ShiftSugarStep = 2 Then
Var topping1 = toppingID1index2
EndIf
If ShiftSugarStep = 3 Then
Var topping1 = toppingID1index1
EndIf
EndIf
If SugarState3 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index3
EndIf
If ShiftSugarStep = 2 Then
Var topping1 = toppingID1index2
EndIf
If ShiftSugarStep = 3 Then
Var topping1 = toppingID1index1
EndIf
EndIf
If SugarState4 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index4
EndIf
If ShiftSugarStep = 2 Then
Var topping1 = toppingID1index3
EndIf
If ShiftSugarStep = 3 Then
Var topping1 = toppingID1index2
EndIf
EndIf
If SugarState5 = "PressForever" Then
If ShiftSugarStep = 1 Then
Var topping1 = toppingID1index5
EndIf
If ShiftSugarStep = 2 Then
Var topping1 = toppingID1index4
EndIf
If ShiftSugarStep = 3 Then
Var topping1 = toppingID1index3
EndIf
EndIf
Var Seeker.topping1 = topping1
Var Seeker.topping2 = topping2
Var Seeker.topping3 = topping3
Var Seeker.topping6 = topping6
Var Seeker.get_a_straw = StrawState
Var Seeker.get_a_lid = LidState
DEBUGVAR Seeker.topping1
DEBUGVAR Seeker.topping2
DEBUGVAR Seeker.topping3
DEBUGVAR Seeker.topping6
DEBUGVAR Seeker.get_a_straw
DEBUGVAR Seeker.get_a_lid
DEBUGVAR LidState
DEBUGVAR StrawState
DEBUGVAR UserSelectProductCode
If StrawState = "Press" Then
Machine StrawOrder
Var LedLidBlink = "true"
EndIf
If LidState = "Press" Then
Machine LidOrder
Var LedLidBlink = "true"
Var bg_lidProblem_ST = "Enable"
Else
If LidState = "Disable" Then
Var bg_lidProblem_ST = "Disable"
Else
Var bg_lidProblem_ST = "Invisible"
EndIf
EndIf
If SelectDrinkType = 0 Then
Else
Var StrawState = "Enable"
Var LidState = "Enable"
EndIf
;
Var PromotionIDCurrentOrder = 0
Var SelectDrink = UserSelectProductCode
Var Seeker.selected_a_drink = UserSelectProductCode
DEBUGVAR Seeker.selected_a_drink
; Set drink
If Seeker = "curr" Then
Topping "Select" UserSelectProductCode
; Set option toppinng and pack
Topping "Select1-ID" topping1
Topping "Select2-ID" topping2
Topping "Select3-ID" topping3
Topping "Select6-ID" topping6
; Pack
Topping "Pack" ExtendDataCurr
Else
Topping "SetNextOrder" UserSelectProductCode
Topping "__select" UserSelectProductCode
; Set option toppinng and pack
Topping "__select1-id" topping1
Topping "__select2-id" topping2
Topping "__select3-id" topping3
Topping "__select6-id" topping6
; Pack
Topping "__pack" ExtendDataNext
Var NextUserSelectDrinkFromPaid = UserSelectProductCode
Var NextUserSelecttopping1Paid = topping1
Var NextUserSelecttopping2Paid = topping2
Var NextUserSelecttopping3Paid = topping3
Var NextUserSelecttopping6Paid = topping6
EndIf
DEBUGVAR Seeker
DEBUGVAR Seeker.ExtendData
Var Seeker.PictureDrink = PictureDrink
Var Seeker.showname = showname
DEBUGVAR MenuCautionImageStage0
DEBUGVAR CustomerFilterEnable
DEBUGVAR CustomerFilterType
GetLongTimeInMinute LastTimeClickOrder
If CART_COUNT = 0 Then
If UserSelectProductCode = "-" Then
Else
If SelectDrinkType = 1 Then
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"
Open "ROOT/taobin_project/xml/page_identity_verification.xml"
EndIf
EndIf
If SelectDrinkType = 0 Then
Var high_light_drink_type = "Enable"
EndIf
Else
If CART1_STATUS = "EMPTY" Then
Cart "AddMenuID" 1
Else
If CART2_STATUS = "EMPTY" Then
Cart "AddMenuID" 2
Else
If CART3_STATUS = "EMPTY" Then
Cart "AddMenuID" 3
EndIf
EndIf
EndIf
Var CartUpdate = "true"
Var ButtonNext = "true"
EndIf
Var LastTimeClickOrder = 0
</EventClick>
</Button>
; energy drink 1 bath
<Button>
<X> 673 </X>

2
xml/page_tt_catalog.xml
View file

@ -214,7 +214,7 @@
<Volume> SoundVolume </Volume>
<EventClick>
; eng
Open "ROOT/termtem_project/xml/page_check_member.xml"
Open "ROOT/termtem_project/xml/page_before_check_member.xml"
</EventClick>
</Button>

132
xml/process/addpoint.ev Normal file
View file

@ -0,0 +1,132 @@
Var AddData = 1
DEBUGVAR Seeker.TNumberTaobinMember
DEBUGVAR Seeker.PointTaobinStr
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
If Seeker.TNumberTaobinMember = "" Then
Var AddData = 0
Else
Var TelephoneNumber = Seeker.TNumberTaobinMember
EndIf
Else
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
EndIf
If Seeker.VendingCode = "MKFOO" Then
Var AddData = 0
EndIf
If MyMintEnable = 1 Then
If FromMyMintPro = 1 Then
Var AddData = 0
EndIf
EndIf
If ProBadValentineEnable = 1 Then
If FromBadValentinePro = 1 Then
Var AddData = 0
EndIf
EndIf
DEBUGVAR Seeker.CodeChannel
DEBUGVAR Seeker.CollectPointMain
DEBUGVAR LipitPro
DEBUGVAR FromLipitPro
If LipitPro = 1 Then
If FromLipitPro = 1 Then
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointMain = 0 Then
Var AddData = 0
EndIf
EndIf
EndIf
EndIf
DEBUGVAR FromPowerUpPro
If FreeEnergyDrink = 1 Then
If FromPowerUpPro = 1 Then
; AddData
; +1 in quota in this id card
Var Param1 = ""
Var Param2 = ""
Var Param3 = ""
If IDNum = "" Then
Else
AddData 44 TelephoneNumber IDNum Param1 Param2
EndIf
; clear id
Var IDNum = ""
Var FromPowerUpPro = 0
Var AddData = 0
Var DisableFromPowerup = "true"
Else
Var DisableFromPowerup = ""
EndIf
EndIf
If EnergyDrink1BathPro = 1 Then
If FromEnergyDrink1BathPro = 1 Then
SAVELOG "Adding Energy drink 1 Bath pro quota"
Var Param1 = ""
Var Param2 = ""
Var Param3 = ""
If IDNum = "" Then
Else
AddData 44 TelephoneNumber IDNum Param1 Param2
EndIf
; clear id
Var IDNum = ""
Var FromEnergyDrink1BathPro = 0
Var AddData = 0
Var DisableFromPowerup = "true"
Else
Var DisableFromPowerup = ""
EndIf
EndIf
Var PointCrm = ""
If Seeker.FromConsent = 1 Then
Var PointCrm = "pdpa1"
EndIf
If Seeker.PayWithQR = 1 Then
Var GetScore = Seeker.VendingTSID
Else
Var GetScore = ""
EndIf
If AddData = 1 Then
Var Cid = 26
DEBUGVAR "Befor Brewing3"
DEBUGVAR Seeker
DEBUGVAR Seeker.UseGet15Discount
If NewCollectPoint = 1 Then
If Seeker.UseGet15Discount = 1 Then
Var Cid = 39
Else
Var Cid = 40
Var PreviousSeeker.UseGetDrink5Bath = 0
EndIf
EndIf
AddData Cid Seeker.TNumberTaobinMember Seeker.PointTaobinStr PointCrm GetScore
EndIf

6
xml/process/payext_setup.ev Normal file
View file

@ -0,0 +1,6 @@
DEBUGVAR TelephoneNumber
Var TelephoneNumberExt = TelephoneNumber
If TelephoneNumberExt = "" Then
Var TelephoneNumberExt = "0899999999"
EndIf
__CMD "SetTelNum" TelephoneNumberExt Seeker.ORDER_ID Seeker.VendingTSID

95
xml/process/payment.ev Normal file
View file

@ -0,0 +1,95 @@
DEBUGVAR "MIGGAZE0"
If Seeker.PayWithQR = 1 Then
Var ServiceAmount2 = Seeker.ServiceAmount2
Var CreditReference = ""
Var TxReference = ""
Var VendingDiscount = 0
Var VendingCampaign = 0
Var SelectDrink = Seeker.selected_a_drink
Var SuggestID = ""
If ChangeFlag2 = 1 Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Var PayDetail = ""
Var PayDetail2 = ""
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Else
If Seeker.StoreCreditFlag = 1 Then
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Var PayDetail = ""
Var PayDetail2 = ""
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
EndIf
EndIf
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/addpoint.ev"
Else
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/addpoint.ev"
Var SelectDrink = Seeker.selected_a_drink
Var ExtendData = Seeker.ExtendData
Var ServiceAmount2 = Seeker.ServiceAmount2
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + ExtendData
Var CreditReference = Seeker.CreditReferenceTmp
Var VendingDiscount = Seeker.VendingDiscount
Var VendingCampaign = Seeker.VendingCampaign
Var TxReference = Seeker.TxRef1
Var VendingOrderID = Seeker.ORDER_ID
Var ServiceType = "coffee-payment"
Var ServiceCredit = SelectDrink
Var SuggestID = ""
Var PayDetail = "2/S:0/0//XML|" + Seeker.OrderChanel
If GetFreeFromError = 1 Then
Var Seeker.CodeChannel = 1
Var Seeker.VendingCode = "FAU"
Var Seeker.CodeNumber = "0000000000"
Var VendingCampaign = ServiceAmount2
EndIf
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + ""
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + Seeker.VendingCode
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + SelectDrink
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + BoxID
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + "S"
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + Seeker.CodeNumber
Var SessionID2 = SessionID2 + "/"
Var PayDetail2 = Seeker.PayDetail2
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Else
Var PayDetail2 = Seeker.PayDetail2
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
EndIf
EndIf

84
xml/sometime/page_campaign_ads_lucky_draw.xml Normal file
View file

@ -0,0 +1,84 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xffffff" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
Var Timeout = 0
Var ImgDir = "ROOT/taobin_project/image/event/lucky_draw_ads/"
Var Extension = ".png"
Var Text_X = 207
Var Text_Y = 1470
If show_eng = "true" Then
Var Extension = "_en.png"
Var Text_X = 233
Var Text_Y = 1468
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 10 Then
; Go back to lid straw page
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inc/video.inc"
; Background
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/display_point/alpha.png" </Filename>
</Image>
; Popup bg
<Image>
<X> 157 </X>
<Y> 480 </Y>
<Filename> Var( ImgDir + "popup_bg.png" ) </Filename>
</Image>
<Image>
<X> Text_X </X>
<Y> Text_Y </Y>
<Filename>
eval(
Var return = ImgDir + "text"
Var return = return + Extension
)
</Filename>
</Image>
<Button>
<X> 397 </X>
<Y> 1699 </Y>
<Filename> Var(ImgDir + "bn_next.png") </Filename>
<FilenamePress> Var(ImgDir + "bp_next.png") </FilenamePress>
<FilenameDisable> Var(ImgDir + "bp_next.png") </FilenameDisable>
<EventClick>
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventClick>
</Button>
<EventUnitTest4>
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
</EventUnitTest4>
</Popup>

6
xml/test_video_loop.xml
View file

@ -9,6 +9,7 @@
Var AdvTaobinHome = "/mnt/sdcard/coffeevending/taobin_project/adv/taobin_adv_"
Var HeadVideoFilename = "-"
If VideoAdvIndex = 1 Then
Var HeadVideoFilename = AdvTaobinHome + video_menu_0
EndIf
@ -39,6 +40,11 @@
DEBUGVAR video_main_5
EndIf
If HeadVideoFilename = "-" Then
DEBUGVAR HeadVideoFilename
Var HeadVideoFilename = "/mnt/sdcard/coffeevending/taobin_project/adv/taobin_adv_menu_00"
EndIf
Var HeadVideoFilename = HeadVideoFilename + ".mp4"
DEBUGVAR VideoAdvIndex