; malaysia ;DEBUGVAR SystemDateMonthInt ;DEBUGVAR SystemDateDayInt ; Reset flag away. Var Propepsi99Enable = 0 ; FruityRaya Promo Var FruityRayaEnable = 0 Var FromFruityRaya = 0 ; ThaiTea Promo Var ProThaiTeaEnable = 0 Var FromProThaiTea = 0 ; Yuzu Promo Var ProYuzuEnable = 0 Var FromProYuzu = 0 ; Yuzu Promo Var IgnoreProfileFromRunEV = 0 Var FromProYuzu250 = 0 ; Melon Promo Var ProMelonEnable = 0 Var FromProMelon = 0 ; Pro free oreo topping Var PromotionOreoToppingFreeEnable = 0 ; Pro reduce price Var SetProReduceByBO = 0 Var ProReducedPriceEnable = 0 If XMLProfile = "PromoReduced" Then Var SetProReduceByBO = 1 EndIf DEBUGVAR SetProReduceByBO ; Pay later mode Var EnablePayLaterMode = 0 ; Slide show Video Var UseSlideShowVideo = 0 Var NoTrickPriceProfile = 0 If SystemDateMonthInt = 3 Then If SystemDateDayInt >= 10 Then Var ProMelonEnable = 1 Else Var ProMelonEnable = 0 EndIf EndIf If SystemDateMonthInt = 4 Then If SystemDateDayInt <= 20 Then Var ProMelonEnable = 1 Else Var ProMelonEnable = 0 READ_FILE "/mnt/sdcard/coffeevending/profile/price/profile_MYS_slot_4.json" ProfileSlot4MYS STRCONTAIN "Drop" ProfileSlot4MYS PromoMelonDrop If PromoMelonDrop = "true" Then SAVELOG "Promotion already dropped !!!" Else ; zone-self-refresh SAVELOG "Promotion End, Self Refresh !!!" WRITE_FILE "/mnt/sdcard/coffeevending/profile/price/profile_MYS_slot_4.json" "Drop" WRITE_FILE "/mnt/sdcard/coffeevending/profile/profile_MYS_5.json" "Drop" WRITE_FILE "/mnt/sdcard/coffeevending/profile/profile_MYS_new_5.json" "Drop" WRITE_FILE "/mnt/sdcard/coffeevending/need_refresh_file" "1" EndIf EndIf EndIf ; zone-refresh-once READ_FILE "/mnt/sdcard/coffeevending/need_refresh_file" NeedRefreshStr STRCONTAIN "1" NeedRefreshStr need_refresh DEBUGVAR need_refresh If need_refresh = "true" Then Var NeedRefreshProfile = 1 WRITE_FILE "/mnt/sdcard/coffeevending/need_refresh_file" "0" SAVELOG "Set SelfRefresh := True" Else Var NeedRefreshProfile = 0 EndIf If BoxID = 177746 Then Var ProThaiTeaEnable = 0 Var ProYuzuEnable = 0 Var PromotionOreoToppingFreeEnable = 0 ;Var ProMelonEnable = 0 Var EnablePayLaterMode = 1 ;Var AdvertiseProfile = "00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00/00" Var UseSlideShowVideo = 0 ;Var ProReducedPriceEnable = 0 ;Var IgnoreProfileFromRunEV = 1 EndIf If ProMelonEnable = 1 Then Var IgnoreProfileFromRunEV = 1 EndIf If BoxID = 210037 Then Var UseSlideShowVideo = 1 EndIf If BoxID = 210011 Then Var UseSlideShowVideo = 1 EndIf ;If BoxID = 200002 Then ; Var UseSlideShowVideo = 1 ;EndIf ;If BoxID = Something Then ; Var EnablePayLaterMode = 1 ; ;EndIf