add Nam Hom Coconut promotion (not finish yet)

This commit is contained in:
Kenta420 2024-05-15 13:05:23 +07:00
parent 3143147756
commit 32229624f7
56 changed files with 30456 additions and 2329 deletions

File diff suppressed because it is too large Load diff

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>

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>

View file

@ -14,6 +14,19 @@
"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",

View file

@ -24,7 +24,7 @@
DEBUGVAR TelephoneNumber
DEBUGVAR TelephoneNumberX
Var DirImage = "ROOT/taobin_project/image/event/nam_hom_coconut/display_point"
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"
@ -102,7 +102,6 @@
DEBUGVAR PointState[8]
DEBUGVAR PointState[9]
Var PointRootDir = "ROOT/taobin_project/image/event/lipit/display_point"
If PointState[0] = 1 Then
Var PointCount = PointCount + 1
@ -560,7 +559,7 @@
Var val3 = "X"
AddData 37 TelephoneNumber CurrentPointSlot CurrentPointCheck val3
Open "ROOT/taobin_project/xml/event/lipit/page_lipit_random.xml"
Open "ROOT/taobin_project/xml/event/nam_hom_coconut/page_nam_hom_coconut_random.xml"
</EventClick>
</Button>
@ -570,8 +569,8 @@
<X> 610 </X>
<Y> 1660 </Y>
<State> showCloseBtnState </State>
<Filename> Var( DirImage + "/bn_close.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_close.png" )</FilenamePress>
<Filename> Var( PointRootDir + "/bn_close.png" )</Filename>
<FilenamePress> Var( PointRootDir + "/bp_close.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>

View file

@ -0,0 +1,278 @@
<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 = "lip_mask_stick" Then
Var rewardImage = DirImage + "/reward_lip_mask_stick.png"
Var CodeType = "126"
EndIf
if randResultStr = "tint_me_healthy_balm" Then
Var rewardImage = DirImage + "/reward_tint_me_healthy_blam.png"
Var CodeType = "127"
EndIf
If randResultStr = "super_set" Then
Var rewardImage = DirImage + "/reward_happy_lip_set.png"
Var CodeType = "128"
EndIf
DEBUGVAR randResultInt
DEBUGVAR randResultStr
DEBUGVAR CodeType
DEBUGVAR rewardImage
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>

View file

@ -0,0 +1,148 @@
<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 = "123" 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 = "123" 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 = "123" 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 = "123" 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 = "123" 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"
AddData 38 TelephoneNumber CodeReward var2 var3
</EventOpen>
<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>

File diff suppressed because it is too large Load diff

File diff suppressed because it is too large Load diff

View file

@ -43,13 +43,18 @@ Else
Var PromotionState1 = "Enable"
Var CountEnablePromotion = CountEnablePromotion + 1
If WednesdayMelonPro = 1 Then
If EnergyDrink1BathPro = 1 Then
Var PromotionState2 = "Enable"
Var CountEnablePromotion = CountEnablePromotion + 1
EndIf
If WednesdayMelonPro = 1 Then
Var PromotionState3 = "Enable"
Var CountEnablePromotion = CountEnablePromotion + 1
EndIf
If CountEnablePromotion > 1 Then
Var FileRecommendToOpen = "ROOT/taobin_project/xml/event/double_promotion_nam_hom_coconut_and_wednesday_melon.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_nam_hom_coconut.xml"
EndIf

View file

@ -294,6 +294,13 @@ If SystemDateMonthInt = 6 Then
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
@ -497,8 +504,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