; Thailand ;DEBUGVAR SystemDateMonthInt ;DEBUGVAR SystemDateDayInt ; Reset flag away. Var ChildrenFree = 0 Var OreoDueEnable = 0 Var OreoForFreeEnable = 0 Var SoundBackToSchoolEnable = 0 Var PromotionIDOreoBuyTwoSaveMore = 0 Var BackToSchoolForFreeEnable = 0 Var PepsiProEnable = 0 Var PepsiPromoteVideo = 0 Var PepsiProCodeEnable = 0 Var SoundBackToSchoolType = 0 ; End Var MysteryProEnable = 0 Var OreoWelcomeDrinkEnable = 0 Var Anniversary3VideoEnable = 0 Var MomDayEnable = 0 ; September / Oct ; Enable app game Var GameEnableFromTrickerEv = 0 ; Enable pro Pepween Var PepweenEnable = 0 ; Enable pro Tamatian. 16-30 Sep Var TamatianEnable = 0 ; September 9 - 16 Var MayDayRunEnable = 0 ; Enable Milk Choice Vegan Var MilkChoiceVeganEnable = 0 ; Enable pro 15 THB, November 1 - 30 Var pro15THBEnable = 0 Var From15THBPro = 0 ; Enable pro My Mint My Moment, December 1 - 31 Var MyMintEnable = 0 Var FromMyMintPro = 0 ; Enable pro Rerun, Jan 22-26/29-31 Var RerunProEnable = 0 Var FromRerunPro = 0 ; Enable pro Peach, Feb 1 - 13 Var ProPeachEnable = 0 ; Enable Bad valentine, Feb 14 - 29 Var ProBadValentineEnable = 0 Var FromBadValentinePro = 0 ; Enable Pepsi Second Cup 30, Mar 1 - 17, but get discount code only 4-8 and 11-15 Mar Var PepsiSecondCup30Enable = 0 Var PepsiSecondCup30DiscountEnable = 0 Var FromPepsiSecondCup30 = 0 ; Enable Lipit Promotion, 18 Mar - 5 Apr Var LipitPro = 0 Var FromLipitPro = 0 Var LipitRewardOutOfStock = 0 ; Enable Monday Banana Promotion, every Monday start 11 Mar - 19 Apr Var MondayBananaPro = 0 Var FromMondayBananaPro = 0 ; Enable Free Energy Drink, 18 Mar - 30 Apr Var FreeEnergyDrink = 0 Var FromPowerUpPro = 0 Var FreePowerup = "Invisible" ; Enable Tea Time, 13 - 30 Apr Var TeaTimePro = 0 Var FromTeaTimePro = 0 ; Enable Free Fire, 1 - 30 Apr Var FreeFirePro = 0 ; Enable Energy Drink 1 Bath, 1 May - 31 May Var EnergyDrink1BathPro = 0 Var FromEnergyDrink1BathPro = 0 ; Enable Coffee Drink 1 Bath, 1 May - 31 May Var CoffeeDrink1BathPro = 0 Var FromCoffeeDrink1BathPro = 0 ; Enable Wednesday melon, 15, 22, 29 May - 5, 12 June Var WednesdayMelonPro = 0 Var FromWednesdayMelonPro = 0 ; Enable Nam Hom Coconut, 3 - 21 June Var NamHomCoconutPro = 0 Var FromNamHomCoconutPro = 0 Var NamHomCoconutRewardOutOfStock = 0 ; Enable Cocoa 7.7 promotion, 7 - 9 July Var Cocoa77Pro = 0 Var FromCocoa77Pro = 0 ; Enable Passion Mint promotion, 15 - 17 Jul Var PassionMintPro = 0 Var FromPassionMintPro = 0 ; Enable 7UpLuckyDrawX2 promotion, 22 Jul - 9 Aus Var 7UpLuckyDrawX2Pro = 0 Var NewCollectPoint = 1 Var ShouldCollectPromotionPoint = 0 Var NewFlowPaymentCode = 0 Var New_Payment = 0 Var XMLLiveInfoEnable = 0 Var CheckMemberPageCampaign = 0 If SystemDateMonthInt = 1 Then Var CheckMemberPageCampaign = 1 EndIf If SystemDateMonthInt = 5 Then If SystemDateDayInt <= 10 Then Var TeaTimePro = 1 EndIf STRCONTAIN "TaoBin_1_Baht_coffee" XMLProfile TaoBin_1_Baht_coffee If TaoBin_1_Baht_coffee = "true" Then Var CoffeeDrink1BathPro = 1 EndIf STRCONTAIN "TaoBin_1_Baht_Energy" XMLProfile TaoBin_1_Baht_Energy If TaoBin_1_Baht_Energy = "true" Then Var EnergyDrink1BathPro = 1 EndIf If SystemDateDayInt = 15 Then Var WednesdayMelonPro = 1 EndIf If SystemDateDayInt = 22 Then Var WednesdayMelonPro = 1 EndIf If SystemDateDayInt = 29 Then Var WednesdayMelonPro = 1 EndIf If SystemDateDayInt = 13 Then Var MondayBananaPro = 1 EndIf If SystemDateDayInt = 20 Then Var MondayBananaPro = 1 EndIf If SystemDateDayInt = 27 Then Var MondayBananaPro = 1 EndIf EndIf If SystemDateMonthInt = 6 Then If SystemDateDayInt >= 3 Then Var NamHomCoconutPro = 1 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 If SystemDateDayInt = 12 Then Var WednesdayMelonPro = 1 EndIf If SystemDateDayInt >= 17 Then Var CheckMemberPageCampaign = 1 EndIf EndIf If SystemDateMonthInt = 7 Then If SystemDateDayInt <= 10 Then Var NamHomCoconutPro = 1 EndIf If SystemDateDayInt >= 7 Then If SystemDateDayInt <= 9 Then Var Cocoa77Pro = 1 EndIf EndIf If SystemDateDayInt >= 15 Then If SystemDateDayInt <= 17 Then Var PassionMintPro = 1 EndIf EndIf If SystemDateDayInt >= 22 Then Var 7UpLuckyDrawX2Pro = 1 EndIf EndIf If SystemDateMonthInt >= 7 Then Var CheckMemberPageCampaign = 1 EndIf If SystemDateMonthInt = 8 Then If SystemDateDayInt <= 9 Then Var 7UpLuckyDrawX2Pro = 1 EndIf EndIf If BoxID = 173149 Then Var ProBadValentineEnable = 0 Var NewFlowPaymentCode = 1 Var NamHomCoconutPro = 0 Var Cocoa77Pro = 0 Var 7UpLuckyDrawX2Pro = 1 EndIf If BoxID = 201316 Then Var ProPeachEnable = 1 Var NewFlowPaymentCode = 1 EndIf If BoxID = 105005 Then Var NewFlowPaymentCode = 1 Var New_Payment = 1 Var NamHomCoconutPro = 0 Var Cocoa77Pro = 0 Var 7UpLuckyDrawX2Pro = 0 Var PassionMintPro = 1 EndIf If BoxID = 174758 Then Var ProBadValentineEnable = 0 Var PepsiSecondCup30Enable = 0 Var PepsiSecondCup30DiscountEnable = 0 Var NewFlowPaymentCode = 0 EndIf Var XMLLiveInfoEnable = 1 ; Exclusive Box Var GameEnableFromTrickerEv = 1 Var MayDayRunEnable = 0 If BoxID = 33170 Then Var PepsiProEnable = 0 Var PepsiPromoteVideo = 0 Var PepsiProCodeEnable = 0 Var MysteryProEnable = 0 Var OreoWelcomeDrinkEnable = 0 Var RerunProEnable = 0 EndIf ; This var for overide video play when brew Var adver_brewing_video_full_file_name = "" If InternationalEnable = 1 Then Var MilkChoiceVeganEnable = 0 Var GameEnableFromTrickerEv = 0 Var TamatianEnable = 0 Var MayDayRunEnable = 0 Var MomDayEnable = 0 Var PepsiProEnable = 0 Var PepsiPromoteVideo = 0 Var PepsiProCodeEnable = 0 Var MysteryProEnable = 0 Var PepweenEnable = 0 Var RerunProEnable = 0 Var ProPeachEnable = 0 Var ProBadValentineEnable = 0 Var FreeEnergyDrink = 0 Var WednesdayMelonPro = 0 Var NamHomCoconutPro = 0 EndIf STRCONTAIN "taobin_nopro" XMLProfile taobin_nopro If taobin_nopro = "true" Then Var MilkChoiceVeganEnable = 0 Var GameEnableFromTrickerEv = 0 Var TamatianEnable = 0 Var MayDayRunEnable = 0 Var MomDayEnable = 0 Var PepsiProEnable = 0 Var PepsiPromoteVideo = 0 Var PepsiProCodeEnable = 0 Var MysteryProEnable = 0 Var PepweenEnable = 0 Var RerunProEnable = 0 Var ProPeachEnable = 0 Var ProBadValentineEnable = 0 Var FreeEnergyDrink = 0 Var MondayBananaPro = 0 Var FreeFirePro = 0 Var TeaTimePro = 0 Var EnergyDrink1BathPro = 0 Var CoffeeDrink1BathPro = 0 Var PepsiSecondCup30Enable = 0 Var PepsiSecondCup30DiscountEnable = 0 Var FromPepsiSecondCup30 = 0 Var LipitPro = 0 Var WednesdayMelonPro = 0 Var NamHomCoconutPro = 0 Var Cocoa77Pro = 0 Var 7UpLuckyDrawX2Pro = 0 Var PassionMintPro = 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 BoxID = 172644 Then Var NamHomCoconutPro = 0 EndIf If BoxID = 201714 Then Var NamHomCoconutPro = 0 EndIf If BoxID = 201717 Then Var NamHomCoconutPro = 0 EndIf If BoxID = 201725 Then Var NamHomCoconutPro = 0 EndIf If BoxID = 201729 Then Var NamHomCoconutPro = 0 EndIf If CoconutSyrupEnable = "true" Then Else If BananaSyrupEnable = "true" Then Else Var NamHomCoconutPro = 0 EndIf EndIf If MelonSyrupEnable = "true" Then Else Var WednesdayMelonPro = 0 EndIf If CocoaPowderEnable = "true" Then Else Var Cocoa77Pro = 0 EndIf If 7UpSyrupEnable = "true" Then Else Var 7UpLuckyDrawX2Pro = 0 EndIf If MintSyrupEnable = "true" Then Else Var PassionMintPro = 0 EndIf Var CurrentMainVideoTemp = 0 If NamHomCoconutPro = 1 Then READ_FILE "/mnt/sdcard/nam_hom_coconut_reward_out_of_stock" coconutRewardOutOfStock STRCONTAIN "1" coconutRewardOutOfStock coconutRewardOutOfStockContain If coconutRewardOutOfStockContain = "true" Then Var NamHomCoconutRewardOutOfStock = 1 EndIf DEBUGVAR NamHomCoconutRewardOutOfStock Var VideoMainPage = "ROOT/taobin_project/video/main_page_event_pro1.mp4" 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 WebAppShow = "Invisible" Else If EnergyDrink1BathPro = 1 Then Var CurrentMainVideo = 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 WebAppShow = "Invisible" EndIf If CoffeeDrink1BathPro = 1 Then Var CurrentMainVideo = 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 WebAppShow = "Invisible" EndIf EndIf DEBUGVAR FreePowerup ; Control collect promotion point behavior If NamHomCoconutPro = 1 Then Var ShouldCollectPromotionPoint = 1 EndIf