"Enable" 1080 1920 SoundVolume
; "0xeae6e1"
Var Timeout = 0
Var DirImage = "ROOT/taobin_project/image/event/lipit/random"
Var rewardList[0] = "lip_mask_stick"
Var rewardList[1] = "lip_mask_stick"
Var rewardList[2] = "lip_mask_stick"
Var rewardList[3] = "lip_mask_stick"
Var rewardList[4] = "lip_mask_stick"
Var rewardList[5] = "lip_mask_stick"
Var rewardList[6] = "lip_mask_stick"
Var rewardList[7] = "lip_mask_stick"
Var rewardList[8] = "lip_mask_stick"
Var rewardList[9] = "lip_mask_stick"
Var rewardList[10] = "tint_me_healthy_balm"
Var rewardList[11] = "tint_me_healthy_balm"
Var rewardList[12] = "tint_me_healthy_balm"
Var rewardList[13] = "tint_me_healthy_balm"
Var rewardList[14] = "tint_me_healthy_balm"
Var rewardList[15] = "tint_me_healthy_balm"
Var rewardList[16] = "tint_me_healthy_balm"
Var rewardList[17] = "tint_me_healthy_balm"
Var rewardList[18] = "tint_me_healthy_balm"
Var rewardList[19] = "tint_me_healthy_balm"
Var random_state = "Enable"
Var show_result_state = "Invisible"
If show_eng = "true" Then
Var line_text_x = 341
Var line_text_img = DirImage + "/line_text_en.png"
Else
Var line_text_x = 310
Var line_text_img = DirImage + "/line_text_th.png"
EndIf
1000
DEBUGVAR Timeout
Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing
If random_state = "Enable" Then
If Timeout > 15 Then
SAVELOG "Timeout 15 second auto random for you"
Function 2
EndIf
Else
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
EndIf
Var Timeout = Timeout + 1
TimerReset
Refresh
;include="ROOT/taobin_project/inc/video.inc"
; Background
0 380 Var( DirImage + "/random_bg.png")
; random state
random_state 272 1078 Var( DirImage + "/random_text.png")
; show result
64 450 show_result_state rewardImage line_text_x 1798 show_result_state line_text_img
; Random coupon
Var randResultInt = 0
Random2 0 19 randResultInt
Var CodeType = ""
Var var2 = "X"
Var var3 = "X"
Var randResultStr = rewardList[randResultInt]
If LipMaskOutofStock = 1 Then
Var randResultStr = "tint_me_healthy_balm"
EndIf
If TintMeOutofStock = 1 Then
Var randResultStr = "lip_mask_stick"
EndIf
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 = "happy_lip_set" Then
Var rewardImage = DirImage + "/reward_happy_lip_set.png"
Var CodeType = "128"
EndIf
DEBUGVAR randResultInt
DEBUGVAR randResultStr
DEBUGVAR CodeType
DEBUGVAR rewardImage
Var show_result_state = "Enable"
Var random_state = "Invisible"
Var Timeout = 0
Refresh
AddData 38 TelephoneNumber CodeType var2 var3
;
751 413 IMG_CNT
;
XPosiShowCountDownBrew 470 End 153 88
RobotoBold
0x513C2F ShowCountDownBrewing
OpenInst 2 "ROOT/taobin_project/xml/page_lid_straw.xml"
Var show_eng = "false"
Open "ROOT/taobin_project/xml/event/lipit/page_lipiy_random.xml"
Var show_eng = "true"
Open "ROOT/taobin_project/xml/event/lipit/page_lipiy_random.xml"