1080 1920 SoundVolume ; "0xeae6e1" Var Timeout = 0 Var DirImage = "ROOT/taobin_project/image/event/robinson_beauty" Var MaxRandomIndex = 0 Var SelectNumber = 0 Var ShakeCount = 0 Var SelectingState = "Enable" Var SelectedState = "Invisible" Var SelectedNumberImage = "" If SetAPlusOutOfStock = 0 Then Var rewardList[MaxRandomIndex] = "set_a_plus" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "set_a_plus" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "set_a_plus" Var MaxRandomIndex = MaxRandomIndex + 1 EndIf If SetAOutOfStock = 0 Then Var rewardList[MaxRandomIndex] = "set_a" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "set_a" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "set_a" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "set_a" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "set_a" Var MaxRandomIndex = MaxRandomIndex + 1 EndIf If LustrousOutOfStock = 0 Then Var rewardList[MaxRandomIndex] = "lustrous" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lustrous" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lustrous" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lustrous" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lustrous" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lustrous" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lustrous" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lustrous" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lustrous" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lustrous" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lustrous" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lustrous" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lustrous" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lustrous" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lustrous" Var MaxRandomIndex = MaxRandomIndex + 1 EndIf If LipTintOilOutOfStock = 0 Then Var rewardList[MaxRandomIndex] = "lip_tint_oil" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lip_tint_oil" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lip_tint_oil" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lip_tint_oil" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lip_tint_oil" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lip_tint_oil" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lip_tint_oil" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lip_tint_oil" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lip_tint_oil" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lip_tint_oil" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lip_tint_oil" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lip_tint_oil" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lip_tint_oil" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lip_tint_oil" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "lip_tint_oil" Var MaxRandomIndex = MaxRandomIndex + 1 EndIf If BlushAndLipOutOfStock = 0 Then Var rewardList[MaxRandomIndex] = "blush_and_lip" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "blush_and_lip" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "blush_and_lip" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "blush_and_lip" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "blush_and_lip" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "blush_and_lip" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "blush_and_lip" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "blush_and_lip" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "blush_and_lip" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "blush_and_lip" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "blush_and_lip" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "blush_and_lip" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "blush_and_lip" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "blush_and_lip" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "blush_and_lip" Var MaxRandomIndex = MaxRandomIndex + 1 EndIf If RandomOutOfStock = 0 Then Var rewardList[MaxRandomIndex] = "random" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "random" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "random" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "random" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "random" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "random" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "random" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "random" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "random" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "random" Var MaxRandomIndex = MaxRandomIndex + 1 EndIf If DoubleSerumOutOfStock = 0 Then Var rewardList[MaxRandomIndex] = "double_serum" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "double_serum" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "double_serum" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "double_serum" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "double_serum" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "double_serum" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "double_serum" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "double_serum" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "double_serum" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "double_serum" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "double_serum" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "double_serum" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "double_serum" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "double_serum" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "double_serum" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "double_serum" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "double_serum" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "double_serum" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "double_serum" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "double_serum" Var MaxRandomIndex = MaxRandomIndex + 1 EndIf If CalvinKleinOutOfStock = 0 Then Var rewardList[MaxRandomIndex] = "calvin_klein" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "calvin_klein" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "calvin_klein" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "calvin_klein" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "calvin_klein" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "calvin_klein" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "calvin_klein" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "calvin_klein" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "calvin_klein" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "calvin_klein" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "calvin_klein" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "calvin_klein" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "calvin_klein" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "calvin_klein" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "calvin_klein" Var MaxRandomIndex = MaxRandomIndex + 1 EndIf If PopmartLabubuV2OutOfStock = 0 Then Var rewardList[MaxRandomIndex] = "labubu" Var MaxRandomIndex = MaxRandomIndex + 1 Var rewardList[MaxRandomIndex] = "labubu" Var MaxRandomIndex = MaxRandomIndex + 1 EndIf 1000 DEBUGVAR Timeout Var CountDownBrewing = BREW_CNT Var ShowCountDownBrewing = CountDownBrewing If Timeout > 15 Then SAVELOG "Timeout 15 second auto random for you" Function 2 EndIf If SelectedState = "Enable" Then If Timeout > 4 Then Open "ROOT/taobin_project/xml/event/robinson_beauty/page_robinson_beauty_random_result.xml" EndIf EndIf Var Timeout = Timeout + 1 TimerReset Refresh ;include="ROOT/taobin_project/inc/video.inc" ; Background 0 380 SelectingState Var( DirImage + "/random_select_bg.png") ; Fotune cookie 404 845 SelectingState Var( DirImage + "/random_fortune_cookie.png") Var ShakeCount = ShakeCount + 1 If ShakeCount >= 3 Then Random2 1 11 SelectNumber Function 2 EndIf ShakeCount 0 380 SelectedState SelectedNumberImage 166 620 Var( DirImage + "/random_text.png") ; Random coupon Var randResultInt = 0 Var CodeType = "" DEBUGVAR MaxRandomIndex If MaxRandomIndex > 0 Then Random2 0 MaxRandomIndex randResultInt DEBUGVAR randResultInt Var randResultStr = rewardList[randResultInt] Else Var randResultStr = "discount_50" EndIf If randResultStr = "set_a_plus" Then Var CodeType = "144" EndIf if randResultStr = "set_a" Then Var CodeType = "143" EndIf If randResultStr = "lustrous" Then Var CodeType = "137" EndIf If randResultStr = "lip_tint_oil" Then Var CodeType = "138" EndIf If randResultStr = "blush_and_lip" Then Var CodeType = "139" EndIf If randResultStr = "random" Then Var CodeType = "140" EndIf If randResultStr = "double_serum" Then Var CodeType = "141" EndIf If randResultStr = "calvin_klein" Then Var CodeType = "142" EndIf If randResultStr = "discount_50" Then Var CodeType = "145" EndIf If randResultStr = "labubu" Then Var CodeType = "146" EndIf If SelectNumber = 0 Then Random2 1 11 SelectNumber EndIf Var SelectedNumberImage = DirImage + "/random_" Var SelectedNumberImage = SelectedNumberImage + SelectNumber Var SelectedNumberImage = SelectedNumberImage + ".png" Var SelectingState = "Invisible" Var SelectedState = "Enable" DEBUGVAR randResultInt DEBUGVAR randResultStr DEBUGVAR CodeType Var Timeout = 0 Refresh ; 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/robinson_beauty/page_robinson_beauty_random.xml" Var show_eng = "true" Open "ROOT/taobin_project/xml/event/robinson_beauty/page_robinson_beauty_random.xml" Function 2