taobin_project/video/script1.ev
2025-01-22 15:57:35 +07:00

222 lines
4.9 KiB
Text

Var MainfileSize = 0
DEBUGVAR BoxID
Var EventMatch = 0
Var EventMatch = 1
DEBUGVAR EventMatch
If EventMatch = 1 Then
Var WebAppShow = "Invisible"
GetFileSizeK "taobin_project/video/main_page_event.mp4" MainfileSize
DEBUGVAR MainfileSize
If MainfileSize = 10634530 Then
Var CurrentMainVideoTemp = 1
Var CountDownShowButton = 0
;Var MainPageEventWithTimeout = 25
Var ShowButtonClickFull = "Invisible"
Var img_rest_main_page = "ROOT/taobin_project/image/main_page/bn_main_page_start.png"
Var MemberButtonFileNameRest = "ROOT/taobin_project/image/main_page/bn_main_page_member.png"
Var img_reset_topup = "ROOT/taobin_project/image/main_page/bn_main_page_topup.png"
Var VideoMainPage = "ROOT/taobin_project/video/main_page_event.mp4"
If CocktailShow = "true" Then
Else
Var EventTurnOn = 1
EndIf
EndIf
EndIf
If SystemDateMonthInt = 11 Then
Var EDC_ThailandOn = 1
If SystemDateDayInt > 20 Then
Var PremiumTriosEnable = 1
Var GiftNewYearEnable = 1
EndIf
EndIf
If SystemDateMonthInt = 12 Then
Var EDC_ThailandOn = 1
Var GiftNewYearEnable = 1
EndIf
If SystemDateMonthInt = 1 Then
If SystemDateDayInt < 20 Then
Var EDC_ThailandOn = 1
EndIf
If SystemDateDayInt < 16 Then
Var GiftNewYearEnable = 1
EndIf
EndIf
Var MainAdvertiseRunSlot = 0
If MainAdvertiseShowSlot = "" Then
Var MainAdvertiseShowSlot = 0
EndIf
If brewing_adv11_long_size = "" Then
GetFileSizeK "taobin_project/video/brewing_adv11_long.mp4" brewing_adv11_long_size
EndIf
DEBUGVAR brewing_adv11_long_size
If brewing_adv11_long_size = 8233782 Then
If WinterWonderPro = 1 Then
Var MainAdvertiseFileName[MainAdvertiseRunSlot] = "ROOT/taobin_project/video/brewing_adv11_long.mp4"
Var MainAdvertiseVideoEnd[MainAdvertiseRunSlot] = 0
Var EventTurnOn = 1
Var MainAdvertiseRunSlot = MainAdvertiseRunSlot + 1
EndIf
EndIf
If brewing_adv13_long_size = "" Then
GetFileSizeK "taobin_project/video/brewing_adv13_long.mp4" brewing_adv13_long_size
EndIf
DEBUGVAR brewing_adv13_long_size
If brewing_adv13_long_size = 3789806 Then
If StrawberrySeriesPro = 1 Then
Var MainAdvertiseFileName[MainAdvertiseRunSlot] = "ROOT/taobin_project/video/brewing_adv13_long.mp4"
Var MainAdvertiseVideoEnd[MainAdvertiseRunSlot] = 0
Var EventTurnOn = 1
Var MainAdvertiseRunSlot = MainAdvertiseRunSlot + 1
EndIf
EndIf
If brewing_adv21_long_size = "" Then
GetFileSizeK "taobin_project/video/brewing_adv21_long.mp4" brewing_adv21_long_size
EndIf
DEBUGVAR brewing_adv21_long_size
If brewing_adv21_long_size = 6507746 Then
If ThickTeaByBrewerPro = 1 Then
Var MainAdvertiseFileName[MainAdvertiseRunSlot] = "ROOT/taobin_project/video/brewing_adv21_long.mp4"
Var MainAdvertiseVideoEnd[MainAdvertiseRunSlot] = 1
Var EventTurnOn = 1
Var MainAdvertiseRunSlot = MainAdvertiseRunSlot + 1
Var EventTurnOn = 1
EndIf
EndIf
If brewing_adv16_size = "" Then
GetFileSizeK "taobin_project/video/brewing_adv16.mp4" brewing_adv16_size
EndIf
DEBUGVAR brewing_adv16_size
If brewing_adv16_size = 7422861 Then
If GiftNewYearEnable = 1 Then
Var MainAdvertiseFileName[MainAdvertiseRunSlot] = "ROOT/taobin_project/video/brewing_adv16.mp4"
Var MainAdvertiseVideoEnd[MainAdvertiseRunSlot] = 0
Var EventTurnOn = 1
Var MainAdvertiseRunSlot = MainAdvertiseRunSlot + 1
EndIf
EndIf
DEBUGVAR MainAdvertiseShowSlot
DEBUGVAR MainAdvertiseRunSlot
;
;
;
;
;
;
; final call
; Protect edge of promotion.
If MainAdvertiseShowSlot < MainAdvertiseRunSlot Then
Var VideoMainPage = MainAdvertiseFileName[MainAdvertiseShowSlot]
If MainAdvertiseVideoEnd[MainAdvertiseShowSlot] = 0 Then
Var CountDownPauseVideoEnable = "ignore"
Else
Var CountDownPauseVideoEnable = ""
EndIf
Var MainAdvertiseShowSlot = MainAdvertiseShowSlot + 1
Else
Var MainAdvertiseShowSlot = 0
Var VideoMainPage = MainAdvertiseFileName[MainAdvertiseShowSlot]
If MainAdvertiseVideoEnd[MainAdvertiseShowSlot] = 0 Then
Var CountDownPauseVideoEnable = "ignore"
Else
Var CountDownPauseVideoEnable = ""
EndIf
EndIf
If VideoMainPage = "" Then
Var EventTurnOn = 0
EndIf
DEBUGVAR MainAdvertiseRunSlot
DEBUGVAR MainAdvertiseShowSlot
DEBUGVAR VideoMainPage
DEBUGVAR EventTurnOn
If EventTurnOn = 1 Then
Var CurrentMainVideoTemp = 1
;Var MainPageEventWithTimeout = 25
Var ShowButtonClickFull = "Invisible"
Var img_rest_main_page = "ROOT/taobin_project/image/main_page/bn_main_page_start.png"
Var MemberButtonFileNameRest = "ROOT/taobin_project/image/main_page/bn_main_page_member.png"
Var img_reset_topup = "ROOT/taobin_project/image/main_page/bn_main_page_topup.png"
Var CountDownShowButton = 0
Var ShowButtonClick = "Enable"
Var ShowButtonClickFull = "Invisible"
Else
Var MemberButtonFileNameRest = ""
Var img_rest_main_page = ""
Var img_reset_topup = ""
EndIf
If taobin_notopup = "true" Then
GetFileSizeK "taobin_project/video/_main_page_notopup.mp4" MainfileSize
DEBUGVAR MainfileSize
If MainfileSize > 0 Then
Var VideoMainPage = "ROOT/taobin_project/video/_main_page_notopup.mp4"
EndIf
EndIf