taobin_project/xml/event/robinson_beauty/page_robinson_beauty_random.xml
2024-08-28 14:57:30 +07:00

437 lines
No EOL
16 KiB
XML

<Popup>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Volume> SoundVolume </Volume>
;<Background> "0xeae6e1" </Background>
<EventOpen>
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
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
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
</EventTimeout>
;include="ROOT/taobin_project/inc/video.inc"
; Background
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> SelectingState </State>
<Filename> Var( DirImage + "/random_select_bg.png") </Filename>
</Image>
; Fotune cookie
<Image>
<X> 404 </X>
<Y> 845 </Y>
<State> SelectingState </State>
<Filename> Var( DirImage + "/random_fortune_cookie.png") </Filename>
<EventClick>
Var ShakeCount = ShakeCount + 1
If ShakeCount >= 3 Then
Random2 1 11 SelectNumber
Function 2
EndIf
</EventClick>
<Animation>
<Style> "shake-image" </Style>
<OnChangeValue> ShakeCount </OnChangeValue>
</Animation>
</Image>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> SelectedState </State>
<Filename> SelectedNumberImage </Filename>
</Image>
<Image>
<X> 166 </X>
<Y> 620 </Y>
<Filename> Var( DirImage + "/random_text.png") </Filename>
</Image>
<Function2>
; 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
</Function2>
;
<Image>
<X> 751 </X>
<Y> 413 </Y>
<Filename> IMG_CNT </Filename>
</Image>
;
<Text>
<X> XPosiShowCountDownBrew </X>
<Y> 470 </Y>
<Align> End </Align>
<Width> 153 </Width>
<Size> 88 </Size>
<Font> RobotoBold </Font>
<Color> 0x513C2F </Color>
<Value> ShowCountDownBrewing </Value>
</Text>
<EventUnitTest1>
OpenInst 2 "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventUnitTest1>
<EventUnitTest2>
Var show_eng = "false"
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_robinson_beauty_random.xml"
</EventUnitTest2>
<EventUnitTest3>
Var show_eng = "true"
Open "ROOT/taobin_project/xml/event/robinson_beauty/page_robinson_beauty_random.xml"
</EventUnitTest3>
<EventUnitTest4>
Function 2
</EventUnitTest4>
</Popup>