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:
wanlop run 2024-10-08 15:12:39 +07:00
commit c72eba6b87
214 changed files with 32239 additions and 1842 deletions
Download patch file Download diff file Expand all files Collapse all files

11722
xml/event/double_promotion_halloween_and_jemila.xml Normal file
View file

File diff suppressed because it is too large Load diff

80
xml/event/halloween/check_quota.xml Normal file
View file

@ -0,0 +1,80 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
Var Timeout = 0
Var MovieTicketUnavailable = 0
Var DiscountUnavailable = 0
Var AlreadyGetReward = 0
Var GameMemberPhoneNumber = TelephoneNumber
GETACCEXT GameMemberPhoneNumber 41
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 5 Then
SAVE "Check Quota timeout!!! skip game"
If luckyDrawAlredyGotReward = 1 Then
Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
Else
Open "ROOT/taobin_project/xml/page_collect_point_3_28_lucky_draw_campaign.xml"
EndIf
EndIf
</EventTimeout>
<EventActionOk>
If Ext1a = "" Then
If luckyDrawAlredyGotReward = 1 Then
Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
Else
Open "ROOT/taobin_project/xml/page_collect_point_3_28_lucky_draw_campaign.xml"
EndIf
Else
Var AlreadyGetReward = Ext1a
Var MovieTicketUnavailable = Ext1b
Var DiscountUnavailable = Ext1c
DEBUGVAR AlreadyGetReward
DEBUGVAR MovieTicketUnavailable
DEBUGVAR DiscountUnavailable
If AlreadyGetReward = 1 Then
If luckyDrawAlredyGotReward = 1 Then
Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
Else
Open "ROOT/taobin_project/xml/page_collect_point_3_28_lucky_draw_campaign.xml"
EndIf
EndIf
If MovieTicketUnavailable = 1 Then
If DiscountUnavailable = 1 Then
If luckyDrawAlredyGotReward = 1 Then
Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
Else
Open "ROOT/taobin_project/xml/page_collect_point_3_28_lucky_draw_campaign.xml"
EndIf
EndIf
EndIf
Open "ROOT/taobin_project/xml/event/halloween/page_starting_game.xml"
EndIf
</EventActionOk>
</Popup>

416
xml/event/halloween/game.xml Normal file
View file

@ -0,0 +1,416 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
Var MovieTicketIndex = 0
If MovieTicketUnavailable = 0 Then
Random2 1 14 MovieTicketIndex
EndIf
Var DiscountIndex = 0
If DiscountUnavailable = 0 Then
; for garantee not same index with movie
If MovieTicketIndex > 6 Then
Random2 1 6 DiscountIndex
Else
Random2 7 14 DiscountIndex
EndIf
EndIf
Var GhostSet = 0
Random2 1 5 GhostSet
Var DirImage = "ROOT/taobin_project/image/event/halloween/ghosts/"
Var DirGhostImage = DirImage + "set_"
Var DirGhostImage = DirGhostImage + GhostSet
If GhostSet = 1 Then
Var ghost1_X = 35
Var ghost1_Y = 972
Var ghost2_X = 729
Var ghost2_Y = 1268
Var ghost3_X = 38
Var ghost3_Y = 1645
Var ghost4_X = 430
Var ghost4_Y = 493
Var ghost5_X = 211
Var ghost5_Y = 733
Var ghost6_X = 800
Var ghost6_Y = 984
Var ghost7_X = 771
Var ghost7_Y = 1695
Var ghost8_X = 367
Var ghost8_Y = 911
Var ghost9_X = 386
Var ghost9_Y = 1466
Var ghost10_X = 674
Var ghost10_Y = 743
Var ghost11_X = 86
Var ghost11_Y = 472
Var ghost12_X = 859
Var ghost12_Y = 507
Var ghost13_X = 199
Var ghost13_Y = 1268
EndIf
If GhostSet = 2 Then
Var ghost1_X = 151
Var ghost1_Y = 1610
Var ghost2_X = 757
Var ghost2_Y = 1593
Var ghost3_X = 709
Var ghost3_Y = 1430
Var ghost4_X = 507
Var ghost4_Y = 1023
Var ghost5_X = 373
Var ghost5_Y = 458
Var ghost6_X = 206
Var ghost6_Y = 859
Var ghost7_X = 132
Var ghost7_Y = 1393
Var ghost8_X = 836
Var ghost8_Y = 784
Var ghost9_X = 746
Var ghost9_Y = 451
Var ghost10_X = 63
Var ghost10_Y = 510
Var ghost11_X = 384
Var ghost11_Y = 1303
Var ghost12_X = 54
Var ghost12_Y = 1095
Var ghost13_X = 744
Var ghost13_Y = 1101
EndIf
If GhostSet = 3 Then
Var ghost1_X = 70
Var ghost1_Y = 451
Var ghost2_X = 48
Var ghost2_Y = 1383
Var ghost3_X = 441
Var ghost3_Y = 1405
Var ghost4_X = 402
Var ghost4_Y = 932
Var ghost5_X = 308
Var ghost5_Y = 1162
Var ghost6_X = 735
Var ghost6_Y = 456
Var ghost7_X = 693
Var ghost7_Y = 1675
Var ghost8_X = 740
Var ghost8_Y = 822
Var ghost9_X = 615
Var ghost9_Y = 1117
Var ghost10_X = 811
Var ghost10_Y = 1389
Var ghost11_X = 346
Var ghost11_Y = 466
Var ghost12_X = 54
Var ghost12_Y = 1095
Var ghost13_X = 75
Var ghost13_Y = 788
EndIf
If GhostSet = 4 Then
Var ghost1_X = 380
Var ghost1_Y = 459
Var ghost2_X = 441
Var ghost2_Y = 1422
Var ghost3_X = 103
Var ghost3_Y = 1363
Var ghost4_X = 749
Var ghost4_Y = 491
Var ghost5_X = 87
Var ghost5_Y = 781
Var ghost6_X = 44
Var ghost6_Y = 1633
Var ghost7_X = 875
Var ghost7_Y = 1169
Var ghost8_X = 155
Var ghost8_Y = 1068
Var ghost9_X = 777
Var ghost9_Y = 760
Var ghost10_X = 385
Var ghost10_Y = 889
Var ghost11_X = 787
Var ghost11_Y = 1441
Var ghost12_X = 576
Var ghost12_Y = 1080
Var ghost13_X = 68
Var ghost13_Y = 454
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var GameTimeout = GameTimeout - 1
DEBUGVAR GameTimeout
If GameTimeout < 0 Then
If DiscountUnavailable = 0 Then
Var RewardType = "discount_timeout"
Open "ROOT/taobin_project/xml/event/halloween/page_get_reward.xml"
Else
Open "ROOT/taobin_project/xml/event/halloween/thank_you.xml"
EndIf
EndIf
TimerReset
Refresh
</EventTimeout>
;include="ROOT/taobin_project/inc/video.inc"
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> Var( DirImage + "game_bg.png" ) </Filename>
</Image>
; ============== Ghosts =====================
<Button>
<X> ghost1_X </X>
<Y> ghost1_Y </Y>
<Filename> Var( DirGhostImage + "/Ghost_1.png" ) </Filename>
<EventOnClick>
Var SelectedGhostNum = 1
Function 2
</EventOnClick>
</Button>
<Button>
<X> ghost2_X </X>
<Y> ghost2_Y </Y>
<Filename> Var( DirGhostImage + "/Ghost_2.png" ) </Filename>
<EventOnClick>
Var SelectedGhostNum = 2
Function 2
</EventOnClick>
</Button>
<Button>
<X> ghost3_X </X>
<Y> ghost3_Y </Y>
<Filename> Var( DirGhostImage + "/Ghost_3.png" ) </Filename>
<EventOnClick>
Var SelectedGhostNum = 3
Function 2
</EventOnClick>
</Button>
<Button>
<X> ghost4_X </X>
<Y> ghost4_Y </Y>
<Filename> Var( DirGhostImage + "/Ghost_4.png" ) </Filename>
<EventOnClick>
Var SelectedGhostNum = 4
Function 2
</EventOnClick>
</Button>
<Button>
<X> ghost5_X </X>
<Y> ghost5_Y </Y>
<Filename> Var( DirGhostImage + "/Ghost_5.png" ) </Filename>
<EventOnClick>
Var SelectedGhostNum = 5
Function 2
</EventOnClick>
</Button>
<Button>
<X> ghost6_X </X>
<Y> ghost6_Y </Y>
<Filename> Var( DirGhostImage + "/Ghost_6.png" ) </Filename>
<EventOnClick>
Var SelectedGhostNum = 6
Function 2
</EventOnClick>
</Button>
<Button>
<X> ghost7_X </X>
<Y> ghost7_Y </Y>
<Filename> Var( DirGhostImage + "/Ghost_7.png" ) </Filename>
<EventOnClick>
Var SelectedGhostNum = 7
Function 2
</EventOnClick>
</Button>
<Button>
<X> ghost8_X </X>
<Y> ghost8_Y </Y>
<Filename> Var( DirGhostImage + "/Ghost_8.png" ) </Filename>
<EventOnClick>
Var SelectedGhostNum = 8
Function 2
</EventOnClick>
</Button>
<Button>
<X> ghost9_X </X>
<Y> ghost9_Y </Y>
<Filename> Var( DirGhostImage + "/Ghost_9.png" ) </Filename>
<EventOnClick>
Var SelectedGhostNum = 9
Function 2
</EventOnClick>
</Button>
<Button>
<X> ghost10_X </X>
<Y> ghost10_Y </Y>
<Filename> Var( DirGhostImage + "/Ghost_10.png" ) </Filename>
<EventOnClick>
Var SelectedGhostNum = 10
Function 2
</EventOnClick>
</Button>
<Button>
<X> ghost11_X </X>
<Y> ghost11_Y </Y>
<Filename> Var( DirGhostImage + "/Ghost_11.png" ) </Filename>
<EventOnClick>
Var SelectedGhostNum = 11
Function 2
</EventOnClick>
</Button>
<Button>
<X> ghost12_X </X>
<Y> ghost12_Y </Y>
<Filename> Var( DirGhostImage + "/Ghost_12.png" ) </Filename>
<EventOnClick>
Var SelectedGhostNum = 12
Function 2
</EventOnClick>
</Button>
<Button>
<X> ghost13_X </X>
<Y> ghost13_Y </Y>
<Filename> Var( DirGhostImage + "/Ghost_13.png" ) </Filename>
<EventOnClick>
Var SelectedGhostNum = 13
Function 2
</EventOnClick>
</Button>
; ============== End Ghosts =================
<Function2>
SAVELOG "Press ghost!!!"
DEBUGVAR SelectedGhostNum
DEBUGVAR MovieTicketIndex
If SelectedGhostNum = MovieTicketIndex Then
Var RewardType = "movie_ticket"
Open "ROOT/taobin_project/xml/event/halloween/page_get_reward.xml"
Else
If SelectedGhostNum = DiscountIndex Then
Var RewardType = "discount"
Open "ROOT/taobin_project/xml/event/halloween/page_get_reward.xml"
EndIf
EndIf
If GameTimeout < 0 Then
If DiscountUnavailable = 0 Then
Var RewardType = "discount_timeout"
Open "ROOT/taobin_project/xml/event/halloween/page_get_reward.xml"
Else
Open "ROOT/taobin_project/xml/event/halloween/thank_you.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/event/halloween/page_try_again.xml"
EndIf
</Function2>
<Text>
<X> 914 </X>
<Y> 380 </Y>
<Width> 165 </Width>
<Height> 100 </Height>
<Font> KanitRegularTTF </Font>
<Size> 100 </Size>
<Color> 0xFFFFFF </Color>
<Align> center-vertical-horizontal </Align>
<Value> GameTimeout </Value>
</Text>
<EventUnitTest1>
Open "ROOT/taobin_project/xml/event/halloween/game.xml"
</EventUnitTest1>
</Popup>

81
xml/event/halloween/page_get_reward.xml Normal file
View file

@ -0,0 +1,81 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
Var Timeout = 0
DEBUGVAR RewardType
If RewardType = "movie_ticket" Then
If show_en = "true" Then
Var RewardImage = "ROOT/taobin_project/image/event/halloween/get_movie_ticket_en.png"
Else
Var RewardImage = "ROOT/taobin_project/image/event/halloween/get_movie_ticket_th.png"
EndIf
Var reward = "150"
EndIf
If RewardType = "discount" Then
If show_en = "true" Then
Var RewardImage = "ROOT/taobin_project/image/event/halloween/get_discount_en.png"
Else
Var RewardImage = "ROOT/taobin_project/image/event/halloween/get_discount_th.png"
EndIf
Var reward = "151"
EndIf
If RewardType = "discount_timeout" Then
Var RewardImage = "ROOT/taobin_project/image/event/halloween/thank_you_with_discount.png"
Var reward = "151"
EndIf
DEBUGVAR RewardImage
Var var2 = "X"
Var var3 = "X"
AddData 56 GameMemberPhoneNumber reward var2 var3
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
DEBUGVAR Timeout
If Timeout > 5 Then
If luckyDrawAlredyGotReward = 1 Then
Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
Else
Open "ROOT/taobin_project/xml/page_collect_point_3_28_lucky_draw_campaign.xml"
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inc/video.inc"
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> RewardImage </Filename>
</Image>
<EventUnitTest1>
Open "ROOT/taobin_project/xml/event/halloween/page_get_reward.xml"
</EventUnitTest1>
</Popup>

91
xml/event/halloween/page_starting_game.xml Normal file
View file

@ -0,0 +1,91 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
Var Timeout = 0
; play time 10 sec
Var GameTimeout = 10
Var DirImage = "ROOT/taobin_project/image/event/halloween/"
If show_eng = "true" Then
Var startingGameTitle = DirImage + "starting_game_title_en.png"
Var Title_X = 73
Var TItle_Y = 431
Var bn_PlayGame = DirImage + "bn_play_en.png"
Var bp_PlayGame = DirImage + "bp_play_en.png"
Var bn_NotPlayGame = DirImage + "bn_not_play_en.png"
Var bp_NotPlayGame = DirImage + "bp_not_play_en.png"
Else
Var startingGameTitle = DirImage + "starting_game_title_th.png"
Var Title_X = 129
Var TItle_Y = 493
Var bn_PlayGame = DirImage + "bn_play_th.png"
Var bp_PlayGame = DirImage + "bp_play_th.png"
Var bn_NotPlayGame = DirImage + "bn_not_play_th.png"
Var bp_NotPlayGame = DirImage + "bp_not_play_th.png"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 15 Then
If luckyDrawAlredyGotReward = 1 Then
Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
Else
Open "ROOT/taobin_project/xml/page_collect_point_3_28_lucky_draw_campaign.xml"
EndIf
EndIf
TimerReset
Refresh
</EventTimeout>
;include="ROOT/taobin_project/inc/video.inc"
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> Var( DirImage + "starting_game_bg.png" ) </Filename>
</Image>
<Image>
<X> Title_X </X>
<Y> Title_Y </Y>
<Filename> startingGameTitle </Filename>
</Image>
<Button>
<X> 109 </X>
<Y> 1229 </Y>
<Filename> bn_PlayGame </Filename>
<FilenamePress> bp_PlayGame </FilenamePress>
<EventClick>
Open "ROOT/taobin_project/xml/event/halloween/game.xml"
</EventClick>
</Button>
<Button>
<X> 582 </X>
<Y> 1229 </Y>
<Filename> bn_NotPlayGame </Filename>
<FilenamePress> bp_NotPlayGame </FilenamePress>
<EventClick>
Open "ROOT/taobin_project/xml/event/halloween/game.xml"
</EventClick>
</Button>
</Popup>

98
xml/event/halloween/page_try_again.xml Normal file
View file

@ -0,0 +1,98 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
Var GameTimeout = GameTimeout - 1
Var DirImage = "ROOT/taobin_project/image/event/halloween/try_again/"
If show_eng = "true" Then
Var Title = DirImage + "try_again_title_en.png"
Var TryAgainBtn = DirImage + "try_again_btn_en.png"
Var CloseBtn = DirImage + "close_btn_en.png"
Else
Var Title = DirImage + "try_again_title_th.png"
Var TryAgainBtn = DirImage + "try_again_btn_th.png"
Var CloseBtn = DirImage + "close_btn_th.png"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var GameTimeout = GameTimeout - 1
DEBUGVAR GameTimeout
If GameTimeout < 0 Then
If DiscountUnavailable = 0 Then
Var RewardType = "discount_timeout"
Open "ROOT/taobin_project/xml/event/halloween/page_get_reward.xml"
Else
Open "ROOT/taobin_project/xml/event/halloween/thank_you.xml"
EndIf
EndIf
TimerReset
Refresh
</EventTimeout>
;include="ROOT/taobin_project/inc/video.inc"
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> Var( DirImage + "try_again_bg.png" ) </Filename>
</Image>
<Image>
<X> 165 </X>
<Y> 442 </Y>
<Filename> Title </Filename>
</Image>
<Button>
<X> 209 </X>
<Y> 1719 </Y>
<Filename> TryAgainBtn </Filename>
<EventClick>
SAVE "Try Again!"
Open "ROOT/taobin_project/xml/event/halloween/game.xml"
</EventClick>
</Button>
<Button>
<X> 612 </X>
<Y> 1719 </Y>
<Filename> CloseBtn </Filename>
<EventClick>
SAVELOG "Close game"
If DiscountUnavailable = 0 Then
Var RewardType = "discount_timeout"
Open "ROOT/taobin_project/xml/event/halloween/page_get_reward.xml"
Else
Open "ROOT/taobin_project/xml/event/halloween/thank_you.xml"
EndIf
</EventClick>
</Button>
<Text>
<X> 914 </X>
<Y> 380 </Y>
<Width> 165 </Width>
<Height> 100 </Height>
<Font> KanitRegularTTF </Font>
<Size> 100 </Size>
<Color> 0xFFFFFF </Color>
<Align> center-vertical-horizontal </Align>
<Value> GameTimeout </Value>
</Text>
</Popup>

41
xml/event/halloween/thank_you.xml Normal file
View file

@ -0,0 +1,41 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
Var Timeout = 0
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
DEBUGVAR Timeout
If Timeout > 5 Then
If luckyDrawAlredyGotReward = 1 Then
Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
Else
Open "ROOT/taobin_project/xml/page_collect_point_3_28_lucky_draw_campaign.xml"
EndIf
EndIf
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inc/video.inc"
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/event/halloween/thank_you.png" </Filename>
</Image>
</Popup>

0
xml/event/multi_promotion_config_cocoa77_nam_hom_coconut.json → xml/event/ignore_multi_promotion_config_cocoa77_nam_hom_coconut.json
View file

30
xml/event/ignore_multi_promotion_config_halloween_jemila.json Normal file
View file

@ -0,0 +1,30 @@
[
{
"name": "halloween",
"template": "/event/promotion_video_template.inc",
"config": {
"normal_eng": "ROOT/taobin_project/image/event/halloween/halloween.png",
"normal_thai": "ROOT/taobin_project/image/event/halloween/halloween.png",
"press_eng": "ROOT/taobin_project/image/event/halloween/halloween.png",
"press_thai": "ROOT/taobin_project/image/event/halloween/halloween.png",
"disable_eng": "ROOT/taobin_project/image/event/halloween/halloween.png",
"disable_thai": "ROOT/taobin_project/image/event/halloween/halloween.png",
"video_eng": "ROOT/taobin_project/image/event/halloween/halloween_en.mp4",
"video_thai": "ROOT/taobin_project/image/event/halloween/halloween_th.mp4",
"event_on_click": "ROOT/taobin_project/xml/page_catalog_group_pro_halloween.xml"
}
},
{
"name": "jemila",
"template": "/event/promotion_template.inc",
"config": {
"normal_eng": "ROOT/taobin_project/image/event/jemila/jemila.png",
"normal_thai": "ROOT/taobin_project/image/event/jemila/jemila.png",
"press_eng": "ROOT/taobin_project/image/event/jemila/jemila.png",
"press_thai": "ROOT/taobin_project/image/event/jemila/jemila.png",
"disable_eng": "ROOT/taobin_project/image/event/jemila/jemila.png",
"disable_thai": "ROOT/taobin_project/image/event/jemila/jemila.png",
"event_on_click": "ROOT/taobin_project/xml/page_catalog_group_pro_jemila.xml"
}
}
]

2
xml/event/out_put_file3.txt
View file

@ -1 +1 @@
/event/promotion_mom_cocoa.xml
/event/promotion_halloween.xml

13418
xml/event/promotion_halloween.xml Normal file
View file

File diff suppressed because it is too large Load diff

116
xml/event/promotion_template3.inc
View file

@ -1,89 +1,81 @@
<EventActionOk>
If GettingDiscountStatus = 1 Then
If Ext1a = "ok" Then
Else
EndIf
Open "ROOT/taobin_project/xml/page_catalog_group_pro_mom_cocoa.xml"
EndIf
</EventActionOk>
<Button>
<X> 42 </X>
<Y> 518 </Y>
<State> BigButtonEnable </State>
<Filename>
eval(
If show_eng = "true" Then
If SystemDateDayInt >= 13 Then
Var return = ###normal_eng + "13-16.png"
Else
Var return = ###normal_eng + "10-12.png"
EndIf
eval(
If show_eng = "true" Then
Var return = ###normal_eng
Else
If SystemDateDayInt >= 13 Then
Var return = ###normal_thai + "13-16.png"
Else
Var return = ###normal_thai + "10-12.png"
EndIf
Var return = ###normal_thai
EndIf
)
</Filename>
<FilenamePress>
eval(
If show_eng = "true" Then
If SystemDateDayInt >= 13 Then
Var return = ###normal_eng + "13-16.png"
Else
Var return = ###normal_eng + "10-12.png"
EndIf
<FilenamePress>
eval(
If show_eng = "true" Then
Var return = ###normal_eng
Else
If SystemDateDayInt >= 13 Then
Var return = ###normal_thai + "13-16.png"
Else
Var return = ###normal_thai + "10-12.png"
EndIf
Var return = ###normal_thai
EndIf
)
</FilenamePress>
<FilenameDisable>
eval(
If show_eng = "true" Then
If SystemDateDayInt >= 13 Then
Var return = ###normal_eng + "13-16.png"
Else
Var return = ###normal_eng + "10-12.png"
EndIf
<FilenameDisable>
eval(
If show_eng = "true" Then
Var return = ###normal_eng
Else
If SystemDateDayInt >= 13 Then
Var return = ###normal_thai + "13-16.png"
Else
Var return = ###normal_thai + "10-12.png"
EndIf
Var return = ###normal_thai
EndIf
)
</FilenameDisable>
<EventOnClick>
If MomCocoaProDiscountEnable = 1 Then
If GettingDiscountStatus = 0 Then
Var GettingDiscountStatus = 1
Var AC = "1/0899999999"
GETACCEXT AC 38
EndIf
Else
Open "ROOT/taobin_project/xml/page_catalog_group_pro_mom_cocoa.xml"
EndIf
<EventOnClick>
Open "ROOT/taobin_project/xml/page_catalog_group_pro_halloween.xml"
</EventOnClick>
<Video>
<X> 42 </X>
<Y> 518 </Y>
<Width> 484 </Width>
<Height> 616 </Height>
<Loop> "true" </Loop>
<State>
eval(
If show_eng = "true" Then
Var return = "Invisible"
Else
Var return = "Enable"
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image/event/halloween/halloween_th.mp4" </Filename>
</Video>
<Video>
<X> 42 </X>
<Y> 518 </Y>
<Width> 484 </Width>
<Height> 616 </Height>
<State>
eval(
If show_eng = "true" Then
Var return = "Enable"
Else
Var return = "Invisible"
EndIf
)
</State>
<Loop> "true" </Loop>
<Filename> "ROOT/taobin_project/image/event/halloween/halloween_en.mp4" </Filename>
</Video>
</Button>
<EventUnitTest1>
Var BigButtonEnable = "Enable"
Var BigButtonEnable = "Enable"
Refresh
</EventUnitTest1>
<EventUnitTest2>

34
xml/event/script_common_for_open_promotion_xml.ev
View file

@ -4,9 +4,8 @@ DEBUGVAR PayOfflineMode
DEBUGVAR CocktailShow
DEBUGVAR OpenFromPageBoard
DEBUGVAR MomCocoaPro
DEBUGVAR RobinsonBeautyPro
DEBUGVAR JemilaPro
DEBUGVAR HallweenPro
Var PromotionState1 = "Invisible"
Var PromotionState2 = "Invisible"
@ -15,14 +14,14 @@ Var PromotionState3 = "Invisible"
If CocktailShow = "true" Then
If OpenFromPageBoard = 1 Then
OpenInst 2 "ROOT/taobin_project/xml/page_catalog_group_recommend.xml"
OpenInst 2 "ROOT/taobin_project/xml/page_catalog_group_recommend.xml"
Else
Open "ROOT/taobin_project/xml/page_catalog_group_recommend.xml"
Open "ROOT/taobin_project/xml/page_catalog_group_recommend.xml"
EndIf
Else
Var BigButtonEnable = "Enable"
Var CountEnablePromotion = 0
Var FileRecommendToOpen = "ROOT/taobin_project/xml/page_catalog_group_recommend.xml"
; zone promote
@ -31,13 +30,20 @@ Else
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/promotion_jemila.xml"
EndIf
If RobinsonBeautyPro = 1 Then
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/promotion_robinson_beauty.xml"
Else
If MomCocoaPro = 1 Then
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/promotion_mom_cocoa_ignore.xml"
EndIf
EndIf
If HalloweenPro = 1 Then
Var PromotionState1 = "Enable"
Var ProEnableCount = 1
If JemilaPro = 1 Then
Var PromotionState2 = "Enable"
Var ProEnableCount = ProEnableCount + 1
EndIf
If ProEnableCount > 1 Then
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/double_promotion_halloween_and_jemila.xml"
Else
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/promotion_halloween.xml"
EndIf
EndIf
If OpenFromPageBoard = 1 Then
DEBUGVAR FreeEnergyDrink
@ -45,9 +51,9 @@ Else
OpenInst 2 FileRecommendToOpen
Var OpenFromPageBoard = 0
Else
Open FileRecommendToOpen
EndIf

39
xml/event/tricker.ev
View file

@ -129,11 +129,15 @@ Var Seeker.BuyMomCocoaProFlag = 0
Var RobinsonBeautyPro = 0
Var FromRobinsonBeautyPro = 0
; Enable Jemila promotion, 1 - 18 Oct
; Enable Jemila promotion, 1 - 25 Oct
Var JemilaPro = 0
Var FromJemilaPro = 0
Var JemilaRewardOutOfStock = 0
; Halloween promotion, 21 Oct - 3 Nov
Var HalloweenPro = 0
Var FromHalloweenPro = 0
Var NewCollectPoint = 1
Var PayMentCodeShouldCollectPromotionPoint = 0
Var NotCollectPointPromotion = 0
@ -205,9 +209,19 @@ If SystemDateMonthInt = 9 Then
EndIf
If SystemDateMonthInt = 10 Then
If SystemDateDayInt <= 18 Then
If SystemDateDayInt <= 25 Then
Var JemilaPro = 1
EndIf
If SystemDateDayInt >= 21 Then
Var HalloweenPro = 1
EndIf
EndIf
If SystemDateMonthInt = 11 Then
If SystemDateDayInt <= 3 Then
Var HalloweenPro = 1
EndIf
EndIf
@ -222,6 +236,7 @@ If BoxID = 105005 Then
Var MomCocoaProDiscountEnable = 0
Var RobinsonBeautyPro = 0
Var JemilaPro = 1
Var HalloweenPro = 1
EndIf
If BoxID = 172331 Then
@ -272,7 +287,6 @@ If BoxID = 173149 Then
Var RobinsonBeautyPro = 0
Var JemilaPro = 1
EndIf
DEBUGVAR JemilaPro
Var XMLLiveInfoEnable = 1
@ -349,6 +363,7 @@ If taobin_nopro = "true" Then
Var MomCocoaPro = 0
Var RobinsonBeautyPro = 0
Var JemilaPro = 0
Var HalloweenPro = 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"
@ -381,7 +396,11 @@ EndIf
If 7UpSyrupEnable = "true" Then
Else
Var 7UpLuckyDrawX2Pro = 0
If PepsiHighYSyrupEnable = "true" Then
Else
Var HalloweenPro = 0
EndIf
EndIf
If MintSyrupEnable = "true" Then
@ -410,6 +429,11 @@ DEBUGVAR JemilaRewardOutOfStock
Var New_Payment = 0
Var NewFlowPaymentCode = 0
If BoxID = 105005 Then
Var New_Payment = 1
Var NewFlowPaymentCode = 1
EndIf
If BoxID = 173149 Then
Var New_Payment = 1
Var NewFlowPaymentCode = 1
@ -462,3 +486,10 @@ If BoxID = 176757 Then
Var SaveOrderNameAndPictureEnable = 1
EndIf
; Check POS machine flag
Var ConnectWithPOSMachine = 0
READ_FILE "/mnt/sdcard/coffeevending/POS_MACHINE" POSMachineFlag
If POSMachineFlag = 1 Then
Var ConnectWithPOSMachine = 1
EndIf

12
xml/menu_new_layout_gen.py
View file

@ -277,6 +277,12 @@
else:
from_jemila = False
if current_file_name == "page_catalog_group_pro_halloween.skt":
from_halloween = True
menu_white_color_catalog = True
else:
from_halloween = False
#print ("######################################################################################################")
idx_of_eng = 2
out_xml('<FrameScroll> \r\n')
@ -624,6 +630,9 @@
if from_jemila:
out_xml( '\t\tVar FromJemilaPro = 1 \r\n')
if from_halloween:
out_xml( '\t\tVar FromHalloweenPro = 1 \r\n')
out_xml( '\t\t\r\n')
out_xml( '\t\t'+ button_add_string +'\r\n')
@ -1269,6 +1278,9 @@
if from_jemila:
out_xml( '\t\tVar FromJemilaPro = 1 \r\n')
if from_halloween:
out_xml( '\t\tVar FromHalloweenPro = 1 \r\n')
out_xml( '\t\t\r\n')
out_xml( '\t\t\r\n')

60
xml/page_board.xml
View file

@ -7,6 +7,10 @@
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
DEBUGVAR LangProcess
;TopView "hide"
;OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/topview_blank_main.xml"
Var FileNumber = 1
@ -108,6 +112,9 @@
Var InterRegular = "ROOT/taobin_project/font/Inter/Inter-Regular.ttf"
Var PepsiExtend = "ROOT/taobin_project/font/PepsiOwners2/PepsiOwners2-Extended220909.ttf"
Var countClick = 0
Var RoadShow = "false"
@ -208,6 +215,7 @@
STRCONTAIN "1216" MaterialAvailable CoconutSyrupEnable
STRCONTAIN "1042" MaterialAvailable CocoaPowderEnable
STRCONTAIN "1037" MaterialAvailable 7UpSyrupEnable
STRCONTAIN "1038" MaterialAvailable PepsiHighYSyrupEnable
STRCONTAIN "1052" MaterialAvailable CollagenPowderEnable
;Var AppFastEnable = "false"
@ -545,8 +553,30 @@
; zone config language
DEBUGVAR LangProcess
; lang-lock-until-done
If LangProcess = "Done" Then
Var ShowButtonClick = "Enable"
Var ShowButtonClickFull = "Enable"
Else
Var ShowButtonClick = "Invisible"
Var ShowButtonClickFull = "Invisible"
EndIf
SetLanguage LanguageInit
; lang-lock-until-done
If LangProcess = "Done" Then
Var ShowButtonClick = "Enable"
Var ShowButtonClickFull = "Enable"
Else
Var ShowButtonClick = "Invisible"
Var ShowButtonClickFull = "Invisible"
EndIf
DEBUGVAR LangProcess
Var InternationalEnable = 0
Var InternationalEnableStr = "false"
@ -645,9 +675,12 @@
TRY "/mnt/sdcard/coffeevending/taobin_project/inter/mys/video/script_video.ev"
Var WebAppShow = "Invisible"
DEBUGVAR LangProcess
EnableLanguage "ENG"
EnableLanguage "MALAY"
DEBUGVAR LangProcess
SetLanguage "ENG"
DEBUGVAR LangProcess
LanguageControl "UpdateList" "-"
Var InternationalEnable = 1
Var show_eng = "true"
@ -907,6 +940,9 @@
If BoxID = 210604 Then
Var SettingIgnoreCollectPoint = 0
EndIf
If BoxID = 210699 Then
Var SettingIgnoreCollectPoint = 0
EndIf
READ_FILE "/mnt/sdcard/coffeevending/use_pt_dev" use_pt_dev
STRCONTAIN "1" use_pt_dev enable_pt_mode_by_cfg
@ -994,8 +1030,8 @@
Var MinPhoneNumber = 9
Var MaxPhoneNumber = 9
Var UsePepsiTheme = 1
Var TargetThemeNum = 2
;Var UsePepsiTheme = 0
;Var TargetThemeNum = 2
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml"
@ -1074,6 +1110,7 @@
DEBUGVAR InternationalEnable
DEBUGVAR CountryRootPath
DEBUGVAR LangProcess
If InternationalEnable = 1 Then
@ -1157,7 +1194,9 @@
EndIf
EndIf
TRY "ROOT/taobin_project/xml/profile/run.ev"
If ProYuzu250Enable = 0 Then
TRY "ROOT/taobin_project/xml/profile/run.ev"
EndIf
Var NETCORE_LOST_COUNT_UP = 0
@ -1280,6 +1319,21 @@
DEBUGVAR CountDownPauseVideo2
Var TimeProfilePrice = 0
DEBUGVAR LangProcess
; lang-lock-until-done
If LangProcess = "Done" Then
Var ShowButtonClick = "Enable"
Var ShowButtonClickFull = "Enable"
Else
Var ShowButtonClick = "Invisible"
Var ShowButtonClickFull = "Invisible"
EndIf
Machine NewPaymentOpenBrewingXMLEnable
</EventOpen>

54
xml/page_catalog_group_pro_halloween.skt Normal file
View file

@ -0,0 +1,54 @@
<?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 FromHalloweenPro = 0
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
?>
<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>
;BigLogoLayout
</Popup>

3881
xml/page_catalog_group_pro_halloween.xml Normal file
View file

File diff suppressed because it is too large Load diff

117
xml/page_collect_point_2.xml
View file

@ -10,7 +10,7 @@
Var Timeout = 0
SAVELOG UnitTestType
If UnitTestType = "1" Then
Var CoffeePoint = 10
Open "ROOT/taobin_project/xml/page_show_consent.xml"
@ -23,12 +23,12 @@
Var Seeker.TaobinErrorNetwork = 0
If show_eng = "true" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
@ -45,10 +45,10 @@
EndIf
Var GetLuckyDraw = 0
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
@ -56,61 +56,61 @@
Var Timeout = Timeout + 1
If Timeout > 30 Then
Var TaobinLevel = 0
Var CoffeePoint = 1
Var CoffeePoint = 1
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber
Open "ROOT/taobin_project/xml/page_collect_point_error.xml"
EndIf
TimerReset
Refresh
</EventTimeout>
</EventTimeout>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventActionOk>
If StepGetPoint = 0 Then
If PdpaAsk = 0 Then
Open "ROOT/taobin_project/xml/page_show_consent.xml"
Open "ROOT/taobin_project/xml/page_show_consent.xml"
Else
Var StepGetPoint = 1
Var TelephoneNumber = TelephoneNumberX
GETACCEXT TelephoneNumber 14
Var Ext1a = ""
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
EndIf
Else
If Ext1a = "" Then
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember = TelephoneNumber
Open "ROOT/taobin_project/xml/page_collect_point_error.xml"
Else
If GetLuckyDraw = 1 Then
@ -120,22 +120,28 @@
Var luckyDrawTicket = Ext1h
INT luckyDrawTicket
Var luckyDrawAlredyGotReward = Ext1i
If luckyDrawAlredyGotReward = 1 Then
Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
If FromHalloweenPro = 1 Then
Open "ROOT/taobin_project/xml/event/halloween/check_quota.xml"
Else
Open "ROOT/taobin_project/xml/page_collect_point_3_28_lucky_draw_campaign.xml"
If luckyDrawAlredyGotReward = 1 Then
Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
Else
Open "ROOT/taobin_project/xml/page_collect_point_3_28_lucky_draw_campaign.xml"
EndIf
EndIf
Else
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember = TelephoneNumber
Open "ROOT/taobin_project/xml/page_collect_point_error.xml"
EndIf
EndIf
If GetLuckyDraw = 0 Then
If Ext1a = "ok" Then
@ -162,13 +168,13 @@
Else
Var Seeker.IsLineMember = 1
EndIf
Var TelephoneNumber = TelephoneNumberX
Var TNumberTaobinMemberXXX = TelephoneNumber
;Var PointTaobinTmp = 4
Var PointTaobin = PointTaobinTmp
Var pTaobin = PointTaobin
@ -190,14 +196,14 @@
Var Seeker.PointTaobinStr = ParamCP
Var Seeker.TNumberTaobinMember = TelephoneNumberX
Var CoffeePointRank = Ext1b
INT CoffeePointRank
Var CoffeePoint1 = Ext1c
INT CoffeePoint1
Var CoffeePoint = PointTaobin + CoffeePoint1
Var CoffeePointOld = CoffeePoint1
@ -205,7 +211,7 @@
Var CoffeePointRank = CoffeePointRank + 0
Else
Var CoffeePointRank = CoffeePointRank + PointTaobin
EndIf
EndIf
Var CoffeePointRankTmp = CoffeePointRank
@ -216,13 +222,13 @@
;inter-xml-open
If CountryName = "Malaysia" Then
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
EndIf
;inter-xml-open
If CountryName = "Indonesia" Then
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
EndIf
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
EndIf
;inter-xml-open
If CountryName = "Australia" Then
@ -231,29 +237,29 @@
Var pageCollectPoint = CountryRootPath + "/xml/page_collect_point_3.lxml"
Open pageCollectPoint
Else
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
EndIf
EndIf
;inter-xml-open
If CountryName = "Singapore" Then
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
EndIf
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
EndIf
Open "ROOT/taobin_project/xml/page_show_consent.xml"
Open "ROOT/taobin_project/xml/page_show_consent.xml"
EndIf
If PayAmount >= 20 Then
If TaobinPromoX = "p2.no_otp" Then
Open "ROOT/taobin_project/xml/page_collect_point_extend1.xml"
Open "ROOT/taobin_project/xml/page_collect_point_extend1.xml"
EndIf
If TaobinPromoX = "p2.unused" Then
Open "ROOT/taobin_project/xml/page_collect_point_extend1.xml"
Open "ROOT/taobin_project/xml/page_collect_point_extend1.xml"
EndIf
EndIf
If NewCollectPoint = 1 Then
@ -264,14 +270,14 @@
Open "ROOT/taobin_project/xml/page_collect_point_3_28.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
EndIf
Else
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember = TelephoneNumber
@ -284,20 +290,20 @@
</EventActionOk>
<EventActionError>
<EventActionError>
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber
Open "ROOT/taobin_project/xml/page_collect_point_error.xml"
</EventActionError>
</EventActionError>
<EventMachine>
If MachineStage = "drink-success" Then
@ -360,4 +366,3 @@
</Popup>

40
xml/page_display_get_free.xml
View file

@ -2,13 +2,20 @@
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Background> BackgroundColor </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
If UsePepsiTheme = 1 Then
Var WTCGetFree = CountryWTCRootPath + "/xml/page_display_get_free.xml"
Open WTCGetFree
EndIf
; On open
Var Timeout = 0
If show_eng = "true" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/display_get_free_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
@ -31,15 +38,15 @@
Var MemberState2 = "Enable"
Var MemberState3 = "Invisible"
If show_eng = "true" Then
If show_eng = "true" Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Get_free_drink_faster.mp3"
Else
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Get_free_drink_faster.mp3"
EndIf
Else
Else
If show_eng = "true" Then
If show_eng = "true" Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/You_mode_it.mp3"
Else
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/You_mode_it.mp3"
@ -66,25 +73,25 @@
Var MemberState3 = "Invisible"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = Timeout + 1
If Timeout > 5 Then
; goto lid straw
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
;Open "ROOT/taobin_project/xml/page_catalog.xml"
@ -92,14 +99,14 @@
TimerReset
Refresh
</EventTimeout>
</EventTimeout>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventActionOk>
@ -169,10 +176,10 @@
<FilenamePress> Var( DirImage + "/bp_accept.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
; goto lid straw
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
@ -199,4 +206,3 @@
</Popup>

60
xml/page_get_yourchange.xml
View file

@ -7,8 +7,8 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
Var Timeout = 0
Var LangButtonEnable = "Enable"
If CountryName = "Singapore" Then
@ -22,11 +22,11 @@
If CountryName = "UnitedArabEmirates Dubai" Then
Var LangButtonEnable = "Invisible"
EndIf
DEBUGVAR LangButtonEnable
If show_eng = "true" Then
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
@ -36,11 +36,11 @@
EndIf
Var DirImage = "ROOT/taobin_project/image/page_thankyou_en"
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
@ -49,19 +49,19 @@
Var show_btn = ""
EndIf
Var DirImage = "ROOT/taobin_project/image/page_thankyou"
EndIf
If show_eng = "true" Then
If show_eng = "true" Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Dont_forget_your_changes_below.mp3"
Else
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Dont_forget_your_changes_below.mp3"
EndIf
Var imgGetChange = "/imgGetChange.png"
;inter-image
If CountryName = "Malaysia" Then
Var imgGetChange = "/imgGetChange-MYR.png"
@ -70,7 +70,7 @@
;inter-image
If CountryName = "Indonesia" Then
Var imgGetChange = "/imgGetChange-IDR.png"
EndIf
EndIf
;inter-image
If CountryName = "Singapore" Then
@ -93,19 +93,19 @@
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
<EventTimeout>
If Timeout >= 2 Then
Var Timeout = Timeout + 1
If ChangeStatus = "payout-end" Then
If Timeout >= 2 Then
If ChangeStatus = "payout-end" Then
Var Timeout = 30
EndIf
If Seeker = "curr" Then
Var Timeout = 30
EndIf
EndIf
If Timeout >= 30 Then
@ -115,7 +115,7 @@
DEBUGVAR PayDetail
DEBUGVAR PayDetail2
UpdateTxRef2 TxRef1 ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate PayO2 PdpaAccept VendingDiscount VendingCampaign PayReference PayType CreditReference PayDetail PayDetail2
UpdateTxRef2 TxRef1 ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate PayO2 PdpaAccept VendingDiscount VendingCampaign PayReference PayType CreditReference PayDetail PayDetail2
EndIf
If InternationalEnable = 1 Then
@ -124,9 +124,9 @@
If Seeker = "next" Then
;CoinBack
Open Brew3ConInter
Open Brew3ConInter
Else
Open Brew3Inter
Open Brew3Inter
EndIf
Else
@ -136,13 +136,13 @@
If Seeker = "next" Then
;CoinBack
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
Else
Open "ROOT/taobin_project/xml/page_brewing3.xml"
Open "ROOT/taobin_project/xml/page_brewing3.xml"
EndIf
EndIf
EndIf
;If New_Payment = 1 Then
; TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/payment.ev"
@ -150,20 +150,20 @@
;If Seeker = "next" Then
;CoinBack
; Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
; Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
;Else
; Open "ROOT/taobin_project/xml/page_brewing3.xml"
; Open "ROOT/taobin_project/xml/page_brewing3.xml"
;EndIf
EndIf
EndIf
Refresh
TimerReset
</EventTimeout>
</EventTimeout>
;include="ROOT/taobin_project/inc/video.inc"
@ -184,8 +184,8 @@
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
<EventClick>
</EventClick>
</Button>

92
xml/page_lid_straw.xml
View file

@ -6,9 +6,9 @@
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var CountUpBrewing = BrewTime - CountDownBrewing
;Var CountUpBrewing = 0
Var CountDownVideoTimeReload = AnimationVideoPlayTime
@ -18,33 +18,33 @@
Var Timeout = 0
If show_eng = "true" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_lid_straw_en"
Var PictureEnd = "_en.png"
Var BottomText = PicturePath + "text_bottom_eng.png"
Var lid_straw_bg_iamge = DirImage + "/img4.png"
Var lid_straw_bg_iamge = DirImage + "/img4.png"
If LidState = "Enable" Then
Var lid_straw_bg_iamge = DirImage + "/img3.png"
Var lid_straw_bg_iamge = DirImage + "/img3.png"
EndIf
Else
Var DirImage = "ROOT/taobin_project/image/page_lid_straw"
Var PictureEnd = ".png"
Var BottomText = PicturePath + "text_bottom_thai2.png"
Var lid_straw_bg_iamge = DirImage + "/img4.png"
Var lid_straw_bg_iamge = DirImage + "/img4.png"
If LidState = "Enable" Then
Var lid_straw_bg_iamge = DirImage + "/img3.png"
Var lid_straw_bg_iamge = DirImage + "/img3.png"
EndIf
EndIf
If InternationalEnable = 1 Then
Var PicturePath = "/mnt/sdcard/coffeevending/taobin_project/image/page_doing/"
Var PictureBegin = "txt_"
Var PictureEnd = "_en.png"
@ -62,7 +62,7 @@
Var PicturePath = CountryRootPath + "/image/page_doing/"
Var PictureBegin = "txt_"
Var PictureEnd = "_en.png"
;inter-has-alter-anim
If CountryName = "UnitedArabEmirates Dubai" Then
;check LanguageShow
@ -93,7 +93,7 @@
Var PictureBegin = "txt_"
EndIf
Var VideoPlayFile = VideoPath
Var VideoPlayFile = VideoPlayFile + VideoFileBegin
@ -107,8 +107,8 @@
If Seeker.PayWithQR = 0 Then
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
@ -122,9 +122,9 @@
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
EndIf
EndIf
If Seeker = "next" Then
;CoinBack
If ChangeFlag2 = 0 Then
@ -133,8 +133,8 @@
Var PayDetail2 = ToppingDetail
DEBUGVAR PayDetail
DEBUGVAR PayDetail2
UpdateTxRef2 TxRef1 ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate PayO2 PdpaAccept VendingDiscount VendingCampaign PayReference PayType CreditReference PayDetail PayDetail2
UpdateTxRef2 TxRef1 ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate PayO2 PdpaAccept VendingDiscount VendingCampaign PayReference PayType CreditReference PayDetail PayDetail2
EndIf
If CountryName = "UnitedArabEmirates Dubai" Then
Var brewing3ContiInter = CountryRootPath + "/xml/page_brewing3Conti.lxml"
@ -145,8 +145,8 @@
If New_Payment = 1 Then
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/payment.ev"
EndIf
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
EndIf
Else
@ -159,12 +159,12 @@
Open "ROOT/taobin_project/xml/page_get_yourchange.xml"
EndIf
EndIf
Else
DEBUGVAR ChangeFlag2
If ChangeFlag2 = 0 Then
@ -174,7 +174,7 @@
DEBUGVAR PayDetail
DEBUGVAR PayDetail2
UpdateTxRef2 TxRef1 ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate PayO2 PdpaAccept VendingDiscount VendingCampaign PayReference PayType CreditReference PayDetail PayDetail2
UpdateTxRef2 TxRef1 ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate PayO2 PdpaAccept VendingDiscount VendingCampaign PayReference PayType CreditReference PayDetail PayDetail2
EndIf
If InternationalEnable = 1 Then
@ -186,8 +186,8 @@
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/payment.ev"
EndIf
Open "ROOT/taobin_project/xml/page_brewing3.xml"
EndIf
Open "ROOT/taobin_project/xml/page_brewing3.xml"
EndIf
Else
If UsePepsiTheme = 1 Then
If CountryName = "Singapore" Then
@ -198,7 +198,7 @@
EndIf
EndIf
EndIf
Var LidState = Lid1Status
;Lid1Status
@ -209,15 +209,15 @@
Var LidState = "Invisible"
EndIf
STRCONTAIN "9701" BrewParam IgnoreLidStraw
STRCONTAIN "9701" BrewParam IgnoreLidStraw
DEBUGVAR BrewParam
DEBUGVAR IgnoreLidStraw
DEBUGVAR Service_LidStraw
If IgnoreLidStraw = "true" Then
Var IgnoreLidStraw = "false"
@ -226,8 +226,8 @@
Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml"
Open Brew3Inter
Else
Open "ROOT/taobin_project/xml/page_brewing3.xml"
EndIf
Open "ROOT/taobin_project/xml/page_brewing3.xml"
EndIf
EndIf
If Service_LidStraw = "Disable" Then
@ -236,8 +236,8 @@
Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml"
Open Brew3Inter
Else
Open "ROOT/taobin_project/xml/page_brewing3.xml"
EndIf
Open "ROOT/taobin_project/xml/page_brewing3.xml"
EndIf
EndIf
DEBUGVAR StrawAutoRelease1
@ -249,17 +249,17 @@
Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml"
Open Brew3Inter
Else
Open "ROOT/taobin_project/xml/page_brewing3.xml"
Open "ROOT/taobin_project/xml/page_brewing3.xml"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
<EventTimeout>
If CountDownBrewing > 0 Then
Var CountDownBrewing = CountDownBrewing - 1
EndIf
Var ShowCountDownBrewing = BREW_CNT
@ -270,15 +270,15 @@
Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml"
Open Brew3Inter
Else
Open "ROOT/taobin_project/xml/page_brewing3.xml"
Open "ROOT/taobin_project/xml/page_brewing3.xml"
EndIf
EndIf
Refresh
TimerReset
</EventTimeout>
; remove by kong ; optimize new step advertise
</EventTimeout>
; remove by kong ; optimize new step advertise
@ -302,7 +302,7 @@
<EventMachine>
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
@ -312,12 +312,12 @@
EndIf
</EventMachine>
<EventChangeStatus>
If ChangeStatus = "payout-end" Then
If ChangeStatus = "payout-end" Then
EndIf
</EventChangeStatus>

250
xml/page_payment.xml
View file

@ -8,7 +8,7 @@
;world-class
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"
;Open "ROOT/taobin_project/xml/page_display_ExclusiveGift.xml"
@ -33,7 +33,7 @@
Var ServiceCharge = 0
Var AdultFlag = 0
Var AdultFlag = 0
If Only18 = "true" Then
DEBUGVAR AdultState1
@ -68,7 +68,7 @@
DEBUGVAR CustomerFilterType
EndIf
If NightTime = 1 Then
If NightTime = 1 Then
If SelectDrink = "12-99-03-0066" Then
Var PriceDrink = 60
EndIf
@ -110,10 +110,10 @@
Var QRCODE3 = "VDGN"
Var QRCODE4 = BoxID
Var QRCODE5 = SelectSlot
Var QRCODE6 = SelectDrink
Var QRCODE7 = PriceDrink
Var QRCODE6 = SelectDrink
Var QRCODE7 = PriceDrink
Var QRCODE8 = ""
Var CountStepPackPayment = 0
Var CountStepForCupFlagDelay = 0
@ -121,13 +121,13 @@
Var ReqPayInfoFromCashOther = 0
Var Seeker.PromotionIDCurrentOrder = 0
Var Seeker.TxRef1 = ""
Var Seeker.OrderChanel = "Normal"
Var Seeker.CurrCreditAmount = 0
Var Seeker.CurrCreditUse = 0
Var Seeker.CurrCreditTelNum = ""
@ -141,26 +141,26 @@
Var Seeker.IntVendingCampaign = 0
Var Seeker.FreeVendingCampaign = 0
Var Seeker.CodeChannel = 0
Var CoinVendingOnFlag = 0
Var CoinVendingOnFlag = 0
Var Seeker.CreditCard = 0
Var Seeker.CreditCardRef = ""
Var Seeker.UseCreditPayFullDrinkPrice = 0
Var Seeker.IntVendingCredit = 0
Var Seeker.StoreCreditFlag = 0
Var Seeker.pageStoreCredit0 = 0
Var Seeker.TNumberTaobinCredit = ""
Var Seeker.TNumberTaobinMember = ""
Var Seeker.CoffeePinNumber = ""
Var Seeker.VendingDiscount = 0
Var Seeker.VendingCampaign = 0
Var Seeker.VendingTSID = ""
Var Seeker.CreditNotEnoughRefID = ""
Var PayType = ""
Var CART_INDEX = 0
@ -169,7 +169,7 @@
Var LOADING_STATE = "Invisible"
Var QR_POPUP = "/img_popup2.png"
If show_eng = "true" Then
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var PlaySoundLag = "ROOT/taobin_project/sound_eng/How_would_you_like_to_pay.mp3"
Var PlaySoundCodeLang = "ROOT/taobin_project/sound_eng/Code8digit.mp3"
@ -178,24 +178,24 @@
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var PlaySoundLag = "ROOT/taobin_project/sound_thai/payment.mp3"
If FromJemilaPro = 1 Then
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/jemila/payment.m4a"
EndIf
; Play Sound #zone
If SoundBackToSchoolEnable = 1 Then
If SoundBackToSchoolType = 1 Then
If SoundBackToSchoolType = 1 Then
Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/boy/"
EndIf
If SoundBackToSchoolType = 2 Then
If SoundBackToSchoolType = 2 Then
Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/girl/"
EndIf
Var PlaySoundLag = RootPathSoundBackToSchool + "payment.wav"
EndIf
Var PlaySoundCodeLang = "ROOT/sounds/Code8digit.m4a"
EndIf
@ -203,7 +203,7 @@
SAVELOG MachineStage
If AdultFlag = 1 Then
If CameraCount = 1 Then
CameraSetting "usbfront" "default" "Rotate=90,Resolution=1280x720,scaleX=1.0,scaleY=1.0"
@ -222,7 +222,7 @@
EndIf
; Test
;Var MachineStage = "-"
@ -242,7 +242,7 @@
Var ServiceType = "coffee"
Var VendingCreditRemain = ""
DEBUGVAR Seeker.thankLidFlag
@ -275,7 +275,7 @@
EndIf
;
;
DEBUGVAR PromotionIDCurrentOrder
@ -306,23 +306,45 @@
DEBUGVAR TOPPING_PRICE
TRY "ROOT/taobin_project/xml/process/discount_from_promotion.ev"
DEBUGVAR PromotionIDCurrentOrder
Var CoundDownStillOnPage = 240
__CMD "CLEAR_TIME_BLINK_DISPLAY" 0 "-" "-"
Var WaitPOSStatus = 0
;new payment coffee-payment
If New_Payment = 1 Then
If New_Payment = 1 Then
SAVELOG "NEW-PAYMENT NEW-PAYMENT NEW-PAYMENT NEW-PAYMENT NEW-PAYMENT NEW-PAYMENT "
Var Seeker.ORDER_ID = ""
GenHashWithTimeStamp Seeker.ORDER_ID
DEBUGVAR Seeker.NameDrinkTH
DEBUGVAR Seeker.NameDrinkEN
Var param1 = Seeker.ORDER_ID
Var param2 = Seeker.NameDrinkEN
STRCONTAIN "size" Seeker.NameDrinkEN SizeFromSheet
If SizeFromSheet = "true" Then
SPLIT Seeker.NameDrinkEN "###" 1 PureName
Var param2 = PureName
EndIf
If ConnectWithPOSMachine = 1 Then
Var WaitPOSStatus = 1
Var TimeWaitPOSStatus = 0
Var POS_SELL_STATUS = "-"
GetPOSStatus param1 param2
EndIf
EndIf
</EventOpen>
<Timeout> 900 </Timeout>
<EventTimeout>
<EventTimeout>
If stop_now = "true" Then
SAVELOG "stop_now is true page_payment"
@ -349,7 +371,7 @@
EndIf
EndIf
If CupChecking = "true" Then
If HaveCup = "true" Then
SAVELOG "Have cup"
@ -369,7 +391,7 @@
EndIf
If ReadyForBrew = "false" Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
Var ReadyForBrew = "false"
@ -382,7 +404,7 @@
EndIf
EndIf
;If CupChecking = "false" Then
; Var CountStepPackPayment = CountStepPackPayment + 1
;EndIf
@ -395,96 +417,118 @@
DEBUGVAR ToppingDetailCurr
DEBUGVAR ToppingDetailNext
If CountStepPackPayment = CountStepForCupFlagDelay Then
If Seeker = "curr" Then
Var Seeker.ExtendData = ExtendDataCurr
Var Seeker.PayDetail2 = ToppingDetailCurr
Else
Var Seeker.ExtendData = ExtendDataNext
Var Seeker.PayDetail2 = ToppingDetailNext
EndIf
DEBUGVAR Seeker
DEBUGVAR Seeker.ExtendData
If GetPayInfoFlag = 0 Then
SaveLog "RoadShow test"
If RoadShow = "false" Then
;CoinVending ON
If AdultFlag = 1 Then
Var CoinAmount = 0
Else
If NOCashFlag = 0 Then
SAVELOG "CoinVending XBILL from page_payment"
CoinVending XBILL
Else
Var CoinAmount = 0
EndIf
EndIf
;Var CoinAmount = 0
Var Delay = 1
Else
Var Delay = 1
EndIf
If WaitPOSStatus = 1 Then
Var RemainAmount = 0
If TimeWaitPOSStatus < 10 Then
Var TimeWaitPOSStatus = TimeWaitPOSStatus + 1
If POS_SELL_STATUS = "READY" Then
Var WaitPOSStatus = 0
EndIf
Else
If POS_SELL_STATUS = "READY" Then
Var WaitPOSStatus = 0
Else
Open "ROOT/taobin_project/xml/pos_fail.xml"
EndIf
EndIf
Else
If CountStepPackPayment = CountStepForCupFlagDelay Then
If Seeker = "curr" Then
Var Seeker.ExtendData = ExtendDataCurr
Var Seeker.PayDetail2 = ToppingDetailCurr
Else
Var Seeker.ExtendData = ExtendDataNext
Var Seeker.PayDetail2 = ToppingDetailNext
EndIf
DEBUGVAR Seeker
DEBUGVAR Seeker.ExtendData
If GetPayInfoFlag = 0 Then
SaveLog "RoadShow test"
If RoadShow = "false" Then
;CoinVending ON
If AdultFlag = 1 Then
Var CoinAmount = 0
Else
If NOCashFlag = 0 Then
SAVELOG "CoinVending XBILL from page_payment"
CoinVending XBILL
Else
Var CoinAmount = 0
EndIf
EndIf
;Var CoinAmount = 0
Var Delay = 1
Else
Var Delay = 1
EndIf
Var RemainAmount = 0
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
EndIf
EndIf
; Reset
Var MachineState_Result = 0
; Reset
Var MachineState_Result = 0
DEBUGVAR Seeker
DEBUGVAR Seeker.ExtendData
DEBUGVAR Seeker
DEBUGVAR Seeker.ExtendData
Var CountStepPackPayment = 1
Var CountStepPackPayment = 1
EndIf
If Delay = 1 Then
Var DelayCount = DelayCount + 1
If DelayCount >= 2 Then
If web_readyOK = "true" Then
Var Seeker.OrderChanel = "WebApp"
Var Seeker.selected_a_drink = SelectDrink
Var Seeker.ServiceAmount2 = PriceDrink
Var PayAmount = PriceDrink
If web_payment = "CODE" Then
Open "ROOT/taobin_project/xml/page_payment_code.xml"
EndIf
If web_payment = "CREDIT" Then
Open "ROOT/taobin_project/xml/page_payment_credit.xml"
EndIf
EndIf
If Only18 = "true" Then
Var AdultFlag = 0
EndIf
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
EndIf
EndIf
If Delay = 1 Then
Var DelayCount = DelayCount + 1
If DelayCount >= 2 Then
If web_readyOK = "true" Then
Var Seeker.OrderChanel = "WebApp"
Var Seeker.selected_a_drink = SelectDrink
Var Seeker.ServiceAmount2 = PriceDrink
Var PayAmount = PriceDrink
If web_payment = "CODE" Then
Open "ROOT/taobin_project/xml/page_payment_code.xml"
EndIf
If web_payment = "CREDIT" Then
Open "ROOT/taobin_project/xml/page_payment_credit.xml"
EndIf
EndIf
If Only18 = "true" Then
Var AdultFlag = 0
EndIf
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
EndIf
TimerReset
Refresh
</EventTimeout>
</EventTimeout>
<Video>
@ -520,7 +564,7 @@
</Text>
<Text>
<State> StageShowAlias</State>
<State> StageShowAlias</State>
<X> 0 </X>
<Y> 1022 </Y>
<Width> 1080</Width>

436
xml/page_payment_cash-AUS.xml
View file

File diff suppressed because it is too large Load diff

106
xml/page_thankyou.xml
View file

@ -30,7 +30,7 @@
Var FailedCount = 0
Var ChangeAmountSum = 0
Var Tel_Confirm_Flag = 0
Var TimeoutToNext = 3
@ -48,8 +48,8 @@
WRITE_FILE "/mnt/sdcard/coffeevending/log/drink-success" "--"
EndIf
If show_eng = "true" Then
Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2_eng.png"
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"
@ -57,7 +57,7 @@
Var DirImage = "ROOT/taobin_project/image/page_thankyou_en"
Else
Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2.png"
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"
@ -86,7 +86,7 @@
If Seeker = "next" Then
Var NextOrder = "true"
EndIf
If VendingCreditRemain = "" Then
Var RemainCreditST = "Invisible"
@ -114,25 +114,25 @@
DEBUGVAR SaveTheWorldCount
If SaveTheWorldCount = 2 Then
If LedLidBlink = "no" Then
Var SaveTheWorldST = "Enable"
EndIf
Var video_id_to_ran = 3
Var video_name_to_play = "taobin_save_world"
Random2 1 3 video_id_to_ran
Var ThankyouST = "Invisible"
Else
Var video_id_to_ran = 2
Var video_name_to_play = "taobin_thank"
Random2 1 2 video_id_to_ran
Var ThankyouST = "Enable"
EndIf
@ -140,14 +140,14 @@
DEBUGVAR video_id_to_ran
Var show_video = 1
Var SaveTheWorldST = "Invisible"
Var SaveTheWorldST = "Invisible"
If InternationalEnable = 1 Then
Var video_file_name = "ROOT/taobin_project/inter/common/video/" + video_name_to_play
Else
Var video_file_name = "ROOT/taobin_project/video/" + video_name_to_play
Var video_file_name = "ROOT/taobin_project/video/" + video_name_to_play
EndIf
Var video_file_name = video_file_name + video_id_to_ran
Var video_file_name = video_file_name + ".mp4"
Var video_file_name = video_file_name + video_id_to_ran
Var video_file_name = video_file_name + ".mp4"
If SaveTheWorldCount < 2 Then
@ -158,11 +158,11 @@
TRY "/mnt/sdcard/coffeevending/taobin_project/video/script2.ev"
EndIf
EndIf
DEBUGVAR video_file_name
Var VideoFileNameStage = "Enable"
Var TimeoutToNext = 5
Var ThankyouST = "Invisible"
@ -177,7 +177,7 @@
;inter-image
If CountryName = "Indonesia" Then
Var remainCredit = "/remainCredit-IDR.png"
EndIf
EndIf
;inter-image
If CountryName = "Australia" Then
@ -198,22 +198,22 @@
DEBUGVAR Seeker.CreditCardRef
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/sometime/script_thankyou.ev"
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
Var Timeout = Timeout + 1
Var Timeout = Timeout + 1
If Timeout = TimeoutToNext Then
If CART_INDEX = 0 Then
If CART_INDEX = 0 Then
Else
;Cart "MakeID" CART_INDEX
EndIf
If Seeker.PayWithQR = 0 Then
If Seeker.FreeVendingCampaign = 0 Then
@ -221,10 +221,10 @@
If Seeker.CreditCard = 1 Then
DEBUGVAR CoinAmount
If CoinAmount > 0 Then
DEBUGVAR "Change Canout"
Change CoinAmount
Change CoinAmount
Var ChangeFlag2 = 1
EndIf
@ -237,19 +237,19 @@
Var DetectCoinAmount = 1
EndIf
Else
If Seeker.IntVendingCampaign < PayAmount Then
If Seeker.IntVendingCampaign < PayAmount Then
Var SumCoinAmount = CoinAmount + Seeker.IntVendingCampaign
Var SumCoinAmount = SumCoinAmount + Seeker.IntVendingCredit
If SumCoinAmount >= PayAmount Then
If SumCoinAmount >= PayAmount Then
Var Canout = SumCoinAmount - PayAmount
If Canout > 0 Then
;Change Canout
;Change Canout
;Var ChangeFlag2 = 1
Var GotoStoreCredit0 = 1
Var StoreCreditAmount = Canout
EndIf
EndIf
EndIf
@ -260,12 +260,12 @@
Else
Var Canout = CoinAmount
If Canout > 0 Then
;Change Canout
;Change Canout
;Var ChangeFlag2 = 1
Var GotoStoreCredit0 = 1
Var StoreCreditAmount = Canout
@ -276,7 +276,7 @@
Var Canout = CoinAmount
If Canout > 0 Then
;Change Canout
;Change Canout
;Var ChangeFlag2 = 1
Var GotoStoreCredit0 = 1
Var StoreCreditAmount = Canout
@ -285,14 +285,14 @@
EndIf
Var CountDownThankyou = 0
EndIf
; run test;
If CountDownThankyou = 0 Then
If IgnoreNetCore = "true" Then
If CountDownThankyou = 0 Then
If IgnoreNetCore = "true" Then
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
@ -304,8 +304,8 @@
EndIf
EndIf
If TestLoopMakeDrink = 1 Then
Open "ROOT/taobin_project/xml/page_brewing_test_loop.xml"
If TestLoopMakeDrink = 1 Then
Open "ROOT/taobin_project/xml/page_brewing_test_loop.xml"
EndIf
Var CountDownBrewing = BrewTime
@ -380,7 +380,7 @@
DEBUGVAR PayDetail
DEBUGVAR PayDetail2
UpdateTxRef2 TxRef1 ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate PayO2 PdpaAccept VendingDiscount VendingCampaign PayReference PayType CreditReference PayDetail PayDetail2
UpdateTxRef2 TxRef1 ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate PayO2 PdpaAccept VendingDiscount VendingCampaign PayReference PayType CreditReference PayDetail PayDetail2
Else
DEBUGVAR TxRef1
@ -388,7 +388,7 @@
DEBUGVAR PayDetail
DEBUGVAR PayDetail2
UpdateTxRef2 TxRef1 ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate PayO2 PdpaAccept VendingDiscount VendingCampaign PayReference PayType CreditReference PayDetail PayDetail2
UpdateTxRef2 TxRef1 ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate PayO2 PdpaAccept VendingDiscount VendingCampaign PayReference PayType CreditReference PayDetail PayDetail2
EndIf
EndIf
@ -396,13 +396,13 @@
If StoreCreditAmount > 0 Then
Change StoreCreditAmount
Change StoreCreditAmount
Var ChangeFlag2 = 1
EndIf
If CART_INDEX >= 2 Then
If CART_INDEX >= 2 Then
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
@ -460,7 +460,7 @@
If CoinAmount >= ServiceAmountSupCampain Then
DEBUGVAR Seeker.IntVendingCredit
Var CurrAmount = Seeker.CurrCreditAmount - Seeker.IntVendingCredit
Var Seeker.IntVendingCredit = 0
Var RefID = "0/" + Seeker.CreditNotEnoughRefID
@ -497,7 +497,7 @@
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
If CART_INDEX >= 2 Then
If CART_INDEX >= 2 Then
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
@ -506,7 +506,7 @@
EndIf
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
EndIf
EndIf
TRY "ROOT/taobin_project/xml/open_page_collect_point.ev"
@ -529,7 +529,7 @@
Open MemberPrompt
EndIf
Else
Open "ROOT/taobin_project/xml/page_payment_storeCredit0.xml"
Open "ROOT/taobin_project/xml/page_payment_storeCredit0.xml"
EndIf
Else
@ -557,7 +557,7 @@
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
If CART_INDEX >= 2 Then
If CART_INDEX >= 2 Then
If Seeker.IsLineMember = 0 Then
If LuckyDrawCampaign = 1 Then
Open "ROOT/taobin_project/xml/sometime/page_campaign_ads_lucky_draw.xml"
@ -571,17 +571,17 @@
TRY "ROOT/taobin_project/xml/open_page_collect_point.ev"
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
Var ShowCountDownBrewing = CountDownBrewing
Refresh
TimerReset
</EventTimeout>
</EventTimeout>
;<Image>
;<X> 0 </X>
@ -655,8 +655,8 @@
;</Text>
<EventChangeStatus>
If ChangeStatus = "payout-end" Then
If ChangeStatus = "payout-end" Then
EndIf
</EventChangeStatus>

5
xml/page_topping_select7.xml
View file

@ -159,6 +159,9 @@
Var BugFlag = 0
Var Seeker.NameDrinkEN = NameDrink
Var Seeker.NameDrinkTH = NameDrinkTH
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/topping2_en"
@ -167,6 +170,7 @@
Var showname = NameDrink
Var showdesc = DrinkDescription
Var text_show_thai = "Invisible"
Var text_show_eng = "Enable"
@ -205,6 +209,7 @@
Var showname = NameDrinkTH
Var showdesc = DrinkDescriptionTH
Var text_show_thai = "Enable"
Var text_show_eng = "Invisible"

68
xml/pos_fail.xml Normal file
View file

@ -0,0 +1,68 @@
<Popup>
<X> 0 </X>
<Y> 0 </Y>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xEFEDEA" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
Var Timeout = 0
Var DirImage = "ROOT/taobin_project/image/pos/"
If show_eng = "true" Then
Var PosFailImg = DirImage + "pos_fail_en.png"
Var CloseBtnImg = DirImage + "bn_close_en.png"
Var ClosePressedImg = DirImage + "bp_close_en.png"
Else
Var PosFailImg = DirImage + "pos_fail_th.png"
Var CloseBtnImg = DirImage + "bn_close_th.png"
Var ClosePressedImg = DirImage + "bp_close_th.png"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
If Timeout > 30 Then
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
Var Timeout = Timeout + 1
Refresh
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inc/video.inc"
<Image>
<X> 0 </X>
<Y> 480 </Y>
<Filename> PosFailImg </Filename>
</Image>
<Button>
<X> 398 </X>
<Y> 1753 </Y>
<Filename> CloseBtnImg </Filename>
<FilenamePress> ClosePressedImg </FilenamePress>
<EventClick>
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
</EventClick>
</Button>
<EventUnitTest1>
Open "ROOT/taobin_project/xml/pos_fail.xml"
</EventUnitTest1>
<EventUnitTest2>
If show_eng = "true" Then
Var show_eng = "false"
Else
Var show_eng = "true"
EndIf
Open "ROOT/taobin_project/xml/pos_fail.xml"
</EventUnitTest2>
</Popup>

10
xml/process/discount_from_promotion.ev
View file

@ -19,6 +19,16 @@ If FromPassionMintPro = 1 Then
Var Seeker.CampaignPPrice = PromotionPriceDrink
EndIf
If BoxID = 105005 Then
If Seeker.selected_a_drink = "12-05-02-0045" Then
Var PriceDiff = PriceDrink - 25
Var DiscountDrink = PriceDiff
Var Seeker.CampaignPPrice = 25
Var PriceDrink = PriceDrink - PriceDiff
EndIf
EndIf
If ChildrenFree = 1 Then
Var RemainAmountStr = "Free###size=150"

49
xml/process/payment.ev
View file

@ -1,6 +1,5 @@
DEBUGVAR "MIGGAZE0"
If Seeker.PayWithQR = 1 Then
Var ServiceAmount2 = Seeker.ServiceAmount2
Var CreditReference = ""
@ -19,7 +18,7 @@ If Seeker.PayWithQR = 1 Then
Var PayDetail = ""
Var PayDetail2 = ""
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Else
If Seeker.StoreCreditFlag = 1 Then
@ -31,12 +30,44 @@ If Seeker.PayWithQR = 1 Then
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"
If ConnectWithPOSMachine = 1 Then
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 PayType = "newpay"
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
Var PayDetail2 = Seeker.PayDetail2
POSPay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
EndIf
Else
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/addpoint.ev"
@ -62,7 +93,7 @@ If Seeker.PayWithQR = 1 Then
Var PayDetail = "2/S:0/0//XML|" + Seeker.OrderChanel
If GetFreeFromError = 1 Then
Var Seeker.CodeChannel = 1
Var Seeker.CodeChannel = 1
Var Seeker.VendingCode = "FAU"
Var Seeker.CodeNumber = "0000000000"
Var VendingCampaign = ServiceAmount2
@ -83,14 +114,14 @@ If Seeker.PayWithQR = 1 Then
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