taobin_project/xml/event/robinson_beauty/page_robinson_beauty_random.xml
2024-08-22 14:34:54 +07:00

501 lines
No EOL
17 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 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
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
</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 > 5 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.png") </Filename>
</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>
<Image>
<X> 573 </X>
<Y> 932 </Y>
<Width> 40 </Width>
<Height> 72 </Height>
<EventClick>
Var SelectNumber = 1
Function 2
</EventClick>
</Image>
<Image>
<X> 460 </X>
<Y> 944 </Y>
<Width> 37 </Width>
<Height> 41 </Height>
<EventClick>
Var SelectNumber = 2
Function 2
</EventClick>
</Image>
<Image>
<X> 593 </X>
<Y> 1056 </Y>
<Width> 37 </Width>
<Height> 68 </Height>
<EventClick>
Var SelectNumber = 3
Function 2
</EventClick>
</Image>
<Image>
<X> 525 </X>
<Y> 979 </Y>
<Width> 39 </Width>
<Height> 68 </Height>
<EventClick>
Var SelectNumber = 4
Function 2
</EventClick>
</Image>
<Image>
<X> 445 </X>
<Y> 1101 </Y>
<Width> 40 </Width>
<Height> 68 </Height>
<EventClick>
Var SelectNumber = 5
Function 2
</EventClick>
</Image>
<Image>
<X> 634 </X>
<Y> 989 </Y>
<Width> 38 </Width>
<Height> 72 </Height>
<EventClick>
Var SelectNumber = 6
Function 2
</EventClick>
</Image>
<Image>
<X> 495 </X>
<Y> 1051 </Y>
<Width> 40 </Width>
<Height> 67 </Height>
<EventClick>
Var SelectNumber = 7
Function 2
</EventClick>
</Image>
<Image>
<X> 506 </X>
<Y> 907 </Y>
<Width> 38 </Width>
<Height> 65 </Height>
<EventClick>
Var SelectNumber = 8
Function 2
</EventClick>
</Image>
<Image>
<X> 412 </X>
<Y> 993 </Y>
<Width> 41 </Width>
<Height> 70 </Height>
<EventClick>
Var SelectNumber = 9
Function 2
</EventClick>
</Image>
<Function2>
; Random coupon
Var randResultInt = 0
Var CodeType = ""
DEBUGVAR MaxRandomIndex
If MaxRandomIndex > 0 Then
Random2 0 MaxRandomIndex randResultInt
Var randResultStr = rewardList[randResultInt]
Else
Var randResultStr = "discount_50"
EndIf
If randResultStr = "set_a_plus" Then
Var CodeType = ""
EndIf
if randResultStr = "set_a" Then
Var CodeType = ""
EndIf
If randResultStr = "lustrous" Then
Var CodeType = ""
EndIf
If randResultStr = "lip_tint_oil" Then
Var CodeType = ""
EndIf
If randResultStr = "blush_and_lip" Then
Var CodeType = ""
EndIf
If randResultStr = "random" Then
Var CodeType = ""
EndIf
If randResultStr = "double_serum" Then
Var CodeType = ""
EndIf
If randResultStr = "calvin_klein" Then
Var CodeType = ""
EndIf
If randResultStr = "discount_50" Then
Var CodeType = ""
EndIf
If SelectNumber = 0 Then
Random2 1 9 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>
</Popup>