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

Merge

Browse source
This commit is contained in:
wanlop run 2024-05-18 09:34:24 +07:00
commit 07d2d4ebcf
167 changed files with 47509 additions and 6930 deletions
Download patch file Download diff file Expand all files Collapse all files

12204
xml/event/double_promotion_nam_hom_coconut_and_wednesday_melon.xml Normal file
View file

File diff suppressed because it is too large Load diff

188
xml/event/energy_drink_1_bath/page_energy_drink_1_bath_consent.xml Normal file
View file

@ -0,0 +1,188 @@
; TODO: like y20, but without age check instead check usage of that id.
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Volume> SoundVolume </Volume>
;<Background> "0xeae6e1" </Background>
<EventOpen>
</EventOpen>
; ads
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
; back --- debug
;
; move this to bottom left later
<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>
If SpiralOnline = "true" Then
If Seeker = "curr" Then
Open "ROOT/taobin_project/xml/page_catalog_with_vending.xml"
Else
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
</EventClick>
</Button>
; Thai policy
<Image>
<X> 76 </X>
<Y> 408 </Y>
<Filename> "ROOT/taobin_project/image/event/energy_drink_1_bath/energy_drink_1_bath_policy.png" </Filename>
<State>
eval(
If show_eng = "true" Then
Var return = "Invisible"
Else
Var return = "Enable"
EndIf
)
</State>
</Image>
; Eng policy
<Image>
<X> 76 </X>
<Y> 408 </Y>
<Filename> "ROOT/taobin_project/image/event/energy_drink_1_bath/energy_drink_1_bath_policy_en.png" </Filename>
<State>
eval(
If show_eng = "true" Then
Var return = "Enable"
Else
Var return = "Invisible"
EndIf
)
</State>
</Image>
; TH: accept button
<Button>
<X> 673 </X>
<Y> 1785 </Y>
<Width> 286 </Width>
<Height> 92 </Height>
<State>
eval(
If show_eng = "true" Then
Var return = "Invisible"
Else
Var return = "Enable"
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image/consent/bn_accept.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/consent/bp_accept.png" </FilenamePress>
<EventOnClick>
; TODO: implement something
Open "ROOT/taobin_project/xml/event/energy_drink_1_bath/page_energy_drink_1_bath_identity.xml"
</EventOnClick>
</Button>
; TH: back button
<Button>
<X> 44 </X>
<Y> 1785 </Y>
<Width> 286 </Width>
<Height> 92 </Height>
<State>
eval(
If show_eng = "true" Then
Var return = "Invisible"
Else
Var return = "Enable"
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image/consent/bn_back.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/consent/bp_back.png" </FilenamePress>
<EventOnClick>
; TODO: implement something
If SpiralOnline = "true" Then
If Seeker = "curr" Then
Open "ROOT/taobin_project/xml/page_catalog_with_vending.xml"
Else
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
</EventOnClick>
</Button>
; EN: accept button
<Button>
<X> 673 </X>
<Y> 1785 </Y>
<Width> 286 </Width>
<Height> 92 </Height>
<State>
eval(
If show_eng = "true" Then
Var return = "Enable"
Else
Var return = "Invisible"
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image/consent_en/bn_accept.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/consent_en/bp_accept.png" </FilenamePress>
<EventOnClick>
; TODO: implement something
Open "ROOT/taobin_project/xml/event/energy_drink_1_bath/page_energy_drink_1_bath_identity.xml"
</EventOnClick>
</Button>
; EN: back button
<Button>
<X> 44 </X>
<Y> 1785 </Y>
<Width> 286 </Width>
<Height> 92 </Height>
<State>
eval(
If show_eng = "true" Then
Var return = "Enable"
Else
Var return = "Invisible"
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image/consent_en/bn_back.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/consent_en/bp_back.png" </FilenamePress>
<EventOnClick>
; TODO: implement something
If SpiralOnline = "true" Then
If Seeker = "curr" Then
Open "ROOT/taobin_project/xml/page_catalog_with_vending.xml"
Else
Open "ROOT/taobin_project/xml/page_catalog.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_catalog2.xml"
EndIf
</EventOnClick>
</Button>
</Popup>

541
xml/event/energy_drink_1_bath/page_energy_drink_1_bath_identity.xml Normal file
View file

@ -0,0 +1,541 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
Var CamFlag = 0
Var CamCount = 0
Var Timeout = 0
Var ShutterResult = "-"
Var AdultFlag = 1
If AdultFlag = 1 Then
Var AdultFlag = 0
DEBUGVAR SystemDate
Var sdate = ""
Var sdate = SystemDate
Var sdateday = ""
Var sdatemonth = ""
Var sdateyear = ""
SPLIT sdate "/" 1 sdateday
SPLIT sdate "/" 2 sdatemonth
SPLIT sdate "/" 3 sdateyear
INT sdateday
INT sdatemonth
INT sdateyear
Var AdultState = "Enable"
Var AdultState1 = "Enable"
Var countAdultS2 = 0
Var AdultFlag2 = 1
EndIf
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If CameraCount = 1 Then
EndIf
Var IDBirthdate = ""
Var LivenessResult = ""
Var CountDownDelayReadCardID = 5
DEBUGVAR CameraCount
;STOPCARDID
Var LivenessShowString = ""
Var CameraStage = "Invisible"
Var IDcardStage = "Enable"
Var IDcardStageText = "Enable"
Var load_gif_stage = "Invisible"
Var IDcardTextStatus = "โปรดเสียบบัตรประชาชน \nเพื่อดำเนินการต่อ"
Var LivenessRestartCount = 0
Var FailTrickCount = 0
Var FailState = "Invisible"
Var FullQuotaState = "Invisible"
Var StepGetServer = 0
Var Cid = 29
Var PointCrm = "2"
Var GetScore = "1"
Var IDNumx = "2640100003053"
;AddData Cid TelephoneNumber IDNumx PointCrm GetScore
; Reset
Var IDNum = ""
</EventOpen>
<EventActionOk>
DEBUGVAR Ext1a
DEBUGVAR Ext1b
DEBUGVAR Ext1c
; example
If StepGetServer = 1 Then
If Ext1a = "ok" Then
If LegitAge = "true" Then
Open "ROOT/taobin_project/xml/page_payment.xml"
Else
Var load_gif_stage = "Invisible"
Var FailState = "Enable"
EndIf
Else
; Error
Var load_gif_stage = "Invisible"
Var FullQuotaState = "Enable"
EndIf
EndIf
Refresh
; If StepGetServer = 1 Then
; If Ext1a = "ok" Then
; Var ChildrenFree = 1
; Open "ROOT/taobin_project/xml/page_payment.xml"
; Else
; If Ext1a = "limit" Then
; Var load_gif_stage = "Invisible"
; Var FailState = "Enable"
; Var img_popup16 = "/img_popup16-3.png"
; WRITE_FILE "/mnt/sdcard/oreo_for_free_limit" "true"
; Else
; Var load_gif_stage = "Invisible"
; Var FailState = "Enable"
; Var img_popup16 = "/img_popup16-2.png"
; EndIf
; Refresh
; EndIf
; EndIf
</EventActionOk>
<EventActionError>
; handle quota full
; response smth
Var FullQuotaState = "Enable"
Refresh
</EventActionError>
<EventIDCard>
DEBUGVAR IDCardStatus
DEBUGVAR IDCardReady
DEBUGVAR IDCardData
DEBUGVAR IDBirthdate
DEBUGVAR IDFullNameEng
If IDCardStatus = "OK" Then
If IDCardReady = "OK" Then
If IDCardData = "START" Then
Var load_gif_stage = "Enable"
Var IDcardStageText = "Invisible"
Var FailState = "Invisible"
;Var img_popup16 = "/img_popup16-1.png"
RefreshAll
Var Timeout = 90
EndIf
EndIf
EndIf
If IDCardStatus = "OK" Then
If IDCardReady = "OK" Then
If IDCardData = "ERROR" Then
Var load_gif_stage = "Invisible"
Var IDcardStageText = "Enable"
Var IDcardTextStatus = "อ่านบัตรไม่ได้"
Var FailState = "Enable"
;
If show_eng = "true" Then
Var img_popup16 = "ROOT/taobin_project/image/event/energy_drink_1_bath/energy_drink_1_bath_error_en.png"
Else
Var img_popup16 = "ROOT/taobin_project/image/event/energy_drink_1_bath/energy_drink_1_bath_error.png"
EndIf
Refresh
EndIf
EndIf
EndIf
If IDCardStatus = "ERROR" Then
Var load_gif_stage = "Invisible"
Var IDcardStageText = "Enable"
Var IDcardTextStatus = "อ่านบัตรไม่ได้"
Var FailState = "Enable"
If show_eng = "true" Then
Var img_popup16 = "ROOT/taobin_project/image/event/energy_drink_1_bath/energy_drink_1_bath_error_en.png"
Else
Var img_popup16 = "ROOT/taobin_project/image/event/energy_drink_1_bath/energy_drink_1_bath_error.png"
EndIf
Refresh
EndIf
If IDCardStatus = "ERROR" Then
If IDCardReady = "ERROR" Then
If IDCardData = "ERROR" Then
Var FailState = "Invisible"
EndIf
EndIf
EndIf
If IDCardStatus = "OK" Then
If IDCardReady = "OK" Then
If IDCardData = "DONE" Then
;Var birthDate = IDBirthdate
Var StrYear = ""
Var StrMon = ""
Var StrDay = ""
SUBSTRING IDBirthdate 0 4 StrYear
SUBSTRING IDBirthdate 4 6 StrMon
SUBSTRING IDBirthdate 6 8 StrDay
INT StrYear
INT StrMon
INT StrDay
Var Adult7 = 0
Var Adult15 = 0
DEBUGVAR StrYear
DEBUGVAR StrMon
DEBUGVAR StrDay
DEBUGVAR sdatemonth
DEBUGVAR sdateday
Var sdateyear = sdateyear + 543
Var AgeNumber = sdateyear - StrYear
DEBUGVAR AgeNumber
If AgeNumber >= 18 Then
; TODO: check quota --- AddData; Wait for new add num
Var LegitAge = "true"
DEBUGVAR IDNum
If IDNum = "" Then
Else
GETACCEXT IDNum 33
Var StepGetServer = 1
EndIf
EndIf
EndIf
EndIf
EndIf
</EventIDCard>
<Timeout> 1000 </Timeout>
<EventTimeout>
DEBUGVAR IDCardStatus
DEBUGVAR IDCardReady
DEBUGVAR IDCardData
DEBUGVAR IDBirthdate
DEBUGVAR CountDownDelayReadCardID
DEBUGVAR ShutterResult
DEBUGVAR IDCardState
DEBUGVAR load_gif_stage
DEBUGVAR img_popup16
DEBUGVAR IDNum
DEBUGVAR LegitAge
If IDBirthdate = "" Then
Var CountDownDelayReadCardID = CountDownDelayReadCardID - 1
If CountDownDelayReadCardID = 0 Then
READCARDID
Var CountDownDelayReadCardID = 600
EndIf
EndIf
DEBUGVAR Timeout
Var Timeout = Timeout + 1
If Timeout > 120 Then
Open "ROOT/taobin_project/xml/page_catalog2.xml"
EndIf
If IDCardState = "PRESENT" Then
If IDCardStatus = "ERROR" Then
Var load_gif_stage = "Invisible"
Var IDcardStageText = "Enable"
Var IDcardTextStatus = "อ่านบัตรไม่ได้อะ"
Refresh
EndIf
EndIf
Refresh
TimerReset
</EventTimeout>
;include="ROOT/taobin_project/inc/video.inc"
; back
<Button>
<X> 19 </X>
<Y> 420 </Y>
<Filename> "ROOT/taobin_project/image/page2/bn_back_arrow.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page2/bn_back_arrow.png" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_catalog2.xml"
</EventClick>
</Button>
; TODO: fix filename path, change dir image
<Image>
<X> 75 </X>
<Y> 493 </Y>
<State>
eval(
If show_eng = "true" Then
Var return = "Invisible"
Else
Var return = "Enable"
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image/event/energy_drink_1_bath/insert_id_card.png" </Filename>
</Image>
<Image>
<X> 75 </X>
<Y> 493 </Y>
<State>
eval(
If show_eng = "true" Then
Var return = "Enable"
Else
Var return = "Invisible"
EndIf
)
</State>
<Filename> "ROOT/taobin_project/image/event/energy_drink_1_bath/insert_id_card_en.png" </Filename>
</Image>
<Button>
<X> 358 </X>
<Y> 1769 </Y>
<State>"Enable"</State>
<Filename> Var( DirImage + "/bn_cancel_all.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel_all.png" ) </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_cancel_all.png" ) </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_catalog2.xml"
</EventClick>
</Button>
<Button>
<X> 360 </X>
<Y> 1373 </Y>
<State>FailState</State>
<Filename> Var( DirImage + "/bn_cancel_all.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel_all.png" ) </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_cancel_all.png" ) </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_catalog2.xml"
</EventClick>
</Button>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> load_gif_stage </State>
<Filename> "ROOT/taobin_project/image/page_payment/alpha.png" </Filename>
</Image>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> FailState </State>
<Filename> "ROOT/taobin_project/image/page_payment/alpha.png" </Filename>
</Image>
<Image>
<X> 249 </X>
<Y> 751 </Y>
<State> load_gif_stage </State>
<Filename> Var( DirImage + "/img_popup15.png" )</Filename>
</Image>
<Image>
<X> 249 </X>
<Y> 751 </Y>
<State> FailState </State>
<Filename> eval(
If show_eng = "true" Then
Var return = "ROOT/taobin_project/image/event/energy_drink_1_bath/energy_drink_1_bath_error_en.png"
Else
Var return = "ROOT/taobin_project/image/event/energy_drink_1_bath/energy_drink_1_bath_error.png"
EndIf
) </Filename>
</Image>
<Button>
<X> 350 </X>
<Y> 1370 </Y>
<State>FailState</State>
<Filename> Var( DirImage + "/bn_cancel_all.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel_all.png" ) </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_cancel_all.png" ) </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_catalog2.xml"
</EventClick>
</Button>
; Full Quota
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> FullQuotaState </State>
<Filename> "ROOT/taobin_project/image/page_payment/alpha.png" </Filename>
</Image>
<Image>
<X> 249 </X>
<Y> 751 </Y>
<State> FullQuotaState </State>
<Filename> eval(
If show_eng = "true" Then
Var return = "ROOT/taobin_project/image/event/energy_drink_1_bath/energy_drink_1_bath_quota_full_en.png"
Else
Var return = "ROOT/taobin_project/image/event/energy_drink_1_bath/energy_drink_1_bath_quota_full.png"
EndIf
) </Filename>
</Image>
<Button>
<X> 350 </X>
<Y> 1370 </Y>
<State>FullQuotaState</State>
<Filename> Var( DirImage + "/bn_cancel_all.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel_all.png" ) </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_cancel_all.png" ) </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var RoadShow = ""
Open "ROOT/taobin_project/xml/page_catalog2.xml"
</EventClick>
</Button>
<GIF>
<X> 440 </X>
<Y> 988 </Y>
<State> load_gif_stage </State>
<Filename> "ROOT/taobin_project/image/page_payment/loading.gif"</Filename>
</GIF>
<EventUnitTest1>
Var IDCardStatus = "OK"
Var IDCardReady = "OK"
Var IDCardData = "START"
EventEvaluate "EventIDCard"
</EventUnitTest1>
<EventUnitTest2>
Var IDBirthdate = 25271014
Var IDCardStatus = "OK"
Var IDCardReady = "OK"
Var IDCardData = "DONE"
EventEvaluate "EventIDCard"
</EventUnitTest2>
<EventUnitTest3>
Var Param1 = ""
Var Param2 = ""
Var Param3 = ""
Var TestIDNum = "1104500029416"
Var DefaultTel = "0899999999"
AddData 44 DefaultTel TestIDNum Param1 Param2
</EventUnitTest3>
<EventUnitTest4>
GETACCEXT TestIDNum 33
</EventUnitTest4>
</Popup>

0
xml/event/multi_promotion_config_melon_coffee.json → xml/event/ignore_multi_promotion_config_melon_coffee.json
View file

0
xml/event/multi_promotion_config_melon_energy.json → xml/event/ignore_multi_promotion_config_melon_energy.json
View file

43
xml/event/multi_promotion_config_coconut_energy_melon.json Normal file
View file

@ -0,0 +1,43 @@
[
{
"name": "nam_hom_coconut",
"template": "/event/promotion_video_template.inc",
"config": {
"normal_eng": "ROOT/taobin_project/image/event/nam_hom_coconut/nam_hom_coconut_en.png",
"normal_thai": "ROOT/taobin_project/image/event/nam_hom_coconut/nam_hom_coconut_th.png",
"press_eng": "ROOT/taobin_project/image/event/nam_hom_coconut/nam_hom_coconut_en.png",
"press_thai": "ROOT/taobin_project/image/event/nam_hom_coconut/nam_hom_coconut_th.png",
"disable_eng": "ROOT/taobin_project/image/event/nam_hom_coconut/nam_hom_coconut_en.png",
"disable_thai": "ROOT/taobin_project/image/event/nam_hom_coconut/nam_hom_coconut_th.png",
"video_eng": "ROOT/taobin_project/image/event/nam_hom_coconut/nam_hom_coconut_en.mp4",
"video_thai": "ROOT/taobin_project/image/event/nam_hom_coconut/nam_hom_coconut_th.mp4",
"event_on_click": "ROOT/taobin_project/xml/page_catalog_group_pro_nam_hom_coconut.xml"
}
},
{
"name": "energy_drink_1_bath",
"template": "/event/promotion_template.inc",
"config": {
"normal_eng": "ROOT/taobin_project/image/event/energy_drink_1_bath/1_baht_energy_EN.png",
"normal_thai": "ROOT/taobin_project/image/event/energy_drink_1_bath/1_baht_energy_TH.png",
"press_eng": "ROOT/taobin_project/image/event/energy_drink_1_bath/1_baht_energy_EN.png",
"press_thai": "ROOT/taobin_project/image/event/energy_drink_1_bath/1_baht_energy_TH.png",
"disable_eng": "ROOT/taobin_project/image/event/energy_drink_1_bath/1_baht_energy_EN.png",
"disable_thai": "ROOT/taobin_project/image/event/energy_drink_1_bath/1_baht_energy_TH.png",
"event_on_click": "ROOT/taobin_project/xml/event/energy_drink_1_bath/page_energy_drink_1_bath_catalog.xml"
}
},
{
"name": "wednesday_melon",
"template": "/event/promotion_template.inc",
"config": {
"normal_eng": "ROOT/taobin_project/image/event/wednesday_melon/wednesday_melon_EN.png",
"normal_thai": "ROOT/taobin_project/image/event/wednesday_melon/wednesday_melon_TH.png",
"press_eng": "ROOT/taobin_project/image/event/wednesday_melon/wednesday_melon_EN.png",
"press_thai": "ROOT/taobin_project/image/event/wednesday_melon/wednesday_melon_TH.png",
"disable_eng": "ROOT/taobin_project/image/event/wednesday_melon/wednesday_melon_EN.png",
"disable_thai": "ROOT/taobin_project/image/event/wednesday_melon/wednesday_melon_TH.png",
"event_on_click": "ROOT/taobin_project/xml/page_catalog_group_pro_wednesday_melon.xml"
}
}
]

659
xml/event/nam_hom_coconut/page_collect_point_nam_hom_coconut_2.xml Normal file
View file

@ -0,0 +1,659 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
SAVELOG UnitTestType
Var TaobinLevel = 0
Var Point2X = 0
Var Seeker.TaobinErrorNetwork = 0
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"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
Var Seeker.IsLineMember = 0
Var SuperSetOutOfStock = 0
Var BalanceEssenceTonerOutOfStock = 0
If PayOfflineMode = 1 Then
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber
Var CollectPointError = "collect"
Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_collect_point_nam_hom_coconut_error.xml"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = Timeout + 1
If Timeout > 30 Then
Var TaobinLevel = 0
Var CoffeePoint = 1
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber
Var CollectPointError = "collect"
Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_collect_point_nam_hom_coconut_error.xml"
EndIf
TimerReset
Refresh
</EventTimeout>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventActionOk>
If Ext1a = "" Then
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember = TelephoneNumber
Var CollectPointError = "collect"
Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_collect_point_nam_hom_coconut_error.xml"
Else
Var TaobinName = Ext1b
Var TelephoneNumber = TelephoneNumberX
Var TNumberTaobinMemberXXX = TelephoneNumber
Var Seeker.IsAlreadyGetReward = Ext1c
Var SuperSetOutOfStock = Ext1d
Var BalanceEssenceTonerOutOfStock = Ext1e
Var CleansingGalOutOfStock = Ext1f
Var ClearGalOutOfStock = Ext1g
;DEBUG
;Var SuperSetOutOfStock = 1
;Var BalanceEssenceTonerOutOfStock = 1
;Var CleansingGalOutOfStock = 1
;Var ClearGalOutOfStock = Ext1g
DEBUGVAR SuperSetOutOfStock
DEBUGVAR BalanceEssenceTonerOutOfStock
DEBUGVAR CleansingGalOutOfStock
DEBUGVAR ClearGalOutOfStock
If TaobinName = "" Then
Var Seeker.IsLineMember = 0
Else
If TaobinName = "-" Then
Var Seeker.IsLineMember = 0
Else
Var Seeker.IsLineMember = 1
EndIf
EndIf
If Seeker.IsLineMember = 0 Then
SAVELOG "Not Line Member skip to normal collect point."
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointMain = 1 Then
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
EndIf
EndIf
If Seeker.IsAlreadyGetReward = 1 Then
SAVELOG "Already get reward skip to normal collect point."
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointMain = 1 Then
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
EndIf
EndIf
If SuperSetOutOfStock = 1 Then
If BalanceEssenceTonerOutOfStock = 1 Then
If CleansingGalOutOfStock = 1 Then
If ClearGalOutOfStock = 1 Then
SAVELOG "All reward out of stock skip to normal collect point."
WRITE_FILE "/mnt/sdcard/nam_hom_coconut_reward_out_of_stock" "1"
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointMain = 1 Then
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
EndIf
EndIf
EndIf
EndIf
EndIf
Var Seeker.PointTaobinStr = ParamCP
Var Seeker.TNumberTaobinMember = TelephoneNumberX
Var PointState[0] = 0
Var PointState[1] = 0
Var PointState[2] = 0
Var PointState[3] = 0
Var PointState[4] = 0
Var PointState[5] = 0
Var PointState[6] = 0
Var PointState[7] = 0
Var PointState[8] = 0
Var PointState[9] = 0
If show_eng = "true" Then
Var MenuPointName[0] = "Hat Yai\nBeach coconut"
Var MenuPointName[1] = "Bangsaen\nBeach Coconut"
Var MenuPointName[2] = "Jomtien\nBeach Coconut"
Var MenuPointName[3] = "Nang Ram\nBeach Coconut"
Var MenuPointName[4] = "Glass Sand\nBeach Coconut"
Var MenuPointName[5] = "Mae Pim\nBeach Coconut"
Var MenuPointName[6] = "Moonlight\nBeach Coconut"
Var MenuPointName[7] = "Pattaya\nBeach Coconut"
Var MenuPointName[8] = "Suan Son\nBeach Coconut"
Var MenuPointName[9] = "Laem Sing\nBeach Coconut"
Var MenuPointName[10] = "Toem Rak\nBeach Coconut"
Var MenuPointName[11] = "Long\nBeach Coconut"
Var MenuPointName[12] = "Hat\nBeach Coconut"
Else
Var MenuPointName[0] = "มะพร้าวหาดใหญ่(มาก)"
Var MenuPointName[1] = "มะพร้าวหาดบางแสน\n(ห้า)"
Var MenuPointName[2] = "มะพร้าวหาดจอมเทียน\n(พรรษา)"
Var MenuPointName[3] = "มะพร้าวหาดนางรำ\n(สวย)"
Var MenuPointName[4] = "มะพร้าวหาดทรายแก้ว\n(มังกร)"
Var MenuPointName[5] = "มะพร้าวหาดแม่พิมพ์\n(ดีด)"
Var MenuPointName[6] = "มะพร้าวหาดแสงจันทร์\n(ไรอะ)"
Var MenuPointName[7] = "มะพร้าวหาดพัทยา\n(พารา)"
Var MenuPointName[8] = "มะพร้าวหาดสวนสน\n(ใจไหม)"
Var MenuPointName[9] = "มะพร้าวหาดแหลมสิง\n(หไกรภพ)"
Var MenuPointName[10] = "มะพร้าวหาดเติมรัก(ฉันทำไม)"
Var MenuPointName[11] = "มะพร้าวหาดยาว\n(ไปยาวไป)"
Var MenuPointName[12] = "มะพร้าวหาด(ใกล้ฉัน)"
EndIf
DEBUGVAR Ext1a
SPLIT Ext1a "/" 1 MenuPoint[0]
SPLIT Ext1a "/" 2 MenuPoint[1]
SPLIT Ext1a "/" 3 MenuPoint[2]
SPLIT Ext1a "/" 4 MenuPoint[3]
SPLIT Ext1a "/" 5 MenuPoint[4]
SPLIT Ext1a "/" 6 MenuPoint[5]
SPLIT Ext1a "/" 7 MenuPoint[6]
SPLIT Ext1a "/" 8 MenuPoint[7]
SPLIT Ext1a "/" 9 MenuPoint[8]
SPLIT Ext1a "/" 10 MenuPoint[9]
SPLIT Ext1a "/" 11 MenuPoint[10]
SPLIT Ext1a "/" 12 MenuPoint[11]
SPLIT Ext1a "/" 13 MenuPoint[12]
INT MenuPoint[0]
INT MenuPoint[1]
INT MenuPoint[2]
INT MenuPoint[3]
INT MenuPoint[4]
INT MenuPoint[5]
INT MenuPoint[6]
INT MenuPoint[7]
INT MenuPoint[8]
INT MenuPoint[9]
INT MenuPoint[10]
INT MenuPoint[11]
INT MenuPoint[12]
DEBUGVAR MenuPoint[0]
DEBUGVAR MenuPoint[1]
DEBUGVAR MenuPoint[2]
DEBUGVAR MenuPoint[3]
DEBUGVAR MenuPoint[4]
DEBUGVAR MenuPoint[5]
DEBUGVAR MenuPoint[6]
DEBUGVAR MenuPoint[7]
DEBUGVAR MenuPoint[8]
DEBUGVAR MenuPoint[9]
DEBUGVAR MenuPoint[10]
DEBUGVAR MenuPoint[11]
DEBUGVAR MenuPoint[12]
; Menu 1
If Seeker.selected_a_drink = "12-01-02-0068" Then
If MenuPoint[0] = 1 then
Else
Var MenuPoint[0] = 1
Var newPointIndex = 0
EndIf
EndIf
If Seeker.selected_a_drink = "12-21-02-0068" Then
If MenuPoint[0] = 1 then
Else
Var MenuPoint[0] = 1
Var newPointIndex = 0
EndIf
EndIf
; Menu 2
If Seeker.selected_a_drink = "12-05-03-0092" Then
If MenuPoint[1] = 1 then
Else
Var MenuPoint[1] = 1
Var newPointIndex = 1
EndIf
EndIf
; Menu 3
If Seeker.selected_a_drink = "12-03-02-0058" Then
If MenuPoint[2] = 1 then
Else
Var MenuPoint[2] = 1
Var newPointIndex = 2
EndIf
EndIf
If Seeker.selected_a_drink = "12-03-03-0058" Then
If MenuPoint[2] = 1 then
Else
Var MenuPoint[2] = 1
Var newPointIndex = 2
EndIf
EndIf
; Menu 4
If Seeker.selected_a_drink = "12-03-02-0059" Then
If MenuPoint[3] = 1 then
Else
Var MenuPoint[3] = 1
Var newPointIndex = 3
EndIf
EndIf
If Seeker.selected_a_drink = "12-03-03-0059" Then
If MenuPoint[3] = 1 then
Else
Var MenuPoint[3] = 1
Var newPointIndex = 3
EndIf
EndIf
; Menu 5
If Seeker.selected_a_drink = "12-02-02-0060" Then
If MenuPoint[4] = 1 then
Else
Var MenuPoint[4] = 1
Var newPointIndex = 4
EndIf
EndIf
If Seeker.selected_a_drink = "12-02-03-0060" Then
If MenuPoint[4] = 1 then
Else
Var MenuPoint[4] = 1
Var newPointIndex = 4
EndIf
EndIf
; Menu 6
If Seeker.selected_a_drink = "12-02-02-0061" Then
If MenuPoint[5] = 1 then
Else
Var MenuPoint[5] = 1
Var newPointIndex = 5
EndIf
EndIf
If Seeker.selected_a_drink = "12-02-03-0061" Then
If MenuPoint[5] = 1 then
Else
Var MenuPoint[5] = 1
Var newPointIndex = 5
EndIf
EndIf
; Menu 7
If Seeker.selected_a_drink = "12-02-02-0062" Then
If MenuPoint[6] = 1 then
Else
Var MenuPoint[6] = 1
Var newPointIndex = 6
EndIf
EndIf
If Seeker.selected_a_drink = "12-02-03-0062" Then
If MenuPoint[6] = 1 then
Else
Var MenuPoint[6] = 1
Var newPointIndex = 6
EndIf
EndIf
; Menu 8
If Seeker.selected_a_drink = "12-02-02-0063" Then
If MenuPoint[7] = 1 then
Else
Var MenuPoint[7] = 1
Var newPointIndex = 7
EndIf
EndIf
If Seeker.selected_a_drink = "12-02-03-0063" Then
If MenuPoint[7] = 1 then
Else
Var MenuPoint[7] = 1
Var newPointIndex = 7
EndIf
EndIf
; Menu 9
If Seeker.selected_a_drink = "12-02-02-0064" Then
If MenuPoint[8] = 1 then
Else
Var MenuPoint[8] = 1
Var newPointIndex = 8
EndIf
EndIf
If Seeker.selected_a_drink = "12-02-03-0064" Then
If MenuPoint[8] = 1 then
Else
Var MenuPoint[8] = 1
Var newPointIndex = 8
EndIf
EndIf
; Menu 10
If Seeker.selected_a_drink = "12-02-02-0065" Then
If MenuPoint[9] = 1 then
Else
Var MenuPoint[9] = 1
Var newPointIndex = 9
EndIf
EndIf
If Seeker.selected_a_drink = "12-02-03-0065" Then
If MenuPoint[9] = 1 then
Else
Var MenuPoint[9] = 1
Var newPointIndex = 9
EndIf
EndIf
; Menu 11
If Seeker.selected_a_drink = "12-05-02-0090" Then
If MenuPoint[10] = 1 then
Else
Var MenuPoint[10] = 1
Var newPointIndex = 10
EndIf
EndIf
; Menu 12
If Seeker.selected_a_drink = "12-05-02-0091" Then
If MenuPoint[11] = 1 then
Else
Var MenuPoint[11] = 1
Var newPointIndex = 11
EndIf
EndIf
If Seeker.selected_a_drink = "12-05-03-0091" Then
If MenuPoint[11] = 1 then
Else
Var MenuPoint[11] = 1
Var newPointIndex = 11
EndIf
EndIf
; Menu 13
If Seeker.selected_a_drink = "12-05-02-0093" Then
If MenuPoint[12] = 1 then
Else
Var MenuPoint[12] = 1
Var newPointIndex = 12
EndIf
EndIf
Var CurrentIndexPoint = -1
If MenuPoint[0] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[0]
EndIf
If MenuPoint[1] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[1]
EndIf
If MenuPoint[2] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[2]
EndIf
If MenuPoint[3] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[3]
EndIf
If MenuPoint[4] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[4]
EndIf
If MenuPoint[5] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[5]
EndIf
If MenuPoint[6] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[6]
EndIf
If MenuPoint[7] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[7]
EndIf
If MenuPoint[8] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[8]
EndIf
If MenuPoint[9] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[9]
EndIf
If MenuPoint[10] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[10]
EndIf
If MenuPoint[11] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[11]
EndIf
If MenuPoint[12] = 1 Then
Var CurrentIndexPoint = CurrentIndexPoint + 1
Var PointState[CurrentIndexPoint] = 1
Var PointState[CurrentIndexPoint].name = MenuPointName[12]
EndIf
DEBUGVAR Seeker.selected_a_drink
DEBUGVAR newPointIndex
DEBUGVAR Seeker.PointTaobinStr
DEBUGVAR Seeker.TNumberTaobinMember
Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_collect_point_nam_hom_coconut_3.xml"
EndIf
</EventActionOk>
<EventActionError>
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber
Var CollectPointError = "collect"
Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_collect_point_nam_hom_coconut_error.xml"
</EventActionError>
<EventMachine>
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
</EventMachine>
<Image>
<X> 178 </X>
<Y> 680 </Y>
<Filename> Var( DirImage + "/text20.png" ) </Filename>
</Image>
;include="ROOT/taobin_project/inc/video.inc"
<Text>
<X> 0 </X>
<Y> 873 </Y>
<Width> 1080 </Width>
<Align> Center </Align>
<Size> 62 </Size>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Value> TelephoneNumber </Value>
<Format> Telnum-mask-1 </Format>
</Text>
;
<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>
</Popup>

591
xml/event/nam_hom_coconut/page_collect_point_nam_hom_coconut_3.xml Normal file
View file

@ -0,0 +1,591 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
Var BmiYear = "0/0/0/0/0/0/0/0/0/1"
Var PointCrm = "pdpa1"
Var GetScore = ""
Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember = TelephoneNumber
Var PointMaskState = "Invisible"
Var showRandomBtnState = "Invisible"
Var showCloseBtnState = "Enable"
Var CoffeePointStr = CoffeePoint
DEBUGVAR TelephoneNumber
DEBUGVAR TelephoneNumberX
Var PointRootDir = "ROOT/taobin_project/image/event/nam_hom_coconut/display_point"
If show_eng = "true" Then
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png"
Var CloseBtnImg = PointRootDir + "/continue_en_btn.png"
Var RandomBtnImg = PointRootDir + "/random_btn_en.png"
Else
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
Var CloseBtnImg = PointRootDir + "/continue_btn.png"
Var RandomBtnImg = PointRootDir + "/random_btn.png"
EndIf
Var CheckCoupons = 0
Var MakeDrinkState = 0
Var taobinImgPoint[0] = "/coconut_point.png"
Var taobinImgPoint[1]= "/coconut_point.png"
Var taobinImgPoint[2]= "/coconut_point.png"
Var taobinImgPoint[3]= "/coconut_point.png"
Var taobinImgPoint[4]= "/coconut_point.png"
Var taobinImgPoint[5]= "/coconut_point.png"
Var taobinImgPoint[6]= "/coconut_point.png"
Var taobinImgPoint[7]= "/coconut_point.png"
Var taobinImgPoint[8]= "/coconut_point.png"
Var taobinImgPoint[9]= "/coconut_point.png"
Var PointCount = 0
Var taobinTextColorPoint[0] = "0x000000"
Var taobinTextColorPoint[1] = "0x000000"
Var taobinTextColorPoint[2] = "0x000000"
Var taobinTextColorPoint[3] = "0x000000"
Var taobinTextColorPoint[4] = "0x000000"
Var taobinTextColorPoint[5] = "0x000000"
Var taobinTextColorPoint[6] = "0x000000"
Var taobinTextColorPoint[7] = "0x000000"
Var taobinTextColorPoint[8] = "0x000000"
Var taobinTextColorPoint[9] = "0x000000"
DEBUGVAR PointState[0]
DEBUGVAR PointState[1]
DEBUGVAR PointState[2]
DEBUGVAR PointState[3]
DEBUGVAR PointState[4]
DEBUGVAR PointState[5]
DEBUGVAR PointState[6]
DEBUGVAR PointState[7]
DEBUGVAR PointState[8]
DEBUGVAR PointState[9]
If PointState[0] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[0] = "/coconut_point_active.png"
EndIf
If PointState[1] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[1] = "/coconut_point_active.png"
EndIf
If PointState[2] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[2] = "/coconut_point_active.png"
EndIf
If PointState[3] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[3] = "/coconut_point_active.png"
EndIf
If PointState[4] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[4] = "/coconut_point_active.png"
EndIf
If PointState[5] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[5] = "/coconut_point_active.png"
EndIf
If PointState[6] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[6] = "/coconut_point_active.png"
EndIf
If PointState[7] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[7] = "/coconut_point_active.png"
EndIf
If PointState[8] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[8] = "/coconut_point_active.png"
EndIf
If PointState[9] = 1 Then
Var PointCount = PointCount + 1
Var taobinImgPoint[9] = "/coconut_point_active.png"
EndIf
Var PointDiff = 10 - PointCount
If show_eng = "true" Then
Var MemberText = "สถานะสมาชิก"
Var MissionText = "ฝ่าไอร้อนพิชิตไอเท่มหน้าใส"
Var TaobinLevelDesc1 = "You have " + PointDiff
Var TaobinLevelDesc1 = TaobinLevelDesc1 + " more fresh menus left to unlock CURA-MD"
Var TaobinLevelDesc2 = "Collect 10 menu items to receive an acne-free complexion prize."
Var subTitle_Y = 839
Var text8_X = 224
Else
Var MemberText = "HELLO PAL, WANNA FELL FRESH?"
Var MissionText = "BEAT THE HEAT, GO!"
Var TaobinLevelDesc1 = "เหลืออีก " + PointDiff
Var TaobinLevelDesc1 = TaobinLevelDesc1 + " เมนูที่จะได้กดสุ่มรางวัลจาก CURA-MD"
Var TaobinLevelDesc2 = "สะสมให้ครบ 10 เมนูมะพร้าวแสนแล้วมาลุ้นกัน!"
Var subTitle_Y = 853
Var text8_X = 346
EndIf
If PointCount = 10 Then
Var showRandomBtnState = "Enable"
Var showCloseBtnState = "Invisible"
EndIf
Var CurrentPointSlot = newPointIndex + 1
Var UpdatePoint = 0
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = Timeout + 1
If Timeout > 10 Then
Var CurrentPointCheck = "check"
Var val3 = "X"
AddData 37 TelephoneNumber CurrentPointSlot CurrentPointCheck val3
Var UpdatePoint = 1
EndIf
TimerReset
Refresh
</EventTimeout>
<EventActionError>
</EventActionError>
<EventActionOk>
If UpdatePoint = 1 Then
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointMain = 1 Then
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
EndIf
EndIf
</EventActionOk>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventMachine>
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
</EventMachine>
;include="ROOT/taobin_project/inc/video.inc"
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/display_point/alpha.png" </Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 665 </Y>
<Filename> Var( PointRootDir + "/bg_top.png" )</Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 1085 </Y>
<Filename> Var( PointRootDir + "/bg_bottom.png" )</Filename>
</Image>
<Text>
<X> 243 </X>
<Y> 722 </Y>
<Width> 360 </Width>
<Height> 36 </Height>
<Size> 24 </Size>
<Font> KanitMediumTTF </Font>
<Value> MemberText </Value>
</Text>
<Text>
<X> 243 </X>
<Y> 850 </Y>
<Width> 360 </Width>
<Height> 48 </Height>
<Size> 32 </Size>
<Font> KanitMediumTTF </Font>
<Value> MissionText </Value>
</Text>
<Image>
<X> 619 </X>
<Y> 732 </Y>
<Filename> Var( PointRootDir + "/tao_drink_coconut.png" )</Filename>
</Image>
;
<Text>
<X> 243 </X>
<Y> 758 </Y>
<Size> 36 </Size>
<Width> 480 </Width>
<Height> 42 </Height>
<Font> RobotoBold </Font>
<Color> 0x513C2F </Color>
<Value> TaobinName </Value>
</Text>
<Text>
<X> 243 </X>
<Y> 800 </Y>
<Size> 14 </Size>
<Width> 90 </Width>
<Font> RobotoRegular </Font>
<Color> 0x746253 </Color>
<Value> TNumberTaobinMemberXXX </Value>
<Format> Telnum-mask-1 </Format>
</Text>
; Header
<Text>
<X> 247 </X>
<Y> 902 </Y>
<Size> 48 </Size>
<Width> 56 </Width>
<Height> 56 </Height>
<Font> RobotoBold </Font>
<Color> 0xDE794E </Color>
<Value> PointCount </Value>
</Text>
<Text>
<X> 247 </X>
<Y> 970 </Y>
<Size> 25 </Size>
<Width> 500 </Width>
<Height> 30 </Height>
<Font> RobotoBold </Font>
<Color> 0xDE794E </Color>
<Value> TaobinLevelDesc1 </Value>
</Text>
<Text>
<X> 247 </X>
<Y> 1001 </Y>
<Size> 20 </Size>
<Width> 500 </Width>
<Height> 30 <Height>
<Font> KanitRegularTTF </Font>
<Color> 0x746253 </Color>
<Value> TaobinLevelDesc2 </Value>
</Text>
<Image>
<X> 234 </X>
<Y> 1113 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[0]) </Filename>
</Image>
<Text>
<X> 234 </X>
<Y> 1252 </Y>
<Size> 10 </Size>
<Width> 154 </Width>
<Font> InterRegular </Font>
<Color> taobinTextColorPoint[0] </Color>
<Value> PointState[0].name </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Image>
<X> 388 </X>
<Y> 1113 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[1]) </Filename>
</Image>
<Text>
<X> 388 </X>
<Y> 1252 </Y>
<Size> 10 </Size>
<Width> 154 </Width>
<Font> InterRegular </Font>
<Color> taobinTextColorPoint[1] </Color>
<Value> PointState[1].name </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Image>
<X> 542 </X>
<Y> 1113 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[2]) </Filename>
</Image>
<Text>
<X> 542 </X>
<Y> 1252 </Y>
<Size> 10 </Size>
<Width> 154 </Width>
<Font> InterRegular </Font>
<Color> taobinTextColorPoint[2] </Color>
<Value> PointState[2].name </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Image>
<X> 696 </X>
<Y> 1113 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[3]) </Filename>
</Image>
<Text>
<X> 696 </X>
<Y> 1252 </Y>
<Size> 10 </Size>
<Width> 154 </Width>
<Font> InterRegular </Font>
<Color> taobinTextColorPoint[3] </Color>
<Value> PointState[3].name </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Image>
<X> 76 </X>
<Y> 1295 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[4]) </Filename>
</Image>
<Text>
<X> 76 </X>
<Y> 1434 </Y>
<Size> 10 </Size>
<Width> 154 </Width>
<Font> InterRegular </Font>
<Color> taobinTextColorPoint[4] </Color>
<Value> PointState[4].name </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Image>
<X> 388 </X>
<Y> 1295 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[5]) </Filename>
</Image>
<Text>
<X> 388 </X>
<Y> 1434 </Y>
<Size> 10 </Size>
<Width> 154 </Width>
<Font> InterRegular </Font>
<Color> taobinTextColorPoint[5] </Color>
<Value> PointState[5].name </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Image>
<X> 542 </X>
<Y> 1295 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[6]) </Filename>
</Image>
<Text>
<X> 542 </X>
<Y> 1434 </Y>
<Size> 10 </Size>
<Width> 154 </Width>
<Font> InterRegular </Font>
<Color> taobinTextColorPoint[6] </Color>
<Value> PointState[6].name </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Image>
<X> 696 </X>
<Y> 1295 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[7]) </Filename>
</Image>
<Text>
<X> 696 </X>
<Y> 1434 </Y>
<Size> 10 </Size>
<Width> 154 </Width>
<Font> InterRegular </Font>
<Color> taobinTextColorPoint[7] </Color>
<Value> PointState[7].name </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Image>
<X> 388 </X>
<Y> 1477 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[8]) </Filename>
</Image>
<Text>
<X> 388 </X>
<Y> 1616 </Y>
<Size> 10 </Size>
<Width> 154 </Width>
<Font> InterRegular </Font>
<Color> taobinTextColorPoint[8] </Color>
<Value> PointState[8].name </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Image>
<X> 542 </X>
<Y> 1477 </Y>
<Filename> Var( PointRootDir + taobinImgPoint[9]) </Filename>
</Image>
<Text>
<X> 542 </X>
<Y> 1616 </Y>
<Size> 10 </Size>
<Width> 154 </Width>
<Font> InterRegular </Font>
<Color> taobinTextColorPoint[9] </Color>
<Value> PointState[9].name </Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Button>
<X> 423 </X>
<Y> 1660 </Y>
<State> showRandomBtnState </State>
<Filename> RandomBtnImg </Filename>
<FilenamePress> RandomBtnImg </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; goto lid straw
If SELLONLINE = 1 Then
Var CurrentPointCheck = ""
Else
Var CurrentPointCheck = "check"
EndIf
Var val3 = "X"
AddData 37 TelephoneNumber CurrentPointSlot CurrentPointCheck val3
Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_nam_hom_coconut_random.xml"
</EventClick>
</Button>
<Button>
<X> 610 </X>
<Y> 1660 </Y>
<State> showCloseBtnState </State>
<Filename> CloseBtnImg </Filename>
<FilenamePress> CloseBtnImg </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; goto lid straw
Var CurrentPointCheck = "check"
Var val3 = "X"
AddData 37 TelephoneNumber CurrentPointSlot CurrentPointCheck val3
Var UpdatePoint = 1
</EventClick>
</Button>
;
<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>
<EventUnitTest3>
Var PointState[0] = 1
Var PointState[1] = 1
Var PointState[2] = 1
Var PointState[3] = 1
Var PointState[4] = 1
Var PointState[5] = 1
Var PointState[6] = 1
Var PointState[7] = 1
Var PointState[8] = 1
Var PointState[9] = 1
Open "ROOT/taobin_project/xml/event/lipit/page_collect_point_pro_lipit_3.xml"
</EventUnitTest3>
<EventUnitTest4>
If show_eng = "true" Then
Var show_eng = "false"
Else
Var show_eng = "true"
EndIf
Open "ROOT/taobin_project/xml/event/lipit/page_collect_point_pro_lipit_3.xml"
</EventUnitTest4>
</Popup>

283
xml/event/nam_hom_coconut/page_collect_point_nam_hom_coconut_error.xml Normal file
View file

@ -0,0 +1,283 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
SAVELOG show_eng
DEBUGVAR CollectPointError
Var DirImage = "ROOT/taobin_project/image/event/nam_hom_coconut/error"
If CollectPointError = "collect" Then
Var ImgError = DirImage + "/coconut.png"
Var ImgError_X = 253
Var ImgError_Y = 888
If show_eng = "true" Then
Var text_fail = DirImage + "/text_en.png"
Else
Var text_fail = DirImage + "/text_th.png"
EndIf
EndIf
If CollectPointError = "random" Then
Var ImgError = DirImage + "/cura-md-bag.png"
Var ImgError_X = 294
Var ImgError_Y = 768
If show_eng = "true" Then
Var text_fail = DirImage + "/text2_en.png"
Else
Var text_fail = DirImage + "/text2_th.png"
EndIf
EndIf
Var newPointIndex = 0
; Menu 1
If Seeker.selected_a_drink = "12-01-02-0068" Then
Var newPointIndex = 0
EndIf
If Seeker.selected_a_drink = "12-21-02-0068" Then
Var newPointIndex = 0
EndIf
; Menu 2
If Seeker.selected_a_drink = "12-05-03-0092" Then
Var newPointIndex = 1
EndIf
; Menu 3
If Seeker.selected_a_drink = "12-03-02-0058" Then
Var newPointIndex = 2
EndIf
If Seeker.selected_a_drink = "12-03-03-0058" Then
Var newPointIndex = 2
EndIf
; Menu 4
If Seeker.selected_a_drink = "12-03-02-0059" Then
Var newPointIndex = 3
EndIf
If Seeker.selected_a_drink = "12-03-03-0059" Then
Var newPointIndex = 3
EndIf
; Menu 5
If Seeker.selected_a_drink = "12-02-02-0060" Then
Var newPointIndex = 4
EndIf
If Seeker.selected_a_drink = "12-02-03-0060" Then
Var newPointIndex = 4
EndIf
; Menu 6
If Seeker.selected_a_drink = "12-02-02-0061" Then
Var newPointIndex = 5
EndIf
If Seeker.selected_a_drink = "12-02-03-0061" Then
Var newPointIndex = 5
EndIf
; Menu 7
If Seeker.selected_a_drink = "12-02-02-0062" Then
Var newPointIndex = 6
EndIf
If Seeker.selected_a_drink = "12-02-03-0062" Then
Var newPointIndex = 6
EndIf
; Menu 8
If Seeker.selected_a_drink = "12-02-02-0063" Then
Var newPointIndex = 7
EndIf
If Seeker.selected_a_drink = "12-02-03-0063" Then
Var newPointIndex = 7
EndIf
; Menu 9
If Seeker.selected_a_drink = "12-02-02-0064" Then
Var newPointIndex = 8
EndIf
If Seeker.selected_a_drink = "12-02-03-0064" Then
Var newPointIndex = 8
EndIf
; Menu 10
If Seeker.selected_a_drink = "12-02-02-0065" Then
Var newPointIndex = 9
EndIf
If Seeker.selected_a_drink = "12-02-03-0065" Then
Var newPointIndex = 9
EndIf
; Menu 11
If Seeker.selected_a_drink = "12-05-02-0090" Then
Var newPointIndex = 10
EndIf
; Menu 12
If Seeker.selected_a_drink = "12-05-02-0091" Then
Var newPointIndex = 11
EndIf
If Seeker.selected_a_drink = "12-05-03-0091" Then
Var newPointIndex = 11
EndIf
; Menu 13
If Seeker.selected_a_drink = "12-05-02-0093" Then
Var newPointIndex = 12
EndIf
Var CurrentPointSlot = newPointIndex + 1
Var CurrentPointCheck = "check"
Var val3 = "X"
AddData 37 TelephoneNumber CurrentPointSlot CurrentPointCheck val3
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
Var Timeout = Timeout + 1
If Timeout > 5 Then
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
TimerReset
Refresh
</EventTimeout>
<EventMachine>
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
</EventMachine>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> Var( DirImage + "/bg.png" ) </Filename>
</Image>
<Image>
<X> ImgError_X </X>
<Y> ImgError_Y </Y>
<Filename> ImgError </Filename>
</Image>
<Image>
<X> 49 </X>
<Y> 1490 </Y>
<Filename> text_fail </Filename>
</Image>
<Button>
<X> 401 </X>
<Y> 1771 </Y>
<Filename> Var( DirImage + "/confirm_btn.png" ) </Filename>
<FilenamePress> Var( DirImage + "/confirm_btn_press.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; goto lid straw
If PromotionIDCurrentOrder > 1 Then
Open "ROOT/taobin_project/xml/page_display_Promo1Get1Free.xml"
EndIf
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventClick>
</Button>
;include="ROOT/taobin_project/inc/video.inc"
;
<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>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventUnitTest1>
If show_eng = "true" Then
Var show_eng = "false"
Else
Var show_eng = "true"
EndIf
Open "ROOT/taobin_project/xml/event/lipit/page_collect_point_nam_hom_coconut_error.xml.xml"
</EventUnitTest1>
<EventUnitTest4>
If CollectPointError = "collect" then
Var CollectPointError = "random"
Else
Var CollectPointError = "collect"
EndIf
Open "ROOT/taobin_project/xml/event/lipit/page_collect_point_nam_hom_coconut_error.xml.xml"
</EventUnitTest4>
</Page>

282
xml/event/nam_hom_coconut/page_nam_hom_coconut_random.xml Normal file
View file

@ -0,0 +1,282 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Volume> SoundVolume </Volume>
;<Background> "0xeae6e1" </Background>
<EventOpen>
Var Timeout = 0
Var DirImage = "ROOT/taobin_project/image/event/nam_hom_coconut/random"
Var RandomStyle = 0
Random2 0 1 RandomStyle
If RandomStyle = 0 Then
Var Text_X = 241
Var Text_Y = 1113
Var BagImg = DirImage + "/cura-md-bag_md.png"
Var Bag1_X = 75
Var Bag1_Y = 715
Var Bag2_X = 424
Var Bag2_Y = 715
Var Bag3_X = 774
Var Bag3_Y = 715
Var Bag4_X = 249
Var Bag4_Y = 1338
Var Bag5_X = 599
Var Bag5_Y = 1338
Else
Var Text_X = 256
Var Text_Y = 628
Var BagImg = DirImage + "/cura-md-bag_lg.png"
Var Bag1_X = 75
Var Bag1_Y = 806
Var Bag2_X = 713
Var Bag2_Y = 806
Var Bag3_X = 394
Var Bag3_Y = 1129
Var Bag4_X = 75
Var Bag4_Y = 1471
Var Bag5_X = 713
Var Bag5_Y = 1471
EndIf
Var MaxRandomIndex = 0
If ClearGelOutOfStock = 0 Then
Var rewardList[MaxRandomIndex] = "clear_gel"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "clear_gel"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "clear_gel"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "clear_gel"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "clear_gel"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "clear_gel"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "clear_gel"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "clear_gel"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "clear_gel"
Var MaxRandomIndex = MaxRandomIndex + 1
EndIf
If TumbleBottleOutOfStock = 0 Then
Var rewardList[MaxRandomIndex] = "tumble_bottle"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "tumble_bottle"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "tumble_bottle"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "tumble_bottle"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "tumble_bottle"
Var MaxRandomIndex = MaxRandomIndex + 1
EndIf
If CleansingGelOutOfStock = 0 Then
Var rewardList[MaxRandomIndex] = "cleansing_gel"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "cleansing_gel"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "cleansing_gel"
Var MaxRandomIndex = MaxRandomIndex + 1
EndIf
If BalanceEssenceTonerOutOfStock = 0 Then
Var rewardList[MaxRandomIndex] = "balance_essence_toner"
Var MaxRandomIndex = MaxRandomIndex + 1
Var rewardList[MaxRandomIndex] = "balance_essence_toner"
Var MaxRandomIndex = MaxRandomIndex + 1
EndIf
If SuperSetOutOfStock = 0 Then
Var rewardList[MaxRandomIndex] = "super_set"
Var MaxRandomIndex = MaxRandomIndex + 1
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
DEBUGVAR Timeout
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
If Timeout > 15 Then
SAVELOG "Timeout 15 second auto random for you"
Function 2
EndIf
Var Timeout = Timeout + 1
TimerReset
Refresh
</EventTimeout>
;include="ROOT/taobin_project/inc/video.inc"
; Background
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> Var( DirImage + "/bg.png") </Filename>
</Image>
<Image>
<X> Text_X </X>
<Y> Text_Y </Y>
<Filename> Var( DirImage + "/random_text.png") </Filename>
</Image>
<Button>
<X> Bag1_X </X>
<Y> Bag1_Y </Y>
<Filename> BagImg </Filename>
<FilenamePress> BagImg </FilenamePress>
<EventClick>
Function 2
</EventClick>
</Button>
<Button>
<X> Bag2_X </X>
<Y> Bag2_Y </Y>
<Filename> BagImg </Filename>
<FilenamePress> BagImg </FilenamePress>
<EventClick>
Function 2
</EventClick>
</Button>
<Button>
<X> Bag3_X </X>
<Y> Bag3_Y </Y>
<Filename> BagImg </Filename>
<FilenamePress> BagImg </FilenamePress>
<EventClick>
Function 2
</EventClick>
</Button>
<Button>
<X> Bag4_X </X>
<Y> Bag4_Y </Y>
<Filename> BagImg </Filename>
<FilenamePress> BagImg </FilenamePress>
<EventClick>
Function 2
</EventClick>
</Button>
<Button>
<X> Bag5_X </X>
<Y> Bag5_Y </Y>
<Filename> BagImg </Filename>
<FilenamePress> BagImg </FilenamePress>
<EventClick>
Function 2
</EventClick>
</Button>
<Function2>
; Random coupon
Var randResultInt = 0
DEBUGVAR MaxRandomIndex
Var MaxRandom = MaxRandomIndex - 1
DEBUGVAR MaxRandom
Random2 0 MaxRandom randResultInt
Var CodeType = ""
Var randResultStr = rewardList[randResultInt]
If randResultStr = "super_set" Then
Var CodeType = "130"
EndIf
if randResultStr = "balance_essence_toner" Then
Var CodeType = "131"
EndIf
If randResultStr = "cleansing_gel" Then
Var CodeType = "132"
EndIf
If randResultStr = "tumble_bottle" Then
Var CodeType = "133"
EndIf
If randResultStr = "clear_gel" Then
Var CodeType = "134"
EndIf
DEBUGVAR randResultInt
DEBUGVAR randResultStr
DEBUGVAR CodeType
Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_nam_hom_coconut_random_result.xml"
</Function2>
;
<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>
<EventUnitTest1>
OpenInst 2 "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventUnitTest1>
<EventUnitTest2>
Var show_eng = "false"
Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_nam_hom_coconut_random.xml"
</EventUnitTest2>
<EventUnitTest3>
Var show_eng = "true"
Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_nam_hom_coconut_random.xml"
</EventUnitTest3>
</Popup>

160
xml/event/nam_hom_coconut/page_nam_hom_coconut_random_result.xml Normal file
View file

@ -0,0 +1,160 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Volume> SoundVolume </Volume>
;<Background> "0xeae6e1" </Background>
<EventOpen>
Var Timeout = 0
Var DirImage = "ROOT/taobin_project/image/event/nam_hom_coconut/random"
If CodeType = "130" Then
Var RewardText = DirImage + "/super_set_reward_text.png"
Var RewardImage = DirImage + "/super_set_reward.png"
Var RewardImage_X = 27
Var RewardImage_Y = 876
EndIf
If CodeType = "131" Then
Var RewardText = DirImage + "/balance_essence_toner_reward_text.png"
Var RewardImage = DirImage + "/balance_essence_toner_reward.png"
Var RewardImage_X = 328
Var RewardImage_Y = 843
EndIf
If CodeType = "132" Then
Var RewardText = DirImage + "/cleansing_gel_reward_text.png"
Var RewardImage = DirImage + "/cleansing_gel_reward.png"
Var RewardImage_X = 270
Var RewardImage_Y = 833
EndIf
If CodeType = "133" Then
Var RewardText = DirImage + "/tumble_bottle_reward_text.png"
Var RewardImage = DirImage + "/tumble_bottle_reward.png"
Var RewardImage_X = 148
Var RewardImage_Y = 608
EndIf
If CodeType = "134" Then
Var RewardText = DirImage + "/clear_gel_reward_text.png"
Var RewardImage = DirImage + "/clear_gel_reward.png"
Var RewardImage_X = 445
Var RewardImage_Y = 864
EndIf
Var CodeReward = CodeType
Var var2 = "X"
Var var3 = "X"
Var PhoneNum = TelephoneNumber
AddData 38 TelephoneNumber CodeReward var2 var3
GETACCEXT PhoneNum 34
</EventOpen>
<EventActionOk>
If Ext1a = "" Then
Else
Var NamHomCoconutRewardRemain = Ext1a
DEBUGVAR NamHomCoconutRewardRemain
EndIf
</EventActionOk>
<Timeout> 1000 </Timeout>
<EventTimeout>
DEBUGVAR Timeout
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
If Timeout = 5 Then
If Seeker.CodeChannel = 1 Then
If Seeker.CollectPointMain = 1 Then
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
Else
Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf
Else
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
EndIf
EndIf
Timeout = Timeout + 1
TimerReset
Refresh
</EventTimeout>
;include="ROOT/taobin_project/inc/video.inc"
; Background
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> Var( DirImage + "/bg_reward.png") </Filename>
</Image>
<Image>
<X> 126 </X>
<Y> 595 <Y>
<Filename> RewardText </Filename>
</Image>
<Image>
<X> RewardImage_X </X>
<Y> RewardImage_Y </Y>
<Filename> RewardImage </Filename>
</Image>
<Image>
<X> 229 </X>
<Y> 1662 </Y>
<Filename> Var ( DirImage + "/reward_result_line_register_text.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>
<EventUnitTest1>
OpenInst 2 "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventUnitTest1>
<EventUnitTest2>
Var show_eng = "false"
Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_nam_hom_coconut_random.xml"
</EventUnitTest2>
<EventUnitTest3>
Var show_eng = "true"
Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_nam_hom_coconut_random.xml"
</EventUnitTest3>
</Popup>

2
xml/event/out_put_file3.txt
View file

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

1057
xml/event/promotion_energy_drink_1_bath.xml
View file

File diff suppressed because it is too large Load diff

13158
xml/event/promotion_nam_hom_coconut.xml Normal file
View file

File diff suppressed because it is too large Load diff

6
xml/event/promotion_template3.inc
View file

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

9
xml/event/script_common_for_open_promotion_xml.ev
View file

@ -12,6 +12,7 @@ DEBUGVAR EnergyDrinkEnable
DEBUGVAR EnergyDrink1BathPro
DEBUGVAR CoffeeDrink1BathPro
DEBUGVAR WednesdayMelonPro
DEBUGVAR NamHomCoconutPro
Var PromotionState1 = "Invisible"
Var PromotionState2 = "Invisible"
@ -38,7 +39,7 @@ Else
Var FileRecommendToOpen = "ROOT/taobin_project/xml/page_catalog_group_recommend.xml"
; zone promote
If TeaTimePro = 1 Then
If NamHomCoconutPro = 1 Then
Var PromotionState1 = "Enable"
Var CountEnablePromotion = CountEnablePromotion + 1
@ -47,15 +48,15 @@ Else
Var CountEnablePromotion = CountEnablePromotion + 1
EndIf
If CoffeeDrink1BathPro = 1 Then
If WednesdayMelonPro = 1 Then
Var PromotionState3 = "Enable"
Var CountEnablePromotion = CountEnablePromotion + 1
EndIf
If CountEnablePromotion > 1 Then
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/triple_promotion_tea_time_and_energy_drink_1_bath_and_coffee_drink_1_bath.xml"
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/triple_promotion_nam_hom_coconut_and_energy_drink_1_bath_and_wednesday_melon.xml"
Else
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/promotion_tea_time.xml"
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/promotion_nam_hom_coconut.xml"
EndIf
Else
If EnergyDrink1BathPro = 1 Then

38
xml/event/tricker.ev
View file

@ -103,6 +103,10 @@ Var FromCoffeeDrink1BathPro = 0
Var WednesdayMelonPro = 0
Var FromWednesdayMelonPro = 0
; Enable Nam Hom Coconut, 3 - 21 June
Var NamHomCoconutPro = 0
Var FromNamHomCoconutPro = 0
Var NewCollectPoint = 1
Var NewFlowPaymentCode = 0
@ -283,6 +287,20 @@ If SystemDateMonthInt = 5 Then
EndIf
If SystemDateMonthInt = 6 Then
If SystemDateDayInt >= 3 Then
If SystemDateDayInt <= 21 Then
Var NamHomCoconutPro = 1
EndIf
EndIf
If SystemDateDayInt <= 15 Then
STRCONTAIN "TaoBin_1_Baht_Energy" XMLProfile TaoBin_1_Baht_Energy
If TaoBin_1_Baht_Energy = "true" Then
Var EnergyDrink1BathPro = 1
EndIf
EndIf
If SystemDateDayInt = 5 Then
Var WednesdayMelonPro = 1
EndIf
@ -290,6 +308,7 @@ If SystemDateMonthInt = 6 Then
If SystemDateDayInt = 12 Then
Var WednesdayMelonPro = 1
EndIf
EndIf
@ -305,9 +324,6 @@ EndIf
If BoxID = 172644 Then
Var NewFlowPaymentCode = 1
Var LipitPro = 0
Var TeaTimePro = 1
EndIf
If BoxID = 201316 Then
@ -317,11 +333,12 @@ EndIf
If BoxID = 105005 Then
Var NewFlowPaymentCode = 1
Var CoffeeDrink1BathPro = 0
Var NamHomCoconutPro = 1
EndIf
If BoxID = 174758 Then
Var ProBadValentineEnable = 0
Var PepsiSecondCup30Enable = 0
@ -369,6 +386,7 @@ If InternationalEnable = 1 Then
Var ProBadValentineEnable = 0
Var FreeEnergyDrink = 0
Var WednesdayMelonPro = 0
Var NamHomCoconutPro = 0
EndIf
STRCONTAIN "taobin_nopro" XMLProfile taobin_nopro
@ -402,12 +420,18 @@ If taobin_nopro = "true" Then
Var LipitPro = 0
Var WednesdayMelonPro = 0
Var NamHomCoconutPro = 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"
EndIf
If CoconutSyrupEnable = "true" Then
Else
Var NamHomCoconutPro = 0
EndIf
If MelonSyrupEnable = "true" Then
Else
@ -468,8 +492,8 @@ EndIf
Var CurrentMainVideoTemp = 0
If TeaTimePro = 1 Then
Var VideoMainPage = "ROOT/taobin_project/video/main_page_event_pro1.mp4"
If NamHomCoconutPro = 1 Then
Var VideoMainPage = "ROOT/taobin_project/image/event/nam_hom_coconut/nam_hom_coconut_main_page.png"
Var CurrentMainVideoTemp = 1
Var CountDownShowButton = 0
;Var MainPageEventWithTimeout = 25

12268
xml/event/triple_promotion_nam_hom_coconut_and_energy_drink_1_bath_and_wednesday_melon.xml Normal file
View file

File diff suppressed because it is too large Load diff